|
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: 20678 (0x50c6)
Notes: pts_type(SC)
Names: »ASSRUT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/ASSRUT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/ASSRUT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/ASSRUT.SC«
IDENT ASSRUT UPD 80-03-20/CHST UPD 80-02-22/CHST UPD 80-01-16/CHST UPD 79-11-08/PEEN UPD 79-01-30/PEEN * ASSEMBLER ROUTINES USED BY PTS DE-UTILITIES ENTRY CHANFC ENTRY CREVOL ENTRY CREFIL ENTRY DELFIL ENTRY GETVOL ENTRY COPYDD ENTRY GETFRE ENTRY CHVOL ENTRY SURVEY ENTRY UPDBOL ENTRY UPDBIN ENTRY SETB ENTRY TESTB ENTRY CLEARB ENTRY MSKOUT ENTRY RDSECT ENTRY SETOCC ENTRY SETFRE ENTRY VOLNAM ENTRY ATTWB ENTRY CMPIND ENTRY GETIND ENTRY RESTOR ENTRY WRITDK ENTRY READDK ENTRY CLOSEF ENTRY OPENF * EXTRN I:EVA0 EXTRN CRVOL EXTRN CRFILE EXTRN DLFILE * COPY SYSVOL TO SYSVOL NOT IN THIS REL. * EXTRN COPVOL EXTRN PRVTOC * EXTRN T:FDSP EXTRN I:RT1 EXTRN T:LOFS * CALL FORM 16=/F6A1,16 EJECT * * CHANGE FILE CODE IN ECB * CALL: * CALL CHANFC,DATASET,FILECODE * CHANFC EQU * CF A14,T:FDSP GET ECB-ADDRESS CF A14,I:EVA0 GET ADDRESS TO BIN. LC A3,1,A9 GET FILE CODE SC A3,1,A8 STORE FILE CODE IN ECB RF RET EJECT ****************** * CREATE VOLUME ****************** CREVOL EQU * LDKL A1,CRVOL CALL UTINF EJECT * * PERFORME A CALL TO ONE OF THE ROUTINES * CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC * A1 ADDRESS TO THE WANTED ROUTINE * UTINF EQU * ST A1,RUTIN CF A14,I:EVA0 A9 = :A PBLOCK LDR A6,A9 ADRESS TO PBLOCK CF A14,I:EVA0 A9 = :A BUF1 STR A9,A6 STORE BUF1 ADRESS CF A14,I:EVA0 A9 = :A BUF2 ST A9,2,A6 STORE BUF2 ADRESS STR A12,A14 SAVE A12 ST A13,-2,A14 SAVE A13 SUKL A14,4 LDR A12,A6 CF A14,CRVOL RUTIN EQU *-2 ADKL A14,4 LD A13,-2,A14 LDR* A12,A14 LDR A6,A1 SAVE RETURN CODE CF A14,I:EVA0 GET ADRESS TO RETCOD STR A6,A9 ADKL A14,4 ABL I:RT1 EJECT **************** * CREATE FILE **************** CREFIL EQU * LDKL A1,CRFILE CALL UTINF EJECT **************** * DELETE FILE ****************** DELFIL EQU * LDKL A1,DLFILE CALL UTINF EJECT * COPY SYSVOL TO SYSVOL IS NOT IMPLEMENTED IN THIS REL. ********************** * COPY DISK TO DISK ********************** COPYDD EQU * * LDKL A1,COPVOL * CALL UTINF ABL I:RT1 EJECT * GET VOLUME NAME TO A STRING VARIABEL * SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD * RETCOD = 0 IF OK, ELSE 1 * 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 LKM DATA 1 LD A1,8,A8 LOAD RETURN CODE RF(NZ) ERROR * 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 UT EQU * LDK A6,0 VIN CF A14,I:EVA0 STR A6,A9 STORE RETURN-CODE RET ABL I:RT1 ERROR LDK A6,1 RB VIN EJECT * GET A FREE RECORD FROM FREE-SPACE RECORD * SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB * OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND) GETFRE EQU * CALL GETPAR GET PARAMETER ADDRESSES LD A4,-2,A7 GET NUMBER OF FRE RECORDS RF(Z) NOK IF NONE FREE GET100 EQU * CWR A7,A8 RF(E) NOK END OF RECORD LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST RF(NZ) SEARCH AT LEAST ONE RECORD FREE ADK A7,1 INCREMENT POINTER ADK A6,8 UPDATE RECORD NUMBER RB GET100 SEARCH EQU * LDK A5,0 INDICATE FIRST BIT IN BYTE LDR A4,A4 SEA100 RF(N) FOUND IF FOUND ADK A5,1 INCREMENT COUNTER SLL A4,1 RB SEA100 FOUND SLL A4,1 CLEAR BIT ADR A6,A5 UPDATE RELATIVE RECORD NUMBER FOU100 SRL A4,1 SUK A5,1 DECREMENT POINTER RB(NN) FOU100 SRL A4,8 SCR A4,A7 STORE UPDATED BYTE LC A7,17,A9 ECR A7,A7 LC A7,18,A9 GET START RECORD NUMBER ADR A6,A7 GET CURRENT RECORD NUMBER LDKL A1,-1 ADRS A1,A2 DECREMENT NO. OF FREE RECS. NOK EQU * CALL I:EVA0 NOK100 STR A6,A9 STORE FOUND INDEX RB RET EJECT GETPAR EQU * CALL I:EVA0 ADDRESS TO BPOOL LDR A7,A9 COPY ADDRESS CALL I:EVA0 ADDRESS TO RPOOL LC A8,15,A9 ECR A8,A8 LC A8,16,A9 GET OCCUPIED BYTES ADR A8,A7 GET END ADDRESS SUKL A8,10 LDR A2,A7 SAVE START ADDRESS ADK A7,2 ADDRESS TO FIRST BITS LDK A6,0 RTN A14 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 LKM DATA 1 LD A6,8,A8 GET RETURN CODE LDK A7,/81 BASIC READ LKM DATA 1 CALL I:EVA0 GET VOLUME NAME LD A1,2,A8 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 LKM DATA 1 LDK A7,/80 LKM DATA 1 LDR A6,A6 RF(NZ) CHVUT JUMP IF NOT TO BE UNLOADED LDK A7,/B8 LKM DATA 1 CHVUT EQU * ABL I:RT1 EJECT ********* * PVC * ********* SURVEY EQU * LDKL A1,PRVTOC CALL UTINF EJECT * * MOVE CONTENTS OF BIN ITEM TO CORRESPONDING * 16 BOOLEAN ITEMS * UPDBOL EQU * CALL I:EVA0 GET ADDRESS TO BIN ITEM LDR* A1,A9 GET BIN CONTENTS ST A1,-2,A9 STORE BOOLEANS ABL I:RT1 * * MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN * UPDBIN EQU * CALL I:EVA0 GET ADDRESS TO BIN ITEM LD A1,-2,A9 GET BOOLEANS STR A1,A9 STORE IN BIN ABL I:RT1 EJECT * * SEARCH WANTED BIT IN A CHARACTER STRING * A3 = BIT INDEX * A7 = CHARACTER STRING START ADDRESS * SEABIT EQU * SET050 SUK A3,8 RF(N) SET100 ADK A7,1 CWR A7,A8 RB(NE) SET050 CONTINUE IN NOT EOR LDK A6,0 INDICATE INCORRECT REC. NO. RTN A14 * PLACED IN CURRENT BYTE SET100 EQU * ADK A3,8 LCR A4,A7 SLL A4,8 GET BYTE RIGHTMOST LDR A1,A3 COPY A3 RF(Z) TEST IF FIRST BIT SET300 EQU * SLC A4,1 SUK A1,1 RB(NZ) SET300 TEST EQU * RTN A14 EJECT * * SET WANTED BIT IN A STRING OR BIN ITEM * SYNTAX: CALL SETB,ITEM,INDEX * SETB EQU * SUR A10,A10 INDICATE 'SET' SETB10 EQU * CALL I:EVA0 GET ADDRESS TO ITEM LDR A7,A9 COPY ADDRESS LDR A8,A5 COPY ENDADDRESS CALL I:EVA0 GET ADDRESS TO INDEX LDR* A3,A9 GET INDEX CALL SEABIT SEARCH WANTED BIT LDR A10,A10 RF(N) SETB30 IF TEST BIT RF(Z) SETB20 JUMP IF SETBIT * CLEAR BIT ANKL A4,/7FFF CLEAR BIT RF TES200 RESTORE BYTE * SET BIT SETB20 EQU * ORKL A4,/8000 SET BIT RF TES200 RESTORE BYTE SETB30 EQU * LDK A1,0 INDICATE FALSE LDR A4,A4 TEST BIT RF(NN) SETB40 IF FALSE LDK A1,1 INDICATE TRUE SETB40 EQU * LD A4,2,A13 GET STACK BASE SC A1,-2,A4 STORE CR ON STACK ABL I:RT1 * * CLEAR BIT IN STRING OR BIN VARIABLE * SYNTAX: CALL CLEARB,ITEM,INDEX * CLEARB EQU * LDKL A10,1 INDICATE 'CLEAR BIT' RB SETB10 CONTINUE * * TEST BIT IN STRING OR BIN VARIABLE * SYNTAX: CALL TESTB,ITEM,INDEX * OUTPUT: CR = 0 (BIT IS FALSE) * CR = 1 (BIT IS TRUE) * TESTB EQU * LDKL A10,-1 INDICATE 'TEST BIT' RB SETB10 CONTINUE EJECT * * MASK OUT WANTED BITS ACCORDING TO MASK * SYNTAX: CALL MSKOUT,MASK,BIN * MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN * THE RESULT AFTER THE LOGICAL AND OPERATION * BIN= BIN HOLDING THE VALUE TO BE MASKED * MSKOUT EQU * CALL I:EVA0 ADDRESS TO MASK LDR A6,A9 CALL I:EVA0 ADDRESS TO BIN LDR* A1,A9 GET CONTENTS OF BIN ANRS A1,A6 LOGICAL AND WITH MASK AND STORE RESULT IN MASK ABL I:RT1 * EJECT ********************** * READ DISK SECTOR * ********************** RDSECT EQU * CALL T:FDSP CALL I:EVA0 LDR* A1,A9 CM 10,A8 ST A1,12,A8 STORE SECTOR NUMBER 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 LKM DATA 1 LDK A7,/81 BASIC READ LKM DATA 1 LDK A7,/B8 UNLOCK LKM DATA 1 RET1 ABL I:RT1 EJECT * SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF * FREE RECORD COUNTER. THIS IS ONLY DONE * IF CURRENT RECORD WAS BUSY * SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB * NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) * SETFRE EQU * SUR A10,A10 INDICATE SETFRE SET EQU * CALL GETPAR LDR A6,A9 COPY ADDRESS CALL I:EVA0 GET ADDRESS TO REC. NO. LDR A2,A7 COPY A7 LDR* A3,A9 GET INDEX LC A1,17,A6 ECR A1,A1 LC A1,18,A6 GET START RECORD NUMBER SUR A3,A1 GET RELATIVE RECORD NO. CALL SEABIT SEARCH WANTED BIT LDR A6,A6 RF(Z) NOK150 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC * SETFRE: TEST IF ALREADY FREE TEST1 LDR A4,A4 RB(N) RET1 IF ALREADY FREE ORKL A4,/8000 SET RECORD FREE LDK A1,1 INDICATE INCREMENT TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER TES200 SUK A3,1 RF(N) TES300 BYTE RESTORED SRC A4,1 RB TES200 TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE SCR A4,A7 STORE UPDATED BYTE RB RET1 * * SETOCC: TEST IF ALREADY OCCUPIED TEST0 EQU * LDR A4,A4 RB(NN) RET1 IF ALREADY OCCUPIED SUK A1,1 A1 = -1; INDICATE DECREMENT ANKL A4,/7FFF INDICATE OCCUPIED RB TES100 NOK150 EQU * STR A6,A9 RB RET1 EJECT * SET RECORD OCCUPIED AND DECREMENT NUMBER OF * FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD * IS FREE * SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB * NUMB = CURRENT RECORD NUMBER (= 0 AS OUTPUT IF * WRONG NUMBER) SETOCC EQU * LDR A10,A14 INDICATE SETOCC RB SET * * VOLNAM - SUBROUTINE TO CRVOL * * VOLNAM EQU * LDK A1,0 RTN A14 EJECT * * ATTACH A STRING VARIABLE AS WORKBLOCK TO * THE TERMINAL CONTROL AREA * SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK * STRG= STRING ITEM TO BE WORKBLOCK * DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE * 'STRG'-START * BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A * ATTWB EQU * LDKL A10,2 INDICATE WB ATT EQU * CALL I:EVA0 ADDRESS TO NEW WB LDR A7,A9 SAVE ADDRESS CALL I:EVA0 GET DISPLACEMENT ADR* A7,A9 CALL I:EVA0 ADDRESS TO WB NUMBER LDR* A1,A9 SLL A1,2 TIMES 4 ADR A1,A13 ADDRESS TO DB ADR A1,A10 GET ADDRESS TO WB OR DB ATT100 EQU * STR A7,A1 STORE NEW WB/DB-ADDRESS RB RET1 EJECT * * SAVE POINTERS TO DB:S/WB:S IN STRING ITEM * SYNTAX: CALL SAVE,DISPL,LENGTH,STRG * DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE * THE VERY FIRST DB:POINTER * LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED * STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN * SAVE EQU * CALL GETP GET PARAMETERS SAV100 EQU * ADR A2,A7 ADR A7,A9 SAV200 EQU * LCR A1,A2 SCR A1,A7 ADK A2,1 ADK A7,1 SUK A6,1 RB(NZ) SAV200 RB RET1 * * RESTORE DB/WB-POINTERS FROM A STRING VARIABLE * TO THE T:A (TERMINAL CONTROL AREA) * SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG * DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINTER * LENGTH= NUMBER OF BYTES TO RESTORE * STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED * RESTOR EQU * CALL GETP LDR A1,A2 LDR A2,A9 CHANGE LDR A9,A1 ADDRESSES RB SAV100 START TO RESTORE * * GET PARAMETERS FOR SAVE/RESTORE * GETP EQU * CALL I:EVA0 LDR* A7,A9 START DISPLACEMENT CALL I:EVA0 LDR* A6,A9 GET LENGTH CALL I:EVA0 LDK A2,40 ADR A2,A13 GET ADDRESS TO DB-POINTER /A RTN A14 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 DIMENSION * (NUMBER OF ELEMENTS) * GETIND EQU * CALL I:EVA0 ADDRESS TO ITEM LD A10,-6,A14 READ DIMENSION STORED BY I:EVA0 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 STR A10,A9 STORE IN ITEM ATTRET EQU * RB RET1 EJECT * * COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM * * SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) * * OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM * CR = 1 IF INDEX>MAX. INDEX OF ITEM * CR = 2 IF INDEX<MAX. INDEX OF ITEM * CMPIND EQU * CALL I:EVA0 GET ADDRESS TO INDEX LDR* A6,A9 SAVE INDEX VALUE CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM LDR A6,A6 RF(NP) LESS CW A6,-6,A14 COMPARE WITH DIMENSION RF(G) GREAT * EQUAL EQU * UT150 EQU * LDK A1,0 INDICATE CR = 0 UT200 EQU * ABL SETB40 STORE CR AND RETURN GREAT EQU * NOTFND EQU * LDK A1,1 INDICATE CR = 1 RB UT200 STORE CR AND RETURN LESS EQU * LDK A1,2 RB UT200 EJECT * * CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO * * 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 EJECT * * CALL READDK,DSET,FILECODE,BUF,LEN,RECNO * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF BUFFER * LEN REQUESTED LENGTH * RECNO RELATIVE SECTOR NO WITHIN THE FILE * READDK EQU * LDKL A11,/91 ORDER CODE READ00 EQU * CALL T:FDSP GET DSET ADDRESS TO A8 * 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 ST A6,12,A8 CM 10,A8 LDR A7,A11 READ20 EQU * * A7 ORDER CODE * A8 DSET ADDRESS LKM DATA 15 * * CHECK ON ERROR CODE READ40 EQU * LD A6,8,A8 RB(Z) EQUAL SET COND CODE TO 0 ,OK ANKL A6,/2000 RB(NZ) GREAT SET COND CODE TO 1 ,EOF RB LESS SET COND CODE TO 2 ,ERROR * EJECT * * CALL CLOSEF,DSET,FILECODE,BUFF,RECNO * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF FILE PARAMETER BUFFER * RECNO NUMBER OF RECORDS IN SPEC. FILE * CLOSEF EQU * LDR A11,A14 RF OPENF0 CLOS10 LDR* A1,A9 GET REC.NO. ST A1,60,A6 LDR* A6,A10 SC A6,1,A8 LDK A7,/A2 LOAD ORDER CODE RB READ20 EJECT * * CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME * * DSET EVENT CONTROL BLOCK * FILECODE FILE NUMBER * BUF FILE PARAMETER BUFFER * FILE FILE NAME * VOLUME VOLUME NAME * 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 * * 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 * * 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 LKM DATA 15 * STORE FILE CODE IN FILE CODE BUFFER LC A3,1,A8 STR A3,A10 RB READ40 CHEC ON ERROR CODE END
0x0000…002a (0, 0, 400) Head {h00=0x0026, h01=0x0050, text=» IDENT ASSRUT UPD 80-03-20/CHST«, t00=0x0000, t01=0x0004}
0x002a…0046 Head {h00=0x0018, h01=0x0050, text=» UPD 80-02-22/CHST«, t00=0x0000, t01=0x002e}
0x0046…0062 Head {h00=0x0018, h01=0x0050, text=» UPD 80-01-16/CHST«, t00=0x0000, t01=0x004a}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» UPD 79-11-08/PEEN«, t00=0x0000, t01=0x0066}
0x007e…009a Head {h00=0x0018, h01=0x0050, text=» UPD 79-01-30/PEEN«, t00=0x0000, t01=0x0082}
0x009a…00d0 Head {h00=0x0032, h01=0x0050, text=»* ASSEMBLER ROUTINES USED BY PTS DE-UTILITIES «, t00=0x0000, t01=0x009e}
0x00d0…00d8 Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x00d4}
0x00d8…00ee Head {h00=0x0012, h01=0x0050, text=» ENTRY CHANFC «, t00=0x0000, t01=0x00dc}
0x00ee…0104 Head {h00=0x0012, h01=0x000d, text=» ENTRY CREVOL «, t00=0x0000, t01=0x00f2}
0x0104…011a Head {h00=0x0012, h01=0x0050, text=» ENTRY CREFIL «, t00=0x0000, t01=0x0108}
0x011a…0130 Head {h00=0x0012, h01=0x0050, text=» ENTRY DELFIL «, t00=0x0000, t01=0x011e}
0x0130…0146 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVOL «, t00=0x0000, t01=0x0134}
0x0146…015c Head {h00=0x0012, h01=0x0050, text=» ENTRY COPYDD «, t00=0x0000, t01=0x014a}
0x015c…0172 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETFRE «, t00=0x0000, t01=0x0160}
0x0172…0186 Head {h00=0x0010, h01=0x0050, text=» ENTRY CHVOL«, t00=0x0000, t01=0x0176}
0x0186…019c Head {h00=0x0012, h01=0x0050, text=» ENTRY SURVEY «, t00=0x0000, t01=0x018a}
0x019c…01b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBOL «, t00=0x0001, t01=0x0010}
0x01b2…01c8 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBIN «, t00=0x0001, t01=0x0026}
0x01c8…01dc Head {h00=0x0010, h01=0x0050, text=» ENTRY SETB «, t00=0x0001, t01=0x003c}
0x01dc…01f0 Head {h00=0x0010, h01=0x0050, text=» ENTRY TESTB«, t00=0x0001, t01=0x0050}
0x01f0…0206 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEARB «, t00=0x0001, t01=0x0064}
0x0206…021c Head {h00=0x0012, h01=0x0050, text=» ENTRY MSKOUT «, t00=0x0001, t01=0x007a}
0x021c…0232 Head {h00=0x0012, h01=0x0050, text=» ENTRY RDSECT «, t00=0x0001, t01=0x0090}
0x0232…0248 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETOCC «, t00=0x0001, t01=0x00a6}
0x0248…025e Head {h00=0x0012, h01=0x0050, text=» ENTRY SETFRE «, t00=0x0001, t01=0x00bc}
0x025e…0274 Head {h00=0x0012, h01=0x0050, text=» ENTRY VOLNAM «, t00=0x0001, t01=0x00d2}
0x0274…0288 Head {h00=0x0010, h01=0x0050, text=» ENTRY ATTWB«, t00=0x0001, t01=0x00e8}
0x0288…029e Head {h00=0x0012, h01=0x0050, text=» ENTRY CMPIND «, t00=0x0001, t01=0x00fc}
0x029e…02b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETIND «, t00=0x0001, t01=0x0112}
0x02b4…02ca Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTOR «, t00=0x0001, t01=0x0128}
0x02ca…02e0 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITDK «, t00=0x0001, t01=0x013e}
0x02e0…02f6 Head {h00=0x0012, h01=0x0050, text=» ENTRY READDK «, t00=0x0001, t01=0x0154}
0x02f6…030c Head {h00=0x0012, h01=0x0050, text=» ENTRY CLOSEF «, t00=0x0001, t01=0x016a}
0x030c…0320 Head {h00=0x0010, h01=0x0050, text=» ENTRY OPENF«, t00=0x0001, t01=0x0180}
0x0320…032a (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0340 Head {h00=0x0012, h01=0x000d, text=» EXTRN I:EVA0 «, t00=0x0002, t01=0x000e}
0x0340…0354 Head {h00=0x0010, h01=0x0050, text=» EXTRN CRVOL«, t00=0x0002, t01=0x0024}
0x0354…036a Head {h00=0x0012, h01=0x0050, text=» EXTRN CRFILE «, t00=0x0002, t01=0x0038}
0x036a…0380 Head {h00=0x0012, h01=0x0050, text=» EXTRN DLFILE «, t00=0x0002, t01=0x004e}
0x0380…03b4 Head {h00=0x0030, h01=0x0050, text=»* COPY SYSVOL TO SYSVOL NOT IN THIS REL. «, t00=0x0002, t01=0x0064}
0x03b4…03ca Head {h00=0x0012, h01=0x0050, text=»* EXTRN COPVOL«, t00=0x0002, t01=0x0098}
0x03ca…03e0 Head {h00=0x0012, h01=0x0050, text=» EXTRN PRVTOC «, t00=0x0002, t01=0x00ae}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…0400 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0002, t01=0x00ce}
0x0400…0414 Head {h00=0x0010, h01=0x000c, text=» EXTRN I:RT1«, t00=0x0002, t01=0x00e4}
0x0414…042a Head {h00=0x0012, h01=0x0050, text=» EXTRN T:LOFS «, t00=0x0002, t01=0x00f8}
0x042a…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…0452 Head {h00=0x001a, h01=0x0050, text=»CALL FORM 16=/F6A1,16 «, t00=0x0002, t01=0x0118}
0x0452…0460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0136}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…048e Head {h00=0x0020, h01=0x0050, text=»* CHANGE FILE CODE IN ECB «, t00=0x0002, t01=0x014e}
0x048e…04a0 Head {h00=0x000e, h01=0x0050, text=»* CALL: «, t00=0x0002, t01=0x0172}
0x04a0…04ce Head {h00=0x002a, h01=0x0050, text=»* CALL CHANFC,DATASET,FILECODE «, t00=0x0002, t01=0x0184}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d8…04ec Head {h00=0x0010, h01=0x0050, text=»CHANFC EQU *«, t00=0x0003, t01=0x002c}
0x04ec…0512 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:FDSP GET ECB-ADDRESS«, t00=0x0003, t01=0x0040}
0x0512…053c Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRESS TO BIN.«, t00=0x0003, t01=0x0066}
0x053c…055e Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A9 GET FILE CODE «, t00=0x0003, t01=0x0090}
0x055e…0588 Head {h00=0x0026, h01=0x0050, text=» SC A3,1,A8 STORE FILE CODE IN ECB«, t00=0x0003, t01=0x00b2}
0x0588…0598 Head {h00=0x000c, h01=0x0050, text=» RF RET «, t00=0x0003, t01=0x00dc}
0x0598…05a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00ec}
0x05a6…05c0 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x00fa}
0x05c0…05d8 Head {h00=0x0014, h01=0x0050, text=»* CREATE VOLUME«, t00=0x0003, t01=0x0114}
0x05d8…05f2 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0003, t01=0x012c}
0x05f2…0606 Head {h00=0x0010, h01=0x000c, text=»CREVOL EQU *«, t00=0x0003, t01=0x0146}
0x0606…061c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,CRVOL«, t00=0x0003, t01=0x015a}
0x061c…0630 Head {h00=0x0010, h01=0x0050, text=» CALL UTINF «, t00=0x0003, t01=0x0170}
0x0630…063e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0184}
0x063e…0648 (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…067c Head {h00=0x0030, h01=0x0050, text=»* PERFORME A CALL TO ONE OF THE ROUTINES«, t00=0x0004, t01=0x000e}
0x067c…06b0 Head {h00=0x0030, h01=0x0050, text=»* CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC«, t00=0x0004, t01=0x0042}
0x06b0…06e2 Head {h00=0x002e, h01=0x0050, text=»* A1 ADDRESS TO THE WANTED ROUTINE «, t00=0x0004, t01=0x0076}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ec…0700 Head {h00=0x0010, h01=0x0050, text=»UTINF EQU * «, t00=0x0004, t01=0x00b2}
0x0700…0714 Head {h00=0x0010, h01=0x0050, text=» ST A1,RUTIN«, t00=0x0004, t01=0x00c6}
0x0714…073a Head {h00=0x0022, h01=0x001d, text=» CF A14,I:EVA0 A9 = :A PBLOCK «, t00=0x0004, t01=0x00da}
0x073a…075e Head {h00=0x0020, h01=0x001b, text=» LDR A6,A9 ADRESS TO PBLOCK «, t00=0x0004, t01=0x0100}
0x075e…0782 Head {h00=0x0020, h01=0x001b, text=» CF A14,I:EVA0 A9 = :A BUF1 «, t00=0x0004, t01=0x0124}
0x0782…07a6 Head {h00=0x0020, h01=0x001c, text=» STR A9,A6 STORE BUF1 ADRESS«, t00=0x0004, t01=0x0148}
0x07a6…07ca Head {h00=0x0020, h01=0x001b, text=» CF A14,I:EVA0 A9 = :A BUF2 «, t00=0x0004, t01=0x016c}
0x07ca…07f0 Head {h00=0x0022, h01=0x001d, text=» ST A9,2,A6 STORE BUF2 ADRESS «, t00=0x0004, t01=0x0190}
0x07f0…080e Head {h00=0x001a, h01=0x0015, text=» STR A12,A14 SAVE A12 «, t00=0x0005, t01=0x0026}
0x080e…082e Head {h00=0x001c, h01=0x0017, text=» ST A13,-2,A14 SAVE A13 «, t00=0x0005, t01=0x0044}
0x082e…0842 Head {h00=0x0010, h01=0x000b, text=» SUKL A14,4 «, t00=0x0005, t01=0x0064}
0x0842…0856 Head {h00=0x0010, h01=0x000b, text=» LDR A12,A6 «, t00=0x0005, t01=0x0078}
0x0856…086c Head {h00=0x0012, h01=0x0050, text=» CF A14,CRVOL «, t00=0x0005, t01=0x008c}
0x086c…0882 Head {h00=0x0012, h01=0x0050, text=»RUTIN EQU *-2 «, t00=0x0005, t01=0x00a2}
0x0882…0896 Head {h00=0x0010, h01=0x000b, text=» ADKL A14,4 «, t00=0x0005, t01=0x00b8}
0x0896…08ac Head {h00=0x0012, h01=0x000e, text=» LD A13,-2,A14«, t00=0x0005, t01=0x00cc}
0x08ac…08c2 Head {h00=0x0012, h01=0x000d, text=» LDR* A12,A14 «, t00=0x0005, t01=0x00e2}
0x08c2…08e6 Head {h00=0x0020, h01=0x001b, text=» LDR A6,A1 SAVE RETURN CODE «, t00=0x0005, t01=0x00f8}
0x08e6…0912 Head {h00=0x0028, h01=0x0050, text=» CF A14,I:EVA0 GET ADRESS TO RETCOD «, t00=0x0005, t01=0x011c}
0x0912…0924 Head {h00=0x000e, h01=0x000a, text=» STR A6,A9«, t00=0x0005, t01=0x0148}
0x0924…0938 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0005, t01=0x015a}
0x0938…094a Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0005, t01=0x016e}
0x094a…0958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0180}
0x0958…0970 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0005, t01=0x018e}
0x0970…0986 Head {h00=0x0012, h01=0x0050, text=»* CREATE FILE«, t00=0x0006, t01=0x0016}
0x0986…099e Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0006, t01=0x002c}
0x099e…09b2 Head {h00=0x0010, h01=0x0050, text=»CREFIL EQU *«, t00=0x0006, t01=0x0044}
0x09b2…09ca Head {h00=0x0014, h01=0x0050, text=» LDKL A1,CRFILE «, t00=0x0006, t01=0x0058}
0x09ca…09de Head {h00=0x0010, h01=0x0050, text=» CALL UTINF «, t00=0x0006, t01=0x0070}
0x09de…09ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0084}
0x09ec…0a04 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0006, t01=0x0092}
0x0a04…0a1a Head {h00=0x0012, h01=0x0050, text=»* DELETE FILE«, t00=0x0006, t01=0x00aa}
0x0a1a…0a34 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0006, t01=0x00c0}
0x0a34…0a48 Head {h00=0x0010, h01=0x0050, text=»DELFIL EQU *«, t00=0x0006, t01=0x00da}
0x0a48…0a60 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,DLFILE «, t00=0x0006, t01=0x00ee}
0x0a60…0a74 Head {h00=0x0010, h01=0x0050, text=» CALL UTINF «, t00=0x0006, t01=0x0106}
0x0a74…0a82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x011a}
0x0a82…0ac6 Head {h00=0x0040, h01=0x0050, text=»* COPY SYSVOL TO SYSVOL IS NOT IMPLEMENTED IN THIS REL. «, t00=0x0006, t01=0x0128}
0x0ac6…0ae4 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0006, t01=0x016c}
0x0ae4…0b00 Head {h00=0x0018, h01=0x0050, text=»* COPY DISK TO DISK«, t00=0x0006, t01=0x018a}
0x0b00…0b1e Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0007, t01=0x0016}
0x0b1e…0b32 Head {h00=0x0010, h01=0x0050, text=»COPYDD EQU *«, t00=0x0007, t01=0x0034}
0x0b32…0b4a Head {h00=0x0014, h01=0x0050, text=»* LDKL A1,COPVOL«, t00=0x0007, t01=0x0048}
0x0b4a…0b5e Head {h00=0x0010, h01=0x0050, text=»* CALL UTINF«, t00=0x0007, t01=0x0060}
0x0b5e…0b70 Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0007, t01=0x0074}
0x0b70…0b7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0086}
0x0b7e…0bac Head {h00=0x002a, h01=0x0050, text=»* GET VOLUME NAME TO A STRING VARIABEL«, t00=0x0007, t01=0x0094}
0x0bac…0be4 Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD«, t00=0x0007, t01=0x00c2}
0x0be4…0c10 Head {h00=0x0028, h01=0x0050, text=»* RETCOD = 0 IF OK, ELSE 1 «, t00=0x0007, t01=0x00fa}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0126}
0x0c1a…0c2e Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x0007, t01=0x0130}
0x0c2e…0c5a Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0007, t01=0x0144}
0x0c5a…0c88 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 GET BUFFER ADDRESS TO A9 «, t00=0x0007, t01=0x0170}
0x0c88…0cb4 Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 MAKE BUFFER ADDRESS EVEN «, t00=0x0008, t01=0x000e}
0x0cb4…0cca Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x0008, t01=0x003a}
0x0cca…0cfa Head {h00=0x002c, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS IN DSET«, t00=0x0008, t01=0x0050}
0x0cfa…0d20 Head {h00=0x0022, h01=0x0050, text=» LDK A6,6 REQUESTED LENGTH =6 «, t00=0x0008, t01=0x0080}
0x0d20…0d58 Head {h00=0x0034, h01=0x0050, text=» ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS«, t00=0x0008, t01=0x00a6}
0x0d58…0d82 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO VOLNAM«, t00=0x0008, t01=0x00de}
0x0d82…0da6 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/80 LOAD ORDER CODE «, t00=0x0008, t01=0x0108}
0x0da6…0dd6 Head {h00=0x002c, h01=0x0050, text=»* A7 ORDER CODE FOR TEST STATUS «, t00=0x0008, t01=0x012c}
0x0dd6…0df8 Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS «, t00=0x0008, t01=0x015c}
0x0df8…0e04 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0008, t01=0x017e}
0x0e04…0e14 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0008, t01=0x018a}
0x0e14…0e38 Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD RETURN CODE«, t00=0x0009, t01=0x000a}
0x0e38…0e4e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ERROR «, t00=0x0009, t01=0x002e}
0x0e4e…0e8c Head {h00=0x003a, h01=0x0050, text=»* STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) «, t00=0x0009, t01=0x0044}
0x0e8c…0eb2 Head {h00=0x0022, h01=0x0050, text=»* IN CALLERS BUFFER VOLNAM«, t00=0x0009, t01=0x0082}
0x0eb2…0eda Head {h00=0x0024, h01=0x0050, text=» LD A1,2,A8 LOAD BUFFER ADDRESS «, t00=0x0009, t01=0x00a8}
0x0eda…0f06 Head {h00=0x0028, h01=0x0050, text=» LDK A2,6 NO OF BYTES IN VOLUME NAME«, t00=0x0009, t01=0x00d0}
0x0f06…0f18 Head {h00=0x000e, h01=0x0050, text=»LOOP EQU *«, t00=0x0009, t01=0x00fc}
0x0f18…0f2a Head {h00=0x000e, h01=0x0050, text=» LCR A3,A1«, t00=0x0009, t01=0x010e}
0x0f2a…0f3c Head {h00=0x000e, h01=0x0050, text=» SCR A3,A9«, t00=0x0009, t01=0x0120}
0x0f3c…0f4e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0009, t01=0x0132}
0x0f4e…0f60 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0009, t01=0x0144}
0x0f60…0f72 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0009, t01=0x0156}
0x0f72…0f86 Head {h00=0x0010, h01=0x0050, text=» RB(P) LOOP «, t00=0x0009, t01=0x0168}
0x0f86…0f96 Head {h00=0x000c, h01=0x0050, text=»UT EQU *«, t00=0x0009, t01=0x017c}
0x0f96…0fa8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0009, t01=0x018c}
0x0fa8…0fc2 Head {h00=0x0016, h01=0x0050, text=»VIN CF A14,I:EVA0 «, t00=0x000a, t01=0x000e}
0x0fc2…0fe6 Head {h00=0x0020, h01=0x0050, text=» STR A6,A9 STORE RETURN-CODE«, t00=0x000a, t01=0x0028}
0x0fe6…0ffc Head {h00=0x0012, h01=0x0050, text=»RET ABL I:RT1 «, t00=0x000a, t01=0x004c}
0x0ffc…1012 Head {h00=0x0012, h01=0x0050, text=»ERROR LDK A6,1«, t00=0x000a, t01=0x0062}
0x1012…1022 Head {h00=0x000c, h01=0x0050, text=» RB VIN «, t00=0x000a, t01=0x0078}
0x1022…1030 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0088}
0x1030…1064 Head {h00=0x0030, h01=0x002b, text=»* GET A FREE RECORD FROM FREE-SPACE RECORD «, t00=0x000a, t01=0x0096}
0x1064…109e Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x000a, t01=0x00ca}
0x109e…10de Head {h00=0x003c, h01=0x0038, text=»* OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND)«, t00=0x000a, t01=0x0104}
0x10de…10f2 Head {h00=0x0010, h01=0x000c, text=»GETFRE EQU *«, t00=0x000a, t01=0x0144}
0x10f2…111e Head {h00=0x0028, h01=0x0024, text=» CALL GETPAR GET PARAMETER ADDRESSES«, t00=0x000a, t01=0x0158}
0x111e…114c Head {h00=0x002a, h01=0x0026, text=» LD A4,-2,A7 GET NUMBER OF FRE RECORDS«, t00=0x000a, t01=0x0184}
0x114c…116c Head {h00=0x001c, h01=0x0017, text=» RF(Z) NOK IF NONE FREE «, t00=0x000b, t01=0x0022}
0x116c…1180 Head {h00=0x0010, h01=0x000c, text=»GET100 EQU *«, t00=0x000b, t01=0x0042}
0x1180…1192 Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x000b, t01=0x0056}
0x1192…11b2 Head {h00=0x001c, h01=0x0018, text=» RF(E) NOK END OF RECORD«, t00=0x000b, t01=0x0068}
0x11b2…11dc Head {h00=0x0026, h01=0x0021, text=» LCR A4,A7 GET BITS FOR 8 RECORDS «, t00=0x000b, t01=0x0088}
0x11dc…1200 Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 SHIFT TO RIGHTMOST«, t00=0x000b, t01=0x00b2}
0x1200…1230 Head {h00=0x002c, h01=0x0027, text=» RF(NZ) SEARCH AT LEAST ONE RECORD FREE «, t00=0x000b, t01=0x00d6}
0x1230…1254 Head {h00=0x0020, h01=0x001b, text=» ADK A7,1 INCREMENT POINTER «, t00=0x000b, t01=0x0106}
0x1254…127a Head {h00=0x0022, h01=0x001e, text=» ADK A6,8 UPDATE RECORD NUMBER«, t00=0x000b, t01=0x012a}
0x127a…128c Head {h00=0x000e, h01=0x000a, text=» RB GET100«, t00=0x000b, t01=0x0150}
0x128c…12a0 Head {h00=0x0010, h01=0x000c, text=»SEARCH EQU *«, t00=0x000b, t01=0x0162}
0x12a0…12cc Head {h00=0x0028, h01=0x0024, text=» LDK A5,0 INDICATE FIRST BIT IN BYTE«, t00=0x000b, t01=0x0176}
0x12cc…12de Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x000c, t01=0x0012}
0x12de…1302 Head {h00=0x0020, h01=0x001b, text=»SEA100 RF(N) FOUND IF FOUND «, t00=0x000c, t01=0x0024}
0x1302…1326 Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT COUNTER «, t00=0x000c, t01=0x0048}
0x1326…1338 Head {h00=0x000e, h01=0x0009, text=» SLL A4,1 «, t00=0x000c, t01=0x006c}
0x1338…134a Head {h00=0x000e, h01=0x000a, text=» RB SEA100«, t00=0x000c, t01=0x007e}
0x134a…136a Head {h00=0x001c, h01=0x0018, text=»FOUND SLL A4,1 CLEAR BIT«, t00=0x000c, t01=0x0090}
0x136a…139a Head {h00=0x002c, h01=0x0028, text=» ADR A6,A5 UPDATE RELATIVE RECORD NUMBER«, t00=0x000c, t01=0x00b0}
0x139a…13b2 Head {h00=0x0014, h01=0x000f, text=»FOU100 SRL A4,1 «, t00=0x000c, t01=0x00e0}
0x13b2…13d6 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x000c, t01=0x00f8}
0x13d6…13ec Head {h00=0x0012, h01=0x000e, text=» RB(NN) FOU100«, t00=0x000c, t01=0x011c}
0x13ec…13fe Head {h00=0x000e, h01=0x0009, text=» SRL A4,8 «, t00=0x000c, t01=0x0132}
0x13fe…1424 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x000c, t01=0x0144}
0x1424…1438 Head {h00=0x0010, h01=0x000c, text=» LC A7,17,A9«, t00=0x000c, t01=0x016a}
0x1438…144a Head {h00=0x000e, h01=0x000a, text=» ECR A7,A7«, t00=0x000c, t01=0x017e}
0x144a…1476 Head {h00=0x0028, h01=0x0024, text=» LC A7,18,A9 GET START RECORD NUMBER«, t00=0x000c, t01=0x0190}
0x1476…14a2 Head {h00=0x0028, h01=0x0024, text=» ADR A6,A7 GET CURRENT RECORD NUMBER«, t00=0x000d, t01=0x002c}
0x14a2…14b6 Head {h00=0x0010, h01=0x000b, text=» LDKL A1,-1 «, t00=0x000d, t01=0x0058}
0x14b6…14e6 Head {h00=0x002c, h01=0x0027, text=» ADRS A1,A2 DECREMENT NO. OF FREE RECS. «, t00=0x000d, t01=0x006c}
0x14e6…14f8 Head {h00=0x000e, h01=0x0009, text=»NOK EQU * «, t00=0x000d, t01=0x009c}
0x14f8…150c Head {h00=0x0010, h01=0x000c, text=» CALL I:EVA0«, t00=0x000d, t01=0x00ae}
0x150c…1536 Head {h00=0x0026, h01=0x0022, text=»NOK100 STR A6,A9 STORE FOUND INDEX«, t00=0x000d, t01=0x00c2}
0x1536…1546 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x000d, t01=0x00ec}
0x1546…1554 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00fc}
0x1554…1568 Head {h00=0x0010, h01=0x000c, text=»GETPAR EQU *«, t00=0x000d, t01=0x010a}
0x1568…158e Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO BPOOL «, t00=0x000d, t01=0x011e}
0x158e…15ae Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 COPY ADDRESS «, t00=0x000d, t01=0x0144}
0x15ae…15d4 Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO RPOOL «, t00=0x000d, t01=0x0164}
0x15d4…15e8 Head {h00=0x0010, h01=0x000c, text=» LC A8,15,A9«, t00=0x000d, t01=0x018a}
0x15e8…15fa Head {h00=0x000e, h01=0x000a, text=» ECR A8,A8«, t00=0x000e, t01=0x000e}
0x15fa…1622 Head {h00=0x0024, h01=0x001f, text=» LC A8,16,A9 GET OCCUPIED BYTES «, t00=0x000e, t01=0x0020}
0x1622…1644 Head {h00=0x001e, h01=0x001a, text=» ADR A8,A7 GET END ADDRESS«, t00=0x000e, t01=0x0048}
0x1644…1658 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,10 «, t00=0x000e, t01=0x006a}
0x1658…167e Head {h00=0x0022, h01=0x001d, text=» LDR A2,A7 SAVE START ADDRESS «, t00=0x000e, t01=0x007e}
0x167e…16a6 Head {h00=0x0024, h01=0x001f, text=» ADK A7,2 ADDRESS TO FIRST BITS «, t00=0x000e, t01=0x00a4}
0x16a6…16b8 Head {h00=0x000e, h01=0x0009, text=» LDK A6,0 «, t00=0x000e, t01=0x00cc}
0x16b8…16c8 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x000e, t01=0x00de}
0x16c8…16d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00ee}
0x16d6…16f6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x00fc}
0x16f6…1716 Head {h00=0x001c, h01=0x0050, text=»* CHANGE VOLUME NAME *«, t00=0x000e, t01=0x011c}
0x1716…1736 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000e, t01=0x013c}
0x1736…174a Head {h00=0x0010, h01=0x0050, text=»CHVOL EQU * «, t00=0x000e, t01=0x015c}
0x174a…175e Head {h00=0x0010, h01=0x0050, text=» CALL T:FDSP«, t00=0x000e, t01=0x0170}
0x175e…177e Head {h00=0x001c, h01=0x0050, text=» CM 10,A8 SECTOR NO. = 0«, t00=0x000e, t01=0x0184}
0x177e…1790 Head {h00=0x000e, h01=0x0050, text=» CM 12,A8 «, t00=0x000f, t01=0x0014}
0x1790…17aa Head {h00=0x0016, h01=0x0050, text=»CHV100 LDKL A1,256«, t00=0x000f, t01=0x0026}
0x17aa…17d4 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 STORE REQUESTED LENGTH«, t00=0x000f, t01=0x0040}
0x17d4…17e8 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000f, t01=0x006a}
0x17e8…1810 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADRESS «, t00=0x000f, t01=0x007e}
0x1810…1828 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/B7 LOCK«, t00=0x000f, t01=0x00a6}
0x1828…1834 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x00be}
0x1834…1844 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000f, t01=0x00ca}
0x1844…1868 Head {h00=0x0020, h01=0x0050, text=» LD A6,8,A8 GET RETURN CODE «, t00=0x000f, t01=0x00da}
0x1868…1886 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/81 BASIC READ«, t00=0x000f, t01=0x00fe}
0x1886…1892 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x011c}
0x1892…18a2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000f, t01=0x0128}
0x18a2…18c6 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET VOLUME NAME«, t00=0x000f, t01=0x0138}
0x18c6…18da Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A8 «, t00=0x000f, t01=0x015c}
0x18da…18ec Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x000f, t01=0x0170}
0x18ec…1914 Head {h00=0x0024, h01=0x0050, text=»CHV200 LCR A3,A9 READ CHARACTER «, t00=0x000f, t01=0x0182}
0x1914…1936 Head {h00=0x001e, h01=0x0050, text=» SCR A3,A1 STORE CHARACTER«, t00=0x0010, t01=0x001a}
0x1936…1948 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0010, t01=0x003c}
0x1948…195a Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0010, t01=0x004e}
0x195a…196c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0010, t01=0x0060}
0x196c…1992 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) CHV200 IF NOT FINISHED«, t00=0x0010, t01=0x0072}
0x1992…19b2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/85 WRITE BASIC «, t00=0x0010, t01=0x0098}
0x19b2…19be Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x00b8}
0x19be…19ce Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x00c4}
0x19ce…19e2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0010, t01=0x00d4}
0x19e2…19ee Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x00e8}
0x19ee…19fe Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x00f4}
0x19fe…1a10 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0010, t01=0x0104}
0x1a10…1a40 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CHVUT JUMP IF NOT TO BE UNLOADED«, t00=0x0010, t01=0x0116}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B8 «, t00=0x0010, t01=0x0146}
0x1a54…1a60 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x015a}
0x1a60…1a70 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0010, t01=0x0166}
0x1a70…1a84 Head {h00=0x0010, h01=0x0050, text=»CHVUT EQU * «, t00=0x0010, t01=0x0176}
0x1a84…1a96 Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0010, t01=0x018a}
0x1a96…1aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x000c}
0x1aa4…1ab6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x001a}
0x1ab6…1ac8 Head {h00=0x000e, h01=0x0050, text=»* PVC * «, t00=0x0011, t01=0x002c}
0x1ac8…1ada Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x003e}
0x1ada…1aee Head {h00=0x0010, h01=0x0050, text=»SURVEY EQU *«, t00=0x0011, t01=0x0050}
0x1aee…1b06 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PRVTOC «, t00=0x0011, t01=0x0064}
0x1b06…1b1a Head {h00=0x0010, h01=0x0050, text=» CALL UTINF «, t00=0x0011, t01=0x007c}
0x1b1a…1b28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0090}
0x1b28…1b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b32…1b68 Head {h00=0x0032, h01=0x0050, text=»* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING«, t00=0x0011, t01=0x00a8}
0x1b68…1b84 Head {h00=0x0018, h01=0x0050, text=»* 16 BOOLEAN ITEMS«, t00=0x0011, t01=0x00de}
0x1b84…1b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fa}
0x1b8e…1ba2 Head {h00=0x0010, h01=0x0050, text=»UPDBOL EQU *«, t00=0x0011, t01=0x0104}
0x1ba2…1bce Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0011, t01=0x0118}
0x1bce…1bf2 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A9 GET BIN CONTENTS«, t00=0x0011, t01=0x0144}
0x1bf2…1c16 Head {h00=0x0020, h01=0x0050, text=» ST A1,-2,A9 STORE BOOLEANS «, t00=0x0011, t01=0x0168}
0x1c16…1c28 Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0011, t01=0x018c}
0x1c28…1c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000e}
0x1c32…1c68 Head {h00=0x0032, h01=0x0050, text=»* MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN«, t00=0x0012, t01=0x0018}
0x1c68…1c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004e}
0x1c72…1c86 Head {h00=0x0010, h01=0x0050, text=»UPDBIN EQU *«, t00=0x0012, t01=0x0058}
0x1c86…1cb2 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0012, t01=0x006c}
0x1cb2…1cd4 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A9 GET BOOLEANS «, t00=0x0012, t01=0x0098}
0x1cd4…1cf4 Head {h00=0x001c, h01=0x0050, text=» STR A1,A9 STORE IN BIN «, t00=0x0012, t01=0x00ba}
0x1cf4…1d06 Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0012, t01=0x00da}
0x1d06…1d14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ec}
0x1d14…1d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fa}
0x1d1e…1d52 Head {h00=0x0030, h01=0x0050, text=»* SEARCH WANTED BIT IN A CHARACTER STRING «, t00=0x0012, t01=0x0104}
0x1d52…1d6e Head {h00=0x0018, h01=0x0050, text=»* A3 = BIT INDEX «, t00=0x0012, t01=0x0138}
0x1d6e…1d9e Head {h00=0x002c, h01=0x0050, text=»* A7 = CHARACTER STRING START ADDRESS«, t00=0x0012, t01=0x0154}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0184}
0x1da8…1dbc Head {h00=0x0010, h01=0x0050, text=»SEABIT EQU *«, t00=0x0012, t01=0x018e}
0x1dbc…1dd4 Head {h00=0x0014, h01=0x000f, text=»SET050 SUK A3,8 «, t00=0x0013, t01=0x0012}
0x1dd4…1dea Head {h00=0x0012, h01=0x000d, text=» RF(N) SET100 «, t00=0x0013, t01=0x002a}
0x1dea…1dfc Head {h00=0x000e, h01=0x0009, text=» ADK A7,1 «, t00=0x0013, t01=0x0040}
0x1dfc…1e0e Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x0013, t01=0x0052}
0x1e0e…1e38 Head {h00=0x0026, h01=0x0022, text=» RB(NE) SET050 CONTINUE IN NOT EOR«, t00=0x0013, t01=0x0064}
0x1e38…1e66 Head {h00=0x002a, h01=0x0025, text=» LDK A6,0 INDICATE INCORRECT REC. NO. «, t00=0x0013, t01=0x008e}
0x1e66…1e76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x00bc}
0x1e76…1e96 Head {h00=0x001c, h01=0x0018, text=»* PLACED IN CURRENT BYTE«, t00=0x0013, t01=0x00cc}
0x1e96…1eaa Head {h00=0x0010, h01=0x000c, text=»SET100 EQU *«, t00=0x0013, t01=0x00ec}
0x1eaa…1ebc Head {h00=0x000e, h01=0x0009, text=» ADK A3,8 «, t00=0x0013, t01=0x0100}
0x1ebc…1ece Head {h00=0x000e, h01=0x000a, text=» LCR A4,A7«, t00=0x0013, t01=0x0112}
0x1ece…1ef2 Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 GET BYTE RIGHTMOST«, t00=0x0013, t01=0x0124}
0x1ef2…1f0c Head {h00=0x0016, h01=0x0012, text=» LDR A1,A3 COPY A3«, t00=0x0013, t01=0x0148}
0x1f0c…1f2c Head {h00=0x001c, h01=0x0018, text=» RF(Z) TEST IF FIRST BIT«, t00=0x0013, t01=0x0162}
0x1f2c…1f40 Head {h00=0x0010, h01=0x000c, text=»SET300 EQU *«, t00=0x0013, t01=0x0182}
0x1f40…1f52 Head {h00=0x000e, h01=0x0009, text=» SLC A4,1 «, t00=0x0014, t01=0x0008}
0x1f52…1f64 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0014, t01=0x001a}
0x1f64…1f7a Head {h00=0x0012, h01=0x000e, text=» RB(NZ) SET300«, t00=0x0014, t01=0x002c}
0x1f7a…1f8c Head {h00=0x000e, h01=0x000a, text=»TEST EQU *«, t00=0x0014, t01=0x0042}
0x1f8c…1f9c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0054}
0x1f9c…1faa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0064}
0x1faa…1fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0072}
0x1fb4…1fe6 Head {h00=0x002e, h01=0x0050, text=»* SET WANTED BIT IN A STRING OR BIN ITEM «, t00=0x0014, t01=0x007c}
0x1fe6…2010 Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL SETB,ITEM,INDEX «, t00=0x0014, t01=0x00ae}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d8}
0x201a…202c Head {h00=0x000e, h01=0x0050, text=»SETB EQU *«, t00=0x0014, t01=0x00e2}
0x202c…2050 Head {h00=0x0020, h01=0x0050, text=» SUR A10,A10 INDICATE 'SET' «, t00=0x0014, t01=0x00f4}
0x2050…2064 Head {h00=0x0010, h01=0x0050, text=»SETB10 EQU *«, t00=0x0014, t01=0x0118}
0x2064…208c Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO ITEM«, t00=0x0014, t01=0x012c}
0x208c…20ac Head {h00=0x001c, h01=0x0050, text=» LDR A7,A9 COPY ADDRESS «, t00=0x0014, t01=0x0154}
0x20ac…20ce Head {h00=0x001e, h01=0x0050, text=» LDR A8,A5 COPY ENDADDRESS«, t00=0x0014, t01=0x0174}
0x20ce…20f8 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0015, t01=0x0008}
0x20f8…2116 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A9 GET INDEX «, t00=0x0015, t01=0x0032}
0x2116…213c Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x0015, t01=0x0050}
0x213c…2150 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0015, t01=0x0076}
0x2150…2172 Head {h00=0x001e, h01=0x0050, text=» RF(N) SETB30 IF TEST BIT «, t00=0x0015, t01=0x008a}
0x2172…2196 Head {h00=0x0020, h01=0x0050, text=» RF(Z) SETB20 JUMP IF SETBIT«, t00=0x0015, t01=0x00ac}
0x2196…21aa Head {h00=0x0010, h01=0x0050, text=»* CLEAR BIT «, t00=0x0015, t01=0x00d0}
0x21aa…21ca Head {h00=0x001c, h01=0x0050, text=» ANKL A4,/7FFF CLEAR BIT«, t00=0x0015, t01=0x00e4}
0x21ca…21ea Head {h00=0x001c, h01=0x0050, text=» RF TES200 RESTORE BYTE «, t00=0x0015, t01=0x0104}
0x21ea…21fc Head {h00=0x000e, h01=0x0050, text=»* SET BIT «, t00=0x0015, t01=0x0124}
0x21fc…2210 Head {h00=0x0010, h01=0x0050, text=»SETB20 EQU *«, t00=0x0015, t01=0x0136}
0x2210…222e Head {h00=0x001a, h01=0x0050, text=» ORKL A4,/8000 SET BIT«, t00=0x0015, t01=0x014a}
0x222e…224e Head {h00=0x001c, h01=0x0050, text=» RF TES200 RESTORE BYTE «, t00=0x0015, t01=0x0168}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=»SETB30 EQU *«, t00=0x0015, t01=0x0188}
0x2262…2282 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 INDICATE FALSE«, t00=0x0016, t01=0x000c}
0x2282…229e Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 TEST BIT «, t00=0x0016, t01=0x002c}
0x229e…22be Head {h00=0x001c, h01=0x0050, text=» RF(NN) SETB40 IF FALSE «, t00=0x0016, t01=0x0048}
0x22be…22de Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE TRUE «, t00=0x0016, t01=0x0068}
0x22de…22f2 Head {h00=0x0010, h01=0x0050, text=»SETB40 EQU *«, t00=0x0016, t01=0x0088}
0x22f2…2316 Head {h00=0x0020, h01=0x0050, text=» LD A4,2,A13 GET STACK BASE «, t00=0x0016, t01=0x009c}
0x2316…233c Head {h00=0x0022, h01=0x0050, text=» SC A1,-2,A4 STORE CR ON STACK«, t00=0x0016, t01=0x00c0}
0x233c…234e Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0016, t01=0x00e6}
0x234e…2358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f8}
0x2358…2386 Head {h00=0x002a, h01=0x0050, text=»* CLEAR BIT IN STRING OR BIN VARIABLE«, t00=0x0016, t01=0x0102}
0x2386…23b2 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL CLEARB,ITEM,INDEX«, t00=0x0016, t01=0x0130}
0x23b2…23bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015c}
0x23bc…23d0 Head {h00=0x0010, h01=0x0050, text=»CLEARB EQU *«, t00=0x0016, t01=0x0166}
0x23d0…23f8 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,1 INDICATE 'CLEAR BIT'«, t00=0x0016, t01=0x017a}
0x23f8…2414 Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0017, t01=0x0012}
0x2414…241e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002e}
0x241e…244c Head {h00=0x002a, h01=0x0050, text=»* TEST BIT IN STRING OR BIN VARIABLE «, t00=0x0017, t01=0x0038}
0x244c…2478 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL TESTB,ITEM,INDEX «, t00=0x0017, t01=0x0066}
0x2478…24a2 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: CR = 0 (BIT IS FALSE)«, t00=0x0017, t01=0x0092}
0x24a2…24cc Head {h00=0x0026, h01=0x0050, text=»* CR = 1 (BIT IS TRUE) «, t00=0x0017, t01=0x00bc}
0x24cc…24d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e6}
0x24d6…24ea Head {h00=0x0010, h01=0x0050, text=»TESTB EQU * «, t00=0x0017, t01=0x00f0}
0x24ea…2512 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,-1 INDICATE 'TEST BIT'«, t00=0x0017, t01=0x0104}
0x2512…252e Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0017, t01=0x012c}
0x252e…253c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0148}
0x253c…2546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0156}
0x2546…2578 Head {h00=0x002e, h01=0x0050, text=»* MASK OUT WANTED BITS ACCORDING TO MASK «, t00=0x0017, t01=0x0160}
0x2578…25a2 (24, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL MSKOUT,MASK,BIN «, t00=0x0018, t01=0x0004}
0x25a2…25dc Head {h00=0x0036, h01=0x0050, text=»* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN «, t00=0x0018, t01=0x002e}
0x25dc…2618 Head {h00=0x0038, h01=0x0050, text=»* THE RESULT AFTER THE LOGICAL AND OPERATION«, t00=0x0018, t01=0x0068}
0x2618…264c Head {h00=0x0030, h01=0x0050, text=»* BIN= BIN HOLDING THE VALUE TO BE MASKED«, t00=0x0018, t01=0x00a4}
0x264c…2656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x2656…266a Head {h00=0x0010, h01=0x0050, text=»MSKOUT EQU *«, t00=0x0018, t01=0x00e2}
0x266a…268e Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO MASK«, t00=0x0018, t01=0x00f6}
0x268e…26a0 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0018, t01=0x011a}
0x26a0…26c4 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO BIN «, t00=0x0018, t01=0x012c}
0x26c4…26ec Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A9 GET CONTENTS OF BIN «, t00=0x0018, t01=0x0150}
0x26ec…271a Head {h00=0x002a, h01=0x0050, text=» ANRS A1,A6 LOGICAL AND WITH MASK AND «, t00=0x0018, t01=0x0178}
0x271a…273a Head {h00=0x001c, h01=0x0050, text=» STORE RESULT IN MASK «, t00=0x0019, t01=0x0016}
0x273a…274c Head {h00=0x000e, h01=0x000a, text=» ABL I:RT1«, t00=0x0019, t01=0x0036}
0x274c…2756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0048}
0x2756…2764 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0052}
0x2764…2782 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x0060}
0x2782…27a0 Head {h00=0x001a, h01=0x0050, text=»* READ DISK SECTOR *«, t00=0x0019, t01=0x007e}
0x27a0…27be Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x009c}
0x27be…27d2 Head {h00=0x0010, h01=0x0050, text=»RDSECT EQU *«, t00=0x0019, t01=0x00ba}
0x27d2…27e6 Head {h00=0x0010, h01=0x0050, text=» CALL T:FDSP«, t00=0x0019, t01=0x00ce}
0x27e6…27fa Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0019, t01=0x00e2}
0x27fa…280e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A9 «, t00=0x0019, t01=0x00f6}
0x280e…2820 Head {h00=0x000e, h01=0x0050, text=» CM 10,A8 «, t00=0x0019, t01=0x010a}
0x2820…2848 Head {h00=0x0024, h01=0x0050, text=» ST A1,12,A8 STORE SECTOR NUMBER«, t00=0x0019, t01=0x011c}
0x2848…2862 Head {h00=0x0016, h01=0x0050, text=»RDS100 LDKL A1,256«, t00=0x0019, t01=0x0144}
0x2862…288c Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 STORE REQUESTED LENGTH«, t00=0x0019, t01=0x015e}
0x288c…28a0 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0019, t01=0x0188}
0x28a0…28c8 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADRESS «, t00=0x001a, t01=0x000c}
0x28c8…28e0 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/B7 LOCK«, t00=0x001a, t01=0x0034}
0x28e0…28ec Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x004c}
0x28ec…28fc Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x0058}
0x28fc…291a Head {h00=0x001a, h01=0x0050, text=» LDK A7,/81 BASIC READ«, t00=0x001a, t01=0x0068}
0x291a…2926 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0086}
0x2926…2936 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x0092}
0x2936…2950 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/B8 UNLOCK«, t00=0x001a, t01=0x00a2}
0x2950…295c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x00bc}
0x295c…296c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x00c8}
0x296c…2982 Head {h00=0x0012, h01=0x0050, text=»RET1 ABL I:RT1«, t00=0x001a, t01=0x00d8}
0x2982…2990 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001a, t01=0x00ee}
0x2990…29c8 Head {h00=0x0034, h01=0x0031, text=»* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF«, t00=0x001a, t01=0x00fc}
0x29c8…2a02 Head {h00=0x0036, h01=0x0031, text=»* FREE RECORD COUNTER. THIS IS ONLY DONE «, t00=0x001a, t01=0x0134}
0x2a02…2a30 Head {h00=0x002a, h01=0x0025, text=»* IF CURRENT RECORD WAS BUSY «, t00=0x001a, t01=0x016e}
0x2a30…2a6a Head {h00=0x0036, h01=0x0031, text=»* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB «, t00=0x001b, t01=0x000c}
0x2a6a…2aae Head {h00=0x0040, h01=0x003c, text=»* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER)«, t00=0x001b, t01=0x0046}
0x2aae…2ab8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x008a}
0x2ab8…2acc Head {h00=0x0010, h01=0x000c, text=»SETFRE EQU *«, t00=0x001b, t01=0x0094}
0x2acc…2af0 Head {h00=0x0020, h01=0x001c, text=» SUR A10,A10 INDICATE SETFRE«, t00=0x001b, t01=0x00a8}
0x2af0…2b02 Head {h00=0x000e, h01=0x0009, text=»SET EQU * «, t00=0x001b, t01=0x00cc}
0x2b02…2b16 Head {h00=0x0010, h01=0x000c, text=» CALL GETPAR«, t00=0x001b, t01=0x00de}
0x2b16…2b36 Head {h00=0x001c, h01=0x0017, text=» LDR A6,A9 COPY ADDRESS «, t00=0x001b, t01=0x00f2}
0x2b36…2b62 Head {h00=0x0028, h01=0x0024, text=» CALL I:EVA0 GET ADDRESS TO REC. NO.«, t00=0x001b, t01=0x0112}
0x2b62…2b7c Head {h00=0x0016, h01=0x0012, text=» LDR A2,A7 COPY A7«, t00=0x001b, t01=0x013e}
0x2b7c…2b9a Head {h00=0x001a, h01=0x0015, text=» LDR* A3,A9 GET INDEX «, t00=0x001b, t01=0x0158}
0x2b9a…2bae Head {h00=0x0010, h01=0x000c, text=» LC A1,17,A6«, t00=0x001b, t01=0x0176}
0x2bae…2bc0 Head {h00=0x000e, h01=0x000a, text=» ECR A1,A1«, t00=0x001b, t01=0x018a}
0x2bc0…2bec Head {h00=0x0028, h01=0x0024, text=» LC A1,18,A6 GET START RECORD NUMBER«, t00=0x001c, t01=0x000c}
0x2bec…2c16 Head {h00=0x0026, h01=0x0022, text=» SUR A3,A1 GET RELATIVE RECORD NO.«, t00=0x001c, t01=0x0038}
0x2c16…2c3c Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x001c, t01=0x0062}
0x2c3c…2c4e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x001c, t01=0x0088}
0x2c4e…2c72 Head {h00=0x0020, h01=0x0050, text=» RF(Z) NOK150 JUMP IF ERROR «, t00=0x001c, t01=0x009a}
0x2c72…2c86 Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x001c, t01=0x00be}
0x2c86…2ca6 Head {h00=0x001c, h01=0x0017, text=» RF(NZ) TEST0 IF SET0CC «, t00=0x001c, t01=0x00d2}
0x2ca6…2ccc Head {h00=0x0022, h01=0x001e, text=»* SETFRE: TEST IF ALREADY FREE«, t00=0x001c, t01=0x00f2}
0x2ccc…2ce4 Head {h00=0x0014, h01=0x000f, text=»TEST1 LDR A4,A4 «, t00=0x001c, t01=0x0118}
0x2ce4…2d08 Head {h00=0x0020, h01=0x0050, text=» RB(N) RET1 IF ALREADY FREE «, t00=0x001c, t01=0x0130}
0x2d08…2d2e Head {h00=0x0022, h01=0x001e, text=» ORKL A4,/8000 SET RECORD FREE«, t00=0x001c, t01=0x0154}
0x2d2e…2d52 Head {h00=0x0020, h01=0x001c, text=» LDK A1,1 INDICATE INCREMENT«, t00=0x001c, t01=0x017a}
0x2d52…2d84 Head {h00=0x002e, h01=0x002a, text=»TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER«, t00=0x001d, t01=0x000e}
0x2d84…2d9c Head {h00=0x0014, h01=0x000f, text=»TES200 SUK A3,1 «, t00=0x001d, t01=0x0040}
0x2d9c…2dc0 Head {h00=0x0020, h01=0x001b, text=» RF(N) TES300 BYTE RESTORED «, t00=0x001d, t01=0x0058}
0x2dc0…2dd2 Head {h00=0x000e, h01=0x0009, text=» SRC A4,1 «, t00=0x001d, t01=0x007c}
0x2dd2…2de4 Head {h00=0x000e, h01=0x000a, text=» RB TES200«, t00=0x001d, t01=0x008e}
0x2de4…2e12 Head {h00=0x002a, h01=0x0026, text=»TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE«, t00=0x001d, t01=0x00a0}
0x2e12…2e38 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x001d, t01=0x00ce}
0x2e38…2e48 Head {h00=0x000c, h01=0x0050, text=» RB RET1«, t00=0x001d, t01=0x00f4}
0x2e48…2e52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0104}
0x2e52…2e7c Head {h00=0x0026, h01=0x0022, text=»* SETOCC: TEST IF ALREADY OCCUPIED«, t00=0x001d, t01=0x010e}
0x2e7c…2e90 Head {h00=0x0010, h01=0x000b, text=»TEST0 EQU * «, t00=0x001d, t01=0x0138}
0x2e90…2ea2 Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x001d, t01=0x014c}
0x2ea2…2eca Head {h00=0x0024, h01=0x0050, text=» RB(NN) RET1 IF ALREADY OCCUPIED«, t00=0x001d, t01=0x015e}
0x2eca…2ef8 Head {h00=0x002a, h01=0x0025, text=» SUK A1,1 A1 = -1; INDICATE DECREMENT «, t00=0x001d, t01=0x0186}
0x2ef8…2f20 Head {h00=0x0024, h01=0x0020, text=» ANKL A4,/7FFF INDICATE OCCUPIED«, t00=0x001e, t01=0x0024}
0x2f20…2f32 Head {h00=0x000e, h01=0x000a, text=» RB TES100«, t00=0x001e, t01=0x004c}
0x2f32…2f46 Head {h00=0x0010, h01=0x0050, text=»NOK150 EQU *«, t00=0x001e, t01=0x005e}
0x2f46…2f58 Head {h00=0x000e, h01=0x0050, text=» STR A6,A9«, t00=0x001e, t01=0x0072}
0x2f58…2f68 Head {h00=0x000c, h01=0x0050, text=» RB RET1«, t00=0x001e, t01=0x0084}
0x2f68…2f76 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001e, t01=0x0094}
0x2f76…2fac Head {h00=0x0032, h01=0x002d, text=»* SET RECORD OCCUPIED AND DECREMENT NUMBER OF «, t00=0x001e, t01=0x00a2}
0x2fac…2fe8 Head {h00=0x0038, h01=0x0033, text=»* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD «, t00=0x001e, t01=0x00d8}
0x2fe8…2ffa Head {h00=0x000e, h01=0x0009, text=»* IS FREE «, t00=0x001e, t01=0x0114}
0x2ffa…3034 Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x001e, t01=0x0126}
0x3034…3072 Head {h00=0x003a, h01=0x0036, text=»* NUMB = CURRENT RECORD NUMBER (= 0 AS OUTPUT IF«, t00=0x001e, t01=0x0160}
0x3072…30b0 Head {h00=0x003a, h01=0x0035, text=»* WRONG NUMBER) «, t00=0x001f, t01=0x000e}
0x30b0…30c4 Head {h00=0x0010, h01=0x000c, text=»SETOCC EQU *«, t00=0x001f, t01=0x004c}
0x30c4…30e8 Head {h00=0x0020, h01=0x001c, text=» LDR A10,A14 INDICATE SETOCC«, t00=0x001f, t01=0x0060}
0x30e8…30f8 Head {h00=0x000c, h01=0x0007, text=» RB SET «, t00=0x001f, t01=0x0084}
0x30f8…3102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0094}
0x3102…312c Head {h00=0x0026, h01=0x0050, text=»* VOLNAM - SUBROUTINE TO CRVOL *«, t00=0x001f, t01=0x009e}
0x312c…3136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c8}
0x3136…314a Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x001f, t01=0x00d2}
0x314a…315c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001f, t01=0x00e6}
0x315c…316c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x00f8}
0x316c…317a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0108}
0x317a…3184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0116}
0x3184…31b8 Head {h00=0x0030, h01=0x0050, text=»* ATTACH A STRING VARIABLE AS WORKBLOCK TO «, t00=0x001f, t01=0x0120}
0x31b8…31dc Head {h00=0x0020, h01=0x0050, text=»* THE TERMINAL CONTROL AREA«, t00=0x001f, t01=0x0154}
0x31dc…3210 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK «, t00=0x001f, t01=0x0178}
0x3210…3240 Head {h00=0x002c, h01=0x0050, text=»* STRG= STRING ITEM TO BE WORKBLOCK «, t00=0x0020, t01=0x001c}
0x3240…327a Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE«, t00=0x0020, t01=0x004c}
0x327a…329a Head {h00=0x001c, h01=0x0050, text=»* 'STRG'-START«, t00=0x0020, t01=0x0086}
0x329a…32d6 Head {h00=0x0038, h01=0x0050, text=»* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A«, t00=0x0020, t01=0x00a6}
0x32d6…32e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e2}
0x32e0…32f4 Head {h00=0x0010, h01=0x000b, text=»ATTWB EQU * «, t00=0x0020, t01=0x00ec}
0x32f4…3314 Head {h00=0x001c, h01=0x0050, text=» LDKL A10,2 INDICATE WB «, t00=0x0020, t01=0x0100}
0x3314…3326 Head {h00=0x000e, h01=0x0050, text=»ATT EQU * «, t00=0x0020, t01=0x0120}
0x3326…334c Head {h00=0x0022, h01=0x001e, text=» CALL I:EVA0 ADDRESS TO NEW WB«, t00=0x0020, t01=0x0132}
0x334c…336c Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 SAVE ADDRESS «, t00=0x0020, t01=0x0158}
0x336c…3392 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET DISPLACEMENT «, t00=0x0020, t01=0x0178}
0x3392…33a6 Head {h00=0x0010, h01=0x0050, text=» ADR* A7,A9 «, t00=0x0021, t01=0x000e}
0x33a6…33d0 Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 ADDRESS TO WB NUMBER «, t00=0x0021, t01=0x0022}
0x33d0…33e4 Head {h00=0x0010, h01=0x000b, text=» LDR* A1,A9 «, t00=0x0021, t01=0x004c}
0x33e4…33fe Head {h00=0x0016, h01=0x0011, text=» SLL A1,2 TIMES 4 «, t00=0x0021, t01=0x0060}
0x33fe…3420 Head {h00=0x001e, h01=0x0019, text=» ADR A1,A13 ADDRESS TO DB «, t00=0x0021, t01=0x007a}
0x3420…344c Head {h00=0x0028, h01=0x0050, text=» ADR A1,A10 GET ADDRESS TO WB OR DB «, t00=0x0021, t01=0x009c}
0x344c…3460 Head {h00=0x0010, h01=0x0050, text=»ATT100 EQU *«, t00=0x0021, t01=0x00c8}
0x3460…348a Head {h00=0x0026, h01=0x0050, text=» STR A7,A1 STORE NEW WB/DB-ADDRESS«, t00=0x0021, t01=0x00dc}
0x348a…349a Head {h00=0x000c, h01=0x0050, text=» RB RET1«, t00=0x0021, t01=0x0106}
0x349a…34a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0116}
0x34a8…34b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0124}
0x34b2…34e6 Head {h00=0x0030, h01=0x0050, text=»* SAVE POINTERS TO DB:S/WB:S IN STRING ITEM«, t00=0x0021, t01=0x012e}
0x34e6…3516 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL SAVE,DISPL,LENGTH,STRG«, t00=0x0021, t01=0x0162}
0x3516…3550 (34, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE «, t00=0x0022, t01=0x0004}
0x3550…357c Head {h00=0x0028, h01=0x0050, text=»* THE VERY FIRST DB:POINTER«, t00=0x0022, t01=0x003e}
0x357c…35c0 Head {h00=0x0040, h01=0x0050, text=»* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED «, t00=0x0022, t01=0x006a}
0x35c0…3602 Head {h00=0x003e, h01=0x0050, text=»* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN «, t00=0x0022, t01=0x00ae}
0x3602…360c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f0}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0022, t01=0x00fa}
0x361e…3640 Head {h00=0x001e, h01=0x0050, text=» CALL GETP GET PARAMETERS «, t00=0x0022, t01=0x010c}
0x3640…3654 Head {h00=0x0010, h01=0x0050, text=»SAV100 EQU *«, t00=0x0022, t01=0x012e}
0x3654…3666 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0022, t01=0x0142}
0x3666…3678 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A9«, t00=0x0022, t01=0x0154}
0x3678…368c Head {h00=0x0010, h01=0x0050, text=»SAV200 EQU *«, t00=0x0022, t01=0x0166}
0x368c…369e Head {h00=0x000e, h01=0x0050, text=» LCR A1,A2«, t00=0x0022, t01=0x017a}
0x369e…36b0 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A7«, t00=0x0022, t01=0x018c}
0x36b0…36c2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0023, t01=0x000e}
0x36c2…36d4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0023, t01=0x0020}
0x36d4…36e6 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0023, t01=0x0032}
0x36e6…36fc Head {h00=0x0012, h01=0x0050, text=» RB(NZ) SAV200«, t00=0x0023, t01=0x0044}
0x36fc…370c Head {h00=0x000c, h01=0x0050, text=» RB RET1«, t00=0x0023, t01=0x005a}
0x370c…3716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006a}
0x3716…374e Head {h00=0x0034, h01=0x0050, text=»* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE«, t00=0x0023, t01=0x0074}
0x374e…377c Head {h00=0x002a, h01=0x0050, text=»* TO THE T:A (TERMINAL CONTROL AREA) «, t00=0x0023, t01=0x00ac}
0x377c…37b0 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG «, t00=0x0023, t01=0x00da}
0x37b0…37f2 Head {h00=0x003e, h01=0x0050, text=»* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINTER«, t00=0x0023, t01=0x010e}
0x37f2…3820 Head {h00=0x002a, h01=0x0050, text=»* LENGTH= NUMBER OF BYTES TO RESTORE «, t00=0x0023, t01=0x0150}
0x3820…385e Head {h00=0x003a, h01=0x0050, text=»* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED«, t00=0x0023, t01=0x017e}
0x385e…3868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002c}
0x3868…387c Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0024, t01=0x0036}
0x387c…388e Head {h00=0x000e, h01=0x0050, text=» CALL GETP«, t00=0x0024, t01=0x004a}
0x388e…38a0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x005c}
0x38a0…38ba Head {h00=0x0016, h01=0x0050, text=» LDR A2,A9 CHANGE «, t00=0x0024, t01=0x006e}
0x38ba…38d6 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A1 ADDRESSES«, t00=0x0024, t01=0x0088}
0x38d6…38fa Head {h00=0x0020, h01=0x0050, text=» RB SAV100 START TO RESTORE «, t00=0x0024, t01=0x00a4}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c8}
0x3904…3930 Head {h00=0x0028, h01=0x0050, text=»* GET PARAMETERS FOR SAVE/RESTORE «, t00=0x0024, t01=0x00d2}
0x3930…393a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fe}
0x393a…394c Head {h00=0x000e, h01=0x0050, text=»GETP EQU *«, t00=0x0024, t01=0x0108}
0x394c…3960 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0024, t01=0x011a}
0x3960…3986 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A9 START DISPLACEMENT«, t00=0x0024, t01=0x012e}
0x3986…399a Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0024, t01=0x0154}
0x399a…39b8 Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A9 GET LENGTH«, t00=0x0024, t01=0x0168}
0x39b8…39cc Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0024, t01=0x0186}
0x39cc…39de Head {h00=0x000e, h01=0x0050, text=» LDK A2,40«, t00=0x0025, t01=0x000a}
0x39de…3a0e Head {h00=0x002c, h01=0x0050, text=» ADR A2,A13 GET ADDRESS TO DB-POINTER /A«, t00=0x0025, t01=0x001c}
0x3a0e…3a1e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x004c}
0x3a1e…3a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x005c}
0x3a2c…3a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006a}
0x3a36…3a6e Head {h00=0x0034, h01=0x0050, text=»* GET DIMENSION OF INDEXED VARIABLE AND LENGTH«, t00=0x0025, t01=0x0074}
0x3a6e…3a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ac}
0x3a78…3aba Head {h00=0x003e, h01=0x0050, text=»* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION«, t00=0x0025, t01=0x00b6}
0x3aba…3ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f8}
0x3ac4…3b02 Head {h00=0x003a, h01=0x0050, text=»* ITEM(W1) = CURRENT ITEM«, t00=0x0025, t01=0x0102}
0x3b02…3b4c Head {h00=0x0046, h01=0x0050, text=»* LENGTH = BIN HOLDING ITEM LENGTH «, t00=0x0025, t01=0x0140}
0x3b4c…3b94 Head {h00=0x0044, h01=0x0050, text=»* DIMENSION = BIN HOLDING DIMENSION «, t00=0x0025, t01=0x018a}
0x3b94…3bda Head {h00=0x0042, h01=0x0050, text=»* (NUMBER OF ELEMENTS)«, t00=0x0026, t01=0x0042}
0x3bda…3be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0088}
0x3be4…3bf8 Head {h00=0x0010, h01=0x0050, text=»GETIND EQU *«, t00=0x0026, t01=0x0092}
0x3bf8…3c1c Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO ITEM«, t00=0x0026, t01=0x00a6}
0x3c1c…3c52 Head {h00=0x0032, h01=0x0050, text=» LD A10,-6,A14 READ DIMENSION STORED BY I:EVA0«, t00=0x0026, t01=0x00ca}
0x3c52…3c76 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A5 COPY END ADDRESS «, t00=0x0026, t01=0x0100}
0x3c76…3c9e Head {h00=0x0024, h01=0x0050, text=» SUR A7,A9 CALCULATE ITEM LENGTH«, t00=0x0026, t01=0x0124}
0x3c9e…3cca Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTH ITEM «, t00=0x0026, t01=0x014c}
0x3cca…3cea Head {h00=0x001c, h01=0x0050, text=» STR A7,A9 STORE LENGTH «, t00=0x0026, t01=0x0178}
0x3cea…3d14 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO DIMENSION «, t00=0x0027, t01=0x0008}
0x3d14…3d36 Head {h00=0x001e, h01=0x0050, text=» STR A10,A9 STORE IN ITEM «, t00=0x0027, t01=0x0032}
0x3d36…3d4a Head {h00=0x0010, h01=0x0050, text=»ATTRET EQU *«, t00=0x0027, t01=0x0054}
0x3d4a…3d5a Head {h00=0x000c, h01=0x0050, text=» RB RET1«, t00=0x0027, t01=0x0068}
0x3d5a…3d68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0078}
0x3d68…3d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0086}
0x3d72…3db4 Head {h00=0x003e, h01=0x0050, text=»* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM «, t00=0x0027, t01=0x0090}
0x3db4…3dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d2}
0x3dbe…3dfc Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) «, t00=0x0027, t01=0x00dc}
0x3dfc…3e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011a}
0x3e06…3e4c Head {h00=0x0042, h01=0x0050, text=»* OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM«, t00=0x0027, t01=0x0124}
0x3e4c…3e92 Head {h00=0x0042, h01=0x0050, text=»* CR = 1 IF INDEX>MAX. INDEX OF ITEM«, t00=0x0027, t01=0x016a}
0x3e92…3eda Head {h00=0x0044, h01=0x0050, text=»* CR = 2 IF INDEX<MAX. INDEX OF ITEM «, t00=0x0028, t01=0x0020}
0x3eda…3ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0068}
0x3ee4…3eec Head {h00=0x0004, h01=0x0050, t00=0x0028, t01=0x0072}
0x3eec…3f00 Head {h00=0x0010, h01=0x0050, text=»CMPIND EQU *«, t00=0x0028, t01=0x007a}
0x3f00…3f2a Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0028, t01=0x008e}
0x3f2a…3f4e Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A9 SAVE INDEX VALUE«, t00=0x0028, t01=0x00b8}
0x3f4e…3f84 Head {h00=0x0032, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM«, t00=0x0028, t01=0x00dc}
0x3f84…3f96 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0028, t01=0x0112}
0x3f96…3faa Head {h00=0x0010, h01=0x0050, text=» RF(NP) LESS«, t00=0x0028, t01=0x0124}
0x3faa…3fd6 Head {h00=0x0028, h01=0x0050, text=» CW A6,-6,A14 COMPARE WITH DIMENSION«, t00=0x0028, t01=0x0138}
0x3fd6…3fea Head {h00=0x0010, h01=0x0050, text=» RF(G) GREAT«, t00=0x0028, t01=0x0164}
0x3fea…3ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0178}
0x3ff4…4008 Head {h00=0x0010, h01=0x0050, text=»EQUAL EQU * «, t00=0x0028, t01=0x0182}
0x4008…401c Head {h00=0x0010, h01=0x0050, text=»UT150 EQU * «, t00=0x0029, t01=0x0008}
0x401c…403e Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 INDICATE CR = 0 «, t00=0x0029, t01=0x001c}
0x403e…4052 Head {h00=0x0010, h01=0x0050, text=»UT200 EQU * «, t00=0x0029, t01=0x003e}
0x4052…407a Head {h00=0x0024, h01=0x0050, text=» ABL SETB40 STORE CR AND RETURN «, t00=0x0029, t01=0x0052}
0x407a…408e Head {h00=0x0010, h01=0x0050, text=»GREAT EQU * «, t00=0x0029, t01=0x007a}
0x408e…40a2 Head {h00=0x0010, h01=0x0050, text=»NOTFND EQU *«, t00=0x0029, t01=0x008e}
0x40a2…40c4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 INDICATE CR = 1 «, t00=0x0029, t01=0x00a2}
0x40c4…40ea Head {h00=0x0022, h01=0x0050, text=» RB UT200 STORE CR AND RETURN «, t00=0x0029, t01=0x00c4}
0x40ea…40fc Head {h00=0x000e, h01=0x0050, text=»LESS EQU *«, t00=0x0029, t01=0x00ea}
0x40fc…410e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x00fc}
0x410e…4120 Head {h00=0x000e, h01=0x0050, text=» RB UT200 «, t00=0x0029, t01=0x010e}
0x4120…412e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0120}
0x412e…4138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012e}
0x4138…416e Head {h00=0x0032, h01=0x0050, text=»* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO«, t00=0x0029, t01=0x0138}
0x416e…4178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x016e}
0x4178…41aa Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0029, t01=0x0178}
0x41aa…41d4 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x002a, t01=0x001a}
0x41d4…41fa Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x002a, t01=0x0044}
0x41fa…422a Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x002a, t01=0x006a}
0x422a…426c Head {h00=0x003e, h01=0x0050, text=»* RECNO REALATIV SECTOR NO WITHIN THE FILE «, t00=0x002a, t01=0x009a}
0x426c…4276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00dc}
0x4276…428a Head {h00=0x0010, h01=0x0050, text=»WRITDK EQU *«, t00=0x002a, t01=0x00e6}
0x428a…42aa Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/95 ORDER CODE«, t00=0x002a, t01=0x00fa}
0x42aa…42bc Head {h00=0x000e, h01=0x0050, text=» RF READ00«, t00=0x002a, t01=0x011a}
0x42bc…42ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x012c}
0x42ca…42d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013a}
0x42d4…430a Head {h00=0x0032, h01=0x0050, text=»* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO«, t00=0x002a, t01=0x0144}
0x430a…4314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x017a}
0x4314…4346 Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x002a, t01=0x0184}
0x4346…4370 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x002b, t01=0x0026}
0x4370…4396 Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x002b, t01=0x0050}
0x4396…43c6 Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x002b, t01=0x0076}
0x43c6…4408 Head {h00=0x003e, h01=0x0050, text=»* RECNO RELATIVE SECTOR NO WITHIN THE FILE «, t00=0x002b, t01=0x00a6}
0x4408…4412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e8}
0x4412…4426 Head {h00=0x0010, h01=0x0050, text=»READDK EQU *«, t00=0x002b, t01=0x00f2}
0x4426…4446 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/91 ORDER CODE«, t00=0x002b, t01=0x0106}
0x4446…445a Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x002b, t01=0x0126}
0x445a…4486 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x002b, t01=0x013a}
0x4486…44c0 Head {h00=0x0036, h01=0x0050, text=»* GET PARAMETERS FROM PARAMETER LIST AND STORE «, t00=0x002b, t01=0x0166}
0x44c0…44da Head {h00=0x0016, h01=0x0050, text=»* THEM IN DSET «, t00=0x002c, t01=0x0010}
0x44da…44f8 Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 FILE CODE«, t00=0x002c, t01=0x002a}
0x44f8…450c Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x002c, t01=0x0048}
0x450c…4520 Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A8 «, t00=0x002c, t01=0x005c}
0x4520…4544 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 BUFFER ADDRESS «, t00=0x002c, t01=0x0070}
0x4544…4558 Head {h00=0x0010, h01=0x0050, text=» ST A9,2,A8 «, t00=0x002c, t01=0x0094}
0x4558…457a Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 RECORD LENGTH«, t00=0x002c, t01=0x00a8}
0x457a…458e Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x002c, t01=0x00ca}
0x458e…45a2 Head {h00=0x0010, h01=0x0050, text=» ST A6,4,A8 «, t00=0x002c, t01=0x00de}
0x45a2…45c0 Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 RECORD NO«, t00=0x002c, t01=0x00f2}
0x45c0…45d4 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x002c, t01=0x0110}
0x45d4…45e8 Head {h00=0x0010, h01=0x0050, text=» ST A6,12,A8«, t00=0x002c, t01=0x0124}
0x45e8…45fa Head {h00=0x000e, h01=0x0050, text=» CM 10,A8 «, t00=0x002c, t01=0x0138}
0x45fa…460e Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x002c, t01=0x014a}
0x460e…4622 Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x002c, t01=0x015e}
0x4622…4642 Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER CODE«, t00=0x002c, t01=0x0172}
0x4642…4664 (45, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS«, t00=0x002d, t01=0x0004}
0x4664…4670 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002d, t01=0x0026}
0x4670…4680 Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x002d, t01=0x0032}
0x4680…468a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0042}
0x468a…46ac Head {h00=0x001e, h01=0x0050, text=»* CHECK ON ERROR CODE «, t00=0x002d, t01=0x004c}
0x46ac…46c0 Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x002d, t01=0x006e}
0x46c0…46d4 Head {h00=0x0010, h01=0x0050, text=» LD A6,8,A8 «, t00=0x002d, t01=0x0082}
0x46d4…4700 Head {h00=0x0028, h01=0x0050, text=» RB(Z) EQUAL SET COND CODE TO 0 ,OK «, t00=0x002d, t01=0x0096}
0x4700…4716 Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/2000«, t00=0x002d, t01=0x00c2}
0x4716…4744 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) GREAT SET COND CODE TO 1 ,EOF«, t00=0x002d, t01=0x00d8}
0x4744…476e Head {h00=0x0026, h01=0x0050, text=» RB LESS SET COND CODE TO 2 ,ERROR«, t00=0x002d, t01=0x0106}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0130}
0x4778…4786 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x013a}
0x4786…4790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0148}
0x4790…47c4 Head {h00=0x0030, h01=0x0050, text=»* CALL CLOSEF,DSET,FILECODE,BUFF,RECNO«, t00=0x002d, t01=0x0152}
0x47c4…47ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0186}
0x47ce…4802 Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK «, t00=0x002d, t01=0x0190}
0x4802…482e Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER «, t00=0x002e, t01=0x0034}
0x482e…4864 Head {h00=0x0032, h01=0x0050, text=»* BUF FILE PARAMETER BUFFER «, t00=0x002e, t01=0x0060}
0x4864…48a4 Head {h00=0x003c, h01=0x0050, text=»* RECNO NUMBER OF RECORDS IN SPEC. FILE «, t00=0x002e, t01=0x0096}
0x48a4…48ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d6}
0x48ae…48c2 Head {h00=0x0010, h01=0x0050, text=»CLOSEF EQU *«, t00=0x002e, t01=0x00e0}
0x48c2…48d6 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A14«, t00=0x002e, t01=0x00f4}
0x48d6…48e8 Head {h00=0x000e, h01=0x0050, text=» RF OPENF0«, t00=0x002e, t01=0x0108}
0x48e8…490e Head {h00=0x0022, h01=0x0050, text=»CLOS10 LDR* A1,A9 GET REC.NO. «, t00=0x002e, t01=0x011a}
0x490e…4922 Head {h00=0x0010, h01=0x0050, text=» ST A1,60,A6«, t00=0x002e, t01=0x0140}
0x4922…4936 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A10«, t00=0x002e, t01=0x0154}
0x4936…494a Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A8 «, t00=0x002e, t01=0x0168}
0x494a…496e Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A2 LOAD ORDER CODE «, t00=0x002e, t01=0x017c}
0x496e…4980 Head {h00=0x000e, h01=0x0050, text=» RB READ20«, t00=0x002f, t01=0x0010}
0x4980…498e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0022}
0x498e…4998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0030}
0x4998…49d0 Head {h00=0x0034, h01=0x0050, text=»* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME«, t00=0x002f, t01=0x003a}
0x49d0…49da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0072}
0x49da…4a0e Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x002f, t01=0x007c}
0x4a0e…4a3a Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x002f, t01=0x00b0}
0x4a3a…4a70 Head {h00=0x0032, h01=0x0050, text=»* BUF FILE PARAMETER BUFFER«, t00=0x002f, t01=0x00dc}
0x4a70…4a9a Head {h00=0x0026, h01=0x0050, text=»* FILE FILE NAME«, t00=0x002f, t01=0x0112}
0x4a9a…4ac6 Head {h00=0x0028, h01=0x0050, text=»* VOLUME VOLUME NAME«, t00=0x002f, t01=0x013c}
0x4ac6…4ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0168}
0x4ad0…4ae4 Head {h00=0x0010, h01=0x0050, text=»OPENF EQU * «, t00=0x002f, t01=0x0172}
0x4ae4…4af8 Head {h00=0x0010, h01=0x0050, text=» SUR A11,A11«, t00=0x002f, t01=0x0186}
0x4af8…4b0c Head {h00=0x0010, h01=0x0050, text=»OPENF0 EQU *«, t00=0x0030, t01=0x000a}
0x4b0c…4b38 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0030, t01=0x001e}
0x4b38…4b66 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 SAVE ADDRESS TO FILE CODE«, t00=0x0030, t01=0x004a}
0x4b66…4b7a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A9 «, t00=0x0030, t01=0x0078}
0x4b7a…4bb2 Head {h00=0x0034, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) «, t00=0x0030, t01=0x008c}
0x4bb2…4bde Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 AND MAKE SURE IT IS EVEN «, t00=0x0030, t01=0x00c4}
0x4bde…4bf4 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x0030, t01=0x00f0}
0x4bf4…4c1a Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 SAVE ADDRESS TO FPB«, t00=0x0030, t01=0x0106}
0x4c1a…4c48 Head {h00=0x002a, h01=0x0050, text=» ST A9,2,A8 STORE THE ADDRESS IN DSET «, t00=0x0030, t01=0x012c}
0x4c48…4c6e Head {h00=0x0022, h01=0x0050, text=» LDK A3,80 NO OF BYTES IN FPB «, t00=0x0030, t01=0x015a}
0x4c6e…4c90 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 ADDRESS TO FPB «, t00=0x0030, t01=0x0180}
0x4c90…4ca4 Head {h00=0x0010, h01=0x0050, text=»OPEN00 EQU *«, t00=0x0031, t01=0x0012}
0x4ca4…4cc6 Head {h00=0x001e, h01=0x0050, text=» CMR A2 STORE ZERO IN FPB «, t00=0x0031, t01=0x0026}
0x4cc6…4ce8 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREACE ADDRESS«, t00=0x0031, t01=0x0048}
0x4ce8…4cfa Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0031, t01=0x006a}
0x4cfa…4d10 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN00«, t00=0x0031, t01=0x007c}
0x4d10…4d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0092}
0x4d1a…4d4a Head {h00=0x002c, h01=0x0050, text=»* GET FILE NAME AND STORE IT IN FPB «, t00=0x0031, t01=0x009c}
0x4d4a…4d72 Head {h00=0x0024, h01=0x0050, text=»* A3 CONTAINES FPB ADDRESS «, t00=0x0031, t01=0x00cc}
0x4d72…4d86 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0031, t01=0x00f4}
0x4d86…4d9a Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x0031, t01=0x0108}
0x4d9a…4db0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CLOS10«, t00=0x0031, t01=0x011c}
0x4db0…4dde Head {h00=0x002a, h01=0x0050, text=» ADK A6,8 ADDRESS TO FILE NAME IN FPB «, t00=0x0031, t01=0x0132}
0x4dde…4e08 Head {h00=0x0026, h01=0x0050, text=» LDK A4,8 NO OF CHAR IN FILE NAME «, t00=0x0031, t01=0x0160}
0x4e08…4e1c Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0031, t01=0x018a}
0x4e1c…4e3a Head {h00=0x001a, h01=0x0050, text=» LCR A3,A9 GET ON CHAR«, t00=0x0032, t01=0x000e}
0x4e3a…4e62 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x0032, t01=0x002c}
0x4e62…4e74 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0032, t01=0x0054}
0x4e74…4e86 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0032, t01=0x0066}
0x4e86…4e98 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0032, t01=0x0078}
0x4e98…4eae Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN20«, t00=0x0032, t01=0x008a}
0x4eae…4eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a0}
0x4eb8…4ee8 Head {h00=0x002c, h01=0x0050, text=»* GET VOLUME NAME AND STORE IT IN FPB«, t00=0x0032, t01=0x00aa}
0x4ee8…4efc Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0032, t01=0x00da}
0x4efc…4f26 Head {h00=0x0026, h01=0x0050, text=» ADK A6,2 ADDRESS TO VOLUME IN FPB«, t00=0x0032, t01=0x00ee}
0x4f26…4f52 Head {h00=0x0028, h01=0x0050, text=» LDK A4,6 NO OF CHAR IN VOLUME NAME «, t00=0x0032, t01=0x0118}
0x4f52…4f66 Head {h00=0x0010, h01=0x0050, text=»OPEN40 EQU *«, t00=0x0032, t01=0x0144}
0x4f66…4f78 Head {h00=0x000e, h01=0x0050, text=» LCR A3,A9«, t00=0x0032, t01=0x0158}
0x4f78…4fa0 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x0032, t01=0x016a}
0x4fa0…4fb2 (51, 2, 286) Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0033, t01=0x0004}
0x4fb2…4fc4 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0033, t01=0x0016}
0x4fc4…4fd6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0028}
0x4fd6…4fec Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN40«, t00=0x0033, t01=0x003a}
0x4fec…5010 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A1 LOAD ORDER CODE «, t00=0x0033, t01=0x0050}
0x5010…501c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x0074}
0x501c…502c Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0033, t01=0x0080}
0x502c…505c Head {h00=0x002c, h01=0x0050, text=»* STORE FILE CODE IN FILE CODE BUFFER «, t00=0x0033, t01=0x0090}
0x505c…5070 Head {h00=0x0010, h01=0x0050, text=» LC A3,1,A8 «, t00=0x0033, t01=0x00c0}
0x5070…5084 Head {h00=0x0010, h01=0x0050, text=» STR A3,A10 «, t00=0x0033, t01=0x00d4}
0x5084…50aa Head {h00=0x0022, h01=0x0050, text=» RB READ40 CHEC ON ERROR CODE «, t00=0x0033, t01=0x00e8}
0x50aa…50b6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0033, t01=0x010e}
0x50b6…50ba Head {h00=0x4004, h01=0x0000}
0x50ba…50be 00 33 01 1a ┆ 3 ┆
0x50be…50c6 (52, 1, 8) 20 04 00 00 00 34 00 04 ┆ 4 ┆