|
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: 7808 (0x1e80)
Notes: pts_type(SC)
Names: »TCAPP.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/TCAPP.SC«
IDENT TCAPP CONPAC REL=1.0 DATE= 83.03.08 DK2, 83.03.08, VDU D4 ON CENTRAL 2 DK1, 81.09.23, LP D3 ON CENTRAL 1 RELEASE 80.04.29 **************************************** * * T C A P P * * READS TRANSACTIONS FROM TC:S AND * WRITES THEM TO FRED. THE REPLIES * FROM FRED ARE SENT BACK TO THE TC * **************************************** EJECT ENTRY TCAPP ENTRY ECBTB1,ECBTB2 EXTRN K:LR,K:LW,K:CCQ,K:RBCC EXTRN K:LINB,CCBUF EXTRN K:SIMP * * EJECT * * ECBTB1 AND ECBTB2 BUILT AS FOLLOWS: I:ST LINE TCA,DEV ADR.(BOTH 41-4F ACC.TO KONC) 2:ND LINE SIM.DEV.IN ASCII,FILE CODE (GROUPING AS IN CD:TAB) * * ECBTB1 DATA ECBEN1-* DATA /4141 DATA /207A 40 DATA /4142 DATA /4179 C1 DATA /4143 DATA /4278 C2 DATA /4144 DATA /4A77 D1 DATA /4145 DATA /4C76 D3 LINE PRINTER DK1 DATA /4641 DATA /3C75 4C DATA /4642 DATA /4D74 D4 DK2 ECBEN1 EQU * * * * ECBTB2 DATA ECBEN2-* DATA /4241 DATA /4373 C3 DATA /4242 DATA /4472 C4 DATA /4341 DATA /4571 C5 DATA /4342 DATA /4670 C6 DATA /4441 DATA /476F C7 DATA /4442 DATA /486E C8 DATA /4541 DATA /236D 4A DATA /4741 DATA /286C 4D DATA /4841 DATA /2B6B 4E DATA /4941 DATA /216A 4F DATA /4A41 DATA /2669 50 DATA /4B41 DATA /4B68 D2 DATA /4C41 DATA /4967 C9 DATA /4D41 DATA /2E66 4B ECBEN2 EQU * EJECT * * READ MESSAGE FROM TC * TCAPP CF A14,K:LR * * WRITE MESSAGE TO FRED * AND READ REPLY * LDKL A1,K:LINB GET TC READ BUFFER ADR A1,A13 LD A6,-2,A1 GET TCA LINE NO ANK A6,/FF LINE NO LDK A4,/4 PRESET RETURNCODE 4=NO ECB FOUND LDKL A5,ECBTB1 ST A5,ECBTST AD A5,ECBTB1 CWK A6,1 LINE 1 RF(E) CCQ001 CWK A6,2 LINE 2 RB(NE) TCAPP LDKL A5,ECBTB2 YES ST A5,ECBTST AD A5,ECBTB2 CCQ001 EQU * LD A6,-2,A1 GET TCA,LINE NO ANKL A6,/FF00 LD A2,0,A1 DEV,AID SRL A2,8 ANKL A2,/FF ORR A6,A2 TCA AND DEV. CCQ002 EQU * SUK A5,4 POINTER TO TCA AND DEV.ADR CWK A5,ECBTST END OF TABEL ECBTST EQU *-2 ECBTB1 OR 2 RB(NP) TCAPP LDR* A2,A5 CWR A2,A6 OK ? RB(NE) CCQ002 NO LD A8,2,A5 YES ANKL A8,/FF GET FILE CODE * * GET ECB ADDRESS * LDKL A2,K:SIMP GET ADR.OF FIRST SIM.TERM. ADK A2,4 CCQ003 EQU * CWR A2,0 END OF CHAIN RB(E) TCAPP NEW LINE READ ADK A2,2 POINTER TO LFILECODE LDR* A5,A2 GET FILE CODE ANK A5,/FF CWR A8,A5 RF(E) CCQ004 FOUND SUK A2,2 LDR* A2,A2 NEXT DEV. LDR A2,A2 LDR A2,A2 RB CCQ003 CCQ004 EQU * LDR A8,A2 ECB FOUND * TEST IF ECB IS FREE OR USED DK LDR* A7,A8 A7=STATUS+FC DK ANKL A7,/2000 TEST USED-BIT DK RF(Z) CCQ005 IF FREE DK RB TCAPP SKIP IF USED DK CCQ005 EQU * SET USED-BIT DK LDR* A7,A8 A7=STATUS+FC DK ORKL A7,/2000 SET USED-BIT DK STR A7,A8 RESTORE IN ECB DK * END TEST FOR USED-BIT DK LD A2,-4,A1 AND LENGTH ADK A2,1 LDKL A3,CCBUF+4 AND FRED WRITE BUFFER ADR A3,A13 ST A2,-4,A3 STORE LENGTH LDR A4,A3 ADK A4,2 ADJUST FOR DRIVER INTERFACE ADK A1,1 TCAP10 LCR A5,A1 MOVE MESSAGE SCR A5,A4 ADK A1,1 ADK A4,1 SUK A2,1 RB(NZ) TCAP10 CF A14,K:CCQ EXCHANGE WITH FRED RF(NZ) CCQ006 BAD REPLY EJECT * * WRITE REPLY TO TC * LDKL A2,K:LINB GET TC WRITE BUFFER ADR A2,A13 LD A3,-4,A1 GET LENGTH ADK A3,1 ST A3,-4,A2 AND STORE LDR A4,A2 ADK A4,1 ADJUST FOR STA LDR A6,A1 BUFFER ADR. TCAP20 LCR A5,A6 MOVE REPLY SCR A5,A4 ADK A6,1 ADK A4,1 SUK A3,1 RB(NZ) TCAP20 LDR A7,A8 SET A7=A8=ECB ADDRESS DK CF A14,K:RBCC RELEASE BUFFER * SET ECB FREE DK LDR* A8,A7 A8=STATUS+FC DK ANKL A8,/DFFF CLEAR USED-BIT DK STR A8,A7 RESTORE IN ECB DK * END OF SET ECB FREE DK CF A14,K:LW WRITE REPLY RB TCAPP CCQ006 EQU * * SET ECB FREE DK LDR* A7,A8 A7=STATUS+FC DK ANKL A7,/DFFF CLEAR USED-BIT DK STR A7,A8 RESTORE IN ECB DK * END OF SET ECB FREE DK RB TCAPP END
0x0000…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT TCAPP CONPAC REL=1.0 DATE= 83.03.08 «, t00=0x0000, t01=0x0004}
0x0034…0062 Head {h00=0x002a, h01=0x0050, text=» DK2, 83.03.08, VDU D4 ON CENTRAL 2 «, t00=0x0000, t01=0x0038}
0x0062…008e Head {h00=0x0028, h01=0x0050, text=» DK1, 81.09.23, LP D3 ON CENTRAL 1«, t00=0x0000, t01=0x0066}
0x008e…00aa Head {h00=0x0018, h01=0x0050, text=» RELEASE 80.04.29 «, t00=0x0000, t01=0x0092}
0x00aa…00b2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ae}
0x00b2…00e2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x00b6}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…0102 Head {h00=0x0012, h01=0x0050, text=»* T C A P P «, t00=0x0000, t01=0x00f0}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0138 Head {h00=0x0028, h01=0x0050, text=»* READS TRANSACTIONS FROM TC:S AND«, t00=0x0000, t01=0x0110}
0x0138…0164 Head {h00=0x0028, h01=0x0050, text=»* WRITES THEM TO FRED. THE REPLIES«, t00=0x0000, t01=0x013c}
0x0164…0192 Head {h00=0x002a, h01=0x0050, text=»* FROM FRED ARE SENT BACK TO THE TC «, t00=0x0000, t01=0x0168}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01cc Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0001, t01=0x0012}
0x01cc…01da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0042}
0x01da…01e2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0050}
0x01e2…01ea Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0058}
0x01ea…01fe Head {h00=0x0010, h01=0x0050, text=» ENTRY TCAPP«, t00=0x0001, t01=0x0060}
0x01fe…021a Head {h00=0x0018, h01=0x0050, text=» ENTRY ECBTB1,ECBTB2«, t00=0x0001, t01=0x0074}
0x021a…0222 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0090}
0x0222…0248 Head {h00=0x0022, h01=0x0050, text=» EXTRN K:LR,K:LW,K:CCQ,K:RBCC «, t00=0x0001, t01=0x0098}
0x0248…0264 Head {h00=0x0018, h01=0x0050, text=» EXTRN K:LINB,CCBUF «, t00=0x0001, t01=0x00be}
0x0264…027a Head {h00=0x0012, h01=0x0050, text=» EXTRN K:SIMP «, t00=0x0001, t01=0x00da}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f0}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x028e…029c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0104}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b0…02de Head {h00=0x002a, h01=0x0050, text=» ECBTB1 AND ECBTB2 BUILT AS FOLLOWS: «, t00=0x0001, t01=0x0126}
0x02de…0316 Head {h00=0x0034, h01=0x0050, text=» I:ST LINE TCA,DEV ADR.(BOTH 41-4F ACC.TO KONC)«, t00=0x0001, t01=0x0154}
0x0316…035c Head {h00=0x0042, h01=0x0050, text=» 2:ND LINE SIM.DEV.IN ASCII,FILE CODE (GROUPING AS IN CD:TAB)«, t00=0x0001, t01=0x018c}
0x035c…0366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0366…0370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0370…038c Head {h00=0x0018, h01=0x0050, text=»ECBTB1 DATA ECBEN1-*«, t00=0x0002, t01=0x0056}
0x038c…03a0 Head {h00=0x0010, h01=0x0050, text=» DATA /4141 «, t00=0x0002, t01=0x0072}
0x03a0…03b6 Head {h00=0x0012, h01=0x0050, text=» DATA /207A 40«, t00=0x0002, t01=0x0086}
0x03b6…03be Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x009c}
0x03be…03d2 Head {h00=0x0010, h01=0x0050, text=» DATA /4142 «, t00=0x0002, t01=0x00a4}
0x03d2…03e8 Head {h00=0x0012, h01=0x0050, text=» DATA /4179 C1«, t00=0x0002, t01=0x00b8}
0x03e8…03f0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00ce}
0x03f0…0404 Head {h00=0x0010, h01=0x0050, text=» DATA /4143 «, t00=0x0002, t01=0x00d6}
0x0404…041a Head {h00=0x0012, h01=0x0050, text=» DATA /4278 C2«, t00=0x0002, t01=0x00ea}
0x041a…0422 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0100}
0x0422…0436 Head {h00=0x0010, h01=0x0050, text=» DATA /4144 «, t00=0x0002, t01=0x0108}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» DATA /4A77 D1«, t00=0x0002, t01=0x011c}
0x044c…0454 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0132}
0x0454…0468 Head {h00=0x0010, h01=0x0050, text=» DATA /4145 «, t00=0x0002, t01=0x013a}
0x0468…0490 Head {h00=0x0024, h01=0x0050, text=» DATA /4C76 D3 LINE PRINTER DK1«, t00=0x0002, t01=0x014e}
0x0490…0498 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0176}
0x0498…04ac Head {h00=0x0010, h01=0x0050, text=» DATA /4641 «, t00=0x0002, t01=0x017e}
0x04ac…04c2 (3, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DATA /3C75 4C«, t00=0x0003, t01=0x0004}
0x04c2…04ca Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x001a}
0x04ca…04de Head {h00=0x0010, h01=0x0050, text=» DATA /4642 «, t00=0x0003, t01=0x0022}
0x04de…04f8 Head {h00=0x0016, h01=0x0050, text=» DATA /4D74 D4 DK2«, t00=0x0003, t01=0x0036}
0x04f8…050c Head {h00=0x0010, h01=0x0050, text=»ECBEN1 EQU *«, t00=0x0003, t01=0x0050}
0x050c…0516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0516…0520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0078}
0x052a…0546 Head {h00=0x0018, h01=0x0050, text=»ECBTB2 DATA ECBEN2-*«, t00=0x0003, t01=0x0082}
0x0546…055a Head {h00=0x0010, h01=0x0050, text=» DATA /4241 «, t00=0x0003, t01=0x009e}
0x055a…0570 Head {h00=0x0012, h01=0x0050, text=» DATA /4373 C3«, t00=0x0003, t01=0x00b2}
0x0570…0578 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00c8}
0x0578…058c Head {h00=0x0010, h01=0x0050, text=» DATA /4242 «, t00=0x0003, t01=0x00d0}
0x058c…05a2 Head {h00=0x0012, h01=0x0050, text=» DATA /4472 C4«, t00=0x0003, t01=0x00e4}
0x05a2…05aa Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00fa}
0x05aa…05be Head {h00=0x0010, h01=0x0050, text=» DATA /4341 «, t00=0x0003, t01=0x0102}
0x05be…05d4 Head {h00=0x0012, h01=0x0050, text=» DATA /4571 C5«, t00=0x0003, t01=0x0116}
0x05d4…05dc Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x012c}
0x05dc…05f0 Head {h00=0x0010, h01=0x0050, text=» DATA /4342 «, t00=0x0003, t01=0x0134}
0x05f0…0606 Head {h00=0x0012, h01=0x0050, text=» DATA /4670 C6«, t00=0x0003, t01=0x0148}
0x0606…060e Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x015e}
0x060e…0622 Head {h00=0x0010, h01=0x0050, text=» DATA /4441 «, t00=0x0003, t01=0x0166}
0x0622…0638 Head {h00=0x0012, h01=0x0050, text=» DATA /476F C7«, t00=0x0003, t01=0x017a}
0x0638…0640 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0190}
0x0640…0654 Head {h00=0x0010, h01=0x0050, text=» DATA /4442 «, t00=0x0004, t01=0x0008}
0x0654…066a Head {h00=0x0012, h01=0x0050, text=» DATA /486E C8«, t00=0x0004, t01=0x001c}
0x066a…0672 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0032}
0x0672…0686 Head {h00=0x0010, h01=0x0050, text=» DATA /4541 «, t00=0x0004, t01=0x003a}
0x0686…069c Head {h00=0x0012, h01=0x0050, text=» DATA /236D 4A«, t00=0x0004, t01=0x004e}
0x069c…06a4 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0064}
0x06a4…06b8 Head {h00=0x0010, h01=0x0050, text=» DATA /4741 «, t00=0x0004, t01=0x006c}
0x06b8…06ce Head {h00=0x0012, h01=0x0050, text=» DATA /286C 4D«, t00=0x0004, t01=0x0080}
0x06ce…06d6 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0096}
0x06d6…06ea Head {h00=0x0010, h01=0x0050, text=» DATA /4841 «, t00=0x0004, t01=0x009e}
0x06ea…0700 Head {h00=0x0012, h01=0x0050, text=» DATA /2B6B 4E«, t00=0x0004, t01=0x00b2}
0x0700…0708 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00c8}
0x0708…071c Head {h00=0x0010, h01=0x0050, text=» DATA /4941 «, t00=0x0004, t01=0x00d0}
0x071c…0732 Head {h00=0x0012, h01=0x0050, text=» DATA /216A 4F«, t00=0x0004, t01=0x00e4}
0x0732…073a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00fa}
0x073a…074e Head {h00=0x0010, h01=0x0050, text=» DATA /4A41 «, t00=0x0004, t01=0x0102}
0x074e…0764 Head {h00=0x0012, h01=0x0050, text=» DATA /2669 50«, t00=0x0004, t01=0x0116}
0x0764…076c Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x012c}
0x076c…0780 Head {h00=0x0010, h01=0x0050, text=» DATA /4B41 «, t00=0x0004, t01=0x0134}
0x0780…0796 Head {h00=0x0012, h01=0x0050, text=» DATA /4B68 D2«, t00=0x0004, t01=0x0148}
0x0796…079e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x015e}
0x079e…07b2 Head {h00=0x0010, h01=0x0050, text=» DATA /4C41 «, t00=0x0004, t01=0x0166}
0x07b2…07c8 Head {h00=0x0012, h01=0x0050, text=» DATA /4967 C9«, t00=0x0004, t01=0x017a}
0x07c8…07d0 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0190}
0x07d0…07e4 Head {h00=0x0010, h01=0x0050, text=» DATA /4D41 «, t00=0x0005, t01=0x0008}
0x07e4…07fa Head {h00=0x0012, h01=0x0050, text=» DATA /2E66 4B«, t00=0x0005, t01=0x001c}
0x07fa…0802 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0032}
0x0802…0816 Head {h00=0x0010, h01=0x0050, text=»ECBEN2 EQU *«, t00=0x0005, t01=0x003a}
0x0816…0824 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x004e}
0x0824…082c Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x005c}
0x082c…0836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0064}
0x0836…0854 Head {h00=0x001a, h01=0x0050, text=»* READ MESSAGE FROM TC«, t00=0x0005, t01=0x006e}
0x0854…085e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008c}
0x085e…0866 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0096}
0x0866…0880 Head {h00=0x0016, h01=0x0050, text=»TCAPP CF A14,K:LR «, t00=0x0005, t01=0x009e}
0x0880…0888 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00b8}
0x0888…0890 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00c0}
0x0890…089a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089a…08ba Head {h00=0x001c, h01=0x0050, text=»* WRITE MESSAGE TO FRED «, t00=0x0005, t01=0x00d2}
0x08ba…08d2 Head {h00=0x0014, h01=0x0050, text=»* AND READ REPLY«, t00=0x0005, t01=0x00f2}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08dc…08e4 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0114}
0x08e4…090e Head {h00=0x0026, h01=0x0050, text=» LDKL A1,K:LINB GET TC READ BUFFER«, t00=0x0005, t01=0x011c}
0x090e…0922 Head {h00=0x0010, h01=0x0050, text=» ADR A1,A13 «, t00=0x0005, t01=0x0146}
0x0922…0946 Head {h00=0x0020, h01=0x0050, text=» LD A6,-2,A1 GET TCA LINE NO«, t00=0x0005, t01=0x015a}
0x0946…0962 Head {h00=0x0018, h01=0x0050, text=» ANK A6,/FF LINE NO «, t00=0x0005, t01=0x017e}
0x0962…0996 Head {h00=0x0030, h01=0x0050, text=» LDK A4,/4 PRESET RETURNCODE 4=NO ECB FOUND «, t00=0x0006, t01=0x000a}
0x0996…09ae Head {h00=0x0014, h01=0x0050, text=» LDKL A5,ECBTB1 «, t00=0x0006, t01=0x003e}
0x09ae…09c4 Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0006, t01=0x0056}
0x09c4…09da Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB1 «, t00=0x0006, t01=0x006c}
0x09da…09f2 Head {h00=0x0014, h01=0x0050, text=» CWK A6,1 LINE 1«, t00=0x0006, t01=0x0082}
0x09f2…0a08 Head {h00=0x0012, h01=0x0050, text=» RF(E) CCQ001 «, t00=0x0006, t01=0x009a}
0x0a08…0a20 Head {h00=0x0014, h01=0x0050, text=» CWK A6,2 LINE 2«, t00=0x0006, t01=0x00b0}
0x0a20…0a36 Head {h00=0x0012, h01=0x0050, text=» RB(NE) TCAPP «, t00=0x0006, t01=0x00c8}
0x0a36…0a52 Head {h00=0x0018, h01=0x0050, text=» LDKL A5,ECBTB2 YES «, t00=0x0006, t01=0x00de}
0x0a52…0a68 Head {h00=0x0012, h01=0x0050, text=» ST A5,ECBTST «, t00=0x0006, t01=0x00fa}
0x0a68…0a7e Head {h00=0x0012, h01=0x0050, text=» AD A5,ECBTB2 «, t00=0x0006, t01=0x0110}
0x0a7e…0a92 Head {h00=0x0010, h01=0x0050, text=»CCQ001 EQU *«, t00=0x0006, t01=0x0126}
0x0a92…0ab6 Head {h00=0x0020, h01=0x0050, text=» LD A6,-2,A1 GET TCA,LINE NO«, t00=0x0006, t01=0x013a}
0x0ab6…0acc Head {h00=0x0012, h01=0x0050, text=» ANKL A6,/FF00«, t00=0x0006, t01=0x015e}
0x0acc…0ae8 Head {h00=0x0018, h01=0x0050, text=» LD A2,0,A1 DEV,AID «, t00=0x0006, t01=0x0174}
0x0ae8…0afa Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0006, t01=0x0190}
0x0afa…0b0e Head {h00=0x0010, h01=0x0050, text=» ANKL A2,/FF«, t00=0x0007, t01=0x0012}
0x0b0e…0b2e Head {h00=0x001c, h01=0x0050, text=» ORR A6,A2 TCA AND DEV. «, t00=0x0007, t01=0x0026}
0x0b2e…0b42 Head {h00=0x0010, h01=0x0050, text=»CCQ002 EQU *«, t00=0x0007, t01=0x0046}
0x0b42…0b6e Head {h00=0x0028, h01=0x0050, text=» SUK A5,4 POINTER TO TCA AND DEV.ADR«, t00=0x0007, t01=0x005a}
0x0b6e…0b92 Head {h00=0x0020, h01=0x0050, text=» CWK A5,ECBTST END OF TABEL «, t00=0x0007, t01=0x0086}
0x0b92…0bb4 Head {h00=0x001e, h01=0x0050, text=»ECBTST EQU *-2 ECBTB1 OR 2«, t00=0x0007, t01=0x00aa}
0x0bb4…0bca Head {h00=0x0012, h01=0x0050, text=» RB(NP) TCAPP «, t00=0x0007, t01=0x00cc}
0x0bca…0bde Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A5 «, t00=0x0007, t01=0x00e2}
0x0bde…0bf6 Head {h00=0x0014, h01=0x0050, text=» CWR A2,A6 OK ? «, t00=0x0007, t01=0x00f6}
0x0bf6…0c10 Head {h00=0x0016, h01=0x0050, text=» RB(NE) CCQ002 NO «, t00=0x0007, t01=0x010e}
0x0c10…0c28 Head {h00=0x0014, h01=0x0050, text=» LD A8,2,A5 YES «, t00=0x0007, t01=0x0128}
0x0c28…0c4a Head {h00=0x001e, h01=0x0050, text=» ANKL A8,/FF GET FILE CODE«, t00=0x0007, t01=0x0140}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0162}
0x0c54…0c6e Head {h00=0x0016, h01=0x0050, text=»* GET ECB ADDRESS«, t00=0x0007, t01=0x016c}
0x0c6e…0c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c78…0caa Head {h00=0x002e, h01=0x0050, text=» LDKL A2,K:SIMP GET ADR.OF FIRST SIM.TERM.«, t00=0x0007, t01=0x0190}
0x0caa…0cbc Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0008, t01=0x0032}
0x0cbc…0cd0 Head {h00=0x0010, h01=0x0050, text=»CCQ003 EQU *«, t00=0x0008, t01=0x0044}
0x0cd0…0cee Head {h00=0x001a, h01=0x0050, text=» CWR A2,0 END OF CHAIN«, t00=0x0008, t01=0x0058}
0x0cee…0d10 Head {h00=0x001e, h01=0x0050, text=» RB(E) TCAPP NEW LINE READ«, t00=0x0008, t01=0x0076}
0x0d10…0d36 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 POINTER TO LFILECODE«, t00=0x0008, t01=0x0098}
0x0d36…0d58 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A2 GET FILE CODE «, t00=0x0008, t01=0x00be}
0x0d58…0d6c Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0008, t01=0x00e0}
0x0d6c…0d7e Head {h00=0x000e, h01=0x0050, text=» CWR A8,A5«, t00=0x0008, t01=0x00f4}
0x0d7e…0d9a Head {h00=0x0018, h01=0x0050, text=» RF(E) CCQ004 FOUND «, t00=0x0008, t01=0x0106}
0x0d9a…0dac Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0008, t01=0x0122}
0x0dac…0dca Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A2 NEXT DEV. «, t00=0x0008, t01=0x0134}
0x0dca…0ddc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0008, t01=0x0152}
0x0ddc…0dee Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0008, t01=0x0164}
0x0dee…0e00 Head {h00=0x000e, h01=0x0050, text=» RB CCQ003«, t00=0x0008, t01=0x0176}
0x0e00…0e14 Head {h00=0x0010, h01=0x0050, text=»CCQ004 EQU *«, t00=0x0008, t01=0x0188}
0x0e14…0e30 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A2 ECB FOUND«, t00=0x0009, t01=0x000c}
0x0e30…0e5e Head {h00=0x002a, h01=0x0050, text=»* TEST IF ECB IS FREE OR USED DK «, t00=0x0009, t01=0x0028}
0x0e5e…0e82 Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 A7=STATUS+FC DK «, t00=0x0009, t01=0x0056}
0x0e82…0eaa Head {h00=0x0024, h01=0x0050, text=» ANKL A7,/2000 TEST USED-BIT DK «, t00=0x0009, t01=0x007a}
0x0eaa…0eca Head {h00=0x001c, h01=0x0050, text=» RF(Z) CCQ005 IF FREE DK«, t00=0x0009, t01=0x00a2}
0x0eca…0eec Head {h00=0x001e, h01=0x0050, text=» RB TCAPP SKIP IF USED DK «, t00=0x0009, t01=0x00c2}
0x0eec…0f10 Head {h00=0x0020, h01=0x0050, text=»CCQ005 EQU * SET USED-BIT DK«, t00=0x0009, t01=0x00e4}
0x0f10…0f34 Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 A7=STATUS+FC DK «, t00=0x0009, t01=0x0108}
0x0f34…0f5a Head {h00=0x0022, h01=0x0050, text=» ORKL A7,/2000 SET USED-BIT DK«, t00=0x0009, t01=0x012c}
0x0f5a…0f7e Head {h00=0x0020, h01=0x0050, text=» STR A7,A8 RESTORE IN ECB DK«, t00=0x0009, t01=0x0152}
0x0f7e…0fa6 Head {h00=0x0024, h01=0x0050, text=»* END TEST FOR USED-BIT DK «, t00=0x0009, t01=0x0176}
0x0fa6…0fc6 Head {h00=0x001c, h01=0x0050, text=» LD A2,-4,A1 AND LENGTH «, t00=0x000a, t01=0x000e}
0x0fc6…0fd8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x000a, t01=0x002e}
0x0fd8…1006 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,CCBUF+4 AND FRED WRITE BUFFER«, t00=0x000a, t01=0x0040}
0x1006…101a Head {h00=0x0010, h01=0x0050, text=» ADR A3,A13 «, t00=0x000a, t01=0x006e}
0x101a…103c Head {h00=0x001e, h01=0x0050, text=» ST A2,-4,A3 STORE LENGTH «, t00=0x000a, t01=0x0082}
0x103c…104e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x000a, t01=0x00a4}
0x104e…107c Head {h00=0x002a, h01=0x0050, text=» ADK A4,2 ADJUST FOR DRIVER INTERFACE «, t00=0x000a, t01=0x00b6}
0x107c…108e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000a, t01=0x00e4}
0x108e…1096 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00f6}
0x1096…10bc Head {h00=0x0022, h01=0x0050, text=»TCAP10 LCR A5,A1 MOVE MESSAGE «, t00=0x000a, t01=0x00fe}
0x10bc…10ce Head {h00=0x000e, h01=0x0050, text=» SCR A5,A4«, t00=0x000a, t01=0x0124}
0x10ce…10e0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000a, t01=0x0136}
0x10e0…10f2 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x000a, t01=0x0148}
0x10f2…1104 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x000a, t01=0x015a}
0x1104…111a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TCAP10«, t00=0x000a, t01=0x016c}
0x111a…1122 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0182}
0x1122…114a Head {h00=0x0024, h01=0x0050, text=» CF A14,K:CCQ EXCHANGE WITH FRED«, t00=0x000a, t01=0x018a}
0x114a…116a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) CCQ006 BAD REPLY«, t00=0x000b, t01=0x0022}
0x116a…1178 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0042}
0x1178…1180 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0050}
0x1180…118a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x118a…11a6 Head {h00=0x0018, h01=0x0050, text=»* WRITE REPLY TO TC «, t00=0x000b, t01=0x0062}
0x11a6…11b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007e}
0x11b0…11b8 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0088}
0x11b8…11e4 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,K:LINB GET TC WRITE BUFFER «, t00=0x000b, t01=0x0090}
0x11e4…11f8 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A13 «, t00=0x000b, t01=0x00bc}
0x11f8…1218 Head {h00=0x001c, h01=0x0050, text=» LD A3,-4,A1 GET LENGTH «, t00=0x000b, t01=0x00d0}
0x1218…122a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x000b, t01=0x00f0}
0x122a…1248 Head {h00=0x001a, h01=0x0050, text=» ST A3,-4,A2 AND STORE«, t00=0x000b, t01=0x0102}
0x1248…125a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000b, t01=0x0120}
0x125a…127a Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 ADJUST FOR STA«, t00=0x000b, t01=0x0132}
0x127a…1298 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 BUFFER ADR.«, t00=0x000b, t01=0x0152}
0x1298…12a0 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0170}
0x12a0…12c4 Head {h00=0x0020, h01=0x0050, text=»TCAP20 LCR A5,A6 MOVE REPLY «, t00=0x000b, t01=0x0178}
0x12c4…12d6 Head {h00=0x000e, h01=0x0050, text=» SCR A5,A4«, t00=0x000c, t01=0x000c}
0x12d6…12e8 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x000c, t01=0x001e}
0x12e8…12fa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x000c, t01=0x0030}
0x12fa…130c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000c, t01=0x0042}
0x130c…1322 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TCAP20«, t00=0x000c, t01=0x0054}
0x1322…132a Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x006a}
0x132a…1356 Head {h00=0x0028, h01=0x0050, text=» LDR A7,A8 SET A7=A8=ECB ADDRESS DK «, t00=0x000c, t01=0x0072}
0x1356…137c Head {h00=0x0022, h01=0x0050, text=» CF A14,K:RBCC RELEASE BUFFER «, t00=0x000c, t01=0x009e}
0x137c…1384 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00c4}
0x1384…13a2 Head {h00=0x001a, h01=0x0050, text=»* SET ECB FREE DK«, t00=0x000c, t01=0x00cc}
0x13a2…13c6 Head {h00=0x0020, h01=0x0050, text=» LDR* A8,A7 A8=STATUS+FC DK «, t00=0x000c, t01=0x00ea}
0x13c6…13ee Head {h00=0x0024, h01=0x0050, text=» ANKL A8,/DFFF CLEAR USED-BIT DK«, t00=0x000c, t01=0x010e}
0x13ee…1412 Head {h00=0x0020, h01=0x0050, text=» STR A8,A7 RESTORE IN ECB DK«, t00=0x000c, t01=0x0136}
0x1412…1438 Head {h00=0x0022, h01=0x0050, text=»* END OF SET ECB FREE DK «, t00=0x000c, t01=0x015a}
0x1438…1458 Head {h00=0x001c, h01=0x0050, text=» CF A14,K:LW WRITE REPLY«, t00=0x000c, t01=0x0180}
0x1458…1460 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0010}
0x1460…1472 Head {h00=0x000e, h01=0x0050, text=» RB TCAPP «, t00=0x000d, t01=0x0018}
0x1472…147a Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x002a}
0x147a…148e Head {h00=0x0010, h01=0x0050, text=»CCQ006 EQU *«, t00=0x000d, t01=0x0032}
0x148e…14ac Head {h00=0x001a, h01=0x0050, text=»* SET ECB FREE DK«, t00=0x000d, t01=0x0046}
0x14ac…14d0 Head {h00=0x0020, h01=0x0050, text=» LDR* A7,A8 A7=STATUS+FC DK «, t00=0x000d, t01=0x0064}
0x14d0…14f8 Head {h00=0x0024, h01=0x0050, text=» ANKL A7,/DFFF CLEAR USED-BIT DK«, t00=0x000d, t01=0x0088}
0x14f8…151c Head {h00=0x0020, h01=0x0050, text=» STR A7,A8 RESTORE IN ECB DK«, t00=0x000d, t01=0x00b0}
0x151c…1542 Head {h00=0x0022, h01=0x0050, text=»* END OF SET ECB FREE DK «, t00=0x000d, t01=0x00d4}
0x1542…1554 Head {h00=0x000e, h01=0x0050, text=» RB TCAPP «, t00=0x000d, t01=0x00fa}
0x1554…1560 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x010c}
0x1560…1564 Head {h00=0x4004, h01=0x0000}
0x1564…1568 00 0d 01 18 ┆ ┆
0x1568…1570 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x1570…15c0 (15, 0, 398) 3d 30 00 9e 01 86 00 2c 00 50 5c 44 41 54 41 5c 54 42 55 46 31 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 46 52 45 45 20 42 55 46 46 45 52 00 9f 00 0a 00 30 00 50 54 42 55 46 31 5c 44 41 54 41 5c 54 42 55 46 32 5c 50 4f 49 4e 54 ┆=0 , P DATA TBUF1 POINTER TO FIRST FREE BUFFER 0 PTBUF1 DATA TBUF2 POINT┆
0x15c0…1610 45 52 20 54 4f 20 4e 45 58 54 20 46 52 45 45 20 42 55 46 46 45 52 00 9f 00 3a 00 1c 00 50 5c 52 45 53 5c 54 42 55 46 4c 5c 42 55 46 46 45 52 20 41 52 45 41 20 31 00 9f 00 6e 00 1e 00 50 54 42 55 46 32 5c 44 41 54 41 5c 30 5c 45 4e 44 20 4f ┆ER TO NEXT FREE BUFFER : P RES TBUFL BUFFER AREA 1 n PTBUF2 DATA 0 END O┆
0x1610…1660 46 20 43 48 41 49 4e 20 00 9f 00 8e 00 1c 00 50 5c 52 45 53 5c 54 42 55 46 4c 5c 42 55 46 46 45 52 20 41 52 45 41 20 32 00 9f 00 b0 00 08 00 50 5c 58 49 46 00 9f 00 d0 00 06 00 50 2a 20 00 9f 00 dc 00 0a 00 50 5c 45 4a 45 43 54 00 9f 00 e6 ┆F CHAIN P RES TBUFL BUFFER AREA 2 P XIF P* P EJECT ┆
0x1660…16b0 00 06 00 50 2a 20 00 9f 00 f4 00 06 00 50 2a 20 00 9f 00 fe 00 20 00 50 2a 5c 49 4e 54 45 52 52 55 50 54 20 4c 4f 47 47 49 4e 47 20 52 4f 55 54 49 4e 45 20 00 9f 01 08 00 06 00 50 2a 20 00 9f 01 2c 00 06 00 50 2a 20 00 9f 01 36 00 10 00 50 ┆ P* P* P* INTERRUPT LOGGING ROUTINE P* , P* 6 P┆
0x16b0…16fe 5c 49 46 46 5c 4c 4f 47 47 3d 30 20 00 9f 01 40 00 16 00 50 4c 4f 47 53 53 54 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 9f 01 54 00 12 00 50 5c 4f 52 4b 4c 5c 41 32 2c 2f 46 30 30 30 00 9f 01 6e 00 0e 00 50 5c 52 46 5c 4c 4f 47 31 30 20 ┆ IFF LOGG=0 @ PLOGSST ST A2,SAVE2 T P ORKL A2,/F000 n P RF LOG10 ┆
0x16fe…174e (16, 0, 398) 00 9f 01 84 00 16 00 50 4c 4f 47 4f 55 54 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 a0 00 08 00 12 00 50 5c 4f 52 4b 4c 5c 41 32 2c 2f 30 46 30 30 00 a0 00 22 00 0e 00 50 5c 52 46 5c 4c 4f 47 31 30 20 00 a0 00 38 00 14 00 50 4c 4f 47 49 4e 5c ┆ PLOGOUT ST A2,SAVE2 P ORKL A2,/0F00 " P RF LOG10 8 PLOGIN ┆
0x174e…179e 43 57 4b 5c 41 32 2c 2f 46 46 00 a0 00 4a 00 12 00 50 5c 52 46 28 45 29 5c 4c 4f 47 45 31 30 20 00 a0 00 62 00 10 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 a0 00 78 00 16 00 50 4c 4f 47 31 30 5c 53 54 5c 41 33 2c 53 41 56 45 33 20 00 a0 ┆CWK A2,/FF J P RF(E) LOGE10 b P ST A2,SAVE2 x PLOG10 ST A3,SAVE3 ┆
0x179e…17ee 00 8c 00 12 00 50 5c 4c 44 5c 41 33 2c 4c 4f 47 50 4e 54 20 00 a0 00 a6 00 0e 00 50 5c 53 54 52 5c 41 32 2c 41 33 00 a0 00 bc 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 32 20 00 a0 00 ce 00 12 00 50 5c 43 57 4b 5c 41 33 2c 4c 4f 47 45 4e 44 00 a0 ┆ P LD A3,LOGPNT P STR A2,A3 P ADK A3,2 P CWK A3,LOGEND ┆
0x17ee…183e 00 e0 00 12 00 50 5c 52 46 28 4c 29 5c 4c 4f 47 45 58 49 20 00 a0 00 f6 00 14 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4c 4f 47 53 54 41 20 00 a0 01 0c 00 18 00 50 4c 4f 47 45 58 49 5c 53 54 5c 41 33 2c 4c 4f 47 50 4e 54 20 00 a0 01 24 00 10 00 50 ┆ P RF(L) LOGEXI P LDKL A3,LOGSTA PLOGEXI ST A3,LOGPNT $ P┆
0x183e…188c 5c 4c 44 5c 41 32 2c 53 41 56 45 32 00 a0 01 40 00 10 00 50 5c 4c 44 5c 41 33 2c 53 41 56 45 33 00 a0 01 54 00 12 00 50 4c 4f 47 45 31 30 5c 52 54 4e 5c 41 35 20 00 a0 01 68 00 0a 00 50 5c 45 4a 45 43 54 00 a0 01 7e 00 06 00 50 2a 20 ┆ LD A2,SAVE2 @ P LD A3,SAVE3 T PLOGE10 RTN A5 h P EJECT ~ P* ┆
0x188c…18dc (17, 0, 400) 00 a0 01 8c 00 06 00 50 2a 20 00 a1 00 08 00 16 00 50 4c 4f 47 50 4e 54 5c 44 41 54 41 5c 4c 4f 47 53 54 41 00 a1 00 12 00 10 00 50 4c 4f 47 53 54 41 5c 45 51 55 5c 2a 00 a1 00 2c 00 0c 00 50 5c 52 45 53 5c 33 30 30 00 a1 00 40 00 12 00 50 ┆ P* PLOGPNT DATA LOGSTA PLOGSTA EQU * , P RES 300 @ P┆
0x18dc…192c 4c 4f 47 45 4e 44 5c 45 51 55 5c 2a 2d 34 00 a1 00 50 00 10 00 50 53 41 56 45 32 5c 44 41 54 41 5c 30 00 a1 00 66 00 10 00 50 53 41 56 45 33 5c 44 41 54 41 5c 30 00 a1 00 7a 00 08 00 50 5c 58 49 46 00 a1 00 8e 00 06 00 50 2a 20 00 a1 00 9a ┆LOGEND EQU *-4 P PSAVE2 DATA 0 f PSAVE3 DATA 0 z P XIF P* ┆
0x192c…197c 00 06 00 50 2a 20 00 a1 00 a4 00 06 00 50 2a 20 00 a1 00 ae 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 a1 00 b8 00 0a 00 50 5c 45 4a 45 43 54 00 a1 00 cc 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* P* P IFT RCOM=1 P EJECT < P**********************┆
0x197c…19cc 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 2a 2a 2a 20 00 a1 00 da 00 06 00 50 2a 20 00 a1 01 1a 00 16 00 50 2a 20 20 20 20 20 4c 20 49 20 4e 20 43 20 4f 20 4c 20 00 a1 01 24 00 06 00 50 2a 20 ┆********************************* P* P* L I N C O L $ P* ┆
0x19cc…1a1c 00 a1 01 3e 00 3a 00 50 2a 20 20 20 20 20 43 4f 4e 56 45 52 54 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 20 54 4f 20 4c 49 4e 45 20 41 4e 44 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 00 a1 01 48 00 06 00 50 2a 20 00 a1 01 86 00 3e 00 50 ┆ > : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN NUMBER H P* > P┆
0x1a1c…1a6c (18, 0, 398) 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 a1 01 90 00 04 00 50 00 a2 00 42 00 10 00 50 4c 49 4e 43 4f 4c ┆********************************************************** P B PLINCOL┆
0x1a6c…1abc 5c 45 51 55 5c 2a 00 a2 00 4a 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 33 5c 43 4f 50 59 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 a2 00 5e 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 36 20 00 a2 00 84 00 12 00 50 5c 41 4e 4b 5c 41 32 2c 58 27 ┆ EQU * J " P LDR A2,A3 COPY CURSOR ADDRESS ^ P SRL A2,6 P ANK A2,X'┆
0x1abc…1b0c 33 46 27 5c 00 a2 00 96 00 26 00 50 5c 4c 43 5c 41 32 2c 4c 49 43 4f 3a 54 2c 41 32 5c 41 53 43 49 49 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 a2 00 ac 00 22 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 4c 49 4e 45 20 4e 55 ┆3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P CF A5,WRITEP SEND LINE NU┆
0x1b0c…1b5c 4d 42 45 52 00 a2 00 d6 00 04 00 50 00 a2 00 fc 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 33 00 a2 01 04 00 12 00 50 5c 41 4e 4b 5c 41 32 2c 58 27 33 46 27 20 00 a2 01 16 00 28 00 50 5c 4c 43 5c 41 32 2c 4c 49 43 4f 3a 54 2c 41 32 5c 41 53 43 ┆MBER P P LDR A2,A3 P ANK A2,X'3F' ( P LC A2,LICO:T,A2 ASC┆
0x1b5c…1baa 49 49 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 00 a2 01 2c 00 24 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 00 a2 01 58 00 12 00 50 5c 52 54 4e 5c 41 35 5c 52 45 54 55 52 4e ┆II COLUMN NUMBER , $ P CF A5,WRITEP SEND COLUMN NUMBER X P RTN A5 RETURN┆
0x1baa…1bfa (19, 0, 400) 00 a2 01 80 00 06 00 50 2a 20 00 a3 00 08 00 06 00 50 2a 20 00 a3 00 12 00 06 00 50 2a 20 00 a3 00 1c 00 0a 00 50 5c 45 4a 45 43 54 00 a3 00 26 00 04 00 50 00 a3 00 34 00 04 00 50 00 a3 00 3c 00 10 00 50 4c 49 43 4f 3a 54 5c 45 51 55 5c 2a ┆ P* P* P* P EJECT & P 4 P < PLICO:T EQU *┆
0x1bfa…1c4a 00 a3 00 44 00 2a 00 50 5c 44 41 54 41 5c 2f 32 30 34 31 2c 2f 34 32 34 33 2c 2f 34 34 34 35 2c 2f 34 36 34 37 5c 2f 30 30 2d 2f 30 37 20 00 a3 00 58 00 2a 00 50 5c 44 41 54 41 5c 2f 34 38 34 39 2c 2f 32 33 32 45 2c 2f 33 43 32 38 2c 2f 32 ┆ D * P DATA /2041,/4243,/4445,/4647 /00-/07 X * P DATA /4849,/232E,/3C28,/2┆
0x1c4a…1c9a 42 32 31 5c 2f 30 38 2d 2f 30 46 20 00 a3 00 86 00 2a 00 50 5c 44 41 54 41 5c 2f 32 36 34 41 2c 2f 34 42 34 43 2c 2f 34 44 34 45 2c 2f 34 46 35 30 5c 2f 31 30 2d 2f 31 37 20 00 a3 00 b4 00 2a 00 50 5c 44 41 54 41 5c 2f 35 31 35 32 2c 2f 32 ┆B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 * P DATA /5152,/2┆
0x1c9a…1cea 34 35 44 2c 2f 32 41 32 39 2c 2f 33 42 35 45 5c 2f 31 38 2d 2f 31 46 20 00 a3 00 e2 00 2a 00 50 5c 44 41 54 41 5c 2f 32 44 32 46 2c 2f 35 33 35 34 2c 2f 35 35 35 36 2c 2f 35 37 35 38 5c 2f 32 30 2d 2f 32 37 20 00 a3 01 10 00 2a 00 50 5c 44 ┆45D,/2A29,/3B5E /18-/1F * P DATA /2D2F,/5354,/5556,/5758 /20-/27 * P D┆
0x1cea…1d3a 41 54 41 5c 2f 35 39 35 41 2c 2f 34 30 32 43 2c 2f 32 35 35 46 2c 2f 33 45 33 46 5c 2f 32 38 2d 2f 32 46 20 00 a3 01 3e 00 28 00 50 5c 44 41 54 41 5c 2f 33 30 33 31 2c 2f 33 32 33 33 2c 2f 33 34 33 35 2c 2f 33 36 33 37 5c 2f 33 30 2d 33 37 ┆ATA /595A,/402C,/255F,/3E3F /28-/2F > ( P DATA /3031,/3233,/3435,/3637 /30-37┆
0x1d3a…1d8a (20, 2, 326) 00 a3 01 6c 00 28 00 50 5c 44 41 54 41 5c 2f 33 38 33 39 2c 2f 33 41 35 42 2c 2f 35 43 32 37 2c 2f 33 44 32 32 5c 2f 33 38 2d 33 46 00 a4 00 08 00 08 00 50 5c 58 49 46 00 a4 00 34 00 0a 00 50 5c 45 4a 45 43 54 00 a4 00 40 00 04 00 50 00 a4 ┆ l ( P DATA /3839,/3A5B,/5C27,/3D22 /38-3F P XIF 4 P EJECT @ P ┆
0x1d8a…1dda 00 4e 00 18 00 50 44 43 3a 49 4e 5c 44 41 54 41 5c 44 43 3a 54 41 42 2b 32 20 00 a4 00 56 00 16 00 50 44 43 54 41 42 5c 44 41 54 41 5c 44 43 3a 54 41 42 20 00 a4 00 72 00 22 00 50 44 43 3a 54 41 42 5c 44 41 54 41 5c 32 5c 4c 45 4e 47 54 48 ┆ N PDC:IN DATA DC:TAB+2 V PDCTAB DATA DC:TAB r " PDC:TAB DATA 2 LENGTH┆
0x1dda…1e2a 20 4f 46 20 44 43 3a 54 41 42 00 a4 00 8c 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 a4 00 b2 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c ┆ OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * P DATA 0,0,0,0,0,┆
0x1e2a…1e7a 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 a4 00 e0 00 10 00 50 44 43 3a 45 4e 44 5c 45 51 55 5c 2a 00 a4 01 0e 00 06 00 50 2a 20 00 a4 01 22 00 06 00 50 2a 20 00 a4 01 2c 00 08 00 50 5c 45 4e 44 00 a4 01 36 40 04 ┆0,0,0,0,0,0,0,0,0,0,0 PDC:END EQU * P* " P* , P END 6@ ┆
0x1e7a…1e80 00 00 00 a4 01 42 ┆ B┆