|
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: 4768 (0x12a0)
Notes: pts_type(SC)
Names: »GRBUF.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/GRBUF.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/GRBUF.SC«
IDENT GRBUF REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * GRBUF = LKM-PROCESSOR FOR GET AND RELEASE * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************************* * * THIS MODULE CONTAINS LKM-PROCESSORS FOR GET AND * RELEASE BUFFER. * * GET BUFFER : * NUMBER OF REQUIRED BUFFERS ARE GIVEN * IN A7. BUFFER ADDRESS IS RETURNED IN A8. * * RELEASE BUFFER: * BUFFER ADDRESS IS GIVEN IN A8. * EJECT * *********** * ENTRIES * *********** * * ENTRY GETBUF GET BUFFER ENTRY RELBUF RELEASE BUFFER * * ************* * EXTERNALS * ************* * * EXTRN TTB:SA TERMINAL SAVE AREA EXTRN TDISP DISPATCHER EXTRN LKMQDI QUEUE AND DISPATCH EXTRN QTJOB QUEUE AS TERMINAL JOB EXTRN GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE * * EJECT * * GETBUF EQU * LDKL A1,GBQUE POINTER TO FIRST IN QUEUE GET001 LDR* A2,A1 GET TTAB-ADDRESS RF(Z) GET005 NO IN QUEUE LD A3,TTB:SA,A2 CW A4,-2,A3 RF(E) GET030 SAME POOL LDR A1,A2 RB GET001 CHECK NEXT IN QUEUE * GET005 CF A15,GET TRY TO ALLOCATE BUFFERS LDR A4,A4 RF(NZ) REL060 BUFFER HAS BEEN ALLOCATED * * GET030 LDKL A1,GBQUE QUEUE REQUEST GET040 LDR A2,A1 LDR* A1,A1 RB(NZ) GET040 NOT LAST IN CHAIN STR A5,A2 CMR A5 GET050 ABL TDISP DISPATCH EJECT * * * RELBUF EQU * SUKL A8,2 BUFFER ADDRESS LD A1,2,A4 BUFFER UNIT ADK A1,2 ADD ONE WORD FOR CHAIN LDR* A2,A8 XRK A2,1 REL010 LDR A3,A8 ADR A3,A1 STR A3,A8 UPDATE CHAIN LDR A8,A3 CWR A3,A2 RB(NE) REL010 UPDATE NEXT CHAIN * LDR A3,A5 SAVE TTAB-ADDRESS LDKL A5,GBQUE REL020 LDR A2,A5 ADDRESS TO PREVIOUS BUFFER REL030 LDR* A5,A2 BUFFER ADDRESS RF(Z) REL050 END OF QUEUE LDR* A6,A5 ADDRESS TO NEXT BUFFER LD A1,TTB:SA,A5 GET DISPATCH ADDRESS CW A4,-2,A1 RB(NE) REL020 NOT SAME POOL STR A2,A15 STR A4,A15 STR A6,A15 LD A7,TTB:SA+14,A5 * * EJECT * * * CF A15,GET TRY TO ALLOCATE BUFFERS LDR A1,A4 LDR* A6,A15 LDR* A4,A15 LDR* A2,A15 LDR A1,A1 RF(Z) REL050 BUFFER NOT ALLOCATED CMR A5 TAKE OUT OF QUEUE STR A6,A2 UPDATE CHAIN CF A15,QTJOB QUEUE FOR DISPATCHING RB REL030 GET BUFFER TO NEXT IN QUEUE * REL050 LDR A5,A3 GET TTAB-ADDRESS REL060 ABL LKMQDI QUEUE AND DISPATCH EJECT * * * SUBROUTINE TO ALLOCATE BUFFERS TO REQUESTING PROGRAM * * GET LDK A6,1 LDR* A4,A4 ADDRESS TO BUFFER-POOL GET010 LDR A8,A4 BUFFER ADDRESS LDR A2,A7 GET020 LDR A1,A4 LDR* A4,A1 BUFFER POINTER RF(Z) GET025 NO BUFFER FOUND TM A4,A6 RB(NZ) GET010 BUFFER NOT FREE SUK A2,1 RB(NZ) GET020 ANKL A8,/FFFE * * ORK A4,1 FREE BUFFER FOUND STR A4,A8 UPDATE BUFFER POINTER ADKL A8,2 ADDRESS TO USER BUFFER ST A8,TTB:SA+16,A5 SAVE IT IN SAVE AREA GET025 RTN A15 * * END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT GRBUF REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…009a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x005e}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00cc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a8}
0x00cc…00d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x00d6…010c Head {h00=0x0032, h01=0x0050, text=»* GRBUF = LKM-PROCESSOR FOR GET AND RELEASE «, t00=0x0000, t01=0x00da}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0142 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0124}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…016e Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0150}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01b8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x017c}
0x01b8…01c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01fe Head {h00=0x0038, h01=0x0050, text=»* THIS MODULE CONTAINS LKM-PROCESSORS FOR GET AND«, t00=0x0001, t01=0x0036}
0x01fe…021a Head {h00=0x0018, h01=0x0050, text=»* RELEASE BUFFER.«, t00=0x0001, t01=0x0072}
0x021a…0224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008e}
0x0224…023e Head {h00=0x0016, h01=0x0050, text=»* GET BUFFER : «, t00=0x0001, t01=0x0098}
0x023e…027c Head {h00=0x003a, h01=0x0050, text=»* NUMBER OF REQUIRED BUFFERS ARE GIVEN «, t00=0x0001, t01=0x00b2}
0x027c…02be Head {h00=0x003e, h01=0x0050, text=»* IN A7. BUFFER ADDRESS IS RETURNED IN A8. «, t00=0x0001, t01=0x00f0}
0x02be…02c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c8…02e4 Head {h00=0x0018, h01=0x0050, text=»* RELEASE BUFFER:«, t00=0x0001, t01=0x013c}
0x02e4…031c Head {h00=0x0034, h01=0x0050, text=»* BUFFER ADDRESS IS GIVEN IN A8. «, t00=0x0001, t01=0x0158}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0334 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000a}
0x0334…033e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0018}
0x033e…0352 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0022}
0x0352…0366 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0036}
0x0366…037a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x004a}
0x037a…0384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038e…03ae Head {h00=0x001c, h01=0x0050, text=» ENTRY GETBUF GET BUFFER«, t00=0x0002, t01=0x0072}
0x03ae…03d2 Head {h00=0x0020, h01=0x0050, text=» ENTRY RELBUF RELEASE BUFFER«, t00=0x0002, t01=0x0092}
0x03d2…03dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03dc…03e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c0}
0x03e6…03fc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00ca}
0x03fc…0412 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x00e0}
0x0412…0428 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00f6}
0x0428…0432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010c}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…0464 Head {h00=0x0024, h01=0x0050, text=» EXTRN TTB:SA TERMINAL SAVE AREA«, t00=0x0002, t01=0x0120}
0x0464…0484 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x0148}
0x0484…04ac Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMQDI QUEUE AND DISPATCH«, t00=0x0002, t01=0x0168}
0x04ac…04d6 Head {h00=0x0026, h01=0x0050, text=» EXTRN QTJOB QUEUE AS TERMINAL JOB«, t00=0x0002, t01=0x0190}
0x04d6…0510 Head {h00=0x0036, h01=0x0050, text=» EXTRN GBQUE POINTER TO FIRST TTAB IN BUFFER QUEUE«, t00=0x0003, t01=0x002a}
0x0510…051a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x051a…0524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0524…0532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0078}
0x0532…053c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0086}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0546…055a Head {h00=0x0010, h01=0x0050, text=»GETBUF EQU *«, t00=0x0003, t01=0x009a}
0x055a…058a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,GBQUE POINTER TO FIRST IN QUEUE«, t00=0x0003, t01=0x00ae}
0x058a…05b4 Head {h00=0x0026, h01=0x0050, text=»GET001 LDR* A2,A1 GET TTAB-ADDRESS«, t00=0x0003, t01=0x00de}
0x05b4…05d6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) GET005 NO IN QUEUE «, t00=0x0003, t01=0x0108}
0x05d6…05ee Head {h00=0x0014, h01=0x0050, text=» LD A3,TTB:SA,A2«, t00=0x0003, t01=0x012a}
0x05ee…0604 Head {h00=0x0012, h01=0x0050, text=» CW A4,-2,A3 «, t00=0x0003, t01=0x0142}
0x0604…0624 Head {h00=0x001c, h01=0x0050, text=» RF(E) GET030 SAME POOL «, t00=0x0003, t01=0x0158}
0x0624…0636 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0003, t01=0x0178}
0x0636…065c Head {h00=0x0022, h01=0x0050, text=» RB GET001 CHECK NEXT IN QUEUE«, t00=0x0003, t01=0x018a}
0x065c…0666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0666…0698 Head {h00=0x002e, h01=0x0050, text=»GET005 CF A15,GET TRY TO ALLOCATE BUFFERS «, t00=0x0004, t01=0x002a}
0x0698…06ac Head {h00=0x0010, h01=0x0050, text=» LDR A4,A4 «, t00=0x0004, t01=0x005c}
0x06ac…06dc Head {h00=0x002c, h01=0x0050, text=» RF(NZ) REL060 BUFFER HAS BEEN ALLOCATED«, t00=0x0004, t01=0x0070}
0x06dc…06e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e6…06f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00aa}
0x06f0…071a Head {h00=0x0026, h01=0x0050, text=»GET030 LDKL A1,GBQUE QUEUE REQUEST«, t00=0x0004, t01=0x00b4}
0x071a…0732 Head {h00=0x0014, h01=0x0050, text=»GET040 LDR A2,A1«, t00=0x0004, t01=0x00de}
0x0732…0746 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0004, t01=0x00f6}
0x0746…076e Head {h00=0x0024, h01=0x0050, text=» RB(NZ) GET040 NOT LAST IN CHAIN«, t00=0x0004, t01=0x010a}
0x076e…0780 Head {h00=0x000e, h01=0x0050, text=» STR A5,A2«, t00=0x0004, t01=0x0132}
0x0780…0790 Head {h00=0x000c, h01=0x0050, text=» CMR A5 «, t00=0x0004, t01=0x0144}
0x0790…07b2 Head {h00=0x001e, h01=0x0050, text=»GET050 ABL TDISP DISPATCH «, t00=0x0004, t01=0x0154}
0x07b2…07c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0176}
0x07c0…07ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0184}
0x07ca…07d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07f2 Head {h00=0x0010, h01=0x0050, text=»RELBUF EQU *«, t00=0x0005, t01=0x0012}
0x07f2…0814 Head {h00=0x001e, h01=0x0050, text=» SUKL A8,2 BUFFER ADDRESS «, t00=0x0005, t01=0x0026}
0x0814…0834 Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A4 BUFFER UNIT «, t00=0x0005, t01=0x0048}
0x0834…085c Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 ADD ONE WORD FOR CHAIN«, t00=0x0005, t01=0x0068}
0x085c…0870 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0005, t01=0x0090}
0x0870…0882 Head {h00=0x000e, h01=0x0050, text=» XRK A2,1 «, t00=0x0005, t01=0x00a4}
0x0882…089a Head {h00=0x0014, h01=0x0050, text=»REL010 LDR A3,A8«, t00=0x0005, t01=0x00b6}
0x089a…08ac Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0005, t01=0x00ce}
0x08ac…08cc Head {h00=0x001c, h01=0x0050, text=» STR A3,A8 UPDATE CHAIN «, t00=0x0005, t01=0x00e0}
0x08cc…08de Head {h00=0x000e, h01=0x0050, text=» LDR A8,A3«, t00=0x0005, t01=0x0100}
0x08de…08f2 Head {h00=0x0010, h01=0x0050, text=» CWR A3,A2 «, t00=0x0005, t01=0x0112}
0x08f2…091a Head {h00=0x0024, h01=0x0050, text=» RB(NE) REL010 UPDATE NEXT CHAIN«, t00=0x0005, t01=0x0126}
0x091a…0924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0924…0948 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A5 SAVE TTAB-ADDRESS«, t00=0x0005, t01=0x0158}
0x0948…0960 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,GBQUE «, t00=0x0005, t01=0x017c}
0x0960…0994 (6, 0, 398) Head {h00=0x0030, h01=0x0050, text=»REL020 LDR A2,A5 ADDRESS TO PREVIOUS BUFFER «, t00=0x0006, t01=0x0004}
0x0994…09bc Head {h00=0x0024, h01=0x0050, text=»REL030 LDR* A5,A2 BUFFER ADDRESS«, t00=0x0006, t01=0x0038}
0x09bc…09de Head {h00=0x001e, h01=0x0050, text=» RF(Z) REL050 END OF QUEUE«, t00=0x0006, t01=0x0060}
0x09de…0a08 Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A5 ADDRESS TO NEXT BUFFER«, t00=0x0006, t01=0x0082}
0x0a08…0a36 Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:SA,A5 GET DISPATCH ADDRESS «, t00=0x0006, t01=0x00ac}
0x0a36…0a4a Head {h00=0x0010, h01=0x0050, text=» CW A4,-2,A1«, t00=0x0006, t01=0x00da}
0x0a4a…0a6e Head {h00=0x0020, h01=0x0050, text=» RB(NE) REL020 NOT SAME POOL«, t00=0x0006, t01=0x00ee}
0x0a6e…0a82 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0006, t01=0x0112}
0x0a82…0a96 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0006, t01=0x0126}
0x0a96…0aaa Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0006, t01=0x013a}
0x0aaa…0ac6 Head {h00=0x0018, h01=0x0050, text=» LD A7,TTB:SA+14,A5 «, t00=0x0006, t01=0x014e}
0x0ac6…0ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016a}
0x0ad0…0ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0174}
0x0ada…0ae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x017e}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af2…0afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b06…0b32 Head {h00=0x0028, h01=0x0050, text=» CF A15,GET TRY TO ALLOCATE BUFFERS «, t00=0x0007, t01=0x001c}
0x0b32…0b46 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A4 «, t00=0x0007, t01=0x0048}
0x0b46…0b5a Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x0007, t01=0x005c}
0x0b5a…0b6e Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A15«, t00=0x0007, t01=0x0070}
0x0b6e…0b82 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0007, t01=0x0084}
0x0b82…0b94 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0007, t01=0x0098}
0x0b94…0bbe Head {h00=0x0026, h01=0x0050, text=» RF(Z) REL050 BUFFER NOT ALLOCATED«, t00=0x0007, t01=0x00aa}
0x0bbe…0be0 Head {h00=0x001e, h01=0x0050, text=» CMR A5 TAKE OUT OF QUEUE «, t00=0x0007, t01=0x00d4}
0x0be0…0c00 Head {h00=0x001c, h01=0x0050, text=» STR A6,A2 UPDATE CHAIN «, t00=0x0007, t01=0x00f6}
0x0c00…0c2c Head {h00=0x0028, h01=0x0050, text=» CF A15,QTJOB QUEUE FOR DISPATCHING «, t00=0x0007, t01=0x0116}
0x0c2c…0c5a Head {h00=0x002a, h01=0x0050, text=» RB REL030 GET BUFFER TO NEXT IN QUEUE«, t00=0x0007, t01=0x0142}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c64…0c8e Head {h00=0x0026, h01=0x0050, text=»REL050 LDR A5,A3 GET TTAB-ADDRESS «, t00=0x0007, t01=0x017a}
0x0c8e…0cba Head {h00=0x0028, h01=0x0050, text=»REL060 ABL LKMQDI QUEUE AND DISPATCH«, t00=0x0008, t01=0x0014}
0x0cba…0cc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0040}
0x0cc8…0cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cdc…0d1c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO ALLOCATE BUFFERS TO REQUESTING PROGRAM«, t00=0x0008, t01=0x0062}
0x0d1c…0d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d26…0d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ac}
0x0d30…0d44 Head {h00=0x0010, h01=0x0050, text=»GET LDK A6,1«, t00=0x0008, t01=0x00b6}
0x0d44…0d6e Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A4 ADDRESS TO BUFFER-POOL«, t00=0x0008, t01=0x00ca}
0x0d6e…0d96 Head {h00=0x0024, h01=0x0050, text=»GET010 LDR A8,A4 BUFFER ADDRESS «, t00=0x0008, t01=0x00f4}
0x0d96…0da8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0008, t01=0x011c}
0x0da8…0dc2 Head {h00=0x0016, h01=0x0050, text=»GET020 LDR A1,A4 «, t00=0x0008, t01=0x012e}
0x0dc2…0de4 Head {h00=0x001e, h01=0x0050, text=» LDR* A4,A1 BUFFER POINTER«, t00=0x0008, t01=0x0148}
0x0de4…0e0a Head {h00=0x0022, h01=0x0050, text=» RF(Z) GET025 NO BUFFER FOUND «, t00=0x0008, t01=0x016a}
0x0e0a…0e1c Head {h00=0x000e, h01=0x0050, text=» TM A4,A6 «, t00=0x0008, t01=0x0190}
0x0e1c…0e42 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) GET010 BUFFER NOT FREE«, t00=0x0009, t01=0x0012}
0x0e42…0e54 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0009, t01=0x0038}
0x0e54…0e6a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GET020«, t00=0x0009, t01=0x004a}
0x0e6a…0e80 Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/FFFE«, t00=0x0009, t01=0x0060}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e8a…0e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e94…0eb8 Head {h00=0x0020, h01=0x0050, text=» ORK A4,1 FREE BUFFER FOUND «, t00=0x0009, t01=0x008a}
0x0eb8…0ee0 Head {h00=0x0024, h01=0x0050, text=» STR A4,A8 UPDATE BUFFER POINTER«, t00=0x0009, t01=0x00ae}
0x0ee0…0f0a Head {h00=0x0026, h01=0x0050, text=» ADKL A8,2 ADDRESS TO USER BUFFER «, t00=0x0009, t01=0x00d6}
0x0f0a…0f3a Head {h00=0x002c, h01=0x0050, text=» ST A8,TTB:SA+16,A5 SAVE IT IN SAVE AREA«, t00=0x0009, t01=0x0100}
0x0f3a…0f50 Head {h00=0x0012, h01=0x0050, text=»GET025 RTN A15«, t00=0x0009, t01=0x0130}
0x0f50…0f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5a…0f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0150}
0x0f64…0f70 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0009, t01=0x015a}
0x0f70…0f74 Head {h00=0x4004, h01=0x0000}
0x0f74…0f78 00 09 01 66 ┆ f┆
0x0f78…0f80 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f80…0fd0 (11, 0, 400) 52 54 20 51 55 45 55 45 44 20 50 52 4f 47 52 41 4d 20 28 41 31 2d 41 31 34 20 4f 4e 20 53 54 41 43 4b 29 20 00 12 01 8a 00 0a 00 50 5c 45 4a 45 43 54 00 13 00 2c 00 06 00 50 2a 20 00 13 00 3a 00 06 00 50 2a 20 00 13 00 44 00 12 00 50 2a 20 ┆RT QUEUED PROGRAM (A1-A14 ON STACK) P EJECT , P* : P* D P* ┆
0x0fd0…1020 20 20 52 20 45 20 54 20 55 20 52 20 00 13 00 4e 00 06 00 50 2a 20 00 13 00 64 00 40 00 50 2a 20 20 20 20 45 4e 54 52 59 50 4f 49 4e 54 53 20 52 45 54 55 31 34 2d 52 45 54 55 52 31 20 3a 52 45 4c 4f 41 44 20 52 45 47 49 53 54 45 52 53 20 46 ┆ R E T U R N P* d @ P* ENTRYPOINTS RETU14-RETUR1 :RELOAD REGISTERS F┆
0x1020…1070 52 4f 4d 20 53 54 41 43 4b 20 00 13 00 6e 00 1a 00 50 2a 20 20 20 41 4e 44 20 52 45 54 55 52 4e 20 56 49 41 20 41 31 35 00 13 00 b2 00 06 00 50 2a 20 00 13 00 d0 00 18 00 50 52 45 54 55 31 34 5c 4c 44 52 2a 5c 41 31 34 2c 41 31 35 20 00 13 ┆ROM STACK n P* AND RETURN VIA A15 P* PRETU14 LDR* A14,A15 ┆
0x1070…10c0 00 da 00 18 00 50 52 45 54 55 31 33 5c 4c 44 52 2a 5c 41 31 33 2c 41 31 35 20 00 13 00 f6 00 18 00 50 52 45 54 55 31 32 5c 4c 44 52 2a 5c 41 31 32 2c 41 31 35 20 00 13 01 12 00 18 00 50 52 45 54 55 31 31 5c 4c 44 52 2a 5c 41 31 31 2c 41 31 ┆ PRETU13 LDR* A13,A15 PRETU12 LDR* A12,A15 PRETU11 LDR* A11,A1┆
0x10c0…1110 35 20 00 13 01 2e 00 18 00 50 52 45 54 55 31 30 5c 4c 44 52 2a 5c 41 31 30 2c 41 31 35 20 00 13 01 4a 00 16 00 50 52 45 54 55 52 39 5c 4c 44 52 2a 5c 41 39 2c 41 31 35 00 13 01 66 00 16 00 50 52 45 54 55 52 38 5c 4c 44 52 2a 5c 41 38 2c 41 ┆5 . PRETU10 LDR* A10,A15 J PRETUR9 LDR* A9,A15 f PRETUR8 LDR* A8,A┆
0x1110…1160 (12, 0, 400) 31 35 00 13 01 80 00 16 00 50 52 45 54 55 52 37 5c 4c 44 52 2a 5c 41 37 2c 41 31 35 00 14 00 0a 00 16 00 50 52 45 54 55 52 36 5c 4c 44 52 2a 5c 41 36 2c 41 31 35 00 14 00 24 00 16 00 50 52 45 54 55 52 35 5c 4c 44 52 2a 5c 41 35 2c 41 31 35 ┆15 PRETUR7 LDR* A7,A15 PRETUR6 LDR* A6,A15 $ PRETUR5 LDR* A5,A15┆
0x1160…11b0 00 14 00 3e 00 16 00 50 52 45 54 55 52 34 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 00 14 00 58 00 16 00 50 52 45 54 55 52 33 5c 4c 44 52 2a 5c 41 33 2c 41 31 35 00 14 00 72 00 16 00 50 52 45 54 55 52 32 5c 4c 44 52 2a 5c 41 32 2c 41 31 35 00 14 ┆ > PRETUR4 LDR* A4,A15 X PRETUR3 LDR* A3,A15 r PRETUR2 LDR* A2,A15 ┆
0x11b0…1200 00 8c 00 14 00 50 52 45 54 55 52 31 5c 52 46 5c 44 49 53 31 33 30 00 14 00 a6 00 16 00 50 52 54 4e 41 31 35 5c 53 54 52 5c 41 31 2c 41 31 35 20 00 14 00 be 00 1c 00 50 44 49 53 31 33 30 5c 4c 44 4b 5c 41 31 2c 2f 34 30 5c 42 49 54 20 39 20 ┆ PRETUR1 RF DIS130 PRTNA15 STR A1,A15 PDIS130 LDK A1,/40 BIT 9 ┆
0x1200…1250 00 14 00 d8 00 2e 00 50 5c 4f 52 53 5c 41 31 2c 34 2c 41 31 35 5c 53 45 54 20 50 53 57 20 49 4e 20 41 31 35 20 53 54 41 43 4b 20 54 4f 20 45 4e 42 20 00 14 00 f8 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 00 14 01 2a 00 0c 00 50 5c 52 ┆ . P ORS A1,4,A15 SET PSW IN A15 STACK TO ENB P LDR* A1,A15 * P R┆
0x1250…12a0 54 4e 5c 41 31 35 00 14 01 3e 00 0a 00 50 5c 45 4a 45 43 54 00 14 01 4e 00 06 00 50 2a 20 00 14 01 5c 00 06 00 50 2a 20 00 14 01 66 00 20 00 50 2a 20 20 20 4d 4f 4e 49 54 4f 52 20 4a 4f 42 20 44 49 53 50 41 54 43 48 49 4e 47 20 00 14 01 70 ┆TN A15 > P EJECT N P* P* f P* MONITOR JOB DISPATCHING p┆