|
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: 6310 (0x18a6)
Notes: pts_type(SC)
Names: »MONTIM.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:PTD/MONTIM.SC«
IDENT MONTIM REL 9.2 79-11-16 870105040920 * * ******************************************************* * * 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 * * ************* * 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 INH 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 9.2 79-11-16 870105040920 «, 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…0336 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0012}
0x0336…033e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x001a}
0x033e…0346 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0022}
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…0746 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0004, t01=0x00fe}
0x0746…0762 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 SECONDS «, t00=0x0004, t01=0x010a}
0x0762…0784 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0004, t01=0x0126}
0x0784…0796 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0004, t01=0x0148}
0x0796…07b2 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 MINUTES «, t00=0x0004, t01=0x015a}
0x07b2…07d4 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0004, t01=0x0176}
0x07d4…07e6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0005, t01=0x0008}
0x07e6…0800 Head {h00=0x0016, h01=0x0050, text=» LDR* A6,A7 HOURS «, t00=0x0005, t01=0x001a}
0x0800…080c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0005, t01=0x0034}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0844 Head {h00=0x002a, h01=0x0050, text=»GETT10 CF A15,BYTASC CONVERT TO ASCII «, t00=0x0005, t01=0x004a}
0x0844…085a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0005, t01=0x0078}
0x085a…0888 Head {h00=0x002a, h01=0x0050, text=» SC A6,1,A8 STORE RIGHTHAND CHARACTER «, t00=0x0005, t01=0x008e}
0x0888…089a Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x0005, t01=0x00bc}
0x089a…08c6 Head {h00=0x0028, h01=0x0050, text=» SCR A6,A8 STORE LEFTHAND CHARACTER «, t00=0x0005, t01=0x00ce}
0x08c6…08d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x00fa}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0106}
0x08dc…08f4 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0005, t01=0x0110}
0x08f4…08fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0908…091e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0005, t01=0x013c}
0x091e…0950 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x0005, t01=0x0152}
0x0950…0962 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0005, t01=0x0184}
0x0962…098a Head {h00=0x0024, h01=0x0050, text=» RF(Z) GETT15 TCB ADDRESS EVEN? «, t00=0x0006, t01=0x0008}
0x098a…099c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0006, t01=0x0030}
0x099c…09b0 Head {h00=0x0010, h01=0x0050, text=» EL A4,1,A8 «, t00=0x0006, t01=0x0042}
0x09b0…09c4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0006, t01=0x0056}
0x09c4…09d6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0006, t01=0x006a}
0x09d6…09e8 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x0006, t01=0x007c}
0x09e8…09fc Head {h00=0x0010, h01=0x0050, text=» ES A1,1,A8 «, t00=0x0006, t01=0x008e}
0x09fc…0a0e Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0006, t01=0x00a2}
0x0a0e…0a20 Head {h00=0x000e, h01=0x0050, text=» SRL A6,8 «, t00=0x0006, t01=0x00b4}
0x0a20…0a36 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FF00«, t00=0x0006, t01=0x00c6}
0x0a36…0a48 Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x0006, t01=0x00dc}
0x0a48…0a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a52…0a8c Head {h00=0x0036, h01=0x0050, text=»GETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK «, t00=0x0006, t01=0x00f8}
0x0a8c…0a98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x0132}
0x0a98…0aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa2…0ab4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0006, t01=0x0148}
0x0ab4…0aca Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0006, t01=0x015a}
0x0aca…0adc Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0006, t01=0x0170}
0x0adc…0b0c Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A15 GET ACTUAL TIME FROM STACK «, t00=0x0006, t01=0x0182}
0x0b0c…0b1e Head {h00=0x000e, h01=0x0050, text=» RB GETT10«, t00=0x0007, t01=0x0022}
0x0b1e…0b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0034}
0x0b28…0b40 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0007, t01=0x003e}
0x0b40…0b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4a…0b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x0b54…0b6c Head {h00=0x0014, h01=0x0050, text=»GETT20 SUK A7,2 «, t00=0x0007, t01=0x006a}
0x0b6c…0b9e Head {h00=0x002e, h01=0x0050, text=» LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY «, t00=0x0007, t01=0x0082}
0x0b9e…0bd4 Head {h00=0x0032, h01=0x0050, text=» ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7«, t00=0x0007, t01=0x00b4}
0x0bd4…0bf8 Head {h00=0x0020, h01=0x0050, text=» CMR A7 CLEAR MIDNIGTH CARRY«, t00=0x0007, t01=0x00ea}
0x0bf8…0c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010e}
0x0c02…0c1a Head {h00=0x0014, h01=0x0050, text=»TPDIS ABL LKMQDI«, t00=0x0007, t01=0x0118}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0130}
0x0c24…0c3c Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0007, t01=0x013a}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c50…0c68 Head {h00=0x0014, h01=0x0050, text=»* S E T T I M«, t00=0x0007, t01=0x0166}
0x0c68…0c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0ca2 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE SET TIME LKM PROCESSOR.«, t00=0x0007, t01=0x0188}
0x0ca2…0cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0028}
0x0cac…0ce0 Head {h00=0x0030, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER WITH«, t00=0x0008, t01=0x0032}
0x0ce0…0d14 Head {h00=0x0030, h01=0x0050, text=»* ADDRESS TO THE USER TIMER CONTROL BLOCK«, t00=0x0008, t01=0x0066}
0x0d14…0d48 Head {h00=0x0030, h01=0x0050, text=»* IN A8. VALUE IN TIMER CONTROL BLOCK IS «, t00=0x0008, t01=0x009a}
0x0d48…0d70 Head {h00=0x0024, h01=0x0050, text=»* COPIED INTO MONITOR CLOCK. «, t00=0x0008, t01=0x00ce}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0100}
0x0d84…0d98 Head {h00=0x0010, h01=0x0050, text=»SETTIM EQU *«, t00=0x0008, t01=0x010a}
0x0d98…0dd2 Head {h00=0x0036, h01=0x0050, text=» LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND «, t00=0x0008, t01=0x011e}
0x0dd2…0dec Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 COUNTER «, t00=0x0008, t01=0x0158}
0x0dec…0df8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0008, t01=0x0172}
0x0df8…0e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e02…0e16 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0008, t01=0x0188}
0x0e16…0e2c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0009, t01=0x000c}
0x0e2c…0e56 Head {h00=0x0026, h01=0x0050, text=» LCR A6,A8 GET LEFTHAND CHARACTER «, t00=0x0009, t01=0x0022}
0x0e56…0e68 Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x0009, t01=0x004c}
0x0e68…0e94 Head {h00=0x0028, h01=0x0050, text=» LC A6,1,A8 GET RIGHTHAND CHARACTER «, t00=0x0009, t01=0x005e}
0x0e94…0ea0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x008a}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0eaa…0ec0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0009, t01=0x00a0}
0x0ec0…0ef6 Head {h00=0x0032, h01=0x0050, text=» ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK «, t00=0x0009, t01=0x00b6}
0x0ef6…0f28 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x0009, t01=0x00ec}
0x0f28…0f3a Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0009, t01=0x011e}
0x0f3a…0f62 Head {h00=0x0024, h01=0x0050, text=» RF(Z) SETT15 TCB ADDRESS EVEN? «, t00=0x0009, t01=0x0130}
0x0f62…0f98 Head {h00=0x0032, h01=0x0050, text=» EL A4,1,A8 CORRECTIONS FOR UNEVEN TCB ADDRESS«, t00=0x0009, t01=0x0158}
0x0f98…0faa Head {h00=0x000e, h01=0x0050, text=» SLL A6,8 «, t00=0x0009, t01=0x018e}
0x0faa…0fbc Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x000a, t01=0x0010}
0x0fbc…0fce Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x000a, t01=0x0022}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fd8…0fec Head {h00=0x0010, h01=0x0050, text=»SETT15 EQU *«, t00=0x000a, t01=0x003e}
0x0fec…0ff8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0052}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005e}
0x1002…101a Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000a, t01=0x0068}
0x101a…1024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x1024…102e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102e…1056 Head {h00=0x0024, h01=0x0050, text=» CF A15,ASCTBY CONVERT TO BINARY«, t00=0x000a, t01=0x0094}
0x1056…106e Head {h00=0x0014, h01=0x0050, text=» SUK A3,2 END ? «, t00=0x000a, t01=0x00bc}
0x106e…1084 Head {h00=0x0012, h01=0x0050, text=» RF(E) SETT20 «, t00=0x000a, t01=0x00d4}
0x1084…1096 Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x000a, t01=0x00ea}
0x1096…10ca Head {h00=0x0030, h01=0x0050, text=» STR A6,A15 SAVE ON STACK (HOURS AND MINUTES«, t00=0x000a, t01=0x00fc}
0x10ca…10dc Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x000a, t01=0x0130}
0x10dc…10e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0142}
0x10e6…10fa Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x000a, t01=0x014c}
0x10fa…1106 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000a, t01=0x0160}
0x1106…1132 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 SECONDS TO MONITOR CLOCK «, t00=0x000a, t01=0x016c}
0x1132…1144 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000b, t01=0x0008}
0x1144…1158 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000b, t01=0x001a}
0x1158…1184 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 MINUTES TO MONITOR CLOCK «, t00=0x000b, t01=0x002e}
0x1184…1196 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000b, t01=0x005a}
0x1196…11aa Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000b, t01=0x006c}
0x11aa…11d4 Head {h00=0x0026, h01=0x0050, text=» STR A6,A7 HOURS TO MONITOR CLOCK «, t00=0x000b, t01=0x0080}
0x11d4…11e6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000b, t01=0x00aa}
0x11e6…120a Head {h00=0x0020, h01=0x0050, text=» CMR A7 RESET MIDNIGTH CARRY«, t00=0x000b, t01=0x00bc}
0x120a…121c Head {h00=0x000e, h01=0x0050, text=» RB TPDIS «, t00=0x000b, t01=0x00e0}
0x121c…1226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x1226…123e Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000b, t01=0x00fc}
0x123e…1248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0114}
0x1248…1252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1252…1288 Head {h00=0x0032, h01=0x0050, text=»* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000b, t01=0x0128}
0x1288…12b4 Head {h00=0x0028, h01=0x0050, text=»* FROM BINARY TO ASCII. «, t00=0x000b, t01=0x015e}
0x12b4…12d8 Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x000b, t01=0x018a}
0x12d8…12e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12e2…12ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0028}
0x12ec…1300 Head {h00=0x0010, h01=0x0050, text=»BYTASC EQU *«, t00=0x000c, t01=0x0032}
0x1300…1312 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000c, t01=0x0046}
0x1312…131c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131c…1334 Head {h00=0x0014, h01=0x0050, text=»BYTA10 SUK A6,/A«, t00=0x000c, t01=0x0062}
0x1334…134a Head {h00=0x0012, h01=0x0050, text=» RF(N) BYTA20 «, t00=0x000c, t01=0x007a}
0x134a…1360 Head {h00=0x0012, h01=0x0050, text=» ADKL A4,/100 «, t00=0x000c, t01=0x0090}
0x1360…1372 Head {h00=0x000e, h01=0x0050, text=» RB BYTA10«, t00=0x000c, t01=0x00a6}
0x1372…137c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b8}
0x137c…1394 Head {h00=0x0014, h01=0x0050, text=»BYTA20 ADK A6,/A«, t00=0x000c, t01=0x00c2}
0x1394…13a6 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A4«, t00=0x000c, t01=0x00da}
0x13a6…13bc Head {h00=0x0012, h01=0x0050, text=» ORKL A6,/3030«, t00=0x000c, t01=0x00ec}
0x13bc…13cc Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000c, t01=0x0102}
0x13cc…13d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d6…13ee Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000c, t01=0x011c}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1402…1438 Head {h00=0x0032, h01=0x0050, text=»* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000c, t01=0x0148}
0x1438…1464 Head {h00=0x0028, h01=0x0050, text=»* FROM ASCII TO BINARY. «, t00=0x000c, t01=0x017e}
0x1464…1488 Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x000d, t01=0x001a}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1492…149c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x149c…14b0 Head {h00=0x0010, h01=0x0050, text=»ASCTBY EQU *«, t00=0x000d, t01=0x0052}
0x14b0…14c2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x000d, t01=0x0066}
0x14c2…14d4 Head {h00=0x000e, h01=0x0050, text=» ANK A6,/F«, t00=0x000d, t01=0x0078}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x000d, t01=0x008a}
0x14e6…14f8 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000d, t01=0x009c}
0x14f8…150e Head {h00=0x0012, h01=0x0050, text=» RF(E) ASCT20 «, t00=0x000d, t01=0x00ae}
0x150e…1518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1518…1530 Head {h00=0x0014, h01=0x0050, text=»ASCT10 ADK A6,/A«, t00=0x000d, t01=0x00ce}
0x1530…1542 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000d, t01=0x00e6}
0x1542…1558 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ASCT10«, t00=0x000d, t01=0x00f8}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1562…1578 Head {h00=0x0012, h01=0x0050, text=»ASCT20 RTN A15«, t00=0x000d, t01=0x0118}
0x1578…1582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012e}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0138}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1596…15a2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000d, t01=0x014c}
0x15a2…15a6 Head {h00=0x4004, h01=0x0000}
0x15a6…15aa 00 0d 01 58 ┆ X┆
0x15aa…15b2 (14, 1, 8) 20 04 00 00 00 0e 00 04 ┆ ┆
0x15b2…15b4 (15, 0, 2) 16 d0 ┆ ┆
0x15b4…1604 (16, 0, 400) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 54 41 42 4f 52 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 20 39 2e 32 20 37 39 2d 31 31 2d 31 36 20 20 38 37 30 31 30 35 30 34 30 39 32 30 00 00 00 04 00 0e ┆ J F IDENT TABORT REL 9.2 79-11-16 870105040920 ┆
0x1604…1654 00 0a 01 04 c4 54 41 42 4f 52 54 4b 00 00 00 52 00 10 00 0c 05 05 dc 54 41 42 4f 52 54 4b 00 00 00 00 00 64 00 0e 00 0a 02 04 c2 46 4e 44 44 57 54 00 00 00 00 78 00 0e 00 0a 02 04 c2 44 57 54 54 41 42 1f 00 00 00 8a 00 0c 00 08 02 03 a2 44 ┆ TABORTK R TABORTK d FNDDWT x DWTTAB D┆
0x1654…16a4 57 54 53 54 00 00 00 9c 00 2c 00 28 03 13 00 00 00 01 10 88 83 22 52 00 f7 a1 00 00 00 02 80 98 50 00 ed 58 00 00 00 04 54 00 87 58 00 00 00 06 52 00 3f c2 00 00 00 ac 00 0e 00 0a 02 04 c2 44 57 54 45 43 48 d3 00 00 00 dc 00 0e 00 0a 02 04 ┆WTST , ( "R P X T X R ? DWTECH ┆
0x16a4…16f4 c2 44 57 54 41 44 52 00 00 00 00 ee 00 0e 00 0a 02 04 c2 41 42 54 41 44 52 43 00 00 01 00 00 0e 00 0a 02 04 c2 54 45 4e 44 49 4f d6 00 00 01 12 00 0e 00 0a 02 04 c2 44 57 54 57 41 54 20 00 00 01 24 00 2c 00 28 03 13 00 00 00 1b 24 84 56 00 ┆ DWTADR ABTADRC TENDIO DWTWAT $ , ( $ V ┆
0x16f4…1744 86 58 00 00 00 08 82 58 00 00 00 0a 82 48 00 00 00 0c 50 00 f7 89 f7 a1 00 00 00 0e 86 02 00 00 01 36 00 0e 00 0a 02 04 c2 46 52 45 42 4c 4b 1f 00 00 01 66 00 2c 00 28 03 13 00 00 00 33 44 92 84 58 00 00 00 10 50 00 f7 a1 00 00 00 12 a0 59 ┆ X X H P 6 FREBLK f , ( 3D X P Y┆
0x1744…1794 (17, 2, 168) 00 00 00 10 82 58 00 00 00 0a 82 48 00 00 00 0c 00 00 01 78 00 0e 00 0a 02 04 c2 4c 4b 4d 51 44 49 1e 00 01 00 18 00 0e 00 0a 02 04 c2 4c 4b 4d 52 51 45 f4 00 01 00 2a 00 26 00 22 03 10 00 00 00 49 04 90 50 00 f7 89 81 20 c0 00 f7 a1 00 00 ┆ X H x LKMQDI LKMRQE * & " I P ┆
0x1794…17e4 00 0e 8f 20 00 00 00 14 8f 20 00 00 00 16 00 01 00 3c 00 28 00 24 04 11 00 00 00 03 52 54 00 0b 50 4c 00 11 54 46 00 17 52 40 00 1b 56 16 00 29 50 02 00 37 50 08 00 49 50 02 00 01 00 66 00 0e 00 0a 07 04 00 00 00 00 00 5c 00 00 00 01 00 92 ┆ < ( $ RT PL TF R@ V )P 7P IP f ┆
0x17e4…17ec 40 04 00 00 00 01 00 a4 ┆@ ┆
0x17ec…17f4 (18, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x17f4…1844 (19, 2, 170) 51 55 5c 2a 00 12 01 88 00 22 00 50 5c 41 42 4c 5c 4c 4b 4d 52 51 45 5c 4c 4b 4d 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 13 00 0c 00 06 00 50 2a 20 00 13 00 32 00 10 00 50 54 50 3a 51 44 49 5c 45 51 55 5c 2a 00 13 00 3c 00 28 00 50 ┆QU * " P ABL LKMRQE LKM REQUEST ERROR P* 2 PTP:QDI EQU * < ( P┆
0x1844…1894 5c 41 42 4c 5c 4c 4b 4d 51 44 49 5c 51 55 45 55 45 20 54 41 53 4b 20 41 4e 44 20 44 49 53 50 41 54 43 48 20 00 13 00 50 00 06 00 50 2a 20 00 13 00 7c 00 06 00 50 2a 20 00 13 00 86 00 06 00 50 2a 20 00 13 00 90 00 08 00 50 5c 45 4e 44 00 13 ┆ ABL LKMQDI QUEUE TASK AND DISPATCH P P* | P* P* P END ┆
0x1894…189e 00 9a 40 04 00 00 00 13 00 a6 ┆ @ ┆
0x189e…18a6 (20, 1, 8) 20 04 00 00 00 14 00 04 ┆ ┆