|
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: 7336 (0x1ca8)
Notes: pts_type(SC)
Names: »MONTIM.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/MONTIM.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/MONTIM.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »M:DENJ/MONTIM.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/MONTIM.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »M:DENJ/MONTIM.SC«
└─⟦this⟧ »MON10/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 1 * 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 1«, 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, 398) 52 45 53 53 20 42 4c 4f 43 4b 00 06 01 66 00 38 00 50 5c 4c 44 5c 41 32 2c 41 42 54 41 44 52 2c 41 32 5c 47 45 54 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 41 44 44 52 45 53 53 20 28 49 46 20 41 4e 59 29 20 00 07 00 12 00 2a 00 50 5c 52 ┆RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P R┆
0x15f0…1640 46 28 5a 29 5c 54 41 42 4f 31 30 5c 4e 4f 20 53 50 45 43 49 41 4c 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 00 07 00 4e 00 26 00 50 5c 43 46 52 5c 41 31 35 2c 41 32 5c 50 45 52 46 4f 52 4d 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 00 07 ┆F(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE ┆
0x1640…1690 00 7c 00 06 00 50 2a 20 00 07 00 a6 00 10 00 50 54 41 42 4f 31 30 5c 45 51 55 5c 2a 00 07 00 b0 00 24 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 41 42 4f 52 54 20 45 43 48 4f 20 44 45 56 49 43 45 00 07 00 c4 00 1a 00 50 5c 4c 44 52 ┆ | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR┆
0x1690…16e0 5c 41 36 2c 41 38 5c 52 45 53 54 4f 52 45 20 44 57 54 00 07 00 ec 00 06 00 50 2a 20 00 07 01 0a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 41 42 4f 52 54 20 00 07 01 14 00 06 00 50 2a 20 00 07 01 2c 00 06 00 50 2a 20 00 07 01 36 00 10 00 50 ┆ A6,A8 RESTORE DWT P* P EJECT TABORT P* , P* 6 P┆
0x16e0…172e 54 41 42 4f 32 30 5c 45 51 55 5c 2a 00 07 01 40 00 14 00 50 5c 4c 44 5c 41 34 2c 44 57 54 57 41 54 2c 41 36 00 07 01 54 00 22 00 50 5c 52 46 28 5a 29 5c 54 41 42 4f 33 30 5c 49 2f 4f 20 57 49 54 48 20 4e 4f 20 57 41 49 54 00 07 01 6c ┆TABO20 EQU * @ P LD A4,DWTWAT,A6 T " P RF(Z) TABO30 I/O WITH NO WAIT l┆
0x172e…177e (16, 0, 398) 00 3a 00 50 5c 43 46 5c 41 31 35 2c 46 52 45 42 4c 4b 5c 49 2f 4f 20 41 4e 44 20 41 43 54 49 56 41 54 45 2e 20 46 52 45 45 20 44 49 53 50 41 54 43 48 45 52 20 42 4c 4f 43 4b 00 08 00 04 00 22 00 50 5c 43 4d 5c 44 57 54 57 41 54 2c 41 36 5c ┆ : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 ┆
0x177e…17ce 49 4e 44 49 43 41 54 45 20 4e 4f 20 57 41 49 54 00 08 00 42 00 06 00 50 2a 20 00 08 00 68 00 10 00 50 54 41 42 4f 33 30 5c 45 51 55 5c 2a 00 08 00 72 00 38 00 50 5c 4c 44 5c 41 32 2c 44 57 54 41 44 52 2c 41 36 5c 47 45 54 20 41 44 44 52 45 ┆INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRE┆
0x17ce…181e 53 53 20 54 4f 20 44 52 49 56 45 52 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 00 08 00 86 00 38 00 50 5c 4c 44 5c 41 32 2c 41 42 54 41 44 52 2c 41 32 5c 47 45 54 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 41 44 44 52 45 53 53 20 28 49 46 ┆SS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF┆
0x181e…186e 20 41 4e 59 29 20 00 08 00 c2 00 2a 00 50 5c 52 46 28 5a 29 5c 54 41 42 4f 34 30 5c 4e 4f 20 53 50 45 43 49 41 4c 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 00 08 00 fe 00 26 00 50 5c 43 46 52 5c 41 31 35 2c 41 32 5c 50 45 52 46 4f 52 4d 20 ┆ ANY) * P RF(Z) TABO40 NO SPECIAL ABORT ROUTINE & P CFR A15,A2 PERFORM ┆
0x186e…18bc 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 00 08 01 2c 00 06 00 50 2a 20 00 08 01 56 00 10 00 50 54 41 42 4f 34 30 5c 45 51 55 5c 2a 00 08 01 60 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 34 30 30 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 ┆ABORT ROUTINE , P* V PTABO40 EQU * ` P LDKL A1,/4000 RETURN CODE┆
0x18bc…190c (17, 2, 196) 00 08 01 74 00 18 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 41 42 4f 52 54 00 09 00 08 00 30 00 50 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 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 ┆ t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER ┆
0x190c…195c 00 09 00 24 00 06 00 50 2a 20 00 09 00 58 00 30 00 50 54 41 42 4f 45 52 5c 41 42 4c 5c 4c 4b 4d 52 51 45 5c 47 4f 20 41 4e 44 20 49 4e 44 49 43 41 54 45 20 4c 4b 4d 20 45 52 52 4f 52 20 00 09 00 62 00 06 00 50 2a 20 00 09 00 96 00 06 00 50 ┆ $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P┆
0x195c…1980 2a 20 00 09 00 a0 00 06 00 50 2a 20 00 09 00 aa 00 08 00 50 5c 45 4e 44 00 09 00 b4 40 04 00 00 00 09 00 c0 ┆* P* P END @ ┆
0x1980…1988 (18, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x1988…19d8 (19, 0, 400) 00 0a 01 76 00 06 00 50 2a 20 00 0b 00 08 00 10 00 50 53 59 53 42 41 53 5c 45 51 55 5c 2a 00 0b 00 12 00 16 00 50 53 41 56 43 4f 4e 5c 44 41 54 41 5c 42 55 46 4c 45 4e 00 0b 00 26 00 32 00 50 4d 58 42 55 46 5c 44 41 54 41 5c 30 5c 44 49 53 ┆ v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DIS┆
0x19d8…1a28 43 2f 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 0b 00 40 00 1c 00 50 53 41 56 4d 45 4d 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 00 0b 00 76 00 26 00 50 43 59 4c 4e 42 52 5c 44 41 54 ┆C/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DAT┆
0x1a28…1a78 41 5c 2f 46 46 46 46 5c 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 20 00 0b 00 96 00 28 00 50 53 45 43 4e 42 52 5c 44 41 54 41 5c 30 5c 50 48 59 53 49 43 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 0b 00 c0 00 22 00 50 44 45 56 54 ┆A /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVT┆
0x1a78…1ac8 41 42 5c 44 41 54 41 5c 2f 31 39 30 39 2c 2f 31 31 30 31 2c 2f 30 38 32 38 20 00 0b 00 ec 00 24 00 50 53 57 50 54 41 42 5c 44 41 54 41 5c 27 24 53 27 2c 27 57 41 27 2c 27 50 20 27 2c 27 20 20 27 20 00 0b 01 12 00 0a 00 50 5c 45 4a 45 43 54 ┆AB DATA /1909,/1101,/0828 $ PSWPTAB DATA '$S','WA','P ',' ' P EJECT┆
0x1ac8…1b18 00 0b 01 3a 00 08 00 50 5c 5c 5c 20 00 0b 01 48 00 46 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ : P H F P************************************************************┆
0x1b18…1b68 (20, 0, 400) 2a 2a 2a 2a 2a 20 00 0b 01 54 00 46 00 50 2a 20 20 43 41 4c 4c 2d 46 4f 52 4d 41 54 2c 20 50 45 52 46 4f 52 4d 53 3a 20 20 43 46 52 20 20 20 20 20 20 41 31 34 2c 41 31 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * ┆
0x1b68…1bb8 00 0c 00 0e 00 46 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 20 20 20 20 20 5b 52 45 4c 2d 41 44 44 52 45 53 53 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0c 00 58 00 46 ┆ F P* DATA [REL-ADDRESS] * X F┆
0x1bb8…1c08 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0c 00 a2 00 46 00 50 2a 2a 2a 2a ┆ P* * F P****┆
0x1c08…1c58 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0c 00 ec 00 08 00 50 5c 5c 5c 20 00 0c 01 36 00 08 ┆************************************************************* P 6 ┆
0x1c58…1ca8 00 50 5c 5c 5c 20 00 0c 01 42 00 08 00 50 5c 5c 5c 20 00 0c 01 4e 00 1a 00 50 43 41 4c 4c 5c 46 4f 52 4d 5c 31 36 3d 2f 46 36 39 37 2c 31 36 20 00 0c 01 5a 00 0a 00 50 5c 45 4a 45 43 54 00 0c 01 78 00 1e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P B P N PCALL FORM 16=/F697,16 Z P EJECT x P**********┆