|
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: 30280 (0x7648)
Notes: pts_type(SC)
Names: »ASSRUT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/ASSRUT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/ASSRUT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/ASSRUT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/ASSRUT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/ASSRUT.SC«
IDENT ASSRUT REL 10.0 80-04-11 80-03-18/PEEN UPD 79-11-01/PEEN UPD 79-10-18/PEEN UPD 79-10-04/PEEN UPD 79-09-24/DALI UPD 79 08 14/PEEN$$ UPD 79-04-24/PEEN UPD 79-02-28/PEEN UPD 79-01-30/PEEN * ASSEMBLER ROUTINES USED BY PTS DE-SYSTEM ENTRY ATTWB ENTRY ATTDB ENTRY SAVE ENTRY RESTOR ENTRY GETFRE ENTRY SETFRE ENTRY SETOCC ENTRY CHANFC ENTRY GETVOL ENTRY UPDBOL ENTRY UPDBIN ENTRY SETB ENTRY TESTB ENTRY CLEARB ENTRY MSKOUT ENTRY RCNTRL ENTRY WCNTRL ENTRY GETVAL ENTRY GETACC ENTRY GETGEN ENTRY GETDUP ENTRY ATTBUF ENTRY FORCED ENTRY GETIND ENTRY CMPIND ENTRY WRITDK ENTRY READDK ENTRY CLOSEF ENTRY OPENF ENTRY POOLA ENTRY GETFWD ENTRY ADJUST * EXTRN I:EVA0,I:RT1 EXTRN T:FDSP EXTRN P:BAS EXTRN T:GETF EXTRN T:GRFC EXTRN P:MTAB * * * CALL FORM 16=/F6A1,16 * FVAL EQU /C5 FACC EQU /C7 FGEN EQU /C6 FDUP EQU /CC FLINK EQU /DE FCBIX EQU 12 FCBNIX EQU 44 FCBROW EQU 14 FCBNLI EQU 46 FCBLP EQU 4 FCBFMA EQU 2 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 RF RETUR * EJECT * * ATTACH A STRING VARIABLE AS DESCRIPTOR BLOCK TO * THE TERMINAL CONTROL AREA * SYNTAX: CALL ATTDB,STRG,DISPL,BLOCK * STRG= STRING ITEM TO BE DISCRIPTOR BLOCK * DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE * 'STRG'-START * BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A * * ATTDB EQU * SUR A10,A10 INDICATE DB RB ATT 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 RETUR 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 RF RETUR * * 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 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 RETUR 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 RB(Z) NOK100 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC * SETFRE: TEST IF ALREADY FREE TEST1 LDR A4,A4 RB(N) RETUR 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 RETUR * * SETOCC: TEST IF ALREADY OCCUPIED TEST0 EQU * LDR A4,A4 RB(NN) RETUR IF ALREADY OCCUPIED SUK A1,1 A1 = -1; INDICATE DECREMENT ANKL A4,/7FFF INDICATE OCCUPIED RB TES100 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 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 RB RETUR * * 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 RB RETUR 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 RB TES200 RESTORE BYTE * SET BIT SETB20 EQU * ORKL A4,/8000 SET BIT RB 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 RF RET * * 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 * 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 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 * * READ CONTROLS FROM A STRING ITEM AND STORE * IN CORRESPONDING BOOLEAN AND BIN ITEMS * SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL * BUFF+DISPL= START ADDRESS IN STRING ITEM * BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS * MINL= BIN FOR MIN LENGTH * MAXL= BIN FOR MAX LENGTH * RCNTRL EQU * SUR A10,A10 INDICATE READING CONTROLS CONTRL CALL I:EVA0 BUFFER ADDRESS LDR A8,A9 CALL I:EVA0 DISPLACEMENT ADDRESS ADR* A8,A9 GET START POINTER CALL I:EVA0 LDR A7,A9 SUK A7,2 ADDRESS TO BOOLEANS CALL I:EVA0 MINL ADDRESS LDR A6,A9 CALL I:EVA0 MAXL ADDRESS LDR A10,A10 RF(Z) READ JUMP IF "RCNTRL" * WRITE CONTROLS LDR* A1,A7 GET BOOLEANS SC A1,2,A8 STORE IN BUFFER SRL A1,8 SHIFT OUT 8 BOOLEANS SLL A1,7 ADR* A1,A9 GET NEOI + MAXL SC A1,1,A8 STORE IN BUFFER SRL A1,2 SHIFT IN ME + TYPE ANK A1,/C0 ADR* A1,A6 GET MINL SCR A1,A8 STORE IN BUFFER RB RET * READ CONTROLS READ EQU * LC A1,1,A8 GET NEOI + MAXL LDR A2,A1 ANK A2,/7F MASK OUT MAXL STR A2,A9 STORE MAXL LCR A2,A8 ANK A2,/3F MASK OUT MINL STR A2,A6 STORE MINL SRL A1,7 NEOI TO RIGHTMOST POS. ANK A1,1 MASK OUT NEOI LCR A2,A8 GET ME + TYPE + MINL SRL A2,5 SHIFT OUT MINL ANK A2,6 ADR A2,A1 ECR A2,A2 LC A2,2,A8 GET OTHER BITS STR A2,A7 STORE BOOLEANS RB RET EJECT * * WRITE CONTROLS FROM BOOLEANS AND BINS TO * STRING ITEM * SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL * BUFF+DISPL= START POINT FOR WRITINGM * BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLEANS * MINL= BIN FOR MIN LENGTH * MAXL= BIN FOR MAX LENGTH * WCNTRL EQU * LDR A10,A14 INDICATE WRITE CONTROLS RB CONTRL 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 RB RET * EJECT * * ATTACH A STRING ITEM AS A FIX BUFFER * TO A DATASET * SYNTAX: CALL ATTBUF,DSET,BUFFER * ATTBUF EQU * CALL T:FDSP DSET-ADDRESS LDKL A1,/4000 ORRS A1,A8 INDICATE FIX BUFFER CALL I:EVA0 GET BUFFER ADDRESS ST A9,2,A8 STORE BUFFER ADDRESS SUR A5,A9 CALCULATE LENGTH ST A5,14,A8 STORE LENGTH ATTRET EQU * RB RET EJECT * * TEST IF AN ITEM IS FORCED * BCDITEM = RIGHTMOST DIGIT IS EQUAL TO /A * STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' * * SYNTAX: CALL FORCED,ITEM * OUTPUT: CR = 0 NOT FORCED * CR = 1 FORCED * FORCED EQU * CALL I:EVA0 GET ITEM ADDRESS ANK A3,/30 RF(Z) ALPHA JUMP IF STRING ITEM * A BCD ITEM LC A3,-1,A5 ANK A3,/F GET RIGHTMOST DIGIT SUK A3,/A FOR100 EQU * RF(Z) NOTFND JUMP IF FORCED RF UT150 NOT FORCED ALPHA EQU * LCR A3,A9 GET LEFTMOST CHARACTER SUK A3,'?' RB FOR100 EJECT * * GET VALIDATION STRING * SYNTAX: CALL GETVAL,PSTRT,PLEN,BUFFX,START,LEN * INPUT: PSTRT = POOLSTART (BPOOL(W1)) * PLEN = POOL UNIT LENGT (BIN) * OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN) * START = POINTER TO STRING WIN CURRENT POOL UNIT * LEN = LENGTh OF FOUND STRING * CR = 0 IF STRING IS FOUND * CR = 1 IF STRING IS NOT FOUND * GETVAL EQU * LDK A7,FVAL INDICATE SEARCH FOR VALIDATION VAL100 EQU * LDR A10,A12 SAVE PP LD* A11,-8,A13 ADR A11,A13 GET FCB-ADDRESS LDR* A6,A11 GET ADDRESS TO ITEM ADKL A6,P:BAS+2 GET START SEARCH ADDRESS VAL150 EQU * LCR A1,A6 GET FORMAT CODE ADK A6,1 INCREMENT POINTER ANK A1,/FF CWK A1,FVAL RF(E) VAL300 CWK A1,FACC RF(E) VAL300 CWK A1,FGEN RF(E) VAL300 CWK A1,FDUP RF(E) VAL300 SUK A1,FLINK RF(NZ) VAL200 IF NOT FLINK * FLINK LDR A12,A6 UPDATE PP TO FLINK-ITEM CALL I:EVA0 ADDRESS TO NEXT POOL UNIT LDR A12,A10 RESTORE PP LDR A6,A9 UPDATE FORMAT POINTER RB VAL150 CONTINUE * WANTED STRING IS NOT FOUND VAL200 EQU * LDK A6,0 INDICATE NOT FOUND RF OUT * FVAL,FACC OR FGEN VAL300 EQU * CWR A1,A7 RF(E) OUT JUMP IF FOUND LCR A1,A6 GET COUNTER ADR A6,A1 UPDATE FORMAT POINTER ADK A6,1 RB VAL150 CONTINUE * * OUT EQU * CALL I:EVA0 GET POOL START LDR A10,A9 SAVE POOL START SUR A5,A9 GET LENGTH LDR A11,A5 SAVE POOL LENGTH CALL I:EVA0 ADDRESS TO BUFFIND LDR A7,A9 SAVE ADDRESS CALL I:EVA0 ADDRESS TO START POINTER LDR A8,A9 SAVE ADDRESS CALL I:EVA0 ADDRESS TO LENGTh LDR A6,A6 RF(Z) NOTFND IF NOT FOUND LCR A3,A6 GET LENGTh ANK A3,/FF ADK A6,1 STR A3,A9 STORE LENGTh SUR A6,A10 GET RELATIVE LENGT LDK A1,0 UT100 EQU * ADK A1,1 SUR A6,A11 SUB WIF POOL-LENGF RB(P) UT100 CONTINUE IF POSITIVE ADR A6,A11 RESTORE RELATIVE POSITION STR A1,A7 STORE BUFFER UNIT NUMBER STR A6,A8 STORE START POINTER 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 * * GET ACCUMULATION STRING * SEE UNDER GETVAL ABOVE * GETACC EQU * LDK A7,FACC INDICATE ACCUMULATION STRING RB VAL100 START TO SEARCH * * * GET GENERATION STRING * SEE UNDER GETVAL ABOVE * GETGEN EQU * LDK A7,FGEN INDICATE GENERATION STRING RB VAL100 START TO SEARC * * GET DUPLICATION STRING * SEE UNDER GETVAL ABOVE * GETDUP EQU * LDK A7,FDUP RB VAL100 * 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: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 STR A10,A9 STORE IN ITEM RB ATTRET RETURN TO CALLER * EJECT * * COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM * * SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) * * OUTPUT: CR = 0 IF INDEX=OK INDEX OF ITEM * CR = 1 IF INDEX > MAX. INDEX * CR = 2 IF INDEX < 0 * 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 RB(NP) LESS IF LESS THAN 1 CW A6,-6,A14 COMPARE WITH DIMENSION RB(G) GREAT IF TOO HIGH RB EQUAL IF OK INDEX * 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 * BUFF BUFFER OF AT LEAST 80 BYTES * RECNO LAST RECORD NUMBER (SHOULD BE ZERO) * CLOSEF EQU * LDR A11,A14 INDICATE CLOSEF RF OPENF0 CLOS10 EQU * LDR* A1,A9 GET RECORD NUMBER ST A1,60,A6 STORE RECORD NUMBER LDR* A6,A10 GET FILE CODE 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 INDICATE OPENF 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 JUMP IF CLOSE 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 EJECT * * EVALUATE NUMBERS OF POOLS SPECIFIED IN CONFIGURATION * * SYNTAX: CALL POOLA * * POOLA EQU * LD A4,P:MTAB+2 GET U:BTAB-ADDRESS LD A4,2,A4 GET NUMBER OF BLOCK UNITS SUK A4,1 LD A1,4,A13 GET DB-ADRESS FOR RPOOL LDKL A2,/8000+19 LENGTH AND TYPE ST A2,36,A1 STORE LENGTH AND TYPE LDK A3,208 LOAD START DISP. FOR RPOOL ST A3,38,A1 STORE - " - ST A4,40,A1 STORE DIMENSION FOR RPOOL ST A4,48,A1 - " - BPOOL ADK A2,188-19 LOAD TYPE AND LENGTH FOR BPOOL ST A2,44,A1 STORE - " - POOL10 ADK A3,19 ADD DISP. WITH LENGTH OF RPOOL SUK A4,1 RB(P) POOL10 ADK A3,1 ANKL A3,/FFFE MAKE EVEN ADDRESS ST A3,46,A1 ST DISPL. FOR BPOOL POOLUT EQU * ABL I:RT1 EJECT * * PREPARE FOR GETFLD FROM CURRENT FIELD * IT IS REQUIRED THAT THE FORMAT DOES NOT * CONTAIN ANY RETURN FROM SUBFORMAT * * THE ROUTINE:"ADJUST" SHOULD ALWAYS FOLLOW THIS ROUTINE * * SYNTAX: CALL GETFWD,BIN1,TYPE,START,SLUT * BIN1 = WORK ITEM TO BE USED ALSO IN ROUTINE "ADJUST"
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT ASSRUT REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-03-18/PEEN«, t00=0x0000, t01=0x002c}
0x0040…005c Head {h00=0x0018, h01=0x0050, text=» UPD 79-11-01/PEEN«, t00=0x0000, t01=0x0044}
0x005c…0078 Head {h00=0x0018, h01=0x0050, text=» UPD 79-10-18/PEEN«, t00=0x0000, t01=0x0060}
0x0078…0094 Head {h00=0x0018, h01=0x0050, text=» UPD 79-10-04/PEEN«, t00=0x0000, t01=0x007c}
0x0094…00b0 Head {h00=0x0018, h01=0x0050, text=» UPD 79-09-24/DALI«, t00=0x0000, t01=0x0098}
0x00b0…00ce Head {h00=0x001a, h01=0x0050, text=» UPD 79 08 14/PEEN$$«, t00=0x0000, t01=0x00b4}
0x00ce…00ea Head {h00=0x0018, h01=0x0050, text=» UPD 79-04-24/PEEN«, t00=0x0000, t01=0x00d2}
0x00ea…0106 Head {h00=0x0018, h01=0x0050, text=» UPD 79-02-28/PEEN«, t00=0x0000, t01=0x00ee}
0x0106…0122 Head {h00=0x0018, h01=0x0050, text=» UPD 79-01-30/PEEN«, t00=0x0000, t01=0x010a}
0x0122…0154 Head {h00=0x002e, h01=0x002a, text=»* ASSEMBLER ROUTINES USED BY PTS DE-SYSTEM«, t00=0x0000, t01=0x0126}
0x0154…015c Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0158}
0x015c…0170 Head {h00=0x0010, h01=0x000c, text=» ENTRY ATTWB«, t00=0x0000, t01=0x0160}
0x0170…0184 Head {h00=0x0010, h01=0x0050, text=» ENTRY ATTDB«, t00=0x0000, t01=0x0174}
0x0184…0198 Head {h00=0x0010, h01=0x0050, text=» ENTRY SAVE «, t00=0x0000, t01=0x0188}
0x0198…01ae Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTOR «, t00=0x0001, t01=0x000c}
0x01ae…01c4 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETFRE «, t00=0x0001, t01=0x0022}
0x01c4…01da Head {h00=0x0012, h01=0x000d, text=» ENTRY SETFRE «, t00=0x0001, t01=0x0038}
0x01da…01f0 Head {h00=0x0012, h01=0x000d, text=» ENTRY SETOCC «, t00=0x0001, t01=0x004e}
0x01f0…0206 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHANFC «, t00=0x0001, t01=0x0064}
0x0206…021c Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVOL «, t00=0x0001, t01=0x007a}
0x021c…0232 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBOL «, t00=0x0001, t01=0x0090}
0x0232…0248 Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBIN «, t00=0x0001, t01=0x00a6}
0x0248…025c Head {h00=0x0010, h01=0x0050, text=» ENTRY SETB «, t00=0x0001, t01=0x00bc}
0x025c…0270 Head {h00=0x0010, h01=0x0050, text=» ENTRY TESTB«, t00=0x0001, t01=0x00d0}
0x0270…0286 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEARB «, t00=0x0001, t01=0x00e4}
0x0286…029c Head {h00=0x0012, h01=0x0050, text=» ENTRY MSKOUT «, t00=0x0001, t01=0x00fa}
0x029c…02b2 Head {h00=0x0012, h01=0x0050, text=» ENTRY RCNTRL «, t00=0x0001, t01=0x0110}
0x02b2…02c8 Head {h00=0x0012, h01=0x0050, text=» ENTRY WCNTRL «, t00=0x0001, t01=0x0126}
0x02c8…02de Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVAL «, t00=0x0001, t01=0x013c}
0x02de…02f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETACC «, t00=0x0001, t01=0x0152}
0x02f4…030a Head {h00=0x0012, h01=0x0050, text=» ENTRY GETGEN «, t00=0x0001, t01=0x0168}
0x030a…0320 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDUP «, t00=0x0001, t01=0x017e}
0x0320…0336 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY ATTBUF «, t00=0x0002, t01=0x0004}
0x0336…034c Head {h00=0x0012, h01=0x0050, text=» ENTRY FORCED «, t00=0x0002, t01=0x001a}
0x034c…0362 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETIND «, t00=0x0002, t01=0x0030}
0x0362…0378 Head {h00=0x0012, h01=0x0050, text=» ENTRY CMPIND «, t00=0x0002, t01=0x0046}
0x0378…038e Head {h00=0x0012, h01=0x0050, text=» ENTRY WRITDK «, t00=0x0002, t01=0x005c}
0x038e…03a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY READDK «, t00=0x0002, t01=0x0072}
0x03a4…03ba Head {h00=0x0012, h01=0x0050, text=» ENTRY CLOSEF «, t00=0x0002, t01=0x0088}
0x03ba…03ce Head {h00=0x0010, h01=0x0050, text=» ENTRY OPENF«, t00=0x0002, t01=0x009e}
0x03ce…03e2 Head {h00=0x0010, h01=0x0050, text=» ENTRY POOLA«, t00=0x0002, t01=0x00b2}
0x03e2…03f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETFWD «, t00=0x0002, t01=0x00c6}
0x03f8…040e Head {h00=0x0012, h01=0x0050, text=» ENTRY ADJUST «, t00=0x0002, t01=0x00dc}
0x040e…0418 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00f2}
0x0418…0434 Head {h00=0x0018, h01=0x0013, text=» EXTRN I:EVA0,I:RT1 «, t00=0x0002, t01=0x00fc}
0x0434…044a Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0002, t01=0x0118}
0x044a…045e Head {h00=0x0010, h01=0x0050, text=» EXTRN P:BAS«, t00=0x0002, t01=0x012e}
0x045e…0474 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:GETF «, t00=0x0002, t01=0x0142}
0x0474…048a Head {h00=0x0012, h01=0x0050, text=» EXTRN T:GRFC «, t00=0x0002, t01=0x0158}
0x048a…04a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN P:MTAB «, t00=0x0002, t01=0x016e}
0x04a0…04aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0184}
0x04aa…04b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0008}
0x04be…04dc Head {h00=0x001a, h01=0x0015, text=»CALL FORM 16=/F6A1,16 «, t00=0x0003, t01=0x0012}
0x04dc…04e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0030}
0x04e6…04fa Head {h00=0x0010, h01=0x0050, text=»FVAL EQU /C5«, t00=0x0003, t01=0x003a}
0x04fa…050e Head {h00=0x0010, h01=0x0050, text=»FACC EQU /C7«, t00=0x0003, t01=0x004e}
0x050e…0522 Head {h00=0x0010, h01=0x0050, text=»FGEN EQU /C6«, t00=0x0003, t01=0x0062}
0x0522…0536 Head {h00=0x0010, h01=0x0050, text=»FDUP EQU /CC«, t00=0x0003, t01=0x0076}
0x0536…054c Head {h00=0x0012, h01=0x0050, text=»FLINK EQU /DE «, t00=0x0003, t01=0x008a}
0x054c…0560 Head {h00=0x0010, h01=0x0050, text=»FCBIX EQU 12«, t00=0x0003, t01=0x00a0}
0x0560…0576 Head {h00=0x0012, h01=0x0050, text=»FCBNIX EQU 44 «, t00=0x0003, t01=0x00b4}
0x0576…058c Head {h00=0x0012, h01=0x0050, text=»FCBROW EQU 14 «, t00=0x0003, t01=0x00ca}
0x058c…05a2 Head {h00=0x0012, h01=0x0050, text=»FCBNLI EQU 46 «, t00=0x0003, t01=0x00e0}
0x05a2…05b6 Head {h00=0x0010, h01=0x0050, text=»FCBLP EQU 4 «, t00=0x0003, t01=0x00f6}
0x05b6…05ca Head {h00=0x0010, h01=0x0050, text=»FCBFMA EQU 2«, t00=0x0003, t01=0x010a}
0x05ca…05d2 Head {h00=0x0004, h01=0x0002, t00=0x0003, t01=0x011e}
0x05d2…05da Head {h00=0x0004, h01=0x0002, t00=0x0003, t01=0x0126}
0x05da…05e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x012e}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f2…0626 Head {h00=0x0030, h01=0x0050, text=»* ATTACH A STRING VARIABLE AS WORKBLOCK TO «, t00=0x0003, t01=0x0146}
0x0626…064a Head {h00=0x0020, h01=0x0050, text=»* THE TERMINAL CONTROL AREA«, t00=0x0003, t01=0x017a}
0x064a…067e Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK «, t00=0x0004, t01=0x000e}
0x067e…06ae Head {h00=0x002c, h01=0x0050, text=»* STRG= STRING ITEM TO BE WORKBLOCK «, t00=0x0004, t01=0x0042}
0x06ae…06e8 Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE«, t00=0x0004, t01=0x0072}
0x06e8…0708 Head {h00=0x001c, h01=0x0050, text=»* 'STRG'-START«, t00=0x0004, t01=0x00ac}
0x0708…0744 Head {h00=0x0038, h01=0x0050, text=»* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A«, t00=0x0004, t01=0x00cc}
0x0744…074e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0108}
0x074e…0762 Head {h00=0x0010, h01=0x000b, text=»ATTWB EQU * «, t00=0x0004, t01=0x0112}
0x0762…0782 Head {h00=0x001c, h01=0x0050, text=» LDKL A10,2 INDICATE WB «, t00=0x0004, t01=0x0126}
0x0782…0794 Head {h00=0x000e, h01=0x0050, text=»ATT EQU * «, t00=0x0004, t01=0x0146}
0x0794…07ba Head {h00=0x0022, h01=0x001e, text=» CALL I:EVA0 ADDRESS TO NEW WB«, t00=0x0004, t01=0x0158}
0x07ba…07da Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 SAVE ADDRESS «, t00=0x0004, t01=0x017e}
0x07da…0800 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET DISPLACEMENT «, t00=0x0005, t01=0x000e}
0x0800…0814 Head {h00=0x0010, h01=0x0050, text=» ADR* A7,A9 «, t00=0x0005, t01=0x0034}
0x0814…083e Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 ADDRESS TO WB NUMBER «, t00=0x0005, t01=0x0048}
0x083e…0852 Head {h00=0x0010, h01=0x000b, text=» LDR* A1,A9 «, t00=0x0005, t01=0x0072}
0x0852…086c Head {h00=0x0016, h01=0x0011, text=» SLL A1,2 TIMES 4 «, t00=0x0005, t01=0x0086}
0x086c…088e Head {h00=0x001e, h01=0x0019, text=» ADR A1,A13 ADDRESS TO DB «, t00=0x0005, t01=0x00a0}
0x088e…08ba Head {h00=0x0028, h01=0x0050, text=» ADR A1,A10 GET ADDRESS TO WB OR DB «, t00=0x0005, t01=0x00c2}
0x08ba…08ce Head {h00=0x0010, h01=0x0050, text=»ATT100 EQU *«, t00=0x0005, t01=0x00ee}
0x08ce…08f8 Head {h00=0x0026, h01=0x0050, text=» STR A7,A1 STORE NEW WB/DB-ADDRESS«, t00=0x0005, t01=0x0102}
0x08f8…090a Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0005, t01=0x012c}
0x090a…0914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0914…0922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0148}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0156}
0x092c…0966 Head {h00=0x0036, h01=0x0050, text=»* ATTACH A STRING VARIABLE AS DESCRIPTOR BLOCK TO«, t00=0x0005, t01=0x0160}
0x0966…098a Head {h00=0x0020, h01=0x0050, text=»* THE TERMINAL CONTROL AREA«, t00=0x0006, t01=0x000a}
0x098a…09be Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL ATTDB,STRG,DISPL,BLOCK «, t00=0x0006, t01=0x002e}
0x09be…09f4 Head {h00=0x0032, h01=0x0050, text=»* STRG= STRING ITEM TO BE DISCRIPTOR BLOCK «, t00=0x0006, t01=0x0062}
0x09f4…0a2e Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE «, t00=0x0006, t01=0x0098}
0x0a2e…0a4e Head {h00=0x001c, h01=0x0050, text=»* 'STRG'-START «, t00=0x0006, t01=0x00d2}
0x0a4e…0a8a Head {h00=0x0038, h01=0x0050, text=»* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A «, t00=0x0006, t01=0x00f2}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9e…0ab2 Head {h00=0x0010, h01=0x0050, text=»ATTDB EQU * «, t00=0x0006, t01=0x0142}
0x0ab2…0ad2 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A10 INDICATE DB«, t00=0x0006, t01=0x0156}
0x0ad2…0ae2 Head {h00=0x000c, h01=0x0050, text=» RB ATT «, t00=0x0006, t01=0x0176}
0x0ae2…0af0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0186}
0x0af0…0afa (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0afa…0b1e Head {h00=0x0020, h01=0x0050, text=»* CHANGE FILE CODE IN ECB «, t00=0x0007, t01=0x000e}
0x0b1e…0b30 Head {h00=0x000e, h01=0x0050, text=»* CALL: «, t00=0x0007, t01=0x0032}
0x0b30…0b5e Head {h00=0x002a, h01=0x0050, text=»* CALL CHANFC,DATASET,FILECODE «, t00=0x0007, t01=0x0044}
0x0b5e…0b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b68…0b7c Head {h00=0x0010, h01=0x0050, text=»CHANFC EQU *«, t00=0x0007, t01=0x007c}
0x0b7c…0ba2 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:FDSP GET ECB-ADDRESS«, t00=0x0007, t01=0x0090}
0x0ba2…0bcc Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRESS TO BIN.«, t00=0x0007, t01=0x00b6}
0x0bcc…0bee Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A9 GET FILE CODE «, t00=0x0007, t01=0x00e0}
0x0bee…0c18 Head {h00=0x0026, h01=0x0050, text=» SC A3,1,A8 STORE FILE CODE IN ECB«, t00=0x0007, t01=0x0102}
0x0c18…0c2a Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0007, t01=0x012c}
0x0c2a…0c38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x013e}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c42…0c76 Head {h00=0x0030, h01=0x0050, text=»* SAVE POINTERS TO DB:S/WB:S IN STRING ITEM«, t00=0x0007, t01=0x0156}
0x0c76…0ca6 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL SAVE,DISPL,LENGTH,STRG«, t00=0x0007, t01=0x018a}
0x0ca6…0ce0 Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE «, t00=0x0008, t01=0x002a}
0x0ce0…0d0c Head {h00=0x0028, h01=0x0050, text=»* THE VERY FIRST DB:POINTER«, t00=0x0008, t01=0x0064}
0x0d0c…0d50 Head {h00=0x0040, h01=0x0050, text=»* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED «, t00=0x0008, t01=0x0090}
0x0d50…0d92 Head {h00=0x003e, h01=0x0050, text=»* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN «, t00=0x0008, t01=0x00d4}
0x0d92…0d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9c…0dae Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0008, t01=0x0120}
0x0dae…0dd0 Head {h00=0x001e, h01=0x0050, text=» CALL GETP GET PARAMETERS «, t00=0x0008, t01=0x0132}
0x0dd0…0de4 Head {h00=0x0010, h01=0x0050, text=»SAV100 EQU *«, t00=0x0008, t01=0x0154}
0x0de4…0df6 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0008, t01=0x0168}
0x0df6…0e08 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A9«, t00=0x0008, t01=0x017a}
0x0e08…0e1c Head {h00=0x0010, h01=0x0050, text=»SAV200 EQU *«, t00=0x0008, t01=0x018c}
0x0e1c…0e2e Head {h00=0x000e, h01=0x0050, text=» LCR A1,A2«, t00=0x0009, t01=0x0010}
0x0e2e…0e40 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A7«, t00=0x0009, t01=0x0022}
0x0e40…0e52 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0009, t01=0x0034}
0x0e52…0e64 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0009, t01=0x0046}
0x0e64…0e76 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0009, t01=0x0058}
0x0e76…0e8c Head {h00=0x0012, h01=0x0050, text=» RB(NZ) SAV200«, t00=0x0009, t01=0x006a}
0x0e8c…0e9e Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0009, t01=0x0080}
0x0e9e…0ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0092}
0x0ea8…0ee0 Head {h00=0x0034, h01=0x0050, text=»* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE«, t00=0x0009, t01=0x009c}
0x0ee0…0f0e Head {h00=0x002a, h01=0x0050, text=»* TO THE T:A (TERMINAL CONTROL AREA) «, t00=0x0009, t01=0x00d4}
0x0f0e…0f42 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG «, t00=0x0009, t01=0x0102}
0x0f42…0f84 Head {h00=0x003e, h01=0x0050, text=»* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINTER«, t00=0x0009, t01=0x0136}
0x0f84…0fb2 Head {h00=0x002a, h01=0x0050, text=»* LENGTH= NUMBER OF BYTES TO RESTORE «, t00=0x0009, t01=0x0178}
0x0fb2…0ff0 Head {h00=0x003a, h01=0x0050, text=»* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED«, t00=0x000a, t01=0x0016}
0x0ff0…0ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0054}
0x0ffa…100e Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x000a, t01=0x005e}
0x100e…1020 Head {h00=0x000e, h01=0x0050, text=» CALL GETP«, t00=0x000a, t01=0x0072}
0x1020…1032 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000a, t01=0x0084}
0x1032…104c Head {h00=0x0016, h01=0x0050, text=» LDR A2,A9 CHANGE «, t00=0x000a, t01=0x0096}
0x104c…1068 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A1 ADDRESSES«, t00=0x000a, t01=0x00b0}
0x1068…108c Head {h00=0x0020, h01=0x0050, text=» RB SAV100 START TO RESTORE «, t00=0x000a, t01=0x00cc}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1096…10c2 Head {h00=0x0028, h01=0x0050, text=»* GET PARAMETERS FOR SAVE/RESTORE «, t00=0x000a, t01=0x00fa}
0x10c2…10cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0126}
0x10cc…10de Head {h00=0x000e, h01=0x0050, text=»GETP EQU *«, t00=0x000a, t01=0x0130}
0x10de…10f2 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000a, t01=0x0142}
0x10f2…1118 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A9 START DISPLACEMENT«, t00=0x000a, t01=0x0156}
0x1118…112c Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000a, t01=0x017c}
0x112c…114a Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A9 GET LENGTH«, t00=0x000a, t01=0x0190}
0x114a…115e Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x000b, t01=0x001e}
0x115e…1170 Head {h00=0x000e, h01=0x0050, text=» LDK A2,40«, t00=0x000b, t01=0x0032}
0x1170…11a0 Head {h00=0x002c, h01=0x0050, text=» ADR A2,A13 GET ADDRESS TO DB-POINTER /A«, t00=0x000b, t01=0x0044}
0x11a0…11b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000b, t01=0x0074}
0x11b0…11be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0084}
0x11be…11f2 Head {h00=0x0030, h01=0x002b, text=»* GET A FREE RECORD FROM FREE-SPACE RECORD «, t00=0x000b, t01=0x0092}
0x11f2…122c Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x000b, t01=0x00c6}
0x122c…126c Head {h00=0x003c, h01=0x0038, text=»* OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND)«, t00=0x000b, t01=0x0100}
0x126c…1280 Head {h00=0x0010, h01=0x000c, text=»GETFRE EQU *«, t00=0x000b, t01=0x0140}
0x1280…12ac Head {h00=0x0028, h01=0x0024, text=» CALL GETPAR GET PARAMETER ADDRESSES«, t00=0x000b, t01=0x0154}
0x12ac…12da Head {h00=0x002a, h01=0x0026, text=» LD A4,-2,A7 GET NUMBER OF FRE RECORDS«, t00=0x000b, t01=0x0180}
0x12da…12fa Head {h00=0x001c, h01=0x0017, text=» RF(Z) NOK IF NONE FREE «, t00=0x000c, t01=0x001e}
0x12fa…130e Head {h00=0x0010, h01=0x000c, text=»GET100 EQU *«, t00=0x000c, t01=0x003e}
0x130e…1320 Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x000c, t01=0x0052}
0x1320…1340 Head {h00=0x001c, h01=0x0018, text=» RF(E) NOK END OF RECORD«, t00=0x000c, t01=0x0064}
0x1340…136a Head {h00=0x0026, h01=0x0021, text=» LCR A4,A7 GET BITS FOR 8 RECORDS «, t00=0x000c, t01=0x0084}
0x136a…138e Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 SHIFT TO RIGHTMOST«, t00=0x000c, t01=0x00ae}
0x138e…13be Head {h00=0x002c, h01=0x0027, text=» RF(NZ) SEARCH AT LEAST ONE RECORD FREE «, t00=0x000c, t01=0x00d2}
0x13be…13e2 Head {h00=0x0020, h01=0x001b, text=» ADK A7,1 INCREMENT POINTER «, t00=0x000c, t01=0x0102}
0x13e2…1408 Head {h00=0x0022, h01=0x001e, text=» ADK A6,8 UPDATE RECORD NUMBER«, t00=0x000c, t01=0x0126}
0x1408…141a Head {h00=0x000e, h01=0x000a, text=» RB GET100«, t00=0x000c, t01=0x014c}
0x141a…142e Head {h00=0x0010, h01=0x000c, text=»SEARCH EQU *«, t00=0x000c, t01=0x015e}
0x142e…145a Head {h00=0x0028, h01=0x0024, text=» LDK A5,0 INDICATE FIRST BIT IN BYTE«, t00=0x000c, t01=0x0172}
0x145a…146c Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x000d, t01=0x000e}
0x146c…1490 Head {h00=0x0020, h01=0x001b, text=»SEA100 RF(N) FOUND IF FOUND «, t00=0x000d, t01=0x0020}
0x1490…14b4 Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT COUNTER «, t00=0x000d, t01=0x0044}
0x14b4…14c6 Head {h00=0x000e, h01=0x0009, text=» SLL A4,1 «, t00=0x000d, t01=0x0068}
0x14c6…14d8 Head {h00=0x000e, h01=0x000a, text=» RB SEA100«, t00=0x000d, t01=0x007a}
0x14d8…14f8 Head {h00=0x001c, h01=0x0018, text=»FOUND SLL A4,1 CLEAR BIT«, t00=0x000d, t01=0x008c}
0x14f8…1528 Head {h00=0x002c, h01=0x0028, text=» ADR A6,A5 UPDATE RELATIVE RECORD NUMBER«, t00=0x000d, t01=0x00ac}
0x1528…1540 Head {h00=0x0014, h01=0x000f, text=»FOU100 SRL A4,1 «, t00=0x000d, t01=0x00dc}
0x1540…1564 Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x000d, t01=0x00f4}
0x1564…157a Head {h00=0x0012, h01=0x000e, text=» RB(NN) FOU100«, t00=0x000d, t01=0x0118}
0x157a…158c Head {h00=0x000e, h01=0x0009, text=» SRL A4,8 «, t00=0x000d, t01=0x012e}
0x158c…15b2 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x000d, t01=0x0140}
0x15b2…15c6 Head {h00=0x0010, h01=0x000c, text=» LC A7,17,A9«, t00=0x000d, t01=0x0166}
0x15c6…15d8 Head {h00=0x000e, h01=0x000a, text=» ECR A7,A7«, t00=0x000d, t01=0x017a}
0x15d8…1604 Head {h00=0x0028, h01=0x0024, text=» LC A7,18,A9 GET START RECORD NUMBER«, t00=0x000d, t01=0x018c}
0x1604…1630 Head {h00=0x0028, h01=0x0024, text=» ADR A6,A7 GET CURRENT RECORD NUMBER«, t00=0x000e, t01=0x0028}
0x1630…1644 Head {h00=0x0010, h01=0x000b, text=» LDKL A1,-1 «, t00=0x000e, t01=0x0054}
0x1644…1674 Head {h00=0x002c, h01=0x0027, text=» ADRS A1,A2 DECREMENT NO. OF FREE RECS. «, t00=0x000e, t01=0x0068}
0x1674…1686 Head {h00=0x000e, h01=0x0009, text=»NOK EQU * «, t00=0x000e, t01=0x0098}
0x1686…169a Head {h00=0x0010, h01=0x000c, text=» CALL I:EVA0«, t00=0x000e, t01=0x00aa}
0x169a…16c4 Head {h00=0x0026, h01=0x0022, text=»NOK100 STR A6,A9 STORE FOUND INDEX«, t00=0x000e, t01=0x00be}
0x16c4…16dc Head {h00=0x0014, h01=0x000f, text=»RETUR ABL I:RT1 «, t00=0x000e, t01=0x00e8}
0x16dc…16ea Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x0100}
0x16ea…1722 Head {h00=0x0034, h01=0x0031, text=»* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF«, t00=0x000e, t01=0x010e}
0x1722…175c Head {h00=0x0036, h01=0x0031, text=»* FREE RECORD COUNTER. THIS IS ONLY DONE «, t00=0x000e, t01=0x0146}
0x175c…178a Head {h00=0x002a, h01=0x0025, text=»* IF CURRENT RECORD WAS BUSY «, t00=0x000e, t01=0x0180}
0x178a…17c4 Head {h00=0x0036, h01=0x0031, text=»* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB «, t00=0x000f, t01=0x001e}
0x17c4…1808 Head {h00=0x0040, h01=0x003c, text=»* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER)«, t00=0x000f, t01=0x0058}
0x1808…1812 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x009c}
0x1812…1826 Head {h00=0x0010, h01=0x000c, text=»SETFRE EQU *«, t00=0x000f, t01=0x00a6}
0x1826…184a Head {h00=0x0020, h01=0x001c, text=» SUR A10,A10 INDICATE SETFRE«, t00=0x000f, t01=0x00ba}
0x184a…185c Head {h00=0x000e, h01=0x0009, text=»SET EQU * «, t00=0x000f, t01=0x00de}
0x185c…1870 Head {h00=0x0010, h01=0x000c, text=» CALL GETPAR«, t00=0x000f, t01=0x00f0}
0x1870…1890 Head {h00=0x001c, h01=0x0017, text=» LDR A6,A9 COPY ADDRESS «, t00=0x000f, t01=0x0104}
0x1890…18bc Head {h00=0x0028, h01=0x0024, text=» CALL I:EVA0 GET ADDRESS TO REC. NO.«, t00=0x000f, t01=0x0124}
0x18bc…18d6 Head {h00=0x0016, h01=0x0012, text=» LDR A2,A7 COPY A7«, t00=0x000f, t01=0x0150}
0x18d6…18f4 Head {h00=0x001a, h01=0x0015, text=» LDR* A3,A9 GET INDEX «, t00=0x000f, t01=0x016a}
0x18f4…1908 Head {h00=0x0010, h01=0x000c, text=» LC A1,17,A6«, t00=0x000f, t01=0x0188}
0x1908…191a Head {h00=0x000e, h01=0x000a, text=» ECR A1,A1«, t00=0x0010, t01=0x000c}
0x191a…1946 Head {h00=0x0028, h01=0x0024, text=» LC A1,18,A6 GET START RECORD NUMBER«, t00=0x0010, t01=0x001e}
0x1946…1970 Head {h00=0x0026, h01=0x0022, text=» SUR A3,A1 GET RELATIVE RECORD NO.«, t00=0x0010, t01=0x004a}
0x1970…1996 Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x0010, t01=0x0074}
0x1996…19a8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0010, t01=0x009a}
0x19a8…19cc Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOK100 JUMP IF ERROR «, t00=0x0010, t01=0x00ac}
0x19cc…19e0 Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x0010, t01=0x00d0}
0x19e0…1a00 Head {h00=0x001c, h01=0x0017, text=» RF(NZ) TEST0 IF SET0CC «, t00=0x0010, t01=0x00e4}
0x1a00…1a26 Head {h00=0x0022, h01=0x001e, text=»* SETFRE: TEST IF ALREADY FREE«, t00=0x0010, t01=0x0104}
0x1a26…1a3e Head {h00=0x0014, h01=0x000f, text=»TEST1 LDR A4,A4 «, t00=0x0010, t01=0x012a}
0x1a3e…1a62 Head {h00=0x0020, h01=0x001c, text=» RB(N) RETUR IF ALREADY FREE«, t00=0x0010, t01=0x0142}
0x1a62…1a88 Head {h00=0x0022, h01=0x001e, text=» ORKL A4,/8000 SET RECORD FREE«, t00=0x0010, t01=0x0166}
0x1a88…1aac Head {h00=0x0020, h01=0x001c, text=» LDK A1,1 INDICATE INCREMENT«, t00=0x0010, t01=0x018c}
0x1aac…1ade Head {h00=0x002e, h01=0x002a, text=»TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER«, t00=0x0011, t01=0x0020}
0x1ade…1af6 Head {h00=0x0014, h01=0x000f, text=»TES200 SUK A3,1 «, t00=0x0011, t01=0x0052}
0x1af6…1b1a Head {h00=0x0020, h01=0x001b, text=» RF(N) TES300 BYTE RESTORED «, t00=0x0011, t01=0x006a}
0x1b1a…1b2c Head {h00=0x000e, h01=0x0009, text=» SRC A4,1 «, t00=0x0011, t01=0x008e}
0x1b2c…1b3e Head {h00=0x000e, h01=0x000a, text=» RB TES200«, t00=0x0011, t01=0x00a0}
0x1b3e…1b6c Head {h00=0x002a, h01=0x0026, text=»TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE«, t00=0x0011, t01=0x00b2}
0x1b6c…1b92 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x0011, t01=0x00e0}
0x1b92…1ba4 Head {h00=0x000e, h01=0x0009, text=» RB RETUR «, t00=0x0011, t01=0x0106}
0x1ba4…1bae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0118}
0x1bae…1bd8 Head {h00=0x0026, h01=0x0022, text=»* SETOCC: TEST IF ALREADY OCCUPIED«, t00=0x0011, t01=0x0122}
0x1bd8…1bec Head {h00=0x0010, h01=0x000b, text=»TEST0 EQU * «, t00=0x0011, t01=0x014c}
0x1bec…1bfe Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x0011, t01=0x0160}
0x1bfe…1c28 Head {h00=0x0026, h01=0x0021, text=» RB(NN) RETUR IF ALREADY OCCUPIED «, t00=0x0011, t01=0x0172}
0x1c28…1c56 Head {h00=0x002a, h01=0x0025, text=» SUK A1,1 A1 = -1; INDICATE DECREMENT «, t00=0x0012, t01=0x000c}
0x1c56…1c7e Head {h00=0x0024, h01=0x0020, text=» ANKL A4,/7FFF INDICATE OCCUPIED«, t00=0x0012, t01=0x003a}
0x1c7e…1c90 Head {h00=0x000e, h01=0x000a, text=» RB TES100«, t00=0x0012, t01=0x0062}
0x1c90…1c9e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x0074}
0x1c9e…1cd4 Head {h00=0x0032, h01=0x002d, text=»* SET RECORD OCCUPIED AND DECREMENT NUMBER OF «, t00=0x0012, t01=0x0082}
0x1cd4…1d10 Head {h00=0x0038, h01=0x0033, text=»* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD «, t00=0x0012, t01=0x00b8}
0x1d10…1d22 Head {h00=0x000e, h01=0x0009, text=»* IS FREE «, t00=0x0012, t01=0x00f4}
0x1d22…1d5c Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x0012, t01=0x0106}
0x1d5c…1d9a Head {h00=0x003a, h01=0x0036, text=»* NUMB = CURRENT RECORD NUMBER (= 0 AS OUTPUT IF«, t00=0x0012, t01=0x0140}
0x1d9a…1dd8 Head {h00=0x003a, h01=0x0035, text=»* WRONG NUMBER) «, t00=0x0012, t01=0x017e}
0x1dd8…1dec Head {h00=0x0010, h01=0x000c, text=»SETOCC EQU *«, t00=0x0013, t01=0x002c}
0x1dec…1e10 Head {h00=0x0020, h01=0x001c, text=» LDR A10,A14 INDICATE SETOCC«, t00=0x0013, t01=0x0040}
0x1e10…1e20 Head {h00=0x000c, h01=0x0007, text=» RB SET «, t00=0x0013, t01=0x0064}
0x1e20…1e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0074}
0x1e2e…1e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0082}
0x1e38…1e6e Head {h00=0x0032, h01=0x0050, text=»* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING«, t00=0x0013, t01=0x008c}
0x1e6e…1e8a Head {h00=0x0018, h01=0x0050, text=»* 16 BOOLEAN ITEMS«, t00=0x0013, t01=0x00c2}
0x1e8a…1e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e94…1ea8 Head {h00=0x0010, h01=0x0050, text=»UPDBOL EQU *«, t00=0x0013, t01=0x00e8}
0x1ea8…1ed4 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0013, t01=0x00fc}
0x1ed4…1ef8 Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A9 GET BIN CONTENTS«, t00=0x0013, t01=0x0128}
0x1ef8…1f1c Head {h00=0x0020, h01=0x0050, text=» ST A1,-2,A9 STORE BOOLEANS «, t00=0x0013, t01=0x014c}
0x1f1c…1f2e Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0013, t01=0x0170}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f38…1f6e Head {h00=0x0032, h01=0x0050, text=»* MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN«, t00=0x0013, t01=0x018c}
0x1f6e…1f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0032}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=»UPDBIN EQU *«, t00=0x0014, t01=0x003c}
0x1f8c…1fb8 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0014, t01=0x0050}
0x1fb8…1fda Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A9 GET BOOLEANS «, t00=0x0014, t01=0x007c}
0x1fda…1ffa Head {h00=0x001c, h01=0x0050, text=» STR A1,A9 STORE IN BIN «, t00=0x0014, t01=0x009e}
0x1ffa…200c Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0014, t01=0x00be}
0x200c…201a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00d0}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00de}
0x2024…2058 Head {h00=0x0030, h01=0x0050, text=»* SEARCH WANTED BIT IN A CHARACTER STRING «, t00=0x0014, t01=0x00e8}
0x2058…2074 Head {h00=0x0018, h01=0x0050, text=»* A3 = BIT INDEX «, t00=0x0014, t01=0x011c}
0x2074…20a4 Head {h00=0x002c, h01=0x0050, text=»* A7 = CHARACTER STRING START ADDRESS«, t00=0x0014, t01=0x0138}
0x20a4…20ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20ae…20c2 Head {h00=0x0010, h01=0x0050, text=»SEABIT EQU *«, t00=0x0014, t01=0x0172}
0x20c2…20da Head {h00=0x0014, h01=0x000f, text=»SET050 SUK A3,8 «, t00=0x0014, t01=0x0186}
0x20da…20f0 Head {h00=0x0012, h01=0x000d, text=» RF(N) SET100 «, t00=0x0015, t01=0x000e}
0x20f0…2102 Head {h00=0x000e, h01=0x0009, text=» ADK A7,1 «, t00=0x0015, t01=0x0024}
0x2102…2114 Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x0015, t01=0x0036}
0x2114…213e Head {h00=0x0026, h01=0x0022, text=» RB(NE) SET050 CONTINUE IN NOT EOR«, t00=0x0015, t01=0x0048}
0x213e…216c Head {h00=0x002a, h01=0x0025, text=» LDK A6,0 INDICATE INCORRECT REC. NO. «, t00=0x0015, t01=0x0072}
0x216c…217c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x00a0}
0x217c…219c Head {h00=0x001c, h01=0x0018, text=»* PLACED IN CURRENT BYTE«, t00=0x0015, t01=0x00b0}
0x219c…21b0 Head {h00=0x0010, h01=0x000c, text=»SET100 EQU *«, t00=0x0015, t01=0x00d0}
0x21b0…21c2 Head {h00=0x000e, h01=0x0009, text=» ADK A3,8 «, t00=0x0015, t01=0x00e4}
0x21c2…21d4 Head {h00=0x000e, h01=0x000a, text=» LCR A4,A7«, t00=0x0015, t01=0x00f6}
0x21d4…21f8 Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 GET BYTE RIGHTMOST«, t00=0x0015, t01=0x0108}
0x21f8…2212 Head {h00=0x0016, h01=0x0012, text=» LDR A1,A3 COPY A3«, t00=0x0015, t01=0x012c}
0x2212…2232 Head {h00=0x001c, h01=0x0018, text=» RF(Z) TEST IF FIRST BIT«, t00=0x0015, t01=0x0146}
0x2232…2246 Head {h00=0x0010, h01=0x000c, text=»SET300 EQU *«, t00=0x0015, t01=0x0166}
0x2246…2258 Head {h00=0x000e, h01=0x0009, text=» SLC A4,1 «, t00=0x0015, t01=0x017a}
0x2258…226a Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0015, t01=0x018c}
0x226a…2280 Head {h00=0x0012, h01=0x000e, text=» RB(NZ) SET300«, t00=0x0016, t01=0x000e}
0x2280…2292 Head {h00=0x000e, h01=0x000a, text=»TEST EQU *«, t00=0x0016, t01=0x0024}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x0036}
0x22a2…22b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0046}
0x22b0…22ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0054}
0x22ba…22ec Head {h00=0x002e, h01=0x0050, text=»* SET WANTED BIT IN A STRING OR BIN ITEM «, t00=0x0016, t01=0x005e}
0x22ec…2316 Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL SETB,ITEM,INDEX «, t00=0x0016, t01=0x0090}
0x2316…2320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ba}
0x2320…2332 Head {h00=0x000e, h01=0x0050, text=»SETB EQU *«, t00=0x0016, t01=0x00c4}
0x2332…2356 Head {h00=0x0020, h01=0x0050, text=» SUR A10,A10 INDICATE 'SET' «, t00=0x0016, t01=0x00d6}
0x2356…236a Head {h00=0x0010, h01=0x0050, text=»SETB10 EQU *«, t00=0x0016, t01=0x00fa}
0x236a…2392 Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO ITEM«, t00=0x0016, t01=0x010e}
0x2392…23b2 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A9 COPY ADDRESS «, t00=0x0016, t01=0x0136}
0x23b2…23d4 Head {h00=0x001e, h01=0x0050, text=» LDR A8,A5 COPY ENDADDRESS«, t00=0x0016, t01=0x0156}
0x23d4…23fe Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0016, t01=0x0178}
0x23fe…241c Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A9 GET INDEX «, t00=0x0017, t01=0x0012}
0x241c…2442 Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x0017, t01=0x0030}
0x2442…2456 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0017, t01=0x0056}
0x2456…2478 Head {h00=0x001e, h01=0x0050, text=» RF(N) SETB30 IF TEST BIT «, t00=0x0017, t01=0x006a}
0x2478…249c Head {h00=0x0020, h01=0x0050, text=» RF(Z) SETB20 JUMP IF SETBIT«, t00=0x0017, t01=0x008c}
0x249c…24b0 Head {h00=0x0010, h01=0x0050, text=»* CLEAR BIT «, t00=0x0017, t01=0x00b0}
0x24b0…24d0 Head {h00=0x001c, h01=0x0050, text=» ANKL A4,/7FFF CLEAR BIT«, t00=0x0017, t01=0x00c4}
0x24d0…24f0 Head {h00=0x001c, h01=0x0050, text=» RB TES200 RESTORE BYTE «, t00=0x0017, t01=0x00e4}
0x24f0…2502 Head {h00=0x000e, h01=0x0050, text=»* SET BIT «, t00=0x0017, t01=0x0104}
0x2502…2516 Head {h00=0x0010, h01=0x0050, text=»SETB20 EQU *«, t00=0x0017, t01=0x0116}
0x2516…2534 Head {h00=0x001a, h01=0x0050, text=» ORKL A4,/8000 SET BIT«, t00=0x0017, t01=0x012a}
0x2534…2554 Head {h00=0x001c, h01=0x0050, text=» RB TES200 RESTORE BYTE «, t00=0x0017, t01=0x0148}
0x2554…2568 Head {h00=0x0010, h01=0x0050, text=»SETB30 EQU *«, t00=0x0017, t01=0x0168}
0x2568…2588 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 INDICATE FALSE«, t00=0x0017, t01=0x017c}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 TEST BIT «, t00=0x0018, t01=0x000c}
0x25a4…25c4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) SETB40 IF FALSE «, t00=0x0018, t01=0x0028}
0x25c4…25e4 Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE TRUE «, t00=0x0018, t01=0x0048}
0x25e4…25f8 Head {h00=0x0010, h01=0x0050, text=»SETB40 EQU *«, t00=0x0018, t01=0x0068}
0x25f8…261c Head {h00=0x0020, h01=0x0050, text=» LD A4,2,A13 GET STACK BASE «, t00=0x0018, t01=0x007c}
0x261c…2642 Head {h00=0x0022, h01=0x0050, text=» SC A1,-2,A4 STORE CR ON STACK«, t00=0x0018, t01=0x00a0}
0x2642…2652 Head {h00=0x000c, h01=0x0050, text=» RF RET «, t00=0x0018, t01=0x00c6}
0x2652…265c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d6}
0x265c…268a Head {h00=0x002a, h01=0x0050, text=»* CLEAR BIT IN STRING OR BIN VARIABLE«, t00=0x0018, t01=0x00e0}
0x268a…26b6 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL CLEARB,ITEM,INDEX«, t00=0x0018, t01=0x010e}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013a}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=»CLEARB EQU *«, t00=0x0018, t01=0x0144}
0x26d4…26fc Head {h00=0x0024, h01=0x0050, text=» LDKL A10,1 INDICATE 'CLEAR BIT'«, t00=0x0018, t01=0x0158}
0x26fc…2718 Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0018, t01=0x0180}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000c}
0x2722…2750 Head {h00=0x002a, h01=0x0050, text=»* TEST BIT IN STRING OR BIN VARIABLE «, t00=0x0019, t01=0x0016}
0x2750…277c Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL TESTB,ITEM,INDEX «, t00=0x0019, t01=0x0044}
0x277c…27a6 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: CR = 0 (BIT IS FALSE)«, t00=0x0019, t01=0x0070}
0x27a6…27d0 Head {h00=0x0026, h01=0x0050, text=»* CR = 1 (BIT IS TRUE) «, t00=0x0019, t01=0x009a}
0x27d0…27da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c4}
0x27da…27ee Head {h00=0x0010, h01=0x0050, text=»TESTB EQU * «, t00=0x0019, t01=0x00ce}
0x27ee…2816 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,-1 INDICATE 'TEST BIT'«, t00=0x0019, t01=0x00e2}
0x2816…2832 Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0019, t01=0x010a}
0x2832…2840 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0126}
0x2840…286e Head {h00=0x002a, h01=0x0050, text=»* GET VOLUME NAME TO A STRING VARIABEL«, t00=0x0019, t01=0x0134}
0x286e…28a6 Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD«, t00=0x0019, t01=0x0162}
0x28a6…28d2 Head {h00=0x0028, h01=0x0050, text=»* RETCOD = 0 IF OK, ELSE 1 «, t00=0x001a, t01=0x000a}
0x28d2…28dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0036}
0x28dc…28f0 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x001a, t01=0x0040}
0x28f0…291c Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x001a, t01=0x0054}
0x291c…294a Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 GET BUFFER ADDRESS TO A9 «, t00=0x001a, t01=0x0080}
0x294a…2976 Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 MAKE BUFFER ADDRESS EVEN «, t00=0x001a, t01=0x00ae}
0x2976…298c Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x001a, t01=0x00da}
0x298c…29bc Head {h00=0x002c, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS IN DSET«, t00=0x001a, t01=0x00f0}
0x29bc…29e2 Head {h00=0x0022, h01=0x0050, text=» LDK A6,6 REQUESTED LENGTH =6 «, t00=0x001a, t01=0x0120}
0x29e2…2a1a Head {h00=0x0034, h01=0x0050, text=» ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS«, t00=0x001a, t01=0x0146}
0x2a1a…2a44 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO VOLNAM«, t00=0x001a, t01=0x017e}
0x2a44…2a68 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/80 LOAD ORDER CODE «, t00=0x001b, t01=0x0018}
0x2a68…2a98 Head {h00=0x002c, h01=0x0050, text=»* A7 ORDER CODE FOR TEST STATUS «, t00=0x001b, t01=0x003c}
0x2a98…2aba Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS «, t00=0x001b, t01=0x006c}
0x2aba…2ac6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x008e}
0x2ac6…2ad6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x009a}
0x2ad6…2afa Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 LOAD RETURN CODE«, t00=0x001b, t01=0x00aa}
0x2afa…2b10 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ERROR «, t00=0x001b, t01=0x00ce}
0x2b10…2b4e Head {h00=0x003a, h01=0x0050, text=»* STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) «, t00=0x001b, t01=0x00e4}
0x2b4e…2b74 Head {h00=0x0022, h01=0x0050, text=»* IN CALLERS BUFFER VOLNAM«, t00=0x001b, t01=0x0122}
0x2b74…2b9c Head {h00=0x0024, h01=0x0050, text=» LD A1,2,A8 LOAD BUFFER ADDRESS «, t00=0x001b, t01=0x0148}
0x2b9c…2bc8 Head {h00=0x0028, h01=0x0050, text=» LDK A2,6 NO OF BYTES IN VOLUME NAME«, t00=0x001b, t01=0x0170}
0x2bc8…2bda Head {h00=0x000e, h01=0x0050, text=»LOOP EQU *«, t00=0x001c, t01=0x000c}
0x2bda…2bec Head {h00=0x000e, h01=0x0050, text=» LCR A3,A1«, t00=0x001c, t01=0x001e}
0x2bec…2bfe Head {h00=0x000e, h01=0x0050, text=» SCR A3,A9«, t00=0x001c, t01=0x0030}
0x2bfe…2c10 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x001c, t01=0x0042}
0x2c10…2c22 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x001c, t01=0x0054}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0066}
0x2c34…2c48 Head {h00=0x0010, h01=0x0050, text=» RB(P) LOOP «, t00=0x001c, t01=0x0078}
0x2c48…2c58 Head {h00=0x000c, h01=0x0050, text=»UT EQU *«, t00=0x001c, t01=0x008c}
0x2c58…2c6a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001c, t01=0x009c}
0x2c6a…2c84 Head {h00=0x0016, h01=0x0050, text=»VIN CF A14,I:EVA0 «, t00=0x001c, t01=0x00ae}
0x2c84…2ca8 Head {h00=0x0020, h01=0x0050, text=» STR A6,A9 STORE RETURN-CODE«, t00=0x001c, t01=0x00c8}
0x2ca8…2cbe Head {h00=0x0012, h01=0x0050, text=»RET ABL I:RT1 «, t00=0x001c, t01=0x00ec}
0x2cbe…2cd4 Head {h00=0x0012, h01=0x0050, text=»ERROR LDK A6,1«, t00=0x001c, t01=0x0102}
0x2cd4…2ce4 Head {h00=0x000c, h01=0x0050, text=» RB VIN «, t00=0x001c, t01=0x0118}
0x2ce4…2cf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0128}
0x2cf2…2d06 Head {h00=0x0010, h01=0x000c, text=»GETPAR EQU *«, t00=0x001c, t01=0x0136}
0x2d06…2d2c Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO BPOOL «, t00=0x001c, t01=0x014a}
0x2d2c…2d4c Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 COPY ADDRESS «, t00=0x001c, t01=0x0170}
0x2d4c…2d72 Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO RPOOL «, t00=0x001c, t01=0x0190}
0x2d72…2d86 Head {h00=0x0010, h01=0x000c, text=» LC A8,15,A9«, t00=0x001d, t01=0x0026}
0x2d86…2d98 Head {h00=0x000e, h01=0x000a, text=» ECR A8,A8«, t00=0x001d, t01=0x003a}
0x2d98…2dc0 Head {h00=0x0024, h01=0x001f, text=» LC A8,16,A9 GET OCCUPIED BYTES «, t00=0x001d, t01=0x004c}
0x2dc0…2de2 Head {h00=0x001e, h01=0x001a, text=» ADR A8,A7 GET END ADDRESS«, t00=0x001d, t01=0x0074}
0x2de2…2df6 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,10 «, t00=0x001d, t01=0x0096}
0x2df6…2e1c Head {h00=0x0022, h01=0x001d, text=» LDR A2,A7 SAVE START ADDRESS «, t00=0x001d, t01=0x00aa}
0x2e1c…2e44 Head {h00=0x0024, h01=0x001f, text=» ADK A7,2 ADDRESS TO FIRST BITS «, t00=0x001d, t01=0x00d0}
0x2e44…2e56 Head {h00=0x000e, h01=0x0009, text=» LDK A6,0 «, t00=0x001d, t01=0x00f8}
0x2e56…2e66 Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x001d, t01=0x010a}
0x2e66…2e74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x011a}
0x2e74…2e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0128}
0x2e7e…2eb4 Head {h00=0x0032, h01=0x0050, text=»* READ CONTROLS FROM A STRING ITEM AND STORE «, t00=0x001d, t01=0x0132}
0x2eb4…2ee6 Head {h00=0x002e, h01=0x0050, text=»* IN CORRESPONDING BOOLEAN AND BIN ITEMS «, t00=0x001d, t01=0x0168}
0x2ee6…2f24 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL«, t00=0x001e, t01=0x000a}
0x2f24…2f5e Head {h00=0x0036, h01=0x0050, text=»* BUFF+DISPL= START ADDRESS IN STRING ITEM «, t00=0x001e, t01=0x0048}
0x2f5e…2fa0 Head {h00=0x003e, h01=0x0050, text=»* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS«, t00=0x001e, t01=0x0082}
0x2fa0…2fd0 Head {h00=0x002c, h01=0x0050, text=»* MINL= BIN FOR MIN LENGTH «, t00=0x001e, t01=0x00c4}
0x2fd0…3000 Head {h00=0x002c, h01=0x0050, text=»* MAXL= BIN FOR MAX LENGTH «, t00=0x001e, t01=0x00f4}
0x3000…300a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0124}
0x300a…301e Head {h00=0x0010, h01=0x0050, text=»RCNTRL EQU *«, t00=0x001e, t01=0x012e}
0x301e…304c Head {h00=0x002a, h01=0x0050, text=» SUR A10,A10 INDICATE READING CONTROLS«, t00=0x001e, t01=0x0142}
0x304c…3076 Head {h00=0x0026, h01=0x0050, text=»CONTRL CALL I:EVA0 BUFFER ADDRESS «, t00=0x001e, t01=0x0170}
0x3076…3088 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x001f, t01=0x000a}
0x3088…30b2 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 DISPLACEMENT ADDRESS «, t00=0x001f, t01=0x001c}
0x30b2…30d8 Head {h00=0x0022, h01=0x0050, text=» ADR* A8,A9 GET START POINTER «, t00=0x001f, t01=0x0046}
0x30d8…30ee Head {h00=0x0012, h01=0x0050, text=» CALL I:EVA0 «, t00=0x001f, t01=0x006c}
0x30ee…3100 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x001f, t01=0x0082}
0x3100…3126 Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 ADDRESS TO BOOLEANS «, t00=0x001f, t01=0x0094}
0x3126…3148 Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 MINL ADDRESS «, t00=0x001f, t01=0x00ba}
0x3148…315a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x001f, t01=0x00dc}
0x315a…317c Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 MAXL ADDRESS «, t00=0x001f, t01=0x00ee}
0x317c…3190 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x001f, t01=0x0110}
0x3190…31b4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ JUMP IF "RCNTRL"«, t00=0x001f, t01=0x0124}
0x31b4…31cc Head {h00=0x0014, h01=0x0050, text=»* WRITE CONTROLS«, t00=0x001f, t01=0x0148}
0x31cc…31ec Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A7 GET BOOLEANS«, t00=0x001f, t01=0x0160}
0x31ec…3210 Head {h00=0x0020, h01=0x0050, text=» SC A1,2,A8 STORE IN BUFFER «, t00=0x001f, t01=0x0180}
0x3210…3236 Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 SHIFT OUT 8 BOOLEANS«, t00=0x0020, t01=0x0014}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=» SLL A1,7 «, t00=0x0020, t01=0x003a}
0x3248…326c Head {h00=0x0020, h01=0x0050, text=» ADR* A1,A9 GET NEOI + MAXL «, t00=0x0020, t01=0x004c}
0x326c…3290 Head {h00=0x0020, h01=0x0050, text=» SC A1,1,A8 STORE IN BUFFER «, t00=0x0020, t01=0x0070}
0x3290…32b4 Head {h00=0x0020, h01=0x0050, text=» SRL A1,2 SHIFT IN ME + TYPE«, t00=0x0020, t01=0x0094}
0x32b4…32c8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x0020, t01=0x00b8}
0x32c8…32e4 Head {h00=0x0018, h01=0x0050, text=» ADR* A1,A6 GET MINL«, t00=0x0020, t01=0x00cc}
0x32e4…3306 Head {h00=0x001e, h01=0x0050, text=» SCR A1,A8 STORE IN BUFFER«, t00=0x0020, t01=0x00e8}
0x3306…3316 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0020, t01=0x010a}
0x3316…332e Head {h00=0x0014, h01=0x0050, text=»* READ CONTROLS «, t00=0x0020, t01=0x011a}
0x332e…3340 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0020, t01=0x0132}
0x3340…3364 Head {h00=0x0020, h01=0x0050, text=» LC A1,1,A8 GET NEOI + MAXL «, t00=0x0020, t01=0x0144}
0x3364…3376 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0020, t01=0x0168}
0x3376…3398 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/7F MASK OUT MAXL «, t00=0x0020, t01=0x017a}
0x3398…33b6 Head {h00=0x001a, h01=0x0050, text=» STR A2,A9 STORE MAXL «, t00=0x0021, t01=0x000c}
0x33b6…33c8 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x0021, t01=0x002a}
0x33c8…33ea Head {h00=0x001e, h01=0x0050, text=» ANK A2,/3F MASK OUT MINL «, t00=0x0021, t01=0x003c}
0x33ea…3408 Head {h00=0x001a, h01=0x0050, text=» STR A2,A6 STORE MINL «, t00=0x0021, t01=0x005e}
0x3408…3430 Head {h00=0x0024, h01=0x0050, text=» SRL A1,7 NEOI TO RIGHTMOST POS.«, t00=0x0021, t01=0x007c}
0x3430…3450 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MASK OUT NEOI «, t00=0x0021, t01=0x00a4}
0x3450…3478 Head {h00=0x0024, h01=0x0050, text=» LCR A2,A8 GET ME + TYPE + MINL «, t00=0x0021, t01=0x00c4}
0x3478…3498 Head {h00=0x001c, h01=0x0050, text=» SRL A2,5 SHIFT OUT MINL«, t00=0x0021, t01=0x00ec}
0x3498…34aa Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0021, t01=0x010c}
0x34aa…34bc Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0021, t01=0x011e}
0x34bc…34ce Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0021, t01=0x0130}
0x34ce…34f0 Head {h00=0x001e, h01=0x0050, text=» LC A2,2,A8 GET OTHER BITS«, t00=0x0021, t01=0x0142}
0x34f0…3512 Head {h00=0x001e, h01=0x0050, text=» STR A2,A7 STORE BOOLEANS «, t00=0x0021, t01=0x0164}
0x3512…3522 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0021, t01=0x0186}
0x3522…3530 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0008}
0x3530…353a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0016}
0x353a…356e Head {h00=0x0030, h01=0x0050, text=»* WRITE CONTROLS FROM BOOLEANS AND BINS TO«, t00=0x0022, t01=0x0020}
0x356e…3586 Head {h00=0x0014, h01=0x0050, text=»* STRING ITEM «, t00=0x0022, t01=0x0054}
0x3586…35c4 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL«, t00=0x0022, t01=0x006c}
0x35c4…35fa Head {h00=0x0032, h01=0x0050, text=»* BUFF+DISPL= START POINT FOR WRITINGM «, t00=0x0022, t01=0x00aa}
0x35fa…3640 Head {h00=0x0042, h01=0x0050, text=»* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLEANS «, t00=0x0022, t01=0x00e0}
0x3640…3670 Head {h00=0x002c, h01=0x0050, text=»* MINL= BIN FOR MIN LENGTH «, t00=0x0022, t01=0x0126}
0x3670…36a0 Head {h00=0x002c, h01=0x0050, text=»* MAXL= BIN FOR MAX LENGTH «, t00=0x0022, t01=0x0156}
0x36a0…36aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0186}
0x36aa…36be Head {h00=0x0010, h01=0x0050, text=»WCNTRL EQU *«, t00=0x0022, t01=0x0190}
0x36be…36ea Head {h00=0x0028, h01=0x0050, text=» LDR A10,A14 INDICATE WRITE CONTROLS«, t00=0x0023, t01=0x0014}
0x36ea…36fc Head {h00=0x000e, h01=0x0050, text=» RB CONTRL«, t00=0x0023, t01=0x0040}
0x36fc…370a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0052}
0x370a…3714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0060}
0x3714…3746 Head {h00=0x002e, h01=0x0050, text=»* MASK OUT WANTED BITS ACCORDING TO MASK «, t00=0x0023, t01=0x006a}
0x3746…3770 Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL MSKOUT,MASK,BIN «, t00=0x0023, t01=0x009c}
0x3770…37aa Head {h00=0x0036, h01=0x0050, text=»* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN «, t00=0x0023, t01=0x00c6}
0x37aa…37e6 Head {h00=0x0038, h01=0x0050, text=»* THE RESULT AFTER THE LOGICAL AND OPERATION«, t00=0x0023, t01=0x0100}
0x37e6…381a Head {h00=0x0030, h01=0x0050, text=»* BIN= BIN HOLDING THE VALUE TO BE MASKED«, t00=0x0023, t01=0x013c}
0x381a…3824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0170}
0x3824…3838 Head {h00=0x0010, h01=0x0050, text=»MSKOUT EQU *«, t00=0x0023, t01=0x017a}
0x3838…385c Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO MASK«, t00=0x0023, t01=0x018e}
0x385c…386e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0024, t01=0x0022}
0x386e…3892 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO BIN «, t00=0x0024, t01=0x0034}
0x3892…38ba Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A9 GET CONTENTS OF BIN «, t00=0x0024, t01=0x0058}
0x38ba…38e8 Head {h00=0x002a, h01=0x0050, text=» ANRS A1,A6 LOGICAL AND WITH MASK AND «, t00=0x0024, t01=0x0080}
0x38e8…3908 Head {h00=0x001c, h01=0x0050, text=» STORE RESULT IN MASK «, t00=0x0024, t01=0x00ae}
0x3908…3918 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0024, t01=0x00ce}
0x3918…3922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00de}
0x3922…3930 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00e8}
0x3930…393a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f6}
0x393a…396a Head {h00=0x002c, h01=0x0050, text=»* ATTACH A STRING ITEM AS A FIX BUFFER «, t00=0x0024, t01=0x0100}
0x396a…3982 Head {h00=0x0014, h01=0x0050, text=»* TO A DATASET «, t00=0x0024, t01=0x0130}
0x3982…39b2 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL ATTBUF,DSET,BUFFER «, t00=0x0024, t01=0x0148}
0x39b2…39bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0178}
0x39bc…39d0 Head {h00=0x0010, h01=0x0050, text=»ATTBUF EQU *«, t00=0x0024, t01=0x0182}
0x39d0…39f2 Head {h00=0x001e, h01=0x0050, text=» CALL T:FDSP DSET-ADDRESS «, t00=0x0025, t01=0x0008}
0x39f2…3a08 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/4000«, t00=0x0025, t01=0x002a}
0x3a08…3a30 Head {h00=0x0024, h01=0x0050, text=» ORRS A1,A8 INDICATE FIX BUFFER «, t00=0x0025, t01=0x0040}
0x3a30…3a58 Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 GET BUFFER ADDRESS «, t00=0x0025, t01=0x0068}
0x3a58…3a80 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS«, t00=0x0025, t01=0x0090}
0x3a80…3aa4 Head {h00=0x0020, h01=0x0050, text=» SUR A5,A9 CALCULATE LENGTH «, t00=0x0025, t01=0x00b8}
0x3aa4…3ac6 Head {h00=0x001e, h01=0x0050, text=» ST A5,14,A8 STORE LENGTH «, t00=0x0025, t01=0x00dc}
0x3ac6…3ada Head {h00=0x0010, h01=0x0050, text=»ATTRET EQU *«, t00=0x0025, t01=0x00fe}
0x3ada…3aea Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0025, t01=0x0112}
0x3aea…3af8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0122}
0x3af8…3b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0130}
0x3b02…3b26 Head {h00=0x0020, h01=0x0050, text=»* TEST IF AN ITEM IS FORCED«, t00=0x0025, t01=0x013a}
0x3b26…3b5a Head {h00=0x0030, h01=0x0050, text=»* BCDITEM = RIGHTMOST DIGIT IS EQUAL TO /A«, t00=0x0025, t01=0x015e}
0x3b5a…3b8e (38, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' «, t00=0x0026, t01=0x0004}
0x3b8e…3b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0038}
0x3b98…3bc8 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL FORCED,ITEM «, t00=0x0026, t01=0x0042}
0x3bc8…3bfe Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: CR = 0 NOT FORCED«, t00=0x0026, t01=0x0072}
0x3bfe…3c30 Head {h00=0x002e, h01=0x0050, text=»* CR = 1 FORCED«, t00=0x0026, t01=0x00a8}
0x3c30…3c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00da}
0x3c3a…3c4e Head {h00=0x0010, h01=0x0050, text=»FORCED EQU *«, t00=0x0026, t01=0x00e4}
0x3c4e…3c74 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ITEM ADDRESS «, t00=0x0026, t01=0x00f8}
0x3c74…3c88 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/30 «, t00=0x0026, t01=0x011e}
0x3c88…3cb0 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ALPHA JUMP IF STRING ITEM«, t00=0x0026, t01=0x0132}
0x3cb0…3cc6 Head {h00=0x0012, h01=0x0050, text=»* A BCD ITEM «, t00=0x0026, t01=0x015a}
0x3cc6…3cda Head {h00=0x0010, h01=0x0050, text=» LC A3,-1,A5«, t00=0x0026, t01=0x0170}
0x3cda…3d00 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F GET RIGHTMOST DIGIT«, t00=0x0026, t01=0x0184}
0x3d00…3d12 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0027, t01=0x001a}
0x3d12…3d26 Head {h00=0x0010, h01=0x0050, text=»FOR100 EQU *«, t00=0x0027, t01=0x002c}
0x3d26…3d4a Head {h00=0x0020, h01=0x0050, text=» RF(Z) NOTFND JUMP IF FORCED«, t00=0x0027, t01=0x0040}
0x3d4a…3d66 Head {h00=0x0018, h01=0x0050, text=» RF UT150 NOT FORCED«, t00=0x0027, t01=0x0064}
0x3d66…3d7a Head {h00=0x0010, h01=0x0050, text=»ALPHA EQU * «, t00=0x0027, t01=0x0080}
0x3d7a…3da4 Head {h00=0x0026, h01=0x0050, text=» LCR A3,A9 GET LEFTMOST CHARACTER «, t00=0x0027, t01=0x0094}
0x3da4…3db8 Head {h00=0x0010, h01=0x0050, text=» SUK A3,'?' «, t00=0x0027, t01=0x00be}
0x3db8…3dca Head {h00=0x000e, h01=0x0050, text=» RB FOR100«, t00=0x0027, t01=0x00d2}
0x3dca…3dd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00e4}
0x3dd8…3de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f2}
0x3de2…3e02 Head {h00=0x001c, h01=0x0050, text=»* GET VALIDATION STRING«, t00=0x0027, t01=0x00fc}
0x3e02…3e3a Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVAL,PSTRT,PLEN,BUFFX,START,LEN«, t00=0x0027, t01=0x011c}
0x3e3a…3e6a Head {h00=0x002c, h01=0x0050, text=»* INPUT: PSTRT = POOLSTART (BPOOL(W1))«, t00=0x0027, t01=0x0154}
0x3e6a…3e9a Head {h00=0x002c, h01=0x0050, text=»* PLEN = POOL UNIT LENGT (BIN)«, t00=0x0027, t01=0x0184}
0x3e9a…3ed2 Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN)«, t00=0x0028, t01=0x0024}
0x3ed2…3f14 Head {h00=0x003e, h01=0x0050, text=»* START = POINTER TO STRING WIN CURRENT POOL UNIT«, t00=0x0028, t01=0x005c}
0x3f14…3f46 Head {h00=0x002e, h01=0x0050, text=»* LEN = LENGTh OF FOUND STRING «, t00=0x0028, t01=0x009e}
0x3f46…3f76 Head {h00=0x002c, h01=0x0050, text=»* CR = 0 IF STRING IS FOUND «, t00=0x0028, t01=0x00d0}
0x3f76…3faa Head {h00=0x0030, h01=0x0050, text=»* CR = 1 IF STRING IS NOT FOUND «, t00=0x0028, t01=0x0100}
0x3faa…3fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0134}
0x3fb4…3fc8 Head {h00=0x0010, h01=0x0050, text=»GETVAL EQU *«, t00=0x0028, t01=0x013e}
0x3fc8…3ffc Head {h00=0x0030, h01=0x0050, text=» LDK A7,FVAL INDICATE SEARCH FOR VALIDATION «, t00=0x0028, t01=0x0152}
0x3ffc…4010 Head {h00=0x0010, h01=0x0050, text=»VAL100 EQU *«, t00=0x0028, t01=0x0186}
0x4010…402c Head {h00=0x0018, h01=0x0050, text=» LDR A10,A12 SAVE PP«, t00=0x0029, t01=0x000a}
0x402c…4044 Head {h00=0x0014, h01=0x0050, text=» LD* A11,-8,A13 «, t00=0x0029, t01=0x0026}
0x4044…4068 Head {h00=0x0020, h01=0x0050, text=» ADR A11,A13 GET FCB-ADDRESS«, t00=0x0029, t01=0x003e}
0x4068…4090 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A11 GET ADDRESS TO ITEM«, t00=0x0029, t01=0x0062}
0x4090…40c2 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,P:BAS+2 GET START SEARCH ADDRESS «, t00=0x0029, t01=0x008a}
0x40c2…40d6 Head {h00=0x0010, h01=0x0050, text=»VAL150 EQU *«, t00=0x0029, t01=0x00bc}
0x40d6…40f8 Head {h00=0x001e, h01=0x0050, text=» LCR A1,A6 GET FORMAT CODE«, t00=0x0029, t01=0x00d0}
0x40f8…411c Head {h00=0x0020, h01=0x0050, text=» ADK A6,1 INCREMENT POINTER «, t00=0x0029, t01=0x00f2}
0x411c…4130 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0029, t01=0x0116}
0x4130…4144 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FVAL«, t00=0x0029, t01=0x012a}
0x4144…415a Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0029, t01=0x013e}
0x415a…416e Head {h00=0x0010, h01=0x0050, text=» CWK A1,FACC«, t00=0x0029, t01=0x0154}
0x416e…4184 Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0029, t01=0x0168}
0x4184…4198 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FGEN«, t00=0x0029, t01=0x017e}
0x4198…41ae (42, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x002a, t01=0x0004}
0x41ae…41c2 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FDUP«, t00=0x002a, t01=0x001a}
0x41c2…41d8 Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x002a, t01=0x002e}
0x41d8…41ee Head {h00=0x0012, h01=0x0050, text=» SUK A1,FLINK «, t00=0x002a, t01=0x0044}
0x41ee…4212 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VAL200 IF NOT FLINK «, t00=0x002a, t01=0x005a}
0x4212…4222 Head {h00=0x000c, h01=0x0050, text=»* FLINK«, t00=0x002a, t01=0x007e}
0x4222…424e Head {h00=0x0028, h01=0x0050, text=» LDR A12,A6 UPDATE PP TO FLINK-ITEM «, t00=0x002a, t01=0x008e}
0x424e…427c Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO NEXT POOL UNIT«, t00=0x002a, t01=0x00ba}
0x427c…429c Head {h00=0x001c, h01=0x0050, text=» LDR A12,A10 RESTORE PP «, t00=0x002a, t01=0x00e8}
0x429c…42c4 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 UPDATE FORMAT POINTER«, t00=0x002a, t01=0x0108}
0x42c4…42e0 Head {h00=0x0018, h01=0x0050, text=» RB VAL150 CONTINUE «, t00=0x002a, t01=0x0130}
0x42e0…4304 Head {h00=0x0020, h01=0x0050, text=»* WANTED STRING IS NOT FOUND«, t00=0x002a, t01=0x014c}
0x4304…4318 Head {h00=0x0010, h01=0x0050, text=»VAL200 EQU *«, t00=0x002a, t01=0x0170}
0x4318…433c Head {h00=0x0020, h01=0x0050, text=» LDK A6,0 INDICATE NOT FOUND«, t00=0x002a, t01=0x0184}
0x433c…434c Head {h00=0x000c, h01=0x0050, text=» RF OUT «, t00=0x002b, t01=0x0018}
0x434c…4368 Head {h00=0x0018, h01=0x0050, text=»* FVAL,FACC OR FGEN «, t00=0x002b, t01=0x0028}
0x4368…437c Head {h00=0x0010, h01=0x0050, text=»VAL300 EQU *«, t00=0x002b, t01=0x0044}
0x437c…438e Head {h00=0x000e, h01=0x0050, text=» CWR A1,A7«, t00=0x002b, t01=0x0058}
0x438e…43ae Head {h00=0x001c, h01=0x0050, text=» RF(E) OUT JUMP IF FOUND«, t00=0x002b, t01=0x006a}
0x43ae…43cc Head {h00=0x001a, h01=0x0050, text=» LCR A1,A6 GET COUNTER«, t00=0x002b, t01=0x008a}
0x43cc…43f4 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 UPDATE FORMAT POINTER«, t00=0x002b, t01=0x00a8}
0x43f4…4406 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002b, t01=0x00d0}
0x4406…4422 Head {h00=0x0018, h01=0x0050, text=» RB VAL150 CONTINUE «, t00=0x002b, t01=0x00e2}
0x4422…442c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fe}
0x442c…4436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0108}
0x4436…4448 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x002b, t01=0x0112}
0x4448…446c Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET POOL START «, t00=0x002b, t01=0x0124}
0x446c…4490 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A9 SAVE POOL START «, t00=0x002b, t01=0x0148}
0x4490…44ae Head {h00=0x001a, h01=0x0050, text=» SUR A5,A9 GET LENGTH «, t00=0x002b, t01=0x016c}
0x44ae…44d2 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A5 SAVE POOL LENGTH«, t00=0x002b, t01=0x018a}
0x44d2…44fa Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO BUFFIND «, t00=0x002c, t01=0x001e}
0x44fa…451a Head {h00=0x001c, h01=0x0050, text=» LDR A7,A9 SAVE ADDRESS «, t00=0x002c, t01=0x0046}
0x451a…4548 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO START POINTER «, t00=0x002c, t01=0x0066}
0x4548…4568 Head {h00=0x001c, h01=0x0050, text=» LDR A8,A9 SAVE ADDRESS «, t00=0x002c, t01=0x0094}
0x4568…458e Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTh«, t00=0x002c, t01=0x00b4}
0x458e…45a0 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x002c, t01=0x00da}
0x45a0…45c2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) NOTFND IF NOT FOUND«, t00=0x002c, t01=0x00ec}
0x45c2…45e0 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A6 GET LENGTh «, t00=0x002c, t01=0x010e}
0x45e0…45f4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002c, t01=0x012c}
0x45f4…4606 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002c, t01=0x0140}
0x4606…4626 Head {h00=0x001c, h01=0x0050, text=» STR A3,A9 STORE LENGTh «, t00=0x002c, t01=0x0152}
0x4626…464c Head {h00=0x0022, h01=0x0050, text=» SUR A6,A10 GET RELATIVE LENGT«, t00=0x002c, t01=0x0172}
0x464c…465e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x0008}
0x465e…4672 Head {h00=0x0010, h01=0x0050, text=»UT100 EQU * «, t00=0x002d, t01=0x001a}
0x4672…4684 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002d, t01=0x002e}
0x4684…46aa Head {h00=0x0022, h01=0x0050, text=» SUR A6,A11 SUB WIF POOL-LENGF«, t00=0x002d, t01=0x0040}
0x46aa…46d4 Head {h00=0x0026, h01=0x0050, text=» RB(P) UT100 CONTINUE IF POSITIVE «, t00=0x002d, t01=0x0066}
0x46d4…4702 Head {h00=0x002a, h01=0x0050, text=» ADR A6,A11 RESTORE RELATIVE POSITION «, t00=0x002d, t01=0x0090}
0x4702…472e Head {h00=0x0028, h01=0x0050, text=» STR A1,A7 STORE BUFFER UNIT NUMBER «, t00=0x002d, t01=0x00be}
0x472e…4754 Head {h00=0x0022, h01=0x0050, text=» STR A6,A8 STORE START POINTER«, t00=0x002d, t01=0x00ea}
0x4754…4768 Head {h00=0x0010, h01=0x0050, text=»EQUAL EQU * «, t00=0x002d, t01=0x0110}
0x4768…477c Head {h00=0x0010, h01=0x0050, text=»UT150 EQU * «, t00=0x002d, t01=0x0124}
0x477c…479e Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 INDICATE CR = 0 «, t00=0x002d, t01=0x0138}
0x479e…47b2 Head {h00=0x0010, h01=0x0050, text=»UT200 EQU * «, t00=0x002d, t01=0x015a}
0x47b2…47da Head {h00=0x0024, h01=0x0050, text=» ABL SETB40 STORE CR AND RETURN «, t00=0x002d, t01=0x016e}
0x47da…47ee Head {h00=0x0010, h01=0x0050, text=»GREAT EQU * «, t00=0x002e, t01=0x0008}
0x47ee…4802 Head {h00=0x0010, h01=0x0050, text=»NOTFND EQU *«, t00=0x002e, t01=0x001c}
0x4802…4824 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 INDICATE CR = 1 «, t00=0x002e, t01=0x0030}
0x4824…484a Head {h00=0x0022, h01=0x0050, text=» RB UT200 STORE CR AND RETURN «, t00=0x002e, t01=0x0052}
0x484a…485c Head {h00=0x000e, h01=0x0050, text=»LESS EQU *«, t00=0x002e, t01=0x0078}
0x485c…486e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x002e, t01=0x008a}
0x486e…4880 Head {h00=0x000e, h01=0x0050, text=» RB UT200 «, t00=0x002e, t01=0x009c}
0x4880…488e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00ae}
0x488e…4898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00bc}
0x4898…48ba Head {h00=0x001e, h01=0x0050, text=»* GET ACCUMULATION STRING«, t00=0x002e, t01=0x00c6}
0x48ba…48dc Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002e, t01=0x00e8}
0x48dc…48e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010a}
0x48e6…48fa Head {h00=0x0010, h01=0x0050, text=»GETACC EQU *«, t00=0x002e, t01=0x0114}
0x48fa…492c Head {h00=0x002e, h01=0x0050, text=» LDK A7,FACC INDICATE ACCUMULATION STRING «, t00=0x002e, t01=0x0128}
0x492c…494e Head {h00=0x001e, h01=0x0050, text=» RB VAL100 START TO SEARCH«, t00=0x002e, t01=0x015a}
0x494e…4958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017c}
0x4958…4962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0186}
0x4962…4982 Head {h00=0x001c, h01=0x0050, text=»* GET GENERATION STRING«, t00=0x002e, t01=0x0190}
0x4982…49a4 Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002f, t01=0x0020}
0x49a4…49ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0042}
0x49ae…49c2 Head {h00=0x0010, h01=0x0050, text=»GETGEN EQU *«, t00=0x002f, t01=0x004c}
0x49c2…49f2 Head {h00=0x002c, h01=0x0050, text=» LDK A7,FGEN INDICATE GENERATION STRING «, t00=0x002f, t01=0x0060}
0x49f2…4a14 Head {h00=0x001e, h01=0x0050, text=» RB VAL100 START TO SEARC «, t00=0x002f, t01=0x0090}
0x4a14…4a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b2}
0x4a1e…4a26 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00bc}
0x4a26…4a48 Head {h00=0x001e, h01=0x0050, text=»* GET DUPLICATION STRING «, t00=0x002f, t01=0x00c4}
0x4a48…4a6a Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002f, t01=0x00e6}
0x4a6a…4a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0108}
0x4a74…4a88 Head {h00=0x0010, h01=0x0050, text=»GETDUP EQU *«, t00=0x002f, t01=0x0112}
0x4a88…4a9c Head {h00=0x0010, h01=0x0050, text=» LDK A7,FDUP«, t00=0x002f, t01=0x0126}
0x4a9c…4aae Head {h00=0x000e, h01=0x0050, text=» RB VAL100«, t00=0x002f, t01=0x013a}
0x4aae…4ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014c}
0x4ab8…4ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0156}
0x4ac6…4ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0164}
0x4ad0…4b08 Head {h00=0x0034, h01=0x0050, text=»* GET DIMENSION OF INDEXED VARIABLE AND LENGTH«, t00=0x002f, t01=0x016e}
0x4b08…4b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0016}
0x4b12…4b54 Head {h00=0x003e, h01=0x0050, text=»* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION«, t00=0x0030, t01=0x0020}
0x4b54…4b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0062}
0x4b5e…4b9c Head {h00=0x003a, h01=0x0050, text=»* ITEM(W1) = CURRENT ITEM«, t00=0x0030, t01=0x006c}
0x4b9c…4be6 Head {h00=0x0046, h01=0x0050, text=»* LENGTH = BIN HOLDING ITEM LENGTH «, t00=0x0030, t01=0x00aa}
0x4be6…4c2e Head {h00=0x0044, h01=0x0050, text=»* DIMENSION = BIN HOLDING DIMENSION «, t00=0x0030, t01=0x00f4}
0x4c2e…4c74 Head {h00=0x0042, h01=0x0050, text=»* (NUMBER OF ELEMENTS)«, t00=0x0030, t01=0x013c}
0x4c74…4c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0182}
0x4c7e…4c92 Head {h00=0x0010, h01=0x0050, text=»GETIND EQU *«, t00=0x0030, t01=0x018c}
0x4c92…4cb6 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO ITEM«, t00=0x0031, t01=0x0010}
0x4cb6…4cec Head {h00=0x0032, h01=0x0050, text=» LD A10,-6,A14 READ DIMENSION STORED BY I:EVA «, t00=0x0031, t01=0x0034}
0x4cec…4d10 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A5 COPY END ADDRESS «, t00=0x0031, t01=0x006a}
0x4d10…4d38 Head {h00=0x0024, h01=0x0050, text=» SUR A7,A9 CALCULATE ITEM LENGTH«, t00=0x0031, t01=0x008e}
0x4d38…4d64 Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTH ITEM «, t00=0x0031, t01=0x00b6}
0x4d64…4d84 Head {h00=0x001c, h01=0x0050, text=» STR A7,A9 STORE LENGTH «, t00=0x0031, t01=0x00e2}
0x4d84…4dae Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO DIMENSION «, t00=0x0031, t01=0x0102}
0x4dae…4dd0 Head {h00=0x001e, h01=0x0050, text=» STR A10,A9 STORE IN ITEM «, t00=0x0031, t01=0x012c}
0x4dd0…4df4 Head {h00=0x0020, h01=0x0050, text=» RB ATTRET RETURN TO CALLER «, t00=0x0031, t01=0x014e}
0x4df4…4dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0172}
0x4dfe…4e0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x017c}
0x4e0c…4e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018a}
0x4e16…4e58 (50, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM «, t00=0x0032, t01=0x0004}
0x4e58…4e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0046}
0x4e62…4ea0 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) «, t00=0x0032, t01=0x0050}
0x4ea0…4eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x008e}
0x4eaa…4eee Head {h00=0x0040, h01=0x0050, text=»* OUTPUT: CR = 0 IF INDEX=OK INDEX OF ITEM«, t00=0x0032, t01=0x0098}
0x4eee…4f2a Head {h00=0x0038, h01=0x0050, text=»* CR = 1 IF INDEX > MAX. INDEX «, t00=0x0032, t01=0x00dc}
0x4f2a…4f5e Head {h00=0x0030, h01=0x0050, text=»* CR = 2 IF INDEX < 0 «, t00=0x0032, t01=0x0118}
0x4f5e…4f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014c}
0x4f68…4f70 Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0156}
0x4f70…4f84 Head {h00=0x0010, h01=0x0050, text=»CMPIND EQU *«, t00=0x0032, t01=0x015e}
0x4f84…4fae Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0032, t01=0x0172}
0x4fae…4fd2 Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A9 SAVE INDEX VALUE«, t00=0x0033, t01=0x000c}
0x4fd2…5008 Head {h00=0x0032, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM«, t00=0x0033, t01=0x0030}
0x5008…501a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x0033, t01=0x0066}
0x501a…503e Head {h00=0x0020, h01=0x0050, text=» RB(NP) LESS IF LESS THAN 1 «, t00=0x0033, t01=0x0078}
0x503e…506a Head {h00=0x0028, h01=0x0050, text=» CW A6,-6,A14 COMPARE WITH DIMENSION«, t00=0x0033, t01=0x009c}
0x506a…508a Head {h00=0x001c, h01=0x0050, text=» RB(G) GREAT IF TOO HIGH«, t00=0x0033, t01=0x00c8}
0x508a…50a8 Head {h00=0x001a, h01=0x0050, text=» RB EQUAL IF OK INDEX «, t00=0x0033, t01=0x00e8}
0x50a8…50b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0106}
0x50b2…50c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0110}
0x50c0…50ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x011e}
0x50ca…5100 Head {h00=0x0032, h01=0x0050, text=»* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO«, t00=0x0033, t01=0x0128}
0x5100…510a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015e}
0x510a…513c Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0033, t01=0x0168}
0x513c…5166 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x0034, t01=0x000a}
0x5166…518c Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x0034, t01=0x0034}
0x518c…51bc Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x0034, t01=0x005a}
0x51bc…51fe Head {h00=0x003e, h01=0x0050, text=»* RECNO REALATIV SECTOR NO WITHIN THE FILE «, t00=0x0034, t01=0x008a}
0x51fe…5208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00cc}
0x5208…521c Head {h00=0x0010, h01=0x0050, text=»WRITDK EQU *«, t00=0x0034, t01=0x00d6}
0x521c…523c Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/95 ORDER CODE«, t00=0x0034, t01=0x00ea}
0x523c…524e Head {h00=0x000e, h01=0x0050, text=» RF READ00«, t00=0x0034, t01=0x010a}
0x524e…525c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x011c}
0x525c…5266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012a}
0x5266…529c Head {h00=0x0032, h01=0x0050, text=»* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO«, t00=0x0034, t01=0x0134}
0x529c…52a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x016a}
0x52a6…52d8 Head {h00=0x002e, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0034, t01=0x0174}
0x52d8…5302 Head {h00=0x0026, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x0035, t01=0x0016}
0x5302…5328 Head {h00=0x0022, h01=0x0050, text=»* BUF BUFFER «, t00=0x0035, t01=0x0040}
0x5328…5358 Head {h00=0x002c, h01=0x0050, text=»* LEN REQUESTED LENGTH «, t00=0x0035, t01=0x0066}
0x5358…539a Head {h00=0x003e, h01=0x0050, text=»* RECNO RELATIVE SECTOR NO WITHIN THE FILE «, t00=0x0035, t01=0x0096}
0x539a…53a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d8}
0x53a4…53b8 Head {h00=0x0010, h01=0x0050, text=»READDK EQU *«, t00=0x0035, t01=0x00e2}
0x53b8…53d8 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,/91 ORDER CODE«, t00=0x0035, t01=0x00f6}
0x53d8…53ec Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0035, t01=0x0116}
0x53ec…5418 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x0035, t01=0x012a}
0x5418…5452 Head {h00=0x0036, h01=0x0050, text=»* GET PARAMETERS FROM PARAMETER LIST AND STORE «, t00=0x0035, t01=0x0156}
0x5452…546c Head {h00=0x0016, h01=0x0050, text=»* THEM IN DSET «, t00=0x0035, t01=0x0190}
0x546c…548a Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 FILE CODE«, t00=0x0036, t01=0x001a}
0x548a…549e Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0036, t01=0x0038}
0x549e…54b2 Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A8 «, t00=0x0036, t01=0x004c}
0x54b2…54d6 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 BUFFER ADDRESS «, t00=0x0036, t01=0x0060}
0x54d6…54ea Head {h00=0x0010, h01=0x0050, text=» ST A9,2,A8 «, t00=0x0036, t01=0x0084}
0x54ea…550c Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 RECORD LENGTH«, t00=0x0036, t01=0x0098}
0x550c…5520 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0036, t01=0x00ba}
0x5520…5534 Head {h00=0x0010, h01=0x0050, text=» ST A6,4,A8 «, t00=0x0036, t01=0x00ce}
0x5534…5552 Head {h00=0x001a, h01=0x0050, text=» CALL I:EVA0 RECORD NO«, t00=0x0036, t01=0x00e2}
0x5552…5566 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A9 «, t00=0x0036, t01=0x0100}
0x5566…557a Head {h00=0x0010, h01=0x0050, text=» ST A6,12,A8«, t00=0x0036, t01=0x0114}
0x557a…558c Head {h00=0x000e, h01=0x0050, text=» CM 10,A8 «, t00=0x0036, t01=0x0128}
0x558c…55a0 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0036, t01=0x013a}
0x55a0…55b4 Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0036, t01=0x014e}
0x55b4…55d4 Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER CODE«, t00=0x0036, t01=0x0162}
0x55d4…55f6 Head {h00=0x001e, h01=0x0050, text=»* A8 DSET ADDRESS«, t00=0x0036, t01=0x0182}
0x55f6…5602 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0037, t01=0x0014}
0x5602…5612 Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0037, t01=0x0020}
0x5612…561c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0030}
0x561c…563e Head {h00=0x001e, h01=0x0050, text=»* CHECK ON ERROR CODE «, t00=0x0037, t01=0x003a}
0x563e…5652 Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x0037, t01=0x005c}
0x5652…5666 Head {h00=0x0010, h01=0x0050, text=» LD A6,8,A8 «, t00=0x0037, t01=0x0070}
0x5666…5692 Head {h00=0x0028, h01=0x0050, text=» RB(Z) EQUAL SET COND CODE TO 0 ,OK «, t00=0x0037, t01=0x0084}
0x5692…56a8 Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/2000«, t00=0x0037, t01=0x00b0}
0x56a8…56d6 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) GREAT SET COND CODE TO 1 ,EOF«, t00=0x0037, t01=0x00c6}
0x56d6…5700 Head {h00=0x0026, h01=0x0050, text=» RB LESS SET COND CODE TO 2 ,ERROR«, t00=0x0037, t01=0x00f4}
0x5700…570a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011e}
0x570a…5718 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0128}
0x5718…5722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0136}
0x5722…5756 Head {h00=0x0030, h01=0x0050, text=»* CALL CLOSEF,DSET,FILECODE,BUFF,RECNO«, t00=0x0037, t01=0x0140}
0x5756…5760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0174}
0x5760…5794 Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK «, t00=0x0037, t01=0x017e}
0x5794…57c0 Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER «, t00=0x0038, t01=0x0022}
0x57c0…5802 Head {h00=0x003e, h01=0x0050, text=»* BUFF BUFFER OF AT LEAST 80 BYTES «, t00=0x0038, t01=0x004e}
0x5802…584c Head {h00=0x0046, h01=0x0050, text=»* RECNO LAST RECORD NUMBER (SHOULD BE ZERO) «, t00=0x0038, t01=0x0090}
0x584c…5856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00da}
0x5856…586a Head {h00=0x0010, h01=0x0050, text=»CLOSEF EQU *«, t00=0x0038, t01=0x00e4}
0x586a…588e Head {h00=0x0020, h01=0x0050, text=» LDR A11,A14 INDICATE CLOSEF«, t00=0x0038, t01=0x00f8}
0x588e…58a0 Head {h00=0x000e, h01=0x0050, text=» RF OPENF0«, t00=0x0038, t01=0x011c}
0x58a0…58b4 Head {h00=0x0010, h01=0x0050, text=»CLOS10 EQU *«, t00=0x0038, t01=0x012e}
0x58b4…58da Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A9 GET RECORD NUMBER «, t00=0x0038, t01=0x0142}
0x58da…5902 Head {h00=0x0024, h01=0x0050, text=» ST A1,60,A6 STORE RECORD NUMBER«, t00=0x0038, t01=0x0168}
0x5902…5924 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A10 GET FILE CODE«, t00=0x0038, t01=0x0190}
0x5924…5938 Head {h00=0x0010, h01=0x0050, text=» SC A6,1,A8 «, t00=0x0039, t01=0x0022}
0x5938…595c Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A2 LOAD ORDER CODE «, t00=0x0039, t01=0x0036}
0x595c…596e Head {h00=0x000e, h01=0x0050, text=» RB READ20«, t00=0x0039, t01=0x005a}
0x596e…597c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x006c}
0x597c…5986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007a}
0x5986…59be Head {h00=0x0034, h01=0x0050, text=»* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME«, t00=0x0039, t01=0x0084}
0x59be…59c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00bc}
0x59c8…59fc Head {h00=0x0030, h01=0x0050, text=»* DSET EVENT CONTROL BLOCK«, t00=0x0039, t01=0x00c6}
0x59fc…5a28 Head {h00=0x0028, h01=0x0050, text=»* FILECODE FILE NUMBER«, t00=0x0039, t01=0x00fa}
0x5a28…5a5e Head {h00=0x0032, h01=0x0050, text=»* BUF FILE PARAMETER BUFFER«, t00=0x0039, t01=0x0126}
0x5a5e…5a88 Head {h00=0x0026, h01=0x0050, text=»* FILE FILE NAME«, t00=0x0039, t01=0x015c}
0x5a88…5ab4 Head {h00=0x0028, h01=0x0050, text=»* VOLUME VOLUME NAME«, t00=0x0039, t01=0x0186}
0x5ab4…5abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0022}
0x5abe…5ad2 Head {h00=0x0010, h01=0x0050, text=»OPENF EQU * «, t00=0x003a, t01=0x002c}
0x5ad2…5af6 Head {h00=0x0020, h01=0x0050, text=» SUR A11,A11 INDICATE OPENF «, t00=0x003a, t01=0x0040}
0x5af6…5b0a Head {h00=0x0010, h01=0x0050, text=»OPENF0 EQU *«, t00=0x003a, t01=0x0064}
0x5b0a…5b36 Head {h00=0x0028, h01=0x0050, text=» CALL T:FDSP GET DSET ADDRESS TO A8 «, t00=0x003a, t01=0x0078}
0x5b36…5b64 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 SAVE ADDRESS TO FILE CODE«, t00=0x003a, t01=0x00a4}
0x5b64…5b78 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A9 «, t00=0x003a, t01=0x00d2}
0x5b78…5bb0 Head {h00=0x0034, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) «, t00=0x003a, t01=0x00e6}
0x5bb0…5bdc Head {h00=0x0028, h01=0x0050, text=» ADKL A9,1 AND MAKE SURE IT IS EVEN «, t00=0x003a, t01=0x011e}
0x5bdc…5bf2 Head {h00=0x0012, h01=0x0050, text=» ANKL A9,/FFFE«, t00=0x003a, t01=0x014a}
0x5bf2…5c18 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A9 SAVE ADDRESS TO FPB«, t00=0x003a, t01=0x0160}
0x5c18…5c46 Head {h00=0x002a, h01=0x0050, text=» ST A9,2,A8 STORE THE ADDRESS IN DSET «, t00=0x003a, t01=0x0186}
0x5c46…5c6c Head {h00=0x0022, h01=0x0050, text=» LDK A3,80 NO OF BYTES IN FPB «, t00=0x003b, t01=0x0024}
0x5c6c…5c8e Head {h00=0x001e, h01=0x0050, text=» LDR A2,A9 ADDRESS TO FPB «, t00=0x003b, t01=0x004a}
0x5c8e…5ca2 Head {h00=0x0010, h01=0x0050, text=»OPEN00 EQU *«, t00=0x003b, t01=0x006c}
0x5ca2…5cc4 Head {h00=0x001e, h01=0x0050, text=» CMR A2 STORE ZERO IN FPB «, t00=0x003b, t01=0x0080}
0x5cc4…5ce6 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 INCREACE ADDRESS«, t00=0x003b, t01=0x00a2}
0x5ce6…5cf8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x003b, t01=0x00c4}
0x5cf8…5d0e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN00«, t00=0x003b, t01=0x00d6}
0x5d0e…5d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ec}
0x5d18…5d48 Head {h00=0x002c, h01=0x0050, text=»* GET FILE NAME AND STORE IT IN FPB «, t00=0x003b, t01=0x00f6}
0x5d48…5d70 Head {h00=0x0024, h01=0x0050, text=»* A3 CONTAINES FPB ADDRESS «, t00=0x003b, t01=0x0126}
0x5d70…5d84 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x003b, t01=0x014e}
0x5d84…5d98 Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x003b, t01=0x0162}
0x5d98…5dbc Head {h00=0x0020, h01=0x0050, text=» RB(NZ) CLOS10 JUMP IF CLOSE«, t00=0x003b, t01=0x0176}
0x5dbc…5dea Head {h00=0x002a, h01=0x0050, text=» ADK A6,8 ADDRESS TO FILE NAME IN FPB «, t00=0x003c, t01=0x000a}
0x5dea…5e14 Head {h00=0x0026, h01=0x0050, text=» LDK A4,8 NO OF CHAR IN FILE NAME «, t00=0x003c, t01=0x0038}
0x5e14…5e28 Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x003c, t01=0x0062}
0x5e28…5e46 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A9 GET ON CHAR«, t00=0x003c, t01=0x0076}
0x5e46…5e6e Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x003c, t01=0x0094}
0x5e6e…5e80 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x003c, t01=0x00bc}
0x5e80…5e92 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x003c, t01=0x00ce}
0x5e92…5ea4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003c, t01=0x00e0}
0x5ea4…5eba Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN20«, t00=0x003c, t01=0x00f2}
0x5eba…5ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0108}
0x5ec4…5ef4 Head {h00=0x002c, h01=0x0050, text=»* GET VOLUME NAME AND STORE IT IN FPB«, t00=0x003c, t01=0x0112}
0x5ef4…5f08 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x003c, t01=0x0142}
0x5f08…5f32 Head {h00=0x0026, h01=0x0050, text=» ADK A6,2 ADDRESS TO VOLUME IN FPB«, t00=0x003c, t01=0x0156}
0x5f32…5f5e Head {h00=0x0028, h01=0x0050, text=» LDK A4,6 NO OF CHAR IN VOLUME NAME «, t00=0x003c, t01=0x0180}
0x5f5e…5f72 Head {h00=0x0010, h01=0x0050, text=»OPEN40 EQU *«, t00=0x003d, t01=0x001c}
0x5f72…5f84 Head {h00=0x000e, h01=0x0050, text=» LCR A3,A9«, t00=0x003d, t01=0x0030}
0x5f84…5fac Head {h00=0x0024, h01=0x0050, text=» SCR A3,A6 STORE ONE CHAR IN FPB«, t00=0x003d, t01=0x0042}
0x5fac…5fbe Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x003d, t01=0x006a}
0x5fbe…5fd0 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x003d, t01=0x007c}
0x5fd0…5fe2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003d, t01=0x008e}
0x5fe2…5ff8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPEN40«, t00=0x003d, t01=0x00a0}
0x5ff8…601c Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A1 LOAD ORDER CODE «, t00=0x003d, t01=0x00b6}
0x601c…6028 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x00da}
0x6028…6038 Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x003d, t01=0x00e6}
0x6038…6068 Head {h00=0x002c, h01=0x0050, text=»* STORE FILE CODE IN FILE CODE BUFFER «, t00=0x003d, t01=0x00f6}
0x6068…607c Head {h00=0x0010, h01=0x0050, text=» LC A3,1,A8 «, t00=0x003d, t01=0x0126}
0x607c…6090 Head {h00=0x0010, h01=0x0050, text=» STR A3,A10 «, t00=0x003d, t01=0x013a}
0x6090…60b6 Head {h00=0x0022, h01=0x0050, text=» RB READ40 CHEC ON ERROR CODE «, t00=0x003d, t01=0x014e}
0x60b6…60c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0174}
0x60c4…60ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0182}
0x60ce…610e Head {h00=0x003c, h01=0x0050, text=»* EVALUATE NUMBERS OF POOLS SPECIFIED IN CONFIGURATION«, t00=0x003d, t01=0x018c}
0x610e…6118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x003c}
0x6118…6138 Head {h00=0x001c, h01=0x0050, text=»* SYNTAX: CALL POOLA «, t00=0x003e, t01=0x0046}
0x6138…6142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0066}
0x6142…614c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0070}
0x614c…6160 Head {h00=0x0010, h01=0x0050, text=»POOLA EQU * «, t00=0x003e, t01=0x007a}
0x6160…618a Head {h00=0x0026, h01=0x0050, text=» LD A4,P:MTAB+2 GET U:BTAB-ADDRESS«, t00=0x003e, t01=0x008e}
0x618a…61b8 Head {h00=0x002a, h01=0x0050, text=» LD A4,2,A4 GET NUMBER OF BLOCK UNITS «, t00=0x003e, t01=0x00b8}
0x61b8…61ca Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003e, t01=0x00e6}
0x61ca…61f6 Head {h00=0x0028, h01=0x0050, text=» LD A1,4,A13 GET DB-ADRESS FOR RPOOL«, t00=0x003e, t01=0x00f8}
0x61f6…6220 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000+19 LENGTH AND TYPE «, t00=0x003e, t01=0x0124}
0x6220…624a Head {h00=0x0026, h01=0x0050, text=» ST A2,36,A1 STORE LENGTH AND TYPE«, t00=0x003e, t01=0x014e}
0x624a…6278 Head {h00=0x002a, h01=0x0050, text=» LDK A3,208 LOAD START DISP. FOR RPOOL«, t00=0x003e, t01=0x0178}
0x6278…629c Head {h00=0x0020, h01=0x0050, text=» ST A3,38,A1 STORE - " -«, t00=0x003f, t01=0x0016}
0x629c…62cc Head {h00=0x002c, h01=0x0050, text=» ST A4,40,A1 STORE DIMENSION FOR RPOOL «, t00=0x003f, t01=0x003a}
0x62cc…62fa Head {h00=0x002a, h01=0x0050, text=» ST A4,48,A1 - " - BPOOL «, t00=0x003f, t01=0x006a}
0x62fa…6330 Head {h00=0x0032, h01=0x0050, text=» ADK A2,188-19 LOAD TYPE AND LENGTH FOR BPOOL «, t00=0x003f, t01=0x0098}
0x6330…6356 Head {h00=0x0022, h01=0x0050, text=» ST A2,44,A1 STORE - " - «, t00=0x003f, t01=0x00ce}
0x6356…638e Head {h00=0x0034, h01=0x0050, text=»POOL10 ADK A3,19 ADD DISP. WITH LENGTH OF RPOOL «, t00=0x003f, t01=0x00f4}
0x638e…63a0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003f, t01=0x012c}
0x63a0…63b6 Head {h00=0x0012, h01=0x0050, text=» RB(P) POOL10 «, t00=0x003f, t01=0x013e}
0x63b6…63c8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x003f, t01=0x0154}
0x63c8…63f0 Head {h00=0x0024, h01=0x0050, text=» ANKL A3,/FFFE MAKE EVEN ADDRESS«, t00=0x003f, t01=0x0166}
0x63f0…6418 Head {h00=0x0024, h01=0x0050, text=» ST A3,46,A1 ST DISPL. FOR BPOOL«, t00=0x003f, t01=0x018e}
0x6418…642c Head {h00=0x0010, h01=0x0050, text=»POOLUT EQU *«, t00=0x0040, t01=0x0026}
0x642c…643e Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0040, t01=0x003a}
0x643e…644c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x004c}
0x644c…6456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005a}
0x6456…6486 Head {h00=0x002c, h01=0x0050, text=»* PREPARE FOR GETFLD FROM CURRENT FIELD«, t00=0x0040, t01=0x0064}
0x6486…64ba Head {h00=0x0030, h01=0x0050, text=»* IT IS REQUIRED THAT THE FORMAT DOES NOT «, t00=0x0040, t01=0x0094}
0x64ba…64e8 Head {h00=0x002a, h01=0x0050, text=»* CONTAIN ANY RETURN FROM SUBFORMAT«, t00=0x0040, t01=0x00c8}
0x64e8…64f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00f6}
0x64f2…6534 Head {h00=0x003e, h01=0x0050, text=»* THE ROUTINE:"ADJUST" SHOULD ALWAYS FOLLOW THIS ROUTINE«, t00=0x0040, t01=0x0100}
0x6534…653e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0142}
0x653e…657c Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL GETFWD,BIN1,TYPE,START,SLUT«, t00=0x0040, t01=0x014c}
0x657c…65ce Head {h00=0x004e, h01=0x0050, text=»* BIN1 = WORK ITEM TO BE USED ALSO IN ROUTINE "ADJUST" «, t00=0x0040, t01=0x018a}
0x65ce…65d2 Head {h00=0x0054, h01=0x0050}
0x65d2…65d6 Head {h00=0x2a20, h01=0x2020}
0x65d6…65e0 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x65e0…6630 20 20 20 20 20 20 20 54 59 50 45 20 3d 20 41 20 56 41 4c 55 45 20 54 45 4c 4c 49 4e 47 20 57 48 41 54 47 45 54 46 4c 44 20 46 55 4e 54 49 4f 4e 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 45 58 45 43 55 00 41 00 4c 00 3c 00 50 2a 20 20 20 20 20 ┆ TYPE = A VALUE TELLING WHATGETFLD FUNTION YOU WANT TO EXECU A L < P* ┆
0x6630…6680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 3d 20 49 54 45 4d 31 20 49 4e 20 54 48 45 20 47 45 54 46 4c 44 20 46 55 4e 54 49 4f 4e 00 41 00 a4 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆ START = ITEM1 IN THE GETFLD FUNTION A > P* S┆
0x6680…66d0 4c 55 54 20 20 3d 20 49 54 45 4d 32 20 49 4e 20 54 48 45 20 47 45 54 46 4c 44 20 46 55 4e 43 54 49 4f 4e 20 00 41 00 e4 00 06 00 50 2a 20 00 41 01 26 00 10 00 50 47 45 54 46 57 44 5c 45 51 55 5c 2a 00 41 01 30 00 24 00 50 5c 43 41 4c 4c 5c ┆LUT = ITEM2 IN THE GETFLD FUNCTION A P* A & PGETFWD EQU * A 0 $ P CALL ┆
0x66d0…6714 49 3a 45 56 41 30 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 42 49 4e 31 00 41 01 44 00 26 00 50 5c 43 41 4c 4c 5c 54 3a 47 52 46 43 5c 47 45 54 20 46 43 42 2d 41 44 44 52 45 53 53 20 54 4f 20 41 36 ┆I:EVA0 GET ADDRESS TO BIN1 A D & P CALL T:GRFC GET FCB-ADDRESS TO A6┆
0x6714…6764 (66, 0, 400) 00 41 01 6c 00 2c 00 50 5c 4c 44 5c 41 37 2c 46 43 42 4c 50 2c 41 36 5c 47 45 54 20 46 4f 52 4d 41 54 20 53 54 41 52 54 20 41 44 44 52 45 53 53 00 42 00 08 00 22 00 50 5c 53 54 52 5c 41 37 2c 41 39 5c 53 54 4f 52 45 20 49 4e 20 53 41 56 45 ┆ A l , P LD A7,FCBLP,A6 GET FORMAT START ADDRESS B " P STR A7,A9 STORE IN SAVE┆
0x6764…67b4 20 49 54 45 4d 20 00 42 00 38 00 18 00 50 5c 4c 44 52 5c 41 31 30 2c 41 31 32 5c 53 41 56 45 20 50 50 00 42 00 5e 00 26 00 50 5c 41 44 4b 4c 5c 41 31 32 2c 31 5c 53 54 45 50 20 50 41 53 54 20 47 45 54 46 4c 44 2d 54 59 50 45 20 00 42 00 7a ┆ ITEM B 8 P LDR A10,A12 SAVE PP B ^ & P ADKL A12,1 STEP PAST GETFLD-TYPE B z┆
0x67b4…6804 00 34 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 57 41 4e 54 45 44 20 46 49 45 4c 44 20 4e 55 4d 42 45 52 20 00 42 00 a4 00 1c 00 50 5c 4c 44 52 5c 41 31 32 2c 41 31 30 5c 52 45 53 54 4f 52 45 ┆ 4 P CALL I:EVA0 GET ADDRESS TO WANTED FIELD NUMBER B P LDR A12,A10 RESTORE┆
0x6804…6854 20 50 50 20 00 42 00 dc 00 26 00 50 5c 4c 44 5c 41 31 2c 46 43 42 49 58 2c 41 36 5c 4c 4f 41 44 20 43 55 52 52 45 4e 54 20 49 4e 44 45 58 00 42 00 fc 00 24 00 50 5c 52 46 28 5a 29 5c 47 45 54 46 35 30 5c 4a 55 4d 50 20 49 46 20 4e 4f 20 43 ┆ PP B & P LD A1,FCBIX,A6 LOAD CURRENT INDEX B $ P RF(Z) GETF50 JUMP IF NO C┆
0x6854…68a4 55 52 52 45 4e 54 00 42 01 26 00 2a 00 50 5c 43 57 52 2a 5c 41 31 2c 41 39 5c 43 4f 4d 50 41 52 45 20 57 49 54 48 20 57 41 4e 54 45 44 20 49 4e 44 45 58 20 00 42 01 4e 00 26 00 50 5c 52 46 28 4e 4c 29 5c 47 45 54 46 35 30 5c 49 46 20 57 41 ┆URRENT B & * P CWR* A1,A9 COMPARE WITH WANTED INDEX B N & P RF(NL) GETF50 IF WA┆
0x68a4…68f4 (67, 0, 400) 4e 54 45 44 20 49 53 20 4c 4f 57 45 52 20 00 42 01 7c 00 26 00 50 5c 53 54 5c 41 31 2c 46 43 42 4e 49 58 2c 41 36 5c 53 54 4f 52 45 20 49 4e 20 57 4f 52 4b 41 52 45 41 00 43 00 16 00 2c 00 50 5c 4c 43 5c 41 31 2c 46 43 42 52 4f 57 2c 41 36 ┆NTED IS LOWER B | & P ST A1,FCBNIX,A6 STORE IN WORKAREA C , P LC A1,FCBROW,A6┆
0x68f4…6944 5c 47 45 54 20 43 55 52 52 45 4e 54 20 52 4f 57 20 4e 55 4d 42 45 52 20 00 43 00 40 00 2a 00 50 5c 53 43 5c 41 31 2c 46 43 42 4e 4c 49 2b 31 2c 41 36 5c 53 54 4f 52 45 20 49 4e 20 57 4f 52 4b 20 41 52 45 41 20 00 43 00 70 00 26 00 50 5c 4c ┆ GET CURRENT ROW NUMBER C @ * P SC A1,FCBNLI+1,A6 STORE IN WORK AREA C p & P L┆
0x6944…6994 44 5c 41 31 2c 46 43 42 46 4d 41 2c 41 36 5c 47 45 54 20 43 55 52 52 45 4e 54 20 53 54 41 52 54 00 43 00 9e 00 24 00 50 5c 53 54 5c 41 31 2c 46 43 42 4c 50 2c 41 36 5c 53 54 4f 52 45 20 4e 45 57 20 53 54 41 52 54 20 00 43 00 c8 00 10 00 50 ┆D A1,FCBFMA,A6 GET CURRENT START C $ P ST A1,FCBLP,A6 STORE NEW START C P┆
0x6994…69e4 47 45 54 46 35 30 5c 45 51 55 5c 2a 00 43 00 f0 00 10 00 50 5c 41 42 4c 5c 54 3a 47 45 54 46 20 00 43 01 04 00 0a 00 50 5c 45 4a 45 43 54 00 43 01 18 00 06 00 50 2a 20 00 43 01 26 00 2e 00 50 2a 20 20 20 52 45 53 54 4f 52 45 20 49 4e 20 46 ┆GETF50 EQU * C P ABL T:GETF C P EJECT C P* C & . P* RESTORE IN F┆
0x69e4…6a34 43 42 20 41 46 54 45 52 20 52 4f 55 54 49 4e 45 20 22 47 45 54 46 57 44 22 20 00 43 01 30 00 06 00 50 2a 20 00 43 01 62 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 53 59 4e 54 41 58 3a 20 20 20 43 41 4c 4c 20 20 41 44 4a 55 53 54 2c 42 49 4e ┆CB AFTER ROUTINE "GETFWD" C 0 P* C b * P* SYNTAX: CALL ADJUST,BIN┆
0x6a34…6a84 (68, 2, 288) 31 20 00 43 01 6c 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 4e 31 20 3d 20 4f 55 54 50 55 54 20 49 54 45 4d 20 46 52 4f 4d 20 52 4f 55 54 49 4e 45 20 22 47 45 54 46 57 44 22 20 00 44 00 0a 00 06 00 50 2a 20 ┆1 C l @ P* BIN1 = OUTPUT ITEM FROM ROUTINE "GETFWD" D P* ┆
0x6a84…6ad4 00 44 00 4e 00 10 00 50 41 44 4a 55 53 54 5c 45 51 55 5c 2a 00 44 00 58 00 24 00 50 5c 43 41 4c 4c 5c 49 3a 45 56 41 30 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 42 49 4e 31 00 44 00 6c 00 26 00 50 5c 43 41 4c 4c 5c 54 3a 47 52 46 43 ┆ D N PADJUST EQU * D X $ P CALL I:EVA0 GET ADDRESS TO BIN1 D l & P CALL T:GRFC┆
0x6ad4…6b24 5c 47 45 54 20 46 43 42 2d 41 44 44 52 45 53 53 20 54 4f 20 41 36 00 44 00 94 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 39 20 00 44 00 be 00 28 00 50 5c 53 54 5c 41 31 2c 46 43 42 4c 50 2c 41 36 5c 52 45 53 54 4f 52 45 20 46 4f 52 4d 41 54 ┆ GET FCB-ADDRESS TO A6 D P LDR* A1,A9 D ( P ST A1,FCBLP,A6 RESTORE FORMAT┆
0x6b24…6b54 20 53 54 41 52 54 00 44 00 d2 00 0e 00 50 5c 52 42 5c 50 4f 4f 4c 55 54 00 44 00 fe 00 08 00 04 5c 45 4e 44 00 44 01 10 40 04 00 00 00 44 01 1c ┆ START D P RB POOLUT D END D @ D ┆
0x6b54…6b5c (69, 1, 8) 20 04 00 00 00 45 00 04 ┆ E ┆
0x6b5c…6bac (70, 0, 400) 00 1d 00 05 00 0d 01 8c 00 0a 00 05 00 02 26 03 e0 00 00 0e 00 0c 00 18 00 14 00 09 16 12 00 1e 00 0c 43 4f 50 59 20 55 53 45 52 46 49 4c 00 0e 00 1a 00 0c 00 07 00 03 24 05 c1 00 1e c1 00 0e 00 36 00 0c 00 07 00 03 24 05 df 00 23 c1 00 0e ┆ & COPY USERFIL $ 6 $ # ┆
0x6bac…6bfc 00 46 00 08 00 04 00 01 28 02 00 0e 00 56 00 0c 00 08 00 03 20 06 00 1f 00 0d 00 0e 00 62 00 0a 00 05 00 02 26 03 e0 00 00 0e 00 72 00 1e 00 1a 00 0c 16 18 00 20 00 12 57 48 4f 4c 45 20 46 49 4c 45 20 3f 20 20 59 2f 4e 3a 00 0e 00 80 00 0a ┆ F ( V b & r WHOLE FILE ? Y/N: ┆
0x6bfc…6c4c 00 07 00 03 24 05 c1 00 00 0e 00 a2 00 0e 00 0a 00 04 26 08 f2 13 01 c1 81 00 00 0e 00 b0 00 0a 00 06 00 02 26 04 c0 46 00 0e 00 c2 00 0c 00 07 00 03 24 05 df 00 51 c1 00 0e 00 d0 00 08 00 04 00 01 28 02 00 0e 00 e0 00 0c 00 08 00 03 20 06 ┆ $ & & F $ Q ( ┆
0x6c4c…6c9c 00 21 00 05 00 0e 00 ec 00 0a 00 05 00 02 26 03 e0 00 00 0e 00 fc 00 22 00 1d 00 0e 16 1b 00 22 00 15 43 4f 50 59 20 53 59 53 56 4f 4c 20 54 4f 20 53 59 53 56 4f 4c 49 00 0e 01 0a 00 0c 00 07 00 03 24 05 c1 00 22 c1 00 0e 01 30 00 0c 00 07 ┆ ! & " " COPY SYSVOL TO SYSVOLI $ " 0 ┆
0x6c9c…6cec 00 03 24 05 df 00 23 c1 00 0e 01 40 00 08 00 04 00 01 28 02 00 0e 01 50 00 0c 00 08 00 03 20 06 00 23 00 30 00 0e 01 5c 00 0a 00 05 00 02 26 03 e1 00 00 0e 01 6c 00 12 00 0d 00 06 16 0b 00 24 00 05 49 4e 50 55 54 00 00 0e 01 7a 00 0c 00 07 ┆ $ # @ ( P # 0 & l $ INPUT z ┆
0x6cec…6d3c (71, 0, 398) 00 03 24 05 c1 00 24 c1 00 0e 01 90 00 0a 00 06 00 02 26 04 c4 07 00 0f 00 10 00 16 00 11 00 08 16 0f 00 25 00 09 55 4e 49 54 20 4e 4f 2e 3a 4f 00 0f 00 1e 00 0c 00 07 00 03 24 05 c1 00 25 c1 00 0f 00 38 00 0e 00 0a 00 04 26 08 f2 11 09 81 ┆ $ $ & % UNIT NO.:O $ % 8 & ┆
0x6d3c…6d8c 81 00 00 0f 00 48 00 0a 00 06 00 02 26 04 c0 45 00 0f 00 5a 00 0a 00 06 00 02 26 04 c4 14 00 0f 00 68 00 18 00 14 00 09 16 12 00 26 00 0c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 00 0f 00 76 00 0c 00 07 00 03 24 05 c1 00 26 81 00 0f 00 92 00 0a ┆ H & E Z & h & VOLUME-NAME: v $ & ┆
0x6d8c…6ddc 00 06 00 02 26 04 ec 21 00 0f 00 a2 00 0a 00 06 00 02 26 04 c0 48 00 0f 00 b0 00 0a 00 05 00 02 26 03 e1 48 00 0f 00 be 00 12 00 0e 00 06 16 0c 00 27 00 06 4f 55 54 50 55 54 00 0f 00 cc 00 0c 00 07 00 03 24 05 c1 00 27 81 00 0f 00 e2 00 0a ┆ & ! & H & H ' OUTPUT $ ' ┆
0x6ddc…6e2c 00 06 00 02 26 04 c4 08 00 0f 00 f2 00 16 00 11 00 08 16 0f 00 28 00 09 55 4e 49 54 20 4e 4f 2e 3a 4d 00 0f 01 00 00 0c 00 07 00 03 24 05 c1 00 28 81 00 0f 01 1a 00 0e 00 0a 00 04 26 08 f2 11 0a 81 81 00 00 0f 01 2a 00 0a 00 06 00 02 26 04 ┆ & ( UNIT NO.:M $ ( & * & ┆
0x6e2c…6e7a c0 8a 00 0f 01 3c 00 0a 00 06 00 02 26 04 c4 14 00 0f 01 4a 00 18 00 14 00 09 16 12 00 29 00 0c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 00 0f 01 58 00 0c 00 07 00 03 24 05 c1 00 29 81 00 0f 01 74 00 0a 00 06 00 02 26 04 ec 21 00 0f 01 84 ┆ < & J ) VOLUME-NAME: X $ ) t & ! ┆
0x6e7a…6eca (72, 0, 398) 00 0a 00 06 00 02 26 04 c0 48 00 10 00 04 00 0c 00 07 00 03 24 05 df 00 51 81 00 10 00 12 00 08 00 04 00 01 28 02 00 10 00 22 00 0c 00 08 00 03 20 06 00 2a 00 2b 00 10 00 2e 00 0a 00 05 00 02 26 03 e0 00 00 10 00 3e 00 1e 00 1a 00 0c 16 18 ┆ & H $ Q ( " * + . & > ┆
0x6eca…6f1a 00 2b 00 12 43 48 41 4e 47 45 20 56 4f 4c 55 4d 45 2d 4e 41 4d 45 00 10 00 4c 00 0c 00 07 00 03 24 05 c1 00 2b 81 00 10 00 6e 00 0a 00 05 00 02 26 03 e1 00 00 10 00 7e 00 12 00 0d 00 06 16 0b 00 2c 00 05 49 4e 50 55 54 00 00 10 00 8c 00 0c ┆ + CHANGE VOLUME-NAME L $ + n & ~ , INPUT ┆
0x6f1a…6f6a 00 07 00 03 24 05 c1 00 2c 81 00 10 00 a2 00 0a 00 06 00 02 26 04 c4 07 00 10 00 b2 00 16 00 11 00 08 16 0f 00 2d 00 09 55 4e 49 54 20 4e 4f 2e 3a 4c 00 10 00 c0 00 0c 00 07 00 03 24 05 c1 00 2d 81 00 10 00 da 00 0e 00 0a 00 04 26 08 f2 11 ┆ $ , & - UNIT NO.:L $ - & ┆
0x6f6a…6fba 09 81 81 00 00 10 00 ea 00 0a 00 06 00 02 26 04 c0 45 00 10 00 fc 00 0a 00 06 00 02 26 04 c4 14 00 10 01 0a 00 18 00 14 00 09 16 12 00 2e 00 0c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 00 10 01 18 00 0c 00 07 00 03 24 05 c1 00 2e 81 00 10 01 34 ┆ & E & . VOLUME-NAME: $ . 4┆
0x6fba…7008 00 0a 00 06 00 02 26 04 ec 21 00 10 01 44 00 0a 00 06 00 02 26 04 c0 48 00 10 01 52 00 0a 00 05 00 02 26 03 e1 48 00 10 01 60 00 10 00 0b 00 05 16 09 00 2f 00 03 4e 45 57 00 00 10 01 6e 00 0c 00 07 00 03 24 05 c1 00 2f 81 00 10 01 82 ┆ & ! D & H R & H ` / NEW n $ / ┆
0x7008…7058 (73, 0, 400) 00 0a 00 06 00 02 26 04 c4 05 00 11 00 04 00 18 00 14 00 09 16 12 00 30 00 0c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 00 11 00 12 00 0c 00 07 00 03 24 05 c1 00 30 81 00 11 00 2e 00 0e 00 0a 00 04 26 08 f2 13 0e c1 86 00 00 11 00 3e 00 0a 00 06 ┆ & 0 VOLUME-NAME: $ 0 . & > ┆
0x7058…70a8 00 02 26 04 c0 8c 00 11 00 50 00 0c 00 07 00 03 24 05 df 00 51 c1 00 11 00 5e 00 08 00 04 00 01 28 02 00 11 00 6e 00 0c 00 08 00 03 20 06 00 31 00 05 00 11 00 7a 00 0a 00 05 00 02 26 03 e0 00 00 11 00 8a 00 18 00 13 00 09 16 11 00 32 00 0b ┆ & P $ Q ^ ( n 1 z & 2 ┆
0x70a8…70f8 43 52 45 41 54 45 20 46 49 4c 45 3a 00 11 00 98 00 0c 00 07 00 03 24 05 c1 00 32 c1 00 11 00 b4 00 0c 00 07 00 03 24 05 df 00 36 c1 00 11 00 c4 00 08 00 04 00 01 28 02 00 11 00 d4 00 0c 00 08 00 03 20 06 00 33 00 09 00 11 00 e0 00 0a 00 05 ┆CREATE FILE: $ 2 $ 6 ( 3 ┆
0x70f8…7148 00 02 26 03 e0 00 00 11 00 f0 00 12 00 0e 00 06 16 0c 00 34 00 06 44 45 4c 45 54 45 00 11 00 fe 00 0c 00 07 00 03 24 05 c1 00 34 c1 00 11 01 14 00 0a 00 06 00 02 26 04 c4 08 00 11 01 24 00 10 00 0c 00 05 16 0a 00 35 00 04 46 49 4c 45 00 11 ┆ & 4 DELETE $ 4 & $ 5 FILE ┆
0x7148…7198 01 32 00 0c 00 07 00 03 24 05 c1 00 35 c1 00 11 01 46 00 0c 00 07 00 03 24 05 df 00 36 c1 00 11 01 56 00 08 00 04 00 01 28 02 00 11 01 66 00 0c 00 08 00 03 20 06 00 36 00 45 00 11 01 72 00 0a 00 05 00 02 26 03 e1 00 00 11 01 82 00 14 00 0f ┆ 2 $ 5 F $ 6 V ( f 6 E r & ┆
0x7198…71e8 (74, 0, 400) 00 07 16 0d 00 37 00 07 55 4e 49 54 3a 20 55 46 00 11 01 90 00 0c 00 07 00 03 24 05 c1 00 37 c1 00 12 00 18 00 0e 00 0a 00 04 26 08 f2 08 05 81 81 00 00 12 00 28 00 0a 00 06 00 02 26 04 c0 45 00 12 00 3a 00 0a 00 06 00 02 26 04 c4 0c 00 12 ┆ 7 UNIT: UF $ 7 & ( & E : & ┆
0x71e8…7238 00 48 00 18 00 14 00 09 16 12 00 38 00 0c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 00 12 00 56 00 0c 00 07 00 03 24 05 c1 00 38 81 00 12 00 72 00 0a 00 06 00 02 26 04 ec 19 00 12 00 82 00 0a 00 06 00 02 26 04 c0 48 00 12 00 90 00 0a 00 05 00 02 ┆ H 8 VOLUME-NAME: V $ 8 r & & H ┆
0x7238…7288 26 03 e1 48 00 12 00 9e 00 10 00 0c 00 05 16 0a 00 39 00 04 46 49 4c 45 00 12 00 ac 00 0c 00 07 00 03 24 05 c1 00 39 81 00 12 00 c0 00 0a 00 06 00 02 26 04 c4 05 00 12 00 d0 00 0e 00 09 00 04 16 07 00 3a 00 01 3a 00 00 12 00 de 00 0c 00 07 ┆& H 9 FILE $ 9 & : : ┆
0x7288…72d8 00 03 24 05 c1 00 3a 81 00 12 00 f0 00 0e 00 0a 00 04 26 08 f2 06 02 81 81 80 00 12 01 00 00 0e 00 09 00 04 1a 07 00 3b 10 01 58 80 00 12 01 12 00 0c 00 07 00 03 22 05 00 3b 44 81 00 12 01 24 00 0a 00 05 00 02 26 03 e1 3b 00 12 01 34 00 10 ┆ $ : & ; X " ;D $ & ; 4 ┆
0x72d8…7328 00 0b 00 05 16 09 00 3c 00 03 31 20 3d 00 00 12 01 42 00 0c 00 07 00 03 24 05 c1 00 3c 81 00 12 01 56 00 0a 00 06 00 02 26 04 c4 05 00 12 01 66 00 12 00 0e 00 06 16 0c 00 3d 00 06 53 59 53 54 45 4d 00 12 01 74 00 0c 00 07 00 03 24 05 c1 00 ┆ < 1 = B $ < V & f = SYSTEM t $ ┆
0x7328…7378 (75, 0, 400) 3d 81 00 12 01 8a 00 0a 00 06 00 02 26 04 c4 0b 00 13 00 0a 00 10 00 0c 00 05 16 0a 00 3e 00 04 46 49 4c 45 00 13 00 18 00 0c 00 07 00 03 24 05 c1 00 3e 81 00 13 00 2c 00 0a 00 05 00 02 26 03 e1 00 00 13 00 3c 00 10 00 0b 00 05 16 09 00 3f ┆= & > FILE $ > , & < ?┆
0x7378…73c8 00 03 32 20 3d 00 00 13 00 4a 00 0c 00 07 00 03 24 05 c1 00 3f 81 00 13 00 5e 00 0a 00 06 00 02 26 04 c4 05 00 13 00 6e 00 10 00 0c 00 05 16 0a 00 40 00 04 55 53 45 52 00 13 00 7c 00 0c 00 07 00 03 24 05 c1 00 40 81 00 13 00 90 00 0a 00 06 ┆ 2 = J $ ? ^ & n @ USER | $ @ ┆
0x73c8…7418 00 02 26 04 c4 09 00 13 00 a0 00 10 00 0c 00 05 16 0a 00 41 00 04 46 49 4c 45 00 13 00 ae 00 0c 00 07 00 03 24 05 c1 00 41 81 00 13 00 c2 00 0a 00 05 00 02 26 03 e1 00 00 13 00 d2 00 10 00 0b 00 05 16 09 00 42 00 03 33 20 3d 00 00 13 00 e0 ┆ & A FILE $ A & B 3 = ┆
0x7418…7468 00 0c 00 07 00 03 24 05 c1 00 42 81 00 13 00 f4 00 0a 00 06 00 02 26 04 c4 05 00 13 01 04 00 18 00 13 00 09 16 11 00 43 00 0b 55 53 45 52 44 45 46 49 4e 45 44 3a 00 13 01 12 00 0c 00 07 00 03 24 05 c1 00 43 81 00 13 01 2e 00 0a 00 06 00 02 ┆ $ B & C USERDEFINED: $ C . ┆
0x7468…74b8 26 04 c4 11 00 13 01 3e 00 10 00 0c 00 05 16 0a 00 44 00 04 46 49 4c 45 00 13 01 4c 00 0c 00 07 00 03 24 05 c1 00 44 81 00 13 01 60 00 0c 00 07 00 03 24 05 df 00 51 81 00 13 01 70 00 08 00 04 00 01 28 02 00 13 01 80 00 0c 00 08 00 03 20 06 ┆& > D FILE L $ D ` $ Q p ( ┆
0x74b8…7508 (76, 0, 400) 00 45 00 1c 00 13 01 8c 00 0a 00 05 00 02 26 03 e0 00 00 14 00 0c 00 12 00 0e 00 06 16 0c 00 46 00 06 44 45 4c 45 54 45 00 14 00 1a 00 0c 00 07 00 03 24 05 c1 00 46 81 00 14 00 30 00 0a 00 06 00 02 26 04 c4 08 00 14 00 40 00 18 00 13 00 09 ┆ E & F DELETE $ F 0 & @ ┆
0x7508…7558 16 11 00 47 00 0b 55 53 45 52 44 45 46 49 4e 45 44 3a 00 14 00 4e 00 0c 00 07 00 03 24 05 c1 00 47 81 00 14 00 6a 00 0a 00 06 00 02 26 04 c4 14 00 14 00 7a 00 10 00 0c 00 05 16 0a 00 48 00 04 46 49 4c 45 00 14 00 88 00 0c 00 07 00 03 24 05 ┆ G USERDEFINED: N $ G j & z H FILE $ ┆
0x7558…75a8 c1 00 48 81 00 14 00 9c 00 0a 00 05 00 02 26 03 e1 00 00 14 00 ac 00 10 00 0c 00 05 16 0a 00 49 00 04 46 49 4c 45 00 14 00 ba 00 0c 00 07 00 03 24 05 c1 00 49 81 00 14 00 ce 00 0a 00 06 00 02 26 04 c4 05 00 14 00 de 00 12 00 0d 00 06 16 0b ┆ H & I FILE $ I & ┆
0x75a8…75f8 00 4a 00 05 4e 41 4d 45 3a 00 00 14 00 ec 00 0c 00 07 00 03 24 05 c1 00 4a 81 00 14 01 02 00 0e 00 0a 00 04 26 08 f2 0b 06 c1 88 00 00 14 01 12 00 0a 00 06 00 02 26 04 c0 4b 00 14 01 24 00 0c 00 07 00 03 24 05 df 00 51 c1 00 14 01 32 00 08 ┆ J NAME: $ J & & K $ $ Q 2 ┆
0x75f8…7648 00 04 00 01 28 02 00 14 01 42 00 0c 00 08 00 03 20 06 00 4b 00 18 00 14 01 4e 00 0a 00 05 00 02 26 03 e0 00 00 14 01 5e 00 1a 00 15 00 0a 16 13 00 4c 00 0d 56 4f 4c 55 4d 45 20 53 55 52 56 45 59 2d 00 14 01 6c 00 0c 00 07 00 03 24 05 c1 00 ┆ ( B K N & ^ L VOLUME SURVEY- l $ ┆