|
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: 11176 (0x2ba8)
Notes: pts_type(SC)
Names: »LDTASK.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/LDTASK.SC«
IDENT LDTASK REL 8.2 78-09-15 870105040820 * ******************************* * * PHILIPS TERMINAL SYSTEM PTS * * LDTASK = LOAD TASK * * * * * * ******************************* * * ENTRY LDTASK ENTRY ECBRED LOAD TASK READ ECB * * EXTRN QTJOB TASK QUEUE EXTRN FREPAR FREE COREMEMORY PARTITION EXTRN PARLEN LENGTH OF PARTITION EXTRN PARNUM NUMBER OF PARTITION EXTRN GETBLK MONITOR FREE BLOCK EXTRN FREBLK PARAM. FROM MON.BLOCK EXTRN TTB:SA NAME OF THE 5W IN TTAB EXTRN TTB:SP SEGMENT POINTER EXTRN TTB:SS SEGMENT START EXTRN LRUQUE POINTER TO FIRST SEGMENT IN QUEUE EXTRN PARTEN ADDRESS TO FREE PARTITION EXTRN LDPEND LOAD PENDING. LDTASK IN PAUSE EXTRN CVTINP SUBROUTINE TABLE ADDRESS EXTRN CVTDK START UP DISC EJECT * * * * ECBRED DATA /F0,0,410,0,0,0 SEGMNO RES 1 SEGMENT NUMBER * * EJECT LDTASK EQU * * * * MONBLK = GET PARAMETERS FROM A MONITOR BLOCK * * MONBLK EQU * LDKL A14,STBLD LOAD STACK BASE LD A4,CVTDK GET START DISC ST A4,ECBRED LDR A4,A1 CF A15,FREBLK --GET MON.BLOCK LDR A9,A1 SAVE TTAB-ADDRESS ST A3,SEGMNO SAVE SEGMENT POINTER LDR A12,A2 * * TEST IF SEGMENT ALREADY IS LOADED * LDTEST EQU * LDR* A1,A3 LOADED ? RF(N) PART NO LD A10,2,A3 NEW LOAD ADDRESS ABL ACTIV * * PART = SEEK FREE PARTTION IN CORE MEMORY * PART EQU * LD A10,FREPAR GET PARTITION POINTER RF(NZ) UPDFRE LD A8,LRUQUE ZERO ? RF(NE) SEEK * * MEMORY SPACE NOT AVAILABLE * INDICATE LOADING PENDING AND PAUSE LDTASK * PAUSE EQU * IM LDPEND ENB LKM PAUSE LDTASK DATA 5 INH RB LDTEST * UPDFRE LDR* A7,A10 NEXT FREE PARTITION ST A7,FREPAR UPDATE PARTITION POINTER RF FINITO SEEK LDR* A7,A8 RF(E) READY LDR A8,A7 RB SEEK READY LD A10,-8,A8 LOAD ADDR. TO FREE PARTITION * * UPLSBT = UPDATE LSBT SEGMENT STATUS * UPLSBT EQU * LDK A7,/80 SC A7,-10,A8 UNLOADED LD A6,-2,A8 PRECEDENT RF(Z) FIN CM 2,A6 UPDATE END OF QUEUE RF FINO FIN CM LRUQUE NO LRUQUE FINO LDK A6,0 SET CONST. STR A6,A8 PRECEDENT=0 ST A6,-2,A8 SUCCEDENT=0 FINITO EQU * LDK A7,/C0 SCR A7,A3 SET NEW SEGMENT STATUS=UNDER LOADING ST A10,2,A3 LOAD ADDRESS * * SAVE AND LOAD REGISTERS FOR * READ AND RELOCATION ROUTINE * ENB SUKL A10,10 ST A10,ECBRED+2 READ BUFFER ADDRESS ADKL A10,2 RELOCATION BASE=PARTITION START ADDR.-8 LDR A13,A10 LOAD ADDRESS POINTER LD A6,4,A3 SECTOR ADDRESS LDK A7,/F8 LOWEST FLEX.DISC FILE CODE CW A7,CVTDK RF(G) CONT NOT FLEXIBLE DISC * * LOCK FLEXIBLE DISC (IF UNLOCKED) * LDK A7,/A6 LOCK ORDER LDKL A8,ECBRED LKM DATA 1 LD A7,8,A8 RETURN CODE ANK A7,/27 FAULTY FORMAT,SEEK- CRC ERROR,NOT OPER. RF(Z) CONT OK ,ALREADY LOCKED ANK A7,1 RF(NZ) ERRLOD NOT OPERABLE LDK A7,2 I/O ERROR RF ERRLOD CONT EQU * EJECT ************************************************************ * * READ AND RELOCATION ROUTINE * * ENTRY PARAMETERS: * A10= RELOCATION BASE * A13= MEMORY ADDRESS POINTER * * REGISTER USAGE: * A1 = LAST WORD TO RELOCATE * A2 = RELOCATION BITS CHECK REG * A3 = ADDRESS OF RELOCATION TABLE * A4 = RELOCATION BIT COUNTER * A5 = * A7 = CODE WORD COUNTER * A8 = CODE WORD * ************************************************************ * * READ FIRST SECTOR FOR RELOCATION AND GET RELOC. PARAMETERS * CF A14,IOSUBS --READ SECTOR LDR A7,A7 READ ERROR? RF(NZ) ERRLOD LD A1,4,A10 LOAD MODULE LENGTH IN BYTES ADR A1,A10 ADD RELOCATION BASE TO GET END ADDRESS * * RELOCATE SECTOR * RELSEC LDKL A7,376 NUMBER OF BYTES IN NORMAL SECTOR LDR A3,A13 ADR A3,A7 ADDRESS TO RELOCATION WORDS * * GET RELOCATION WORD * RELWRD LDK A4,16 INITIATE RELOCATION BIT COUNTER LDR* A2,A3 GET RELOCATION WORD RF(NZ) REL200 IF NOT ZERO JMP AND RELOCATE * * NO MORE RELOCATION BY THIS WORD * RENONE ADR A4,A4 NUMBER OF BYTES TO ADD ADR A13,A4 SRL A1,1 LDR A5,A13 SRL A5,1 CWR A5,A1 MODULE END? RF(NL) RELEND YES SLL A1,1 SUR A7,A4 SECTOR ENDED? RF(P) REL100 JMP IF NOT ADR A13,A7 RF SECEND REL100 ADK A3,2 UPDATE RELOCATION WORD POINTER RB RELWRD GET NEXT WORD * * PERFORM RELOCATION * RELNXT SLL A2,1 RELOCATE THIS MODULE WORD? RB(Z) RENONE NO MORE TO RELOCATE BY THIS WORD! REL200 RF(N) REL300 YES RELOCATE MODULE WORD SLN A2,A5 NOT THIS WORD - GET NEXT SUR A4,A5 ADR A5,A5 SUR A7,A5 ADR A13,A5 RF REL400 * * RELOCATE ONE MODULE WORD * REL300 LDR* A8,A13 GET WORD ADR A8,A10 ADD BASE STR A8,A13 RESTORE WORD REL400 EQU * ADKL A13,2 CWR A13,A1 RELOCATION ENDED? RF(E) RELEND YES SUK A7,2 RF(Z) SECEND JMP IF END OF SECTOR SUK A4,1 GET NEXT RELOCATION BIT RB(P) RELNXT RELOCATE NEXT MODULE WORD RB REL100 * * GET NEXT SECTOR FOR RELOCATION * SECEND ADK A6,1 UPDATE SECTOR POINTER SUKL A13,2 LDR* A5,A13 SAVE LAST WORD ST A13,ECBRED+2 SET READ BUFFER ADDRESS CF A14,IOSUBS READ SECTOR LDR A7,A7 READ ERROR? RF(NZ) ERRLOD STR A5,A13 RESTORE LAST WORD ADKL A13,2 UPDATE MEMORY POINTER RB RELSEC RELOCATE NEXT SECTOR * * SAVE START OF BUFFER POOL AND INDICATE LOADING ENDED * RELEND EQU * ADKL A10,8 PARTITION STARTADDR. LD A3,SEGMNO GET SEGMENT ADDRESS LDK A7,/00 SCR A7,A3 STATUS= LOADED , READY * * GET START ADDRESS IN SEGMENT * ACTIV EQU * LDR A12,A12 DISPATCHER RF(N) DSPFOR AVTIVATION ADR A12,A10 LDR* A12,A12 ABSOLUTE ADDRESS RF UPDTTB DSPFOR NGR A12,A12 ADR A12,A10 UPDTTB ST A12,TTB:SA,A9 ST A10,TTB:SS,A9 SEGMENT START ADDRESS ST A3,TTB:SP,A9 SEGMENT POINTER DIRECT LDR A5,A9 CF A15,QTJOB --START CALLING TASK ENB LKM DATA 3 EXIT ERRLOD LD A5,CVTINP SUK A5,2 LDR* A5,A5 ST A5,TTB:SA,A9 ST A7,TTB:SA+14,A9 ERROR RETURN CODE LDK A5,/80 SC* A5,SEGMNO LD A5,FREPAR ADKL A10,8 ST A10,FREPAR STR A5,A10 CM TTB:SP,A9 RB DIRECT EJECT * * IOSUBS = READ SECTOR SUBROUTINE * * THIS ROUTINE READS ONE SECTOR FROM DISC * AND ALSO CHECKS THE RETURN CODE CONDITION * IOSUBS EQU * LDK A7,/91 LDKL A8,ECBRED ST A6,10,A8 STORE SECTOR NUMBER IN ECB-WORD LKM DATA 1 * * * RETCOD CHECKS AND TRANSLATES RETURNCODE AFTER READ. * * INPUT:8,A8 = RETURN CODE AFTER READ * * OUTPUT:A7 = 0 NO ERROR * 1 DISC. IO ERROR * 2 DISC. INOPERABLE * 3 NEW VOLUME LOADED * * RETCOD EQU * LD A7,8,A8 GET RETURN CODE ANKL A7,/FEFF BIT 7 ONLY RETRIES RF(Z) UT NO ERROR ANK A7,/83 RF(Z) DISCIO BIT 0-6,9-13 ANK A7,/3 RB(Z) IOSUBS BIT 8 NEW VOLUME LOADED LDK A7,1 DISC INOPERABLE DISCIO ADK A7,1 DISC IO ERROR UT RTN A14 * RES 10 STBLD EQU *-2 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT LDTASK REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0070 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0000, t01=0x004c}
0x0070…007a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0074}
0x007a…00a2 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x007e}
0x00a2…00ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a6}
0x00ac…00ca Head {h00=0x001a, h01=0x0050, text=»* LDTASK = LOAD TASK«, t00=0x0000, t01=0x00b0}
0x00ca…00d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…00de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d8}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…00f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ec}
0x00f2…00fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…012e Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x0000, t01=0x010a}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…0158 Head {h00=0x0012, h01=0x0050, text=» ENTRY LDTASK «, t00=0x0000, t01=0x0146}
0x0158…0180 Head {h00=0x0024, h01=0x0050, text=» ENTRY ECBRED LOAD TASK READ ECB«, t00=0x0000, t01=0x015c}
0x0180…018a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x018a…0194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018e}
0x0194…01b4 Head {h00=0x001c, h01=0x0050, text=» EXTRN QTJOB TASK QUEUE «, t00=0x0001, t01=0x0008}
0x01b4…01e4 Head {h00=0x002c, h01=0x0050, text=» EXTRN FREPAR FREE COREMEMORY PARTITION «, t00=0x0001, t01=0x0028}
0x01e4…020e Head {h00=0x0026, h01=0x0050, text=» EXTRN PARLEN LENGTH OF PARTITION «, t00=0x0001, t01=0x0058}
0x020e…0238 Head {h00=0x0026, h01=0x0050, text=» EXTRN PARNUM NUMBER OF PARTITION «, t00=0x0001, t01=0x0082}
0x0238…0260 Head {h00=0x0024, h01=0x0050, text=» EXTRN GETBLK MONITOR FREE BLOCK«, t00=0x0001, t01=0x00ac}
0x0260…028c Head {h00=0x0028, h01=0x0050, text=» EXTRN FREBLK PARAM. FROM MON.BLOCK «, t00=0x0001, t01=0x00d4}
0x028c…02b8 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SA NAME OF THE 5W IN TTAB«, t00=0x0001, t01=0x0100}
0x02b8…02de Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SP SEGMENT POINTER «, t00=0x0001, t01=0x012c}
0x02de…0302 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SS SEGMENT START «, t00=0x0001, t01=0x0152}
0x0302…033a Head {h00=0x0034, h01=0x0050, text=» EXTRN LRUQUE POINTER TO FIRST SEGMENT IN QUEUE «, t00=0x0001, t01=0x0176}
0x033a…036a Head {h00=0x002c, h01=0x0050, text=» EXTRN PARTEN ADDRESS TO FREE PARTITION «, t00=0x0002, t01=0x001e}
0x036a…039e Head {h00=0x0030, h01=0x0050, text=» EXTRN LDPEND LOAD PENDING. LDTASK IN PAUSE «, t00=0x0002, t01=0x004e}
0x039e…03cc Head {h00=0x002a, h01=0x0050, text=» EXTRN CVTINP SUBROUTINE TABLE ADDRESS«, t00=0x0002, t01=0x0082}
0x03cc…03ee Head {h00=0x001e, h01=0x0050, text=» EXTRN CVTDK START UP DISC«, t00=0x0002, t01=0x00b0}
0x03ee…03fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d2}
0x03fc…0406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e0}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0424…0448 Head {h00=0x0020, h01=0x0050, text=»ECBRED DATA /F0,0,410,0,0,0 «, t00=0x0002, t01=0x0108}
0x0448…046c Head {h00=0x0020, h01=0x0050, text=»SEGMNO RES 1 SEGMENT NUMBER «, t00=0x0002, t01=0x012c}
0x046c…0476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x0476…0480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015a}
0x0480…048e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0164}
0x048e…04a2 Head {h00=0x0010, h01=0x0050, text=»LDTASK EQU *«, t00=0x0002, t01=0x0172}
0x04a2…04ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0186}
0x04ac…04b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04ee Head {h00=0x0034, h01=0x0050, text=»* MONBLK = GET PARAMETERS FROM A MONITOR BLOCK«, t00=0x0003, t01=0x000a}
0x04ee…04f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f8…0502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x0502…0516 Head {h00=0x0010, h01=0x0050, text=»MONBLK EQU *«, t00=0x0003, t01=0x0056}
0x0516…053e Head {h00=0x0024, h01=0x0050, text=» LDKL A14,STBLD LOAD STACK BASE «, t00=0x0003, t01=0x006a}
0x053e…0562 Head {h00=0x0020, h01=0x0050, text=» LD A4,CVTDK GET START DISC «, t00=0x0003, t01=0x0092}
0x0562…0578 Head {h00=0x0012, h01=0x0050, text=» ST A4,ECBRED «, t00=0x0003, t01=0x00b6}
0x0578…058a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0003, t01=0x00cc}
0x058a…05b0 Head {h00=0x0022, h01=0x0050, text=» CF A15,FREBLK --GET MON.BLOCK«, t00=0x0003, t01=0x00de}
0x05b0…05d4 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A1 SAVE TTAB-ADDRESS«, t00=0x0003, t01=0x0104}
0x05d4…05fe Head {h00=0x0026, h01=0x0050, text=» ST A3,SEGMNO SAVE SEGMENT POINTER«, t00=0x0003, t01=0x0128}
0x05fe…0612 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A2 «, t00=0x0003, t01=0x0152}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0166}
0x061c…064a Head {h00=0x002a, h01=0x0050, text=»* TEST IF SEGMENT ALREADY IS LOADED «, t00=0x0003, t01=0x0170}
0x064a…0654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0654…0668 Head {h00=0x0010, h01=0x0050, text=»LDTEST EQU *«, t00=0x0004, t01=0x0018}
0x0668…0684 Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A3 LOADED ?«, t00=0x0004, t01=0x002c}
0x0684…069a Head {h00=0x0012, h01=0x0050, text=» RF(N) PART NO«, t00=0x0004, t01=0x0048}
0x069a…06c0 Head {h00=0x0022, h01=0x0050, text=» LD A10,2,A3 NEW LOAD ADDRESS «, t00=0x0004, t01=0x005e}
0x06c0…06d2 Head {h00=0x000e, h01=0x0050, text=» ABL ACTIV«, t00=0x0004, t01=0x0084}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06dc…0710 Head {h00=0x0030, h01=0x0050, text=»* PART = SEEK FREE PARTTION IN CORE MEMORY«, t00=0x0004, t01=0x00a0}
0x0710…071a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d4}
0x071a…072c Head {h00=0x000e, h01=0x0050, text=»PART EQU *«, t00=0x0004, t01=0x00de}
0x072c…0758 Head {h00=0x0028, h01=0x0050, text=» LD A10,FREPAR GET PARTITION POINTER«, t00=0x0004, t01=0x00f0}
0x0758…076e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPDFRE«, t00=0x0004, t01=0x011c}
0x076e…078a Head {h00=0x0018, h01=0x0050, text=» LD A8,LRUQUE ZERO ?«, t00=0x0004, t01=0x0132}
0x078a…079e Head {h00=0x0010, h01=0x0050, text=» RF(NE) SEEK«, t00=0x0004, t01=0x014e}
0x079e…07a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0162}
0x07a8…07ce Head {h00=0x0022, h01=0x0050, text=»* MEMORY SPACE NOT AVAILABLE«, t00=0x0004, t01=0x016c}
0x07ce…0804 (5, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* INDICATE LOADING PENDING AND PAUSE LDTASK «, t00=0x0005, t01=0x0004}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003a}
0x080e…0822 Head {h00=0x0010, h01=0x0050, text=»PAUSE EQU * «, t00=0x0005, t01=0x0044}
0x0822…0834 Head {h00=0x000e, h01=0x0050, text=» IM LDPEND«, t00=0x0005, t01=0x0058}
0x0834…0840 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0005, t01=0x006a}
0x0840…085a Head {h00=0x0016, h01=0x0050, text=» LKM PAUSE LDTASK«, t00=0x0005, t01=0x0076}
0x085a…086a Head {h00=0x000c, h01=0x0050, text=» DATA 5 «, t00=0x0005, t01=0x0090}
0x086a…0876 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0005, t01=0x00a0}
0x0876…0888 Head {h00=0x000e, h01=0x0050, text=» RB LDTEST«, t00=0x0005, t01=0x00ac}
0x0888…0892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00be}
0x0892…08c0 Head {h00=0x002a, h01=0x0050, text=»UPDFRE LDR* A7,A10 NEXT FREE PARTITION«, t00=0x0005, t01=0x00c8}
0x08c0…08ee Head {h00=0x002a, h01=0x0050, text=» ST A7,FREPAR UPDATE PARTITION POINTER«, t00=0x0005, t01=0x00f6}
0x08ee…0900 Head {h00=0x000e, h01=0x0050, text=» RF FINITO«, t00=0x0005, t01=0x0124}
0x0900…0918 Head {h00=0x0014, h01=0x0050, text=»SEEK LDR* A7,A8 «, t00=0x0005, t01=0x0136}
0x0918…092c Head {h00=0x0010, h01=0x0050, text=» RF(E) READY«, t00=0x0005, t01=0x014e}
0x092c…093e Head {h00=0x000e, h01=0x0050, text=» LDR A8,A7«, t00=0x0005, t01=0x0162}
0x093e…094e Head {h00=0x000c, h01=0x0050, text=» RB SEEK«, t00=0x0005, t01=0x0174}
0x094e…0986 Head {h00=0x0034, h01=0x0050, text=»READY LD A10,-8,A8 LOAD ADDR. TO FREE PARTITION «, t00=0x0005, t01=0x0184}
0x0986…0990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x0990…09c0 Head {h00=0x002c, h01=0x0050, text=»* UPLSBT = UPDATE LSBT SEGMENT STATUS «, t00=0x0006, t01=0x0036}
0x09c0…09ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0066}
0x09ca…09de Head {h00=0x0010, h01=0x0050, text=»UPLSBT EQU *«, t00=0x0006, t01=0x0070}
0x09de…09f2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0006, t01=0x0084}
0x09f2…0a10 Head {h00=0x001a, h01=0x0050, text=» SC A7,-10,A8 UNLOADED«, t00=0x0006, t01=0x0098}
0x0a10…0a2e Head {h00=0x001a, h01=0x0050, text=» LD A6,-2,A8 PRECEDENT«, t00=0x0006, t01=0x00b6}
0x0a2e…0a40 Head {h00=0x000e, h01=0x0050, text=» RF(Z) FIN«, t00=0x0006, t01=0x00d4}
0x0a40…0a64 Head {h00=0x0020, h01=0x0050, text=» CM 2,A6 UPDATE END OF QUEUE«, t00=0x0006, t01=0x00e6}
0x0a64…0a74 Head {h00=0x000c, h01=0x0050, text=» RF FINO«, t00=0x0006, t01=0x010a}
0x0a74…0a94 Head {h00=0x001c, h01=0x0050, text=»FIN CM LRUQUE NO LRUQUE «, t00=0x0006, t01=0x011a}
0x0a94…0ab4 Head {h00=0x001c, h01=0x0050, text=»FINO LDK A6,0 SET CONST.«, t00=0x0006, t01=0x013a}
0x0ab4…0ad2 Head {h00=0x001a, h01=0x0050, text=» STR A6,A8 PRECEDENT=0«, t00=0x0006, t01=0x015a}
0x0ad2…0af2 Head {h00=0x001c, h01=0x0050, text=» ST A6,-2,A8 SUCCEDENT=0«, t00=0x0006, t01=0x0178}
0x0af2…0b06 Head {h00=0x0010, h01=0x0050, text=»FINITO EQU *«, t00=0x0007, t01=0x0008}
0x0b06…0b1a Head {h00=0x0010, h01=0x0050, text=» LDK A7,/C0 «, t00=0x0007, t01=0x001c}
0x0b1a…0b52 Head {h00=0x0034, h01=0x0050, text=» SCR A7,A3 SET NEW SEGMENT STATUS=UNDER LOADING «, t00=0x0007, t01=0x0030}
0x0b52…0b74 Head {h00=0x001e, h01=0x0050, text=» ST A10,2,A3 LOAD ADDRESS «, t00=0x0007, t01=0x0068}
0x0b74…0b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7e…0ba6 Head {h00=0x0024, h01=0x0050, text=»* SAVE AND LOAD REGISTERS FOR «, t00=0x0007, t01=0x0094}
0x0ba6…0bce Head {h00=0x0024, h01=0x0050, text=»* READ AND RELOCATION ROUTINE «, t00=0x0007, t01=0x00bc}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bd8…0be4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0007, t01=0x00ee}
0x0be4…0bf8 Head {h00=0x0010, h01=0x0050, text=» SUKL A10,10«, t00=0x0007, t01=0x00fa}
0x0bf8…0c24 Head {h00=0x0028, h01=0x0050, text=» ST A10,ECBRED+2 READ BUFFER ADDRESS«, t00=0x0007, t01=0x010e}
0x0c24…0c60 Head {h00=0x0038, h01=0x0050, text=» ADKL A10,2 RELOCATION BASE=PARTITION START ADDR.-8 «, t00=0x0007, t01=0x013a}
0x0c60…0c8a Head {h00=0x0026, h01=0x0050, text=» LDR A13,A10 LOAD ADDRESS POINTER «, t00=0x0007, t01=0x0176}
0x0c8a…0cac Head {h00=0x001e, h01=0x0050, text=» LD A6,4,A3 SECTOR ADDRESS«, t00=0x0008, t01=0x0010}
0x0cac…0cda Head {h00=0x002a, h01=0x0050, text=» LDK A7,/F8 LOWEST FLEX.DISC FILE CODE«, t00=0x0008, t01=0x0032}
0x0cda…0cee Head {h00=0x0010, h01=0x0050, text=» CW A7,CVTDK«, t00=0x0008, t01=0x0060}
0x0cee…0d14 Head {h00=0x0022, h01=0x0050, text=» RF(G) CONT NOT FLEXIBLE DISC «, t00=0x0008, t01=0x0074}
0x0d14…0d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009a}
0x0d1e…0d4a Head {h00=0x0028, h01=0x0050, text=»* LOCK FLEXIBLE DISC (IF UNLOCKED) «, t00=0x0008, t01=0x00a4}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d0}
0x0d54…0d72 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/A6 LOCK ORDER«, t00=0x0008, t01=0x00da}
0x0d72…0d8a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBRED «, t00=0x0008, t01=0x00f8}
0x0d8a…0d96 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0008, t01=0x0110}
0x0d96…0da6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0008, t01=0x011c}
0x0da6…0dc6 Head {h00=0x001c, h01=0x0050, text=» LD A7,8,A8 RETURN CODE «, t00=0x0008, t01=0x012c}
0x0dc6…0e02 Head {h00=0x0038, h01=0x0050, text=» ANK A7,/27 FAULTY FORMAT,SEEK- CRC ERROR,NOT OPER. «, t00=0x0008, t01=0x014c}
0x0e02…0e28 Head {h00=0x0022, h01=0x0050, text=» RF(Z) CONT OK ,ALREADY LOCKED«, t00=0x0008, t01=0x0188}
0x0e28…0e3a Head {h00=0x000e, h01=0x0050, text=» ANK A7,1 «, t00=0x0009, t01=0x001e}
0x0e3a…0e5e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ERRLOD NOT OPERABLE «, t00=0x0009, t01=0x0030}
0x0e5e…0e7a Head {h00=0x0018, h01=0x0050, text=» LDK A7,2 I/O ERROR «, t00=0x0009, t01=0x0054}
0x0e7a…0e8c Head {h00=0x000e, h01=0x0050, text=» RF ERRLOD«, t00=0x0009, t01=0x0070}
0x0e8c…0e9e Head {h00=0x000e, h01=0x0050, text=»CONT EQU *«, t00=0x0009, t01=0x0082}
0x0e9e…0eac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0094}
0x0eac…0ef0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0009, t01=0x00a2}
0x0ef0…0efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e6}
0x0efa…0f22 Head {h00=0x0024, h01=0x0050, text=»* READ AND RELOCATION ROUTINE «, t00=0x0009, t01=0x00f0}
0x0f22…0f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2c…0f4a Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x0009, t01=0x0122}
0x0f4a…0f6a Head {h00=0x001c, h01=0x0050, text=»* A10= RELOCATION BASE«, t00=0x0009, t01=0x0140}
0x0f6a…0f92 Head {h00=0x0024, h01=0x0050, text=»* A13= MEMORY ADDRESS POINTER «, t00=0x0009, t01=0x0160}
0x0f92…0f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f9c…0fb8 (10, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* REGISTER USAGE: «, t00=0x000a, t01=0x0004}
0x0fb8…0fde Head {h00=0x0022, h01=0x0050, text=»* A1 = LAST WORD TO RELOCATE«, t00=0x000a, t01=0x0020}
0x0fde…1008 Head {h00=0x0026, h01=0x0050, text=»* A2 = RELOCATION BITS CHECK REG«, t00=0x000a, t01=0x0046}
0x1008…1034 Head {h00=0x0028, h01=0x0050, text=»* A3 = ADDRESS OF RELOCATION TABLE«, t00=0x000a, t01=0x0070}
0x1034…105c Head {h00=0x0024, h01=0x0050, text=»* A4 = RELOCATION BIT COUNTER «, t00=0x000a, t01=0x009c}
0x105c…106c Head {h00=0x000c, h01=0x0050, text=»* A5 =«, t00=0x000a, t01=0x00c4}
0x106c…108e Head {h00=0x001e, h01=0x0050, text=»* A7 = CODE WORD COUNTER«, t00=0x000a, t01=0x00d4}
0x108e…10a8 Head {h00=0x0016, h01=0x0050, text=»* A8 = CODE WORD«, t00=0x000a, t01=0x00f6}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b2…10f6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000a, t01=0x011a}
0x10f6…10fe Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x015e}
0x10fe…1108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x1108…114e Head {h00=0x0042, h01=0x0050, text=»* READ FIRST SECTOR FOR RELOCATION AND GET RELOC. PARAMETERS«, t00=0x000a, t01=0x0170}
0x114e…1158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0026}
0x1158…117c Head {h00=0x0020, h01=0x0050, text=» CF A14,IOSUBS --READ SECTOR«, t00=0x000b, t01=0x0030}
0x117c…119a Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 READ ERROR?«, t00=0x000b, t01=0x0054}
0x119a…11b0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ERRLOD«, t00=0x000b, t01=0x0072}
0x11b0…11e0 Head {h00=0x002c, h01=0x0050, text=» LD A1,4,A10 LOAD MODULE LENGTH IN BYTES«, t00=0x000b, t01=0x0088}
0x11e0…121a Head {h00=0x0036, h01=0x0050, text=» ADR A1,A10 ADD RELOCATION BASE TO GET END ADDRESS«, t00=0x000b, t01=0x00b8}
0x121a…1224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x1224…1240 Head {h00=0x0018, h01=0x0050, text=»* RELOCATE SECTOR «, t00=0x000b, t01=0x00fc}
0x1240…124a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124a…1286 Head {h00=0x0038, h01=0x0050, text=»RELSEC LDKL A7,376 NUMBER OF BYTES IN NORMAL SECTOR «, t00=0x000b, t01=0x0122}
0x1286…129a Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x000b, t01=0x015e}
0x129a…12c8 Head {h00=0x002a, h01=0x0050, text=» ADR A3,A7 ADDRESS TO RELOCATION WORDS«, t00=0x000b, t01=0x0172}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d2…12f2 Head {h00=0x001c, h01=0x0050, text=»* GET RELOCATION WORD «, t00=0x000c, t01=0x001a}
0x12f2…12fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003a}
0x12fc…1334 Head {h00=0x0034, h01=0x0050, text=»RELWRD LDK A4,16 INITIATE RELOCATION BIT COUNTER«, t00=0x000c, t01=0x0044}
0x1334…135c Head {h00=0x0024, h01=0x0050, text=» LDR* A2,A3 GET RELOCATION WORD «, t00=0x000c, t01=0x007c}
0x135c…1390 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) REL200 IF NOT ZERO JMP AND RELOCATE «, t00=0x000c, t01=0x00a4}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139a…13c6 Head {h00=0x0028, h01=0x0050, text=»* NO MORE RELOCATION BY THIS WORD «, t00=0x000c, t01=0x00e2}
0x13c6…13d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010e}
0x13d0…1400 Head {h00=0x002c, h01=0x0050, text=»RENONE ADR A4,A4 NUMBER OF BYTES TO ADD «, t00=0x000c, t01=0x0118}
0x1400…1414 Head {h00=0x0010, h01=0x0050, text=» ADR A13,A4 «, t00=0x000c, t01=0x0148}
0x1414…1426 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x000c, t01=0x015c}
0x1426…143a Head {h00=0x0010, h01=0x0050, text=» LDR A5,A13 «, t00=0x000c, t01=0x016e}
0x143a…144c Head {h00=0x000e, h01=0x0050, text=» SRL A5,1 «, t00=0x000c, t01=0x0182}
0x144c…146a (13, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CWR A5,A1 MODULE END?«, t00=0x000d, t01=0x0004}
0x146a…1484 Head {h00=0x0016, h01=0x0050, text=» RF(NL) RELEND YES«, t00=0x000d, t01=0x0022}
0x1484…1496 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x000d, t01=0x003c}
0x1496…14b6 Head {h00=0x001c, h01=0x0050, text=» SUR A7,A4 SECTOR ENDED?«, t00=0x000d, t01=0x004e}
0x14b6…14d6 Head {h00=0x001c, h01=0x0050, text=» RF(P) REL100 JMP IF NOT«, t00=0x000d, t01=0x006e}
0x14d6…14ea Head {h00=0x0010, h01=0x0050, text=» ADR A13,A7 «, t00=0x000d, t01=0x008e}
0x14ea…14fc Head {h00=0x000e, h01=0x0050, text=» RF SECEND«, t00=0x000d, t01=0x00a2}
0x14fc…1532 Head {h00=0x0032, h01=0x0050, text=»REL100 ADK A3,2 UPDATE RELOCATION WORD POINTER«, t00=0x000d, t01=0x00b4}
0x1532…1552 Head {h00=0x001c, h01=0x0050, text=» RB RELWRD GET NEXT WORD«, t00=0x000d, t01=0x00ea}
0x1552…155c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155c…157a Head {h00=0x001a, h01=0x0050, text=»* PERFORM RELOCATION«, t00=0x000d, t01=0x0114}
0x157a…1584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0132}
0x1584…15b6 Head {h00=0x002e, h01=0x0050, text=»RELNXT SLL A2,1 RELOCATE THIS MODULE WORD?«, t00=0x000d, t01=0x013c}
0x15b6…15ee Head {h00=0x0034, h01=0x0050, text=» RB(Z) RENONE NO MORE TO RELOCATE BY THIS WORD! «, t00=0x000d, t01=0x016e}
0x15ee…1622 Head {h00=0x0030, h01=0x0050, text=»REL200 RF(N) REL300 YES RELOCATE MODULE WORD«, t00=0x000e, t01=0x0016}
0x1622…164e Head {h00=0x0028, h01=0x0050, text=» SLN A2,A5 NOT THIS WORD - GET NEXT «, t00=0x000e, t01=0x004a}
0x164e…1660 Head {h00=0x000e, h01=0x0050, text=» SUR A4,A5«, t00=0x000e, t01=0x0076}
0x1660…1672 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A5«, t00=0x000e, t01=0x0088}
0x1672…1684 Head {h00=0x000e, h01=0x0050, text=» SUR A7,A5«, t00=0x000e, t01=0x009a}
0x1684…1698 Head {h00=0x0010, h01=0x0050, text=» ADR A13,A5 «, t00=0x000e, t01=0x00ac}
0x1698…16aa Head {h00=0x000e, h01=0x0050, text=» RF REL400«, t00=0x000e, t01=0x00c0}
0x16aa…16b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b4…16d8 Head {h00=0x0020, h01=0x0050, text=»* RELOCATE ONE MODULE WORD«, t00=0x000e, t01=0x00dc}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x16e2…1706 Head {h00=0x0020, h01=0x0050, text=»REL300 LDR* A8,A13 GET WORD «, t00=0x000e, t01=0x010a}
0x1706…1722 Head {h00=0x0018, h01=0x0050, text=» ADR A8,A10 ADD BASE«, t00=0x000e, t01=0x012e}
0x1722…1742 Head {h00=0x001c, h01=0x0050, text=» STR A8,A13 RESTORE WORD«, t00=0x000e, t01=0x014a}
0x1742…1756 Head {h00=0x0010, h01=0x0050, text=»REL400 EQU *«, t00=0x000e, t01=0x016a}
0x1756…176a Head {h00=0x0010, h01=0x0050, text=» ADKL A13,2 «, t00=0x000e, t01=0x017e}
0x176a…1790 (15, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CWR A13,A1 RELOCATION ENDED? «, t00=0x000f, t01=0x0004}
0x1790…17aa Head {h00=0x0016, h01=0x0050, text=» RF(E) RELEND YES «, t00=0x000f, t01=0x002a}
0x17aa…17bc Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000f, t01=0x0044}
0x17bc…17e6 Head {h00=0x0026, h01=0x0050, text=» RF(Z) SECEND JMP IF END OF SECTOR«, t00=0x000f, t01=0x0056}
0x17e6…1810 Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 GET NEXT RELOCATION BIT «, t00=0x000f, t01=0x0080}
0x1810…1840 Head {h00=0x002c, h01=0x0050, text=» RB(P) RELNXT RELOCATE NEXT MODULE WORD «, t00=0x000f, t01=0x00aa}
0x1840…1852 Head {h00=0x000e, h01=0x0050, text=» RB REL100«, t00=0x000f, t01=0x00da}
0x1852…185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x185c…1886 Head {h00=0x0026, h01=0x0050, text=»* GET NEXT SECTOR FOR RELOCATION«, t00=0x000f, t01=0x00f6}
0x1886…1890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0120}
0x1890…18be Head {h00=0x002a, h01=0x0050, text=»SECEND ADK A6,1 UPDATE SECTOR POINTER «, t00=0x000f, t01=0x012a}
0x18be…18d2 Head {h00=0x0010, h01=0x0050, text=» SUKL A13,2 «, t00=0x000f, t01=0x0158}
0x18d2…18f6 Head {h00=0x0020, h01=0x0050, text=» LDR* A5,A13 SAVE LAST WORD «, t00=0x000f, t01=0x016c}
0x18f6…1926 Head {h00=0x002c, h01=0x0050, text=» ST A13,ECBRED+2 SET READ BUFFER ADDRESS«, t00=0x000f, t01=0x0190}
0x1926…1948 Head {h00=0x001e, h01=0x0050, text=» CF A14,IOSUBS READ SECTOR«, t00=0x0010, t01=0x0030}
0x1948…1966 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A7 READ ERROR?«, t00=0x0010, t01=0x0052}
0x1966…197c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) ERRLOD«, t00=0x0010, t01=0x0070}
0x197c…19a2 Head {h00=0x0022, h01=0x0050, text=» STR A5,A13 RESTORE LAST WORD «, t00=0x0010, t01=0x0086}
0x19a2…19cc Head {h00=0x0026, h01=0x0050, text=» ADKL A13,2 UPDATE MEMORY POINTER «, t00=0x0010, t01=0x00ac}
0x19cc…19f4 Head {h00=0x0024, h01=0x0050, text=» RB RELSEC RELOCATE NEXT SECTOR «, t00=0x0010, t01=0x00d6}
0x19f4…19fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fe}
0x19fe…1a3e Head {h00=0x003c, h01=0x0050, text=»* SAVE START OF BUFFER POOL AND INDICATE LOADING ENDED«, t00=0x0010, t01=0x0108}
0x1a3e…1a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a48…1a5c Head {h00=0x0010, h01=0x0050, text=»RELEND EQU *«, t00=0x0010, t01=0x0152}
0x1a5c…1a84 Head {h00=0x0024, h01=0x0050, text=» ADKL A10,8 PARTITION STARTADDR.«, t00=0x0010, t01=0x0166}
0x1a84…1aae Head {h00=0x0026, h01=0x0050, text=» LD A3,SEGMNO GET SEGMENT ADDRESS «, t00=0x0010, t01=0x018e}
0x1aae…1ac2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/00 «, t00=0x0011, t01=0x0028}
0x1ac2…1aec Head {h00=0x0026, h01=0x0050, text=» SCR A7,A3 STATUS= LOADED , READY «, t00=0x0011, t01=0x003c}
0x1aec…1af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0066}
0x1af6…1b1e Head {h00=0x0024, h01=0x0050, text=»* GET START ADDRESS IN SEGMENT«, t00=0x0011, t01=0x0070}
0x1b1e…1b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b28…1b3c Head {h00=0x0010, h01=0x0050, text=»ACTIV EQU * «, t00=0x0011, t01=0x00a2}
0x1b3c…1b5c Head {h00=0x001c, h01=0x0050, text=» LDR A12,A12 DISPATCHER «, t00=0x0011, t01=0x00b6}
0x1b5c…1b7c Head {h00=0x001c, h01=0x0050, text=» RF(N) DSPFOR AVTIVATION«, t00=0x0011, t01=0x00d6}
0x1b7c…1b90 Head {h00=0x0010, h01=0x0050, text=» ADR A12,A10«, t00=0x0011, t01=0x00f6}
0x1b90…1bb6 Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A12 ABSOLUTE ADDRESS«, t00=0x0011, t01=0x010a}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=» RF UPDTTB«, t00=0x0011, t01=0x0130}
0x1bc8…1be2 Head {h00=0x0016, h01=0x0050, text=»DSPFOR NGR A12,A12«, t00=0x0011, t01=0x0142}
0x1be2…1bf6 Head {h00=0x0010, h01=0x0050, text=» ADR A12,A10«, t00=0x0011, t01=0x015c}
0x1bf6…1c16 Head {h00=0x001c, h01=0x0050, text=»UPDTTB ST A12,TTB:SA,A9 «, t00=0x0011, t01=0x0170}
0x1c16…1c46 Head {h00=0x002c, h01=0x0050, text=» ST A10,TTB:SS,A9 SEGMENT START ADDRESS «, t00=0x0011, t01=0x0190}
0x1c46…1c6e Head {h00=0x0024, h01=0x0050, text=» ST A3,TTB:SP,A9 SEGMENT POINTER«, t00=0x0012, t01=0x0030}
0x1c6e…1c86 Head {h00=0x0014, h01=0x0050, text=»DIRECT LDR A5,A9«, t00=0x0012, t01=0x0058}
0x1c86…1cb0 Head {h00=0x0026, h01=0x0050, text=» CF A15,QTJOB --START CALLING TASK«, t00=0x0012, t01=0x0070}
0x1cb0…1cbc Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0012, t01=0x009a}
0x1cbc…1cc8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00a6}
0x1cc8…1cdc Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0012, t01=0x00b2}
0x1cdc…1cf8 Head {h00=0x0018, h01=0x0050, text=»ERRLOD LD A5,CVTINP «, t00=0x0012, t01=0x00c6}
0x1cf8…1d0a Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0012, t01=0x00e2}
0x1d0a…1d1e Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A5 «, t00=0x0012, t01=0x00f4}
0x1d1e…1d36 Head {h00=0x0014, h01=0x0050, text=» ST A5,TTB:SA,A9«, t00=0x0012, t01=0x0108}
0x1d36…1d64 Head {h00=0x002a, h01=0x0050, text=» ST A7,TTB:SA+14,A9 ERROR RETURN CODE «, t00=0x0012, t01=0x0120}
0x1d64…1d78 Head {h00=0x0010, h01=0x0050, text=» LDK A5,/80 «, t00=0x0012, t01=0x014e}
0x1d78…1d8e Head {h00=0x0012, h01=0x0050, text=» SC* A5,SEGMNO«, t00=0x0012, t01=0x0162}
0x1d8e…1da4 Head {h00=0x0012, h01=0x0050, text=» LD A5,FREPAR «, t00=0x0012, t01=0x0178}
0x1da4…1db8 Head {h00=0x0010, h01=0x0050, text=» ADKL A10,8 «, t00=0x0012, t01=0x018e}
0x1db8…1dce Head {h00=0x0012, h01=0x0050, text=» ST A10,FREPAR«, t00=0x0013, t01=0x0012}
0x1dce…1de2 Head {h00=0x0010, h01=0x0050, text=» STR A5,A10 «, t00=0x0013, t01=0x0028}
0x1de2…1df8 Head {h00=0x0012, h01=0x0050, text=» CM TTB:SP,A9 «, t00=0x0013, t01=0x003c}
0x1df8…1e0a Head {h00=0x000e, h01=0x0050, text=» RB DIRECT«, t00=0x0013, t01=0x0052}
0x1e0a…1e18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0064}
0x1e18…1e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0072}
0x1e22…1e4e Head {h00=0x0028, h01=0x0050, text=»* IOSUBS = READ SECTOR SUBROUTINE «, t00=0x0013, t01=0x007c}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e8c Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE READS ONE SECTOR FROM DISC «, t00=0x0013, t01=0x00b2}
0x1e8c…1ec2 Head {h00=0x0032, h01=0x0050, text=»* AND ALSO CHECKS THE RETURN CODE CONDITION «, t00=0x0013, t01=0x00e6}
0x1ec2…1ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011c}
0x1ecc…1ee0 Head {h00=0x0010, h01=0x0050, text=»IOSUBS EQU *«, t00=0x0013, t01=0x0126}
0x1ee0…1ef4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x0013, t01=0x013a}
0x1ef4…1f0c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ECBRED «, t00=0x0013, t01=0x014e}
0x1f0c…1f40 Head {h00=0x0030, h01=0x0050, text=» ST A6,10,A8 STORE SECTOR NUMBER IN ECB-WORD«, t00=0x0013, t01=0x0166}
0x1f40…1f4c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x000a}
0x1f4c…1f5c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0016}
0x1f5c…1f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f66…1f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0030}
0x1f70…1fb0 Head {h00=0x003c, h01=0x0050, text=»* RETCOD CHECKS AND TRANSLATES RETURNCODE AFTER READ. «, t00=0x0014, t01=0x003a}
0x1fb0…1fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007a}
0x1fba…1fea Head {h00=0x002c, h01=0x0050, text=»* INPUT:8,A8 = RETURN CODE AFTER READ «, t00=0x0014, t01=0x0084}
0x1fea…1ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b4}
0x1ff4…2016 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT:A7 = 0 NO ERROR«, t00=0x0014, t01=0x00be}
0x2016…203e Head {h00=0x0024, h01=0x0050, text=»* 1 DISC. IO ERROR«, t00=0x0014, t01=0x00e0}
0x203e…2068 Head {h00=0x0026, h01=0x0050, text=»* 2 DISC. INOPERABLE«, t00=0x0014, t01=0x0108}
0x2068…2094 Head {h00=0x0028, h01=0x0050, text=»* 3 NEW VOLUME LOADED «, t00=0x0014, t01=0x0132}
0x2094…209e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015e}
0x209e…20a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20a8…20bc Head {h00=0x0010, h01=0x0050, text=»RETCOD EQU *«, t00=0x0014, t01=0x0172}
0x20bc…20e0 Head {h00=0x0020, h01=0x0050, text=» LD A7,8,A8 GET RETURN CODE «, t00=0x0014, t01=0x0186}
0x20e0…210a Head {h00=0x0026, h01=0x0050, text=» ANKL A7,/FEFF BIT 7 ONLY RETRIES «, t00=0x0015, t01=0x001a}
0x210a…2124 Head {h00=0x0016, h01=0x0050, text=» RF(Z) UT NO ERROR«, t00=0x0015, t01=0x0044}
0x2124…2138 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/83 «, t00=0x0015, t01=0x005e}
0x2138…215a Head {h00=0x001e, h01=0x0050, text=» RF(Z) DISCIO BIT 0-6,9-13«, t00=0x0015, t01=0x0072}
0x215a…216c Head {h00=0x000e, h01=0x0050, text=» ANK A7,/3«, t00=0x0015, t01=0x0094}
0x216c…219a Head {h00=0x002a, h01=0x0050, text=» RB(Z) IOSUBS BIT 8 NEW VOLUME LOADED «, t00=0x0015, t01=0x00a6}
0x219a…21bc Head {h00=0x001e, h01=0x0050, text=» LDK A7,1 DISC INOPERABLE «, t00=0x0015, t01=0x00d4}
0x21bc…21e2 Head {h00=0x0022, h01=0x0050, text=»DISCIO ADK A7,1 DISC IO ERROR «, t00=0x0015, t01=0x00f6}
0x21e2…21f4 Head {h00=0x000e, h01=0x0050, text=»UT RTN A14«, t00=0x0015, t01=0x011c}
0x21f4…21fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012e}
0x21fe…220e Head {h00=0x000c, h01=0x0050, text=» RES 10 «, t00=0x0015, t01=0x0138}
0x220e…2224 Head {h00=0x0012, h01=0x0050, text=»STBLD EQU *-2 «, t00=0x0015, t01=0x0148}
0x2224…222e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015e}
0x222e…223a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0015, t01=0x0168}
0x223a…223e Head {h00=0x4004, h01=0x0000}
0x223e…2242 00 15 01 74 ┆ t┆
0x2242…224a (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x224a…229a (23, 0, 400) 54 20 50 41 52 41 4d 45 54 45 52 20 00 0e 01 7e 00 10 00 50 5c 43 46 5c 41 31 35 2c 48 41 4c 54 00 0f 00 14 00 0a 00 50 5c 45 4a 45 43 54 00 0f 00 28 00 04 00 50 00 0f 00 36 00 06 00 50 2a 20 00 0f 00 3e 00 28 00 50 2a 5c 53 55 42 52 4f 55 ┆T PARAMETER ~ P CF A15,HALT P EJECT ( P 6 P* > ( P* SUBROU┆
0x229a…22ea 54 49 4e 45 20 54 4f 20 45 58 45 43 55 54 45 20 43 48 43 52 20 43 4f 4d 4d 41 4e 44 00 0f 00 48 00 06 00 50 2a 20 00 0f 00 74 00 04 00 50 00 0f 00 7e 00 18 00 50 43 48 43 52 45 58 5c 43 49 4f 5c 41 31 2c 31 2c 43 48 43 52 00 0f 00 86 00 10 ┆TINE TO EXECUTE CHCR COMMAND H P* t P ~ PCHCREX CIO A1,1,CHCR ┆
0x22ea…233a 00 50 5c 53 53 54 5c 41 33 2c 43 48 43 52 00 0f 00 a2 00 10 00 50 5c 52 42 28 4e 41 29 5c 2a 2d 32 20 00 0f 00 b6 00 0c 00 50 5c 52 54 4e 5c 41 38 20 00 0f 00 ca 00 0a 00 50 5c 45 4a 45 43 54 00 0f 00 da 00 04 00 50 00 0f 00 e8 00 06 00 50 ┆ P SST A3,CHCR P RB(NA) *-2 P RTN A8 P EJECT P P┆
0x233a…238a 2a 20 00 0f 00 f0 00 1a 00 50 2a 5c 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 45 4e 54 52 59 00 0f 00 fa 00 06 00 50 2a 20 00 0f 01 18 00 04 00 50 00 0f 01 22 00 34 00 50 49 4e 49 4d 5c 4c 44 4b 5c 41 36 2c 43 48 43 52 45 58 2d 52 45 4c ┆* P* INITIALIZATION ENTRY P* P " 4 PINIM LDK A6,CHCREX-REL┆
0x238a…23da 30 5c 4c 4f 41 44 20 43 48 43 52 45 58 20 53 55 42 52 20 41 44 44 52 45 53 53 00 0f 01 2a 00 1c 00 50 5c 4c 44 52 5c 41 38 2c 50 5c 41 4e 44 20 53 54 41 43 4b 20 42 41 53 45 00 0f 01 62 00 24 00 50 5c 53 54 5c 41 39 2c 43 56 54 41 50 41 5c ┆0 LOAD CHCREX SUBR ADDRESS * P LDR A8,P AND STACK BASE b $ P ST A9,CVTAPA ┆
0x23da…242a (24, 0, 400) 53 41 56 45 20 41 50 50 4c 20 41 44 44 52 45 53 53 20 00 0f 01 82 00 24 00 50 5c 41 44 52 5c 41 31 34 2c 41 39 5c 43 41 4c 43 20 41 50 50 4c 20 4c 49 4e 4b 20 42 41 53 45 20 00 10 00 1a 00 04 00 50 00 10 00 42 00 04 00 50 00 10 00 4a 00 04 ┆SAVE APPL ADDRESS $ P ADR A14,A9 CALC APPL LINK BASE P B P J ┆
0x242a…247a 00 50 00 10 00 52 00 06 00 50 2a 20 00 10 00 5a 00 1a 00 50 2a 5c 43 4f 4d 50 55 54 45 20 4d 45 4d 4f 52 59 20 53 49 5a 45 20 00 10 00 64 00 06 00 50 2a 20 00 10 00 82 00 04 00 50 00 10 00 8c 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 35 35 ┆ P R P* Z P* COMPUTE MEMORY SIZE d P* P P LDKL A1,/55┆
0x247a…24ca 35 35 00 10 00 94 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 34 30 39 34 20 00 10 00 aa 00 18 00 50 49 4e 49 4d 33 30 5c 53 55 4b 4c 5c 41 32 2c 34 30 39 36 20 00 10 00 c0 00 1e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 32 5c 53 41 56 45 20 43 4f 4e ┆55 P LDKL A2,4094 PINIM30 SUKL A2,4096 P LDR* A3,A2 SAVE CON┆
0x24ca…251a 54 45 4e 54 53 20 00 10 00 dc 00 1e 00 50 5c 53 54 52 5c 41 31 2c 41 32 5c 43 48 45 43 4b 20 49 46 20 4d 45 4d 4f 52 59 00 10 00 fe 00 10 00 50 5c 43 57 52 2a 5c 41 31 2c 41 32 20 00 10 01 20 00 12 00 50 5c 52 42 28 4e 45 29 5c 49 4e 49 4d ┆TENTS P STR A1,A2 CHECK IF MEMORY P CWR* A1,A2 P RB(NE) INIM┆
0x251a…256a 33 30 00 10 01 34 00 04 00 50 00 10 01 4a 00 20 00 50 5c 53 54 52 5c 41 33 2c 41 32 5c 52 45 53 54 4f 52 45 20 43 4f 4e 54 45 4e 54 53 20 00 10 01 52 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 32 20 00 10 01 76 00 24 00 50 5c 53 54 5c 41 32 2c 43 ┆30 4 P J P STR A3,A2 RESTORE CONTENTS R P ADK A2,2 v $ P ST A2,C┆
0x256a…25ba (25, 0, 400) 56 54 4d 53 5a 5c 4d 45 4d 4f 52 59 20 53 49 5a 45 20 54 4f 20 43 56 54 00 10 01 88 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 11 00 20 00 24 00 50 5c 53 54 5c 41 32 2c 43 56 54 45 42 41 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 20 50 4f ┆VTMSZ MEMORY SIZE TO CVT P SUK A2,2 $ P ST A2,CVTEBA END OF BUFFER PO┆
0x25ba…260a 4f 4c 00 11 00 32 00 0a 00 50 5c 45 4a 45 43 54 00 11 00 5a 00 04 00 50 00 11 00 68 00 06 00 50 2a 20 00 11 00 70 00 2c 00 50 2a 5c 55 4e 4c 4f 41 44 20 4d 4f 4e 49 54 4f 52 20 43 41 53 20 41 4e 44 20 53 45 4c 45 43 54 20 41 50 50 4c 20 43 ┆OL 2 P EJECT Z P h P* p , P* UNLOAD MONITOR CAS AND SELECT APPL C┆
0x260a…265a 41 53 00 11 00 7a 00 06 00 50 2a 20 00 11 00 aa 00 04 00 50 00 11 00 b4 00 16 00 50 5c 4c 44 4b 5c 41 31 2c 2f 46 5c 55 4e 4c 4f 41 44 20 00 11 00 bc 00 0e 00 50 5c 43 46 52 5c 41 38 2c 41 36 00 11 00 d6 00 04 00 50 00 11 00 e8 00 2a 00 50 ┆AS z P* P P LDK A1,/F UNLOAD P CFR A8,A6 P * P┆
0x265a…26aa 49 4e 49 4d 31 30 5c 43 49 4f 5c 41 31 2c 31 2c 53 4f 50 5c 52 45 41 44 20 53 4f 50 20 53 57 49 54 43 48 45 53 20 00 11 00 f0 00 12 00 50 5c 49 4e 52 5c 41 31 2c 30 2c 53 4f 50 20 00 11 01 1e 00 10 00 50 5c 52 42 28 4e 41 29 5c 2a 2d 32 20 ┆INIM10 CIO A1,1,SOP READ SOP SWITCHES P INR A1,0,SOP P RB(NA) *-2 ┆
0x26aa…26fa 00 11 01 34 00 04 00 50 00 11 01 48 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 38 20 00 11 01 50 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 33 20 00 11 01 62 00 20 00 50 5c 52 42 28 5a 29 5c 49 4e 49 4d 31 30 5c 49 4c 4c 45 47 41 4c 20 53 57 49 54 43 48 ┆ 4 P H P SRL A1,8 P P ANK A1,3 b P RB(Z) INIM10 ILLEGAL SWITCH┆
0x26fa…274a (26, 0, 400) 00 11 01 74 00 14 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 53 45 4c 45 43 54 00 12 00 08 00 0e 00 50 5c 43 46 52 5c 41 38 2c 41 36 00 12 00 20 00 12 00 50 5c 4c 44 4b 5c 41 31 2c 32 5c 4c 4f 43 4b 00 12 00 32 00 0e 00 50 5c 43 46 52 5c 41 38 2c ┆ t P ANK A1,1 SELECT P CFR A8,A6 P LDK A1,2 LOCK 2 P CFR A8,┆
0x274a…279a 41 36 00 12 00 48 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 12 00 5a 00 1e 00 50 5c 52 42 28 4e 5a 29 5c 49 4e 49 4d 31 30 5c 4e 4f 20 43 41 53 53 45 54 54 45 00 12 00 6c 00 18 00 50 5c 4c 44 4b 5c 41 31 2c 38 5c 53 45 41 52 43 48 20 42 ┆A6 H P ANK A3,1 Z P RB(NZ) INIM10 NO CASSETTE l P LDK A1,8 SEARCH B┆
0x279a…27ea 4f 54 00 12 00 8e 00 0e 00 50 5c 43 46 52 5c 41 38 2c 41 36 00 12 00 aa 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 2f 43 5c 53 45 41 52 43 48 20 54 41 50 45 20 4d 41 52 4b 20 00 12 00 bc 00 0e 00 50 5c 43 46 52 5c 41 38 2c 41 36 00 12 00 e0 00 0a ┆OT P CFR A8,A6 P LDK A1,/C SEARCH TAPE MARK P CFR A8,A6 ┆
0x27ea…283a 00 50 5c 45 4a 45 43 54 00 12 00 f2 00 04 00 50 00 12 01 00 00 06 00 50 2a 20 00 12 01 08 00 16 00 50 2a 5c 4c 4f 41 44 20 41 50 50 4c 49 43 41 54 49 4f 4e 00 12 01 12 00 06 00 50 2a 20 00 12 01 2c 00 04 00 50 00 12 01 36 00 22 00 50 5c 4c ┆ P EJECT P P* P* LOAD APPLICATION P* , P 6 " P L┆
0x283a…288a 44 4b 4c 5c 41 31 2c 2f 30 34 30 30 5c 49 4e 44 20 4c 4f 41 44 20 4f 4e 20 53 4f 50 00 12 01 3e 00 12 00 50 5c 4f 54 52 5c 41 31 2c 30 2c 53 4f 50 20 00 12 01 64 00 2a 00 50 5c 4c 44 4b 4c 5c 41 31 32 2c 49 4e 49 4d 32 30 5c 49 4e 53 54 52 ┆DKL A1,/0400 IND LOAD ON SOP > P OTR A1,0,SOP d * P LDKL A12,INIM20 INSTR┆
0x288a…28da (27, 0, 398) 55 43 54 49 4f 4e 20 41 46 54 45 52 20 41 50 4c 00 12 01 7a 00 18 00 50 5c 41 42 52 5c 41 32 5c 50 45 52 46 4f 52 4d 20 41 50 4c 20 00 13 00 18 00 04 00 50 00 13 00 34 00 24 00 50 49 4e 49 4d 32 30 5c 4c 44 4b 5c 41 31 2c 2f 46 5c 55 4e 4c ┆UCTION AFTER APL z P ABR A2 PERFORM APL P 4 $ PINIM20 LDK A1,/F UNL┆
0x28da…292a 4f 41 44 20 43 41 53 53 45 54 54 45 00 13 00 3c 00 0e 00 50 5c 43 46 52 5c 41 38 2c 41 36 00 13 00 64 00 04 00 50 00 13 00 76 00 3a 00 50 5c 53 54 5c 41 39 2c 43 56 54 53 42 41 5c 53 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 42 45 47 49 4e ┆OAD CASSETTE < P CFR A8,A6 d P v : P ST A9,CVTSBA SET ADDRESS TO BEGIN┆
0x292a…297a 4e 49 4e 47 20 4f 46 20 42 55 46 46 45 52 20 50 4f 4f 4c 20 00 13 00 7e 00 26 00 50 5c 53 54 5c 41 31 33 2c 43 56 54 41 50 53 5c 53 41 56 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 13 00 bc 00 04 00 50 00 13 00 e6 00 04 00 50 00 13 ┆NING OF BUFFER POOL ~ & P ST A13,CVTAPS SAVE START ADDRESS P P ┆
0x297a…29ca 00 ee 00 06 00 50 2a 20 00 13 00 f6 00 1e 00 50 2a 5c 43 48 45 43 4b 20 49 46 20 42 55 47 47 45 52 20 49 4e 20 43 4f 52 45 20 00 13 01 00 00 06 00 50 2a 20 00 13 01 22 00 04 00 50 00 13 01 2c 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 33 2c 49 4e ┆ P* P* CHECK IF BUGGER IN CORE P* " P , P LDKL A13,IN┆
0x29ca…2a18 49 4d 34 30 00 13 01 34 00 10 00 50 5c 4c 44 4b 4c 5c 41 31 2c 42 55 47 00 13 01 4c 00 1c 00 50 5c 41 42 52 28 4e 5a 29 5c 41 31 5c 53 54 41 52 54 20 42 55 47 47 45 52 00 13 01 60 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 80 00 04 00 50 ┆IM40 4 P LDKL A1,BUG L P ABR(NZ) A1 START BUGGER ` P EJECT P┆
0x2a18…2a68 (28, 0, 400) 00 13 01 8e 00 06 00 50 2a 20 00 14 00 08 00 16 00 50 2a 5c 49 4e 49 54 49 41 4c 49 5a 45 20 53 54 41 43 4b 00 14 00 12 00 06 00 50 2a 20 00 14 00 2c 00 04 00 50 00 14 00 36 00 28 00 50 49 4e 49 4d 34 30 5c 4c 44 5c 41 31 35 2c 43 56 54 53 ┆ P* P* INITIALIZE STACK P* , P 6 ( PINIM40 LD A15,CVTS┆
0x2a68…2ab8 54 42 5c 4c 4f 41 44 20 53 54 41 43 4b 20 42 41 53 45 00 14 00 3e 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4f 4f 50 20 00 14 00 6a 00 10 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 20 00 14 00 80 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 46 43 ┆TB LOAD STACK BASE > P LDKL A1,LOOP j P STR A1,A15 P LDKL A1,/FC┆
0x2ab8…2b08 30 30 00 14 00 94 00 26 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 20 46 4f 52 20 4c 4f 4f 50 20 00 14 00 aa 00 10 00 50 5c 53 55 4b 4c 5c 41 31 35 2c 32 38 00 14 00 d4 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c ┆00 & P STR A1,A15 ADJUST STACK FOR LOOP P SUKL A15,28 P LDK A1,┆
0x2b08…2b58 30 20 00 14 00 e8 00 10 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 20 00 14 00 fa 00 0a 00 50 5c 45 4a 45 43 54 00 14 01 0e 00 04 00 50 00 14 01 1c 00 06 00 50 2a 20 00 14 01 24 00 1a 00 50 2a 5c 46 49 4e 44 20 46 49 52 53 54 20 55 53 45 52 20 ┆0 P STR A1,A15 P EJECT P P* $ P* FIND FIRST USER ┆
0x2b58…2ba8 54 41 53 4b 00 14 01 2e 00 06 00 50 2a 20 00 14 01 4c 00 04 00 50 00 14 01 56 00 1e 00 50 5c 4c 44 5c 41 31 2c 54 43 54 41 42 5c 54 43 54 41 42 20 41 44 44 52 45 53 53 00 14 01 5e 00 1c 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c 54 43 54 41 ┆TASK . P* L P V P LD A1,TCTAB TCTAB ADDRESS ^ P LDR* A4,A1 TCTA┆