|
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: 7442 (0x1d12)
Notes: pts_type(SC)
Names: »MONTIM.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/MONTIM.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/MONTIM.SC«
IDENT MONTIM REL 11.0 81-01-26 870105041100 * * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * MONTIM = MONITOR CLOCK/DATE PROCESSORS * * * * * * ******************************************************* * * * THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS * * -GETTIM GET TIME FROM MONITOR CLOCK * * -SETTIM SET TIME IN MONITOR CLOCK * * -GETDAT GET DATE FROM MONITOR CLOCK * * -SETDAT SET DATE IN MONITOR CLOCK * EJECT MONTIM * * *********** * ENTRIES * *********** * * ENTRY GETTIM GET TIME FROM MONITOR CLOCK ENTRY SETTIM SET TIME IN MONITOR CLOCK ENTRY TDATE GET/SET DATE 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 * * ********** * GETTIM * ********** * * * 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 * GETDAT EQU * ENTRY USED BY TDATE 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 * TPDIS EQU * CMR A7 CLEAR MIDNIGTH CARRY ABL LKMQDI * EJECT MONTIM * * ********** * SETTIM * ********** * * * 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 * SETDAT EQU * ENTRY USED BY TDATE 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 * EJECT MONTIM * * 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 * 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 * EJECT MONTIM * * 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 RB TPDIS * EJECT MONTIM * * ********* * TDATE * ********* * * * THIS IS THE GET/SET DATE LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A7 = GET/SET DATE PARAMETER * (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE) * A8 = DATE CONTROL BLOCK (DCB) * * TDATE EQU * GET/SET DATE LKM PROCESSOR ENTRY LDR A1,A7 SAVE REQUEST PARAMETER LDKL A7,MONCLO-2 ADDRESS TO DAY ADK A1,0 SET CR RB(Z) GETDAT GET DATE RB SETDAT SET DATE * EJECT MONTIM * * ********** * BYTASC * ********** * * * 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 * ********** * * * 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 11.0 81-01-26 870105041100 «, 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…0100 Head {h00=0x002e, h01=0x0050, text=»* MONTIM = MONITOR CLOCK/DATE PROCESSORS«, t00=0x0000, t01=0x00d2}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…017c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0140}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01d4 (1, 0, 400) Head {h00=0x0040, h01=0x0050, text=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK/DATE PROCESSORS«, t00=0x0001, t01=0x0004}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…0212 Head {h00=0x0030, h01=0x0050, text=»* -GETTIM GET TIME FROM MONITOR CLOCK «, t00=0x0001, t01=0x0052}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…024e Head {h00=0x002e, h01=0x0050, text=»* -SETTIM SET TIME IN MONITOR CLOCK «, t00=0x0001, t01=0x0090}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…028c Head {h00=0x0030, h01=0x0050, text=»* -GETDAT GET DATE FROM MONITOR CLOCK «, t00=0x0001, t01=0x00cc}
0x028c…0296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0100}
0x0296…02c8 Head {h00=0x002e, h01=0x0050, text=»* -SETDAT SET DATE IN MONITOR CLOCK «, t00=0x0001, t01=0x010a}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02ea Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0001, t01=0x0146}
0x02ea…02f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015e}
0x02f4…02fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fe…0312 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0172}
0x0312…0326 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0186}
0x0326…033a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x000a}
0x033a…0344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x034e…0380 Head {h00=0x002e, h01=0x0050, text=» ENTRY GETTIM GET TIME FROM MONITOR CLOCK «, t00=0x0002, t01=0x0032}
0x0380…03b0 Head {h00=0x002c, h01=0x0050, text=» ENTRY SETTIM SET TIME IN MONITOR CLOCK «, t00=0x0002, t01=0x0064}
0x03b0…03e2 Head {h00=0x002e, h01=0x0050, text=» ENTRY TDATE GET/SET DATE IN MONITOR CLOCK«, t00=0x0002, t01=0x0094}
0x03e2…03fa Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0002, t01=0x00c6}
0x03fa…0404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x0404…040e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040e…0424 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00f2}
0x0424…043a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x0108}
0x043a…0450 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x011e}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0488 Head {h00=0x0020, h01=0x0050, text=» EXTRN MONCLO MONITOR CLOCK «, t00=0x0002, t01=0x0148}
0x0488…04b6 Head {h00=0x002a, h01=0x0050, text=» EXTRN LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0002, t01=0x016c}
0x04b6…04da Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:SA TTAB SAVE AREA«, t00=0x0003, t01=0x000a}
0x04da…04f2 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0003, t01=0x002e}
0x04f2…04fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0046}
0x04fc…0506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0538 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x005a}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x0542…0560 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0003, t01=0x0096}
0x0560…056a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b4}
0x056a…059c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0003, t01=0x00be}
0x059c…05a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a6…05d8 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0003, t01=0x00fa}
0x05d8…0606 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0003, t01=0x012c}
0x0606…0610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x0610…0624 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0003, t01=0x0164}
0x0624…062e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0178}
0x062e…0646 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0003, t01=0x0182}
0x0646…0650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000a}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…066c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x001e}
0x066c…067e Head {h00=0x000e, h01=0x0050, text=»* GETTIM *«, t00=0x0004, t01=0x0030}
0x067e…0690 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0004, t01=0x0042}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0054}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a4…06d4 Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE GET TIME LKM PROCESSOR.«, t00=0x0004, t01=0x0068}
0x06d4…06de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06de…070e Head {h00=0x002c, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER «, t00=0x0004, t01=0x00a2}
0x070e…0742 Head {h00=0x0030, h01=0x0050, text=»* WITH ADDRESS TO THE USER TIMER CONTROL «, t00=0x0004, t01=0x00d2}
0x0742…0778 Head {h00=0x0032, h01=0x0050, text=»* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO«, t00=0x0004, t01=0x0106}
0x0778…079a Head {h00=0x001e, h01=0x0050, text=»* TIMER CONTROL BLOCK. «, t00=0x0004, t01=0x013c}
0x079a…07a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a4…07ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ae…07c2 Head {h00=0x0010, h01=0x0050, text=»GETTIM EQU *«, t00=0x0004, t01=0x0172}
0x07c2…07fc Head {h00=0x0036, h01=0x0050, text=» LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND «, t00=0x0004, t01=0x0186}
0x07fc…0806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0030}
0x0806…082e Head {h00=0x0024, h01=0x0050, text=»GETDAT EQU * ENTRY USED BY TDATE«, t00=0x0005, t01=0x003a}
0x082e…0848 Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 COUNTER «, t00=0x0005, t01=0x0062}
0x0848…0864 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 SECONDS «, t00=0x0005, t01=0x007c}
0x0864…0886 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0005, t01=0x0098}
0x0886…0898 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0005, t01=0x00ba}
0x0898…08b4 Head {h00=0x0018, h01=0x0050, text=» LDR* A6,A7 MINUTES «, t00=0x0005, t01=0x00cc}
0x08b4…08d6 Head {h00=0x001e, h01=0x0050, text=» STR A6,A15 SAVE ON STACK «, t00=0x0005, t01=0x00e8}
0x08d6…08e8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0005, t01=0x010a}
0x08e8…0902 Head {h00=0x0016, h01=0x0050, text=» LDR* A6,A7 HOURS «, t00=0x0005, t01=0x011c}
0x0902…090e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0005, t01=0x0136}
0x090e…0918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0142}
0x0918…0946 Head {h00=0x002a, h01=0x0050, text=»GETT10 CF A15,BYTASC CONVERT TO ASCII «, t00=0x0005, t01=0x014c}
0x0946…095c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0005, t01=0x017a}
0x095c…098a Head {h00=0x002a, h01=0x0050, text=» SC A6,1,A8 STORE RIGHTHAND CHARACTER «, t00=0x0005, t01=0x0190}
0x098a…099c Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x0006, t01=0x002e}
0x099c…09c8 Head {h00=0x0028, h01=0x0050, text=» SCR A6,A8 STORE LEFTHAND CHARACTER «, t00=0x0006, t01=0x0040}
0x09c8…09d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x006c}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09de…09f6 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0006, t01=0x0082}
0x09f6…0a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a0a…0a20 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0006, t01=0x00ae}
0x0a20…0a52 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x0006, t01=0x00c4}
0x0a52…0a64 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0006, t01=0x00f6}
0x0a64…0a8a Head {h00=0x0022, h01=0x0050, text=» RF(Z) GETT15 TCB ADDRESS EVEN«, t00=0x0006, t01=0x0108}
0x0a8a…0a9c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0006, t01=0x012e}
0x0a9c…0ab0 Head {h00=0x0010, h01=0x0050, text=» EL A4,1,A8 «, t00=0x0006, t01=0x0140}
0x0ab0…0ac4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0006, t01=0x0154}
0x0ac4…0ad6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x0006, t01=0x0168}
0x0ad6…0ae8 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A4«, t00=0x0006, t01=0x017a}
0x0ae8…0afc Head {h00=0x0010, h01=0x0050, text=» ES A1,1,A8 «, t00=0x0006, t01=0x018c}
0x0afc…0b0e Head {h00=0x000e, h01=0x0050, text=» ELR A4,A8«, t00=0x0007, t01=0x0010}
0x0b0e…0b20 Head {h00=0x000e, h01=0x0050, text=» SRL A6,8 «, t00=0x0007, t01=0x0022}
0x0b20…0b36 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FF00«, t00=0x0007, t01=0x0034}
0x0b36…0b48 Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x0007, t01=0x004a}
0x0b48…0b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b52…0b8c Head {h00=0x0036, h01=0x0050, text=»GETT15 ESR A6,A8 SET VALUE IN TIMER CONTROL BLOCK «, t00=0x0007, t01=0x0066}
0x0b8c…0b98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00a0}
0x0b98…0ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba2…0bb4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0007, t01=0x00b6}
0x0bb4…0bca Head {h00=0x0012, h01=0x0050, text=» RF(E) GETT20 «, t00=0x0007, t01=0x00c8}
0x0bca…0bdc Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x0007, t01=0x00de}
0x0bdc…0c0c Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A15 GET ACTUAL TIME FROM STACK «, t00=0x0007, t01=0x00f0}
0x0c0c…0c1e Head {h00=0x000e, h01=0x0050, text=» RB GETT10«, t00=0x0007, t01=0x0120}
0x0c1e…0c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0132}
0x0c28…0c40 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0007, t01=0x013c}
0x0c40…0c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c6c Head {h00=0x0014, h01=0x0050, text=»GETT20 SUK A7,2 «, t00=0x0007, t01=0x0168}
0x0c6c…0c9e Head {h00=0x002e, h01=0x0050, text=» LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY «, t00=0x0007, t01=0x0180}
0x0c9e…0cd4 Head {h00=0x0032, h01=0x0050, text=» ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7«, t00=0x0008, t01=0x0022}
0x0cd4…0cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cde…0cf2 Head {h00=0x0010, h01=0x0050, text=»TPDIS EQU * «, t00=0x0008, t01=0x0062}
0x0cf2…0d16 Head {h00=0x0020, h01=0x0050, text=» CMR A7 CLEAR MIDNIGTH CARRY«, t00=0x0008, t01=0x0076}
0x0d16…0d2a Head {h00=0x0010, h01=0x0050, text=» ABL LKMQDI «, t00=0x0008, t01=0x009a}
0x0d2a…0d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ae}
0x0d34…0d4c Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x0008, t01=0x00b8}
0x0d4c…0d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d0}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00da}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00e4}
0x0d72…0d84 Head {h00=0x000e, h01=0x0050, text=»* SETTIM *«, t00=0x0008, t01=0x00f6}
0x0d84…0d96 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x0108}
0x0d96…0da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011a}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0124}
0x0daa…0dda Head {h00=0x002c, h01=0x0050, text=»* THIS IS THE SET TIME LKM PROCESSOR.«, t00=0x0008, t01=0x012e}
0x0dda…0de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de4…0e18 Head {h00=0x0030, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER WITH«, t00=0x0008, t01=0x0168}
0x0e18…0e4c Head {h00=0x0030, h01=0x0050, text=»* ADDRESS TO THE USER TIMER CONTROL BLOCK«, t00=0x0009, t01=0x000c}
0x0e4c…0e80 Head {h00=0x0030, h01=0x0050, text=»* IN A8. VALUE IN TIMER CONTROL BLOCK IS «, t00=0x0009, t01=0x0040}
0x0e80…0ea8 Head {h00=0x0024, h01=0x0050, text=»* COPIED INTO MONITOR CLOCK. «, t00=0x0009, t01=0x0074}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a6}
0x0ebc…0ed0 Head {h00=0x0010, h01=0x0050, text=»SETTIM EQU *«, t00=0x0009, t01=0x00b0}
0x0ed0…0f0a Head {h00=0x0036, h01=0x0050, text=» LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND «, t00=0x0009, t01=0x00c4}
0x0f0a…0f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f14…0f3c Head {h00=0x0024, h01=0x0050, text=»SETDAT EQU * ENTRY USED BY TDATE«, t00=0x0009, t01=0x0108}
0x0f3c…0f56 Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 COUNTER «, t00=0x0009, t01=0x0130}
0x0f56…0f62 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0009, t01=0x014a}
0x0f62…0f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0156}
0x0f6c…0f80 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x0009, t01=0x0160}
0x0f80…0f96 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0009, t01=0x0174}
0x0f96…0fc0 Head {h00=0x0026, h01=0x0050, text=» LCR A6,A8 GET LEFTHAND CHARACTER «, t00=0x0009, t01=0x018a}
0x0fc0…0fd2 Head {h00=0x000e, h01=0x0050, text=» ECR A6,A6«, t00=0x000a, t01=0x0024}
0x0fd2…0ffe Head {h00=0x0028, h01=0x0050, text=» LC A6,1,A8 GET RIGHTHAND CHARACTER «, t00=0x000a, t01=0x0036}
0x0ffe…100a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0062}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1014…102c Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000a, t01=0x0078}
0x102c…1036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x1040…1056 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x00a4}
0x1056…108c Head {h00=0x0032, h01=0x0050, text=» ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK «, t00=0x000a, t01=0x00ba}
0x108c…10be Head {h00=0x002e, h01=0x0050, text=» LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS«, t00=0x000a, t01=0x00f0}
0x10be…10d0 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x000a, t01=0x0122}
0x10d0…10f6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) SETT15 TCB ADDRESS EVEN«, t00=0x000a, t01=0x0134}
0x10f6…112c Head {h00=0x0032, h01=0x0050, text=» EL A4,1,A8 CORRECTIONS FOR UNEVEN TCB ADDRESS«, t00=0x000a, t01=0x015a}
0x112c…113e Head {h00=0x000e, h01=0x0050, text=» SLL A6,8 «, t00=0x000a, t01=0x0190}
0x113e…1150 Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x000b, t01=0x0012}
0x1150…1162 Head {h00=0x000e, h01=0x0050, text=» ORR A6,A4«, t00=0x000b, t01=0x0024}
0x1162…116c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x116c…1180 Head {h00=0x0010, h01=0x0050, text=»SETT15 EQU *«, t00=0x000b, t01=0x0040}
0x1180…118c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0054}
0x118c…1196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0060}
0x1196…11be Head {h00=0x0024, h01=0x0050, text=» CF A15,ASCTBY CONVERT TO BINARY«, t00=0x000b, t01=0x006a}
0x11be…11d4 Head {h00=0x0012, h01=0x0050, text=» SUK A3,2 END «, t00=0x000b, t01=0x0092}
0x11d4…11ea Head {h00=0x0012, h01=0x0050, text=» RF(E) SETT20 «, t00=0x000b, t01=0x00a8}
0x11ea…11fc Head {h00=0x000e, h01=0x0050, text=» ADKL A8,2«, t00=0x000b, t01=0x00be}
0x11fc…1230 Head {h00=0x0030, h01=0x0050, text=» STR A6,A15 SAVE ON STACK (HOURS AND MINUTES«, t00=0x000b, t01=0x00d0}
0x1230…1242 Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x000b, t01=0x0104}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0116}
0x124c…1264 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000b, t01=0x0120}
0x1264…126e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126e…1278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1278…128c Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x000b, t01=0x014c}
0x128c…1298 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000b, t01=0x0160}
0x1298…12c4 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 SECONDS TO MONITOR CLOCK «, t00=0x000b, t01=0x016c}
0x12c4…12d6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000c, t01=0x0008}
0x12d6…12ea Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000c, t01=0x001a}
0x12ea…1316 Head {h00=0x0028, h01=0x0050, text=» STR A6,A7 MINUTES TO MONITOR CLOCK «, t00=0x000c, t01=0x002e}
0x1316…1328 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000c, t01=0x005a}
0x1328…133c Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A15«, t00=0x000c, t01=0x006c}
0x133c…1366 Head {h00=0x0026, h01=0x0050, text=» STR A6,A7 HOURS TO MONITOR CLOCK «, t00=0x000c, t01=0x0080}
0x1366…1378 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000c, t01=0x00aa}
0x1378…138a Head {h00=0x000e, h01=0x0050, text=» RB TPDIS «, t00=0x000c, t01=0x00bc}
0x138a…1394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1394…13ac Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000c, t01=0x00d8}
0x13ac…13b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f0}
0x13b6…13c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13c0…13d2 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x000c, t01=0x0104}
0x13d2…13e4 Head {h00=0x000e, h01=0x0050, text=»* TDATE * «, t00=0x000c, t01=0x0116}
0x13e4…13f6 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x000c, t01=0x0128}
0x13f6…1400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x1400…140a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0144}
0x140a…143e Head {h00=0x0030, h01=0x0050, text=»* THIS IS THE GET/SET DATE LKM PROCESSOR.«, t00=0x000c, t01=0x014e}
0x143e…1448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0182}
0x1448…1478 Head {h00=0x002c, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER «, t00=0x000c, t01=0x018c}
0x1478…14a4 Head {h00=0x0028, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS: «, t00=0x000d, t01=0x002c}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ae…14d6 Head {h00=0x0024, h01=0x0050, text=»* A7 = GET/SET DATE PARAMETER«, t00=0x000d, t01=0x0062}
0x14d6…1516 Head {h00=0x003c, h01=0x0050, text=»* (A7 = 0 MEANS GET DATE, A7 = 1 MEANS SET DATE)«, t00=0x000d, t01=0x008a}
0x1516…1540 Head {h00=0x0026, h01=0x0050, text=»* A8 = DATE CONTROL BLOCK (DCB)«, t00=0x000d, t01=0x00ca}
0x1540…154a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x154a…1554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fe}
0x1554…1588 Head {h00=0x0030, h01=0x0050, text=»TDATE EQU * GET/SET DATE LKM PROCESSOR ENTRY«, t00=0x000d, t01=0x0108}
0x1588…15b2 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A7 SAVE REQUEST PARAMETER «, t00=0x000d, t01=0x013c}
0x15b2…15da Head {h00=0x0024, h01=0x0050, text=» LDKL A7,MONCLO-2 ADDRESS TO DAY«, t00=0x000d, t01=0x0166}
0x15da…15f2 Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x000d, t01=0x018e}
0x15f2…1610 Head {h00=0x001a, h01=0x0050, text=» RB(Z) GETDAT GET DATE«, t00=0x000e, t01=0x0016}
0x1610…162c Head {h00=0x0018, h01=0x0050, text=» RB SETDAT SET DATE «, t00=0x000e, t01=0x0034}
0x162c…1636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0050}
0x1636…164e Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000e, t01=0x005a}
0x164e…1658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0072}
0x1658…1662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007c}
0x1662…1674 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0086}
0x1674…1686 Head {h00=0x000e, h01=0x0050, text=»* BYTASC *«, t00=0x000e, t01=0x0098}
0x1686…1698 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00aa}
0x1698…16a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00bc}
0x16a2…16ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16ac…16e2 Head {h00=0x0032, h01=0x0050, text=»* BYTASC = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000e, t01=0x00d0}
0x16e2…170e Head {h00=0x0028, h01=0x0050, text=»* FROM BINARY TO ASCII. «, t00=0x000e, t01=0x0106}
0x170e…1732 Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x000e, t01=0x0132}
0x1732…173c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0156}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1746…175a Head {h00=0x0010, h01=0x0050, text=»BYTASC EQU *«, t00=0x000e, t01=0x016a}
0x175a…176c Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x000e, t01=0x017e}
0x176c…1776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0190}
0x1776…178e Head {h00=0x0014, h01=0x0050, text=»BYTA10 SUK A6,/A«, t00=0x000f, t01=0x000a}
0x178e…17a4 Head {h00=0x0012, h01=0x0050, text=» RF(N) BYTA20 «, t00=0x000f, t01=0x0022}
0x17a4…17ba Head {h00=0x0012, h01=0x0050, text=» ADKL A4,/100 «, t00=0x000f, t01=0x0038}
0x17ba…17cc Head {h00=0x000e, h01=0x0050, text=» RB BYTA10«, t00=0x000f, t01=0x004e}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d6…17ee Head {h00=0x0014, h01=0x0050, text=»BYTA20 ADK A6,/A«, t00=0x000f, t01=0x006a}
0x17ee…1800 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A4«, t00=0x000f, t01=0x0082}
0x1800…1816 Head {h00=0x0012, h01=0x0050, text=» ORKL A6,/3030«, t00=0x000f, t01=0x0094}
0x1816…1826 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000f, t01=0x00aa}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x1830…1848 Head {h00=0x0014, h01=0x0050, text=» EJECT MONTIM «, t00=0x000f, t01=0x00c4}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00dc}
0x1852…185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x185c…186e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00f0}
0x186e…1880 Head {h00=0x000e, h01=0x0050, text=»* ASCTBY *«, t00=0x000f, t01=0x0102}
0x1880…1892 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0114}
0x1892…189c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0126}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a6…18dc Head {h00=0x0032, h01=0x0050, text=»* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT«, t00=0x000f, t01=0x013a}
0x18dc…1908 Head {h00=0x0028, h01=0x0050, text=»* FROM ASCII TO BINARY. «, t00=0x000f, t01=0x0170}
0x1908…192c Head {h00=0x0020, h01=0x0050, text=»* RESULT IN A6. «, t00=0x0010, t01=0x000c}
0x192c…1936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0030}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x1940…1954 Head {h00=0x0010, h01=0x0050, text=»ASCTBY EQU *«, t00=0x0010, t01=0x0044}
0x1954…1966 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0010, t01=0x0058}
0x1966…1978 Head {h00=0x000e, h01=0x0050, text=» ANK A6,/F«, t00=0x0010, t01=0x006a}
0x1978…198a Head {h00=0x000e, h01=0x0050, text=» SRL A4,8 «, t00=0x0010, t01=0x007c}
0x198a…199c Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0010, t01=0x008e}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=» RF(E) ASCT20 «, t00=0x0010, t01=0x00a0}
0x19b2…19bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b6}
0x19bc…19d4 Head {h00=0x0014, h01=0x0050, text=»ASCT10 ADK A6,/A«, t00=0x0010, t01=0x00c0}
0x19d4…19e6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0010, t01=0x00d8}
0x19e6…19fc Head {h00=0x0012, h01=0x0050, text=» RB(NE) ASCT10«, t00=0x0010, t01=0x00ea}
0x19fc…1a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0100}
0x1a06…1a1c Head {h00=0x0012, h01=0x0050, text=»ASCT20 RTN A15«, t00=0x0010, t01=0x010a}
0x1a1c…1a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0120}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012a}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a3a…1a46 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x013e}
0x1a46…1a4a Head {h00=0x4004, h01=0x0000}
0x1a4a…1a4e 00 10 01 4a ┆ J┆
0x1a4e…1a56 (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x1a56…1aa6 (18, 2, 292) 41 38 20 3d 20 45 43 42 20 41 44 44 52 45 53 53 20 28 49 4e 20 53 59 53 54 45 4d 20 41 52 45 41 20 49 46 20 4d 4d 55 29 00 09 01 8c 00 06 00 50 2a 20 00 0a 00 30 00 24 00 50 5c 4c 44 52 5c 41 39 2c 41 39 5c 41 42 4f 52 54 20 52 4f 55 54 49 ┆A8 = ECB ADDRESS (IN SYSTEM AREA IF MMU) P* 0 $ P LDR A9,A9 ABORT ROUTI┆
0x1aa6…1af6 4e 45 20 41 44 44 52 45 53 53 00 0a 00 3a 00 2e 00 50 5c 41 42 52 28 4e 5a 29 5c 41 39 5c 50 45 52 46 4f 52 4d 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 28 49 46 20 41 4e 59 29 00 0a 00 62 00 20 00 50 5c 41 42 4c 5c 44 49 53 45 4e 44 5c ┆NE ADDRESS : . P ABR(NZ) A9 PERFORM ABORT ROUTINE (IF ANY) b P ABL DISEND ┆
0x1af6…1b46 54 45 4e 44 49 4f 20 41 4e 44 20 54 44 49 53 50 00 0a 00 94 00 06 00 50 2a 20 00 0a 00 b8 00 30 00 50 54 41 42 52 51 45 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 0a ┆TENDIO AND TDISP P* 0 PTABRQE ABL LKMRQE GO AND INDICATE LKM ERROR ┆
0x1b46…1b7a 00 c2 00 06 00 50 2a 20 00 0a 00 f6 00 06 00 50 2a 20 00 0a 01 00 00 06 00 50 2a 20 00 0a 01 0a 00 08 00 50 5c 45 4e 44 00 0a 01 14 40 04 00 00 00 0a 01 20 ┆ P* P* P* P END @ ┆
0x1b7a…1b82 (19, 1, 8) 20 04 00 00 00 0b 00 04 ┆ ┆
0x1b82…1bd2 (20, 0, 400) 3d 32 00 2b 01 6a 00 16 00 50 5c 52 46 28 45 29 5c 41 50 32 33 34 35 5c 20 5c 3d 32 00 2c 00 0a 00 36 00 50 5c 41 4e 5c 41 34 2c 4f 50 54 49 4f 4e 2b 53 54 4b 45 4e 44 5c 4c 4f 4f 4b 20 49 46 20 54 48 49 53 20 54 59 50 45 20 41 4c 4c 4f 57 ┆=2 + j P RF(E) AP2345 =2 , 6 P AN A4,OPTION+STKEND LOOK IF THIS TYPE ALLOW┆
0x1bd2…1c22 45 44 5c 3d 32 20 00 2c 00 24 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 41 50 32 33 34 35 5c 59 45 53 5c 3d 32 20 00 2c 00 5e 00 2c 00 50 5c 4c 44 4b 5c 41 31 2c 4c 4d 50 39 5c 4e 4f 2c 20 57 52 4f 4e 47 20 4d 4f 4e 49 54 4f 52 20 4f 50 54 49 4f ┆ED =2 , $ P RF(NZ) AP2345 YES =2 , ^ , P LDK A1,LMP9 NO, WRONG MONITOR OPTIO┆
0x1c22…1c72 4e 5c 3d 32 00 2c 00 7c 00 14 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 5c 20 5c 3d 32 00 2c 00 ac 00 16 00 50 41 50 32 33 34 35 5c 45 51 55 5c 2a 5c 20 5c 3d 32 20 00 2c 00 c4 00 26 00 50 5c 4f 52 52 5c 41 32 2c 41 34 5c 53 45 54 20 42 49 54 ┆N =2 , | P CALL ERROR =2 , PAP2345 EQU * =2 , & P ORR A2,A4 SET BIT┆
0x1c72…1cc2 20 49 4e 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 2c 00 de 00 1a 00 50 5c 53 54 5c 41 32 2c 53 43 54 4f 50 54 5c 41 4e 44 20 53 41 56 45 00 2c 01 08 00 10 00 50 5c 43 57 4b 5c 41 36 2c 27 41 53 27 00 2c 01 26 00 2a 00 50 5c 52 46 28 45 29 ┆ IN OPTION WORD , P ST A2,SCTOPT AND SAVE , P CWK A6,'AS' , & * P RF(E)┆
0x1cc2…1d12 5c 41 50 32 33 35 30 5c 53 4b 49 50 20 49 46 20 41 53 53 45 4d 42 4c 45 52 20 41 50 50 4c 2e 20 00 2c 01 3a 00 06 00 50 2a 20 00 2c 01 68 00 2c 00 50 5c 4c 44 5c 41 33 2c 50 41 47 4c 47 2b 38 2c 41 39 5c 47 45 54 20 44 45 46 49 4e 45 44 20 ┆ AP2350 SKIP IF ASSEMBLER APPL. , : P* , h , P LD A3,PAGLG+8,A9 GET DEFINED ┆