|
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: 10826 (0x2a4a)
Notes: pts_type(SC)
Names: »LOGINP.SC«
└─⟦fce1dcf99⟧ Bits:30009704 Philips computer tape "KMD15"
└─⟦this⟧ »LINSPY/LOGINP.SC«
IDENT LOGINP REL 1.1 78-04-21 870150140110 * * * TASK FOR LINE INPUT * * ENTRY LOGINP * * * EXTERNAL REFERENCES * * EXTRN MOL OWN LINE MESSAGES EXTRN MBL BEGIN OF LINE MESSAGES EXTRN TAB1 CHAR TABLE 1 EXTRN TAB2 CHAR TABLE 2 EXTRN PRPOOL PRINTER OCCUPIED BUFFER ADDRESSS EXTRN EBASC * * * * RELATIVE ECB EQUATES * * ECBBA EQU 2 ECBRL EQU 4 ECBEL EQU 6 ECBRC EQU 8 ECBCW EQU /A * RES 20 A14 STACK STB EQU *-2 PROCCA DATA 0 ADDRESS TO PRINTER OCCUPIED BUFFER EJECT * * * INITIALIZE SYSTEM * * A9=BUFFER POINTER * A10=CHARACTER COUNTER * * LOGINP LDKL A14,STB LOAD STACK BASE SUR A10,A10 RESET CHARACTER COUNTER LDK A1,2 ST A1,PRECBL EMPTY PRINTER BUFFER LDK A1,1 ST A1,XSPACE SET SPACE INDICATOR EJECT * * * EDIT CHARACTERS FROM LINE * * EDIT CF A14,GETCH GET CHARACTER ED100 EQU * RF(P) ED600 COMMENT RF(N) ED700 COUNTER CWK A7,/FF RF(E) ED500 MARK HOLD PRINT LINE LD A2,EBASC RF(Z) ED200 EBCDIC-CODE CF A14,STAB2 SEARCH FOR ASCII RF(Z) ED400 FOUND RF ED300 ED200 EQU * CF A14,STAB1 SEARCH FOR EBCDIC RF(Z) ED400 FOUND ED300 EQU * CF A14,EDHEX EDIT IN HEXADECIMAL ED400 EQU * LDK A2,100 CW A2,PRECBL RB(G) EDIT LINE NOT FULL ED500 EQU * CF A14,PRLINE PRINT ONE LINE CF A14,CRLF RB EDIT EJECT ED600 EQU * CF A14,CRLF COMMENT FOUND CF A14,PRTEXT RB EDIT ED700 EQU * CF A14,EDDEC CONVERT COUNTER TO DECIMAL CF A14,PRLINE PRINT COUNTER RB EDIT EJECT * * * PRINT TEXT ON PRINTER * * A7 CONTAINS CONTROL CHARACTER * * PRTEXT LDR A6,A7 SAVE CHARACTER CF A14,PRLINE RELEASE PRINT BUFFER ADR A6,A6 DOUBLE FOR INDEXING ANK A6,/FF LDR A2,A6 ANK A2,/7F LD A3,MOL,A2 GET TEXT ADDRESS CWR A2,A6 RF(NE) PRT100 OWN LINE TEXT LD A3,MBL,A2 BEGINNING OF LINE PRT100 LDR* A4,A3 GET TEXT LENGTH CWK A1,100 RF(G) PRT130 INVALID LENGTH: SKIP TEXT ADK A3,2 SKIP LENGTH PRT110 SUK A4,1 RF(N) PRT120 ALL MOVED LCR A1,A3 ADK A3,1 CF A14,STORE RB PRT110 PRT120 ANK A6,/80 RF(Z) PRT130 BEGINNING OF LINE CF A14,PRLINE PRINT OWN LINE PRT130 RTN A14 EJECT * * * PRINT ONE LINE ON PRINTER * * PRLINE LDK A1,2 CW A1,PRECBL RF(E) PRLI10 NOTHING IN BUFFER LDK A7,1 LKM DATA -7,PRPOOL OCCUPIE PRINTER ST A8,PROCCA SAVE BUFFER ADDRESS LDK A7,/86 STD WRITE AND WAIT LDKL A8,PRECB LKM DATA 1 LD A8,PROCCA RESTORE BUFFER ADDRESS RF(Z) PRLI05 NO BUFFER LKM DATA -8,PRPOOL RELEASE PRINTER CM PROCCA PRLI05 EQU * ST A1,PRECBL RESET LENGTH LDK A1,1 ST A1,XSPACE SET SPACE INDICATOR PRLI10 RTN A14 PRECB DATA /31,PRBUF,2,0,0,0 PRECBL EQU PRECB+4 REQUESTED LENGTH PRBUF DATA 0 CONTROL WORD RES 60 EJECT * * * GET ONE CHARACTER FROM LINE TO A7 * CR=0 IF NORMAL CHARACTER * CR=1 IF COMMENT CHARACTER * * GETCH SUKL A10,1 RF(NN) GETCH1 FETCH FROM BUFFER LDK A7,/81 READ NEW BUFFER LDKL A8,LGECB LKM DATA 1 LD A10,ECBEL,A8 GET EFFECTIVE LENGTH SUKL A10,1 LD A9,ECBBA,A8 GET BUFFER ADDRESS GETCH1 LCR A7,A9 LOAD CHARACTER ADKL A9,1 INCREMENT POINTER LC A1,ECBRC,A8 ADKL A14,4 SKIP STACK FOR RETURN ANK A1,/20 RF(NZ) GETCH2 COMMENT OR COUNTER ABR* A14 EJECT GETCH2 LDK A1,/80 TM A1,A7 RF(Z) GETCH3 COMMENT ANK A7,/7F COUNTER SLL A7,8 LCR A7,A9 GET NEXT DIGIT SUR A10,A10 LDK A1,0 GETCH3 SUK A1,1 SET CR ABR* A14 * LGECB DATA /60,LGBUF,20,0,0,0 LGBUF RES 20 EJECT * * * EDIT CHAR FROM A7 IN HEXADECIMAL FORM * * EDHEX CF A14,SPACE LDK A1,'/' CF A14,STORE LDR A1,A7 SRL A1,4 ANK A1,/F LC A1,HEXTAB,A1 CF A14,STORE 1ST CHAR LDR A1,A7 ANK A1,/F LC A1,HEXTAB,A1 CF A14,STORE 2ND CHAR CF A14,SPACE SPACE RTN A14 HEXTAB DATA '0123456789ABCDEF' EJECT * * * STORE CHAR FROM A1 IN PRINT BUFFER * * STORE LD A2,PRECBL SC A1,PRBUF,A2 IM PRECBL LDK A1,0 ST A1,XSPACE RTN A14 EJECT * * * EDIT CHARACTER DECIMAL FROM A7 * * EDDEC LDK A4,0 RESET INDEX LDK A5,0 EDD100 LDK A1,'0' ASCII ZERO AT START EDD110 CW A7,DECADE,A4 RF(L) EDD200 NO MORE SUBTRACTIONS SU A7,DECADE,A4 SUBTRACT AND INCREMENT ADK A1,1 RB EDD110 EDD200 EQU * CWK A1,'0' RF(NZ) EDD250 NOT ASCII ZERO LDR A5,A5 RF(Z) EDD300 LEADING ZERO EDD250 EQU * ADK A5,1 CF A14,STORE STORE DIGIT EDD300 EQU * ADK A4,2 CWK A4,10 RB(NE) EDD100 NEXT DIGIT RTN A14 CONVERSION DONE DECADE DATA 10000,1000,100,10,1 EJECT * * * SEARCH FOR A7 CHAR IN TABLE 1 * * CR=1 IF NOT FOUND * CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER * * STAB1 EQU * LDK A5,0 RF STAB20 EJECT * * * SEARCH FRO A7 CHAR IN TABLE 2 * * CR=1 IF NOT FOUND * CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER * * STAB2 EQU * LDK A5,1 STAB20 EQU * LDK A4,3 LDK A1,1 CR IF NOT FOUND STAB40 LDR A5,A5 RF(Z) STAB41 CW A4,TAB2 RF(G) STAB80 END OF TABLE CC A7,TAB2,A4 RF(E) STAB50 FOUND RF STAB42 STAB41 CW A4,TAB1 RF(G) STAB80 END OF TABLE CC A7,TAB1,A4 RF(E) STAB50 FOUND STAB42 EQU * ADK A4,4 RB STAB40 NEXT CHAR STAB50 CF A14,SPACE LDR A5,A5 RF(NZ) STAB51 LD A3,TAB1+1,A4 GET STRING ADDRESS RF STAB52 STAB51 EQU * LD A3,TAB2+1,A4 GET STRING ADDRESS STAB52 EQU * LDR* A4,A3 GET LENGTH ADK A3,2 STAB60 SUK A4,1 RF(N) STAB70 LCR A1,A3 MOVE TEXT ADK A3,1 CF A14,STORE RB STAB60 STAB70 CF A14,SPACE SPACE LDK A1,0 STAB80 EQU * LC A2,2,A14 SET CR FOR RETURN ANK A2,/FC ANK A1,3 ADR A1,A2 SC A1,2,A14 RTN A14 EJECT * * * PUT SPACE IN BUFFER * * SPACE LD A1,XSPACE RF(NZ) SPA100 LDK A1,/20 CF A14,STORE IM XSPACE SPA100 RTN A14 XSPACE DATA 0 SPACE INDICATOR * * * CRLF IN BUFFER * * CRLF EQU * CF A14,SPACE LDK A1,/0D CF A14,STORE LDK A1,/0A CF A14,SPACE RTN A14 ** * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT LOGINP REL 1.1 78-04-21 870150140110«, t00=0x0000, t01=0x0004}
0x0034…003e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0066 Head {h00=0x001a, h01=0x0050, text=»* TASK FOR LINE INPUT «, t00=0x0000, t01=0x004c}
0x0066…0070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006a}
0x0070…007a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0074}
0x007a…0090 Head {h00=0x0012, h01=0x0050, text=» ENTRY LOGINP «, t00=0x0000, t01=0x007e}
0x0090…009a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0094}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00c2 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL REFERENCES «, t00=0x0000, t01=0x00a8}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x00d6…00fa Head {h00=0x0020, h01=0x0050, text=» EXTRN MOL OWN LINE MESSAGES«, t00=0x0000, t01=0x00da}
0x00fa…0124 Head {h00=0x0026, h01=0x0050, text=» EXTRN MBL BEGIN OF LINE MESSAGES «, t00=0x0000, t01=0x00fe}
0x0124…0144 Head {h00=0x001c, h01=0x0050, text=» EXTRN TAB1 CHAR TABLE 1«, t00=0x0000, t01=0x0128}
0x0144…0164 Head {h00=0x001c, h01=0x0050, text=» EXTRN TAB2 CHAR TABLE 2«, t00=0x0000, t01=0x0148}
0x0164…019a Head {h00=0x0032, h01=0x0050, text=» EXTRN PRPOOL PRINTER OCCUPIED BUFFER ADDRESSS«, t00=0x0000, t01=0x0168}
0x019a…01ae Head {h00=0x0010, h01=0x0050, text=» EXTRN EBASC«, t00=0x0001, t01=0x000e}
0x01ae…01b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…01ea Head {h00=0x001a, h01=0x0050, text=»* RELATIVE ECB EQUATES«, t00=0x0001, t01=0x0040}
0x01ea…01f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0212 Head {h00=0x0010, h01=0x0050, text=»ECBBA EQU 2 «, t00=0x0001, t01=0x0072}
0x0212…0226 Head {h00=0x0010, h01=0x0050, text=»ECBRL EQU 4 «, t00=0x0001, t01=0x0086}
0x0226…023a Head {h00=0x0010, h01=0x0050, text=»ECBEL EQU 6 «, t00=0x0001, t01=0x009a}
0x023a…024e Head {h00=0x0010, h01=0x0050, text=»ECBRC EQU 8 «, t00=0x0001, t01=0x00ae}
0x024e…0262 Head {h00=0x0010, h01=0x0050, text=»ECBCW EQU /A«, t00=0x0001, t01=0x00c2}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…0286 Head {h00=0x0016, h01=0x0050, text=» RES 20 A14 STACK «, t00=0x0001, t01=0x00e0}
0x0286…029a Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x0001, t01=0x00fa}
0x029a…02d2 Head {h00=0x0034, h01=0x0050, text=»PROCCA DATA 0 ADDRESS TO PRINTER OCCUPIED BUFFER«, t00=0x0001, t01=0x010e}
0x02d2…02e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0146}
0x02e0…02ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…02f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f4…0310 Head {h00=0x0018, h01=0x0050, text=»* INITIALIZE SYSTEM «, t00=0x0001, t01=0x0168}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0336 Head {h00=0x0018, h01=0x0050, text=»* A9=BUFFER POINTER «, t00=0x0001, t01=0x018e}
0x0336…0356 Head {h00=0x001c, h01=0x0050, text=»* A10=CHARACTER COUNTER «, t00=0x0002, t01=0x001a}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003a}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0044}
0x036a…0396 Head {h00=0x0028, h01=0x0050, text=»LOGINP LDKL A14,STB LOAD STACK BASE «, t00=0x0002, t01=0x004e}
0x0396…03c2 Head {h00=0x0028, h01=0x0050, text=» SUR A10,A10 RESET CHARACTER COUNTER«, t00=0x0002, t01=0x007a}
0x03c2…03d4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0002, t01=0x00a6}
0x03d4…03fe Head {h00=0x0026, h01=0x0050, text=» ST A1,PRECBL EMPTY PRINTER BUFFER«, t00=0x0002, t01=0x00b8}
0x03fe…0410 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0002, t01=0x00e2}
0x0410…043a Head {h00=0x0026, h01=0x0050, text=» ST A1,XSPACE SET SPACE INDICATOR «, t00=0x0002, t01=0x00f4}
0x043a…0448 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x011e}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045c…0480 Head {h00=0x0020, h01=0x0050, text=»* EDIT CHARACTERS FROM LINE «, t00=0x0002, t01=0x0140}
0x0480…048a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0164}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0494…04bc Head {h00=0x0024, h01=0x0050, text=»EDIT CF A14,GETCH GET CHARACTER «, t00=0x0002, t01=0x0178}
0x04bc…04d0 Head {h00=0x0010, h01=0x0050, text=»ED100 EQU * «, t00=0x0003, t01=0x0010}
0x04d0…04ec Head {h00=0x0018, h01=0x0050, text=» RF(P) ED600 COMMENT«, t00=0x0003, t01=0x0024}
0x04ec…0508 Head {h00=0x0018, h01=0x0050, text=» RF(N) ED700 COUNTER«, t00=0x0003, t01=0x0040}
0x0508…051c Head {h00=0x0010, h01=0x0050, text=» CWK A7,/FF «, t00=0x0003, t01=0x005c}
0x051c…0546 Head {h00=0x0026, h01=0x0050, text=» RF(E) ED500 MARK HOLD PRINT LINE «, t00=0x0003, t01=0x0070}
0x0546…055a Head {h00=0x0010, h01=0x0050, text=» LD A2,EBASC«, t00=0x0003, t01=0x009a}
0x055a…057a Head {h00=0x001c, h01=0x0050, text=» RF(Z) ED200 EBCDIC-CODE«, t00=0x0003, t01=0x00ae}
0x057a…05a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,STAB2 SEARCH FOR ASCII«, t00=0x0003, t01=0x00ce}
0x05a0…05ba Head {h00=0x0016, h01=0x0050, text=» RF(Z) ED400 FOUND«, t00=0x0003, t01=0x00f4}
0x05ba…05cc Head {h00=0x000e, h01=0x0050, text=» RF ED300 «, t00=0x0003, t01=0x010e}
0x05cc…05e0 Head {h00=0x0010, h01=0x0050, text=»ED200 EQU * «, t00=0x0003, t01=0x0120}
0x05e0…0608 Head {h00=0x0024, h01=0x0050, text=» CF A14,STAB1 SEARCH FOR EBCDIC «, t00=0x0003, t01=0x0134}
0x0608…0622 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ED400 FOUND«, t00=0x0003, t01=0x015c}
0x0622…0636 Head {h00=0x0010, h01=0x0050, text=»ED300 EQU * «, t00=0x0003, t01=0x0176}
0x0636…0660 Head {h00=0x0026, h01=0x0050, text=» CF A14,EDHEX EDIT IN HEXADECIMAL «, t00=0x0003, t01=0x018a}
0x0660…0674 Head {h00=0x0010, h01=0x0050, text=»ED400 EQU * «, t00=0x0004, t01=0x0024}
0x0674…0688 Head {h00=0x0010, h01=0x0050, text=» LDK A2,100 «, t00=0x0004, t01=0x0038}
0x0688…069e Head {h00=0x0012, h01=0x0050, text=» CW A2,PRECBL «, t00=0x0004, t01=0x004c}
0x069e…06c0 Head {h00=0x001e, h01=0x0050, text=» RB(G) EDIT LINE NOT FULL «, t00=0x0004, t01=0x0062}
0x06c0…06d4 Head {h00=0x0010, h01=0x0050, text=»ED500 EQU * «, t00=0x0004, t01=0x0084}
0x06d4…06fa Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT ONE LINE «, t00=0x0004, t01=0x0098}
0x06fa…070e Head {h00=0x0010, h01=0x0050, text=» CF A14,CRLF«, t00=0x0004, t01=0x00be}
0x070e…071e Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0004, t01=0x00d2}
0x071e…072c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00e2}
0x072c…0740 Head {h00=0x0010, h01=0x0050, text=»ED600 EQU * «, t00=0x0004, t01=0x00f0}
0x0740…0762 Head {h00=0x001e, h01=0x0050, text=» CF A14,CRLF COMMENT FOUND«, t00=0x0004, t01=0x0104}
0x0762…0778 Head {h00=0x0012, h01=0x0050, text=» CF A14,PRTEXT«, t00=0x0004, t01=0x0126}
0x0778…0788 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0004, t01=0x013c}
0x0788…079c Head {h00=0x0010, h01=0x0050, text=»ED700 EQU * «, t00=0x0004, t01=0x014c}
0x079c…07cc Head {h00=0x002c, h01=0x0050, text=» CF A14,EDDEC CONVERT COUNTER TO DECIMAL«, t00=0x0004, t01=0x0160}
0x07cc…07f0 Head {h00=0x0020, h01=0x0050, text=» CF A14,PRLINE PRINT COUNTER«, t00=0x0004, t01=0x0190}
0x07f0…0800 Head {h00=0x000c, h01=0x0050, text=» RB EDIT«, t00=0x0005, t01=0x0024}
0x0800…080e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0034}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0042}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0822…0842 Head {h00=0x001c, h01=0x0050, text=»* PRINT TEXT ON PRINTER «, t00=0x0005, t01=0x0056}
0x0842…084c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x084c…0874 Head {h00=0x0024, h01=0x0050, text=»* A7 CONTAINS CONTROL CHARACTER «, t00=0x0005, t01=0x0080}
0x0874…087e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a8}
0x087e…0888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b2}
0x0888…08b0 Head {h00=0x0024, h01=0x0050, text=»PRTEXT LDR A6,A7 SAVE CHARACTER «, t00=0x0005, t01=0x00bc}
0x08b0…08dc Head {h00=0x0028, h01=0x0050, text=» CF A14,PRLINE RELEASE PRINT BUFFER «, t00=0x0005, t01=0x00e4}
0x08dc…0902 Head {h00=0x0022, h01=0x0050, text=» ADR A6,A6 DOUBLE FOR INDEXING«, t00=0x0005, t01=0x0110}
0x0902…0916 Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0005, t01=0x0136}
0x0916…0928 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0005, t01=0x014a}
0x0928…093c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0005, t01=0x015c}
0x093c…0962 Head {h00=0x0022, h01=0x0050, text=» LD A3,MOL,A2 GET TEXT ADDRESS«, t00=0x0005, t01=0x0170}
0x0962…0974 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A6«, t00=0x0006, t01=0x0008}
0x0974…0998 Head {h00=0x0020, h01=0x0050, text=» RF(NE) PRT100 OWN LINE TEXT«, t00=0x0006, t01=0x001a}
0x0998…09c0 Head {h00=0x0024, h01=0x0050, text=» LD A3,MBL,A2 BEGINNING OF LINE «, t00=0x0006, t01=0x003e}
0x09c0…09ea Head {h00=0x0026, h01=0x0050, text=»PRT100 LDR* A4,A3 GET TEXT LENGTH «, t00=0x0006, t01=0x0066}
0x09ea…09fe Head {h00=0x0010, h01=0x0050, text=» CWK A1,100 «, t00=0x0006, t01=0x0090}
0x09fe…0a2e Head {h00=0x002c, h01=0x0050, text=» RF(G) PRT130 INVALID LENGTH: SKIP TEXT «, t00=0x0006, t01=0x00a4}
0x0a2e…0a4c Head {h00=0x001a, h01=0x0050, text=» ADK A3,2 SKIP LENGTH «, t00=0x0006, t01=0x00d4}
0x0a4c…0a64 Head {h00=0x0014, h01=0x0050, text=»PRT110 SUK A4,1 «, t00=0x0006, t01=0x00f2}
0x0a64…0a84 Head {h00=0x001c, h01=0x0050, text=» RF(N) PRT120 ALL MOVED «, t00=0x0006, t01=0x010a}
0x0a84…0a96 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0006, t01=0x012a}
0x0a96…0aa8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0006, t01=0x013c}
0x0aa8…0abe Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0006, t01=0x014e}
0x0abe…0ad0 Head {h00=0x000e, h01=0x0050, text=» RB PRT110«, t00=0x0006, t01=0x0164}
0x0ad0…0aea Head {h00=0x0016, h01=0x0050, text=»PRT120 ANK A6,/80 «, t00=0x0006, t01=0x0176}
0x0aea…0b12 Head {h00=0x0024, h01=0x0050, text=» RF(Z) PRT130 BEGINNING OF LINE «, t00=0x0006, t01=0x0190}
0x0b12…0b38 Head {h00=0x0022, h01=0x0050, text=» CF A14,PRLINE PRINT OWN LINE «, t00=0x0007, t01=0x0028}
0x0b38…0b4e Head {h00=0x0012, h01=0x0050, text=»PRT130 RTN A14«, t00=0x0007, t01=0x004e}
0x0b4e…0b5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0064}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b70…0b94 Head {h00=0x0020, h01=0x0050, text=»* PRINT ONE LINE ON PRINTER «, t00=0x0007, t01=0x0086}
0x0b94…0b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00aa}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0ba8…0bc0 Head {h00=0x0014, h01=0x0050, text=»PRLINE LDK A1,2 «, t00=0x0007, t01=0x00be}
0x0bc0…0bd6 Head {h00=0x0012, h01=0x0050, text=» CW A1,PRECBL «, t00=0x0007, t01=0x00d6}
0x0bd6…0bfe Head {h00=0x0024, h01=0x0050, text=» RF(E) PRLI10 NOTHING IN BUFFER «, t00=0x0007, t01=0x00ec}
0x0bfe…0c10 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0007, t01=0x0114}
0x0c10…0c1c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0007, t01=0x0126}
0x0c1c…0c44 Head {h00=0x0024, h01=0x0050, text=» DATA -7,PRPOOL OCCUPIE PRINTER «, t00=0x0007, t01=0x0132}
0x0c44…0c6e Head {h00=0x0026, h01=0x0050, text=» ST A8,PROCCA SAVE BUFFER ADDRESS «, t00=0x0007, t01=0x015a}
0x0c6e…0c94 Head {h00=0x0022, h01=0x0050, text=» LDK A7,/86 STD WRITE AND WAIT«, t00=0x0007, t01=0x0184}
0x0c94…0caa Head {h00=0x0012, h01=0x0050, text=» LDKL A8,PRECB«, t00=0x0008, t01=0x001a}
0x0caa…0cb6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0008, t01=0x0030}
0x0cb6…0cc6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0008, t01=0x003c}
0x0cc6…0cf2 Head {h00=0x0028, h01=0x0050, text=» LD A8,PROCCA RESTORE BUFFER ADDRESS«, t00=0x0008, t01=0x004c}
0x0cf2…0d12 Head {h00=0x001c, h01=0x0050, text=» RF(Z) PRLI05 NO BUFFER «, t00=0x0008, t01=0x0078}
0x0d12…0d20 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0008, t01=0x0098}
0x0d20…0d48 Head {h00=0x0024, h01=0x0050, text=» DATA -8,PRPOOL RELEASE PRINTER «, t00=0x0008, t01=0x00a6}
0x0d48…0d5a Head {h00=0x000e, h01=0x0050, text=» CM PROCCA«, t00=0x0008, t01=0x00ce}
0x0d5a…0d6e Head {h00=0x0010, h01=0x0050, text=»PRLI05 EQU *«, t00=0x0008, t01=0x00e0}
0x0d6e…0d90 Head {h00=0x001e, h01=0x0050, text=» ST A1,PRECBL RESET LENGTH«, t00=0x0008, t01=0x00f4}
0x0d90…0da2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0008, t01=0x0116}
0x0da2…0dcc Head {h00=0x0026, h01=0x0050, text=» ST A1,XSPACE SET SPACE INDICATOR «, t00=0x0008, t01=0x0128}
0x0dcc…0de2 Head {h00=0x0012, h01=0x0050, text=»PRLI10 RTN A14«, t00=0x0008, t01=0x0152}
0x0de2…0e06 Head {h00=0x0020, h01=0x0050, text=»PRECB DATA /31,PRBUF,2,0,0,0«, t00=0x0008, t01=0x0168}
0x0e06…0e32 Head {h00=0x0028, h01=0x0050, text=»PRECBL EQU PRECB+4 REQUESTED LENGTH «, t00=0x0008, t01=0x018c}
0x0e32…0e54 Head {h00=0x001e, h01=0x0050, text=»PRBUF DATA 0 CONTROL WORD «, t00=0x0009, t01=0x0028}
0x0e54…0e64 Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0009, t01=0x004a}
0x0e64…0e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x005a}
0x0e72…0e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0068}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0072}
0x0e86…0eb2 Head {h00=0x0028, h01=0x0050, text=»* GET ONE CHARACTER FROM LINE TO A7 «, t00=0x0009, t01=0x007c}
0x0eb2…0ed4 Head {h00=0x001e, h01=0x0050, text=»* CR=0 IF NORMAL CHARACTER«, t00=0x0009, t01=0x00a8}
0x0ed4…0ef8 Head {h00=0x0020, h01=0x0050, text=»* CR=1 IF COMMENT CHARACTER «, t00=0x0009, t01=0x00ca}
0x0ef8…0f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f02…0f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f8}
0x0f0c…0f24 Head {h00=0x0014, h01=0x0050, text=»GETCH SUKL A10,1«, t00=0x0009, t01=0x0102}
0x0f24…0f4c Head {h00=0x0024, h01=0x0050, text=» RF(NN) GETCH1 FETCH FROM BUFFER«, t00=0x0009, t01=0x011a}
0x0f4c…0f70 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/81 READ NEW BUFFER «, t00=0x0009, t01=0x0142}
0x0f70…0f86 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,LGECB«, t00=0x0009, t01=0x0166}
0x0f86…0f92 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0009, t01=0x017c}
0x0f92…0fa2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0009, t01=0x0188}
0x0fa2…0fd0 Head {h00=0x002a, h01=0x0050, text=» LD A10,ECBEL,A8 GET EFFECTIVE LENGTH «, t00=0x000a, t01=0x0008}
0x0fd0…0fe4 Head {h00=0x0010, h01=0x0050, text=» SUKL A10,1 «, t00=0x000a, t01=0x0036}
0x0fe4…100e Head {h00=0x0026, h01=0x0050, text=» LD A9,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x000a, t01=0x004a}
0x100e…1036 Head {h00=0x0024, h01=0x0050, text=»GETCH1 LCR A7,A9 LOAD CHARACTER «, t00=0x000a, t01=0x0074}
0x1036…105a Head {h00=0x0020, h01=0x0050, text=» ADKL A9,1 INCREMENT POINTER«, t00=0x000a, t01=0x009c}
0x105a…1072 Head {h00=0x0014, h01=0x0050, text=» LC A1,ECBRC,A8 «, t00=0x000a, t01=0x00c0}
0x1072…109c Head {h00=0x0026, h01=0x0050, text=» ADKL A14,4 SKIP STACK FOR RETURN «, t00=0x000a, t01=0x00d8}
0x109c…10b0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x000a, t01=0x0102}
0x10b0…10da Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GETCH2 COMMENT OR COUNTER «, t00=0x000a, t01=0x0116}
0x10da…10ec Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000a, t01=0x0140}
0x10ec…10fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0152}
0x10fa…1114 Head {h00=0x0016, h01=0x0050, text=»GETCH2 LDK A1,/80 «, t00=0x000a, t01=0x0160}
0x1114…1126 Head {h00=0x000e, h01=0x0050, text=» TM A1,A7 «, t00=0x000a, t01=0x017a}
0x1126…1144 Head {h00=0x001a, h01=0x0050, text=» RF(Z) GETCH3 COMMENT «, t00=0x000a, t01=0x018c}
0x1144…1160 Head {h00=0x0018, h01=0x0050, text=» ANK A7,/7F COUNTER «, t00=0x000b, t01=0x001a}
0x1160…1172 Head {h00=0x000e, h01=0x0050, text=» SLL A7,8 «, t00=0x000b, t01=0x0036}
0x1172…1194 Head {h00=0x001e, h01=0x0050, text=» LCR A7,A9 GET NEXT DIGIT «, t00=0x000b, t01=0x0048}
0x1194…11a8 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x000b, t01=0x006a}
0x11a8…11ba Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000b, t01=0x007e}
0x11ba…11d8 Head {h00=0x001a, h01=0x0050, text=»GETCH3 SUK A1,1 SET CR«, t00=0x000b, t01=0x0090}
0x11d8…11ea Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000b, t01=0x00ae}
0x11ea…11f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c0}
0x11f4…121a Head {h00=0x0022, h01=0x0050, text=»LGECB DATA /60,LGBUF,20,0,0,0 «, t00=0x000b, t01=0x00ca}
0x121a…122e Head {h00=0x0010, h01=0x0050, text=»LGBUF RES 20«, t00=0x000b, t01=0x00f0}
0x122e…123c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0104}
0x123c…1246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x1246…1250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011c}
0x1250…1280 Head {h00=0x002c, h01=0x0050, text=»* EDIT CHAR FROM A7 IN HEXADECIMAL FORM «, t00=0x000b, t01=0x0126}
0x1280…128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128a…1294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0160}
0x1294…12ae Head {h00=0x0016, h01=0x0050, text=»EDHEX CF A14,SPACE«, t00=0x000b, t01=0x016a}
0x12ae…12c2 Head {h00=0x0010, h01=0x0050, text=» LDK A1,'/' «, t00=0x000b, t01=0x0184}
0x12c2…12d8 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x000c, t01=0x0008}
0x12d8…12ea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000c, t01=0x001e}
0x12ea…12fc Head {h00=0x000e, h01=0x0050, text=» SRL A1,4 «, t00=0x000c, t01=0x0030}
0x12fc…130e Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x000c, t01=0x0042}
0x130e…1326 Head {h00=0x0014, h01=0x0050, text=» LC A1,HEXTAB,A1«, t00=0x000c, t01=0x0054}
0x1326…1344 Head {h00=0x001a, h01=0x0050, text=» CF A14,STORE 1ST CHAR«, t00=0x000c, t01=0x006c}
0x1344…1356 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x000c, t01=0x008a}
0x1356…1368 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x000c, t01=0x009c}
0x1368…1380 Head {h00=0x0014, h01=0x0050, text=» LC A1,HEXTAB,A1«, t00=0x000c, t01=0x00ae}
0x1380…139e Head {h00=0x001a, h01=0x0050, text=» CF A14,STORE 2ND CHAR«, t00=0x000c, t01=0x00c6}
0x139e…13ba Head {h00=0x0018, h01=0x0050, text=» CF A14,SPACE SPACE «, t00=0x000c, t01=0x00e4}
0x13ba…13ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0100}
0x13ca…13f0 Head {h00=0x0022, h01=0x0050, text=»HEXTAB DATA '0123456789ABCDEF'«, t00=0x000c, t01=0x0110}
0x13f0…13fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0136}
0x13fe…1408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0144}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014e}
0x1412…143e Head {h00=0x0028, h01=0x0050, text=»* STORE CHAR FROM A1 IN PRINT BUFFER«, t00=0x000c, t01=0x0158}
0x143e…1448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1448…1452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018e}
0x1452…146c Head {h00=0x0016, h01=0x0050, text=»STORE LD A2,PRECBL«, t00=0x000d, t01=0x0008}
0x146c…1484 Head {h00=0x0014, h01=0x0050, text=» SC A1,PRBUF,A2 «, t00=0x000d, t01=0x0022}
0x1484…1496 Head {h00=0x000e, h01=0x0050, text=» IM PRECBL«, t00=0x000d, t01=0x003a}
0x1496…14a8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000d, t01=0x004c}
0x14a8…14be Head {h00=0x0012, h01=0x0050, text=» ST A1,XSPACE «, t00=0x000d, t01=0x005e}
0x14be…14ce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x0074}
0x14ce…14dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0084}
0x14dc…14e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0092}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14f0…1518 Head {h00=0x0024, h01=0x0050, text=»* EDIT CHARACTER DECIMAL FROM A7«, t00=0x000d, t01=0x00a6}
0x1518…1522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ce}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152c…154e Head {h00=0x001e, h01=0x0050, text=»EDDEC LDK A4,0 RESET INDEX«, t00=0x000d, t01=0x00e2}
0x154e…1560 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x000d, t01=0x0104}
0x1560…158e Head {h00=0x002a, h01=0x0050, text=»EDD100 LDK A1,'0' ASCII ZERO AT START «, t00=0x000d, t01=0x0116}
0x158e…15ac Head {h00=0x001a, h01=0x0050, text=»EDD110 CW A7,DECADE,A4«, t00=0x000d, t01=0x0144}
0x15ac…15d6 Head {h00=0x0026, h01=0x0050, text=» RF(L) EDD200 NO MORE SUBTRACTIONS«, t00=0x000d, t01=0x0162}
0x15d6…1606 Head {h00=0x002c, h01=0x0050, text=» SU A7,DECADE,A4 SUBTRACT AND INCREMENT «, t00=0x000d, t01=0x018c}
0x1606…1618 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000e, t01=0x002c}
0x1618…162a Head {h00=0x000e, h01=0x0050, text=» RB EDD110«, t00=0x000e, t01=0x003e}
0x162a…163e Head {h00=0x0010, h01=0x0050, text=»EDD200 EQU *«, t00=0x000e, t01=0x0050}
0x163e…1652 Head {h00=0x0010, h01=0x0050, text=» CWK A1,'0' «, t00=0x000e, t01=0x0064}
0x1652…1678 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) EDD250 NOT ASCII ZERO «, t00=0x000e, t01=0x0078}
0x1678…168a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x000e, t01=0x009e}
0x168a…16ac Head {h00=0x001e, h01=0x0050, text=» RF(Z) EDD300 LEADING ZERO«, t00=0x000e, t01=0x00b0}
0x16ac…16c0 Head {h00=0x0010, h01=0x0050, text=»EDD250 EQU *«, t00=0x000e, t01=0x00d2}
0x16c0…16d2 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x000e, t01=0x00e6}
0x16d2…16f4 Head {h00=0x001e, h01=0x0050, text=» CF A14,STORE STORE DIGIT «, t00=0x000e, t01=0x00f8}
0x16f4…1708 Head {h00=0x0010, h01=0x0050, text=»EDD300 EQU *«, t00=0x000e, t01=0x011a}
0x1708…171a Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x000e, t01=0x012e}
0x171a…172c Head {h00=0x000e, h01=0x0050, text=» CWK A4,10«, t00=0x000e, t01=0x0140}
0x172c…174e Head {h00=0x001e, h01=0x0050, text=» RB(NE) EDD100 NEXT DIGIT «, t00=0x000e, t01=0x0152}
0x174e…176e Head {h00=0x001c, h01=0x0050, text=» RTN A14 CONVERSION DONE«, t00=0x000e, t01=0x0174}
0x176e…1796 (15, 0, 400) Head {h00=0x0024, h01=0x0050, text=»DECADE DATA 10000,1000,100,10,1 «, t00=0x000f, t01=0x0004}
0x1796…17a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x002c}
0x17a4…17ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003a}
0x17ae…17b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0044}
0x17b8…17e0 Head {h00=0x0024, h01=0x0050, text=»* SEARCH FOR A7 CHAR IN TABLE 1 «, t00=0x000f, t01=0x004e}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17ea…1806 Head {h00=0x0018, h01=0x0050, text=»* CR=1 IF NOT FOUND «, t00=0x000f, t01=0x0080}
0x1806…183e Head {h00=0x0034, h01=0x0050, text=»* CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER«, t00=0x000f, t01=0x009c}
0x183e…1848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d4}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x1852…1866 Head {h00=0x0010, h01=0x0050, text=»STAB1 EQU * «, t00=0x000f, t01=0x00e8}
0x1866…1878 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x000f, t01=0x00fc}
0x1878…188a Head {h00=0x000e, h01=0x0050, text=» RF STAB20«, t00=0x000f, t01=0x010e}
0x188a…1898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0120}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012e}
0x18a2…18ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0138}
0x18ac…18d4 Head {h00=0x0024, h01=0x0050, text=»* SEARCH FRO A7 CHAR IN TABLE 2 «, t00=0x000f, t01=0x0142}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18de…18fa Head {h00=0x0018, h01=0x0050, text=»* CR=1 IF NOT FOUND «, t00=0x000f, t01=0x0174}
0x18fa…1932 Head {h00=0x0034, h01=0x0050, text=»* CR=0 IF FOUND AND CORRESPONDING TEXT IN BUFFER«, t00=0x000f, t01=0x0190}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x193c…1946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0042}
0x1946…195a Head {h00=0x0010, h01=0x0050, text=»STAB2 EQU * «, t00=0x0010, t01=0x004c}
0x195a…196c Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0010, t01=0x0060}
0x196c…1980 Head {h00=0x0010, h01=0x0050, text=»STAB20 EQU *«, t00=0x0010, t01=0x0072}
0x1980…1992 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0010, t01=0x0086}
0x1992…19b4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,1 CR IF NOT FOUND «, t00=0x0010, t01=0x0098}
0x19b4…19cc Head {h00=0x0014, h01=0x0050, text=»STAB40 LDR A5,A5«, t00=0x0010, t01=0x00ba}
0x19cc…19e2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) STAB41 «, t00=0x0010, t01=0x00d2}
0x19e2…19f6 Head {h00=0x0010, h01=0x0050, text=» CW A4,TAB2 «, t00=0x0010, t01=0x00e8}
0x19f6…1a18 Head {h00=0x001e, h01=0x0050, text=» RF(G) STAB80 END OF TABLE«, t00=0x0010, t01=0x00fc}
0x1a18…1a2e Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB2,A4«, t00=0x0010, t01=0x011e}
0x1a2e…1a4a Head {h00=0x0018, h01=0x0050, text=» RF(E) STAB50 FOUND «, t00=0x0010, t01=0x0134}
0x1a4a…1a5c Head {h00=0x000e, h01=0x0050, text=» RF STAB42«, t00=0x0010, t01=0x0150}
0x1a5c…1a76 Head {h00=0x0016, h01=0x0050, text=»STAB41 CW A4,TAB1 «, t00=0x0010, t01=0x0162}
0x1a76…1a98 Head {h00=0x001e, h01=0x0050, text=» RF(G) STAB80 END OF TABLE«, t00=0x0010, t01=0x017c}
0x1a98…1aae Head {h00=0x0012, h01=0x0050, text=» CC A7,TAB1,A4«, t00=0x0011, t01=0x000e}
0x1aae…1aca Head {h00=0x0018, h01=0x0050, text=» RF(E) STAB50 FOUND «, t00=0x0011, t01=0x0024}
0x1aca…1ade Head {h00=0x0010, h01=0x0050, text=»STAB42 EQU *«, t00=0x0011, t01=0x0040}
0x1ade…1af0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0011, t01=0x0054}
0x1af0…1b0c Head {h00=0x0018, h01=0x0050, text=» RB STAB40 NEXT CHAR«, t00=0x0011, t01=0x0066}
0x1b0c…1b28 Head {h00=0x0018, h01=0x0050, text=»STAB50 CF A14,SPACE «, t00=0x0011, t01=0x0082}
0x1b28…1b3a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0011, t01=0x009e}
0x1b3a…1b50 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) STAB51«, t00=0x0011, t01=0x00b0}
0x1b50…1b7c Head {h00=0x0028, h01=0x0050, text=» LD A3,TAB1+1,A4 GET STRING ADDRESS «, t00=0x0011, t01=0x00c6}
0x1b7c…1b8e Head {h00=0x000e, h01=0x0050, text=» RF STAB52«, t00=0x0011, t01=0x00f2}
0x1b8e…1ba2 Head {h00=0x0010, h01=0x0050, text=»STAB51 EQU *«, t00=0x0011, t01=0x0104}
0x1ba2…1bce Head {h00=0x0028, h01=0x0050, text=» LD A3,TAB2+1,A4 GET STRING ADDRESS «, t00=0x0011, t01=0x0118}
0x1bce…1be2 Head {h00=0x0010, h01=0x0050, text=»STAB52 EQU *«, t00=0x0011, t01=0x0144}
0x1be2…1c00 Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A3 GET LENGTH«, t00=0x0011, t01=0x0158}
0x1c00…1c12 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0011, t01=0x0176}
0x1c12…1c2a Head {h00=0x0014, h01=0x0050, text=»STAB60 SUK A4,1 «, t00=0x0011, t01=0x0188}
0x1c2a…1c40 Head {h00=0x0012, h01=0x0050, text=» RF(N) STAB70 «, t00=0x0012, t01=0x0010}
0x1c40…1c5c Head {h00=0x0018, h01=0x0050, text=» LCR A1,A3 MOVE TEXT«, t00=0x0012, t01=0x0026}
0x1c5c…1c6e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0012, t01=0x0042}
0x1c6e…1c84 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0012, t01=0x0054}
0x1c84…1c96 Head {h00=0x000e, h01=0x0050, text=» RB STAB60«, t00=0x0012, t01=0x006a}
0x1c96…1cb8 Head {h00=0x001e, h01=0x0050, text=»STAB70 CF A14,SPACE SPACE «, t00=0x0012, t01=0x007c}
0x1cb8…1cca Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x009e}
0x1cca…1cde Head {h00=0x0010, h01=0x0050, text=»STAB80 EQU *«, t00=0x0012, t01=0x00b0}
0x1cde…1d04 Head {h00=0x0022, h01=0x0050, text=» LC A2,2,A14 SET CR FOR RETURN«, t00=0x0012, t01=0x00c4}
0x1d04…1d18 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FC «, t00=0x0012, t01=0x00ea}
0x1d18…1d2a Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0012, t01=0x00fe}
0x1d2a…1d3c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0012, t01=0x0110}
0x1d3c…1d50 Head {h00=0x0010, h01=0x0050, text=» SC A1,2,A14«, t00=0x0012, t01=0x0122}
0x1d50…1d60 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0136}
0x1d60…1d6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0146}
0x1d6e…1d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d78…1d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d82…1da0 Head {h00=0x001a, h01=0x0050, text=»* PUT SPACE IN BUFFER «, t00=0x0012, t01=0x0168}
0x1da0…1daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1daa…1db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1db4…1dce Head {h00=0x0016, h01=0x0050, text=»SPACE LD A1,XSPACE«, t00=0x0013, t01=0x000a}
0x1dce…1de4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SPA100«, t00=0x0013, t01=0x0024}
0x1de4…1df8 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/20 «, t00=0x0013, t01=0x003a}
0x1df8…1e0e Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0013, t01=0x004e}
0x1e0e…1e20 Head {h00=0x000e, h01=0x0050, text=» IM XSPACE«, t00=0x0013, t01=0x0064}
0x1e20…1e36 Head {h00=0x0012, h01=0x0050, text=»SPA100 RTN A14«, t00=0x0013, t01=0x0076}
0x1e36…1e5c Head {h00=0x0022, h01=0x0050, text=»XSPACE DATA 0 SPACE INDICATOR «, t00=0x0013, t01=0x008c}
0x1e5c…1e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e66…1e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00bc}
0x1e70…1e8c Head {h00=0x0018, h01=0x0050, text=»* CRLF IN BUFFER «, t00=0x0013, t01=0x00c6}
0x1e8c…1e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e2}
0x1e96…1ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ec}
0x1ea0…1eb2 Head {h00=0x000e, h01=0x0050, text=»CRLF EQU *«, t00=0x0013, t01=0x00f6}
0x1eb2…1ec8 Head {h00=0x0012, h01=0x0050, text=» CF A14,SPACE «, t00=0x0013, t01=0x0108}
0x1ec8…1edc Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0D «, t00=0x0013, t01=0x011e}
0x1edc…1ef2 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0013, t01=0x0132}
0x1ef2…1f06 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/0A «, t00=0x0013, t01=0x0148}
0x1f06…1f1c Head {h00=0x0012, h01=0x0050, text=» CF A14,SPACE «, t00=0x0013, t01=0x015c}
0x1f1c…1f2c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x0172}
0x1f2c…1f36 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0013, t01=0x0182}
0x1f36…1f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f40…1f4c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0014, t01=0x0008}
0x1f4c…1f50 Head {h00=0x4004, h01=0x0000}
0x1f50…1f54 00 14 00 14 ┆ ┆
0x1f54…1f5c (21, 1, 8) 20 04 00 00 00 15 00 04 ┆ ┆
0x1f5c…1fac (22, 0, 398) 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 27 2f 27 20 00 0e 00 04 00 12 00 50 5c 43 46 5c 41 31 34 2c 53 54 4f 52 45 20 00 0e 00 18 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 37 00 0e 00 2e 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 34 20 00 0e 00 40 00 14 ┆ P LDK A1,'/' P CF A14,STORE P LDR A1,A7 . P SRL A1,4 @ ┆
0x1fac…1ffc 00 50 5c 4c 43 5c 41 31 2c 48 45 58 54 41 42 2c 41 31 00 0e 00 52 00 1a 00 50 5c 43 46 5c 41 31 34 2c 53 54 4f 52 45 5c 31 53 54 20 43 48 41 52 00 0e 00 6a 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 37 00 0e 00 88 00 0e 00 50 5c 41 4e 4b 5c 41 ┆ P LC A1,HEXTAB,A1 R P CF A14,STORE 1ST CHAR j P LDR A1,A7 P ANK A┆
0x1ffc…204c 31 2c 2f 46 00 0e 00 9a 00 14 00 50 5c 4c 43 5c 41 31 2c 48 45 58 54 41 42 2c 41 31 00 0e 00 ac 00 1a 00 50 5c 43 46 5c 41 31 34 2c 53 54 4f 52 45 5c 32 4e 44 20 43 48 41 52 00 0e 00 c4 00 18 00 50 5c 43 46 5c 41 31 34 2c 53 50 41 43 45 5c ┆1,/F P LC A1,HEXTAB,A1 P CF A14,STORE 2ND CHAR P CF A14,SPACE ┆
0x204c…209c 53 50 41 43 45 20 00 0e 00 e2 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 0e 00 fe 00 22 00 50 48 45 58 54 41 42 5c 44 41 54 41 5c 27 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 27 00 0e 01 0e 00 0a 00 50 5c 45 4a 45 43 54 00 0e 01 34 00 06 ┆SPACE P RTN A14 " PHEXTAB DATA '0123456789ABCDEF' P EJECT 4 ┆
0x209c…20ea 00 50 2a 20 00 0e 01 42 00 06 00 50 2a 20 00 0e 01 4c 00 28 00 50 2a 5c 53 54 4f 52 45 20 43 48 41 52 20 46 52 4f 4d 20 41 31 20 49 4e 20 50 52 49 4e 54 20 42 55 46 46 45 52 00 0e 01 56 00 06 00 50 2a 20 00 0e 01 82 00 06 00 50 2a 20 ┆ P* B P* L ( P* STORE CHAR FROM A1 IN PRINT BUFFER V P* P* ┆
0x20ea…213a (23, 0, 400) 00 0e 01 8c 00 16 00 50 53 54 4f 52 45 5c 4c 44 5c 41 32 2c 50 52 45 43 42 4c 00 0f 00 08 00 14 00 50 5c 53 43 5c 41 31 2c 50 52 42 55 46 2c 41 32 20 00 0f 00 22 00 0e 00 50 5c 49 4d 5c 50 52 45 43 42 4c 00 0f 00 3a 00 0e 00 50 5c 4c 44 4b ┆ PSTORE LD A2,PRECBL P SC A1,PRBUF,A2 " P IM PRECBL : P LDK┆
0x213a…218a 5c 41 31 2c 30 20 00 0f 00 4c 00 12 00 50 5c 53 54 5c 41 31 2c 58 53 50 41 43 45 20 00 0f 00 5e 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 0f 00 74 00 0a 00 50 5c 45 4a 45 43 54 00 0f 00 84 00 06 00 50 2a 20 00 0f 00 92 00 06 00 50 2a 20 00 0f ┆ A1,0 L P ST A1,XSPACE ^ P RTN A14 t P EJECT P* P* ┆
0x218a…21da 00 9c 00 24 00 50 2a 5c 45 44 49 54 20 43 48 41 52 41 43 54 45 52 20 44 45 43 49 4d 41 4c 20 46 52 4f 4d 20 41 37 00 0f 00 a6 00 06 00 50 2a 20 00 0f 00 ce 00 06 00 50 2a 20 00 0f 00 d8 00 1e 00 50 45 44 44 45 43 5c 4c 44 4b 5c 41 34 2c 30 ┆ $ P* EDIT CHARACTER DECIMAL FROM A7 P* P* PEDDEC LDK A4,0┆
0x21da…222a 5c 52 45 53 45 54 20 49 4e 44 45 58 00 0f 00 e2 00 2a 00 50 45 44 44 31 30 30 5c 4c 44 4b 5c 41 31 2c 27 30 27 5c 41 53 43 49 49 20 5a 45 52 4f 20 41 54 20 53 54 41 52 54 20 00 0f 01 04 00 1a 00 50 45 44 44 31 31 30 5c 43 57 5c 41 37 2c 44 ┆ RESET INDEX * PEDD100 LDK A1,'0' ASCII ZERO AT START PEDD110 CW A7,D┆
0x222a…227a 45 43 41 44 45 2c 41 34 00 0f 01 32 00 26 00 50 5c 52 46 28 4c 29 5c 45 44 44 32 30 30 5c 4e 4f 20 4d 4f 52 45 20 53 55 42 54 52 41 43 54 49 4f 4e 53 00 0f 01 50 00 2c 00 50 5c 53 55 5c 41 37 2c 44 45 43 41 44 45 2c 41 34 5c 53 55 42 54 52 ┆ECADE,A4 2 & P RF(L) EDD200 NO MORE SUBTRACTIONS P , P SU A7,DECADE,A4 SUBTR┆
0x227a…22ca (24, 0, 400) 41 43 54 20 41 4e 44 20 49 4e 43 52 45 4d 45 4e 54 20 00 0f 01 7a 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 10 00 1a 00 0e 00 50 5c 52 42 5c 45 44 44 31 31 30 00 10 00 2c 00 24 00 50 45 44 44 32 30 30 5c 43 46 5c 41 31 34 2c 53 54 4f 52 ┆ACT AND INCREMENT z P ADK A1,1 P RB EDD110 , $ PEDD200 CF A14,STOR┆
0x22ca…231a 45 5c 53 54 4f 52 45 20 44 49 47 49 54 20 00 10 00 3e 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 32 20 00 10 00 66 00 0e 00 50 5c 43 57 4b 5c 41 34 2c 31 30 00 10 00 78 00 1e 00 50 5c 52 42 28 4e 45 29 5c 45 44 44 31 30 30 5c 4e 45 58 54 20 44 49 ┆E STORE DIGIT > P ADK A4,2 f P CWK A4,10 x P RB(NE) EDD100 NEXT DI┆
0x231a…236a 47 49 54 20 00 10 00 8a 00 1c 00 50 5c 52 54 4e 5c 41 31 34 5c 43 4f 4e 56 45 52 53 49 4f 4e 20 44 4f 4e 45 00 10 00 ac 00 24 00 50 44 45 43 41 44 45 5c 44 41 54 41 5c 31 30 30 30 30 2c 31 30 30 30 2c 31 30 30 2c 31 30 2c 31 20 00 10 00 cc ┆GIT P RTN A14 CONVERSION DONE $ PDECADE DATA 10000,1000,100,10,1 ┆
0x236a…23ba 00 0a 00 50 5c 45 4a 45 43 54 00 10 00 f4 00 06 00 50 2a 20 00 10 01 02 00 06 00 50 2a 20 00 10 01 0c 00 24 00 50 2a 5c 53 45 41 52 43 48 20 46 4f 52 20 41 37 20 43 48 41 52 20 49 4e 20 54 41 42 4c 45 20 31 20 00 10 01 16 00 06 00 50 2a 20 ┆ P EJECT P* P* $ P* SEARCH FOR A7 CHAR IN TABLE 1 P* ┆
0x23ba…240a 00 10 01 3e 00 06 00 50 2a 20 00 10 01 48 00 1c 00 50 2a 5c 43 52 3d 31 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 45 4c 53 45 00 10 01 52 00 2c 00 50 2a 5c 43 52 3d 30 20 41 4e 44 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 43 4f 44 45 20 ┆ > P* H P* CR=1 IF NOT FOUND ELSE R , P* CR=0 AND CORRESPONDING CODE ┆
0x240a…245a (25, 0, 400) 49 53 20 53 54 4f 52 45 44 20 00 10 01 72 00 06 00 50 2a 20 00 11 00 12 00 06 00 50 2a 20 00 11 00 1c 00 1c 00 50 53 54 41 42 31 5c 4c 44 4b 5c 41 32 2c 33 5c 53 45 54 20 49 4e 44 45 58 00 11 00 26 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 31 5c ┆IS STORED r P* P* PSTAB1 LDK A2,3 SET INDEX & P LDK A1,1 ┆
0x245a…24aa 43 52 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 00 11 00 46 00 16 00 50 53 54 41 42 31 30 5c 43 57 5c 41 32 2c 54 41 42 31 20 00 11 00 68 00 1e 00 50 5c 52 46 28 47 29 5c 53 54 41 42 33 30 5c 45 4e 44 20 4f 46 20 54 41 42 4c 45 00 11 00 82 ┆CR IF NOT FOUND F PSTAB10 CW A2,TAB1 h P RF(G) STAB30 END OF TABLE ┆
0x24aa…24fa 00 12 00 50 5c 43 43 5c 41 37 2c 54 41 42 31 2c 41 32 00 11 00 a4 00 18 00 50 5c 52 46 28 45 29 5c 53 54 41 42 32 30 5c 46 4f 55 4e 44 20 00 11 00 ba 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 32 20 00 11 00 d6 00 18 00 50 5c 52 42 5c 53 54 41 42 ┆ P CC A7,TAB1,A2 P RF(E) STAB20 FOUND P ADK A2,2 P RB STAB┆
0x24fa…254a 31 30 5c 54 52 59 20 4e 45 58 54 20 00 11 00 e8 00 32 00 50 53 54 41 42 32 30 5c 4c 43 5c 41 31 2c 54 41 42 31 2d 31 2c 41 32 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 43 4f 44 45 20 00 11 01 04 00 1e 00 50 5c 43 46 5c 41 31 ┆10 TRY NEXT 2 PSTAB20 LC A1,TAB1-1,A2 GET CORRESPONDING CODE P CF A1┆
0x254a…259a 34 2c 53 54 4f 52 45 5c 41 4e 44 20 53 54 4f 52 45 20 49 54 00 11 01 3a 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 11 01 5c 00 28 00 50 53 54 41 42 33 30 5c 4c 43 5c 41 32 2c 32 2c 41 31 34 5c 53 45 54 20 43 52 20 46 4f 52 20 52 45 54 55 ┆4,STORE AND STORE IT : P LDK A1,0 ( PSTAB30 LC A2,2,A14 SET CR FOR RETU┆
0x259a…25ea (26, 0, 400) 52 4e 00 11 01 6e 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 43 20 00 12 00 0a 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 33 20 00 12 00 1e 00 0e 00 50 5c 41 44 52 5c 41 31 2c 41 32 00 12 00 30 00 10 00 50 5c 53 43 5c 41 31 2c 32 2c 41 31 34 00 12 ┆RN n P ANK A2,/FC P ANK A1,3 P ADR A1,A2 0 P SC A1,2,A14 ┆
0x25ea…263a 00 42 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 12 00 56 00 0a 00 50 5c 45 4a 45 43 54 00 12 00 66 00 06 00 50 2a 20 00 12 00 74 00 06 00 50 2a 20 00 12 00 7e 00 24 00 50 2a 5c 53 45 41 52 43 48 20 46 4f 52 20 41 37 20 43 48 41 52 20 49 4e 20 ┆ B P RTN A14 V P EJECT f P* t P* ~ $ P* SEARCH FOR A7 CHAR IN ┆
0x263a…268a 54 41 42 4c 45 20 33 20 00 12 00 88 00 06 00 50 2a 20 00 12 00 b0 00 06 00 50 2a 20 00 12 00 ba 00 1c 00 50 2a 5c 43 52 3d 31 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 45 4c 53 45 00 12 00 c4 00 2c 00 50 2a 5c 43 52 3d 30 20 41 4e 44 20 43 ┆TABLE 3 P* P* P* CR=1 IF NOT FOUND ELSE , P* CR=0 AND C┆
0x268a…26da 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 43 4f 44 45 20 49 53 20 53 54 4f 52 45 44 20 00 12 00 e4 00 06 00 50 2a 20 00 12 01 14 00 06 00 50 2a 20 00 12 01 1e 00 1c 00 50 53 54 41 42 33 5c 4c 44 4b 5c 41 32 2c 33 5c 53 45 54 20 49 4e 44 45 58 ┆ORRESPONDING CODE IS STORED P* P* PSTAB3 LDK A2,3 SET INDEX┆
0x26da…272a 00 12 01 28 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 31 5c 43 52 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 00 12 01 48 00 14 00 50 53 54 41 31 30 5c 43 57 5c 41 32 2c 54 41 42 33 00 12 01 6a 00 1e 00 50 5c 52 46 28 47 29 5c 53 54 41 33 30 5c 45 ┆ ( P LDK A1,1 CR IF NOT FOUND H PSTA10 CW A2,TAB3 j P RF(G) STA30 E┆
0x272a…277a (27, 0, 400) 4e 44 20 4f 46 20 54 41 42 4c 45 20 00 12 01 82 00 12 00 50 5c 43 43 5c 41 37 2c 54 41 42 33 2c 41 32 00 13 00 14 00 16 00 50 5c 52 46 28 45 29 5c 53 54 41 32 30 5c 46 4f 55 4e 44 00 13 00 2a 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 32 20 00 13 ┆ND OF TABLE P CC A7,TAB3,A2 P RF(E) STA20 FOUND * P ADK A2,2 ┆
0x277a…27ca 00 44 00 16 00 50 5c 52 42 5c 53 54 41 31 30 5c 54 52 59 20 4e 45 58 54 00 13 00 56 00 22 00 50 53 54 41 32 30 5c 4c 43 5c 41 31 2c 54 41 42 33 2d 31 2c 41 32 5c 47 45 54 20 43 4f 44 45 00 13 00 70 00 1e 00 50 5c 43 46 5c 41 31 34 2c 53 54 ┆ D P RB STA10 TRY NEXT V " PSTA20 LC A1,TAB3-1,A2 GET CODE p P CF A14,ST┆
0x27ca…281a 4f 52 45 5c 41 4e 44 20 50 52 49 4e 54 20 49 54 00 13 00 96 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 13 00 b8 00 28 00 50 53 54 41 33 30 5c 4c 43 5c 41 32 2c 32 2c 41 31 34 5c 53 45 54 20 43 52 20 46 4f 52 20 52 45 54 55 52 4e 20 00 13 ┆ORE AND PRINT IT P LDK A1,0 ( PSTA30 LC A2,2,A14 SET CR FOR RETURN ┆
0x281a…286a 00 ca 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 43 20 00 13 00 f6 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 33 20 00 13 01 0a 00 0e 00 50 5c 41 44 52 5c 41 31 2c 41 32 00 13 01 1c 00 10 00 50 5c 53 43 5c 41 31 2c 32 2c 41 31 34 00 13 01 2e 00 0c ┆ P ANK A2,/FC P ANK A1,3 P ADR A1,A2 P SC A1,2,A14 . ┆
0x286a…28ba 00 50 5c 52 54 4e 5c 41 31 34 00 13 01 42 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 52 00 06 00 50 2a 20 00 13 01 60 00 06 00 50 2a 20 00 13 01 6a 00 24 00 50 2a 5c 53 45 41 52 43 48 20 46 52 4f 20 41 37 20 43 48 41 52 20 49 4e 20 54 41 42 4c ┆ P RTN A14 B P EJECT R P* ` P* j $ P* SEARCH FRO A7 CHAR IN TABL┆
0x28ba…290a (28, 0, 400) 45 20 32 20 00 13 01 74 00 06 00 50 2a 20 00 14 00 0c 00 18 00 50 2a 5c 43 52 3d 31 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 00 14 00 16 00 34 00 50 2a 5c 43 52 3d 30 20 49 46 20 46 4f 55 4e 44 20 41 4e 44 20 43 4f 52 52 45 53 50 4f 4e 44 ┆E 2 t P* P* CR=1 IF NOT FOUND 4 P* CR=0 IF FOUND AND CORRESPOND┆
0x290a…295a 49 4e 47 20 54 45 58 54 20 49 4e 20 42 55 46 46 45 52 00 14 00 32 00 06 00 50 2a 20 00 14 00 6a 00 06 00 50 2a 20 00 14 00 74 00 1c 00 50 53 54 41 42 32 5c 4c 44 4b 5c 41 34 2c 33 5c 53 45 54 20 49 4e 44 45 58 00 14 00 7e 00 1e 00 50 5c 4c ┆ING TEXT IN BUFFER 2 P* j P* t PSTAB2 LDK A4,3 SET INDEX ~ P L┆
0x295a…29aa 44 4b 5c 41 31 2c 31 5c 43 52 20 49 46 20 4e 4f 54 20 46 4f 55 4e 44 20 00 14 00 9e 00 16 00 50 53 54 41 42 34 30 5c 43 57 5c 41 34 2c 54 41 42 32 20 00 14 00 c0 00 1e 00 50 5c 52 46 28 47 29 5c 53 54 41 42 38 30 5c 45 4e 44 20 4f 46 20 54 ┆DK A1,1 CR IF NOT FOUND PSTAB40 CW A4,TAB2 P RF(G) STAB80 END OF T┆
0x29aa…29fa 41 42 4c 45 00 14 00 da 00 12 00 50 5c 43 43 5c 41 37 2c 54 41 42 32 2c 41 34 00 14 00 fc 00 18 00 50 5c 52 46 28 45 29 5c 53 54 41 42 35 30 5c 46 4f 55 4e 44 20 00 14 01 12 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 34 20 00 14 01 2e 00 18 00 50 ┆ABLE P CC A7,TAB2,A4 P RF(E) STAB50 FOUND P ADK A4,4 . P┆
0x29fa…2a4a 5c 52 42 5c 53 54 41 42 34 30 5c 4e 45 58 54 20 43 48 41 52 00 14 01 40 00 18 00 50 53 54 41 42 35 30 5c 43 46 5c 41 31 34 2c 53 50 41 43 45 20 00 14 01 5c 00 28 00 50 5c 4c 44 5c 41 33 2c 54 41 42 32 2b 31 2c 41 34 5c 47 45 54 20 53 54 52 ┆ RB STAB40 NEXT CHAR @ PSTAB50 CF A14,SPACE ( P LD A3,TAB2+1,A4 GET STR┆