|
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: 7250 (0x1c52)
Notes: pts_type(SC)
Names: »MONTIM.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/MONTIM.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/MONTIM.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/MONTIM.SC«
IDENT MONTIM REL 10.0 80-03-14 870105041000 * * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * MONTIM = MONITOR CLOCK PROCESSORS * * * * * * ******************************************************* * * * THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS * * -GETTIM GET TIME FROM MONITOR CLOCK * * -SETTIM SET TIME IN MONITOR CLOCK * EJECT MONTIM * * *********** * ENTRIES * *********** * * ENTRY GETTIM GET TIME FROM MONITOR CLOCK ENTRY SETTIM SET TIME IN MONITOR CLOCK EJECT MONTIM * * ************* * EXTERNALS * ************* * * EXTRN MONCLO MONITOR CLOCK EXTRN LKMQDI QUEUE TASK AND DISPATCH EXTRN TTB:SA TTAB SAVE AREA EJECT MONTIM * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT MONTIM * * * G E T T I M * * THIS IS THE GET TIME LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH ADDRESS TO THE USER TIMER CONTROL * BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * TIMER CONTROL BLOCK. * * GETTIM EQU * LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND LDK A3,6 COUNTER LDR* A6,A7 SECONDS STR A6,A15 SAVE ON STACK SUK A7,2 LDR* A6,A7 MINUTES STR A6,A15 SAVE ON STACK SUK A7,2 LDR* A6,A7 HOURS ENB * GETT10 CF A15,BYTASC CONVERT TO ASCII IFT MMUPAG=0 SC A6,1,A8 STORE RIGHTHAND CHARACTER ECR A6,A6 SCR A6,A8 STORE LEFTHAND CHARACTER XIF * EJECT MONTIM * * IFT MMUPAG=1 LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS ANK A4,1 RF(Z) GETT15 TCB ADDRESS EVEN LDR A1,A6 EL A4,1,A8 ANK A4,/FF SLL A1,8 ORR A1,A4 ES A1,1,A8 ELR A4,A8 SRL A6,8 ANKL A4,/FF00 ORR A6,A4 * GETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK XIF * SUK A3,2 RF(E) GETT20 ADKL A8,2 LDR* A6,A15 GET ACTUAL TIME FROM STACK RB GETT10 * EJECT MONTIM * * GETT20 SUK A7,2 LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 CMR A7 CLEAR MIDNIGTH CARRY * TPDIS ABL LKMQDI * EJECT MONTIM * * * S E T T I M * * THIS IS THE SET TIME LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER WITH * ADDRESS TO THE USER TIMER CONTROL BLOCK * IN A8. VALUE IN TIMER CONTROL BLOCK IS * COPIED INTO MONITOR CLOCK. * * SETTIM EQU * LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND LDK A3,6 COUNTER ENB * SETT10 EQU * IFT MMUPAG=0 LCR A6,A8 GET LEFTHAND CHARACTER ECR A6,A6 LC A6,1,A8 GET RIGHTHAND CHARACTER XIF * IFT MMUPAG=1 ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS ANK A4,1 RF(Z) SETT15 TCB ADDRESS EVEN EL A4,1,A8 CORRECTIONS FOR UNEVEN TCB ADDRESS SLL A6,8 SRL A4,8 ORR A6,A4 * SETT15 EQU * XIF * EJECT MONTIM * * CF A15,ASCTBY CONVERT TO BINARY SUK A3,2 END RF(E) SETT20 ADKL A8,2 STR A6,A15 SAVE ON STACK (HOURS AND MINUTES RB SETT10 * SETT20 EQU * INH STR A6,A7 SECONDS TO MONITOR CLOCK SUK A7,2 LDR* A6,A15 STR A6,A7 MINUTES TO MONITOR CLOCK SUK A7,2 LDR* A6,A15 STR A6,A7 HOURS TO MONITOR CLOCK SUK A7,2 CMR A7 RESET MIDNIGTH CARRY RB TPDIS * EJECT MONTIM * * * BYTASC = SUBROUTINE TO CONVERT A6-CONTENT * FROM BINARY TO ASCII. * RESULT IN A6. * * BYTASC EQU * LDK A4,0 * BYTA10 SUK A6,/A RF(N) BYTA20 ADKL A4,/100 RB BYTA10 * BYTA20 ADK A6,/A ADR A6,A4 ORKL A6,/3030 RTN A15 * EJECT MONTIM * * * ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT * FROM ASCII TO BINARY. * RESULT IN A6. * * ASCTBY EQU * LDR A4,A6 ANK A6,/F SRL A4,8 ANK A4,/F RF(E) ASCT20 * ASCT10 ADK A6,/A SUK A4,1 RB(NE) ASCT10 * ASCT20 RTN A15 * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT MONTIM REL 10.0 80-03-14 870105041000 «, 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…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0092 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00fc Head {h00=0x002a, h01=0x0050, text=»* MONTIM = MONITOR CLOCK PROCESSORS «, t00=0x0000, t01=0x00d2}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0178 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x013c}
0x0178…0182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…018c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01cc Head {h00=0x003c, h01=0x0050, text=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS «, t00=0x0000, t01=0x0190}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…020a Head {h00=0x0030, h01=0x0050, text=»* -GETTIM GET TIME FROM MONITOR CLOCK «, t00=0x0001, t01=0x004a}
0x020a…0214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0246 Head {h00=0x002e, h01=0x0050, text=»* -SETTIM SET TIME IN MONITOR CLOCK «, t00=0x0001, t01=0x0088}
0x0246…0250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x0250…0268 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0001, t01=0x00c4}
0x0268…0272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00dc}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e6}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00f0}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0104}
0x02a4…02b8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0118}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…02fe Head {h00=0x002e, h01=0x0050, text=» ENTRY GETTIM GET TIME FROM MONITOR CLOCK «, t00=0x0001, t01=0x0140}
0x02fe…032e Head {h00=0x002c, h01=0x0050, text=» ENTRY SETTIM SET TIME IN MONITOR CLOCK «, t00=0x0001, t01=0x0172}
0x032e…0346 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0002, t01=0x0012}
0x0346…0350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…0370 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x003e}
0x0370…0386 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x0054}
0x0386…039c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x006a}
0x039c…03a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03d4 Head {h00=0x0020, h01=0x0050, text=» EXTRN MONCLO MONITOR CLOCK «, t00=0x0002, t01=0x0094}
0x03d4…0402 Head {h00=0x002a, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0002, t01=0x00b8}
0x0402…0426 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0002, t01=0x00e6}
0x0426…043e Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0002, t01=0x010a}
0x043e…0448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…0484 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0002, t01=0x0136}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04ac Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0002, t01=0x0172}
0x04ac…04b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04e8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x000a}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f2…0524 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0003, t01=0x0046}
0x0524…0552 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0003, t01=0x0078}
0x0552…055c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a6}
0x055c…0570 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0003, t01=0x00b0}
0x0570…057a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c4}
0x057a…0592 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0003, t01=0x00ce}
0x0592…059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05be Head {h00=0x0014, h01=0x0050, text=»* G E T T I M«, t00=0x0003, t01=0x00fa}
0x05be…05c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0112}
0x05c8…05f8 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE GET TIME LKM PROCESSOR.«, t00=0x0003, t01=0x011c}
0x05f8…0602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014c}
0x0602…0632 Head {h00=0x002c, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER «, t00=0x0003, t01=0x0156}
0x0632…0666 Head {h00=0x0030, h01=0x0050, text=»* WITH ADDRESS TO THE USER TIMER CONTROL «, t00=0x0003, t01=0x0186}
0x0666…069c Head {h00=0x0032, h01=0x0050, text=»* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO«, t00=0x0004, t01=0x002a}
0x069c…06be Head {h00=0x001e, h01=0x0050, text=»* TIMER CONTROL BLOCK. «, t00=0x0004, t01=0x0060}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0082}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06e6 Head {h00=0x0010, h01=0x0050, text=»GETTIM EQU *«, t00=0x0004, t01=0x0096}
0x06e6…0720 Head {h00=0x0036, h01=0x0050, text=» LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND «, t00=0x0004, t01=0x00aa}
0x0720…073a Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 COUNTER «, t00=0x0004, t01=0x00e4}
0x073a…0756 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 SECONDS «, t00=0x0004, t01=0x00fe}
0x0756…0778 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0004, t01=0x011a}
0x0778…078a Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0004, t01=0x013c}
0x078a…07a6 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 MINUTES «, t00=0x0004, t01=0x014e}
0x07a6…07c8 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0004, t01=0x016a}
0x07c8…07da Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0004, t01=0x018c}
0x07da…07f4 Head {h00=0x0016, h01=0x0050, text=» LDR* A6,A7 HOURS «, t00=0x0005, t01=0x000e}
0x07f4…0800 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0005, t01=0x0028}
0x0800…080a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0034}
0x080a…0838 Head {h00=0x002a, h01=0x0050, text=»GETT10 CF A15,BYTASC CONVERT TO ASCII «, t00=0x0005, t01=0x003e}
0x0838…084e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0005, t01=0x006c}
0x084e…087c Head {h00=0x002a, h01=0x0050, text=» SC A6,1,A8 STORE RIGHTHAND CHARACTER «, t00=0x0005, t01=0x0082}
0x087c…088e Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x0005, t01=0x00b0}
0x088e…08ba Head {h00=0x0028, h01=0x0050, text=» SCR A6,A8 STORE LEFTHAND CHARACTER «, t00=0x0005, t01=0x00c2}
0x08ba…08c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00ee}
0x08c6…08d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fa}
0x08d0…08e8 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0005, t01=0x0104}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0126}
0x08fc…0912 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0005, t01=0x0130}
0x0912…0944 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x0005, t01=0x0146}
0x0944…0956 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0005, t01=0x0178}
0x0956…097c Head {h00=0x0022, h01=0x0050, text=» RF(Z) GETT15 TCB ADDRESS EVEN«, t00=0x0005, t01=0x018a}
0x097c…098e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0006, t01=0x0020}
0x098e…09a2 Head {h00=0x0010, h01=0x0050, text=» EL A4,1,A8 «, t00=0x0006, t01=0x0032}
0x09a2…09b6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0006, t01=0x0046}
0x09b6…09c8 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0006, t01=0x005a}
0x09c8…09da Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x0006, t01=0x006c}
0x09da…09ee Head {h00=0x0010, h01=0x0050, text=» ES A1,1,A8 «, t00=0x0006, t01=0x007e}
0x09ee…0a00 Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0006, t01=0x0092}
0x0a00…0a12 Head {h00=0x000e, h01=0x0050, text=» SRL A6,8 «, t00=0x0006, t01=0x00a4}
0x0a12…0a28 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FF00«, t00=0x0006, t01=0x00b6}
0x0a28…0a3a Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x0006, t01=0x00cc}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a44…0a7e Head {h00=0x0036, h01=0x0050, text=»GETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK «, t00=0x0006, t01=0x00e8}
0x0a7e…0a8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0122}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012e}
0x0a94…0aa6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0006, t01=0x0138}
0x0aa6…0abc Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0006, t01=0x014a}
0x0abc…0ace Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0006, t01=0x0160}
0x0ace…0afe Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A15 GET ACTUAL TIME FROM STACK «, t00=0x0006, t01=0x0172}
0x0afe…0b10 Head {h00=0x000e, h01=0x0050, text=» RB GETT10«, t00=0x0007, t01=0x0012}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0024}
0x0b1a…0b32 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0007, t01=0x002e}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b46…0b5e Head {h00=0x0014, h01=0x0050, text=»GETT20 SUK A7,2 «, t00=0x0007, t01=0x005a}
0x0b5e…0b90 Head {h00=0x002e, h01=0x0050, text=» LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY «, t00=0x0007, t01=0x0072}
0x0b90…0bc6 Head {h00=0x0032, h01=0x0050, text=» ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7«, t00=0x0007, t01=0x00a4}
0x0bc6…0bea Head {h00=0x0020, h01=0x0050, text=» CMR A7 CLEAR MIDNIGTH CARRY«, t00=0x0007, t01=0x00da}
0x0bea…0bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf4…0c0c Head {h00=0x0014, h01=0x0050, text=»TPDIS ABL LKMQDI«, t00=0x0007, t01=0x0108}
0x0c0c…0c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0120}
0x0c16…0c2e Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0007, t01=0x012a}
0x0c2e…0c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0142}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014c}
0x0c42…0c5a Head {h00=0x0014, h01=0x0050, text=»* S E T T I M«, t00=0x0007, t01=0x0156}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c64…0c94 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE SET TIME LKM PROCESSOR.«, t00=0x0007, t01=0x0178}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9e…0cd2 Head {h00=0x0030, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER WITH«, t00=0x0008, t01=0x0022}
0x0cd2…0d06 Head {h00=0x0030, h01=0x0050, text=»* ADDRESS TO THE USER TIMER CONTROL BLOCK«, t00=0x0008, t01=0x0056}
0x0d06…0d3a Head {h00=0x0030, h01=0x0050, text=»* IN A8. VALUE IN TIMER CONTROL BLOCK IS «, t00=0x0008, t01=0x008a}
0x0d3a…0d62 Head {h00=0x0024, h01=0x0050, text=»* COPIED INTO MONITOR CLOCK. «, t00=0x0008, t01=0x00be}
0x0d62…0d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6c…0d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d76…0d8a Head {h00=0x0010, h01=0x0050, text=»SETTIM EQU *«, t00=0x0008, t01=0x00fa}
0x0d8a…0dc4 Head {h00=0x0036, h01=0x0050, text=» LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND «, t00=0x0008, t01=0x010e}
0x0dc4…0dde Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 COUNTER «, t00=0x0008, t01=0x0148}
0x0dde…0dea Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0008, t01=0x0162}
0x0dea…0df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016e}
0x0df4…0e08 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0008, t01=0x0178}
0x0e08…0e1e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0008, t01=0x018c}
0x0e1e…0e48 Head {h00=0x0026, h01=0x0050, text=» LCR A6,A8 GET LEFTHAND CHARACTER «, t00=0x0009, t01=0x0012}
0x0e48…0e5a Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x0009, t01=0x003c}
0x0e5a…0e86 Head {h00=0x0028, h01=0x0050, text=» LC A6,1,A8 GET RIGHTHAND CHARACTER «, t00=0x0009, t01=0x004e}
0x0e86…0e92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x007a}
0x0e92…0e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0086}
0x0e9c…0eb2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0009, t01=0x0090}
0x0eb2…0ee8 Head {h00=0x0032, h01=0x0050, text=» ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK «, t00=0x0009, t01=0x00a6}
0x0ee8…0f1a Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x0009, t01=0x00dc}
0x0f1a…0f2c Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0009, t01=0x010e}
0x0f2c…0f52 Head {h00=0x0022, h01=0x0050, text=» RF(Z) SETT15 TCB ADDRESS EVEN«, t00=0x0009, t01=0x0120}
0x0f52…0f88 Head {h00=0x0032, h01=0x0050, text=» EL A4,1,A8 CORRECTIONS FOR UNEVEN TCB ADDRESS«, t00=0x0009, t01=0x0146}
0x0f88…0f9a Head {h00=0x000e, h01=0x0050, text=» SLL A6,8 «, t00=0x0009, t01=0x017c}
0x0f9a…0fac Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0009, t01=0x018e}
0x0fac…0fbe Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x000a, t01=0x0010}
0x0fbe…0fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x0fc8…0fdc Head {h00=0x0010, h01=0x0050, text=»SETT15 EQU *«, t00=0x000a, t01=0x002c}
0x0fdc…0fe8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0040}
0x0fe8…0ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004c}
0x0ff2…100a Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000a, t01=0x0056}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1014…101e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101e…1046 Head {h00=0x0024, h01=0x0050, text=» CF A15,ASCTBY CONVERT TO BINARY«, t00=0x000a, t01=0x0082}
0x1046…105c Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 END «, t00=0x000a, t01=0x00aa}
0x105c…1072 Head {h00=0x0012, h01=0x0050, text=» RF(E) SETT20 «, t00=0x000a, t01=0x00c0}
0x1072…1084 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x000a, t01=0x00d6}
0x1084…10b8 Head {h00=0x0030, h01=0x0050, text=» STR A6,A15 SAVE ON STACK (HOURS AND MINUTES«, t00=0x000a, t01=0x00e8}
0x10b8…10ca Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x000a, t01=0x011c}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x000a, t01=0x0138}
0x10e8…10f4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000a, t01=0x014c}
0x10f4…1120 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 SECONDS TO MONITOR CLOCK «, t00=0x000a, t01=0x0158}
0x1120…1132 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000a, t01=0x0184}
0x1132…1146 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000b, t01=0x0008}
0x1146…1172 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 MINUTES TO MONITOR CLOCK «, t00=0x000b, t01=0x001c}
0x1172…1184 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000b, t01=0x0048}
0x1184…1198 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000b, t01=0x005a}
0x1198…11c2 Head {h00=0x0026, h01=0x0050, text=» STR A6,A7 HOURS TO MONITOR CLOCK «, t00=0x000b, t01=0x006e}
0x11c2…11d4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000b, t01=0x0098}
0x11d4…11f8 Head {h00=0x0020, h01=0x0050, text=» CMR A7 RESET MIDNIGTH CARRY«, t00=0x000b, t01=0x00aa}
0x11f8…120a Head {h00=0x000e, h01=0x0050, text=» RB TPDIS «, t00=0x000b, t01=0x00ce}
0x120a…1214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e0}
0x1214…122c Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000b, t01=0x00ea}
0x122c…1236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1236…1240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010c}
0x1240…1276 Head {h00=0x0032, h01=0x0050, text=»* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000b, t01=0x0116}
0x1276…12a2 Head {h00=0x0028, h01=0x0050, text=»* FROM BINARY TO ASCII. «, t00=0x000b, t01=0x014c}
0x12a2…12c6 Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x000b, t01=0x0178}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000c}
0x12d0…12da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0016}
0x12da…12ee Head {h00=0x0010, h01=0x0050, text=»BYTASC EQU *«, t00=0x000c, t01=0x0020}
0x12ee…1300 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000c, t01=0x0034}
0x1300…130a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0046}
0x130a…1322 Head {h00=0x0014, h01=0x0050, text=»BYTA10 SUK A6,/A«, t00=0x000c, t01=0x0050}
0x1322…1338 Head {h00=0x0012, h01=0x0050, text=» RF(N) BYTA20 «, t00=0x000c, t01=0x0068}
0x1338…134e Head {h00=0x0012, h01=0x0050, text=» ADKL A4,/100 «, t00=0x000c, t01=0x007e}
0x134e…1360 Head {h00=0x000e, h01=0x0050, text=» RB BYTA10«, t00=0x000c, t01=0x0094}
0x1360…136a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a6}
0x136a…1382 Head {h00=0x0014, h01=0x0050, text=»BYTA20 ADK A6,/A«, t00=0x000c, t01=0x00b0}
0x1382…1394 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A4«, t00=0x000c, t01=0x00c8}
0x1394…13aa Head {h00=0x0012, h01=0x0050, text=» ORKL A6,/3030«, t00=0x000c, t01=0x00da}
0x13aa…13ba Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000c, t01=0x00f0}
0x13ba…13c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0100}
0x13c4…13dc Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000c, t01=0x010a}
0x13dc…13e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0122}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012c}
0x13f0…1426 Head {h00=0x0032, h01=0x0050, text=»* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000c, t01=0x0136}
0x1426…1452 Head {h00=0x0028, h01=0x0050, text=»* FROM ASCII TO BINARY. «, t00=0x000c, t01=0x016c}
0x1452…1476 Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x000d, t01=0x0008}
0x1476…1480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002c}
0x1480…148a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x148a…149e Head {h00=0x0010, h01=0x0050, text=»ASCTBY EQU *«, t00=0x000d, t01=0x0040}
0x149e…14b0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x000d, t01=0x0054}
0x14b0…14c2 Head {h00=0x000e, h01=0x0050, text=» ANK A6,/F«, t00=0x000d, t01=0x0066}
0x14c2…14d4 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x000d, t01=0x0078}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000d, t01=0x008a}
0x14e6…14fc Head {h00=0x0012, h01=0x0050, text=» RF(E) ASCT20 «, t00=0x000d, t01=0x009c}
0x14fc…1506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1506…151e Head {h00=0x0014, h01=0x0050, text=»ASCT10 ADK A6,/A«, t00=0x000d, t01=0x00bc}
0x151e…1530 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000d, t01=0x00d4}
0x1530…1546 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ASCT10«, t00=0x000d, t01=0x00e6}
0x1546…1550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fc}
0x1550…1566 Head {h00=0x0012, h01=0x0050, text=»ASCT20 RTN A15«, t00=0x000d, t01=0x0106}
0x1566…1570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x1570…157a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x157a…1584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x1584…1590 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x013a}
0x1590…1594 Head {h00=0x4004, h01=0x0000}
0x1594…1598 00 0d 01 46 ┆ F┆
0x1598…15a0 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x15a0…15f0 (15, 0, 400) 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 47 49 56 45 4e 20 49 4e 00 3e 01 72 00 28 00 50 2a 20 20 20 46 49 52 53 54 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 00 3f 00 22 00 06 00 50 2a 20 ┆BER OF CHARACTERS GIVEN IN > r ( P* FIRST CHARACTER IN OUTPUT BUFFER ? " P* ┆
0x15f0…1640 00 3f 00 4e 00 06 00 50 2a 20 00 3f 00 58 00 34 00 50 42 55 46 43 48 52 5c 4c 43 52 5c 41 34 2c 41 33 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 53 00 3f 00 62 00 14 00 50 5c 41 4e 4b 5c 41 ┆ ? N P* ? X 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS ? b P ANK A┆
0x1640…1690 34 2c 2f 46 46 5c 4d 41 53 4b 00 3f 00 9a 00 2c 00 50 42 55 46 43 31 30 5c 41 44 4b 5c 41 33 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 00 3f 00 b2 00 24 00 50 5c 4c 43 52 5c 41 32 2c 41 33 5c 47 45 54 ┆4,/FF MASK ? , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER ? $ P LCR A2,A3 GET┆
0x1690…16e0 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 00 3f 00 e2 00 20 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 48 41 52 41 43 54 45 52 00 3f 01 0a 00 20 00 50 5c 53 55 4b 5c 41 34 2c 31 5c 44 45 43 52 45 4d 45 4e ┆ OUTPUT CHARACTER ? P CF A5,OUTPUT SEND CHARACTER ? P SUK A4,1 DECREMEN┆
0x16e0…1730 54 20 43 4f 55 4e 54 45 52 20 00 3f 01 2e 00 26 00 50 5c 52 42 28 4e 5a 29 5c 42 55 46 43 31 30 5c 4e 4f 54 20 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 20 00 3f 01 52 00 10 00 50 42 55 46 52 54 4e 5c 45 51 55 5c 2a 00 3f 01 7c 00 1c 00 50 ┆T COUNTER ? . & P RB(NZ) BUFC10 NOT LAST CHARACTER ? R PBUFRTN EQU * ? | P┆
0x1730…1780 (16, 2, 108) 5c 52 54 4e 5c 41 35 5c 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c 45 52 00 3f 01 90 00 06 00 50 2a 20 00 40 00 20 00 06 00 50 2a 20 00 40 00 2a 00 06 00 50 2a 20 00 40 00 34 00 06 00 50 2a 20 00 40 00 3e 00 06 00 50 2a 20 00 40 00 48 00 06 ┆ RTN A5 RETURN TO CALLER ? P* @ P* @ * P* @ 4 P* @ > P* @ H ┆
0x1780…179c 00 50 2a 20 00 40 00 52 00 08 00 50 5c 45 4e 44 00 40 00 5c 40 04 00 00 00 40 00 68 ┆ P* @ R P END @ @ @ h┆
0x179c…17a4 (17, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x17a4…17f4 (18, 0, 398) 54 5c 41 32 2c 44 57 54 53 41 56 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 52 45 41 44 59 20 00 21 01 8e 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 22 00 26 00 1c 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4d 44 30 31 5c 5c 5c 44 52 4d 44 30 31 00 22 ┆T A2,DWTSAV,A6 INDICATE READY ! P RTN A5 " & P EJECT DRMD01 DRMD01 "┆
0x17f4…1844 00 36 00 06 00 50 2a 20 00 22 00 56 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 00 60 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 22 00 7e 00 1a 00 50 2a 20 20 52 ┆ 6 P* " V P********************** " ` P* * " ~ P* R┆
0x1844…1894 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 20 2a 00 22 00 9c 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 22 00 ba 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 22 ┆ECOVERY ROUTINE * " P* * " P********************** "┆
0x1894…18e4 00 d8 00 06 00 50 2a 20 00 22 00 f6 00 0e 00 50 4d 44 4f 4e 5c 45 51 55 5c 2a 00 22 01 00 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 22 01 12 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e ┆ P* " PMDON EQU * " P IFT CPU852=0 " " P MSR 8,A15 SAVE A1-A8 ON┆
0x18e4…1932 20 53 54 41 43 4b 00 22 01 28 00 08 00 50 5c 58 49 46 00 22 01 4e 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 22 01 5a 00 12 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 20 00 22 01 70 00 08 00 50 5c 58 49 46 00 22 01 86 ┆ STACK " ( P XIF " N P IFT CPU852=1 " Z P CF A15,SAVE8 " p P XIF " ┆
0x1932…1982 (19, 0, 400) 00 14 00 50 5c 4c 44 4b 4c 5c 41 36 2c 44 57 4d 44 30 31 20 00 23 00 04 00 24 00 50 5c 43 4d 5c 44 57 54 53 54 2c 41 36 5c 53 45 54 20 44 49 53 43 20 55 4e 49 54 20 42 55 53 59 20 00 23 00 1c 00 1c 00 50 5c 4c 44 5c 41 31 2c 49 4e 49 46 4c ┆ P LDKL A6,DWMD01 # $ P CM DWTST,A6 SET DISC UNIT BUSY # P LD A1,INIFL┆
0x1982…19d2 47 5c 50 4f 57 45 52 20 55 50 3f 20 00 23 00 44 00 12 00 50 5c 52 46 28 4e 5a 29 5c 4d 44 4f 4e 32 35 00 23 00 64 00 06 00 50 2a 20 00 23 00 7a 00 28 00 50 5c 4c 44 4b 4c 5c 41 34 2c 54 49 4d 45 52 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 ┆G POWER UP? # D P RF(NZ) MDON25 # d P* # z ( P LDKL A4,TIMER TIMER POINTER┆
0x19d2…1a22 20 41 44 44 52 45 53 53 00 23 00 84 00 10 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 34 20 00 23 00 b0 00 22 00 50 5c 52 46 28 5a 29 5c 4d 44 4f 4e 31 30 5c 4e 4f 20 54 49 4d 45 52 20 41 43 54 49 56 45 20 00 23 00 c4 00 12 00 50 5c 4c 44 4b 4c 5c ┆ ADDRESS # P LDR* A3,A4 # " P RF(Z) MDON10 NO TIMER ACTIVE # P LDKL ┆
0x1a22…1a72 41 31 2c 2d 54 49 4d 45 00 23 00 ea 00 1c 00 50 5c 53 54 52 5c 41 31 2c 41 33 5c 52 45 53 54 41 52 54 20 54 49 4d 45 52 00 23 01 00 00 0e 00 50 5c 52 42 5c 54 3a 44 49 53 50 00 23 01 20 00 06 00 50 2a 20 00 23 01 32 00 24 00 50 4d 44 4f 4e ┆A1,-TIME # P STR A1,A3 RESTART TIMER # P RB T:DISP # P* # 2 $ PMDON┆
0x1a72…1ac2 31 30 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 50 5c 53 54 41 52 54 20 54 49 4d 45 52 00 23 01 3c 00 2c 00 50 5c 44 41 54 41 5c 4d 44 4f 4e 32 30 2c 54 49 4d 45 5c 54 49 4d 45 20 4f 55 54 20 41 44 44 52 45 53 53 2c 20 54 49 4d 45 00 23 01 64 ┆10 CF A15,SETIMP START TIMER # < , P DATA MDON20,TIME TIME OUT ADDRESS, TIME # d┆
0x1ac2…1b12 (20, 0, 400) 00 0e 00 50 5c 52 42 5c 54 3a 44 49 53 50 00 24 00 04 00 06 00 50 2a 20 00 24 00 16 00 10 00 50 2a 20 20 20 54 49 4d 45 20 4f 55 54 00 24 00 20 00 06 00 50 2a 20 00 24 00 34 00 1a 00 50 4d 44 4f 4e 32 30 5c 4c 44 4b 4c 5c 41 36 2c 44 57 4d ┆ P RB T:DISP $ P* $ P* TIME OUT $ P* $ 4 PMDON20 LDKL A6,DWM┆
0x1b12…1b62 44 30 31 20 00 24 00 3e 00 0e 00 50 5c 43 4d 5c 54 49 4d 45 52 20 00 24 00 5c 00 06 00 50 2a 20 00 24 00 6e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4d 44 30 31 20 00 24 00 78 00 06 00 50 2a 20 00 24 00 90 00 06 00 50 2a 20 00 24 00 9a ┆D01 $ > P CM TIMER $ P* $ n P EJECT DRMD01 $ x P* $ P* $ ┆
0x1b62…1bb2 00 10 00 50 4d 44 4f 4e 32 35 5c 45 51 55 5c 2a 00 24 00 a4 00 1e 00 50 5c 4c 44 4b 4c 5c 41 35 2c 44 57 54 53 42 32 5c 53 54 41 43 4b 20 42 41 53 45 00 24 00 b8 00 0e 00 50 5c 41 44 52 5c 41 35 2c 41 36 00 24 00 da 00 14 00 50 5c 4c 44 4b ┆ PMDON25 EQU * $ P LDKL A5,DWTSB2 STACK BASE $ P ADR A5,A6 $ P LDK┆
0x1bb2…1c02 5c 41 31 2c 30 5c 55 4e 49 54 20 30 00 24 00 ec 00 1a 00 50 4d 44 4f 4e 33 30 5c 53 54 5c 41 31 2c 44 57 54 4f 52 2c 41 36 20 00 24 01 04 00 22 00 50 5c 43 46 5c 41 35 2c 56 4f 3a 4e 41 4d 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 ┆ A1,0 UNIT 0 $ PMDON30 ST A1,DWTOR,A6 $ " P CF A5,VO:NAM GET VOLUME NAME ┆
0x1c02…1c52 00 24 01 22 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 4f 52 2c 41 36 20 00 24 01 48 00 1c 00 50 5c 41 44 4b 4c 5c 41 31 2c 2f 31 30 30 5c 4e 45 58 54 20 55 4e 49 54 20 00 24 01 60 00 10 00 50 5c 43 57 4b 5c 41 31 2c 2f 33 30 30 00 24 01 80 ┆ $ " P LD A1,DWTOR,A6 $ H P ADKL A1,/100 NEXT UNIT $ ` P CWK A1,/300 $ ┆