|
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: 7954 (0x1f12)
Notes: pts_type(SC)
Names: »MONTIM.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/MONTIM.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/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…1602 (15, 0, 400) 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 0f 00 04 00 08 00 50 5c 58 49 46 00 0f 00 2e 00 06 00 50 2a 20 00 0f 00 3a 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d ┆ & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF . P* : P IFT CPU852=┆
0x1602…1652 30 20 00 0f 00 44 00 08 00 50 5c 49 4e 48 00 0f 00 5a 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 20 53 54 41 43 4b 00 0f 00 66 00 08 00 50 5c 58 49 46 00 0f 00 8c 00 06 00 50 2a 20 00 0f 00 98 00 24 ┆0 D P INH Z " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* $┆
0x1652…16a2 00 50 5c 4c 44 4b 4c 5c 41 35 2c 54 54 4d 4a 4f 42 5c 53 45 54 20 54 54 41 42 20 41 44 44 52 45 53 53 00 0f 00 a2 00 0e 00 50 5c 52 46 5c 41 43 54 30 31 20 00 0f 00 ca 00 06 00 50 2a 20 00 0f 00 dc 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d ┆ P LDKL A5,TTMJOB SET TTAB ADDRESS P RF ACT01 P* P EJECT M┆
0x16a2…16f2 53 55 42 53 00 0f 00 e6 00 06 00 50 2a 20 00 0f 00 fc 00 06 00 50 2a 20 00 0f 01 06 00 20 00 50 2a 20 20 20 41 20 43 20 54 20 4f 20 54 20 2c 20 41 20 43 20 54 20 4f 20 54 20 50 20 00 0f 01 10 00 06 00 50 2a 20 00 0f 01 34 00 26 00 50 2a 20 ┆SUBS P* P* P* A C T O T , A C T O T P P* 4 & P* ┆
0x16f2…1742 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 41 43 54 49 56 41 54 45 20 41 20 54 41 53 4b 2e 00 0f 01 3e 00 06 00 50 2a 20 00 0f 01 68 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 3a 20 00 0f 01 72 00 06 00 50 ┆ SUBROUTINE TO ACTIVATE A TASK. > P* h P* ENTRY PARAMETERS: r P┆
0x1742…1792 (16, 0, 400) 2a 20 00 0f 01 90 00 18 00 50 2a 20 20 20 41 31 20 3d 20 50 41 52 41 4d 45 54 45 52 20 31 00 10 00 0a 00 1e 00 50 2a 20 20 20 41 32 20 3d 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 10 00 26 00 1c 00 50 2a 20 20 20 41 33 20 3d ┆* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS & P* A3 =┆
0x1792…17e2 20 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 00 10 00 48 00 18 00 50 2a 20 20 20 41 34 20 3d 20 50 41 52 41 4d 45 54 45 52 20 32 00 10 00 68 00 1a 00 50 2a 20 20 20 41 35 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 10 00 84 00 06 ┆ SEGMENT NUMBER H P* A4 = PARAMETER 2 h P* A5 = TTAB ADDRESS ┆
0x17e2…1832 00 50 2a 20 00 10 00 a2 00 3c 00 50 2a 20 20 20 2d 20 49 46 20 52 45 51 55 45 53 54 45 44 20 50 52 4f 47 52 41 4d 20 49 53 20 4e 4f 54 20 41 43 54 49 56 45 20 54 48 45 20 50 52 4f 47 52 41 4d 20 49 53 20 00 10 00 ac 00 3a 00 50 2a 20 20 20 ┆ P* < P* - IF REQUESTED PROGRAM IS NOT ACTIVE THE PROGRAM IS : P* ┆
0x1832…1882 20 20 50 55 54 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 20 51 55 45 55 45 20 56 49 41 20 53 55 42 52 4f 55 54 49 4e 45 20 27 51 54 4a 4f 42 27 2e 20 00 10 00 ec 00 40 00 50 2a 20 20 20 2d 20 49 46 20 50 52 4f 47 52 41 4d 20 49 53 20 41 43 ┆ PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS AC┆
0x1882…18d2 54 49 56 45 2c 20 54 48 45 20 52 45 51 55 45 53 54 20 49 53 20 50 55 54 20 49 4e 20 41 20 50 45 4e 44 49 4e 47 20 00 10 01 2a 00 10 00 50 2a 20 20 20 20 20 51 55 45 55 45 2e 00 10 01 6e 00 40 00 50 2a 20 20 20 2d 20 41 43 54 4f 54 20 57 49 ┆TIVE, THE REQUEST IS PUT IN A PENDING * P* QUEUE. n @ P* - ACTOT WI┆
0x18d2…1922 (17, 0, 400) 4c 4c 20 50 55 54 20 52 45 51 55 45 53 54 20 49 4e 20 50 45 4e 44 49 4e 47 20 51 55 45 55 45 20 4f 4e 20 46 49 46 4f 20 42 41 53 49 53 2e 00 10 01 82 00 42 00 50 2a 20 20 20 2d 20 41 43 54 4f 54 50 20 57 49 4c 4c 20 50 55 54 20 52 45 51 55 ┆LL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQU┆
0x1922…1972 45 53 54 20 49 4e 20 50 45 4e 44 49 4e 47 20 51 55 45 55 45 20 4f 4e 20 4c 49 46 4f 20 42 41 53 49 53 2e 20 00 11 00 36 00 06 00 50 2a 20 00 11 00 7c 00 06 00 50 2a 20 00 11 00 86 00 10 00 50 41 43 54 4f 54 50 5c 45 51 55 5c 2a 00 11 00 90 ┆EST IN PENDING QUEUE ON LIFO BASIS. 6 P* | P* PACTOTP EQU * ┆
0x1972…19c2 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 11 00 a4 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 11 00 ba 00 08 00 50 5c 58 49 46 00 11 00 e4 00 06 00 50 ┆ P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P┆
0x19c2…1a12 2a 20 00 11 00 f0 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 11 00 fa 00 08 00 50 5c 49 4e 48 00 11 01 10 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 20 53 54 41 43 4b 00 11 01 1c 00 08 ┆* P IFT CPU852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK ┆
0x1a12…1a62 00 50 5c 58 49 46 00 11 01 42 00 06 00 50 2a 20 00 11 01 4e 00 1c 00 50 5c 4c 44 4b 5c 41 36 2c 31 5c 49 4e 44 49 43 41 54 45 20 4c 49 46 4f 20 00 11 01 58 00 0e 00 50 5c 52 46 5c 41 43 54 30 33 20 00 11 01 78 00 06 00 50 2a 20 00 11 01 8a ┆ P XIF B P* N P LDK A6,1 INDICATE LIFO X P RF ACT03 x P* ┆
0x1a62…1ab2 (18, 0, 400) 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 12 00 04 00 06 00 50 2a 20 00 12 00 1a 00 06 00 50 2a 20 00 12 00 24 00 10 00 50 41 43 54 4f 54 5c 45 51 55 5c 2a 20 00 12 00 2e 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 ┆ P EJECT MSUBS P* P* $ PACTOT EQU * . P IFT CPU852=1 ┆
0x1ab2…1b02 00 12 00 42 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 12 00 58 00 08 00 50 5c 58 49 46 00 12 00 82 00 06 00 50 2a 20 00 12 00 8e 00 12 00 50 5c 49 46 54 5c 43 50 55 ┆ B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU┆
0x1b02…1b52 38 35 32 3d 30 20 00 12 00 98 00 08 00 50 5c 49 4e 48 00 12 00 ae 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 20 53 54 41 43 4b 00 12 00 ba 00 08 00 50 5c 58 49 46 00 12 00 e0 00 06 00 50 2a 20 00 12 ┆852=0 P INH " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* ┆
0x1b52…1ba2 00 ec 00 20 00 50 41 43 54 30 31 5c 4c 44 4b 5c 41 36 2c 30 5c 49 4e 44 49 43 41 54 45 20 46 49 46 4f 00 12 00 f6 00 06 00 50 2a 20 00 12 01 1a 00 10 00 50 41 43 54 30 33 5c 45 51 55 5c 2a 20 00 12 01 24 00 30 00 50 5c 4c 44 5c 41 37 2c 54 ┆ PACT01 LDK A6,0 INDICATE FIFO P* PACT03 EQU * $ 0 P LD A7,T┆
0x1ba2…1bf2 54 42 3a 53 41 2c 41 35 5c 47 45 54 20 28 4f 4c 44 29 20 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 12 01 38 00 24 00 50 5c 52 46 28 4e 5a 29 5c 41 43 54 30 32 30 5c 49 53 20 50 52 4f 47 52 41 4d 20 41 43 54 49 56 45 00 12 01 6c ┆TB:SA,A5 GET (OLD) DISPATCH ADDRESS 8 $ P RF(NZ) ACT020 IS PROGRAM ACTIVE l┆
0x1bf2…1c42 (19, 0, 400) 00 22 00 50 5c 53 54 5c 41 31 2c 54 54 42 3a 53 41 2b 32 2c 41 35 5c 50 41 52 41 4d 45 54 45 52 20 31 00 13 00 04 00 30 00 50 5c 53 54 5c 41 32 2c 54 54 42 3a 53 41 2c 41 35 5c 53 41 56 45 20 28 4e 45 57 29 20 44 49 53 50 41 54 43 48 20 41 ┆ " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH A┆
0x1c42…1c92 44 44 52 45 53 53 00 13 00 2a 00 26 00 50 5c 53 54 5c 41 33 2c 54 54 42 3a 53 41 2b 36 2c 41 35 5c 53 45 47 4d 45 4e 54 20 4e 55 4d 42 45 52 20 00 13 00 5e 00 22 00 50 5c 53 54 5c 41 34 2c 54 54 42 3a 53 41 2b 38 2c 41 35 5c 50 41 52 41 4d ┆DDRESS * & P ST A3,TTB:SA+6,A5 SEGMENT NUMBER ^ " P ST A4,TTB:SA+8,A5 PARAM┆
0x1c92…1ce2 45 54 45 52 20 32 00 13 00 88 00 24 00 50 5c 4c 44 5c 41 34 2c 54 54 42 3a 49 44 2c 41 35 5c 53 45 54 20 54 45 52 4d 49 4e 41 4c 20 49 44 00 13 00 ae 00 2a 00 50 5c 53 54 5c 41 34 2c 54 54 42 3a 53 41 2b 34 2c 41 35 5c 54 4f 20 41 32 20 49 ┆ETER 2 $ P LD A4,TTB:ID,A5 SET TERMINAL ID * P ST A4,TTB:SA+4,A5 TO A2 I┆
0x1ce2…1d32 4e 20 53 41 56 45 20 41 52 45 41 20 00 13 00 d6 00 06 00 50 2a 20 00 13 01 04 00 18 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 2b 44 53 4b 50 41 47 3d 30 00 13 01 0e 00 36 00 50 5c 43 4d 5c 54 54 42 3a 53 42 2c 41 35 5c 49 4e 44 49 43 41 54 45 ┆N SAVE AREA P* P IFF MMUPAG+DSKPAG=0 6 P CM TTB:SB,A5 INDICATE┆
0x1d32…1d82 20 4e 4f 54 20 52 55 4e 4e 49 4e 47 20 49 4e 20 41 4e 59 20 53 45 47 4d 45 4e 54 20 00 13 01 2a 00 08 00 50 5c 58 49 46 00 13 01 64 00 06 00 50 2a 20 00 13 01 70 00 20 00 50 5c 43 46 5c 41 31 35 2c 51 54 4a 4f 42 5c 51 55 45 55 45 20 54 48 ┆ NOT RUNNING IN ANY SEGMENT * P XIF d P* p P CF A15,QTJOB QUEUE TH┆
0x1d82…1dd2 (20, 0, 400) 45 20 4a 4f 42 20 00 13 01 7a 00 06 00 50 2a 20 00 14 00 0e 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 14 00 18 00 06 00 50 2a 20 00 14 00 2e 00 06 00 50 2a 20 00 14 00 38 00 10 00 50 41 43 54 30 31 30 5c 45 51 55 5c 2a 00 14 ┆E JOB z P* P EJECT MSUBS P* . P* 8 PACT010 EQU * ┆
0x1dd2…1e22 00 42 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 14 00 56 00 28 00 50 5c 41 42 4c 5c 49 48 52 45 54 38 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 41 4e 44 20 52 45 54 55 52 4e 00 14 00 6c 00 08 00 50 5c 58 49 46 00 14 00 98 ┆ B P IFT CPU852=1 V ( P ABL IHRET8 RESTORE A1-A8 AND RETURN l P XIF ┆
0x1e22…1e72 00 06 00 50 2a 20 00 14 00 a4 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 14 00 ae 00 2a 00 50 5c 4d 4c 52 5c 38 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 2d 41 38 20 46 52 4f 4d 20 53 54 41 43 4b 2e 2e 2e 00 14 00 c4 00 1a ┆ P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... ┆
0x1e72…1ec2 00 50 5c 52 54 4e 5c 41 31 35 5c 2e 2e 2e 41 4e 44 20 52 45 54 55 52 4e 00 14 00 f2 00 08 00 50 5c 58 49 46 00 14 01 10 00 06 00 50 2a 20 00 14 01 1c 00 24 00 50 2a 20 20 20 50 55 54 20 52 45 51 55 45 53 54 20 49 4e 20 50 45 4e 44 49 4e 47 ┆ P RTN A15 ...AND RETURN P XIF P* $ P* PUT REQUEST IN PENDING┆
0x1ec2…1f12 20 51 55 45 55 45 00 14 01 26 00 06 00 50 2a 20 00 14 01 4e 00 26 00 50 41 43 54 30 32 30 5c 4c 44 52 5c 41 37 2c 41 34 5c 53 41 56 45 20 50 41 52 41 4d 45 54 45 52 20 32 20 00 14 01 58 00 24 00 50 20 5c 43 46 5c 41 31 35 2c 47 45 54 42 4c ┆ QUEUE & P* N & PACT020 LDR A7,A4 SAVE PARAMETER 2 X $ P CF A15,GETBL┆