Listing of file='ISS.090U' on disk='vmedia/701-2423D.wvd.zip'
# Sector 588, program filename = 'ISS.090U'
0010 REM ISS.090U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM A1,A2
: DIM Z1$3,B$(256)1
: DIM Z$(3)83,Z$16,I1$3
0120 % THIS MUST BE STATEMENT 120
0220 S1$="ISS.200SISS.254SISS.050S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 250
0250 GOSUB '50(9)
: $UNPACK(F=HEX(A00350025003))Z$(Z1)TO I1$,A1,A2
: GOSUB '60("RECONSTRUCT DISK INDEX",3)
: GOSUB '61("DISK ADDRESS",I1$,"80","DISK")
: GOSUB '62("INDEX SECTORS",A1,"81")
: GOSUB '62("HIGHEST DISK SECTOR",A2,"82")
0340 GOSUB '70
: SELECT #1<I1$>
: SELECT #3<I1$>
: IF A1=0THEN GOSUB 700
: IF A2<A1THEN 920
0430 LOAD DC T#0,"ISS.091U"
: ERRORGOTO 870
0450 DEFFN'15
: RETURN CLEAR ALL
0470 PRINT AT(3,0,S0);
: GOTO 340
0530 DEFFN'80
: GOSUB '40("ENTER DISK ADDRESS")
: Z$,I1$=Z1$
: RETURN
0580 DEFFN'81
: GOSUB '200("0","256",3,0,"ENTER NUMBER OF INDEX SECTORS (0=UNKNOWN)",1
)
: Z,A1=Q9
: RETURN
0630 DEFFN'82
: GOSUB '200(" "," ",5,0,"ENTER THE HIGHEST SECTOR ADDRESS ON THE DISK",1)
: Z,A2=Q9
: RETURN
0700 PRINT AT(1,0);"MOUNT DISK"
: GOSUB '254
: DATA LOAD BA T#1,(0)B$()
: ERRORPRINT HEX(07)
: GOTO 700
0730 PRINT AT(0,0);"COMPUTING INDEX SIZE"
0740 DATA LOAD BA T#1,(A1,A1)B$()
: AND (B$(1),C0)
: IF B$(1)=HEX(40)THEN 810
: IF B$(1)<>HEX(80)THEN 740
: DATA LOAD BA T#1,(A1,A3)B$()
: AND (B$(1),F0)
: IF B$(1)<>HEX(80)THEN 740
0810 A1=A1-1
: PRINT AT(0,0,25)
: RETURN
0870 PRINT HEX(010A07);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 430
0920 PRINT HEX(010A07);"INDEX SECTORS CANNOT EXCEED HIGHEST SECTOR"
: GOSUB '254
: GOTO 340
0980 DEFFN'51
: $PACK(F=HEX(A00350025003))Z$(Z1)FROMI1$,A1,A2
: RETURN
1040 DEFFN'31
: PRINT HEX(03)
: COM CLEAR A1
1070 LOAD DC T#0,"ISS.100M"
: ERRORGOTO 1080
1080 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1070