|
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: 4522 (0x11aa)
Notes: pts_type(SC)
Names: »DVG100.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/DVG100.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/DVG100.SC«
IDENT DVG100 REL 11.0 81-01-26 870105041100 * DEVICE WORK TABLE FOR GENERAL PRINTER * ENTRY DVG100 TABLE ENTRY * * EXTRN GPAD8 POINTER TO ADDRESS-BLOCK MMUPAG EQU 1 MEM. MAN.UNIT COND. * DVG100 EQU * TABLE ENTRY DATA /1111 CHANNEL PARAMETER DATA /80C0 STATUS./80C0 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA DWTEND-DVG100 ORDER DATA GPAD8 POINTER TO ADDRESS BLOCK DATA 'GP' TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF DATA 0 OUTPUT QUEUE LINK DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 DATA 0,0,0,0 STACK DATA 0 SAVE AREA A7 DATA 0 SAVE AREA A8 DATA /0003 CHANNEL PARAMETER 2 DATA 0 LINE DRIVER DEPENDENT 1 DATA 0 LINE DRIVER DEPENDENT 2 DATA /0000 DEVICE STATUS DATA 0 TIMER POINTER DATA 0 DOCUMENT CHARACTER SET DATA 0 PRINTER CHARACTER SET DATA 0 PRINTER PAPER LENGTH DATA 0 DOCUMENT PAPER LENGTH DATA 0 ACTUAL LINE DOCUMENT DATA 0 REQUESTED LINE DOCUMENT DATA 0 RETURN CODE DATA 0 CONTROL SEQUENCE ADRESS DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER DATA 0,0 DATA 0 DATA 1 SYSTEM START IND. DATA 0 LINE/FORM FEED INDICATOR IFT MMUPAG=1 DEVECB EQU * DATA 0,0,0,0,0,0 XIF DWTEND EQU * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DVG100 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006e Head {h00=0x002c, h01=0x0050, text=»* DEVICE WORK TABLE FOR GENERAL PRINTER«, t00=0x0000, t01=0x0042}
0x006e…0078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0072}
0x0078…009a Head {h00=0x001e, h01=0x0050, text=» ENTRY DVG100 TABLE ENTRY «, t00=0x0000, t01=0x007c}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a8}
0x00ae…00dc Head {h00=0x002a, h01=0x0050, text=» EXTRN GPAD8 POINTER TO ADDRESS-BLOCK «, t00=0x0000, t01=0x00b2}
0x00dc…0104 Head {h00=0x0024, h01=0x0050, text=»MMUPAG EQU 1 MEM. MAN.UNIT COND.«, t00=0x0000, t01=0x00e0}
0x0104…010e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…012e Head {h00=0x001c, h01=0x0050, text=»DVG100 EQU * TABLE ENTRY«, t00=0x0000, t01=0x0112}
0x012e…0154 Head {h00=0x0022, h01=0x0050, text=» DATA /1111 CHANNEL PARAMETER «, t00=0x0000, t01=0x0132}
0x0154…0188 Head {h00=0x0030, h01=0x0050, text=» DATA /80C0 STATUS./80C0 MEANS DEVICE READY «, t00=0x0000, t01=0x0158}
0x0188…01a4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0000, t01=0x018c}
0x01a4…01c6 Head {h00=0x001e, h01=0x0050, text=» DATA DWTEND-DVG100 ORDER «, t00=0x0001, t01=0x0018}
0x01c6…01f2 Head {h00=0x0028, h01=0x0050, text=» DATA GPAD8 POINTER TO ADDRESS BLOCK«, t00=0x0001, t01=0x003a}
0x01f2…0212 Head {h00=0x001c, h01=0x0050, text=» DATA 'GP' TTAB-ADDRESS «, t00=0x0001, t01=0x0066}
0x0212…023a Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0001, t01=0x0086}
0x023a…0258 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0001, t01=0x00ae}
0x0258…026e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0001, t01=0x00cc}
0x026e…0298 Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0001, t01=0x00e2}
0x0298…02bc Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0001, t01=0x010c}
0x02bc…02c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0001, t01=0x0130}
0x02c8…02ea Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0001, t01=0x013c}
0x02ea…031a Head {h00=0x002c, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5«, t00=0x0001, t01=0x015e}
0x031a…0336 Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0001, t01=0x018e}
0x0336…0352 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SAVE AREA A7«, t00=0x0002, t01=0x001a}
0x0352…036e Head {h00=0x0018, h01=0x0050, text=» DATA 0 SAVE AREA A8«, t00=0x0002, t01=0x0036}
0x036e…0396 Head {h00=0x0024, h01=0x0050, text=» DATA /0003 CHANNEL PARAMETER 2 «, t00=0x0002, t01=0x0052}
0x0396…03be Head {h00=0x0024, h01=0x0050, text=» DATA 0 LINE DRIVER DEPENDENT 1 «, t00=0x0002, t01=0x007a}
0x03be…03e6 Head {h00=0x0024, h01=0x0050, text=» DATA 0 LINE DRIVER DEPENDENT 2 «, t00=0x0002, t01=0x00a2}
0x03e6…0408 Head {h00=0x001e, h01=0x0050, text=» DATA /0000 DEVICE STATUS «, t00=0x0002, t01=0x00ca}
0x0408…0426 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TIMER POINTER «, t00=0x0002, t01=0x00ec}
0x0426…044c Head {h00=0x0022, h01=0x0050, text=» DATA 0 DOCUMENT CHARACTER SET«, t00=0x0002, t01=0x010a}
0x044c…0472 Head {h00=0x0022, h01=0x0050, text=» DATA 0 PRINTER CHARACTER SET «, t00=0x0002, t01=0x0130}
0x0472…0496 Head {h00=0x0020, h01=0x0050, text=» DATA 0 PRINTER PAPER LENGTH«, t00=0x0002, t01=0x0156}
0x0496…04bc Head {h00=0x0022, h01=0x0050, text=» DATA 0 DOCUMENT PAPER LENGTH «, t00=0x0002, t01=0x017a}
0x04bc…04e0 Head {h00=0x0020, h01=0x0050, text=» DATA 0 ACTUAL LINE DOCUMENT«, t00=0x0003, t01=0x0010}
0x04e0…0508 Head {h00=0x0024, h01=0x0050, text=» DATA 0 REQUESTED LINE DOCUMENT «, t00=0x0003, t01=0x0034}
0x0508…0524 Head {h00=0x0018, h01=0x0050, text=» DATA 0 RETURN CODE «, t00=0x0003, t01=0x005c}
0x0524…054c Head {h00=0x0024, h01=0x0050, text=» DATA 0 CONTROL SEQUENCE ADRESS «, t00=0x0003, t01=0x0078}
0x054c…0586 Head {h00=0x0036, h01=0x0050, text=» DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. «, t00=0x0003, t01=0x00a0}
0x0586…05ba Head {h00=0x0030, h01=0x0050, text=» DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER«, t00=0x0003, t01=0x00da}
0x05ba…05cc Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0003, t01=0x010e}
0x05cc…05dc Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0003, t01=0x0120}
0x05dc…05fe Head {h00=0x001e, h01=0x0050, text=» DATA 1 SYSTEM START IND. «, t00=0x0003, t01=0x0130}
0x05fe…0628 Head {h00=0x0026, h01=0x0050, text=» DATA 0 LINE/FORM FEED INDICATOR «, t00=0x0003, t01=0x0152}
0x0628…063e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0003, t01=0x017c}
0x063e…0652 (4, 2, 118) Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0004, t01=0x0004}
0x0652…066c Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0004, t01=0x0018}
0x066c…0678 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0004, t01=0x0032}
0x0678…068c Head {h00=0x0010, h01=0x0050, text=»DWTEND EQU *«, t00=0x0004, t01=0x003e}
0x068c…0696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0052}
0x0696…06a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005c}
0x06a0…06ac Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x0066}
0x06ac…06b0 Head {h00=0x4004, h01=0x0000}
0x06b0…06b4 00 04 00 72 ┆ r┆
0x06b4…06bc (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x06bc…070c (6, 0, 398) 00 10 00 50 43 49 4f 50 41 32 5c 45 51 55 5c 2a 01 0e 00 04 00 14 00 50 5c 44 41 54 41 5c 2f 34 30 30 30 2b 31 32 38 20 01 0e 00 18 00 10 00 50 43 49 4f 41 44 32 5c 45 51 55 5c 2a 01 0e 00 30 00 16 00 50 5c 44 41 54 41 5c 30 5c 41 44 44 52 ┆ PCIOPA2 EQU * P DATA /4000+128 PCIOAD2 EQU * 0 P DATA 0 ADDR┆
0x070c…075c 45 53 53 20 32 20 01 0e 00 44 00 10 00 50 43 49 4f 50 41 33 5c 45 51 55 5c 2a 01 0e 00 5e 00 0e 00 50 5c 44 41 54 41 5c 31 32 38 20 01 0e 00 72 00 10 00 50 43 49 4f 41 44 33 5c 45 51 55 5c 2a 01 0e 00 84 00 16 00 50 5c 44 41 54 41 5c 30 5c ┆ESS 2 D PCIOPA3 EQU * ^ P DATA 128 r PCIOAD3 EQU * P DATA 0 ┆
0x075c…07ac 41 44 44 52 45 53 53 20 33 20 01 0e 00 98 00 08 00 50 5c 58 49 46 01 0e 00 b2 00 16 00 50 5c 49 46 54 5c 43 44 44 49 31 36 3d 31 5c 5c 3d 39 20 01 0e 00 be 00 0a 00 50 5c 45 4a 45 43 54 01 0e 00 d8 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ADDRESS 3 P XIF P IFT CDDI16=1 =9 P EJECT ( P**********┆
0x07ac…07fc 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 01 0e 00 e6 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0e 01 12 00 28 00 50 2a 20 ┆************************* ( P* * ( P* ┆
0x07fc…084a 20 43 44 49 4e 49 54 20 2d 20 49 4e 49 54 49 41 4c 49 5a 45 20 44 49 53 43 20 55 4e 49 54 20 20 2a 20 01 0e 01 3e 00 28 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 2a 20 ┆ CDINIT - INITIALIZE DISC UNIT * > ( P* ============================= * ┆
0x084a…089a (7, 0, 400) 01 0e 01 6a 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 00 08 00 28 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 53 59 53 4c 4f 44 2c 47 45 54 ┆ j ( P* * ( P* REFERENCED IN: SYSLOD,GET┆
0x089a…08ea 46 49 4c 20 20 20 2a 20 01 0f 00 34 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 00 60 00 28 00 50 2a 20 20 45 4e 54 52 59 3a 20 41 31 20 2d 20 44 45 56 49 43 ┆FIL * 4 ( P* * ` ( P* ENTRY: A1 - DEVIC┆
0x08ea…093a 45 20 41 44 44 52 45 53 53 20 20 20 20 20 2a 20 01 0f 00 8c 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 00 b8 00 28 00 50 2a 20 20 45 58 49 54 3a 20 20 20 20 ┆E ADDRESS * ( P* * ( P* EXIT: ┆
0x093a…098a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 00 e4 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 01 10 00 28 00 50 2a 20 20 57 ┆ * ( P* * ( P* W┆
0x098a…09da 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2c 41 32 20 20 20 20 20 20 20 20 20 20 2a 01 0f 01 3c 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 0f 01 68 ┆ORK REGISTERS: A1,A2 * < ( P* * h┆
0x09da…0a2a (8, 0, 400) 00 28 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 10 00 04 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ( P* SUBROUTINES: * ( P* ┆
0x0a2a…0a7a 20 20 2a 20 01 10 00 30 00 28 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 10 00 5c 00 04 00 50 01 10 00 88 00 10 00 50 43 44 49 4e 49 54 5c 45 51 55 5c 2a 01 10 00 90 ┆ * 0 ( P*********************************** P PCDINIT EQU * ┆
0x0a7a…0aca 00 06 00 50 2a 20 01 10 00 a4 00 28 00 50 2a 5c 49 4e 49 54 20 31 36 4d 20 4f 52 20 38 30 4d 20 43 44 43 20 44 49 53 43 20 43 4f 4d 4d 41 4e 44 53 20 01 10 00 ae 00 06 00 50 2a 20 01 10 00 da 00 12 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 5c ┆ P* ( P* INIT 16M OR 80M CDC DISC COMMANDS P* P LDR A2,A1 ┆
0x0aca…0b1a 3d 39 01 10 00 e4 00 26 00 50 5c 41 4e 4b 5c 41 31 2c 2f 33 46 5c 4d 41 53 4b 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 5c 3d 39 01 10 00 fa 00 2e 00 50 5c 53 52 4c 5c 41 32 2c 32 5c 46 49 58 20 4f 52 20 43 41 52 54 52 49 44 47 45 20 49 ┆=9 & P ANK A1,/3F MASK DEVICE ADDRESS =9 . P SRL A2,2 FIX OR CARTRIDGE I┆
0x0b1a…0b6a 4e 20 50 4f 53 49 54 49 4f 4e 5c 3d 39 20 01 10 01 24 00 14 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 30 5c 5c 3d 39 20 01 10 01 56 00 3c 00 50 5c 53 54 5c 41 32 2c 43 41 52 46 49 58 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 46 49 58 20 4f 52 20 43 ┆N POSITION =9 $ P ANK A2,/10 =9 V < P ST A2,CARFIX+STKEND SAVE FIX OR C┆
0x0b6a…0bba (9, 0, 400) 41 52 54 52 49 44 47 45 20 49 4e 44 49 43 41 54 4f 52 5c 3d 39 20 01 10 01 6e 00 2c 00 50 5c 4f 52 4b 4c 5c 41 31 2c 43 49 4f 5c 43 4f 4e 46 49 47 20 43 49 4f 20 41 31 2c 31 2c 58 58 20 20 49 4e 53 54 52 2e 20 01 11 00 1e 00 12 00 50 5c 53 ┆ARTRIDGE INDICATOR =9 n , P ORKL A1,CIO CONFIG CIO A1,1,XX INSTR. P S┆
0x0bba…0c0a 54 5c 41 31 2c 52 45 41 44 43 31 20 01 11 00 4e 00 28 00 50 5c 4f 52 4b 4c 5c 41 31 2c 2f 38 30 30 5c 46 4f 52 4d 20 53 53 54 20 41 31 2c 58 58 20 20 49 4e 53 54 52 2e 01 11 00 64 00 12 00 50 5c 53 54 5c 41 31 2c 52 45 41 44 43 32 20 01 11 ┆T A1,READC1 N ( P ORKL A1,/800 FORM SST A1,XX INSTR. d P ST A1,READC2 ┆
0x0c0a…0c5a 00 90 00 2a 00 50 5c 58 52 4b 4c 5c 41 31 2c 2f 42 30 30 5c 46 4f 52 4d 20 43 49 4f 20 41 32 2c 31 2c 58 58 20 20 49 4e 53 54 52 2e 01 11 00 a6 00 12 00 50 5c 53 54 5c 41 31 2c 53 45 45 4b 43 31 20 01 11 00 d4 00 28 00 50 5c 4f 52 4b 4c 5c ┆ * P XRKL A1,/B00 FORM CIO A2,1,XX INSTR. P ST A1,SEEKC1 ( P ORKL ┆
0x0c5a…0caa 41 31 2c 2f 38 30 30 5c 46 4f 52 4d 20 53 53 54 20 41 32 2c 58 58 20 20 49 4e 53 54 52 2e 01 11 00 ea 00 12 00 50 5c 53 54 5c 41 31 2c 53 45 45 4b 43 32 20 01 11 01 16 00 10 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2d 31 20 01 11 01 2c 00 32 00 50 ┆A1,/800 FORM SST A2,XX INSTR. P ST A1,SEEKC2 P LDKL A2,-1 , 2 P┆
0x0caa…0cfa 5c 53 54 5c 41 32 2c 50 53 45 43 4e 4c 2b 53 54 4b 45 4e 44 5c 49 4e 49 54 20 56 41 4c 55 45 20 46 4f 52 20 53 45 43 54 4f 52 20 4e 42 52 01 11 01 40 00 26 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 33 30 30 5c 42 55 46 4c 45 4e 20 38 30 4d 20 43 ┆ ST A2,PSECNL+STKEND INIT VALUE FOR SECTOR NBR @ & P LDKL A2,/300 BUFLEN 80M C┆
0x0cfa…0d4a (10, 0, 400) 44 43 20 44 49 53 43 20 01 11 01 76 00 1e 00 50 5c 53 54 5c 41 32 2c 53 41 56 43 4f 4e 5c 53 41 56 45 20 4c 45 4e 47 54 48 20 01 12 00 10 00 34 00 50 5c 4c 44 4b 4c 5c 41 32 2c 43 52 44 53 45 43 5c 47 45 54 20 52 45 41 44 20 53 45 43 54 4f ┆DC DISC v P ST A2,SAVCON SAVE LENGTH 4 P LDKL A2,CRDSEC GET READ SECTO┆
0x0d4a…0d9a 52 20 53 55 42 52 4f 55 54 49 4e 45 20 41 44 44 52 2e 01 12 00 32 00 10 00 50 5c 53 54 5c 41 32 2c 52 45 41 44 20 01 12 00 6a 00 10 00 50 5c 53 54 5c 41 32 2c 52 45 41 44 53 01 12 00 7e 00 26 00 50 5c 43 46 5c 41 31 34 2c 47 45 54 56 4c 42 ┆R SUBROUTINE ADDR. 2 P ST A2,READ j P ST A2,READS ~ & P CF A14,GETVLB┆
0x0d9a…0dea 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4c 41 42 45 4c 5c 3d 39 01 12 00 92 00 24 00 50 5c 4c 43 5c 41 32 2c 46 4f 52 44 45 56 2b 31 2c 41 39 5c 47 45 54 20 46 4f 52 4d 41 54 5c 3d 39 01 12 00 bc 00 1e 00 50 5c 41 4e 4b 5c 41 32 2c 31 5c 46 4f ┆ GET VOLUME LABEL =9 $ P LC A2,FORDEV+1,A9 GET FORMAT =9 P ANK A2,1 FO┆
0x0dea…0e3a 52 4d 41 54 20 34 20 4f 52 20 35 5c 3d 39 01 12 00 e4 00 28 00 50 5c 4c 44 4b 5c 41 32 2c 32 33 5c 43 4f 4e 53 54 41 4e 54 20 46 4f 52 20 31 36 4d 20 44 49 53 43 5c 3d 39 20 01 12 01 06 00 1e 00 50 5c 52 46 28 4e 5a 29 5c 43 44 49 3a 31 30 ┆RMAT 4 OR 5 =9 ( P LDK A2,23 CONSTANT FOR 16M DISC =9 P RF(NZ) CDI:10┆
0x0e3a…0e8a 5c 31 36 4d 20 44 49 53 43 5c 3d 39 01 12 01 32 00 28 00 50 5c 4c 44 4b 5c 41 32 2c 31 31 35 5c 43 4f 4e 53 54 41 4e 54 20 46 4f 52 20 38 30 4d 20 44 49 53 43 5c 3d 39 01 12 01 54 00 14 00 50 43 44 49 3a 31 30 5c 45 51 55 5c 2a 5c 5c 3d 39 ┆ 16M DISC =9 2 ( P LDK A2,115 CONSTANT FOR 80M DISC =9 T PCDI:10 EQU * =9┆
0x0e8a…0eda (11, 0, 400) 01 12 01 80 00 28 00 50 5c 53 54 5c 41 32 2c 44 49 56 43 4f 4e 5c 53 45 54 20 44 49 56 49 44 45 20 43 4f 4e 53 54 41 4e 54 5c 3d 39 01 13 00 08 00 0c 00 50 5c 52 54 4e 5c 41 31 34 01 13 00 34 00 0a 00 50 5c 45 4a 45 43 54 01 13 00 44 00 34 ┆ ( P ST A2,DIVCON SET DIVIDE CONSTANT =9 P RTN A14 4 P EJECT D 4┆
0x0eda…0f2a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 13 00 52 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P*********************************************** R 4 P* ┆
0x0f2a…0f7a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 13 00 8a 00 34 00 50 2a 20 20 43 52 44 53 45 43 2d 20 52 45 41 44 20 4f 4e 45 20 53 45 43 54 4f 52 20 46 52 4f 4d 20 44 49 53 43 20 20 20 20 20 20 20 20 20 20 ┆ * 4 P* CRDSEC- READ ONE SECTOR FROM DISC ┆
0x0f7a…0fca 2a 20 01 13 00 c2 00 34 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 2a 20 01 13 00 fa 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* 4 P* ================================= * 4 P* ┆
0x0fca…101a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 13 01 32 00 34 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 53 59 53 4c 4f 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 2 4 P* REFERENCED IN: SYSLOD ┆
0x101a…106a (12, 0, 400) 20 20 20 20 20 20 20 20 2a 20 01 13 01 6a 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 14 00 12 00 34 00 50 2a 20 20 45 4e 54 ┆ * j 4 P* * 4 P* ENT┆
0x106a…10ba 52 59 3a 20 20 41 39 20 3d 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 14 00 4a 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RY: A9 = BUFFER ADDRESS * J 4 P* ┆
0x10ba…110a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 14 00 82 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 41 31 31 20 2d 20 53 45 43 54 4f 52 20 4e 42 52 20 4c 45 41 53 54 20 53 49 47 4e 49 46 49 43 41 4e 54 20 20 2a 20 01 14 00 ba 00 34 ┆ * 4 P* A11 - SECTOR NBR LEAST SIGNIFICANT * 4┆
0x110a…115a 00 50 2a 20 20 20 20 20 20 20 20 20 41 31 32 20 2d 20 53 45 43 54 4f 52 20 4e 42 52 20 4d 4f 53 54 20 53 49 47 4e 49 46 49 43 41 4e 54 20 20 20 2a 20 01 14 00 f2 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* A12 - SECTOR NBR MOST SIGNIFICANT * 4 P* ┆
0x115a…11aa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 14 01 2a 00 34 00 50 2a 20 20 45 58 49 54 3a 20 41 31 32 2c 41 31 31 20 3d 20 41 31 32 2c 41 31 31 20 2b 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * * 4 P* EXIT: A12,A11 = A12,A11 + 1 ┆