|
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: 20682 (0x50ca)
Notes: pts_type(SC)
Names: »ASSPER.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/ASSPER.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/ASSPER.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/ASSPER.SC«
IDENT ASSRUT 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 * EXTRN I:EVA0,I:RT1 EXTRN T:FDSP EXTRN P:BAS * * * CALL FORM 16=/F6A1,16 * FVAL EQU /C5 FACC EQU /C7 FGEN EQU /C6 FDUP EQU /CC FLINK EQU /DE 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 CALL I:EVA0 ST A9,2,A8 STORE BUFFER ADDRESS CALL I:EVA0 GET ADDRESS TO VOLNAM LDR A10,A9 SAVE ADDRESS CALL I:EVA0 GET RETURN CODE ITEM ADDRESS LDK A7,/B7 LOAD LKM DATA 1 LD A6,8,A8 GET RETURN CODE RF(P) ERROR LDKL A1,410 LOAD LENGTH ST A1,4,A8 STORE LENGTH CM 10,A8 INDICATE SECTOR 0 LDK A7,/81 BASIC READ LKM DATA 1 LD A1,8,A8 GET RETURN CODE RF(NZ) ERROR LD A1,2,A8 GET ADDRESS TO VOLNAM ADK A1,2 LDK A2,6 LOAD COUNTER LOOP EQU * LCR A3,A1 GET NAME-CHARACTER SCR A3,A10 STORE NAME-CHARACTER ADKL A10,1 INCREMENT POINTER ADK A1,1 INCREMENT POINTER SUK A2,1 DECREMENT COUNTER RB(P) LOOP CONTINUE IF NOT FINISHED LDR A6,A6 RF(NZ) UT IF STATUS OK LDK A7,/B8 UNLOAD LKM DATA 1 UT EQU * LDK A6,0 VIN EQU * 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,I:EVA0-2 READ DIMENSION STORED BYE I:EVA LDR A7,A5 COPY END ADDRESS SUR A7,A9 CALCULATE ITEM LENGTH CALL I:EVA0 ADDRESS TO LENGTH ITEM STR A7,A9 STORE LENGTH CALL I:EVA0 ADDRESS TO DIMENSION 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=MAX. INDEX OF ITEM * CR = 1 IF INDEX>MAX. INDEX OF ITEM * CR = 2 IF INDEX<MAX. INDEX OF ITEM * CMPIND EQU * CALL I:EVA0 GET ADDRESS TO INDEX LDR* A6,A9 SAVE INDEX VALUE CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM CW A6,I:EVA0-2 COMPARE WITH DIMENSION RB(E) EQUAL RB(G) GREAT RB LESS * END
0x0000…002a (0, 0, 398) Head {h00=0x0026, h01=0x0050, text=» IDENT ASSRUT UPD 79-08-14/PEEN«, t00=0x0000, t01=0x0004}
0x002a…0046 Head {h00=0x0018, h01=0x0050, text=» UPD 79-04-24/PEEN«, t00=0x0000, t01=0x002e}
0x0046…0062 Head {h00=0x0018, h01=0x0050, text=» UPD 79-02-28/PEEN«, t00=0x0000, t01=0x004a}
0x0062…007e Head {h00=0x0018, h01=0x0050, text=» UPD 79-01-30/PEEN«, t00=0x0000, t01=0x0066}
0x007e…00b0 Head {h00=0x002e, h01=0x002a, text=»* ASSEMBLER ROUTINES USED BY PTS DE-SYSTEM«, t00=0x0000, t01=0x0082}
0x00b0…00b8 Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x00b4}
0x00b8…00cc Head {h00=0x0010, h01=0x000c, text=» ENTRY ATTWB«, t00=0x0000, t01=0x00bc}
0x00cc…00e0 Head {h00=0x0010, h01=0x0050, text=» ENTRY ATTDB«, t00=0x0000, t01=0x00d0}
0x00e0…00f4 Head {h00=0x0010, h01=0x0050, text=» ENTRY SAVE «, t00=0x0000, t01=0x00e4}
0x00f4…010a Head {h00=0x0012, h01=0x0050, text=» ENTRY RESTOR «, t00=0x0000, t01=0x00f8}
0x010a…0120 Head {h00=0x0012, h01=0x000d, text=» ENTRY GETFRE «, t00=0x0000, t01=0x010e}
0x0120…0136 Head {h00=0x0012, h01=0x000d, text=» ENTRY SETFRE «, t00=0x0000, t01=0x0124}
0x0136…014c Head {h00=0x0012, h01=0x000d, text=» ENTRY SETOCC «, t00=0x0000, t01=0x013a}
0x014c…0162 Head {h00=0x0012, h01=0x0050, text=» ENTRY CHANFC «, t00=0x0000, t01=0x0150}
0x0162…0178 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVOL «, t00=0x0000, t01=0x0166}
0x0178…018e Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBOL «, t00=0x0000, t01=0x017c}
0x018e…01a4 (1, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY UPDBIN «, t00=0x0001, t01=0x0004}
0x01a4…01b8 Head {h00=0x0010, h01=0x0050, text=» ENTRY SETB «, t00=0x0001, t01=0x001a}
0x01b8…01cc Head {h00=0x0010, h01=0x0050, text=» ENTRY TESTB«, t00=0x0001, t01=0x002e}
0x01cc…01e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEARB «, t00=0x0001, t01=0x0042}
0x01e2…01f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY MSKOUT «, t00=0x0001, t01=0x0058}
0x01f8…020e Head {h00=0x0012, h01=0x0050, text=» ENTRY RCNTRL «, t00=0x0001, t01=0x006e}
0x020e…0224 Head {h00=0x0012, h01=0x0050, text=» ENTRY WCNTRL «, t00=0x0001, t01=0x0084}
0x0224…023a Head {h00=0x0012, h01=0x0050, text=» ENTRY GETVAL «, t00=0x0001, t01=0x009a}
0x023a…0250 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETACC «, t00=0x0001, t01=0x00b0}
0x0250…0266 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETGEN «, t00=0x0001, t01=0x00c6}
0x0266…027c Head {h00=0x0012, h01=0x0050, text=» ENTRY GETDUP «, t00=0x0001, t01=0x00dc}
0x027c…0292 Head {h00=0x0012, h01=0x0050, text=» ENTRY ATTBUF «, t00=0x0001, t01=0x00f2}
0x0292…02a8 Head {h00=0x0012, h01=0x0050, text=» ENTRY FORCED «, t00=0x0001, t01=0x0108}
0x02a8…02be Head {h00=0x0012, h01=0x0050, text=» ENTRY GETIND «, t00=0x0001, t01=0x011e}
0x02be…02d4 Head {h00=0x0012, h01=0x0050, text=» ENTRY CMPIND «, t00=0x0001, t01=0x0134}
0x02d4…02de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x014a}
0x02de…02fa Head {h00=0x0018, h01=0x0013, text=» EXTRN I:EVA0,I:RT1 «, t00=0x0001, t01=0x0154}
0x02fa…0310 Head {h00=0x0012, h01=0x0050, text=» EXTRN T:FDSP «, t00=0x0001, t01=0x0170}
0x0310…0324 Head {h00=0x0010, h01=0x0050, text=» EXTRN P:BAS«, t00=0x0001, t01=0x0186}
0x0324…032e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x000a}
0x032e…0338 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0014}
0x0338…0342 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x001e}
0x0342…0360 Head {h00=0x001a, h01=0x0015, text=»CALL FORM 16=/F6A1,16 «, t00=0x0002, t01=0x0028}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036a…037e Head {h00=0x0010, h01=0x0050, text=»FVAL EQU /C5«, t00=0x0002, t01=0x0050}
0x037e…0392 Head {h00=0x0010, h01=0x0050, text=»FACC EQU /C7«, t00=0x0002, t01=0x0064}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=»FGEN EQU /C6«, t00=0x0002, t01=0x0078}
0x03a6…03ba Head {h00=0x0010, h01=0x0050, text=»FDUP EQU /CC«, t00=0x0002, t01=0x008c}
0x03ba…03d0 Head {h00=0x0012, h01=0x0050, text=»FLINK EQU /DE «, t00=0x0002, t01=0x00a0}
0x03d0…03d8 Head {h00=0x0004, h01=0x0002, t00=0x0002, t01=0x00b6}
0x03d8…03e0 Head {h00=0x0004, h01=0x0002, t00=0x0002, t01=0x00be}
0x03e0…03ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00c6}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03f8…042c Head {h00=0x0030, h01=0x0050, text=»* ATTACH A STRING VARIABLE AS WORKBLOCK TO «, t00=0x0002, t01=0x00de}
0x042c…0450 Head {h00=0x0020, h01=0x0050, text=»* THE TERMINAL CONTROL AREA«, t00=0x0002, t01=0x0112}
0x0450…0484 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK «, t00=0x0002, t01=0x0136}
0x0484…04b4 Head {h00=0x002c, h01=0x0050, text=»* STRG= STRING ITEM TO BE WORKBLOCK «, t00=0x0002, t01=0x016a}
0x04b4…04ee Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE«, t00=0x0003, t01=0x000a}
0x04ee…050e Head {h00=0x001c, h01=0x0050, text=»* 'STRG'-START«, t00=0x0003, t01=0x0044}
0x050e…054a Head {h00=0x0038, h01=0x0050, text=»* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A«, t00=0x0003, t01=0x0064}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0554…0568 Head {h00=0x0010, h01=0x000b, text=»ATTWB EQU * «, t00=0x0003, t01=0x00aa}
0x0568…0588 Head {h00=0x001c, h01=0x0050, text=» LDKL A10,2 INDICATE WB «, t00=0x0003, t01=0x00be}
0x0588…059a Head {h00=0x000e, h01=0x0050, text=»ATT EQU * «, t00=0x0003, t01=0x00de}
0x059a…05c0 Head {h00=0x0022, h01=0x001e, text=» CALL I:EVA0 ADDRESS TO NEW WB«, t00=0x0003, t01=0x00f0}
0x05c0…05e0 Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 SAVE ADDRESS «, t00=0x0003, t01=0x0116}
0x05e0…0606 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET DISPLACEMENT «, t00=0x0003, t01=0x0136}
0x0606…061a Head {h00=0x0010, h01=0x0050, text=» ADR* A7,A9 «, t00=0x0003, t01=0x015c}
0x061a…0644 Head {h00=0x0026, h01=0x0021, text=» CALL I:EVA0 ADDRESS TO WB NUMBER «, t00=0x0003, t01=0x0170}
0x0644…0658 Head {h00=0x0010, h01=0x000b, text=» LDR* A1,A9 «, t00=0x0004, t01=0x000a}
0x0658…0672 Head {h00=0x0016, h01=0x0011, text=» SLL A1,2 TIMES 4 «, t00=0x0004, t01=0x001e}
0x0672…0694 Head {h00=0x001e, h01=0x0019, text=» ADR A1,A13 ADDRESS TO DB «, t00=0x0004, t01=0x0038}
0x0694…06c0 Head {h00=0x0028, h01=0x0050, text=» ADR A1,A10 GET ADDRESS TO WB OR DB «, t00=0x0004, t01=0x005a}
0x06c0…06d4 Head {h00=0x0010, h01=0x0050, text=»ATT100 EQU *«, t00=0x0004, t01=0x0086}
0x06d4…06fe Head {h00=0x0026, h01=0x0050, text=» STR A7,A1 STORE NEW WB/DB-ADDRESS«, t00=0x0004, t01=0x009a}
0x06fe…0710 Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0004, t01=0x00c4}
0x0710…071a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d6}
0x071a…0728 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00e0}
0x0728…0732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ee}
0x0732…076c Head {h00=0x0036, h01=0x0050, text=»* ATTACH A STRING VARIABLE AS DESCRIPTOR BLOCK TO«, t00=0x0004, t01=0x00f8}
0x076c…0790 Head {h00=0x0020, h01=0x0050, text=»* THE TERMINAL CONTROL AREA«, t00=0x0004, t01=0x0132}
0x0790…07c4 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL ATTDB,STRG,DISPL,BLOCK «, t00=0x0004, t01=0x0156}
0x07c4…07fa Head {h00=0x0032, h01=0x0050, text=»* STRG= STRING ITEM TO BE DISCRIPTOR BLOCK «, t00=0x0004, t01=0x018a}
0x07fa…0834 Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE «, t00=0x0005, t01=0x0030}
0x0834…0854 Head {h00=0x001c, h01=0x0050, text=»* 'STRG'-START «, t00=0x0005, t01=0x006a}
0x0854…0890 Head {h00=0x0038, h01=0x0050, text=»* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A «, t00=0x0005, t01=0x008a}
0x0890…089a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089a…08a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d0}
0x08a4…08b8 Head {h00=0x0010, h01=0x0050, text=»ATTDB EQU * «, t00=0x0005, t01=0x00da}
0x08b8…08d8 Head {h00=0x001c, h01=0x0050, text=» SUR A10,A10 INDICATE DB«, t00=0x0005, t01=0x00ee}
0x08d8…08e8 Head {h00=0x000c, h01=0x0050, text=» RB ATT «, t00=0x0005, t01=0x010e}
0x08e8…08f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x011e}
0x08f6…0900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012c}
0x0900…0924 Head {h00=0x0020, h01=0x0050, text=»* CHANGE FILE CODE IN ECB «, t00=0x0005, t01=0x0136}
0x0924…0936 Head {h00=0x000e, h01=0x0050, text=»* CALL: «, t00=0x0005, t01=0x015a}
0x0936…0964 Head {h00=0x002a, h01=0x0050, text=»* CALL CHANFC,DATASET,FILECODE «, t00=0x0005, t01=0x016c}
0x0964…096e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000a}
0x096e…0982 Head {h00=0x0010, h01=0x0050, text=»CHANFC EQU *«, t00=0x0006, t01=0x0014}
0x0982…09a8 Head {h00=0x0022, h01=0x0050, text=» CF A14,T:FDSP GET ECB-ADDRESS«, t00=0x0006, t01=0x0028}
0x09a8…09d2 Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 GET ADDRESS TO BIN.«, t00=0x0006, t01=0x004e}
0x09d2…09f4 Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A9 GET FILE CODE «, t00=0x0006, t01=0x0078}
0x09f4…0a1e Head {h00=0x0026, h01=0x0050, text=» SC A3,1,A8 STORE FILE CODE IN ECB«, t00=0x0006, t01=0x009a}
0x0a1e…0a30 Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0006, t01=0x00c4}
0x0a30…0a3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00d6}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a7c Head {h00=0x0030, h01=0x0050, text=»* SAVE POINTERS TO DB:S/WB:S IN STRING ITEM«, t00=0x0006, t01=0x00ee}
0x0a7c…0aac Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL SAVE,DISPL,LENGTH,STRG«, t00=0x0006, t01=0x0122}
0x0aac…0ae6 Head {h00=0x0036, h01=0x0050, text=»* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE «, t00=0x0006, t01=0x0152}
0x0ae6…0b12 Head {h00=0x0028, h01=0x0050, text=»* THE VERY FIRST DB:POINTER«, t00=0x0006, t01=0x018c}
0x0b12…0b56 Head {h00=0x0040, h01=0x0050, text=»* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED «, t00=0x0007, t01=0x0028}
0x0b56…0b98 Head {h00=0x003e, h01=0x0050, text=»* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN «, t00=0x0007, t01=0x006c}
0x0b98…0ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ae}
0x0ba2…0bb4 Head {h00=0x000e, h01=0x0050, text=»SAVE EQU *«, t00=0x0007, t01=0x00b8}
0x0bb4…0bd6 Head {h00=0x001e, h01=0x0050, text=» CALL GETP GET PARAMETERS «, t00=0x0007, t01=0x00ca}
0x0bd6…0bea Head {h00=0x0010, h01=0x0050, text=»SAV100 EQU *«, t00=0x0007, t01=0x00ec}
0x0bea…0bfc Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0007, t01=0x0100}
0x0bfc…0c0e Head {h00=0x000e, h01=0x0050, text=» ADR A7,A9«, t00=0x0007, t01=0x0112}
0x0c0e…0c22 Head {h00=0x0010, h01=0x0050, text=»SAV200 EQU *«, t00=0x0007, t01=0x0124}
0x0c22…0c34 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A2«, t00=0x0007, t01=0x0138}
0x0c34…0c46 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A7«, t00=0x0007, t01=0x014a}
0x0c46…0c58 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0007, t01=0x015c}
0x0c58…0c6a Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0007, t01=0x016e}
0x0c6a…0c7c Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0007, t01=0x0180}
0x0c7c…0c92 (8, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RB(NZ) SAV200«, t00=0x0008, t01=0x0004}
0x0c92…0ca4 Head {h00=0x000e, h01=0x0050, text=» RF RETUR «, t00=0x0008, t01=0x001a}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0cae…0ce6 Head {h00=0x0034, h01=0x0050, text=»* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE«, t00=0x0008, t01=0x0036}
0x0ce6…0d14 Head {h00=0x002a, h01=0x0050, text=»* TO THE T:A (TERMINAL CONTROL AREA) «, t00=0x0008, t01=0x006e}
0x0d14…0d48 Head {h00=0x0030, h01=0x0050, text=»* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG «, t00=0x0008, t01=0x009c}
0x0d48…0d8a Head {h00=0x003e, h01=0x0050, text=»* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINTER«, t00=0x0008, t01=0x00d0}
0x0d8a…0db8 Head {h00=0x002a, h01=0x0050, text=»* LENGTH= NUMBER OF BYTES TO RESTORE «, t00=0x0008, t01=0x0112}
0x0db8…0df6 Head {h00=0x003a, h01=0x0050, text=»* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED«, t00=0x0008, t01=0x0140}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e00…0e14 Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0008, t01=0x0188}
0x0e14…0e26 Head {h00=0x000e, h01=0x0050, text=» CALL GETP«, t00=0x0009, t01=0x000c}
0x0e26…0e38 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0009, t01=0x001e}
0x0e38…0e52 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A9 CHANGE «, t00=0x0009, t01=0x0030}
0x0e52…0e6e Head {h00=0x0018, h01=0x0050, text=» LDR A9,A1 ADDRESSES«, t00=0x0009, t01=0x004a}
0x0e6e…0e92 Head {h00=0x0020, h01=0x0050, text=» RB SAV100 START TO RESTORE «, t00=0x0009, t01=0x0066}
0x0e92…0e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008a}
0x0e9c…0ec8 Head {h00=0x0028, h01=0x0050, text=»* GET PARAMETERS FOR SAVE/RESTORE «, t00=0x0009, t01=0x0094}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed2…0ee4 Head {h00=0x000e, h01=0x0050, text=»GETP EQU *«, t00=0x0009, t01=0x00ca}
0x0ee4…0ef8 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0009, t01=0x00dc}
0x0ef8…0f1e Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A9 START DISPLACEMENT«, t00=0x0009, t01=0x00f0}
0x0f1e…0f32 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0009, t01=0x0116}
0x0f32…0f50 Head {h00=0x001a, h01=0x0050, text=» LDR* A6,A9 GET LENGTH«, t00=0x0009, t01=0x012a}
0x0f50…0f64 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0009, t01=0x0148}
0x0f64…0f76 Head {h00=0x000e, h01=0x0050, text=» LDK A2,40«, t00=0x0009, t01=0x015c}
0x0f76…0fa6 Head {h00=0x002c, h01=0x0050, text=» ADR A2,A13 GET ADDRESS TO DB-POINTER /A«, t00=0x0009, t01=0x016e}
0x0fa6…0fb6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000a, t01=0x000e}
0x0fb6…0fc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x001e}
0x0fc4…0ff8 Head {h00=0x0030, h01=0x002b, text=»* GET A FREE RECORD FROM FREE-SPACE RECORD «, t00=0x000a, t01=0x002c}
0x0ff8…1032 Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x000a, t01=0x0060}
0x1032…1072 Head {h00=0x003c, h01=0x0038, text=»* OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND)«, t00=0x000a, t01=0x009a}
0x1072…1086 Head {h00=0x0010, h01=0x000c, text=»GETFRE EQU *«, t00=0x000a, t01=0x00da}
0x1086…10b2 Head {h00=0x0028, h01=0x0024, text=» CALL GETPAR GET PARAMETER ADDRESSES«, t00=0x000a, t01=0x00ee}
0x10b2…10e0 Head {h00=0x002a, h01=0x0026, text=» LD A4,-2,A7 GET NUMBER OF FRE RECORDS«, t00=0x000a, t01=0x011a}
0x10e0…1100 Head {h00=0x001c, h01=0x0017, text=» RF(Z) NOK IF NONE FREE «, t00=0x000a, t01=0x0148}
0x1100…1114 Head {h00=0x0010, h01=0x000c, text=»GET100 EQU *«, t00=0x000a, t01=0x0168}
0x1114…1126 Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x000a, t01=0x017c}
0x1126…1146 Head {h00=0x001c, h01=0x0018, text=» RF(E) NOK END OF RECORD«, t00=0x000a, t01=0x018e}
0x1146…1170 Head {h00=0x0026, h01=0x0021, text=» LCR A4,A7 GET BITS FOR 8 RECORDS «, t00=0x000b, t01=0x001e}
0x1170…1194 Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 SHIFT TO RIGHTMOST«, t00=0x000b, t01=0x0048}
0x1194…11c4 Head {h00=0x002c, h01=0x0027, text=» RF(NZ) SEARCH AT LEAST ONE RECORD FREE «, t00=0x000b, t01=0x006c}
0x11c4…11e8 Head {h00=0x0020, h01=0x001b, text=» ADK A7,1 INCREMENT POINTER «, t00=0x000b, t01=0x009c}
0x11e8…120e Head {h00=0x0022, h01=0x001e, text=» ADK A6,8 UPDATE RECORD NUMBER«, t00=0x000b, t01=0x00c0}
0x120e…1220 Head {h00=0x000e, h01=0x000a, text=» RB GET100«, t00=0x000b, t01=0x00e6}
0x1220…1234 Head {h00=0x0010, h01=0x000c, text=»SEARCH EQU *«, t00=0x000b, t01=0x00f8}
0x1234…1260 Head {h00=0x0028, h01=0x0024, text=» LDK A5,0 INDICATE FIRST BIT IN BYTE«, t00=0x000b, t01=0x010c}
0x1260…1272 Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x000b, t01=0x0138}
0x1272…1296 Head {h00=0x0020, h01=0x001b, text=»SEA100 RF(N) FOUND IF FOUND «, t00=0x000b, t01=0x014a}
0x1296…12ba Head {h00=0x0020, h01=0x001b, text=» ADK A5,1 INCREMENT COUNTER «, t00=0x000b, t01=0x016e}
0x12ba…12cc (12, 0, 400) Head {h00=0x000e, h01=0x0009, text=» SLL A4,1 «, t00=0x000c, t01=0x0004}
0x12cc…12de Head {h00=0x000e, h01=0x000a, text=» RB SEA100«, t00=0x000c, t01=0x0016}
0x12de…12fe Head {h00=0x001c, h01=0x0018, text=»FOUND SLL A4,1 CLEAR BIT«, t00=0x000c, t01=0x0028}
0x12fe…132e Head {h00=0x002c, h01=0x0028, text=» ADR A6,A5 UPDATE RELATIVE RECORD NUMBER«, t00=0x000c, t01=0x0048}
0x132e…1346 Head {h00=0x0014, h01=0x000f, text=»FOU100 SRL A4,1 «, t00=0x000c, t01=0x0078}
0x1346…136a Head {h00=0x0020, h01=0x001b, text=» SUK A5,1 DECREMENT POINTER «, t00=0x000c, t01=0x0090}
0x136a…1380 Head {h00=0x0012, h01=0x000e, text=» RB(NN) FOU100«, t00=0x000c, t01=0x00b4}
0x1380…1392 Head {h00=0x000e, h01=0x0009, text=» SRL A4,8 «, t00=0x000c, t01=0x00ca}
0x1392…13b8 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x000c, t01=0x00dc}
0x13b8…13cc Head {h00=0x0010, h01=0x000c, text=» LC A7,17,A9«, t00=0x000c, t01=0x0102}
0x13cc…13de Head {h00=0x000e, h01=0x000a, text=» ECR A7,A7«, t00=0x000c, t01=0x0116}
0x13de…140a Head {h00=0x0028, h01=0x0024, text=» LC A7,18,A9 GET START RECORD NUMBER«, t00=0x000c, t01=0x0128}
0x140a…1436 Head {h00=0x0028, h01=0x0024, text=» ADR A6,A7 GET CURRENT RECORD NUMBER«, t00=0x000c, t01=0x0154}
0x1436…144a Head {h00=0x0010, h01=0x000b, text=» LDKL A1,-1 «, t00=0x000c, t01=0x0180}
0x144a…147a (13, 0, 400) Head {h00=0x002c, h01=0x0027, text=» ADRS A1,A2 DECREMENT NO. OF FREE RECS. «, t00=0x000d, t01=0x0004}
0x147a…148c Head {h00=0x000e, h01=0x0009, text=»NOK EQU * «, t00=0x000d, t01=0x0034}
0x148c…14a0 Head {h00=0x0010, h01=0x000c, text=» CALL I:EVA0«, t00=0x000d, t01=0x0046}
0x14a0…14ca Head {h00=0x0026, h01=0x0022, text=»NOK100 STR A6,A9 STORE FOUND INDEX«, t00=0x000d, t01=0x005a}
0x14ca…14e2 Head {h00=0x0014, h01=0x000f, text=»RETUR ABL I:RT1 «, t00=0x000d, t01=0x0084}
0x14e2…14f0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000d, t01=0x009c}
0x14f0…1528 Head {h00=0x0034, h01=0x0031, text=»* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF«, t00=0x000d, t01=0x00aa}
0x1528…1562 Head {h00=0x0036, h01=0x0031, text=»* FREE RECORD COUNTER. THIS IS ONLY DONE «, t00=0x000d, t01=0x00e2}
0x1562…1590 Head {h00=0x002a, h01=0x0025, text=»* IF CURRENT RECORD WAS BUSY «, t00=0x000d, t01=0x011c}
0x1590…15ca Head {h00=0x0036, h01=0x0031, text=»* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB «, t00=0x000d, t01=0x014a}
0x15ca…160e Head {h00=0x0040, h01=0x003c, text=»* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER)«, t00=0x000d, t01=0x0184}
0x160e…1618 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0038}
0x1618…162c Head {h00=0x0010, h01=0x000c, text=»SETFRE EQU *«, t00=0x000e, t01=0x0042}
0x162c…1650 Head {h00=0x0020, h01=0x001c, text=» SUR A10,A10 INDICATE SETFRE«, t00=0x000e, t01=0x0056}
0x1650…1662 Head {h00=0x000e, h01=0x0009, text=»SET EQU * «, t00=0x000e, t01=0x007a}
0x1662…1676 Head {h00=0x0010, h01=0x000c, text=» CALL GETPAR«, t00=0x000e, t01=0x008c}
0x1676…1696 Head {h00=0x001c, h01=0x0017, text=» LDR A6,A9 COPY ADDRESS «, t00=0x000e, t01=0x00a0}
0x1696…16c2 Head {h00=0x0028, h01=0x0024, text=» CALL I:EVA0 GET ADDRESS TO REC. NO.«, t00=0x000e, t01=0x00c0}
0x16c2…16dc Head {h00=0x0016, h01=0x0012, text=» LDR A2,A7 COPY A7«, t00=0x000e, t01=0x00ec}
0x16dc…16fa Head {h00=0x001a, h01=0x0015, text=» LDR* A3,A9 GET INDEX «, t00=0x000e, t01=0x0106}
0x16fa…170e Head {h00=0x0010, h01=0x000c, text=» LC A1,17,A6«, t00=0x000e, t01=0x0124}
0x170e…1720 Head {h00=0x000e, h01=0x000a, text=» ECR A1,A1«, t00=0x000e, t01=0x0138}
0x1720…174c Head {h00=0x0028, h01=0x0024, text=» LC A1,18,A6 GET START RECORD NUMBER«, t00=0x000e, t01=0x014a}
0x174c…1776 Head {h00=0x0026, h01=0x0022, text=» SUR A3,A1 GET RELATIVE RECORD NO.«, t00=0x000e, t01=0x0176}
0x1776…179c Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x000f, t01=0x0010}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x000f, t01=0x0036}
0x17ae…17d2 Head {h00=0x0020, h01=0x0050, text=» RB(Z) NOK100 JUMP IF ERROR «, t00=0x000f, t01=0x0048}
0x17d2…17e6 Head {h00=0x0010, h01=0x000c, text=» LDR A10,A10«, t00=0x000f, t01=0x006c}
0x17e6…1806 Head {h00=0x001c, h01=0x0017, text=» RF(NZ) TEST0 IF SET0CC «, t00=0x000f, t01=0x0080}
0x1806…182c Head {h00=0x0022, h01=0x001e, text=»* SETFRE: TEST IF ALREADY FREE«, t00=0x000f, t01=0x00a0}
0x182c…1844 Head {h00=0x0014, h01=0x000f, text=»TEST1 LDR A4,A4 «, t00=0x000f, t01=0x00c6}
0x1844…1868 Head {h00=0x0020, h01=0x001c, text=» RB(N) RETUR IF ALREADY FREE«, t00=0x000f, t01=0x00de}
0x1868…188e Head {h00=0x0022, h01=0x001e, text=» ORKL A4,/8000 SET RECORD FREE«, t00=0x000f, t01=0x0102}
0x188e…18b2 Head {h00=0x0020, h01=0x001c, text=» LDK A1,1 INDICATE INCREMENT«, t00=0x000f, t01=0x0128}
0x18b2…18e4 Head {h00=0x002e, h01=0x002a, text=»TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER«, t00=0x000f, t01=0x014c}
0x18e4…18fc Head {h00=0x0014, h01=0x000f, text=»TES200 SUK A3,1 «, t00=0x000f, t01=0x017e}
0x18fc…1920 Head {h00=0x0020, h01=0x001b, text=» RF(N) TES300 BYTE RESTORED «, t00=0x0010, t01=0x0008}
0x1920…1932 Head {h00=0x000e, h01=0x0009, text=» SRC A4,1 «, t00=0x0010, t01=0x002c}
0x1932…1944 Head {h00=0x000e, h01=0x000a, text=» RB TES200«, t00=0x0010, t01=0x003e}
0x1944…1972 Head {h00=0x002a, h01=0x0026, text=»TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE«, t00=0x0010, t01=0x0050}
0x1972…1998 Head {h00=0x0022, h01=0x001d, text=» SCR A4,A7 STORE UPDATED BYTE «, t00=0x0010, t01=0x007e}
0x1998…19aa Head {h00=0x000e, h01=0x0009, text=» RB RETUR «, t00=0x0010, t01=0x00a4}
0x19aa…19b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00b6}
0x19b4…19de Head {h00=0x0026, h01=0x0022, text=»* SETOCC: TEST IF ALREADY OCCUPIED«, t00=0x0010, t01=0x00c0}
0x19de…19f2 Head {h00=0x0010, h01=0x000b, text=»TEST0 EQU * «, t00=0x0010, t01=0x00ea}
0x19f2…1a04 Head {h00=0x000e, h01=0x000a, text=» LDR A4,A4«, t00=0x0010, t01=0x00fe}
0x1a04…1a2e Head {h00=0x0026, h01=0x0021, text=» RB(NN) RETUR IF ALREADY OCCUPIED «, t00=0x0010, t01=0x0110}
0x1a2e…1a5c Head {h00=0x002a, h01=0x0025, text=» SUK A1,1 A1 = -1; INDICATE DECREMENT «, t00=0x0010, t01=0x013a}
0x1a5c…1a84 Head {h00=0x0024, h01=0x0020, text=» ANKL A4,/7FFF INDICATE OCCUPIED«, t00=0x0010, t01=0x0168}
0x1a84…1a96 Head {h00=0x000e, h01=0x000a, text=» RB TES100«, t00=0x0010, t01=0x0190}
0x1a96…1aa4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x0012}
0x1aa4…1ada Head {h00=0x0032, h01=0x002d, text=»* SET RECORD OCCUPIED AND DECREMENT NUMBER OF «, t00=0x0011, t01=0x0020}
0x1ada…1b16 Head {h00=0x0038, h01=0x0033, text=»* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD «, t00=0x0011, t01=0x0056}
0x1b16…1b28 Head {h00=0x000e, h01=0x0009, text=»* IS FREE «, t00=0x0011, t01=0x0092}
0x1b28…1b62 Head {h00=0x0036, h01=0x0032, text=»* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB«, t00=0x0011, t01=0x00a4}
0x1b62…1ba0 Head {h00=0x003a, h01=0x0036, text=»* NUMB = CURRENT RECORD NUMBER (= 0 AS OUTPUT IF«, t00=0x0011, t01=0x00de}
0x1ba0…1bde Head {h00=0x003a, h01=0x0035, text=»* WRONG NUMBER) «, t00=0x0011, t01=0x011c}
0x1bde…1bf2 Head {h00=0x0010, h01=0x000c, text=»SETOCC EQU *«, t00=0x0011, t01=0x015a}
0x1bf2…1c16 Head {h00=0x0020, h01=0x001c, text=» LDR A10,A14 INDICATE SETOCC«, t00=0x0011, t01=0x016e}
0x1c16…1c26 (18, 0, 400) Head {h00=0x000c, h01=0x0007, text=» RB SET «, t00=0x0012, t01=0x0004}
0x1c26…1c34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0014}
0x1c34…1c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c3e…1c74 Head {h00=0x0032, h01=0x0050, text=»* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING«, t00=0x0012, t01=0x002c}
0x1c74…1c90 Head {h00=0x0018, h01=0x0050, text=»* 16 BOOLEAN ITEMS«, t00=0x0012, t01=0x0062}
0x1c90…1c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007e}
0x1c9a…1cae Head {h00=0x0010, h01=0x0050, text=»UPDBOL EQU *«, t00=0x0012, t01=0x0088}
0x1cae…1cda Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0012, t01=0x009c}
0x1cda…1cfe Head {h00=0x0020, h01=0x0050, text=» LDR* A1,A9 GET BIN CONTENTS«, t00=0x0012, t01=0x00c8}
0x1cfe…1d22 Head {h00=0x0020, h01=0x0050, text=» ST A1,-2,A9 STORE BOOLEANS «, t00=0x0012, t01=0x00ec}
0x1d22…1d34 Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0012, t01=0x0110}
0x1d34…1d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d3e…1d74 Head {h00=0x0032, h01=0x0050, text=»* MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN«, t00=0x0012, t01=0x012c}
0x1d74…1d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0162}
0x1d7e…1d92 Head {h00=0x0010, h01=0x0050, text=»UPDBIN EQU *«, t00=0x0012, t01=0x016c}
0x1d92…1dbe Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO BIN ITEM«, t00=0x0012, t01=0x0180}
0x1dbe…1de0 Head {h00=0x001e, h01=0x0050, text=» LD A1,-2,A9 GET BOOLEANS «, t00=0x0013, t01=0x001c}
0x1de0…1e00 Head {h00=0x001c, h01=0x0050, text=» STR A1,A9 STORE IN BIN «, t00=0x0013, t01=0x003e}
0x1e00…1e12 Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0013, t01=0x005e}
0x1e12…1e20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0070}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007e}
0x1e2a…1e5e Head {h00=0x0030, h01=0x0050, text=»* SEARCH WANTED BIT IN A CHARACTER STRING «, t00=0x0013, t01=0x0088}
0x1e5e…1e7a Head {h00=0x0018, h01=0x0050, text=»* A3 = BIT INDEX «, t00=0x0013, t01=0x00bc}
0x1e7a…1eaa Head {h00=0x002c, h01=0x0050, text=»* A7 = CHARACTER STRING START ADDRESS«, t00=0x0013, t01=0x00d8}
0x1eaa…1eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0108}
0x1eb4…1ec8 Head {h00=0x0010, h01=0x0050, text=»SEABIT EQU *«, t00=0x0013, t01=0x0112}
0x1ec8…1ee0 Head {h00=0x0014, h01=0x000f, text=»SET050 SUK A3,8 «, t00=0x0013, t01=0x0126}
0x1ee0…1ef6 Head {h00=0x0012, h01=0x000d, text=» RF(N) SET100 «, t00=0x0013, t01=0x013e}
0x1ef6…1f08 Head {h00=0x000e, h01=0x0009, text=» ADK A7,1 «, t00=0x0013, t01=0x0154}
0x1f08…1f1a Head {h00=0x000e, h01=0x000a, text=» CWR A7,A8«, t00=0x0013, t01=0x0166}
0x1f1a…1f44 Head {h00=0x0026, h01=0x0022, text=» RB(NE) SET050 CONTINUE IN NOT EOR«, t00=0x0013, t01=0x0178}
0x1f44…1f72 Head {h00=0x002a, h01=0x0025, text=» LDK A6,0 INDICATE INCORRECT REC. NO. «, t00=0x0014, t01=0x0012}
0x1f72…1f82 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0040}
0x1f82…1fa2 Head {h00=0x001c, h01=0x0018, text=»* PLACED IN CURRENT BYTE«, t00=0x0014, t01=0x0050}
0x1fa2…1fb6 Head {h00=0x0010, h01=0x000c, text=»SET100 EQU *«, t00=0x0014, t01=0x0070}
0x1fb6…1fc8 Head {h00=0x000e, h01=0x0009, text=» ADK A3,8 «, t00=0x0014, t01=0x0084}
0x1fc8…1fda Head {h00=0x000e, h01=0x000a, text=» LCR A4,A7«, t00=0x0014, t01=0x0096}
0x1fda…1ffe Head {h00=0x0020, h01=0x001c, text=» SLL A4,8 GET BYTE RIGHTMOST«, t00=0x0014, t01=0x00a8}
0x1ffe…2018 Head {h00=0x0016, h01=0x0012, text=» LDR A1,A3 COPY A3«, t00=0x0014, t01=0x00cc}
0x2018…2038 Head {h00=0x001c, h01=0x0018, text=» RF(Z) TEST IF FIRST BIT«, t00=0x0014, t01=0x00e6}
0x2038…204c Head {h00=0x0010, h01=0x000c, text=»SET300 EQU *«, t00=0x0014, t01=0x0106}
0x204c…205e Head {h00=0x000e, h01=0x0009, text=» SLC A4,1 «, t00=0x0014, t01=0x011a}
0x205e…2070 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0014, t01=0x012c}
0x2070…2086 Head {h00=0x0012, h01=0x000e, text=» RB(NZ) SET300«, t00=0x0014, t01=0x013e}
0x2086…2098 Head {h00=0x000e, h01=0x000a, text=»TEST EQU *«, t00=0x0014, t01=0x0154}
0x2098…20a8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0166}
0x20a8…20b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0176}
0x20b6…20c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0184}
0x20c0…20f2 Head {h00=0x002e, h01=0x0050, text=»* SET WANTED BIT IN A STRING OR BIN ITEM «, t00=0x0014, t01=0x018e}
0x20f2…211c Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL SETB,ITEM,INDEX «, t00=0x0015, t01=0x0030}
0x211c…2126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005a}
0x2126…2138 Head {h00=0x000e, h01=0x0050, text=»SETB EQU *«, t00=0x0015, t01=0x0064}
0x2138…215c Head {h00=0x0020, h01=0x0050, text=» SUR A10,A10 INDICATE 'SET' «, t00=0x0015, t01=0x0076}
0x215c…2170 Head {h00=0x0010, h01=0x0050, text=»SETB10 EQU *«, t00=0x0015, t01=0x009a}
0x2170…2198 Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO ITEM«, t00=0x0015, t01=0x00ae}
0x2198…21b8 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A9 COPY ADDRESS «, t00=0x0015, t01=0x00d6}
0x21b8…21da Head {h00=0x001e, h01=0x0050, text=» LDR A8,A5 COPY ENDADDRESS«, t00=0x0015, t01=0x00f6}
0x21da…2204 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0015, t01=0x0118}
0x2204…2222 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A9 GET INDEX «, t00=0x0015, t01=0x0142}
0x2222…2248 Head {h00=0x0022, h01=0x0050, text=» CALL SEABIT SEARCH WANTED BIT«, t00=0x0015, t01=0x0160}
0x2248…225c Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0015, t01=0x0186}
0x225c…227e Head {h00=0x001e, h01=0x0050, text=» RF(N) SETB30 IF TEST BIT «, t00=0x0016, t01=0x000a}
0x227e…22a2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) SETB20 JUMP IF SETBIT«, t00=0x0016, t01=0x002c}
0x22a2…22b6 Head {h00=0x0010, h01=0x0050, text=»* CLEAR BIT «, t00=0x0016, t01=0x0050}
0x22b6…22d6 Head {h00=0x001c, h01=0x0050, text=» ANKL A4,/7FFF CLEAR BIT«, t00=0x0016, t01=0x0064}
0x22d6…22f6 Head {h00=0x001c, h01=0x0050, text=» RB TES200 RESTORE BYTE «, t00=0x0016, t01=0x0084}
0x22f6…2308 Head {h00=0x000e, h01=0x0050, text=»* SET BIT «, t00=0x0016, t01=0x00a4}
0x2308…231c Head {h00=0x0010, h01=0x0050, text=»SETB20 EQU *«, t00=0x0016, t01=0x00b6}
0x231c…233a Head {h00=0x001a, h01=0x0050, text=» ORKL A4,/8000 SET BIT«, t00=0x0016, t01=0x00ca}
0x233a…235a Head {h00=0x001c, h01=0x0050, text=» RB TES200 RESTORE BYTE «, t00=0x0016, t01=0x00e8}
0x235a…236e Head {h00=0x0010, h01=0x0050, text=»SETB30 EQU *«, t00=0x0016, t01=0x0108}
0x236e…238e Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 INDICATE FALSE«, t00=0x0016, t01=0x011c}
0x238e…23aa Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 TEST BIT «, t00=0x0016, t01=0x013c}
0x23aa…23ca Head {h00=0x001c, h01=0x0050, text=» RF(NN) SETB40 IF FALSE «, t00=0x0016, t01=0x0158}
0x23ca…23ea Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 INDICATE TRUE «, t00=0x0016, t01=0x0178}
0x23ea…23fe Head {h00=0x0010, h01=0x0050, text=»SETB40 EQU *«, t00=0x0017, t01=0x0008}
0x23fe…2422 Head {h00=0x0020, h01=0x0050, text=» LD A4,2,A13 GET STACK BASE «, t00=0x0017, t01=0x001c}
0x2422…2448 Head {h00=0x0022, h01=0x0050, text=» SC A1,-2,A4 STORE CR ON STACK«, t00=0x0017, t01=0x0040}
0x2448…2458 Head {h00=0x000c, h01=0x0050, text=» RF RET «, t00=0x0017, t01=0x0066}
0x2458…2462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0076}
0x2462…2490 Head {h00=0x002a, h01=0x0050, text=»* CLEAR BIT IN STRING OR BIN VARIABLE«, t00=0x0017, t01=0x0080}
0x2490…24bc Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL CLEARB,ITEM,INDEX«, t00=0x0017, t01=0x00ae}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00da}
0x24c6…24da Head {h00=0x0010, h01=0x0050, text=»CLEARB EQU *«, t00=0x0017, t01=0x00e4}
0x24da…2502 Head {h00=0x0024, h01=0x0050, text=» LDKL A10,1 INDICATE 'CLEAR BIT'«, t00=0x0017, t01=0x00f8}
0x2502…251e Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0017, t01=0x0120}
0x251e…2528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013c}
0x2528…2556 Head {h00=0x002a, h01=0x0050, text=»* TEST BIT IN STRING OR BIN VARIABLE «, t00=0x0017, t01=0x0146}
0x2556…2582 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX: CALL TESTB,ITEM,INDEX «, t00=0x0017, t01=0x0174}
0x2582…25ac Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: CR = 0 (BIT IS FALSE)«, t00=0x0018, t01=0x0010}
0x25ac…25d6 Head {h00=0x0026, h01=0x0050, text=»* CR = 1 (BIT IS TRUE) «, t00=0x0018, t01=0x003a}
0x25d6…25e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25e0…25f4 Head {h00=0x0010, h01=0x0050, text=»TESTB EQU * «, t00=0x0018, t01=0x006e}
0x25f4…261c Head {h00=0x0024, h01=0x0050, text=» LDKL A10,-1 INDICATE 'TEST BIT'«, t00=0x0018, t01=0x0082}
0x261c…2638 Head {h00=0x0018, h01=0x0050, text=» RB SETB10 CONTINUE «, t00=0x0018, t01=0x00aa}
0x2638…2646 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00c6}
0x2646…2674 Head {h00=0x002a, h01=0x0050, text=»* GET VOLUME NAME TO A STRING VARIABEL«, t00=0x0018, t01=0x00d4}
0x2674…26ac Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD«, t00=0x0018, t01=0x0102}
0x26ac…26d8 Head {h00=0x0028, h01=0x0050, text=»* RETCOD = 0 IF OK, ELSE 1 «, t00=0x0018, t01=0x013a}
0x26d8…26e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e2…26f6 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x0018, t01=0x0170}
0x26f6…271c Head {h00=0x0022, h01=0x0050, text=» CALL T:FDSP GET DSET-ADDRESS «, t00=0x0018, t01=0x0184}
0x271c…2730 Head {h00=0x0010, h01=0x0050, text=» CALL I:EVA0«, t00=0x0019, t01=0x001a}
0x2730…2758 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS«, t00=0x0019, t01=0x002e}
0x2758…2782 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO VOLNAM«, t00=0x0019, t01=0x0056}
0x2782…27a2 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A9 SAVE ADDRESS«, t00=0x0019, t01=0x0080}
0x27a2…27d4 Head {h00=0x002e, h01=0x0050, text=» CALL I:EVA0 GET RETURN CODE ITEM ADDRESS «, t00=0x0019, t01=0x00a0}
0x27d4…27ec Head {h00=0x0014, h01=0x0050, text=» LDK A7,/B7 LOAD«, t00=0x0019, t01=0x00d2}
0x27ec…27f8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x00ea}
0x27f8…2808 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0019, t01=0x00f6}
0x2808…282c Head {h00=0x0020, h01=0x0050, text=» LD A6,8,A8 GET RETURN CODE «, t00=0x0019, t01=0x0106}
0x282c…2840 Head {h00=0x0010, h01=0x0050, text=» RF(P) ERROR«, t00=0x0019, t01=0x012a}
0x2840…2860 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,410 LOAD LENGTH«, t00=0x0019, t01=0x013e}
0x2860…2880 Head {h00=0x001c, h01=0x0050, text=» ST A1,4,A8 STORE LENGTH«, t00=0x0019, t01=0x015e}
0x2880…28a4 Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE SECTOR 0 «, t00=0x0019, t01=0x017e}
0x28a4…28c2 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/81 BASIC READ«, t00=0x001a, t01=0x0012}
0x28c2…28ce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0030}
0x28ce…28de Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001a, t01=0x003c}
0x28de…2902 Head {h00=0x0020, h01=0x0050, text=» LD A1,8,A8 GET RETURN CODE «, t00=0x001a, t01=0x004c}
0x2902…2918 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ERROR «, t00=0x001a, t01=0x0070}
0x2918…2942 Head {h00=0x0026, h01=0x0050, text=» LD A1,2,A8 GET ADDRESS TO VOLNAM «, t00=0x001a, t01=0x0086}
0x2942…2954 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x001a, t01=0x00b0}
0x2954…2972 Head {h00=0x001a, h01=0x0050, text=» LDK A2,6 LOAD COUNTER«, t00=0x001a, t01=0x00c2}
0x2972…2984 Head {h00=0x000e, h01=0x0050, text=»LOOP EQU *«, t00=0x001a, t01=0x00e0}
0x2984…29aa Head {h00=0x0022, h01=0x0050, text=» LCR A3,A1 GET NAME-CHARACTER «, t00=0x001a, t01=0x00f2}
0x29aa…29d2 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A10 STORE NAME-CHARACTER«, t00=0x001a, t01=0x0118}
0x29d2…29f8 Head {h00=0x0022, h01=0x0050, text=» ADKL A10,1 INCREMENT POINTER «, t00=0x001a, t01=0x0140}
0x29f8…2a1c Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 INCREMENT POINTER «, t00=0x001a, t01=0x0166}
0x2a1c…2a40 Head {h00=0x0020, h01=0x0050, text=» SUK A2,1 DECREMENT COUNTER «, t00=0x001a, t01=0x018a}
0x2a40…2a6c Head {h00=0x0028, h01=0x0050, text=» RB(P) LOOP CONTINUE IF NOT FINISHED«, t00=0x001b, t01=0x001e}
0x2a6c…2a7e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x001b, t01=0x004a}
0x2a7e…2a9e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) UT IF STATUS OK «, t00=0x001b, t01=0x005c}
0x2a9e…2ab8 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/B8 UNLOAD«, t00=0x001b, t01=0x007c}
0x2ab8…2ac4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001b, t01=0x0096}
0x2ac4…2ad4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x00a2}
0x2ad4…2ae4 Head {h00=0x000c, h01=0x0050, text=»UT EQU *«, t00=0x001b, t01=0x00b2}
0x2ae4…2af6 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001b, t01=0x00c2}
0x2af6…2b08 Head {h00=0x000e, h01=0x0050, text=»VIN EQU * «, t00=0x001b, t01=0x00d4}
0x2b08…2b2c Head {h00=0x0020, h01=0x0050, text=» STR A6,A9 STORE RETURN-CODE«, t00=0x001b, t01=0x00e6}
0x2b2c…2b42 Head {h00=0x0012, h01=0x0050, text=»RET ABL I:RT1 «, t00=0x001b, t01=0x010a}
0x2b42…2b58 Head {h00=0x0012, h01=0x0050, text=»ERROR LDK A6,1«, t00=0x001b, t01=0x0120}
0x2b58…2b68 Head {h00=0x000c, h01=0x0050, text=» RB VIN «, t00=0x001b, t01=0x0136}
0x2b68…2b76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0146}
0x2b76…2b8a Head {h00=0x0010, h01=0x000c, text=»GETPAR EQU *«, t00=0x001b, t01=0x0154}
0x2b8a…2bb0 Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO BPOOL «, t00=0x001b, t01=0x0168}
0x2bb0…2bd0 Head {h00=0x001c, h01=0x0017, text=» LDR A7,A9 COPY ADDRESS «, t00=0x001b, t01=0x018e}
0x2bd0…2bf6 Head {h00=0x0022, h01=0x001d, text=» CALL I:EVA0 ADDRESS TO RPOOL «, t00=0x001c, t01=0x001e}
0x2bf6…2c0a Head {h00=0x0010, h01=0x000c, text=» LC A8,15,A9«, t00=0x001c, t01=0x0044}
0x2c0a…2c1c Head {h00=0x000e, h01=0x000a, text=» ECR A8,A8«, t00=0x001c, t01=0x0058}
0x2c1c…2c44 Head {h00=0x0024, h01=0x001f, text=» LC A8,16,A9 GET OCCUPIED BYTES «, t00=0x001c, t01=0x006a}
0x2c44…2c66 Head {h00=0x001e, h01=0x001a, text=» ADR A8,A7 GET END ADDRESS«, t00=0x001c, t01=0x0092}
0x2c66…2c7a Head {h00=0x0010, h01=0x0050, text=» SUKL A8,10 «, t00=0x001c, t01=0x00b4}
0x2c7a…2ca0 Head {h00=0x0022, h01=0x001d, text=» LDR A2,A7 SAVE START ADDRESS «, t00=0x001c, t01=0x00c8}
0x2ca0…2cc8 Head {h00=0x0024, h01=0x001f, text=» ADK A7,2 ADDRESS TO FIRST BITS «, t00=0x001c, t01=0x00ee}
0x2cc8…2cda Head {h00=0x000e, h01=0x0009, text=» LDK A6,0 «, t00=0x001c, t01=0x0116}
0x2cda…2cea Head {h00=0x000c, h01=0x0008, text=» RTN A14«, t00=0x001c, t01=0x0128}
0x2cea…2cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0138}
0x2cf8…2d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0146}
0x2d02…2d38 Head {h00=0x0032, h01=0x0050, text=»* READ CONTROLS FROM A STRING ITEM AND STORE «, t00=0x001c, t01=0x0150}
0x2d38…2d6a Head {h00=0x002e, h01=0x0050, text=»* IN CORRESPONDING BOOLEAN AND BIN ITEMS «, t00=0x001c, t01=0x0186}
0x2d6a…2da8 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL«, t00=0x001d, t01=0x0028}
0x2da8…2de2 Head {h00=0x0036, h01=0x0050, text=»* BUFF+DISPL= START ADDRESS IN STRING ITEM «, t00=0x001d, t01=0x0066}
0x2de2…2e24 Head {h00=0x003e, h01=0x0050, text=»* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS«, t00=0x001d, t01=0x00a0}
0x2e24…2e54 Head {h00=0x002c, h01=0x0050, text=»* MINL= BIN FOR MIN LENGTH «, t00=0x001d, t01=0x00e2}
0x2e54…2e84 Head {h00=0x002c, h01=0x0050, text=»* MAXL= BIN FOR MAX LENGTH «, t00=0x001d, t01=0x0112}
0x2e84…2e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e8e…2ea2 Head {h00=0x0010, h01=0x0050, text=»RCNTRL EQU *«, t00=0x001d, t01=0x014c}
0x2ea2…2ed0 Head {h00=0x002a, h01=0x0050, text=» SUR A10,A10 INDICATE READING CONTROLS«, t00=0x001d, t01=0x0160}
0x2ed0…2efa Head {h00=0x0026, h01=0x0050, text=»CONTRL CALL I:EVA0 BUFFER ADDRESS «, t00=0x001d, t01=0x018e}
0x2efa…2f0c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A9«, t00=0x001e, t01=0x0028}
0x2f0c…2f36 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 DISPLACEMENT ADDRESS «, t00=0x001e, t01=0x003a}
0x2f36…2f5c Head {h00=0x0022, h01=0x0050, text=» ADR* A8,A9 GET START POINTER «, t00=0x001e, t01=0x0064}
0x2f5c…2f72 Head {h00=0x0012, h01=0x0050, text=» CALL I:EVA0 «, t00=0x001e, t01=0x008a}
0x2f72…2f84 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x001e, t01=0x00a0}
0x2f84…2faa Head {h00=0x0022, h01=0x0050, text=» SUK A7,2 ADDRESS TO BOOLEANS «, t00=0x001e, t01=0x00b2}
0x2faa…2fcc Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 MINL ADDRESS «, t00=0x001e, t01=0x00d8}
0x2fcc…2fde Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x001e, t01=0x00fa}
0x2fde…3000 Head {h00=0x001e, h01=0x0050, text=» CALL I:EVA0 MAXL ADDRESS «, t00=0x001e, t01=0x010c}
0x3000…3014 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x001e, t01=0x012e}
0x3014…3038 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ JUMP IF "RCNTRL"«, t00=0x001e, t01=0x0142}
0x3038…3050 Head {h00=0x0014, h01=0x0050, text=»* WRITE CONTROLS«, t00=0x001e, t01=0x0166}
0x3050…3070 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A7 GET BOOLEANS«, t00=0x001e, t01=0x017e}
0x3070…3094 Head {h00=0x0020, h01=0x0050, text=» SC A1,2,A8 STORE IN BUFFER «, t00=0x001f, t01=0x000e}
0x3094…30ba Head {h00=0x0022, h01=0x0050, text=» SRL A1,8 SHIFT OUT 8 BOOLEANS«, t00=0x001f, t01=0x0032}
0x30ba…30cc Head {h00=0x000e, h01=0x0050, text=» SLL A1,7 «, t00=0x001f, t01=0x0058}
0x30cc…30f0 Head {h00=0x0020, h01=0x0050, text=» ADR* A1,A9 GET NEOI + MAXL «, t00=0x001f, t01=0x006a}
0x30f0…3114 Head {h00=0x0020, h01=0x0050, text=» SC A1,1,A8 STORE IN BUFFER «, t00=0x001f, t01=0x008e}
0x3114…3138 Head {h00=0x0020, h01=0x0050, text=» SRL A1,2 SHIFT IN ME + TYPE«, t00=0x001f, t01=0x00b2}
0x3138…314c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/C0 «, t00=0x001f, t01=0x00d6}
0x314c…3168 Head {h00=0x0018, h01=0x0050, text=» ADR* A1,A6 GET MINL«, t00=0x001f, t01=0x00ea}
0x3168…318a Head {h00=0x001e, h01=0x0050, text=» SCR A1,A8 STORE IN BUFFER«, t00=0x001f, t01=0x0106}
0x318a…319a Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x001f, t01=0x0128}
0x319a…31b2 Head {h00=0x0014, h01=0x0050, text=»* READ CONTROLS «, t00=0x001f, t01=0x0138}
0x31b2…31c4 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x001f, t01=0x0150}
0x31c4…31e8 Head {h00=0x0020, h01=0x0050, text=» LC A1,1,A8 GET NEOI + MAXL «, t00=0x001f, t01=0x0162}
0x31e8…31fa Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x001f, t01=0x0186}
0x31fa…321c Head {h00=0x001e, h01=0x0050, text=» ANK A2,/7F MASK OUT MAXL «, t00=0x0020, t01=0x0008}
0x321c…323a Head {h00=0x001a, h01=0x0050, text=» STR A2,A9 STORE MAXL «, t00=0x0020, t01=0x002a}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x0020, t01=0x0048}
0x324c…326e Head {h00=0x001e, h01=0x0050, text=» ANK A2,/3F MASK OUT MINL «, t00=0x0020, t01=0x005a}
0x326e…328c Head {h00=0x001a, h01=0x0050, text=» STR A2,A6 STORE MINL «, t00=0x0020, t01=0x007c}
0x328c…32b4 Head {h00=0x0024, h01=0x0050, text=» SRL A1,7 NEOI TO RIGHTMOST POS.«, t00=0x0020, t01=0x009a}
0x32b4…32d4 Head {h00=0x001c, h01=0x0050, text=» ANK A1,1 MASK OUT NEOI «, t00=0x0020, t01=0x00c2}
0x32d4…32fc Head {h00=0x0024, h01=0x0050, text=» LCR A2,A8 GET ME + TYPE + MINL «, t00=0x0020, t01=0x00e2}
0x32fc…331c Head {h00=0x001c, h01=0x0050, text=» SRL A2,5 SHIFT OUT MINL«, t00=0x0020, t01=0x010a}
0x331c…332e Head {h00=0x000e, h01=0x0050, text=» ANK A2,6 «, t00=0x0020, t01=0x012a}
0x332e…3340 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0020, t01=0x013c}
0x3340…3352 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0020, t01=0x014e}
0x3352…3374 Head {h00=0x001e, h01=0x0050, text=» LC A2,2,A8 GET OTHER BITS«, t00=0x0020, t01=0x0160}
0x3374…3396 Head {h00=0x001e, h01=0x0050, text=» STR A2,A7 STORE BOOLEANS «, t00=0x0020, t01=0x0182}
0x3396…33a6 Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0021, t01=0x0014}
0x33a6…33b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0024}
0x33b4…33be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0032}
0x33be…33f2 Head {h00=0x0030, h01=0x0050, text=»* WRITE CONTROLS FROM BOOLEANS AND BINS TO«, t00=0x0021, t01=0x003c}
0x33f2…340a Head {h00=0x0014, h01=0x0050, text=»* STRING ITEM «, t00=0x0021, t01=0x0070}
0x340a…3448 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL«, t00=0x0021, t01=0x0088}
0x3448…347e Head {h00=0x0032, h01=0x0050, text=»* BUFF+DISPL= START POINT FOR WRITINGM «, t00=0x0021, t01=0x00c6}
0x347e…34c4 Head {h00=0x0042, h01=0x0050, text=»* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLEANS «, t00=0x0021, t01=0x00fc}
0x34c4…34f4 Head {h00=0x002c, h01=0x0050, text=»* MINL= BIN FOR MIN LENGTH «, t00=0x0021, t01=0x0142}
0x34f4…3524 Head {h00=0x002c, h01=0x0050, text=»* MAXL= BIN FOR MAX LENGTH «, t00=0x0021, t01=0x0172}
0x3524…352e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0012}
0x352e…3542 Head {h00=0x0010, h01=0x0050, text=»WCNTRL EQU *«, t00=0x0022, t01=0x001c}
0x3542…356e Head {h00=0x0028, h01=0x0050, text=» LDR A10,A14 INDICATE WRITE CONTROLS«, t00=0x0022, t01=0x0030}
0x356e…3580 Head {h00=0x000e, h01=0x0050, text=» RB CONTRL«, t00=0x0022, t01=0x005c}
0x3580…358e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x006e}
0x358e…3598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x3598…35ca Head {h00=0x002e, h01=0x0050, text=»* MASK OUT WANTED BITS ACCORDING TO MASK «, t00=0x0022, t01=0x0086}
0x35ca…35f4 Head {h00=0x0026, h01=0x0050, text=»* SYNTAX: CALL MSKOUT,MASK,BIN «, t00=0x0022, t01=0x00b8}
0x35f4…362e Head {h00=0x0036, h01=0x0050, text=»* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN «, t00=0x0022, t01=0x00e2}
0x362e…366a Head {h00=0x0038, h01=0x0050, text=»* THE RESULT AFTER THE LOGICAL AND OPERATION«, t00=0x0022, t01=0x011c}
0x366a…369e Head {h00=0x0030, h01=0x0050, text=»* BIN= BIN HOLDING THE VALUE TO BE MASKED«, t00=0x0022, t01=0x0158}
0x369e…36a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x018c}
0x36a8…36bc Head {h00=0x0010, h01=0x0050, text=»MSKOUT EQU *«, t00=0x0023, t01=0x0008}
0x36bc…36e0 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO MASK«, t00=0x0023, t01=0x001c}
0x36e0…36f2 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0023, t01=0x0040}
0x36f2…3716 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO BIN «, t00=0x0023, t01=0x0052}
0x3716…373e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A9 GET CONTENTS OF BIN «, t00=0x0023, t01=0x0076}
0x373e…376c Head {h00=0x002a, h01=0x0050, text=» ANRS A1,A6 LOGICAL AND WITH MASK AND «, t00=0x0023, t01=0x009e}
0x376c…378c Head {h00=0x001c, h01=0x0050, text=» STORE RESULT IN MASK «, t00=0x0023, t01=0x00cc}
0x378c…379c Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0023, t01=0x00ec}
0x379c…37a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fc}
0x37a6…37b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0106}
0x37b4…37be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0114}
0x37be…37ee Head {h00=0x002c, h01=0x0050, text=»* ATTACH A STRING ITEM AS A FIX BUFFER «, t00=0x0023, t01=0x011e}
0x37ee…3806 Head {h00=0x0014, h01=0x0050, text=»* TO A DATASET «, t00=0x0023, t01=0x014e}
0x3806…3836 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL ATTBUF,DSET,BUFFER «, t00=0x0023, t01=0x0166}
0x3836…3840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x3840…3854 Head {h00=0x0010, h01=0x0050, text=»ATTBUF EQU *«, t00=0x0024, t01=0x0012}
0x3854…3876 Head {h00=0x001e, h01=0x0050, text=» CALL T:FDSP DSET-ADDRESS «, t00=0x0024, t01=0x0026}
0x3876…388c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/4000«, t00=0x0024, t01=0x0048}
0x388c…38b4 Head {h00=0x0024, h01=0x0050, text=» ORRS A1,A8 INDICATE FIX BUFFER «, t00=0x0024, t01=0x005e}
0x38b4…38dc Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 GET BUFFER ADDRESS «, t00=0x0024, t01=0x0086}
0x38dc…3904 Head {h00=0x0024, h01=0x0050, text=» ST A9,2,A8 STORE BUFFER ADDRESS«, t00=0x0024, t01=0x00ae}
0x3904…3928 Head {h00=0x0020, h01=0x0050, text=» SUR A5,A9 CALCULATE LENGTH «, t00=0x0024, t01=0x00d6}
0x3928…394a Head {h00=0x001e, h01=0x0050, text=» ST A5,14,A8 STORE LENGTH «, t00=0x0024, t01=0x00fa}
0x394a…395e Head {h00=0x0010, h01=0x0050, text=»ATTRET EQU *«, t00=0x0024, t01=0x011c}
0x395e…396e Head {h00=0x000c, h01=0x0050, text=» RB RET «, t00=0x0024, t01=0x0130}
0x396e…397c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0140}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014e}
0x3986…39aa Head {h00=0x0020, h01=0x0050, text=»* TEST IF AN ITEM IS FORCED«, t00=0x0024, t01=0x0158}
0x39aa…39de Head {h00=0x0030, h01=0x0050, text=»* BCDITEM = RIGHTMOST DIGIT IS EQUAL TO /A«, t00=0x0024, t01=0x017c}
0x39de…3a12 Head {h00=0x0030, h01=0x0050, text=»* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' «, t00=0x0025, t01=0x0020}
0x3a12…3a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0054}
0x3a1c…3a4c Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: CALL FORCED,ITEM «, t00=0x0025, t01=0x005e}
0x3a4c…3a82 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: CR = 0 NOT FORCED«, t00=0x0025, t01=0x008e}
0x3a82…3ab4 Head {h00=0x002e, h01=0x0050, text=»* CR = 1 FORCED«, t00=0x0025, t01=0x00c4}
0x3ab4…3abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f6}
0x3abe…3ad2 Head {h00=0x0010, h01=0x0050, text=»FORCED EQU *«, t00=0x0025, t01=0x0100}
0x3ad2…3af8 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 GET ITEM ADDRESS «, t00=0x0025, t01=0x0114}
0x3af8…3b0c Head {h00=0x0010, h01=0x0050, text=» ANK A3,/30 «, t00=0x0025, t01=0x013a}
0x3b0c…3b34 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ALPHA JUMP IF STRING ITEM«, t00=0x0025, t01=0x014e}
0x3b34…3b4a Head {h00=0x0012, h01=0x0050, text=»* A BCD ITEM «, t00=0x0025, t01=0x0176}
0x3b4a…3b5e Head {h00=0x0010, h01=0x0050, text=» LC A3,-1,A5«, t00=0x0025, t01=0x018c}
0x3b5e…3b84 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/F GET RIGHTMOST DIGIT«, t00=0x0026, t01=0x0010}
0x3b84…3b96 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0026, t01=0x0036}
0x3b96…3baa Head {h00=0x0010, h01=0x0050, text=»FOR100 EQU *«, t00=0x0026, t01=0x0048}
0x3baa…3bce Head {h00=0x0020, h01=0x0050, text=» RF(Z) NOTFND JUMP IF FORCED«, t00=0x0026, t01=0x005c}
0x3bce…3bea Head {h00=0x0018, h01=0x0050, text=» RF UT150 NOT FORCED«, t00=0x0026, t01=0x0080}
0x3bea…3bfe Head {h00=0x0010, h01=0x0050, text=»ALPHA EQU * «, t00=0x0026, t01=0x009c}
0x3bfe…3c28 Head {h00=0x0026, h01=0x0050, text=» LCR A3,A9 GET LEFTMOST CHARACTER «, t00=0x0026, t01=0x00b0}
0x3c28…3c3c Head {h00=0x0010, h01=0x0050, text=» SUK A3,'?' «, t00=0x0026, t01=0x00da}
0x3c3c…3c4e Head {h00=0x000e, h01=0x0050, text=» RB FOR100«, t00=0x0026, t01=0x00ee}
0x3c4e…3c5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0100}
0x3c5c…3c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010e}
0x3c66…3c86 Head {h00=0x001c, h01=0x0050, text=»* GET VALIDATION STRING«, t00=0x0026, t01=0x0118}
0x3c86…3cbe Head {h00=0x0034, h01=0x0050, text=»* SYNTAX: CALL GETVAL,PSTRT,PLEN,BUFFX,START,LEN«, t00=0x0026, t01=0x0138}
0x3cbe…3cee Head {h00=0x002c, h01=0x0050, text=»* INPUT: PSTRT = POOLSTART (BPOOL(W1))«, t00=0x0026, t01=0x0170}
0x3cee…3d1e Head {h00=0x002c, h01=0x0050, text=»* PLEN = POOL UNIT LENGT (BIN)«, t00=0x0027, t01=0x0010}
0x3d1e…3d56 Head {h00=0x0034, h01=0x0050, text=»* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN)«, t00=0x0027, t01=0x0040}
0x3d56…3d98 Head {h00=0x003e, h01=0x0050, text=»* START = POINTER TO STRING WIN CURRENT POOL UNIT«, t00=0x0027, t01=0x0078}
0x3d98…3dca Head {h00=0x002e, h01=0x0050, text=»* LEN = LENGTh OF FOUND STRING «, t00=0x0027, t01=0x00ba}
0x3dca…3dfa Head {h00=0x002c, h01=0x0050, text=»* CR = 0 IF STRING IS FOUND «, t00=0x0027, t01=0x00ec}
0x3dfa…3e2e Head {h00=0x0030, h01=0x0050, text=»* CR = 1 IF STRING IS NOT FOUND «, t00=0x0027, t01=0x011c}
0x3e2e…3e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0150}
0x3e38…3e4c Head {h00=0x0010, h01=0x0050, text=»GETVAL EQU *«, t00=0x0027, t01=0x015a}
0x3e4c…3e80 Head {h00=0x0030, h01=0x0050, text=» LDK A7,FVAL INDICATE SEARCH FOR VALIDATION «, t00=0x0027, t01=0x016e}
0x3e80…3e94 Head {h00=0x0010, h01=0x0050, text=»VAL100 EQU *«, t00=0x0028, t01=0x0012}
0x3e94…3eb0 Head {h00=0x0018, h01=0x0050, text=» LDR A10,A12 SAVE PP«, t00=0x0028, t01=0x0026}
0x3eb0…3ec8 Head {h00=0x0014, h01=0x0050, text=» LD* A11,-8,A13 «, t00=0x0028, t01=0x0042}
0x3ec8…3eec Head {h00=0x0020, h01=0x0050, text=» ADR A11,A13 GET FCB-ADDRESS«, t00=0x0028, t01=0x005a}
0x3eec…3f14 Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A11 GET ADDRESS TO ITEM«, t00=0x0028, t01=0x007e}
0x3f14…3f46 Head {h00=0x002e, h01=0x0050, text=» ADKL A6,P:BAS+2 GET START SEARCH ADDRESS «, t00=0x0028, t01=0x00a6}
0x3f46…3f5a Head {h00=0x0010, h01=0x0050, text=»VAL150 EQU *«, t00=0x0028, t01=0x00d8}
0x3f5a…3f7c Head {h00=0x001e, h01=0x0050, text=» LCR A1,A6 GET FORMAT CODE«, t00=0x0028, t01=0x00ec}
0x3f7c…3fa0 Head {h00=0x0020, h01=0x0050, text=» ADK A6,1 INCREMENT POINTER «, t00=0x0028, t01=0x010e}
0x3fa0…3fb4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0028, t01=0x0132}
0x3fb4…3fc8 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FVAL«, t00=0x0028, t01=0x0146}
0x3fc8…3fde Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0028, t01=0x015a}
0x3fde…3ff2 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FACC«, t00=0x0028, t01=0x0170}
0x3ff2…4008 Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0028, t01=0x0184}
0x4008…401c Head {h00=0x0010, h01=0x0050, text=» CWK A1,FGEN«, t00=0x0029, t01=0x000a}
0x401c…4032 Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0029, t01=0x001e}
0x4032…4046 Head {h00=0x0010, h01=0x0050, text=» CWK A1,FDUP«, t00=0x0029, t01=0x0034}
0x4046…405c Head {h00=0x0012, h01=0x0050, text=» RF(E) VAL300 «, t00=0x0029, t01=0x0048}
0x405c…4072 Head {h00=0x0012, h01=0x0050, text=» SUK A1,FLINK «, t00=0x0029, t01=0x005e}
0x4072…4096 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VAL200 IF NOT FLINK «, t00=0x0029, t01=0x0074}
0x4096…40a6 Head {h00=0x000c, h01=0x0050, text=»* FLINK«, t00=0x0029, t01=0x0098}
0x40a6…40d2 Head {h00=0x0028, h01=0x0050, text=» LDR A12,A6 UPDATE PP TO FLINK-ITEM «, t00=0x0029, t01=0x00a8}
0x40d2…4100 Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO NEXT POOL UNIT«, t00=0x0029, t01=0x00d4}
0x4100…4120 Head {h00=0x001c, h01=0x0050, text=» LDR A12,A10 RESTORE PP «, t00=0x0029, t01=0x0102}
0x4120…4148 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A9 UPDATE FORMAT POINTER«, t00=0x0029, t01=0x0122}
0x4148…4164 Head {h00=0x0018, h01=0x0050, text=» RB VAL150 CONTINUE «, t00=0x0029, t01=0x014a}
0x4164…4188 Head {h00=0x0020, h01=0x0050, text=»* WANTED STRING IS NOT FOUND«, t00=0x0029, t01=0x0166}
0x4188…419c Head {h00=0x0010, h01=0x0050, text=»VAL200 EQU *«, t00=0x0029, t01=0x018a}
0x419c…41c0 Head {h00=0x0020, h01=0x0050, text=» LDK A6,0 INDICATE NOT FOUND«, t00=0x002a, t01=0x000e}
0x41c0…41d0 Head {h00=0x000c, h01=0x0050, text=» RF OUT «, t00=0x002a, t01=0x0032}
0x41d0…41ec Head {h00=0x0018, h01=0x0050, text=»* FVAL,FACC OR FGEN «, t00=0x002a, t01=0x0042}
0x41ec…4200 Head {h00=0x0010, h01=0x0050, text=»VAL300 EQU *«, t00=0x002a, t01=0x005e}
0x4200…4212 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A7«, t00=0x002a, t01=0x0072}
0x4212…4232 Head {h00=0x001c, h01=0x0050, text=» RF(E) OUT JUMP IF FOUND«, t00=0x002a, t01=0x0084}
0x4232…4250 Head {h00=0x001a, h01=0x0050, text=» LCR A1,A6 GET COUNTER«, t00=0x002a, t01=0x00a4}
0x4250…4278 Head {h00=0x0024, h01=0x0050, text=» ADR A6,A1 UPDATE FORMAT POINTER«, t00=0x002a, t01=0x00c2}
0x4278…428a Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002a, t01=0x00ea}
0x428a…42a6 Head {h00=0x0018, h01=0x0050, text=» RB VAL150 CONTINUE «, t00=0x002a, t01=0x00fc}
0x42a6…42b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0118}
0x42b0…42ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0122}
0x42ba…42cc Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x002a, t01=0x012c}
0x42cc…42f0 Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 GET POOL START «, t00=0x002a, t01=0x013e}
0x42f0…4314 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A9 SAVE POOL START «, t00=0x002a, t01=0x0162}
0x4314…4332 Head {h00=0x001a, h01=0x0050, text=» SUR A5,A9 GET LENGTH «, t00=0x002a, t01=0x0186}
0x4332…4356 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A5 SAVE POOL LENGTH«, t00=0x002b, t01=0x0014}
0x4356…437e Head {h00=0x0024, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO BUFFIND «, t00=0x002b, t01=0x0038}
0x437e…439e Head {h00=0x001c, h01=0x0050, text=» LDR A7,A9 SAVE ADDRESS «, t00=0x002b, t01=0x0060}
0x439e…43cc Head {h00=0x002a, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO START POINTER «, t00=0x002b, t01=0x0080}
0x43cc…43ec Head {h00=0x001c, h01=0x0050, text=» LDR A8,A9 SAVE ADDRESS «, t00=0x002b, t01=0x00ae}
0x43ec…4412 Head {h00=0x0022, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTh«, t00=0x002b, t01=0x00ce}
0x4412…4424 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A6«, t00=0x002b, t01=0x00f4}
0x4424…4446 Head {h00=0x001e, h01=0x0050, text=» RF(Z) NOTFND IF NOT FOUND«, t00=0x002b, t01=0x0106}
0x4446…4464 Head {h00=0x001a, h01=0x0050, text=» LCR A3,A6 GET LENGTh «, t00=0x002b, t01=0x0128}
0x4464…4478 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002b, t01=0x0146}
0x4478…448a Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002b, t01=0x015a}
0x448a…44aa Head {h00=0x001c, h01=0x0050, text=» STR A3,A9 STORE LENGTh «, t00=0x002b, t01=0x016c}
0x44aa…44d0 Head {h00=0x0022, h01=0x0050, text=» SUR A6,A10 GET RELATIVE LENGT«, t00=0x002b, t01=0x018c}
0x44d0…44e2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x0022}
0x44e2…44f6 Head {h00=0x0010, h01=0x0050, text=»UT100 EQU * «, t00=0x002c, t01=0x0034}
0x44f6…4508 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002c, t01=0x0048}
0x4508…452e Head {h00=0x0022, h01=0x0050, text=» SUR A6,A11 SUB WIF POOL-LENGF«, t00=0x002c, t01=0x005a}
0x452e…4558 Head {h00=0x0026, h01=0x0050, text=» RB(P) UT100 CONTINUE IF POSITIVE «, t00=0x002c, t01=0x0080}
0x4558…4586 Head {h00=0x002a, h01=0x0050, text=» ADR A6,A11 RESTORE RELATIVE POSITION «, t00=0x002c, t01=0x00aa}
0x4586…45b2 Head {h00=0x0028, h01=0x0050, text=» STR A1,A7 STORE BUFFER UNIT NUMBER «, t00=0x002c, t01=0x00d8}
0x45b2…45d8 Head {h00=0x0022, h01=0x0050, text=» STR A6,A8 STORE START POINTER«, t00=0x002c, t01=0x0104}
0x45d8…45ec Head {h00=0x0010, h01=0x0050, text=»EQUAL EQU * «, t00=0x002c, t01=0x012a}
0x45ec…4600 Head {h00=0x0010, h01=0x0050, text=»UT150 EQU * «, t00=0x002c, t01=0x013e}
0x4600…4622 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 INDICATE CR = 0 «, t00=0x002c, t01=0x0152}
0x4622…4636 Head {h00=0x0010, h01=0x0050, text=»UT200 EQU * «, t00=0x002c, t01=0x0174}
0x4636…465e Head {h00=0x0024, h01=0x0050, text=» ABL SETB40 STORE CR AND RETURN «, t00=0x002c, t01=0x0188}
0x465e…4672 Head {h00=0x0010, h01=0x0050, text=»GREAT EQU * «, t00=0x002d, t01=0x0020}
0x4672…4686 Head {h00=0x0010, h01=0x0050, text=»NOTFND EQU *«, t00=0x002d, t01=0x0034}
0x4686…46a8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 INDICATE CR = 1 «, t00=0x002d, t01=0x0048}
0x46a8…46ce Head {h00=0x0022, h01=0x0050, text=» RB UT200 STORE CR AND RETURN «, t00=0x002d, t01=0x006a}
0x46ce…46e0 Head {h00=0x000e, h01=0x0050, text=»LESS EQU *«, t00=0x002d, t01=0x0090}
0x46e0…46f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x002d, t01=0x00a2}
0x46f2…4704 Head {h00=0x000e, h01=0x0050, text=» RB UT200 «, t00=0x002d, t01=0x00b4}
0x4704…4712 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00c6}
0x4712…471c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d4}
0x471c…473e Head {h00=0x001e, h01=0x0050, text=»* GET ACCUMULATION STRING«, t00=0x002d, t01=0x00de}
0x473e…4760 Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002d, t01=0x0100}
0x4760…476a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0122}
0x476a…477e Head {h00=0x0010, h01=0x0050, text=»GETACC EQU *«, t00=0x002d, t01=0x012c}
0x477e…47b0 Head {h00=0x002e, h01=0x0050, text=» LDK A7,FACC INDICATE ACCUMULATION STRING «, t00=0x002d, t01=0x0140}
0x47b0…47d2 Head {h00=0x001e, h01=0x0050, text=» RB VAL100 START TO SEARCH«, t00=0x002d, t01=0x0172}
0x47d2…47dc (46, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0004}
0x47dc…47e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000e}
0x47e6…4806 Head {h00=0x001c, h01=0x0050, text=»* GET GENERATION STRING«, t00=0x002e, t01=0x0018}
0x4806…4828 Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002e, t01=0x0038}
0x4828…4832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005a}
0x4832…4846 Head {h00=0x0010, h01=0x0050, text=»GETGEN EQU *«, t00=0x002e, t01=0x0064}
0x4846…4876 Head {h00=0x002c, h01=0x0050, text=» LDK A7,FGEN INDICATE GENERATION STRING «, t00=0x002e, t01=0x0078}
0x4876…4898 Head {h00=0x001e, h01=0x0050, text=» RB VAL100 START TO SEARC «, t00=0x002e, t01=0x00a8}
0x4898…48a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ca}
0x48a2…48aa Head {h00=0x0004, h01=0x0050, t00=0x002e, t01=0x00d4}
0x48aa…48cc Head {h00=0x001e, h01=0x0050, text=»* GET DUPLICATION STRING «, t00=0x002e, t01=0x00dc}
0x48cc…48ee Head {h00=0x001e, h01=0x0050, text=»* SEE UNDER GETVAL ABOVE «, t00=0x002e, t01=0x00fe}
0x48ee…48f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0120}
0x48f8…490c Head {h00=0x0010, h01=0x0050, text=»GETDUP EQU *«, t00=0x002e, t01=0x012a}
0x490c…4920 Head {h00=0x0010, h01=0x0050, text=» LDK A7,FDUP«, t00=0x002e, t01=0x013e}
0x4920…4932 Head {h00=0x000e, h01=0x0050, text=» RB VAL100«, t00=0x002e, t01=0x0152}
0x4932…493c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0164}
0x493c…494a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x016e}
0x494a…4954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017c}
0x4954…498c Head {h00=0x0034, h01=0x0050, text=»* GET DIMENSION OF INDEXED VARIABLE AND LENGTH«, t00=0x002e, t01=0x0186}
0x498c…4996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x4996…49d8 Head {h00=0x003e, h01=0x0050, text=»* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION«, t00=0x002f, t01=0x0038}
0x49d8…49e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49e2…4a20 Head {h00=0x003a, h01=0x0050, text=»* ITEM(W1) = CURRENT ITEM«, t00=0x002f, t01=0x0084}
0x4a20…4a6a Head {h00=0x0046, h01=0x0050, text=»* LENGTH = BIN HOLDING ITEM LENGTH «, t00=0x002f, t01=0x00c2}
0x4a6a…4ab2 Head {h00=0x0044, h01=0x0050, text=»* DIMENSION = BIN HOLDING DIMENSION «, t00=0x002f, t01=0x010c}
0x4ab2…4af8 Head {h00=0x0042, h01=0x0050, text=»* (NUMBER OF ELEMENTS)«, t00=0x002f, t01=0x0154}
0x4af8…4b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000a}
0x4b02…4b16 Head {h00=0x0010, h01=0x0050, text=»GETIND EQU *«, t00=0x0030, t01=0x0014}
0x4b16…4b3a Head {h00=0x0020, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO ITEM«, t00=0x0030, t01=0x0028}
0x4b3a…4b72 Head {h00=0x0034, h01=0x0050, text=» LD A10,I:EVA0-2 READ DIMENSION STORED BYE I:EVA«, t00=0x0030, t01=0x004c}
0x4b72…4b96 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A5 COPY END ADDRESS «, t00=0x0030, t01=0x0084}
0x4b96…4bbe Head {h00=0x0024, h01=0x0050, text=» SUR A7,A9 CALCULATE ITEM LENGTH«, t00=0x0030, t01=0x00a8}
0x4bbe…4bea Head {h00=0x0028, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO LENGTH ITEM «, t00=0x0030, t01=0x00d0}
0x4bea…4c0a Head {h00=0x001c, h01=0x0050, text=» STR A7,A9 STORE LENGTH «, t00=0x0030, t01=0x00fc}
0x4c0a…4c34 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 ADDRESS TO DIMENSION «, t00=0x0030, t01=0x011c}
0x4c34…4c56 Head {h00=0x001e, h01=0x0050, text=» STR A10,A9 STORE IN ITEM «, t00=0x0030, t01=0x0146}
0x4c56…4c7a Head {h00=0x0020, h01=0x0050, text=» RB ATTRET RETURN TO CALLER «, t00=0x0030, t01=0x0168}
0x4c7a…4c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018c}
0x4c84…4c92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0008}
0x4c92…4c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0016}
0x4c9c…4cde Head {h00=0x003e, h01=0x0050, text=»* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM «, t00=0x0031, t01=0x0020}
0x4cde…4ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0062}
0x4ce8…4d26 Head {h00=0x003a, h01=0x0050, text=»* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) «, t00=0x0031, t01=0x006c}
0x4d26…4d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00aa}
0x4d30…4d76 Head {h00=0x0042, h01=0x0050, text=»* OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM«, t00=0x0031, t01=0x00b4}
0x4d76…4dbc Head {h00=0x0042, h01=0x0050, text=»* CR = 1 IF INDEX>MAX. INDEX OF ITEM«, t00=0x0031, t01=0x00fa}
0x4dbc…4e04 Head {h00=0x0044, h01=0x0050, text=»* CR = 2 IF INDEX<MAX. INDEX OF ITEM «, t00=0x0031, t01=0x0140}
0x4e04…4e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0188}
0x4e0e…4e16 (50, 2, 292) Head {h00=0x0004, h01=0x0050, t00=0x0032, t01=0x0004}
0x4e16…4e2a Head {h00=0x0010, h01=0x0050, text=»CMPIND EQU *«, t00=0x0032, t01=0x000c}
0x4e2a…4e54 Head {h00=0x0026, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS TO INDEX «, t00=0x0032, t01=0x0020}
0x4e54…4e78 Head {h00=0x0020, h01=0x0050, text=» LDR* A6,A9 SAVE INDEX VALUE«, t00=0x0032, t01=0x004a}
0x4e78…4eae Head {h00=0x0032, h01=0x0050, text=» CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM«, t00=0x0032, t01=0x006e}
0x4eae…4edc Head {h00=0x002a, h01=0x0050, text=» CW A6,I:EVA0-2 COMPARE WITH DIMENSION«, t00=0x0032, t01=0x00a4}
0x4edc…4ef0 Head {h00=0x0010, h01=0x0050, text=» RB(E) EQUAL«, t00=0x0032, t01=0x00d2}
0x4ef0…4f04 Head {h00=0x0010, h01=0x0050, text=» RB(G) GREAT«, t00=0x0032, t01=0x00e6}
0x4f04…4f14 Head {h00=0x000c, h01=0x0050, text=» RB LESS«, t00=0x0032, t01=0x00fa}
0x4f14…4f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x010a}
0x4f1e…4f2a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0032, t01=0x0114}
0x4f2a…4f2e Head {h00=0x4004, h01=0x0000}
0x4f2e…4f32 00 32 01 20 ┆ 2 ┆
0x4f32…4f3a (51, 1, 8) 20 04 00 00 00 33 00 04 ┆ 3 ┆
0x4f3a…4f8a (52, 0, 400) 00 03 01 70 00 2a 00 50 5c 43 42 45 5c 53 54 52 31 41 2c 3d 43 27 33 27 2c 41 4f 4b 5c 55 53 45 52 44 45 46 49 4e 45 44 2d 46 49 4c 45 20 00 04 00 08 00 0a 00 50 5c 42 5c 41 36 45 00 04 00 36 00 08 00 50 41 32 31 20 00 04 00 44 00 28 00 50 ┆ p * P CBE STR1A,=C'3',AOK USERDEFINED-FILE P B A6E 6 PA21 D ( P┆
0x4f8a…4fda 5c 43 42 45 5c 50 52 4e 55 4d 2c 3d 44 27 33 27 2c 41 4f 4b 5c 49 46 20 44 45 4c 45 54 45 20 46 49 4c 45 20 00 04 00 50 00 1a 00 50 5c 43 42 45 5c 56 4f 4c 4e 41 4d 2c 53 59 53 56 4f 4c 2c 41 4f 4b 00 04 00 7c 00 28 00 50 5c 42 5c 41 31 31 ┆ CBE PRNUM,=D'3',AOK IF DELETE FILE P P CBE VOLNAM,SYSVOL,AOK | ( P B A11┆
0x4fda…502a 45 5c 27 56 4f 4c 2d 4e 41 4d 45 20 4d 55 53 54 20 42 45 20 22 53 59 53 56 4f 4c 22 27 20 00 04 00 9a 00 0a 00 50 5c 45 4a 45 43 54 00 04 00 c6 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆E 'VOL-NAME MUST BE "SYSVOL"' P EJECT $ P****************************┆
0x502a…507a 2a 2a 2a 2a 00 04 00 d4 00 22 00 50 2a 20 20 4e 4f 2e 20 4f 46 20 52 45 43 4f 52 44 53 20 2d 20 53 59 53 54 45 4d 46 49 4c 45 00 04 00 fc 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆**** " P* NO. OF RECORDS - SYSTEMFILE $ P******************************┆
0x507a…50ca 2a 2a 00 04 01 22 00 06 00 50 41 33 00 04 01 4a 00 18 00 50 5c 4d 4f 56 45 5c 42 43 44 31 33 41 2c 44 45 49 4e 50 55 54 00 04 01 54 00 36 00 50 5c 43 42 47 5c 42 43 44 31 33 41 2c 3d 44 27 33 32 37 36 37 27 2c 41 36 45 5c 4d 41 58 2e 56 41 ┆** " PA3 J P MOVE BCD13A,DEINPUT T 6 P CBG BCD13A,=D'32767',A6E MAX.VA┆