|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 20558 (0x504e)
Notes: pts_type(SC)
Names: »WUASS.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUASS.SC«
IDENT WUASS W,REL=2.3,841211,870155940230 ** HISTORY: ** 84-12-11/CJ I.C. WSM-UTIL <-> TOSSUT REL13 IMPL. ** 83-10-06/MAER CHECK OF TOSS FORMATTED DISC ADDED. ** 83-02-28/MAER RELEASE 1.O ** 83-02-09/MAER "RETRIES-PERFORMED"-BIT MASKED OUT EJECT ENTRY GIPLFC ENTRY CHANFC ENTRY CREVOL ENTRY CREFIL ENTRY DELFIL ENTRY GETVOL ENTRY COPYDD ENTRY PRINTF ENTRY CHVOL ENTRY SURVEY ENTRY RDSECT ENTRY WRSECT ENTRY READDK ENTRY WRITDK ENTRY OPENF ENTRY CLOSEF ENTRY BCDBIN ENTRY BINBCD ENTRY RCGET ENTRY GETIND EJECT EXTRN I:EVA0 * EXTRN T:FDSP EXTRN I:RT1 EXTRN T:LOFS EXTRN T:BCDB EXTRN T:BINB EJECT CALL FORM 16=/F6A1,16 TOSS1 EQU 'TO' TOSS2 EQU 'SS' TOSS3 EQU ' R' TOSS4 EQU 'EL' EJECT *********************************************** * * PREPARE FOR INTERTASK WSMUTIL <-> TOSSUT * *********************************************** * ORDER-CODES RDCODE EQU /0082 READ-WITH-WAIT CODE WRCODE EQU /0086 WRITE-WITH-WAIT CODE TOCODE EQU /00B9 SET TIME OUT CODE * ECB FOR I. C. INTECB EQU * ECB BUFFER ECBFC DATA /0000 FILE CODE ECBBUF DATA 0 BUFFER ADDRESS ECBREQ DATA 80 REQUIRED LENGTH ECBEFF DATA 0 EFFECTIVE LENGTH ECBRC DATA 0 RETURN CODE ECBCW DATA 0 CONTROL WORD ECBCW2 DATA 0 CONTROLWORD 2 *********************************************** * * PREPARE FOR GETTING FILE-CODE OF IPL DEVICE * *********************************************** SCTIPL EQU /030C POS FOR IPL-DEVICE IN SYSTAB IPLFC1 DATA '#MU1',SCTIPL,IPLBUF,2 IPLBUF DATA 0 EJECT *********************************************** * * GET FILE-CODE FOR IPL DEVICE * * CALL: CALL GIPLFC,<TIDBIN>,<IPLFC> * *********************************************** GIPLFC EQU * CALL I:EVA0 A9 -> RECEIVING TASK LDR* A1,A9 LOAD REC. TID IN A1 ST A1,IPLFC1+2 STORE RECEVING TID LDKL A7,IPLFC1 SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 21 GET FC AD A12,-12,A13 RESTORE CREDIT RETADR CALL I:EVA0 GET ADRESS TO <IPLFC> LD A1,IPLBUF LOAD FC IN A1 STR A1,A9 STORE FILECODE ABL I:RT1 RETURN EJECT * * CHANGE FILE CODE IN ECB * CALL: * CALL CHANFC,DATASET,FILECODE * CHANFC EQU * CALL T:FDSP GET DAT-ENTRY IN A3 AND DSCB-ENTRY IN A8 LDR A6,A3 AND SAVE A3 CALL I:EVA0 GET ADDR. TO BIN LC A3,1,A9 GET NEW FC SC A3,1,A6 AND STORE IN DAT SC A3,1,A8 AND IN DSCB ABL RETUR EJECT ****************** * CREATE VOLUME ****************** CREVOL EQU * LDKL A4,'CR' LDKL A6,'V ' RF UTINF **************** * CREATE FILE **************** CREFIL EQU * LDKL A4,'CR' LDKL A6,'F ' RF UTINF * * **************** * DELETE FILE ****************** DELFIL EQU * LDKL A4,'DL' LDKL A6,'F ' RF UTINF * * EJECT **************** * PRINT FILE **************** * * PRINTF EQU * LDKL A4,'PR' LDKL A6,'F ' RF UTINF * * ********************** * COPY DISK TO DISK ********************** COPYDD EQU * LDKL A4,'CD' LDKL A6,'D ' RF UTINF ********* * PVC * ********* SURVEY EQU * LDKL A4,'PV' LDKL A6,'C ' RF UTINF EJECT * * PERFORME A CALL TO ONE OF THE ROUTINES * CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC * A1 ADDRESS TO THE WANTED ROUTINE * UTINF EQU * CALL I:EVA0 A9 = :A PBLOCK STR A4,A9 STORE TOSSUT CMD 1WORD ST A6,2,A9 STORE TOSSUT CMD 2WORD LDR A4,A9 SAVE ADRESS TO PBLOCK CALL I:EVA0 DUMMY CALL I:EVA0 DUMMY ******************************************* * * SET TIME-OUT ON OUTPUT FILECODE 99 * ******************************************* LDKL A8,INTECB LOAD ADRESS TO ECB LDKL A6,/0099 LOAD OUTPUT FILECODE STR A6,A8 STORE FILECODE IN ECB BUF LDKL A6,10 LOAD TIME-OUT ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD LDKL A7,TOCODE PUT TIMEOUT CODE TO A7 SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR EJECT *************************************** * * SEND A BUFFER CONTAINING TOSSUTILITY COMMAND * TO TOSSUTIL APPLICATION VIA INTERTASK COMMUNICATION * *************************************** LDKL A6,'TU' MOVE TID TO ... ST A6,10,A8 ...CONTROL WORD ST A4,2,A8 STORE BUF ADDR TO ECB LDKL A7,WRCODE PUT WRITE CODE TO A7 SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LD A1,8,A8 LOAD ECB RETCOD RF(Z) GOON1 GO ON IF CR=0 LDK A1,20 LOAD I/O-ERROR 0020 RF RET2 GOON1 EQU * ******************************************* * * SET TIME-OUT ON INPUT FILECODE 98 * ******************************************* LDKL A6,/0098 LOAD INPUT FILECODE STR A6,A8 STORE FILECODE IN ECB BUF LDKL A6,-1 LOAD TIME-OUT ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD LDKL A7,TOCODE PUT TIMEOUT CODE TO A7 SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR EJECT *************************************** * * SETUP INTERTASK COMMUNICATION TO RECEIVE A BUFFER * FROM TOSSUTILITY APPLICATION * *************************************** LDKL A6,'TU' MOVE TID TO ... ST A6,10,A8 ...CONTROL WORD LDKL A7,RDCODE PUT READ CODE INTO A7 SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LD A1,8,A8 LOAD ECB RETCOD RF(Z) GOON2 GO ON IF CR=0 LDK A1,20 LOAD I/O-ERROR 0020 RF RET2 GOON2 EQU * LDR* A1,A4 LOAD TOSSUT RC RF RET2 EJECT * * GET VOLUME NAME TO A STRING VARIABEL * SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD * GETVOL EQU * CALL T:FDSP GET DSET ADDRESS TO A8 CALL I:EVA0 GET BUFFER ADDRESS TO A9 ADKL A9,1 MAKE BUFFER ADDRESS EVEN ANKL A9,/FFFE ST A9,2,A8 STORE BUFFER ADDRESS IN DSET LDK A6,6 REQUESTED LENGTH =6 ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS CALL I:EVA0 GET ADDRESS TO VOLNAM LDK A7,/80 LOAD ORDER CODE * A7 ORDER CODE FOR TEST STATUS * A8 DSET ADDRESS SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LD A1,8,A8 LOAD RETURN CODE ANKL A1,/F6FF MASK OUT BIT FOR 1MB FLOPPY AND "RETRIES PERFORMED" RF(NZ) RET2 EJECT * STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) * IN CALLERS BUFFER VOLNAM LD A1,2,A8 LOAD BUFFER ADDRESS LDK A2,6 NO OF BYTES IN VOLUME NAME LOOP EQU * LCR A3,A1 SCR A3,A9 ADK A1,1 ADKL A9,1 SUK A2,1 RB(P) LOOP RET EQU * LD A1,8,A8 LOAD RETURN CODE RET1 EQU * ANKL A1,/F6FF MASK OUT BIT FOR 1MB FLOPPY AND "RETRIES PERFORMED" RET2 EQU * LDR A6,A1 SAVE RETCOD CALL I:EVA0 STR A6,A9 STORE RETURN-CODE LDR A6,A6 RF(Z) RET3 LDK A6,1 RET3 EQU * LD A4,2,A13 GET STACK BASE SC A6,-2,A4 STORE CR ON STACK RETUR EQU * ABL I:RT1 EJECT ************************ * CHANGE VOLUME NAME * ************************ CHVOL EQU * CALL T:FDSP CM 10,A8 SECTOR NO. = 0 CM 12,A8 CHV100 LDKL A1,256 ST A1,4,A8 STORE REQUESTED LENGTH CALL I:EVA0 ST A9,2,A8 STORE BUFFER ADRESS LDK A7,/B7 LOCK SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LD A6,8,A8 GET RETURN CODE LDK A7,/81 BASIC READ SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR CALL I:EVA0 GET VOLUME NAME EJECT LD A7,2,A8 LOAD BUFFER POINTER ML 4,32,A7 A1-A4 := TOSS DISC ID SUKL A1,TOSS1 CHECK IF TOSS FORMATTED RF(NZ) NOTOSS -NO SUKL A2,TOSS2 RF(NZ) NOTOSS SUKL A3,TOSS3 RF(NZ) NOTOSS SUKL A4,TOSS4 RF(NZ) NOTOSS EJECT ******************************* * REPLACE CURRENT VOLUME NAME * ******************************* LDR A1,A7 THE DISC IS TOSS FORMATTED! LDK A2,6 CHV200 LCR A3,A9 READ CHARACTER SCR A3,A1 STORE CHARACTER ADK A1,1 ADKL A9,1 SUK A2,1 RB(NZ) CHV200 IF NOT FINISHED LDK A7,/85 WRITE BASIC SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LDK A7,/80 TEST STATUS SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LDK A1,0 INDICATE TOSS FORMATTED RF CHV300 NOTOSS EQU * NOT A TOSS FORMATTED DISC LDK A1,/42 LOAD RETURN CODE CHV300 EQU * LDR A6,A6 RF(NZ) CHV400 JUMP IF NOT TO BE UNLOADED LDK A7,/B8 UNLOCK SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR CHV400 EQU * LDR A1,A1 TOSS DISC? RB(NZ) RET1 -NO, USE EXISTING A1-VALUE RB RET EJECT * * CALL WRSECT,DSET,RECNO,BUF,RETCOD * * DSET EVENT CONTROL BLOCK * RECNO REALATIV SECTOR NO WITHIN THE FILE * BUF BUFFER * RETCOD RETURN CODE FROM LKM * * WRSECT EQU * LDKL A11,/85 BASIC WRITE RF RDS000 * * * * CALL RDSECT,DSET,RECNO,BUF,RETCOD * DSET EVENT CONTROL BLOCK * RECNO REALATIV SECTOR NO WITHIN THE FILE * BUF BUFFER * RETCOD RETURN CODE FROM LKM * * RDSECT EQU * LDKL A11,/81 BASIC READ RDS000 EQU * CALL T:FDSP CALL I:EVA0 LDR* A1,A9 CM 10,A8 ST A1,12,A8 STORE SECTOR NUMBER EJECT RDS100 LDKL A1,256 ST A1,4,A8 STORE REQUESTED LENGTH CALL I:EVA0 ST A9,2,A8 STORE BUFFER ADRESS LDK A7,/B7 LOCK SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LD A6,8,A8 GET RETURN CODE LDR A7,A11 * A7 ORDER CODE * A8 DSET ADDRESS SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 1 AD A12,-12,A13 RESTORE CREDIT RETADR LDK A1,0 NO FORMAT ERROR! RB CHV300 EJECT * * CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD * RETCOD RETURN CODE FROM LKM * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF BUFFER * LEN REQUESTED LENGTH * RECNO REALATIV SECTOR NO WITHIN THE FILE * WRITDK EQU * LDKL A11,/95 ORDER CODE RF READ00 * * CALL READDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF BUFFER * LEN REQUESTED LENGTH * RECNO RELATIVE SECTOR NO WITHIN THE FILE * RETCOD RETURN CODE FROM LKM * READDK EQU * LDKL A11,/91 ORDER CODE READ00 EQU * CALL T:FDSP GET DSET ADDRESS TO A8 EJECT * GET PARAMETERS FROM PARAMETER LIST AND STORE * THEM IN DSET CALL I:EVA0 FILE CODE LDR* A6,A9 SC A6,1,A8 CALL I:EVA0 BUFFER ADDRESS ST A9,2,A8 CALL I:EVA0 RECORD LENGTH LDR* A6,A9 ST A6,4,A8 CALL I:EVA0 RECORD NO LDR* A6,A9 CALL T:BCDB COVERT TO TWO BINARYS ST A2,12,A8 LEAST SIGNIFICANT ST A1,10,A8 MOST SIGNIFICANT READ20 EQU * LDR A7,A11 * A7 ORDER CODE * A8 DSET ADDRESS SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 15 AD A12,-12,A13 RESTORE CREDIT RETADR READ40 EQU * ABL RET EJECT * * CALL CLOSEF,DSET,FILECODE,BUFF,RECNO,RETCOD * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF FILE PARAMETER BUFFER * RECNO NUMBER OF RECORDS IN SPEC. FILE * * RETCOD RETURN CODE FROM LKM CLOSEF EQU * LDR A11,A14 RF OPENF0 CLOS10 EQU * CALL T:BCDB CONVERT TO TWO BINARYS LD A6,2,A8 ADR TO FPB ST A1,58,A6 LEAST SIGNIFICANT ST A2,60,A6 MOST SIGNIFICANT LDR* A6,A10 GET STORED FILECODE SC A6,1,A8 PUT INTO ECB LDKL A11,/A2 LOAD ORDER CODE RB READ20 EJECT * * CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME,RETCOD * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF FILE PARAMETER BUFFER * FILE FILE NAME * VOLUME VOLUME NAME * RETCOD RETURN CODE FROM LKM * OPENF EQU * SUR A11,A11 OPENF0 EQU * CALL T:FDSP GET DSET ADDRESS TO A8 CALL I:EVA0 SAVE ADDRESS TO FILE CODE LDR A10,A9 CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) ADKL A9,1 AND MAKE SURE IT IS EVEN ANKL A9,/FFFE LDR A6,A9 SAVE ADDRESS TO FPB ST A9,2,A8 STORE THE ADDRESS IN DSET LDK A3,80 NO OF BYTES IN FPB LDR A2,A9 ADDRESS TO FPB OPEN00 EQU * CMR A2 STORE ZERO IN FPB ADK A2,2 INCREACE ADDRESS SUK A3,2 RB(NZ) OPEN00 EJECT * * GET FILE NAME AND STORE IT IN FPB * A3 CONTAINES FPB ADDRESS CALL I:EVA0 LDR A11,A11 RB(NZ) CLOS10 ADK A6,8 ADDRESS TO FILE NAME IN FPB LDK A4,8 NO OF CHAR IN FILE NAME OPEN20 EQU * LCR A3,A9 GET ON CHAR SCR A3,A6 STORE ONE CHAR IN FPB ADKL A9,1 ADK A6,1 SUK A4,1 RB(NZ) OPEN20 EJECT * * GET VOLUME NAME AND STORE IT IN FPB CALL I:EVA0 ADK A6,2 ADDRESS TO VOLUME IN FPB LDK A4,6 NO OF CHAR IN VOLUME NAME OPEN40 EQU * LCR A3,A9 SCR A3,A6 STORE ONE CHAR IN FPB ADKL A9,1 ADK A6,1 SUK A4,1 RB(NZ) OPEN40 LDK A7,/A1 LOAD ORDER CODE SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING LKM DATA 15 AD A12,-12,A13 RESTORE CREDIT RETADR * STORE FILE CODE IN FILE CODE BUFFER LC A3,1,A8 STR A3,A10 RB READ40 CHEC ON ERROR CODE EJECT * * CONVERT A BCD-ITEM TO TWO BINARY-ITEMS * * CALL BCDBIN,BCD,BINMS,BINLS * BCDBIN EQU * CALL I:EVA0 GET AD TO BCD CALL T:BCDB CONVERT WITH RESULT IN A1,A2 STR A1,A14 SAVE A1 ON STACK ST A2,-2,A14 SAVE A2 ON STACK SUKL A14,4 UPDATE STACK-POINTER CALL I:EVA0 GET ADR TO BINMS LD A1,4,A14 GET VALUE OF BINMS STR A1,A9 PUT VALUE IN BINMS CALL I:EVA0 GET AD TO BINLS LD A2,2,A14 GET VALUE OF BINLS STR A2,A9 PUT VALUR IN BINLS ADKL A14,4 UPDATE STACKPOINTER ABL I:RT1 RETURN TO CALL-MODULE EJECT * * CONVERT TWO BINARY-ITEMS TO A BCD-ITEM * * CALL BINBCD,BINMS,BINLS,BCD * BINBCD EQU * CALL I:EVA0 GET ADR OF BINMS LDR* A9,A9 GET VALUE OF BINMS STR A9,A14 SAVE A9 ON STACK SUKL A14,2 UPDATE STACK-POINTER CALL I:EVA0 GET ADR OF BINLS LDR* A9,A9 GET VALUE OF BINLS STR A9,A14 SAVE A9 ON STACK SUKL A14,2 UPDATE STACK-POINTER CALL I:EVA0 GET ADR TO BCD ADKL A14,4 UPDATE STACKPOINTER LDR* A2,A14 GET VALUE OF BINMS LD A1,-2,A14 GET VALUE OF BINLS CALL T:BINB CONVERT WITH BCD UPDATED ABL I:RT1 RETURN TO CALLING MODULE EJECT RCGET EQU * CALL I:EVA0 GET PARAM. ONE LDR* A4,A9 GET CONTENTS OF PAR1 CALL I:EVA0 GET PARAM. TWO LDKL A2,/396C INSTRUCTION SRL A1,12 LDK A3,4 LOOPCOUNTER RC10 EQU * LDR A1,A4 EXR A2 EXECUTE INSTRUCTION ANK A1,/F PICK ONE NUMERIC CWK A1,9 CONVERT BIN -> ASCII RF(G) RC20 CONVERT BIN -> ASCII ADK A1,/30 -"- RF RC30 -"- RC20 EQU * -"- ADK A1,/37 -"- RC30 EQU * -"- SCR A1,A9 STORE IN PARAM.2 ADKL A9,1 SUK A2,4 MODIFY SHIFTINSTR. SUK A3,1 LOOP-COUNTER RB(P) RC10 JMP CR>0 ABL I:RT1 EJECT * * * GET DIMENSION OF INDEXED VARIABLE AND LENGTH * * SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION * * ITEM(W1) = CURRENT ITEM * LENGTH = BIN HOLDING ITEM LENGTH * DIMENSION = BIN HOLDING NO. OF ELEMENTS * * * GETIND EQU * CALL I:EVA0 ADDRESS TO ITEM LD A10,-6,A14 READ DIMENSION STORED BYE I:EVA LDR A7,A5 COPY END ADDRESS SUR A7,A9 CALCULATE ITEM LENGTH CALL I:EVA0 ADDRESS TO LENGTH ITEM STR A7,A9 STORE LENGTH CALL I:EVA0 ADDRESS TO DIMENSION ITEM STR A10,A9 STORE DIMENSION ABL I:RT1 END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT WUASS W,REL=2.3,841211,870155940230«, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…004e Head {h00=0x0010, h01=0x0050, text=»** HISTORY: «, t00=0x0000, t01=0x003e}
0x004e…0056 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x0056…0094 Head {h00=0x003a, h01=0x0050, text=»** 84-12-11/CJ I.C. WSM-UTIL <-> TOSSUT REL13 IMPL.«, t00=0x0000, t01=0x005a}
0x0094…00d2 Head {h00=0x003a, h01=0x0050, text=»** 83-10-06/MAER CHECK OF TOSS FORMATTED DISC ADDED. «, t00=0x0000, t01=0x0098}
0x00d2…00f8 Head {h00=0x0022, h01=0x0050, text=»** 83-02-28/MAER RELEASE 1.O «, t00=0x0000, t01=0x00d6}
0x00f8…0134 Head {h00=0x0038, h01=0x0050, text=»** 83-02-09/MAER "RETRIES-PERFORMED"-BIT MASKED OUT«, t00=0x0000, t01=0x00fc}
0x0134…0142 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x0138}
0x0142…014a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0146}
0x014a…0160 Head {h00=0x0012, h01=0x0050, text=» ENTRY GIPLFC «, t00=0x0000, t01=0x014e}
0x0160…0176 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHANFC «, t00=0x0000, t01=0x0164}
0x0176…018c Head {h00=0x0012, h01=0x0050, text=» ENTRY CREVOL «, t00=0x0000, t01=0x017a}
0x018c…01a2 Head {h00=0x0012, h01=0x0050, text=» ENTRY CREFIL «, t00=0x0000, t01=0x0190}
0x01a2…01b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY DELFIL «, t00=0x0001, t01=0x0016}
0x01b8…01ce Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVOL «, t00=0x0001, t01=0x002c}
0x01ce…01e4 Head {h00=0x0012, h01=0x0050, text=» ENTRY COPYDD «, t00=0x0001, t01=0x0042}
0x01e4…01fa Head {h00=0x0012, h01=0x0050, text=» ENTRY PRINTF «, t00=0x0001, t01=0x0058}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» ENTRY CHVOL«, t00=0x0001, t01=0x006e}
0x020e…0224 Head {h00=0x0012, h01=0x0050, text=» ENTRY SURVEY «, t00=0x0001, t01=0x0082}
0x0224…023a Head {h00=0x0012, h01=0x0050, text=» ENTRY RDSECT «, t00=0x0001, t01=0x0098}
0x023a…0250 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRSECT «, t00=0x0001, t01=0x00ae}
0x0250…0266 Head {h00=0x0012, h01=0x0050, text=» ENTRY READDK «, t00=0x0001, t01=0x00c4}
0x0266…027c Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITDK «, t00=0x0001, t01=0x00da}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=» ENTRY OPENF«, t00=0x0001, t01=0x00f0}
0x0290…02a6 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLOSEF «, t00=0x0001, t01=0x0104}
0x02a6…02bc Head {h00=0x0012, h01=0x0050, text=» ENTRY BCDBIN «, t00=0x0001, t01=0x011a}
0x02bc…02d2 Head {h00=0x0012, h01=0x0050, text=» ENTRY BINBCD «, t00=0x0001, t01=0x0130}
0x02d2…02e6 Head {h00=0x0010, h01=0x0050, text=» ENTRY RCGET«, t00=0x0001, t01=0x0146}
0x02e6…02fc Head {h00=0x0012, h01=0x0050, text=» ENTRY GETIND «, t00=0x0001, t01=0x015a}
0x02fc…030a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0170}
0x030a…0312 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x017e}
0x0312…0328 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0001, t01=0x0186}
0x0328…0332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000c}
0x0332…0348 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0002, t01=0x0016}
0x0348…035c Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0002, t01=0x002c}
0x035c…0372 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:LOFS «, t00=0x0002, t01=0x0040}
0x0372…0388 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:BCDB «, t00=0x0002, t01=0x0056}
0x0388…039e Head {h00=0x0012, h01=0x0050, text=» EXTRN T:BINB «, t00=0x0002, t01=0x006c}
0x039e…03ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0082}
0x03ac…03b4 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0090}
0x03b4…03d2 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F6A1,16 «, t00=0x0002, t01=0x0098}
0x03d2…03da Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00b6}
0x03da…03f0 Head {h00=0x0012, h01=0x0050, text=»TOSS1 EQU 'TO'«, t00=0x0002, t01=0x00be}
0x03f0…0406 Head {h00=0x0012, h01=0x0050, text=»TOSS2 EQU 'SS'«, t00=0x0002, t01=0x00d4}
0x0406…041c Head {h00=0x0012, h01=0x0050, text=»TOSS3 EQU ' R'«, t00=0x0002, t01=0x00ea}
0x041c…0432 Head {h00=0x0012, h01=0x0050, text=»TOSS4 EQU 'EL'«, t00=0x0002, t01=0x0100}
0x0432…0440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0116}
0x0440…0478 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0002, t01=0x0124}
0x0478…0482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015c}
0x0482…04b6 Head {h00=0x0030, h01=0x0050, text=»* PREPARE FOR INTERTASK WSMUTIL <-> TOSSUT «, t00=0x0002, t01=0x0166}
0x04b6…04c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000a}
0x04c0…04f8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0003, t01=0x0014}
0x04f8…0500 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x004c}
0x0500…0516 Head {h00=0x0012, h01=0x0050, text=»* ORDER-CODES«, t00=0x0003, t01=0x0054}
0x0516…051e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x006a}
0x051e…054c Head {h00=0x002a, h01=0x0050, text=»RDCODE EQU /0082 READ-WITH-WAIT CODE «, t00=0x0003, t01=0x0072}
0x054c…057a Head {h00=0x002a, h01=0x0050, text=»WRCODE EQU /0086 WRITE-WITH-WAIT CODE«, t00=0x0003, t01=0x00a0}
0x057a…05a4 Head {h00=0x0026, h01=0x0050, text=»TOCODE EQU /00B9 SET TIME OUT CODE«, t00=0x0003, t01=0x00ce}
0x05a4…05ac Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00f8}
0x05ac…05c4 Head {h00=0x0014, h01=0x0050, text=»* ECB FOR I. C.«, t00=0x0003, t01=0x0100}
0x05c4…05cc Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0118}
0x05cc…05ec Head {h00=0x001c, h01=0x0050, text=»INTECB EQU * ECB BUFFER «, t00=0x0003, t01=0x0120}
0x05ec…060e Head {h00=0x001e, h01=0x0050, text=»ECBFC DATA /0000 FILE CODE«, t00=0x0003, t01=0x0140}
0x060e…0632 Head {h00=0x0020, h01=0x0050, text=»ECBBUF DATA 0 BUFFER ADDRESS«, t00=0x0003, t01=0x0162}
0x0632…0658 Head {h00=0x0022, h01=0x0050, text=»ECBREQ DATA 80 REQUIRED LENGTH«, t00=0x0003, t01=0x0186}
0x0658…067e Head {h00=0x0022, h01=0x0050, text=»ECBEFF DATA 0 EFFECTIVE LENGTH«, t00=0x0004, t01=0x001c}
0x067e…069e Head {h00=0x001c, h01=0x0050, text=»ECBRC DATA 0 RETURN CODE«, t00=0x0004, t01=0x0042}
0x069e…06c0 Head {h00=0x001e, h01=0x0050, text=»ECBCW DATA 0 CONTROL WORD «, t00=0x0004, t01=0x0062}
0x06c0…06e4 Head {h00=0x0020, h01=0x0050, text=»ECBCW2 DATA 0 CONTROLWORD 2 «, t00=0x0004, t01=0x0084}
0x06e4…06ec Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00a8}
0x06ec…0724 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0004, t01=0x00b0}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072e…0764 Head {h00=0x0032, h01=0x0050, text=»* PREPARE FOR GETTING FILE-CODE OF IPL DEVICE«, t00=0x0004, t01=0x00f2}
0x0764…076e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0128}
0x076e…07a6 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0004, t01=0x0132}
0x07a6…07ae Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x016a}
0x07ae…07e4 Head {h00=0x0032, h01=0x0050, text=»SCTIPL EQU /030C POS FOR IPL-DEVICE IN SYSTAB «, t00=0x0004, t01=0x0172}
0x07e4…080e Head {h00=0x0026, h01=0x0050, text=»IPLFC1 DATA '#MU1',SCTIPL,IPLBUF,2«, t00=0x0005, t01=0x0018}
0x080e…0824 Head {h00=0x0012, h01=0x0050, text=»IPLBUF DATA 0 «, t00=0x0005, t01=0x0042}
0x0824…0832 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0058}
0x0832…086a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0005, t01=0x0066}
0x086a…0874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x0874…089c Head {h00=0x0024, h01=0x0050, text=»* GET FILE-CODE FOR IPL DEVICE «, t00=0x0005, t01=0x00a8}
0x089c…08a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a6…08d4 Head {h00=0x002a, h01=0x0050, text=»* CALL: CALL GIPLFC,<TIDBIN>,<IPLFC>«, t00=0x0005, t01=0x00da}
0x08d4…08de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08de…0916 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0005, t01=0x0112}
0x0916…091e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x014a}
0x091e…0932 Head {h00=0x0010, h01=0x0050, text=»GIPLFC EQU *«, t00=0x0005, t01=0x0152}
0x0932…095c Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 A9 -> RECEIVING TASK «, t00=0x0005, t01=0x0166}
0x095c…0984 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A9 LOAD REC. TID IN A1 «, t00=0x0005, t01=0x0190}
0x0984…09ae Head {h00=0x0026, h01=0x0050, text=» ST A1,IPLFC1+2 STORE RECEVING TID«, t00=0x0006, t01=0x0028}
0x09ae…09c6 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,IPLFC1 «, t00=0x0006, t01=0x0052}
0x09c6…09fa Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0006, t01=0x006a}
0x09fa…0a06 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0006, t01=0x009e}
0x0a06…0a1e Head {h00=0x0014, h01=0x0050, text=» DATA 21 GET FC «, t00=0x0006, t01=0x00aa}
0x0a1e…0a4c Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0006, t01=0x00c2}
0x0a4c…0a76 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADRESS TO <IPLFC>«, t00=0x0006, t01=0x00f0}
0x0a76…0a9a Head {h00=0x0020, h01=0x0050, text=» LD A1,IPLBUF LOAD FC IN A1 «, t00=0x0006, t01=0x011a}
0x0a9a…0abc Head {h00=0x001e, h01=0x0050, text=» STR A1,A9 STORE FILECODE «, t00=0x0006, t01=0x013e}
0x0abc…0ad6 Head {h00=0x0016, h01=0x0050, text=» ABL I:RT1 RETURN «, t00=0x0006, t01=0x0160}
0x0ad6…0ae4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x017a}
0x0ae4…0aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aee…0b12 (7, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* CHANGE FILE CODE IN ECB «, t00=0x0007, t01=0x0004}
0x0b12…0b24 Head {h00=0x000e, h01=0x0050, text=»* CALL: «, t00=0x0007, t01=0x0028}
0x0b24…0b52 Head {h00=0x002a, h01=0x0050, text=»* CALL CHANFC,DATASET,FILECODE «, t00=0x0007, t01=0x003a}
0x0b52…0b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5c…0b70 Head {h00=0x0010, h01=0x0050, text=»CHANFC EQU *«, t00=0x0007, t01=0x0072}
0x0b70…0bae Head {h00=0x003a, h01=0x0050, text=» CALL T:FDSP GET DAT-ENTRY IN A3 AND DSCB-ENTRY IN A8 «, t00=0x0007, t01=0x0086}
0x0bae…0bcc Head {h00=0x001a, h01=0x0050, text=» LDR A6,A3 AND SAVE A3«, t00=0x0007, t01=0x00c4}
0x0bcc…0bf2 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ADDR. TO BIN «, t00=0x0007, t01=0x00e2}
0x0bf2…0c10 Head {h00=0x001a, h01=0x0050, text=» LC A3,1,A9 GET NEW FC«, t00=0x0007, t01=0x0108}
0x0c10…0c34 Head {h00=0x0020, h01=0x0050, text=» SC A3,1,A6 AND STORE IN DAT«, t00=0x0007, t01=0x0126}
0x0c34…0c54 Head {h00=0x001c, h01=0x0050, text=» SC A3,1,A8 AND IN DSCB «, t00=0x0007, t01=0x014a}
0x0c54…0c66 Head {h00=0x000e, h01=0x0050, text=» ABL RETUR«, t00=0x0007, t01=0x016a}
0x0c66…0c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x017c}
0x0c74…0c8e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0007, t01=0x018a}
0x0c8e…0ca6 Head {h00=0x0014, h01=0x0050, text=»* CREATE VOLUME«, t00=0x0008, t01=0x0014}
0x0ca6…0cc0 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x002c}
0x0cc0…0cd4 Head {h00=0x0010, h01=0x0050, text=»CREVOL EQU *«, t00=0x0008, t01=0x0046}
0x0cd4…0cea Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'CR' «, t00=0x0008, t01=0x005a}
0x0cea…0d00 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'V ' «, t00=0x0008, t01=0x0070}
0x0d00…0d12 Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x0008, t01=0x0086}
0x0d12…0d2a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0008, t01=0x0098}
0x0d2a…0d40 Head {h00=0x0012, h01=0x0050, text=»* CREATE FILE«, t00=0x0008, t01=0x00b0}
0x0d40…0d58 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0008, t01=0x00c6}
0x0d58…0d6c Head {h00=0x0010, h01=0x0050, text=»CREFIL EQU *«, t00=0x0008, t01=0x00de}
0x0d6c…0d82 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'CR' «, t00=0x0008, t01=0x00f2}
0x0d82…0d98 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'F ' «, t00=0x0008, t01=0x0108}
0x0d98…0daa Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x0008, t01=0x011e}
0x0daa…0db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dbe…0dd6 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0008, t01=0x0144}
0x0dd6…0dec Head {h00=0x0012, h01=0x0050, text=»* DELETE FILE«, t00=0x0008, t01=0x015c}
0x0dec…0e06 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0008, t01=0x0172}
0x0e06…0e1a Head {h00=0x0010, h01=0x0050, text=»DELFIL EQU *«, t00=0x0008, t01=0x018c}
0x0e1a…0e30 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'DL' «, t00=0x0009, t01=0x0010}
0x0e30…0e46 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'F ' «, t00=0x0009, t01=0x0026}
0x0e46…0e58 Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x0009, t01=0x003c}
0x0e58…0e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e62…0e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0058}
0x0e6c…0e7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0062}
0x0e7a…0e92 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x0070}
0x0e92…0ea6 Head {h00=0x0010, h01=0x0050, text=»* PRINT FILE«, t00=0x0009, t01=0x0088}
0x0ea6…0ebe Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0009, t01=0x009c}
0x0ebe…0ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b4}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00be}
0x0ed2…0ee6 Head {h00=0x0010, h01=0x0050, text=»PRINTF EQU *«, t00=0x0009, t01=0x00c8}
0x0ee6…0efc Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'PR' «, t00=0x0009, t01=0x00dc}
0x0efc…0f12 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'F ' «, t00=0x0009, t01=0x00f2}
0x0f12…0f24 Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x0009, t01=0x0108}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f2e…0f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f38…0f56 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0009, t01=0x012e}
0x0f56…0f72 Head {h00=0x0018, h01=0x0050, text=»* COPY DISK TO DISK«, t00=0x0009, t01=0x014c}
0x0f72…0f90 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0009, t01=0x0168}
0x0f90…0fa4 Head {h00=0x0010, h01=0x0050, text=»COPYDD EQU *«, t00=0x0009, t01=0x0186}
0x0fa4…0fba Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'CD' «, t00=0x000a, t01=0x000a}
0x0fba…0fd0 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'D ' «, t00=0x000a, t01=0x0020}
0x0fd0…0fe2 Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x000a, t01=0x0036}
0x0fe2…0ff4 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x000a, t01=0x0048}
0x0ff4…1006 Head {h00=0x000e, h01=0x0050, text=»* PVC * «, t00=0x000a, t01=0x005a}
0x1006…1018 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x000a, t01=0x006c}
0x1018…102c Head {h00=0x0010, h01=0x0050, text=»SURVEY EQU *«, t00=0x000a, t01=0x007e}
0x102c…1042 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,'PV' «, t00=0x000a, t01=0x0092}
0x1042…1058 Head {h00=0x0012, h01=0x0050, text=» LDKL A6,'C ' «, t00=0x000a, t01=0x00a8}
0x1058…106a Head {h00=0x000e, h01=0x0050, text=» RF UTINF «, t00=0x000a, t01=0x00be}
0x106a…1078 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d0}
0x1078…1082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1082…10b6 Head {h00=0x0030, h01=0x0050, text=»* PERFORME A CALL TO ONE OF THE ROUTINES«, t00=0x000a, t01=0x00e8}
0x10b6…10ea Head {h00=0x0030, h01=0x0050, text=»* CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC«, t00=0x000a, t01=0x011c}
0x10ea…111c Head {h00=0x002e, h01=0x0050, text=»* A1 ADDRESS TO THE WANTED ROUTINE «, t00=0x000a, t01=0x0150}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…113a Head {h00=0x0010, h01=0x0050, text=»UTINF EQU * «, t00=0x000a, t01=0x018c}
0x113a…115e Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 A9 = :A PBLOCK «, t00=0x000b, t01=0x0010}
0x115e…1188 Head {h00=0x0026, h01=0x0050, text=» STR A4,A9 STORE TOSSUT CMD 1WORD «, t00=0x000b, t01=0x0034}
0x1188…11b2 Head {h00=0x0026, h01=0x0050, text=» ST A6,2,A9 STORE TOSSUT CMD 2WORD«, t00=0x000b, t01=0x005e}
0x11b2…11da Head {h00=0x0024, h01=0x0050, text=» LDR A4,A9 SAVE ADRESS TO PBLOCK«, t00=0x000b, t01=0x0088}
0x11da…11f4 Head {h00=0x0016, h01=0x0050, text=» CALL I:EVA0 DUMMY«, t00=0x000b, t01=0x00b0}
0x11f4…120e Head {h00=0x0016, h01=0x0050, text=» CALL I:EVA0 DUMMY«, t00=0x000b, t01=0x00ca}
0x120e…1242 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000b, t01=0x00e4}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124c…127a Head {h00=0x002a, h01=0x0050, text=»* SET TIME-OUT ON OUTPUT FILECODE 99 «, t00=0x000b, t01=0x0122}
0x127a…1284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0150}
0x1284…12b8 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000b, t01=0x015a}
0x12b8…12e2 Head {h00=0x0026, h01=0x0050, text=» LDKL A8,INTECB LOAD ADRESS TO ECB«, t00=0x000b, t01=0x018e}
0x12e2…130e Head {h00=0x0028, h01=0x0050, text=» LDKL A6,/0099 LOAD OUTPUT FILECODE «, t00=0x000c, t01=0x0028}
0x130e…133a Head {h00=0x0028, h01=0x0050, text=» STR A6,A8 STORE FILECODE IN ECB BUF«, t00=0x000c, t01=0x0054}
0x133a…135c Head {h00=0x001e, h01=0x0050, text=» LDKL A6,10 LOAD TIME-OUT «, t00=0x000c, t01=0x0080}
0x135c…138e Head {h00=0x002e, h01=0x0050, text=» ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD«, t00=0x000c, t01=0x00a2}
0x138e…13bc Head {h00=0x002a, h01=0x0050, text=» LDKL A7,TOCODE PUT TIMEOUT CODE TO A7«, t00=0x000c, t01=0x00d4}
0x13bc…13f0 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x000c, t01=0x0102}
0x13f0…13fc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000c, t01=0x0136}
0x13fc…140c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000c, t01=0x0142}
0x140c…143a Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x000c, t01=0x0152}
0x143a…1448 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0180}
0x1448…1478 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000c, t01=0x018e}
0x1478…1482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x1482…14ba Head {h00=0x0034, h01=0x0050, text=»* SEND A BUFFER CONTAINING TOSSUTILITY COMMAND «, t00=0x000d, t01=0x0038}
0x14ba…14f8 Head {h00=0x003a, h01=0x0050, text=»* TO TOSSUTIL APPLICATION VIA INTERTASK COMMUNICATION«, t00=0x000d, t01=0x0070}
0x14f8…1502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x1502…1532 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000d, t01=0x00b8}
0x1532…1558 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,'TU' MOVE TID TO ... «, t00=0x000d, t01=0x00e8}
0x1558…1582 Head {h00=0x0026, h01=0x0050, text=» ST A6,10,A8 ...CONTROL WORD «, t00=0x000d, t01=0x010e}
0x1582…15ac Head {h00=0x0026, h01=0x0050, text=» ST A4,2,A8 STORE BUF ADDR TO ECB «, t00=0x000d, t01=0x0138}
0x15ac…15d8 Head {h00=0x0028, h01=0x0050, text=» LDKL A7,WRCODE PUT WRITE CODE TO A7«, t00=0x000d, t01=0x0162}
0x15d8…160c Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x000d, t01=0x018e}
0x160c…1618 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x0032}
0x1618…1628 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000e, t01=0x003e}
0x1628…1656 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x000e, t01=0x004e}
0x1656…167a Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD ECB RETCOD «, t00=0x000e, t01=0x007c}
0x167a…169c Head {h00=0x001e, h01=0x0050, text=» RF(Z) GOON1 GO ON IF CR=0«, t00=0x000e, t01=0x00a0}
0x169c…16c2 Head {h00=0x0022, h01=0x0050, text=» LDK A1,20 LOAD I/O-ERROR 0020«, t00=0x000e, t01=0x00c2}
0x16c2…16d2 Head {h00=0x000c, h01=0x0050, text=» RF RET2«, t00=0x000e, t01=0x00e8}
0x16d2…16e6 Head {h00=0x0010, h01=0x0050, text=»GOON1 EQU * «, t00=0x000e, t01=0x00f8}
0x16e6…171a Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000e, t01=0x010c}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0140}
0x1724…1750 Head {h00=0x0028, h01=0x0050, text=»* SET TIME-OUT ON INPUT FILECODE 98«, t00=0x000e, t01=0x014a}
0x1750…175a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0176}
0x175a…178e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000e, t01=0x0180}
0x178e…17b8 Head {h00=0x0026, h01=0x0050, text=» LDKL A6,/0098 LOAD INPUT FILECODE«, t00=0x000f, t01=0x0024}
0x17b8…17e4 Head {h00=0x0028, h01=0x0050, text=» STR A6,A8 STORE FILECODE IN ECB BUF«, t00=0x000f, t01=0x004e}
0x17e4…1806 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,-1 LOAD TIME-OUT «, t00=0x000f, t01=0x007a}
0x1806…1838 Head {h00=0x002e, h01=0x0050, text=» ST A6,10,A8 STORE TIME-OUT IN CONTROLWORD«, t00=0x000f, t01=0x009c}
0x1838…1866 Head {h00=0x002a, h01=0x0050, text=» LDKL A7,TOCODE PUT TIMEOUT CODE TO A7«, t00=0x000f, t01=0x00ce}
0x1866…189a Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x000f, t01=0x00fc}
0x189a…18a6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x0130}
0x18a6…18b6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000f, t01=0x013c}
0x18b6…18e4 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x000f, t01=0x014c}
0x18e4…18f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x017a}
0x18f2…1922 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000f, t01=0x0188}
0x1922…192c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x192c…1968 Head {h00=0x0038, h01=0x0050, text=»* SETUP INTERTASK COMMUNICATION TO RECEIVE A BUFFER«, t00=0x0010, t01=0x0032}
0x1968…1990 Head {h00=0x0024, h01=0x0050, text=»* FROM TOSSUTILITY APPLICATION «, t00=0x0010, t01=0x006e}
0x1990…199a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x199a…19ca Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0010, t01=0x00a0}
0x19ca…19f0 Head {h00=0x0022, h01=0x0050, text=» LDKL A6,'TU' MOVE TID TO ... «, t00=0x0010, t01=0x00d0}
0x19f0…1a1a Head {h00=0x0026, h01=0x0050, text=» ST A6,10,A8 ...CONTROL WORD «, t00=0x0010, t01=0x00f6}
0x1a1a…1a48 Head {h00=0x002a, h01=0x0050, text=» LDKL A7,RDCODE PUT READ CODE INTO A7 «, t00=0x0010, t01=0x0120}
0x1a48…1a7c Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0010, t01=0x014e}
0x1a7c…1a88 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0182}
0x1a88…1a98 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x018e}
0x1a98…1ac6 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0011, t01=0x000e}
0x1ac6…1aea Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD ECB RETCOD «, t00=0x0011, t01=0x003c}
0x1aea…1b0c Head {h00=0x001e, h01=0x0050, text=» RF(Z) GOON2 GO ON IF CR=0«, t00=0x0011, t01=0x0060}
0x1b0c…1b32 Head {h00=0x0022, h01=0x0050, text=» LDK A1,20 LOAD I/O-ERROR 0020«, t00=0x0011, t01=0x0082}
0x1b32…1b42 Head {h00=0x000c, h01=0x0050, text=» RF RET2«, t00=0x0011, t01=0x00a8}
0x1b42…1b56 Head {h00=0x0010, h01=0x0050, text=»GOON2 EQU * «, t00=0x0011, t01=0x00b8}
0x1b56…1b78 Head {h00=0x001e, h01=0x0050, text=» LDR* A1,A4 LOAD TOSSUT RC«, t00=0x0011, t01=0x00cc}
0x1b78…1b88 Head {h00=0x000c, h01=0x0050, text=» RF RET2«, t00=0x0011, t01=0x00ee}
0x1b88…1b96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00fe}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1ba0…1bce Head {h00=0x002a, h01=0x0050, text=»* GET VOLUME NAME TO A STRING VARIABEL«, t00=0x0011, t01=0x0116}
0x1bce…1c06 Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD«, t00=0x0011, t01=0x0144}
0x1c06…1c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017c}
0x1c10…1c24 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x0011, t01=0x0186}
0x1c24…1c50 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0012, t01=0x000a}
0x1c50…1c7e Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 GET BUFFER ADDRESS TO A9 «, t00=0x0012, t01=0x0036}
0x1c7e…1caa Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 MAKE BUFFER ADDRESS EVEN «, t00=0x0012, t01=0x0064}
0x1caa…1cc0 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x0012, t01=0x0090}
0x1cc0…1cf0 Head {h00=0x002c, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS IN DSET«, t00=0x0012, t01=0x00a6}
0x1cf0…1d16 Head {h00=0x0022, h01=0x0050, text=» LDK A6,6 REQUESTED LENGTH =6 «, t00=0x0012, t01=0x00d6}
0x1d16…1d4e Head {h00=0x0034, h01=0x0050, text=» ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS«, t00=0x0012, t01=0x00fc}
0x1d4e…1d78 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO VOLNAM«, t00=0x0012, t01=0x0134}
0x1d78…1d9c Head {h00=0x0020, h01=0x0050, text=» LDK A7,/80 LOAD ORDER CODE «, t00=0x0012, t01=0x015e}
0x1d9c…1dcc Head {h00=0x002c, h01=0x0050, text=»* A7 ORDER CODE FOR TEST STATUS «, t00=0x0012, t01=0x0182}
0x1dcc…1dee Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS «, t00=0x0013, t01=0x0022}
0x1dee…1e22 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0013, t01=0x0044}
0x1e22…1e2e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0078}
0x1e2e…1e3e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0013, t01=0x0084}
0x1e3e…1e6c Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0013, t01=0x0094}
0x1e6c…1e74 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00c2}
0x1e74…1e98 Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD RETURN CODE«, t00=0x0013, t01=0x00ca}
0x1e98…1eca Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/F6FF MASK OUT BIT FOR 1MB FLOPPY«, t00=0x0013, t01=0x00ee}
0x1eca…1eec Head {h00=0x001e, h01=0x0050, text=» AND "RETRIES PERFORMED"«, t00=0x0013, t01=0x0120}
0x1eec…1f00 Head {h00=0x0010, h01=0x0050, text=» RF(NZ) RET2«, t00=0x0013, t01=0x0142}
0x1f00…1f0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0156}
0x1f0e…1f16 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0164}
0x1f16…1f54 Head {h00=0x003a, h01=0x0050, text=»* STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) «, t00=0x0013, t01=0x016c}
0x1f54…1f7a Head {h00=0x0022, h01=0x0050, text=»* IN CALLERS BUFFER VOLNAM«, t00=0x0014, t01=0x001a}
0x1f7a…1f82 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0040}
0x1f82…1faa Head {h00=0x0024, h01=0x0050, text=» LD A1,2,A8 LOAD BUFFER ADDRESS «, t00=0x0014, t01=0x0048}
0x1faa…1fd6 Head {h00=0x0028, h01=0x0050, text=» LDK A2,6 NO OF BYTES IN VOLUME NAME«, t00=0x0014, t01=0x0070}
0x1fd6…1fe8 Head {h00=0x000e, h01=0x0050, text=»LOOP EQU *«, t00=0x0014, t01=0x009c}
0x1fe8…1ffa Head {h00=0x000e, h01=0x0050, text=» LCR A3,A1«, t00=0x0014, t01=0x00ae}
0x1ffa…200c Head {h00=0x000e, h01=0x0050, text=» SCR A3,A9«, t00=0x0014, t01=0x00c0}
0x200c…201e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0014, t01=0x00d2}
0x201e…2030 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0014, t01=0x00e4}
0x2030…2042 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0014, t01=0x00f6}
0x2042…2056 Head {h00=0x0010, h01=0x0050, text=» RB(P) LOOP «, t00=0x0014, t01=0x0108}
0x2056…2068 Head {h00=0x000e, h01=0x0050, text=»RET EQU * «, t00=0x0014, t01=0x011c}
0x2068…208c Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD RETURN CODE«, t00=0x0014, t01=0x012e}
0x208c…209e Head {h00=0x000e, h01=0x0050, text=»RET1 EQU *«, t00=0x0014, t01=0x0152}
0x209e…20d0 Head {h00=0x002e, h01=0x0050, text=» ANKL A1,/F6FF MASK OUT BIT FOR 1MB FLOPPY«, t00=0x0014, t01=0x0164}
0x20d0…20f2 Head {h00=0x001e, h01=0x0050, text=» AND "RETRIES PERFORMED"«, t00=0x0015, t01=0x0008}
0x20f2…2104 Head {h00=0x000e, h01=0x0050, text=»RET2 EQU *«, t00=0x0015, t01=0x002a}
0x2104…2122 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 SAVE RETCOD«, t00=0x0015, t01=0x003c}
0x2122…2136 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0015, t01=0x005a}
0x2136…215a Head {h00=0x0020, h01=0x0050, text=» STR A6,A9 STORE RETURN-CODE«, t00=0x0015, t01=0x006e}
0x215a…216c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0015, t01=0x0092}
0x216c…2180 Head {h00=0x0010, h01=0x0050, text=» RF(Z) RET3 «, t00=0x0015, t01=0x00a4}
0x2180…2192 Head {h00=0x000e, h01=0x0050, text=» LDK A6,1 «, t00=0x0015, t01=0x00b8}
0x2192…21a4 Head {h00=0x000e, h01=0x0050, text=»RET3 EQU *«, t00=0x0015, t01=0x00ca}
0x21a4…21c8 Head {h00=0x0020, h01=0x0050, text=» LD A4,2,A13 GET STACK BASE «, t00=0x0015, t01=0x00dc}
0x21c8…21ee Head {h00=0x0022, h01=0x0050, text=» SC A6,-2,A4 STORE CR ON STACK«, t00=0x0015, t01=0x0100}
0x21ee…2202 Head {h00=0x0010, h01=0x0050, text=»RETUR EQU * «, t00=0x0015, t01=0x0126}
0x2202…2214 Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0015, t01=0x013a}
0x2214…2222 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x014c}
0x2222…2242 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0015, t01=0x015a}
0x2242…2262 Head {h00=0x001c, h01=0x0050, text=»* CHANGE VOLUME NAME *«, t00=0x0015, t01=0x017a}
0x2262…2282 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0016, t01=0x000a}
0x2282…2296 Head {h00=0x0010, h01=0x0050, text=»CHVOL EQU * «, t00=0x0016, t01=0x002a}
0x2296…22aa Head {h00=0x0010, h01=0x0050, text=» CALL T:FDSP«, t00=0x0016, t01=0x003e}
0x22aa…22ca Head {h00=0x001c, h01=0x0050, text=» CM 10,A8 SECTOR NO. = 0«, t00=0x0016, t01=0x0052}
0x22ca…22dc Head {h00=0x000e, h01=0x0050, text=» CM 12,A8 «, t00=0x0016, t01=0x0072}
0x22dc…22f6 Head {h00=0x0016, h01=0x0050, text=»CHV100 LDKL A1,256«, t00=0x0016, t01=0x0084}
0x22f6…2320 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 STORE REQUESTED LENGTH«, t00=0x0016, t01=0x009e}
0x2320…2334 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0016, t01=0x00c8}
0x2334…235c Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADRESS «, t00=0x0016, t01=0x00dc}
0x235c…2374 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/B7 LOCK«, t00=0x0016, t01=0x0104}
0x2374…23a8 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0016, t01=0x011c}
0x23a8…23b4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x0150}
0x23b4…23c4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0016, t01=0x015c}
0x23c4…23f2 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0016, t01=0x016c}
0x23f2…2416 Head {h00=0x0020, h01=0x0050, text=» LD A6,8,A8 GET RETURN CODE «, t00=0x0017, t01=0x000a}
0x2416…2434 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/81 BASIC READ«, t00=0x0017, t01=0x002e}
0x2434…2468 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0017, t01=0x004c}
0x2468…2474 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x0080}
0x2474…2484 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0017, t01=0x008c}
0x2484…24b2 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0017, t01=0x009c}
0x24b2…24d6 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET VOLUME NAME«, t00=0x0017, t01=0x00ca}
0x24d6…24e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ee}
0x24e4…250c Head {h00=0x0024, h01=0x0050, text=» LD A7,2,A8 LOAD BUFFER POINTER «, t00=0x0017, t01=0x00fc}
0x250c…2536 Head {h00=0x0026, h01=0x0050, text=» ML 4,32,A7 A1-A4 := TOSS DISC ID «, t00=0x0017, t01=0x0124}
0x2536…2564 Head {h00=0x002a, h01=0x0050, text=» SUKL A1,TOSS1 CHECK IF TOSS FORMATTED«, t00=0x0017, t01=0x014e}
0x2564…257e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) NOTOSS -NO«, t00=0x0017, t01=0x017c}
0x257e…2594 Head {h00=0x0012, h01=0x0050, text=» SUKL A2,TOSS2«, t00=0x0018, t01=0x0008}
0x2594…25aa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) NOTOSS«, t00=0x0018, t01=0x001e}
0x25aa…25c0 Head {h00=0x0012, h01=0x0050, text=» SUKL A3,TOSS3«, t00=0x0018, t01=0x0034}
0x25c0…25d6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) NOTOSS«, t00=0x0018, t01=0x004a}
0x25d6…25ec Head {h00=0x0012, h01=0x0050, text=» SUKL A4,TOSS4«, t00=0x0018, t01=0x0060}
0x25ec…2602 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) NOTOSS«, t00=0x0018, t01=0x0076}
0x2602…2610 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x008c}
0x2610…2618 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x009a}
0x2618…2640 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x00a2}
0x2640…2668 Head {h00=0x0024, h01=0x0050, text=»* REPLACE CURRENT VOLUME NAME * «, t00=0x0018, t01=0x00ca}
0x2668…2690 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0018, t01=0x00f2}
0x2690…26be Head {h00=0x002a, h01=0x0050, text=» LDR A1,A7 THE DISC IS TOSS FORMATTED!«, t00=0x0018, t01=0x011a}
0x26be…26d0 Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x0018, t01=0x0148}
0x26d0…26f8 Head {h00=0x0024, h01=0x0050, text=»CHV200 LCR A3,A9 READ CHARACTER «, t00=0x0018, t01=0x015a}
0x26f8…271a Head {h00=0x001e, h01=0x0050, text=» SCR A3,A1 STORE CHARACTER«, t00=0x0018, t01=0x0182}
0x271a…272c Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0019, t01=0x0014}
0x272c…273e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0019, t01=0x0026}
0x273e…2750 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0019, t01=0x0038}
0x2750…2776 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) CHV200 IF NOT FINISHED«, t00=0x0019, t01=0x004a}
0x2776…2796 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/85 WRITE BASIC «, t00=0x0019, t01=0x0070}
0x2796…27ca Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0019, t01=0x0090}
0x27ca…27d6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00c4}
0x27d6…27e6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00d0}
0x27e6…2814 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0019, t01=0x00e0}
0x2814…2834 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0019, t01=0x010e}
0x2834…2868 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0019, t01=0x012e}
0x2868…2874 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x0162}
0x2874…2884 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x016e}
0x2884…28b2 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0019, t01=0x017e}
0x28b2…28dc Head {h00=0x0026, h01=0x0050, text=» LDK A1,0 INDICATE TOSS FORMATTED «, t00=0x001a, t01=0x001c}
0x28dc…28ee Head {h00=0x000e, h01=0x0050, text=» RF CHV300«, t00=0x001a, t01=0x0046}
0x28ee…291c Head {h00=0x002a, h01=0x0050, text=»NOTOSS EQU * NOT A TOSS FORMATTED DISC«, t00=0x001a, t01=0x0058}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/42 LOAD RETURN CODE«, t00=0x001a, t01=0x0086}
0x2940…2954 Head {h00=0x0010, h01=0x0050, text=»CHV300 EQU *«, t00=0x001a, t01=0x00aa}
0x2954…2966 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x001a, t01=0x00be}
0x2966…2998 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) CHV400 JUMP IF NOT TO BE UNLOADED «, t00=0x001a, t01=0x00d0}
0x2998…29b2 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/B8 UNLOCK«, t00=0x001a, t01=0x0102}
0x29b2…29e6 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x001a, t01=0x011c}
0x29e6…29f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0150}
0x29f2…2a02 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x015c}
0x2a02…2a30 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x001a, t01=0x016c}
0x2a30…2a44 Head {h00=0x0010, h01=0x0050, text=»CHV400 EQU *«, t00=0x001b, t01=0x000a}
0x2a44…2a62 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 TOSS DISC? «, t00=0x001b, t01=0x001e}
0x2a62…2a92 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) RET1 -NO, USE EXISTING A1-VALUE «, t00=0x001b, t01=0x003c}
0x2a92…2aa2 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x001b, t01=0x006c}
0x2aa2…2ab0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x007c}
0x2ab0…2aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x008a}
0x2aba…2aec Head {h00=0x002e, h01=0x0050, text=»* CALL WRSECT,DSET,RECNO,BUF,RETCOD«, t00=0x001b, t01=0x0094}
0x2aec…2af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c6}
0x2af6…2b28 Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x001b, t01=0x00d0}
0x2b28…2b6a Head {h00=0x003e, h01=0x0050, text=»* RECNO REALATIV SECTOR NO WITHIN THE FILE «, t00=0x001b, t01=0x0102}
0x2b6a…2b90 Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x001b, t01=0x0144}
0x2b90…2bc4 Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x001b, t01=0x016a}
0x2bc4…2bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bce…2bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bd8…2bec Head {h00=0x0010, h01=0x0050, text=»WRSECT EQU *«, t00=0x001c, t01=0x0022}
0x2bec…2c0e Head {h00=0x001e, h01=0x0050, text=» LDKL A11,/85 BASIC WRITE «, t00=0x001c, t01=0x0036}
0x2c0e…2c20 Head {h00=0x000e, h01=0x0050, text=» RF RDS000«, t00=0x001c, t01=0x0058}
0x2c20…2c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x006a}
0x2c2a…2c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0074}
0x2c34…2c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x007e}
0x2c3e…2c70 Head {h00=0x002e, h01=0x0050, text=»* CALL RDSECT,DSET,RECNO,BUF,RETCOD«, t00=0x001c, t01=0x0088}
0x2c70…2ca2 Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x001c, t01=0x00ba}
0x2ca2…2ce4 Head {h00=0x003e, h01=0x0050, text=»* RECNO REALATIV SECTOR NO WITHIN THE FILE «, t00=0x001c, t01=0x00ec}
0x2ce4…2d0a Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x001c, t01=0x012e}
0x2d0a…2d3e Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x001c, t01=0x0154}
0x2d3e…2d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0188}
0x2d48…2d52 (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d52…2d66 Head {h00=0x0010, h01=0x0050, text=»RDSECT EQU *«, t00=0x001d, t01=0x000e}
0x2d66…2d86 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/81 BASIC READ«, t00=0x001d, t01=0x0022}
0x2d86…2d9a Head {h00=0x0010, h01=0x0050, text=»RDS000 EQU *«, t00=0x001d, t01=0x0042}
0x2d9a…2dae Head {h00=0x0010, h01=0x0050, text=» CALL T:FDSP«, t00=0x001d, t01=0x0056}
0x2dae…2dc2 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x001d, t01=0x006a}
0x2dc2…2dd6 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A9 «, t00=0x001d, t01=0x007e}
0x2dd6…2de8 Head {h00=0x000e, h01=0x0050, text=» CM 10,A8 «, t00=0x001d, t01=0x0092}
0x2de8…2e10 Head {h00=0x0024, h01=0x0050, text=» ST A1,12,A8 STORE SECTOR NUMBER«, t00=0x001d, t01=0x00a4}
0x2e10…2e1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00cc}
0x2e1e…2e38 Head {h00=0x0016, h01=0x0050, text=»RDS100 LDKL A1,256«, t00=0x001d, t01=0x00da}
0x2e38…2e62 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 STORE REQUESTED LENGTH«, t00=0x001d, t01=0x00f4}
0x2e62…2e76 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x001d, t01=0x011e}
0x2e76…2e9e Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADRESS «, t00=0x001d, t01=0x0132}
0x2e9e…2eb6 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/B7 LOCK«, t00=0x001d, t01=0x015a}
0x2eb6…2eea Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x001d, t01=0x0172}
0x2eea…2ef6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0016}
0x2ef6…2f06 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x0022}
0x2f06…2f34 Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x001e, t01=0x0032}
0x2f34…2f58 Head {h00=0x0020, h01=0x0050, text=» LD A6,8,A8 GET RETURN CODE «, t00=0x001e, t01=0x0060}
0x2f58…2f6c Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x001e, t01=0x0084}
0x2f6c…2f8c Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER CODE«, t00=0x001e, t01=0x0098}
0x2f8c…2fae Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS«, t00=0x001e, t01=0x00b8}
0x2fae…2fe2 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x001e, t01=0x00da}
0x2fe2…2fee Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x010e}
0x2fee…2ffe Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x011a}
0x2ffe…302c Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x001e, t01=0x012a}
0x302c…304e Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 NO FORMAT ERROR!«, t00=0x001e, t01=0x0158}
0x304e…3060 Head {h00=0x000e, h01=0x0050, text=» RB CHV300«, t00=0x001e, t01=0x017a}
0x3060…306e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x018c}
0x306e…3078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x000a}
0x3078…30b6 Head {h00=0x003a, h01=0x0050, text=»* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD «, t00=0x001f, t01=0x0014}
0x30b6…30ea Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x001f, t01=0x0052}
0x30ea…30f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0086}
0x30f4…3126 Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x001f, t01=0x0090}
0x3126…3150 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x001f, t01=0x00c2}
0x3150…3176 Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x001f, t01=0x00ec}
0x3176…31a6 Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x001f, t01=0x0112}
0x31a6…31e8 Head {h00=0x003e, h01=0x0050, text=»* RECNO REALATIV SECTOR NO WITHIN THE FILE «, t00=0x001f, t01=0x0142}
0x31e8…31f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x31f2…3206 Head {h00=0x0010, h01=0x0050, text=»WRITDK EQU *«, t00=0x001f, t01=0x018e}
0x3206…3226 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/95 ORDER CODE«, t00=0x0020, t01=0x0012}
0x3226…3238 Head {h00=0x000e, h01=0x0050, text=» RF READ00«, t00=0x0020, t01=0x0032}
0x3238…3242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0044}
0x3242…3280 Head {h00=0x003a, h01=0x0050, text=»* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO,RETCOD «, t00=0x0020, t01=0x004e}
0x3280…328a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008c}
0x328a…32bc Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0020, t01=0x0096}
0x32bc…32e6 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x0020, t01=0x00c8}
0x32e6…330c Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x0020, t01=0x00f2}
0x330c…333c Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x0020, t01=0x0118}
0x333c…337e Head {h00=0x003e, h01=0x0050, text=»* RECNO RELATIVE SECTOR NO WITHIN THE FILE «, t00=0x0020, t01=0x0148}
0x337e…33b2 Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x0020, t01=0x018a}
0x33b2…33bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002e}
0x33bc…33d0 Head {h00=0x0010, h01=0x0050, text=»READDK EQU *«, t00=0x0021, t01=0x0038}
0x33d0…33f0 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/91 ORDER CODE«, t00=0x0021, t01=0x004c}
0x33f0…3404 Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0021, t01=0x006c}
0x3404…3430 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0021, t01=0x0080}
0x3430…343e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00ac}
0x343e…3478 Head {h00=0x0036, h01=0x0050, text=»* GET PARAMETERS FROM PARAMETER LIST AND STORE «, t00=0x0021, t01=0x00ba}
0x3478…3492 Head {h00=0x0016, h01=0x0050, text=»* THEM IN DSET «, t00=0x0021, t01=0x00f4}
0x3492…34b0 Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 FILE CODE«, t00=0x0021, t01=0x010e}
0x34b0…34c4 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0021, t01=0x012c}
0x34c4…34d8 Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A8 «, t00=0x0021, t01=0x0140}
0x34d8…34fc Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 BUFFER ADDRESS «, t00=0x0021, t01=0x0154}
0x34fc…3510 Head {h00=0x0010, h01=0x0050, text=» ST A9,2,A8 «, t00=0x0021, t01=0x0178}
0x3510…3532 Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 RECORD LENGTH«, t00=0x0021, t01=0x018c}
0x3532…3546 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0022, t01=0x001e}
0x3546…355a Head {h00=0x0010, h01=0x0050, text=» ST A6,4,A8 «, t00=0x0022, t01=0x0032}
0x355a…3578 Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 RECORD NO«, t00=0x0022, t01=0x0046}
0x3578…358c Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0022, t01=0x0064}
0x358c…35b6 Head {h00=0x0026, h01=0x0050, text=» CALL T:BCDB COVERT TO TWO BINARYS«, t00=0x0022, t01=0x0078}
0x35b6…35dc Head {h00=0x0022, h01=0x0050, text=» ST A2,12,A8 LEAST SIGNIFICANT«, t00=0x0022, t01=0x00a2}
0x35dc…3602 Head {h00=0x0022, h01=0x0050, text=» ST A1,10,A8 MOST SIGNIFICANT «, t00=0x0022, t01=0x00c8}
0x3602…3616 Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0022, t01=0x00ee}
0x3616…362a Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0022, t01=0x0102}
0x362a…364a Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER CODE«, t00=0x0022, t01=0x0116}
0x364a…366c Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS«, t00=0x0022, t01=0x0136}
0x366c…36a0 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0022, t01=0x0158}
0x36a0…36ac Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0022, t01=0x018c}
0x36ac…36bc Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0023, t01=0x0008}
0x36bc…36ea Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0023, t01=0x0018}
0x36ea…36fe Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x0023, t01=0x0046}
0x36fe…370e Head {h00=0x000c, h01=0x0050, text=» ABL RET«, t00=0x0023, t01=0x005a}
0x370e…371c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x006a}
0x371c…3726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0078}
0x3726…3762 Head {h00=0x0038, h01=0x0050, text=»* CALL CLOSEF,DSET,FILECODE,BUFF,RECNO,RETCOD «, t00=0x0023, t01=0x0082}
0x3762…376c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x376c…37a0 Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK «, t00=0x0023, t01=0x00c8}
0x37a0…37cc Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER «, t00=0x0023, t01=0x00fc}
0x37cc…3802 Head {h00=0x0032, h01=0x0050, text=»* BUF FILE PARAMETER BUFFER «, t00=0x0023, t01=0x0128}
0x3802…3842 Head {h00=0x003c, h01=0x0050, text=»* RECNO NUMBER OF RECORDS IN SPEC. FILE «, t00=0x0023, t01=0x015e}
0x3842…384c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000e}
0x384c…3880 Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x0024, t01=0x0018}
0x3880…3894 Head {h00=0x0010, h01=0x0050, text=»CLOSEF EQU *«, t00=0x0024, t01=0x004c}
0x3894…38a8 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A14«, t00=0x0024, t01=0x0060}
0x38a8…38ba Head {h00=0x000e, h01=0x0050, text=» RF OPENF0«, t00=0x0024, t01=0x0074}
0x38ba…38ce Head {h00=0x0010, h01=0x0050, text=»CLOS10 EQU *«, t00=0x0024, t01=0x0086}
0x38ce…38fa Head {h00=0x0028, h01=0x0050, text=» CALL T:BCDB CONVERT TO TWO BINARYS «, t00=0x0024, t01=0x009a}
0x38fa…3918 Head {h00=0x001a, h01=0x0050, text=» LD A6,2,A8 ADR TO FPB«, t00=0x0024, t01=0x00c6}
0x3918…393e Head {h00=0x0022, h01=0x0050, text=» ST A1,58,A6 LEAST SIGNIFICANT«, t00=0x0024, t01=0x00e4}
0x393e…3964 Head {h00=0x0022, h01=0x0050, text=» ST A2,60,A6 MOST SIGNIFICANT «, t00=0x0024, t01=0x010a}
0x3964…398c Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A10 GET STORED FILECODE«, t00=0x0024, t01=0x0130}
0x398c…39ac Head {h00=0x001c, h01=0x0050, text=» SC A6,1,A8 PUT INTO ECB«, t00=0x0024, t01=0x0158}
0x39ac…39d2 Head {h00=0x0022, h01=0x0050, text=» LDKL A11,/A2 LOAD ORDER CODE «, t00=0x0024, t01=0x0178}
0x39d2…39e4 Head {h00=0x000e, h01=0x0050, text=» RB READ20«, t00=0x0025, t01=0x000e}
0x39e4…39f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0020}
0x39f2…39fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002e}
0x39fc…3a3c Head {h00=0x003c, h01=0x0050, text=»* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME,RETCOD «, t00=0x0025, t01=0x0038}
0x3a3c…3a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0078}
0x3a46…3a7a Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0025, t01=0x0082}
0x3a7a…3aa6 Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x0025, t01=0x00b6}
0x3aa6…3adc Head {h00=0x0032, h01=0x0050, text=»* BUF FILE PARAMETER BUFFER«, t00=0x0025, t01=0x00e2}
0x3adc…3b06 Head {h00=0x0026, h01=0x0050, text=»* FILE FILE NAME«, t00=0x0025, t01=0x0118}
0x3b06…3b32 Head {h00=0x0028, h01=0x0050, text=»* VOLUME VOLUME NAME«, t00=0x0025, t01=0x0142}
0x3b32…3b66 Head {h00=0x0030, h01=0x0050, text=»* RETCOD RETURN CODE FROM LKM «, t00=0x0025, t01=0x016e}
0x3b66…3b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0012}
0x3b70…3b84 Head {h00=0x0010, h01=0x0050, text=»OPENF EQU * «, t00=0x0026, t01=0x001c}
0x3b84…3b98 Head {h00=0x0010, h01=0x0050, text=» SUR A11,A11«, t00=0x0026, t01=0x0030}
0x3b98…3bac Head {h00=0x0010, h01=0x0050, text=»OPENF0 EQU *«, t00=0x0026, t01=0x0044}
0x3bac…3bd8 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0026, t01=0x0058}
0x3bd8…3c06 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 SAVE ADDRESS TO FILE CODE«, t00=0x0026, t01=0x0084}
0x3c06…3c1a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A9 «, t00=0x0026, t01=0x00b2}
0x3c1a…3c52 Head {h00=0x0034, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) «, t00=0x0026, t01=0x00c6}
0x3c52…3c7e Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 AND MAKE SURE IT IS EVEN «, t00=0x0026, t01=0x00fe}
0x3c7e…3c94 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x0026, t01=0x012a}
0x3c94…3cba Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 SAVE ADDRESS TO FPB«, t00=0x0026, t01=0x0140}
0x3cba…3ce8 Head {h00=0x002a, h01=0x0050, text=» ST A9,2,A8 STORE THE ADDRESS IN DSET «, t00=0x0026, t01=0x0166}
0x3ce8…3d0e (39, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDK A3,80 NO OF BYTES IN FPB «, t00=0x0027, t01=0x0004}
0x3d0e…3d30 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 ADDRESS TO FPB «, t00=0x0027, t01=0x002a}
0x3d30…3d44 Head {h00=0x0010, h01=0x0050, text=»OPEN00 EQU *«, t00=0x0027, t01=0x004c}
0x3d44…3d66 Head {h00=0x001e, h01=0x0050, text=» CMR A2 STORE ZERO IN FPB «, t00=0x0027, t01=0x0060}
0x3d66…3d88 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREACE ADDRESS«, t00=0x0027, t01=0x0082}
0x3d88…3d9a Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0027, t01=0x00a4}
0x3d9a…3db0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN00«, t00=0x0027, t01=0x00b6}
0x3db0…3dbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00cc}
0x3dbe…3dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00da}
0x3dc8…3df8 Head {h00=0x002c, h01=0x0050, text=»* GET FILE NAME AND STORE IT IN FPB «, t00=0x0027, t01=0x00e4}
0x3df8…3e20 Head {h00=0x0024, h01=0x0050, text=»* A3 CONTAINES FPB ADDRESS «, t00=0x0027, t01=0x0114}
0x3e20…3e34 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0027, t01=0x013c}
0x3e34…3e48 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x0027, t01=0x0150}
0x3e48…3e5e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CLOS10«, t00=0x0027, t01=0x0164}
0x3e5e…3e8c Head {h00=0x002a, h01=0x0050, text=» ADK A6,8 ADDRESS TO FILE NAME IN FPB «, t00=0x0027, t01=0x017a}
0x3e8c…3eb6 Head {h00=0x0026, h01=0x0050, text=» LDK A4,8 NO OF CHAR IN FILE NAME «, t00=0x0028, t01=0x0018}
0x3eb6…3eca Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0028, t01=0x0042}
0x3eca…3ee8 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A9 GET ON CHAR«, t00=0x0028, t01=0x0056}
0x3ee8…3f10 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x0028, t01=0x0074}
0x3f10…3f22 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0028, t01=0x009c}
0x3f22…3f34 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0028, t01=0x00ae}
0x3f34…3f46 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0028, t01=0x00c0}
0x3f46…3f5c Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN20«, t00=0x0028, t01=0x00d2}
0x3f5c…3f6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00e8}
0x3f6a…3f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f6}
0x3f74…3fa4 Head {h00=0x002c, h01=0x0050, text=»* GET VOLUME NAME AND STORE IT IN FPB«, t00=0x0028, t01=0x0100}
0x3fa4…3fb8 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0028, t01=0x0130}
0x3fb8…3fe2 Head {h00=0x0026, h01=0x0050, text=» ADK A6,2 ADDRESS TO VOLUME IN FPB«, t00=0x0028, t01=0x0144}
0x3fe2…400e Head {h00=0x0028, h01=0x0050, text=» LDK A4,6 NO OF CHAR IN VOLUME NAME «, t00=0x0028, t01=0x016e}
0x400e…4022 Head {h00=0x0010, h01=0x0050, text=»OPEN40 EQU *«, t00=0x0029, t01=0x000a}
0x4022…4034 Head {h00=0x000e, h01=0x0050, text=» LCR A3,A9«, t00=0x0029, t01=0x001e}
0x4034…405c Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x0029, t01=0x0030}
0x405c…406e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0029, t01=0x0058}
0x406e…4080 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0029, t01=0x006a}
0x4080…4092 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0029, t01=0x007c}
0x4092…40a8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN40«, t00=0x0029, t01=0x008e}
0x40a8…40cc Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A1 LOAD ORDER CODE «, t00=0x0029, t01=0x00a4}
0x40cc…4100 Head {h00=0x0030, h01=0x0050, text=» SU A12,-12,A13 SAVE RETADRESS IF DISKPAGING«, t00=0x0029, t01=0x00c8}
0x4100…410c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x00fc}
0x410c…411c Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0029, t01=0x0108}
0x411c…414a Head {h00=0x002a, h01=0x0050, text=» AD A12,-12,A13 RESTORE CREDIT RETADR «, t00=0x0029, t01=0x0118}
0x414a…417a Head {h00=0x002c, h01=0x0050, text=»* STORE FILE CODE IN FILE CODE BUFFER «, t00=0x0029, t01=0x0146}
0x417a…418e Head {h00=0x0010, h01=0x0050, text=» LC A3,1,A8 «, t00=0x0029, t01=0x0176}
0x418e…41a2 Head {h00=0x0010, h01=0x0050, text=» STR A3,A10 «, t00=0x0029, t01=0x018a}
0x41a2…41c8 Head {h00=0x0022, h01=0x0050, text=» RB READ40 CHEC ON ERROR CODE «, t00=0x002a, t01=0x000e}
0x41c8…41d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0034}
0x41d6…41e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0042}
0x41e0…4218 Head {h00=0x0034, h01=0x0050, text=»* CONVERT A BCD-ITEM TO TWO BINARY-ITEMS «, t00=0x002a, t01=0x004c}
0x4218…4222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0084}
0x4222…4250 Head {h00=0x002a, h01=0x0050, text=»* CALL BCDBIN,BCD,BINMS,BINLS «, t00=0x002a, t01=0x008e}
0x4250…425a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00bc}
0x425a…426e Head {h00=0x0010, h01=0x0050, text=»BCDBIN EQU *«, t00=0x002a, t01=0x00c6}
0x426e…4290 Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 GET AD TO BCD«, t00=0x002a, t01=0x00da}
0x4290…42c2 Head {h00=0x002e, h01=0x0050, text=» CALL T:BCDB CONVERT WITH RESULT IN A1,A2 «, t00=0x002a, t01=0x00fc}
0x42c2…42e6 Head {h00=0x0020, h01=0x0050, text=» STR A1,A14 SAVE A1 ON STACK«, t00=0x002a, t01=0x012e}
0x42e6…430c Head {h00=0x0022, h01=0x0050, text=» ST A2,-2,A14 SAVE A2 ON STACK«, t00=0x002a, t01=0x0152}
0x430c…4334 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK-POINTER«, t00=0x002a, t01=0x0178}
0x4334…435a Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ADR TO BINMS «, t00=0x002b, t01=0x0010}
0x435a…4382 Head {h00=0x0024, h01=0x0050, text=» LD A1,4,A14 GET VALUE OF BINMS «, t00=0x002b, t01=0x0036}
0x4382…43a8 Head {h00=0x0022, h01=0x0050, text=» STR A1,A9 PUT VALUE IN BINMS «, t00=0x002b, t01=0x005e}
0x43a8…43cc Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET AD TO BINLS«, t00=0x002b, t01=0x0084}
0x43cc…43f4 Head {h00=0x0024, h01=0x0050, text=» LD A2,2,A14 GET VALUE OF BINLS «, t00=0x002b, t01=0x00a8}
0x43f4…441a Head {h00=0x0022, h01=0x0050, text=» STR A2,A9 PUT VALUR IN BINLS «, t00=0x002b, t01=0x00d0}
0x441a…4442 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACKPOINTER «, t00=0x002b, t01=0x00f6}
0x4442…446a Head {h00=0x0024, h01=0x0050, text=» ABL I:RT1 RETURN TO CALL-MODULE«, t00=0x002b, t01=0x011e}
0x446a…4478 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0146}
0x4478…4482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0154}
0x4482…44ba Head {h00=0x0034, h01=0x0050, text=»* CONVERT TWO BINARY-ITEMS TO A BCD-ITEM «, t00=0x002b, t01=0x015e}
0x44ba…44c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0008}
0x44c4…44f2 Head {h00=0x002a, h01=0x0050, text=»* CALL BINBCD,BINMS,BINLS,BCD «, t00=0x002c, t01=0x0012}
0x44f2…44fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0040}
0x44fc…4510 Head {h00=0x0010, h01=0x0050, text=»BINBCD EQU *«, t00=0x002c, t01=0x004a}
0x4510…4536 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ADR OF BINMS «, t00=0x002c, t01=0x005e}
0x4536…455c Head {h00=0x0022, h01=0x0050, text=» LDR* A9,A9 GET VALUE OF BINMS«, t00=0x002c, t01=0x0084}
0x455c…4580 Head {h00=0x0020, h01=0x0050, text=» STR A9,A14 SAVE A9 ON STACK«, t00=0x002c, t01=0x00aa}
0x4580…45a8 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,2 UPDATE STACK-POINTER«, t00=0x002c, t01=0x00ce}
0x45a8…45ce Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ADR OF BINLS «, t00=0x002c, t01=0x00f6}
0x45ce…45f4 Head {h00=0x0022, h01=0x0050, text=» LDR* A9,A9 GET VALUE OF BINLS«, t00=0x002c, t01=0x011c}
0x45f4…4618 Head {h00=0x0020, h01=0x0050, text=» STR A9,A14 SAVE A9 ON STACK«, t00=0x002c, t01=0x0142}
0x4618…4640 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,2 UPDATE STACK-POINTER«, t00=0x002c, t01=0x0166}
0x4640…4664 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET ADR TO BCD «, t00=0x002c, t01=0x018e}
0x4664…468c Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACKPOINTER «, t00=0x002d, t01=0x0022}
0x468c…46b4 Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A14 GET VALUE OF BINMS «, t00=0x002d, t01=0x004a}
0x46b4…46dc Head {h00=0x0024, h01=0x0050, text=» LD A1,-2,A14 GET VALUE OF BINLS«, t00=0x002d, t01=0x0072}
0x46dc…470a Head {h00=0x002a, h01=0x0050, text=» CALL T:BINB CONVERT WITH BCD UPDATED «, t00=0x002d, t01=0x009a}
0x470a…4736 Head {h00=0x0028, h01=0x0050, text=» ABL I:RT1 RETURN TO CALLING MODULE «, t00=0x002d, t01=0x00c8}
0x4736…4744 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00f4}
0x4744…4758 Head {h00=0x0010, h01=0x0050, text=»RCGET EQU * «, t00=0x002d, t01=0x0102}
0x4758…477c Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET PARAM. ONE «, t00=0x002d, t01=0x0116}
0x477c…47a4 Head {h00=0x0024, h01=0x0050, text=» LDR* A4,A9 GET CONTENTS OF PAR1«, t00=0x002d, t01=0x013a}
0x47a4…47c8 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET PARAM. TWO «, t00=0x002d, t01=0x0162}
0x47c8…47f4 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/396C INSTRUCTION SRL A1,12«, t00=0x002d, t01=0x0186}
0x47f4…4812 Head {h00=0x001a, h01=0x0050, text=» LDK A3,4 LOOPCOUNTER «, t00=0x002e, t01=0x0022}
0x4812…4824 Head {h00=0x000e, h01=0x0050, text=»RC10 EQU *«, t00=0x002e, t01=0x0040}
0x4824…4836 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x002e, t01=0x0052}
0x4836…485a Head {h00=0x0020, h01=0x0050, text=» EXR A2 EXECUTE INSTRUCTION «, t00=0x002e, t01=0x0064}
0x485a…487e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/F PICK ONE NUMERIC «, t00=0x002e, t01=0x0088}
0x487e…48a4 Head {h00=0x0022, h01=0x0050, text=» CWK A1,9 CONVERT BIN -> ASCII«, t00=0x002e, t01=0x00ac}
0x48a4…48cc Head {h00=0x0024, h01=0x0050, text=» RF(G) RC20 CONVERT BIN -> ASCII«, t00=0x002e, t01=0x00d2}
0x48cc…48ec Head {h00=0x001c, h01=0x0050, text=» ADK A1,/30 -"- «, t00=0x002e, t01=0x00fa}
0x48ec…4908 Head {h00=0x0018, h01=0x0050, text=» RF RC30 -"-«, t00=0x002e, t01=0x011a}
0x4908…4926 Head {h00=0x001a, h01=0x0050, text=»RC20 EQU * -"-«, t00=0x002e, t01=0x0136}
0x4926…4946 Head {h00=0x001c, h01=0x0050, text=» ADK A1,/37 -"- «, t00=0x002e, t01=0x0154}
0x4946…4964 Head {h00=0x001a, h01=0x0050, text=»RC30 EQU * -"-«, t00=0x002e, t01=0x0174}
0x4964…4988 (47, 0, 398) Head {h00=0x0020, h01=0x0050, text=» SCR A1,A9 STORE IN PARAM.2 «, t00=0x002f, t01=0x0004}
0x4988…499a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x002f, t01=0x0028}
0x499a…49be Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 MODIFY SHIFTINSTR.«, t00=0x002f, t01=0x003a}
0x49be…49dc Head {h00=0x001a, h01=0x0050, text=» SUK A3,1 LOOP-COUNTER«, t00=0x002f, t01=0x005e}
0x49dc…49f8 Head {h00=0x0018, h01=0x0050, text=» RB(P) RC10 JMP CR>0«, t00=0x002f, t01=0x007c}
0x49f8…4a0a Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x002f, t01=0x0098}
0x4a0a…4a18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00aa}
0x4a18…4a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b8}
0x4a22…4a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x4a2c…4a64 Head {h00=0x0034, h01=0x0050, text=»* GET DIMENSION OF INDEXED VARIABLE AND LENGTH«, t00=0x002f, t01=0x00cc}
0x4a64…4a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0104}
0x4a6e…4aac Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION«, t00=0x002f, t01=0x010e}
0x4aac…4ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014c}
0x4ab6…4af2 Head {h00=0x0038, h01=0x0050, text=»* ITEM(W1) = CURRENT ITEM «, t00=0x002f, t01=0x0156}
0x4af2…4b38 (48, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* LENGTH = BIN HOLDING ITEM LENGTH«, t00=0x0030, t01=0x0004}
0x4b38…4b82 Head {h00=0x0046, h01=0x0050, text=»* DIMENSION = BIN HOLDING NO. OF ELEMENTS«, t00=0x0030, t01=0x004a}
0x4b82…4b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0094}
0x4b8c…4b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009e}
0x4b96…4ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a8}
0x4ba0…4bb4 Head {h00=0x0010, h01=0x0050, text=»GETIND EQU *«, t00=0x0030, t01=0x00b2}
0x4bb4…4bd8 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO ITEM«, t00=0x0030, t01=0x00c6}
0x4bd8…4c0e Head {h00=0x0032, h01=0x0050, text=» LD A10,-6,A14 READ DIMENSION STORED BYE I:EVA«, t00=0x0030, t01=0x00ea}
0x4c0e…4c32 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A5 COPY END ADDRESS «, t00=0x0030, t01=0x0120}
0x4c32…4c5a Head {h00=0x0024, h01=0x0050, text=» SUR A7,A9 CALCULATE ITEM LENGTH«, t00=0x0030, t01=0x0144}
0x4c5a…4c86 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTH ITEM «, t00=0x0030, t01=0x016c}
0x4c86…4ca6 Head {h00=0x001c, h01=0x0050, text=» STR A7,A9 STORE LENGTH «, t00=0x0031, t01=0x0008}
0x4ca6…4cd4 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO DIMENSION ITEM«, t00=0x0031, t01=0x0028}
0x4cd4…4cf8 Head {h00=0x0020, h01=0x0050, text=» STR A10,A9 STORE DIMENSION «, t00=0x0031, t01=0x0056}
0x4cf8…4d0a Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0031, t01=0x007a}
0x4d0a…4d12 Head {h00=0x0004, h01=0x0050, t00=0x0031, t01=0x008c}
0x4d12…4d1e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0031, t01=0x0094}
0x4d1e…4d22 Head {h00=0x4004, h01=0x0000}
0x4d22…4d26 00 31 00 a0 ┆ 1 ┆
0x4d26…4d2e (50, 1, 8) 20 04 00 00 00 32 00 04 ┆ 2 ┆
0x4d2e…4d7e (51, 0, 400) 00 2c 00 50 5c 4d 4f 56 45 5c 42 49 4e 38 2c 57 30 5c 43 4f 55 4e 54 45 52 20 54 4f 20 4d 41 54 43 48 20 2d 20 46 53 2d 49 4e 44 2e 00 13 00 04 00 0a 00 50 43 52 46 38 36 30 00 13 00 34 00 10 00 50 5c 41 44 44 5c 42 49 4e 36 2c 57 31 00 13 ┆ , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. PCRF860 4 P ADD BIN6,W1 ┆
0x4d7e…4dce 00 42 00 1a 00 50 5c 53 55 42 5c 42 49 4e 31 2c 57 38 5c 38 20 52 45 43 4f 52 44 53 00 13 00 56 00 0e 00 50 5c 42 4e 5c 43 52 46 38 37 30 00 13 00 74 00 1a 00 50 5c 4d 4f 56 45 5c 46 46 28 42 49 4e 36 29 2c 3d 58 27 46 46 27 20 00 13 00 86 ┆ B P SUB BIN1,W8 8 RECORDS V P BN CRF870 t P MOVE FF(BIN6),=X'FF' ┆
0x4dce…4e1e 00 18 00 50 5c 43 42 45 5c 42 49 4e 31 2c 57 30 2c 43 52 46 38 38 30 20 00 13 00 a4 00 0e 00 50 5c 42 5c 43 52 46 38 36 30 20 00 13 00 c0 00 0a 00 50 43 52 46 38 37 30 00 13 00 d2 00 10 00 50 5c 41 44 44 5c 42 49 4e 31 2c 57 38 00 13 00 e0 ┆ P CBE BIN1,W0,CRF880 P B CRF860 PCRF870 P ADD BIN1,W8 ┆
0x4e1e…4e6e 00 18 00 50 5c 43 42 45 5c 42 49 4e 31 2c 57 30 2c 43 52 46 38 38 32 20 00 13 00 f4 00 20 00 50 5c 4d 4f 56 45 5c 46 46 28 42 49 4e 36 29 2c 48 45 58 54 41 42 28 42 49 4e 31 29 20 00 13 01 10 00 0a 00 50 43 52 46 38 38 30 00 13 01 34 00 10 ┆ P CBE BIN1,W0,CRF882 P MOVE FF(BIN6),HEXTAB(BIN1) PCRF880 4 ┆
0x4e6e…4ebe 00 50 5c 41 44 44 5c 42 49 4e 36 2c 57 31 00 13 01 42 00 1a 00 50 5c 43 42 47 5c 42 49 4e 36 2c 3d 57 27 32 34 30 27 2c 46 38 30 20 00 13 01 56 00 0a 00 50 43 52 46 38 38 32 00 13 01 74 00 1a 00 50 5c 4d 4f 56 45 5c 46 46 28 42 49 4e 36 29 ┆ P ADD BIN6,W1 B P CBG BIN6,=W'240',F80 V PCRF882 t P MOVE FF(BIN6)┆
0x4ebe…4f0e (52, 0, 400) 2c 3d 58 27 30 30 27 20 00 13 01 82 00 0e 00 50 5c 42 5c 43 52 46 38 38 30 20 00 14 00 10 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 00 22 00 22 00 50 2a 20 20 57 52 49 54 45 ┆,=X'00' P B CRF880 " P****************************** " " P* WRITE┆
0x4f0e…4f5e 20 46 52 45 45 2d 53 50 41 43 45 20 52 45 43 4f 52 44 53 20 20 2a 00 14 00 48 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 00 6e 00 08 00 50 46 38 30 20 00 14 00 94 00 3c 00 50 ┆ FREE-SPACE RECORDS * H " P****************************** n PF80 < P┆
0x4f5e…4fae 5c 43 41 4c 4c 5c 57 52 49 54 44 4b 2c 44 49 53 4b 2c 46 49 4c 45 43 4f 44 45 28 57 31 29 2c 52 42 55 46 2c 53 45 43 4c 45 4e 2c 52 45 43 4e 55 4d 2c 52 45 54 43 4f 44 00 14 00 a0 00 10 00 50 5c 42 4e 4f 4b 5c 43 52 46 39 39 30 00 14 00 e0 ┆ CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD P BNOK CRF990 ┆
0x4fae…4ffe 00 10 00 50 5c 53 55 42 5c 42 49 4e 34 2c 57 31 00 14 00 f4 00 1e 00 50 5c 42 5a 5c 43 52 46 38 39 30 5c 49 46 20 4c 41 53 54 20 52 45 43 4f 52 44 20 00 14 01 08 00 26 00 50 5c 43 41 4c 4c 5c 42 49 4e 42 43 44 2c 46 52 53 54 4e 31 2c 46 52 ┆ P SUB BIN4,W1 P BZ CRF890 IF LAST RECORD & P CALL BINBCD,FRSTN1,FR┆
0x4ffe…504e 53 54 4e 32 2c 42 43 44 31 33 41 20 00 14 01 2a 00 16 00 50 5c 41 44 44 5c 42 43 44 31 33 41 2c 42 43 44 35 41 20 00 14 01 54 00 26 00 50 5c 43 41 4c 4c 5c 42 43 44 42 49 4e 2c 42 43 44 31 33 41 2c 46 52 53 54 4e 31 2c 46 52 53 54 4e 32 20 ┆STN2,BCD13A * P ADD BCD13A,BCD5A T & P CALL BCDBIN,BCD13A,FRSTN1,FRSTN2 ┆