|
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: 14088 (0x3708)
Notes: pts_type(SC)
Names: »LRPINT.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/LRPINT.SC«
IDENT LRPINT 9.2DK 1 79-11-16 870105040920 =DK1, HANGING REM. TERM. 80-03-11 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * LRPINT = INTERRUPT HANDLERS FOR LKM, RTC * AND POWER FAILURE * * * * * ************************************************** * * * THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS * FOR TOSS. THESE ARE: * * -IHLKM: LKM INTERRUPT * * -IHRTC: RTC INTERRUPT * * -IHPFAR: POWER FAILURE INTERRUPT * * IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE * PROVIDED. THESE ARE: * * -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH * * -LKMQDI: QUEUE JOB AND DISPATCH * EJECT LRPINT * * *********** * ENTRIES * *********** * * ENTRY IHLKM LKM INTERRUPT HANDLER ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY ENTRY LKMRQE LKM REQUEST ERROR ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR ENTRY LKMQDI QUEUE JOB AND DISPATCH ENTRY IHRTC RTC INTERRUPT HANDLER ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE ENTRY MONCLO MONITOR CLOCK ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER ENTRY INIFLG INITIALIZATION FLAG EJECT LRPINT * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHER EXTRN DISQUE DISPATCHER QUEUE EXTRN PRUN TTAB OF RUNNING PROGRAM EXTRN MEXIT MONITOR TASK EXIT EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE EXTRN QTJOB QUEUE TASK EXTRN QMJOB QUEUE MONITOR JOB EXTRN SWL48 SWITCH TO LEVEL 48 EXTRN SWLXY SWITCH TO LEVEL XY EXTRN FREBLK SET BLOCK FREE EXTRN SAVE8 SAVE 8 REGISTERS EXTRN PFINIT RESTART OF DEVICES EXTRN HALT HALT MODULE EXTRN INTSAV INTERRUPT SAVE MODULE EXTRN TTABLD LOAD TASK TTAB EXTRN PQEMTY PAGE QUEUE EMPTY FLAG EXTRN PAGQUE FREE PAGE QUEUE EXTRN SEG:PB PAGE BLOCK ADDRESS EXTRN PAG:QB QUEUE LINK BACKWARD EXTRN TTB:SB SEGMENT BLOCK POINTER EXTRN TTB:PW PROGRAM STATUS WORD EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB EXTRN LKMAL LKM REQUEST TABLE EJECT LRPINT * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * * * A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS * IS OBTAINED BY SETTING MCLOCK EQU 0. * X:A EQU 1 MONCLK EQU X:A * EJECT LRPINT * * * I H L K M * * * THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING * STEPS ARE CARRIED OUT: * * - IF STACK OVERFLOW SYSTEM HALTS. * * - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING * PROGRAM. * * - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO * APPROPRIATE LKM PROCESSOR. * * EXIT CONDITIONS ARE: * * A4 = LABEL ADDRESS OF LKM REQUEST * (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) * A5 = TTAB ADDRESS OF CALLING PROGRAM * A2, A3 AND A6 ARE LOST. * * ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING * PROGRAM. * * * IHLKM EQU * ST P,INTSAV SAVE LAST INTERRUPT RIT /1D RESET INTERNAL INTERRUPT FLAG * EJECT LRPINT * * ST A15,LKM010 SAVE A15 LD A15,PRUN LOAD TTAB ADDRESS * IFT CPU852=1 ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA STR A14,A15 SAVE USER REGISTERS, -A14 STR A13,A15 -A13 STR A12,A15 -A12 STR A11,A15 -A11 STR A10,A15 -A10 STR A9,A15 -A9 STR A8,A15 -A8 STR A7,A15 -A7 STR A6,A15 -A6 STR A5,A15 -A5 STR A4,A15 -A4 STR A3,A15 -A3 STR A2,A15 -A2 STR A1,A15 -A1 XIF * IFT CPU852=0 MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA XIF * LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK LDKL A15,0 RESTORE A15 STACK POINTER LKM010 EQU *-2 * EJECT LRPINT * * GET LKM REQUEST PARAMETERS * LDR* A3,A15 LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER ST A3,TTB:PW,A5 STORE PSW IN TTAB * IFT MMUPAG=0 LD A3,-2,A2 GET INSTRUCTION CODE LDR* A6,A2 GET DATA DIRECTIVE XIF * IFT MMUPAG=1 ANK A3,1 RF(NZ) LKM015 USER MODE? TL MONMMU NO, LOAD MONITOR MMU TABLE * LKM015 EQU * EL A3,-2,A2 GET INSTRUCTION CODE ELR A6,A2 GET DATA DIRECTIVE XIF * CWK A3,/2804 RF(E) LKM025 LKM? CWK A3,/6300 RF(E) LKM025 TRAP? * * STACK OVERFLOW: HALT SYSTEM * LDK A1,7 HALT PARAMETER RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW * EJECT LRPINT * * LKM025 EQU * IFT DSKPAG=1 LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS RF(Z) LKM027 NO SEGMENT? LDR* A4,A3 GET SEGMENT STATUS ANKL A4,/1E00 CHECK IF CORE RESIDENT OR... RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK * * INSERT PAGE BLOCK IN PAGE QUEUE * LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS LDKL A4,PAGQUE GET PAGQUE ADDRESS ST A4,PAG:QB,A3 LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE STR A4,A3 UPDATE QUEUE LINKS ST A3,PAGQUE ST A3,PAG:QB,A4 LD A3,PQEMTY CHECK IF LOAD TASK IN PAUSE STATE RF(Z) LKM027 PAGE QUEUE NOT EMPTY? * EJECT LRPINT * * RESTART LOAD TASK * CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY LDR A4,A5 SAVE A5 LDKL A5,TTABLD GET LDTASK TTAB ADDRESS CF A15,QTJOB RESTART LOAD TASK LDR A5,A4 RESTORE A5 LD A4,TTB:PW,A5 GET PSW ST A4,-2,A15 RESTORE PSW ON STACK * LKM027 EQU * XIF * IFF MMUPAG+DSKPAG=0 CWK A6,9 CHECK DATA DIRECTIVE RF(E) LKM060 LOAD SEGMENT REQUEST? XIF * EJECT LRPINT * * LKM030 EQU * CM PRUN INDICATE IDLE LOOP RUNNING CF A15,SWL48 SWITCH TO LEVEL 48 LDK A4,0 LDR A3,A6 GET DATA DIRECTIVE RF(NN) LKM050 NO LABEL? * * LKM REQUEST WITH LABEL * ADK A2,2 NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE * IFT MMUPAG=0 LDR* A4,A2 GET LABEL XIF * IFT MMUPAG=1 ELR A4,A2 GET LABEL XIF * EJECT LRPINT * * UPDATE TTB:SA AND GO TO LKM PROCESSOR * LKM050 EQU * ADK A2,2 SAVE NEXT ADDRESS TO ST A2,TTB:SA,A5 EXECUTE IN TTAB ADR A3,A3 GET INDEX IN LKMAL RF(Z) LKMQDI PROGRAM SWITCH REQUEST? CW A3,LKMAL RF(NL) LKMRQE INVALID DATA DIRECTIVE? INH LD A3,LKMAL,A3 * IFF MMUPAG+DSKPAG=0 RF LKM065 * LKM060 EQU * LOAD SEGMENT REQUEST (DATA 9) LD A3,LKMAL+18 GET TLDSEG ADDRESS XIF * LKM065 EQU * ABR(NZ) A3 BRANCH TO LKM PROCESSOR * EJECT LRPINT * * * L K M E R R * * LKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT * LKM070 EQU * CF A15,HALT HALT SYSTEM * * * L K M R Q E * * SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. * * A5 = TTAB ADDRESS * * LKMRQE EQU * LDKL A2,-1 ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7 * * * L K M Q D I * * QUEUE TERMINAL JOB AND DISPATCH. * * A5 = TTAB ADDRESS * * LKMQDI EQU * CF A15,QTJOB * T:DISP EQU * COMMON EXIT TO DISPATCHER ABL TDISP GO TO DISPATCHER * EJECT LRPINT * * I H R T C * * THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. * THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. * IHRTC ST P,INTSAV SAVE LAST INTERRUPT RIT /1B RESET INTERRUPT FLAG IM COUNT RF(P) RTC010 CHECK TIMER QUEUE? RTN A15 * RTC010 EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A4,-4 SET 100 MS SWITCH ST A4,COUNT LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB CF A15,QMJOB * IFT MONCLK=1 IM SECOND RF(P) RTC025 UPDATE MONITOR CLOCK? XIF * RTC020 EQU * CF A15,SWLXY SWITCH TO LEVEL XY RB T:DISP * EJECT LRPINT * * IFT MONCLK=1 * * MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. * MCLOCK EQU * RTC025 LDKL A4,-9 SET SECOND SWITCH ST A4,SECOND LDK A4,4 * MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS MCLO20 IM MONCLO+2,A4 INCREMENT TIME XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ? RB(NE) RTC020 GO TO DISPATCHER? CM MONCLO+2,A4 RESTART TIME COUNTER SUK A4,2 END? RB(N) MCLO20 MIDNIGHT CARRY? RB(P) MCLO10 UPDATE MINUTES? LDK A3,24 UPDATE HOURS RB MCLO20 XIF * * * M O N C L O * * MONCLO EQU * IFT MONCLK=1 DATA 0 ACCUMULATED 24 HOUR CARRY DATA 0 HOUR DATA 0 MINUTE DATA 0 SECOND SECOND DATA 0 SECOND SWITCH XIF * EJECT LRPINT * * CLOCK ROUTINE STARTED EACH 100 MS. * CLOCK INH LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS * CLK10 LDR A6,A4 CLK20 LDR* A4,A6 GET TIMER BLOCK ABL(Z) MEXIT END OF QUEUE IM 4,A4 INCREMENT TIMER RB(N) CLK10 NOT TIME OUT? RF(Z) CLK30 TIME OUT? LDR* A3,A4 RELEASE TIMER STR A3,A6 CF A15,FREBLK LDR A4,A2 CF A15,FREBLK RB CLK20 * EJECT LRPINT * * CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE CF A15,SWL48 SWITCH TO LEVEL 48 DK1 INH RB CLK10 * CLK40 EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * DK1 INH LD A2,2,A4 LOAD DISP BLOCK LD A1,4,A2 GET PARAMETER ABI 2,A2 GO TO TIME OUT ROUTINE * * COUNT DATA 0 100 MS SWITCH * * * T I M Q U E * * POINTER TO FIRST BLOCK IN TIMER QUEUE * * TIMQUE EQU * DATA 0 * EJECT LRPINT * * * I H P F A R * * THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. * * DATA 0 TTABPF DATA 0 TTAB FOR POWER FAIL DATA '#P' DATA 0 A15SAV DATA 0 DATA /00C0 DATA POWOFF * * * WORK AREAS * * PFX DATA 1 POWER ON/OFF INDICATOR * * INIFLG DATA 1 INITIALIZATION FLAG * EJECT LRPINT * * * POWER FAIL/AUTO RESTART INTERRUPT * * IHPFAR EQU * ST P,INTSAV SAVE LAST INTERRUPT RIT /17 RESET INTERNAL INTERRUPT C1S PFX INDICATE POWER ON OR OFF RF(P) POWON POWER ON? * * POWER OFF * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING LDKL A2,TTABPF STR A1,A2 ST A2,DISQUE RB T:DISP * POWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES HLT * EJECT LRPINT * * POWER ON * POWON LD A15,A15SAV RELOAD A15 CM INIFLG RESET INIT FLAG CF A15,PFINIT CM PRUN RB T:DISP * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT LRPINT 9.2DK 1 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» =DK1, HANGING REM. TERM. «, t00=0x0000, t01=0x0042}
0x0062…0076 Head {h00=0x0010, h01=0x0050, text=» 80-03-11 «, t00=0x0000, t01=0x0066}
0x0076…0080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007a}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00c4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x008e}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00f6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d2}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…0134 Head {h00=0x0030, h01=0x0050, text=»* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC«, t00=0x0000, t01=0x0104}
0x0134…015a Head {h00=0x0022, h01=0x0050, text=»* AND POWER FAILURE«, t00=0x0000, t01=0x0138}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
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…01c6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0190}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…0218 Head {h00=0x003a, h01=0x0050, text=»* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS «, t00=0x0001, t01=0x004e}
0x0218…0238 Head {h00=0x001c, h01=0x0050, text=»* FOR TOSS. THESE ARE:«, t00=0x0001, t01=0x008c}
0x0238…0242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…0264 Head {h00=0x001e, h01=0x0050, text=»* -IHLKM: LKM INTERRUPT«, t00=0x0001, t01=0x00b6}
0x0264…026e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d8}
0x026e…0290 Head {h00=0x001e, h01=0x0050, text=»* -IHRTC: RTC INTERRUPT«, t00=0x0001, t01=0x00e2}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02c6 Head {h00=0x0028, h01=0x0050, text=»* -IHPFAR: POWER FAILURE INTERRUPT«, t00=0x0001, t01=0x010e}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…030e Head {h00=0x003a, h01=0x0050, text=»* IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE«, t00=0x0001, t01=0x0144}
0x030e…032e Head {h00=0x001c, h01=0x0050, text=»* PROVIDED. THESE ARE:«, t00=0x0001, t01=0x0182}
0x032e…0338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…0370 Head {h00=0x0034, h01=0x0050, text=»* -LKMRQE: SET A7 = -1, QUEUE JOB AND DISPATCH«, t00=0x0002, t01=0x001c}
0x0370…037a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x037a…03a6 Head {h00=0x0028, h01=0x0050, text=»* -LKMQDI: QUEUE JOB AND DISPATCH «, t00=0x0002, t01=0x005e}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03c8 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0002, t01=0x0094}
0x03c8…03d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ac}
0x03d2…03dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03dc…03f0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00c0}
0x03f0…0404 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00d4}
0x0404…0418 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00e8}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0456 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHLKM LKM INTERRUPT HANDLER«, t00=0x0002, t01=0x0110}
0x0456…048e Head {h00=0x0034, h01=0x0050, text=» ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY«, t00=0x0002, t01=0x013a}
0x048e…04b6 Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0172}
0x04b6…04ee Head {h00=0x0034, h01=0x0050, text=» ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0003, t01=0x000a}
0x04ee…051a Head {h00=0x0028, h01=0x0050, text=» ENTRY LKMQDI QUEUE JOB AND DISPATCH«, t00=0x0003, t01=0x0042}
0x051a…0544 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHRTC RTC INTERRUPT HANDLER«, t00=0x0003, t01=0x006e}
0x0544…0580 Head {h00=0x0038, h01=0x0050, text=» ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x0098}
0x0580…05a4 Head {h00=0x0020, h01=0x0050, text=» ENTRY MONCLO MONITOR CLOCK «, t00=0x0003, t01=0x00d4}
0x05a4…05da Head {h00=0x0032, h01=0x0050, text=» ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER «, t00=0x0003, t01=0x00f8}
0x05da…0604 Head {h00=0x0026, h01=0x0050, text=» ENTRY INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x012e}
0x0604…061c Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0003, t01=0x0158}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0170}
0x0626…0630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…0646 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0184}
0x0646…065c Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x000a}
0x065c…0672 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0020}
0x0672…067c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0036}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0686…06a6 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x004a}
0x06a6…06cc Head {h00=0x0022, h01=0x0050, text=» EXTRN DISQUE DISPATCHER QUEUE«, t00=0x0004, t01=0x006a}
0x06cc…06f8 Head {h00=0x0028, h01=0x0050, text=» EXTRN PRUN TTAB OF RUNNING PROGRAM «, t00=0x0004, t01=0x0090}
0x06f8…071e Head {h00=0x0022, h01=0x0050, text=» EXTRN MEXIT MONITOR TASK EXIT«, t00=0x0004, t01=0x00bc}
0x071e…074e Head {h00=0x002c, h01=0x0050, text=» EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE«, t00=0x0004, t01=0x00e2}
0x074e…076e Head {h00=0x001c, h01=0x0050, text=» EXTRN QTJOB QUEUE TASK «, t00=0x0004, t01=0x0112}
0x076e…0794 Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x0004, t01=0x0132}
0x0794…07bc Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x0158}
0x07bc…07e4 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0004, t01=0x0180}
0x07e4…0808 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK SET BLOCK FREE«, t00=0x0005, t01=0x0018}
0x0808…082e Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0005, t01=0x003c}
0x082e…0856 Head {h00=0x0024, h01=0x0050, text=» EXTRN PFINIT RESTART OF DEVICES«, t00=0x0005, t01=0x0062}
0x0856…0876 Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT HALT MODULE «, t00=0x0005, t01=0x008a}
0x0876…08a2 Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE MODULE «, t00=0x0005, t01=0x00aa}
0x08a2…08c6 Head {h00=0x0020, h01=0x0050, text=» EXTRN TTABLD LOAD TASK TTAB«, t00=0x0005, t01=0x00d6}
0x08c6…08f2 Head {h00=0x0028, h01=0x0050, text=» EXTRN PQEMTY PAGE QUEUE EMPTY FLAG «, t00=0x0005, t01=0x00fa}
0x08f2…0918 Head {h00=0x0022, h01=0x0050, text=» EXTRN PAGQUE FREE PAGE QUEUE «, t00=0x0005, t01=0x0126}
0x0918…0940 Head {h00=0x0024, h01=0x0050, text=» EXTRN SEG:PB PAGE BLOCK ADDRESS«, t00=0x0005, t01=0x014c}
0x0940…096a Head {h00=0x0026, h01=0x0050, text=» EXTRN PAG:QB QUEUE LINK BACKWARD «, t00=0x0005, t01=0x0174}
0x096a…0996 Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0006, t01=0x000e}
0x0996…09c0 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0006, t01=0x003a}
0x09c0…09f6 Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB «, t00=0x0006, t01=0x0064}
0x09f6…0a1c Head {h00=0x0022, h01=0x0050, text=» EXTRN LKMAL LKM REQUEST TABLE«, t00=0x0006, t01=0x009a}
0x0a1c…0a34 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0006, t01=0x00c0}
0x0a34…0a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e2}
0x0a48…0a7a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x00ec}
0x0a7a…0a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a84…0aa2 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x0128}
0x0aa2…0aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0146}
0x0aac…0ade Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0150}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0182}
0x0ae8…0b1a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x018c}
0x0b1a…0b48 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x002e}
0x0b48…0b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b52…0b66 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x0066}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007a}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0084}
0x0b7a…0bb4 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x008e}
0x0bb4…0be6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x00c8}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bf0…0c04 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x0104}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0122}
0x0c18…0c4a Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0007, t01=0x012c}
0x0c4a…0c78 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x015e}
0x0c78…0c82 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x018c}
0x0c82…0c96 Head {h00=0x0010, h01=0x000c, text=»DSKPAG EQU 0«, t00=0x0008, t01=0x0008}
0x0c96…0ca0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x001c}
0x0ca0…0caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0026}
0x0caa…0ce6 Head {h00=0x0038, h01=0x0050, text=»* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS«, t00=0x0008, t01=0x0030}
0x0ce6…0d14 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MCLOCK EQU 0.«, t00=0x0008, t01=0x006c}
0x0d14…0d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009a}
0x0d1e…0d30 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x00a4}
0x0d30…0d46 Head {h00=0x0012, h01=0x0050, text=»MONCLK EQU X:A«, t00=0x0008, t01=0x00b6}
0x0d46…0d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00cc}
0x0d50…0d68 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0008, t01=0x00d6}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7c…0d92 Head {h00=0x0012, h01=0x0050, text=»* I H L K M «, t00=0x0008, t01=0x0102}
0x0d92…0d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9c…0da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0122}
0x0da6…0de2 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING«, t00=0x0008, t01=0x012c}
0x0de2…0e04 Head {h00=0x001e, h01=0x0050, text=»* STEPS ARE CARRIED OUT:«, t00=0x0008, t01=0x0168}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e3c (9, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* - IF STACK OVERFLOW SYSTEM HALTS. «, t00=0x0009, t01=0x0004}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e46…0e8a Head {h00=0x0040, h01=0x0050, text=»* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING «, t00=0x0009, t01=0x003c}
0x0e8a…0ea0 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM.«, t00=0x0009, t01=0x0080}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0096}
0x0eaa…0ee8 Head {h00=0x003a, h01=0x0050, text=»* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO «, t00=0x0009, t01=0x00a0}
0x0ee8…0f10 Head {h00=0x0024, h01=0x0050, text=»* APPROPRIATE LKM PROCESSOR.«, t00=0x0009, t01=0x00de}
0x0f10…0f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0106}
0x0f1a…0f3a Head {h00=0x001c, h01=0x0050, text=»* EXIT CONDITIONS ARE:«, t00=0x0009, t01=0x0110}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f44…0f72 Head {h00=0x002a, h01=0x0050, text=»* A4 = LABEL ADDRESS OF LKM REQUEST «, t00=0x0009, t01=0x013a}
0x0f72…0fae Head {h00=0x0038, h01=0x0050, text=»* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) «, t00=0x0009, t01=0x0168}
0x0fae…0fde Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING PROGRAM«, t00=0x000a, t01=0x0014}
0x0fde…1002 Head {h00=0x0020, h01=0x0050, text=»* A2, A3 AND A6 ARE LOST. «, t00=0x000a, t01=0x0044}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100c…104a Head {h00=0x003a, h01=0x0050, text=»* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING «, t00=0x000a, t01=0x0072}
0x104a…105e Head {h00=0x0010, h01=0x0050, text=»* PROGRAM.«, t00=0x000a, t01=0x00b0}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x1068…1072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ce}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107c…1090 Head {h00=0x0010, h01=0x0050, text=»IHLKM EQU * «, t00=0x000a, t01=0x00e2}
0x1090…10b8 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x000a, t01=0x00f6}
0x10b8…10e6 Head {h00=0x002a, h01=0x0050, text=» RIT /1D RESET INTERNAL INTERRUPT FLAG«, t00=0x000a, t01=0x011e}
0x10e6…10f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10f0…1108 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x000a, t01=0x0156}
0x1108…1112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016e}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111c…113c Head {h00=0x001c, h01=0x0050, text=» ST A15,LKM010 SAVE A15 «, t00=0x000a, t01=0x0182}
0x113c…1162 Head {h00=0x0022, h01=0x0050, text=» LD A15,PRUN LOAD TTAB ADDRESS«, t00=0x000b, t01=0x0012}
0x1162…116c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0038}
0x116c…1182 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000b, t01=0x0042}
0x1182…11ba Head {h00=0x0034, h01=0x0050, text=» ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA«, t00=0x000b, t01=0x0058}
0x11ba…11e8 Head {h00=0x002a, h01=0x0050, text=» STR A14,A15 SAVE USER REGISTERS, -A14«, t00=0x000b, t01=0x0090}
0x11e8…1202 Head {h00=0x0016, h01=0x0050, text=» STR A13,A15 -A13 «, t00=0x000b, t01=0x00be}
0x1202…121c Head {h00=0x0016, h01=0x0050, text=» STR A12,A15 -A12 «, t00=0x000b, t01=0x00d8}
0x121c…1236 Head {h00=0x0016, h01=0x0050, text=» STR A11,A15 -A11 «, t00=0x000b, t01=0x00f2}
0x1236…1250 Head {h00=0x0016, h01=0x0050, text=» STR A10,A15 -A10 «, t00=0x000b, t01=0x010c}
0x1250…1268 Head {h00=0x0014, h01=0x0050, text=» STR A9,A15 -A9 «, t00=0x000b, t01=0x0126}
0x1268…1280 Head {h00=0x0014, h01=0x0050, text=» STR A8,A15 -A8 «, t00=0x000b, t01=0x013e}
0x1280…1298 Head {h00=0x0014, h01=0x0050, text=» STR A7,A15 -A7 «, t00=0x000b, t01=0x0156}
0x1298…12b0 Head {h00=0x0014, h01=0x0050, text=» STR A6,A15 -A6 «, t00=0x000b, t01=0x016e}
0x12b0…12c8 Head {h00=0x0014, h01=0x0050, text=» STR A5,A15 -A5 «, t00=0x000b, t01=0x0186}
0x12c8…12e0 Head {h00=0x0014, h01=0x0050, text=» STR A4,A15 -A4 «, t00=0x000c, t01=0x000e}
0x12e0…12f8 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 -A3 «, t00=0x000c, t01=0x0026}
0x12f8…1310 Head {h00=0x0014, h01=0x0050, text=» STR A2,A15 -A2 «, t00=0x000c, t01=0x003e}
0x1310…1328 Head {h00=0x0014, h01=0x0050, text=» STR A1,A15 -A1 «, t00=0x000c, t01=0x0056}
0x1328…1334 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x006e}
0x1334…133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133e…1354 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000c, t01=0x0084}
0x1354…138e Head {h00=0x0036, h01=0x0050, text=» MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA «, t00=0x000c, t01=0x009a}
0x138e…139a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00d4}
0x139a…13a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e0}
0x13a4…13d8 Head {h00=0x0030, h01=0x0050, text=» LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK«, t00=0x000c, t01=0x00ea}
0x13d8…1406 Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x000c, t01=0x011e}
0x1406…141c Head {h00=0x0012, h01=0x0050, text=»LKM010 EQU *-2«, t00=0x000c, t01=0x014c}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1426…143e Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x000c, t01=0x016c}
0x143e…1448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1448…146e Head {h00=0x0022, h01=0x0050, text=»* GET LKM REQUEST PARAMETERS«, t00=0x000c, t01=0x018e}
0x146e…1478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x1478…148c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x000d, t01=0x002e}
0x148c…14c4 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER «, t00=0x000d, t01=0x0042}
0x14c4…14ee Head {h00=0x0026, h01=0x0050, text=» ST A3,TTB:PW,A5 STORE PSW IN TTAB«, t00=0x000d, t01=0x007a}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14f8…150e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x00ae}
0x150e…1538 Head {h00=0x0026, h01=0x0050, text=» LD A3,-2,A2 GET INSTRUCTION CODE «, t00=0x000d, t01=0x00c4}
0x1538…155e Head {h00=0x0022, h01=0x0050, text=» LDR* A6,A2 GET DATA DIRECTIVE«, t00=0x000d, t01=0x00ee}
0x155e…156a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0114}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1574…158a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x012a}
0x158a…159c Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x000d, t01=0x0140}
0x159c…15be Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LKM015 USER MODE? «, t00=0x000d, t01=0x0152}
0x15be…15ec Head {h00=0x002a, h01=0x0050, text=» TL MONMMU NO, LOAD MONITOR MMU TABLE «, t00=0x000d, t01=0x0174}
0x15ec…15f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f6…160a Head {h00=0x0010, h01=0x0050, text=»LKM015 EQU *«, t00=0x000e, t01=0x001c}
0x160a…1634 Head {h00=0x0026, h01=0x0050, text=» EL A3,-2,A2 GET INSTRUCTION CODE«, t00=0x000e, t01=0x0030}
0x1634…165a Head {h00=0x0022, h01=0x0050, text=» ELR A6,A2 GET DATA DIRECTIVE «, t00=0x000e, t01=0x005a}
0x165a…1666 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0080}
0x1666…1670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008c}
0x1670…1686 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/2804 «, t00=0x000e, t01=0x0096}
0x1686…16a0 Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 LKM?«, t00=0x000e, t01=0x00ac}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/6300 «, t00=0x000e, t01=0x00c6}
0x16b6…16d2 Head {h00=0x0018, h01=0x0050, text=» RF(E) LKM025 TRAP? «, t00=0x000e, t01=0x00dc}
0x16d2…16dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f8}
0x16dc…1704 Head {h00=0x0024, h01=0x0050, text=»* STACK OVERFLOW: HALT SYSTEM «, t00=0x000e, t01=0x0102}
0x1704…170e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x170e…172e Head {h00=0x001c, h01=0x0050, text=» LDK A1,7 HALT PARAMETER«, t00=0x000e, t01=0x0134}
0x172e…1762 Head {h00=0x0030, h01=0x0050, text=» RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW«, t00=0x000e, t01=0x0154}
0x1762…176c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0188}
0x176c…1784 (15, 0, 400) Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x000f, t01=0x0004}
0x1784…178e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001c}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1798…17ac Head {h00=0x0010, h01=0x0050, text=»LKM025 EQU *«, t00=0x000f, t01=0x0030}
0x17ac…17c2 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x000f, t01=0x0044}
0x17c2…17f4 Head {h00=0x002e, h01=0x0050, text=» LD A3,TTB:SB,A5 GET SEGMENT BLOCK ADDRESS«, t00=0x000f, t01=0x005a}
0x17f4…1816 Head {h00=0x001e, h01=0x0050, text=» RF(Z) LKM027 NO SEGMENT? «, t00=0x000f, t01=0x008c}
0x1816…183c Head {h00=0x0022, h01=0x0050, text=» LDR* A4,A3 GET SEGMENT STATUS«, t00=0x000f, t01=0x00ae}
0x183c…1870 Head {h00=0x0030, h01=0x0050, text=» ANKL A4,/1E00 CHECK IF CORE RESIDENT OR... «, t00=0x000f, t01=0x00d4}
0x1870…18a6 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK «, t00=0x000f, t01=0x0108}
0x18a6…18b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013e}
0x18b0…18dc Head {h00=0x0028, h01=0x0050, text=»* INSERT PAGE BLOCK IN PAGE QUEUE «, t00=0x000f, t01=0x0148}
0x18dc…18e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0174}
0x18e6…1916 Head {h00=0x002c, h01=0x0050, text=» LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS «, t00=0x000f, t01=0x017e}
0x1916…1940 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,PAGQUE GET PAGQUE ADDRESS«, t00=0x0010, t01=0x001e}
0x1940…1958 Head {h00=0x0014, h01=0x0050, text=» ST A4,PAG:QB,A3«, t00=0x0010, t01=0x0048}
0x1958…1990 Head {h00=0x0034, h01=0x0050, text=» LDR* A4,A4 GET ADDRESS OF FIRST BLOCK IN PAGQUE«, t00=0x0010, t01=0x0060}
0x1990…19b6 Head {h00=0x0022, h01=0x0050, text=» STR A4,A3 UPDATE QUEUE LINKS «, t00=0x0010, t01=0x0098}
0x19b6…19cc Head {h00=0x0012, h01=0x0050, text=» ST A3,PAGQUE «, t00=0x0010, t01=0x00be}
0x19cc…19e4 Head {h00=0x0014, h01=0x0050, text=» ST A3,PAG:QB,A4«, t00=0x0010, t01=0x00d4}
0x19e4…1a1c Head {h00=0x0034, h01=0x0050, text=» LD A3,PQEMTY CHECK IF LOAD TASK IN PAUSE STATE «, t00=0x0010, t01=0x00ec}
0x1a1c…1a48 Head {h00=0x0028, h01=0x0050, text=» RF(Z) LKM027 PAGE QUEUE NOT EMPTY? «, t00=0x0010, t01=0x0124}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0150}
0x1a52…1a6a Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0010, t01=0x015a}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x1a74…1a92 Head {h00=0x001a, h01=0x0050, text=»* RESTART LOAD TASK «, t00=0x0010, t01=0x017c}
0x1a92…1a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000a}
0x1a9c…1acc Head {h00=0x002c, h01=0x0050, text=» CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY«, t00=0x0011, t01=0x0014}
0x1acc…1ae6 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A5 SAVE A5«, t00=0x0011, t01=0x0044}
0x1ae6…1b16 Head {h00=0x002c, h01=0x0050, text=» LDKL A5,TTABLD GET LDTASK TTAB ADDRESS «, t00=0x0011, t01=0x005e}
0x1b16…1b3e Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB RESTART LOAD TASK «, t00=0x0011, t01=0x008e}
0x1b3e…1b5c Head {h00=0x001a, h01=0x0050, text=» LDR A5,A4 RESTORE A5 «, t00=0x0011, t01=0x00b6}
0x1b5c…1b7c Head {h00=0x001c, h01=0x0050, text=» LD A4,TTB:PW,A5 GET PSW«, t00=0x0011, t01=0x00d4}
0x1b7c…1ba6 Head {h00=0x0026, h01=0x0050, text=» ST A4,-2,A15 RESTORE PSW ON STACK«, t00=0x0011, t01=0x00f4}
0x1ba6…1bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011e}
0x1bb0…1bc4 Head {h00=0x0010, h01=0x0050, text=»LKM027 EQU *«, t00=0x0011, t01=0x0128}
0x1bc4…1bd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x013c}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0148}
0x1bda…1bf6 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0011, t01=0x0152}
0x1bf6…1c1c Head {h00=0x0022, h01=0x0050, text=» CWK A6,9 CHECK DATA DIRECTIVE«, t00=0x0011, t01=0x016e}
0x1c1c…1c48 (18, 0, 400) Head {h00=0x0028, h01=0x0050, text=» RF(E) LKM060 LOAD SEGMENT REQUEST? «, t00=0x0012, t01=0x0004}
0x1c48…1c54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0030}
0x1c54…1c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003c}
0x1c5e…1c76 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0012, t01=0x0046}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005e}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8a…1c9e Head {h00=0x0010, h01=0x0050, text=»LKM030 EQU *«, t00=0x0012, t01=0x0072}
0x1c9e…1cca Head {h00=0x0028, h01=0x0050, text=» CM PRUN INDICATE IDLE LOOP RUNNING «, t00=0x0012, t01=0x0086}
0x1cca…1cf2 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x0012, t01=0x00b2}
0x1cf2…1d04 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0012, t01=0x00da}
0x1d04…1d2a Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 GET DATA DIRECTIVE «, t00=0x0012, t01=0x00ec}
0x1d2a…1d4a Head {h00=0x001c, h01=0x0050, text=» RF(NN) LKM050 NO LABEL?«, t00=0x0012, t01=0x0112}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0132}
0x1d54…1d76 Head {h00=0x001e, h01=0x0050, text=»* LKM REQUEST WITH LABEL«, t00=0x0012, t01=0x013c}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d80…1d92 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x0168}
0x1d92…1dc2 Head {h00=0x002c, h01=0x0050, text=» NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE «, t00=0x0012, t01=0x017a}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001a}
0x1dcc…1de2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0024}
0x1de2…1e00 Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 GET LABEL «, t00=0x0013, t01=0x003a}
0x1e00…1e0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0058}
0x1e0c…1e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0064}
0x1e16…1e2c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x006e}
0x1e2c…1e48 Head {h00=0x0018, h01=0x0050, text=» ELR A4,A2 GET LABEL«, t00=0x0013, t01=0x0084}
0x1e48…1e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00a0}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ac}
0x1e5e…1e76 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0013, t01=0x00b6}
0x1e76…1e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e80…1eb2 Head {h00=0x002e, h01=0x0050, text=»* UPDATE TTB:SA AND GO TO LKM PROCESSOR «, t00=0x0013, t01=0x00d8}
0x1eb2…1ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010a}
0x1ebc…1ed0 Head {h00=0x0010, h01=0x0050, text=»LKM050 EQU *«, t00=0x0013, t01=0x0114}
0x1ed0…1ef6 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 SAVE NEXT ADDRESS TO«, t00=0x0013, t01=0x0128}
0x1ef6…1f1e Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:SA,A5 EXECUTE IN TTAB«, t00=0x0013, t01=0x014e}
0x1f1e…1f44 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 GET INDEX IN LKMAL «, t00=0x0013, t01=0x0176}
0x1f44…1f72 Head {h00=0x002a, h01=0x0050, text=» RF(Z) LKMQDI PROGRAM SWITCH REQUEST? «, t00=0x0014, t01=0x000c}
0x1f72…1f86 Head {h00=0x0010, h01=0x0050, text=» CW A3,LKMAL«, t00=0x0014, t01=0x003a}
0x1f86…1fb4 Head {h00=0x002a, h01=0x0050, text=» RF(NL) LKMRQE INVALID DATA DIRECTIVE?«, t00=0x0014, t01=0x004e}
0x1fb4…1fc0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x007c}
0x1fc0…1fd8 Head {h00=0x0014, h01=0x0050, text=» LD A3,LKMAL,A3 «, t00=0x0014, t01=0x0088}
0x1fd8…1fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe2…1ffe Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0014, t01=0x00aa}
0x1ffe…2010 Head {h00=0x000e, h01=0x0050, text=» RF LKM065«, t00=0x0014, t01=0x00c6}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d8}
0x201a…204c Head {h00=0x002e, h01=0x0050, text=»LKM060 EQU * LOAD SEGMENT REQUEST (DATA 9)«, t00=0x0014, t01=0x00e2}
0x204c…2076 Head {h00=0x0026, h01=0x0050, text=» LD A3,LKMAL+18 GET TLDSEG ADDRESS«, t00=0x0014, t01=0x0114}
0x2076…2082 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x013e}
0x2082…208c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014a}
0x208c…20a0 Head {h00=0x0010, h01=0x0050, text=»LKM065 EQU *«, t00=0x0014, t01=0x0154}
0x20a0…20cc Head {h00=0x0028, h01=0x0050, text=» ABR(NZ) A3 BRANCH TO LKM PROCESSOR «, t00=0x0014, t01=0x0168}
0x20cc…20d6 (21, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d6…20ee Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0015, t01=0x000e}
0x20ee…20f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0026}
0x20f8…2102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0030}
0x2102…211a Head {h00=0x0014, h01=0x0050, text=»* L K M E R R «, t00=0x0015, t01=0x003a}
0x211a…2124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2124…212e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x212e…2170 Head {h00=0x003e, h01=0x0050, text=»LKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT «, t00=0x0015, t01=0x0066}
0x2170…217a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a8}
0x217a…218e Head {h00=0x0010, h01=0x0050, text=»LKM070 EQU *«, t00=0x0015, t01=0x00b2}
0x218e…21ae Head {h00=0x001c, h01=0x0050, text=» CF A15,HALT HALT SYSTEM«, t00=0x0015, t01=0x00c6}
0x21ae…21b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e6}
0x21b8…21c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21c2…21da Head {h00=0x0014, h01=0x0050, text=»* L K M R Q E «, t00=0x0015, t01=0x00fa}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0112}
0x21e4…221e Head {h00=0x0036, h01=0x0050, text=»* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. «, t00=0x0015, t01=0x011c}
0x221e…2228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2228…2246 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0015, t01=0x0160}
0x2246…2250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x2250…225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0188}
0x225a…226e (22, 0, 400) Head {h00=0x0010, h01=0x0050, text=»LKMRQE EQU *«, t00=0x0016, t01=0x0004}
0x226e…2282 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0016, t01=0x0018}
0x2282…22b4 Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7«, t00=0x0016, t01=0x002c}
0x22b4…22be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005e}
0x22be…22c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0068}
0x22c8…22e0 Head {h00=0x0014, h01=0x0050, text=»* L K M Q D I «, t00=0x0016, t01=0x0072}
0x22e0…22ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008a}
0x22ea…2316 Head {h00=0x0028, h01=0x0050, text=»* QUEUE TERMINAL JOB AND DISPATCH.«, t00=0x0016, t01=0x0094}
0x2316…2320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c0}
0x2320…233e Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0016, t01=0x00ca}
0x233e…2348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e8}
0x2348…2352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f2}
0x2352…2366 Head {h00=0x0010, h01=0x0050, text=»LKMQDI EQU *«, t00=0x0016, t01=0x00fc}
0x2366…237c Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x0016, t01=0x0110}
0x237c…2386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0126}
0x2386…23b4 Head {h00=0x002a, h01=0x0050, text=»T:DISP EQU * COMMON EXIT TO DISPATCHER«, t00=0x0016, t01=0x0130}
0x23b4…23d8 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0016, t01=0x015e}
0x23d8…23e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0182}
0x23e2…23fa Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0016, t01=0x018c}
0x23fa…2404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0014}
0x2404…241a Head {h00=0x0012, h01=0x0050, text=»* I H R T C «, t00=0x0017, t01=0x001e}
0x241a…2424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0034}
0x2424…245e Head {h00=0x0036, h01=0x0050, text=»* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER.«, t00=0x0017, t01=0x003e}
0x245e…2498 Head {h00=0x0036, h01=0x0050, text=»* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS.«, t00=0x0017, t01=0x0078}
0x2498…24a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a2…24d0 Head {h00=0x002a, h01=0x0050, text=»IHRTC ST P,INTSAV SAVE LAST INTERRUPT «, t00=0x0017, t01=0x00bc}
0x24d0…24f6 Head {h00=0x0022, h01=0x0050, text=» RIT /1B RESET INTERRUPT FLAG «, t00=0x0017, t01=0x00ea}
0x24f6…2508 Head {h00=0x000e, h01=0x0050, text=» IM COUNT «, t00=0x0017, t01=0x0110}
0x2508…2530 Head {h00=0x0024, h01=0x0050, text=» RF(P) RTC010 CHECK TIMER QUEUE?«, t00=0x0017, t01=0x0122}
0x2530…2540 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0017, t01=0x014a}
0x2540…254a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x015a}
0x254a…255e Head {h00=0x0010, h01=0x0050, text=»RTC010 EQU *«, t00=0x0017, t01=0x0164}
0x255e…2574 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0017, t01=0x0178}
0x2574…259e Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0017, t01=0x018e}
0x259e…25aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0028}
0x25aa…25b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0034}
0x25b4…25ca Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0018, t01=0x003e}
0x25ca…25f0 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0018, t01=0x0054}
0x25f0…25fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x007a}
0x25fc…2606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0086}
0x2606…262c Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-4 SET 100 MS SWITCH «, t00=0x0018, t01=0x0090}
0x262c…2640 Head {h00=0x0010, h01=0x0050, text=» ST A4,COUNT«, t00=0x0018, t01=0x00b6}
0x2640…2672 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB«, t00=0x0018, t01=0x00ca}
0x2672…2688 Head {h00=0x0012, h01=0x0050, text=» CF A15,QMJOB «, t00=0x0018, t01=0x00fc}
0x2688…2692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x2692…26a8 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x0018, t01=0x011c}
0x26a8…26ba Head {h00=0x000e, h01=0x0050, text=» IM SECOND«, t00=0x0018, t01=0x0132}
0x26ba…26e6 Head {h00=0x0028, h01=0x0050, text=» RF(P) RTC025 UPDATE MONITOR CLOCK? «, t00=0x0018, t01=0x0144}
0x26e6…26f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0170}
0x26f2…26fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017c}
0x26fc…2710 Head {h00=0x0010, h01=0x0050, text=»RTC020 EQU *«, t00=0x0018, t01=0x0186}
0x2710…2738 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0019, t01=0x000a}
0x2738…274a Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0019, t01=0x0032}
0x274a…2754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x2754…276c Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0019, t01=0x004e}
0x276c…2776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0066}
0x2776…2780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0070}
0x2780…2796 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x0019, t01=0x007a}
0x2796…27a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0090}
0x27a0…27e0 Head {h00=0x003c, h01=0x0050, text=»* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. «, t00=0x0019, t01=0x009a}
0x27e0…27ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00da}
0x27ea…27fe Head {h00=0x0010, h01=0x0050, text=»MCLOCK EQU *«, t00=0x0019, t01=0x00e4}
0x27fe…282a Head {h00=0x0028, h01=0x0050, text=»RTC025 LDKL A4,-9 SET SECOND SWITCH «, t00=0x0019, t01=0x00f8}
0x282a…2840 Head {h00=0x0012, h01=0x0050, text=» ST A4,SECOND «, t00=0x0019, t01=0x0124}
0x2840…2852 Head {h00=0x000e, h01=0x0050, text=» LDK A4,4 «, t00=0x0019, t01=0x013a}
0x2852…285c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014c}
0x285c…2892 Head {h00=0x0032, h01=0x0050, text=»MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS«, t00=0x0019, t01=0x0156}
0x2892…28be Head {h00=0x0028, h01=0x0050, text=»MCLO20 IM MONCLO+2,A4 INCREMENT TIME«, t00=0x0019, t01=0x018c}
0x28be…28f2 Head {h00=0x0030, h01=0x0050, text=» XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ?«, t00=0x001a, t01=0x0028}
0x28f2…291a Head {h00=0x0024, h01=0x0050, text=» RB(NE) RTC020 GO TO DISPATCHER?«, t00=0x001a, t01=0x005c}
0x291a…2946 Head {h00=0x0028, h01=0x0050, text=» CM MONCLO+2,A4 RESTART TIME COUNTER«, t00=0x001a, t01=0x0084}
0x2946…295c Head {h00=0x0012, h01=0x0050, text=» SUK A4,2 END?«, t00=0x001a, t01=0x00b0}
0x295c…2982 Head {h00=0x0022, h01=0x0050, text=» RB(N) MCLO20 MIDNIGHT CARRY? «, t00=0x001a, t01=0x00c6}
0x2982…29a8 Head {h00=0x0022, h01=0x0050, text=» RB(P) MCLO10 UPDATE MINUTES? «, t00=0x001a, t01=0x00ec}
0x29a8…29c8 Head {h00=0x001c, h01=0x0050, text=» LDK A3,24 UPDATE HOURS «, t00=0x001a, t01=0x0112}
0x29c8…29da Head {h00=0x000e, h01=0x0050, text=» RB MCLO20«, t00=0x001a, t01=0x0132}
0x29da…29e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0144}
0x29e6…29f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x29f0…29fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015a}
0x29fa…2a12 Head {h00=0x0014, h01=0x0050, text=»* M O N C L O «, t00=0x001a, t01=0x0164}
0x2a12…2a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017c}
0x2a1c…2a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0186}
0x2a26…2a3a Head {h00=0x0010, h01=0x0050, text=»MONCLO EQU *«, t00=0x001a, t01=0x0190}
0x2a3a…2a50 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x001b, t01=0x0014}
0x2a50…2a7a Head {h00=0x0026, h01=0x0050, text=» DATA 0 ACCUMULATED 24 HOUR CARRY «, t00=0x001b, t01=0x002a}
0x2a7a…2a8e Head {h00=0x0010, h01=0x0050, text=» DATA 0 HOUR«, t00=0x001b, t01=0x0054}
0x2a8e…2aa4 Head {h00=0x0012, h01=0x0050, text=» DATA 0 MINUTE«, t00=0x001b, t01=0x0068}
0x2aa4…2aba Head {h00=0x0012, h01=0x0050, text=» DATA 0 SECOND«, t00=0x001b, t01=0x007e}
0x2aba…2ade Head {h00=0x0020, h01=0x0050, text=»SECOND DATA 0 SECOND SWITCH «, t00=0x001b, t01=0x0094}
0x2ade…2aea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00b8}
0x2aea…2af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c4}
0x2af4…2b0c Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001b, t01=0x00ce}
0x2b0c…2b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e6}
0x2b16…2b44 Head {h00=0x002a, h01=0x0050, text=»* CLOCK ROUTINE STARTED EACH 100 MS.«, t00=0x001b, t01=0x00f0}
0x2b44…2b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011e}
0x2b4e…2b60 Head {h00=0x000e, h01=0x0050, text=»CLOCK INH «, t00=0x001b, t01=0x0128}
0x2b60…2b90 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS«, t00=0x001b, t01=0x013a}
0x2b90…2b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016a}
0x2b9a…2bb2 Head {h00=0x0014, h01=0x0050, text=»CLK10 LDR A6,A4 «, t00=0x001b, t01=0x0174}
0x2bb2…2bda Head {h00=0x0024, h01=0x0050, text=»CLK20 LDR* A4,A6 GET TIMER BLOCK«, t00=0x001b, t01=0x018c}
0x2bda…2bfc Head {h00=0x001e, h01=0x0050, text=» ABL(Z) MEXIT END OF QUEUE«, t00=0x001c, t01=0x0024}
0x2bfc…2c1c Head {h00=0x001c, h01=0x0050, text=» IM 4,A4 INCREMENT TIMER«, t00=0x001c, t01=0x0046}
0x2c1c…2c3e Head {h00=0x001e, h01=0x0050, text=» RB(N) CLK10 NOT TIME OUT?«, t00=0x001c, t01=0x0066}
0x2c3e…2c5c Head {h00=0x001a, h01=0x0050, text=» RF(Z) CLK30 TIME OUT?«, t00=0x001c, t01=0x0088}
0x2c5c…2c7e Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A4 RELEASE TIMER «, t00=0x001c, t01=0x00a6}
0x2c7e…2c90 Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x001c, t01=0x00c8}
0x2c90…2ca6 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x001c, t01=0x00da}
0x2ca6…2cb8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001c, t01=0x00f0}
0x2cb8…2cce Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x001c, t01=0x0102}
0x2cce…2ce0 Head {h00=0x000e, h01=0x0050, text=» RB CLK20 «, t00=0x001c, t01=0x0118}
0x2ce0…2cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012a}
0x2cea…2d02 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001c, t01=0x0134}
0x2d02…2d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014c}
0x2d0c…2d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0156}
0x2d16…2d46 Head {h00=0x002c, h01=0x0050, text=»CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE«, t00=0x001c, t01=0x0160}
0x2d46…2d72 Head {h00=0x0028, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48 DK1«, t00=0x001c, t01=0x0190}
0x2d72…2d7e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001d, t01=0x002c}
0x2d7e…2d90 Head {h00=0x000e, h01=0x0050, text=» RB CLK10 «, t00=0x001d, t01=0x0038}
0x2d90…2d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d9a…2dae Head {h00=0x0010, h01=0x0050, text=»CLK40 EQU * «, t00=0x001d, t01=0x0054}
0x2dae…2dc4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001d, t01=0x0068}
0x2dc4…2dee Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001d, t01=0x007e}
0x2dee…2dfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00a8}
0x2dfa…2e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b4}
0x2e04…2e1a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001d, t01=0x00be}
0x2e1a…2e40 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001d, t01=0x00d4}
0x2e40…2e4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00fa}
0x2e4c…2e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0106}
0x2e56…2e66 Head {h00=0x000c, h01=0x0050, text=» DK1 «, t00=0x001d, t01=0x0110}
0x2e66…2e72 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001d, t01=0x0120}
0x2e72…2e96 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 LOAD DISP BLOCK «, t00=0x001d, t01=0x012c}
0x2e96…2eb8 Head {h00=0x001e, h01=0x0050, text=» LD A1,4,A2 GET PARAMETER «, t00=0x001d, t01=0x0150}
0x2eb8…2ee0 Head {h00=0x0024, h01=0x0050, text=» ABI 2,A2 GO TO TIME OUT ROUTINE«, t00=0x001d, t01=0x0172}
0x2ee0…2eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000a}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0014}
0x2ef4…2f16 Head {h00=0x001e, h01=0x0050, text=»COUNT DATA 0 100 MS SWITCH«, t00=0x001e, t01=0x001e}
0x2f16…2f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f20…2f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004a}
0x2f2a…2f42 Head {h00=0x0014, h01=0x0050, text=»* T I M Q U E «, t00=0x001e, t01=0x0054}
0x2f42…2f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006c}
0x2f4c…2f7e Head {h00=0x002e, h01=0x0050, text=»* POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x001e, t01=0x0076}
0x2f7e…2f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a8}
0x2f88…2f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b2}
0x2f92…2fa6 Head {h00=0x0010, h01=0x0050, text=»TIMQUE EQU *«, t00=0x001e, t01=0x00bc}
0x2fa6…2fb6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x00d0}
0x2fb6…2fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e0}
0x2fc0…2fd8 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001e, t01=0x00ea}
0x2fd8…2fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0102}
0x2fe2…2fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010c}
0x2fec…3004 Head {h00=0x0014, h01=0x0050, text=»* I H P F A R «, t00=0x001e, t01=0x0116}
0x3004…300e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012e}
0x300e…3050 Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER.«, t00=0x001e, t01=0x0138}
0x3050…305a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017a}
0x305a…3064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0184}
0x3064…3074 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001e, t01=0x018e}
0x3074…309e Head {h00=0x0026, h01=0x0050, text=»TTABPF DATA 0 TTAB FOR POWER FAIL «, t00=0x001f, t01=0x000e}
0x309e…30b0 Head {h00=0x000e, h01=0x0050, text=» DATA '#P'«, t00=0x001f, t01=0x0038}
0x30b0…30c0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001f, t01=0x004a}
0x30c0…30d6 Head {h00=0x0012, h01=0x0050, text=»A15SAV DATA 0 «, t00=0x001f, t01=0x005a}
0x30d6…30ea Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x001f, t01=0x0070}
0x30ea…30fe Head {h00=0x0010, h01=0x0050, text=» DATA POWOFF«, t00=0x001f, t01=0x0084}
0x30fe…3108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0098}
0x3108…3112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a2}
0x3112…3128 Head {h00=0x0012, h01=0x0050, text=»* WORK AREAS«, t00=0x001f, t01=0x00ac}
0x3128…3132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c2}
0x3132…313c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x313c…3166 Head {h00=0x0026, h01=0x0050, text=»PFX DATA 1 POWER ON/OFF INDICATOR «, t00=0x001f, t01=0x00d6}
0x3166…3170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0100}
0x3170…317a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010a}
0x317a…31a4 Head {h00=0x0026, h01=0x0050, text=»INIFLG DATA 1 INITIALIZATION FLAG «, t00=0x001f, t01=0x0114}
0x31a4…31ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31ae…31c6 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001f, t01=0x0148}
0x31c6…31d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0160}
0x31d0…31da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016a}
0x31da…3208 Head {h00=0x002a, h01=0x0050, text=»* POWER FAIL/AUTO RESTART INTERRUPT «, t00=0x001f, t01=0x0174}
0x3208…3212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0012}
0x3212…321c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001c}
0x321c…3232 Head {h00=0x0012, h01=0x0050, text=»IHPFAR EQU * «, t00=0x0020, t01=0x0026}
0x3232…325a Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0020, t01=0x003c}
0x325a…3284 Head {h00=0x0026, h01=0x0050, text=» RIT /17 RESET INTERNAL INTERRUPT «, t00=0x0020, t01=0x0064}
0x3284…32ae Head {h00=0x0026, h01=0x0050, text=» C1S PFX INDICATE POWER ON OR OFF «, t00=0x0020, t01=0x008e}
0x32ae…32cc Head {h00=0x001a, h01=0x0050, text=» RF(P) POWON POWER ON?«, t00=0x0020, t01=0x00b8}
0x32cc…32d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d6}
0x32d6…32ec Head {h00=0x0012, h01=0x0050, text=»* POWER OFF «, t00=0x0020, t01=0x00e0}
0x32ec…32f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f6}
0x32f6…330c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0020, t01=0x0100}
0x330c…3336 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0020, t01=0x0116}
0x3336…3342 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0140}
0x3342…334c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014c}
0x334c…3362 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0020, t01=0x0156}
0x3362…3388 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0020, t01=0x016c}
0x3388…3394 (33, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0004}
0x3394…339e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0010}
0x339e…33d6 Head {h00=0x0034, h01=0x0050, text=» LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING«, t00=0x0021, t01=0x001a}
0x33d6…33ee Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TTABPF «, t00=0x0021, t01=0x0052}
0x33ee…3400 Head {h00=0x000e, h01=0x0050, text=» STR A1,A2«, t00=0x0021, t01=0x006a}
0x3400…3416 Head {h00=0x0012, h01=0x0050, text=» ST A2,DISQUE «, t00=0x0021, t01=0x007c}
0x3416…3428 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0021, t01=0x0092}
0x3428…3432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a4}
0x3432…3468 Head {h00=0x0032, h01=0x0050, text=»POWOFF ST A15,A15SAV SAVE A15 FOR BETTER TIMES«, t00=0x0021, t01=0x00ae}
0x3468…3474 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0021, t01=0x00e4}
0x3474…347e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f0}
0x347e…3496 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0021, t01=0x00fa}
0x3496…34a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0112}
0x34a0…34b4 Head {h00=0x0010, h01=0x0050, text=»* POWER ON«, t00=0x0021, t01=0x011c}
0x34b4…34be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0130}
0x34be…34e4 Head {h00=0x0022, h01=0x0050, text=»POWON LD A15,A15SAV RELOAD A15«, t00=0x0021, t01=0x013a}
0x34e4…3506 Head {h00=0x001e, h01=0x0050, text=» CM INIFLG RESET INIT FLAG«, t00=0x0021, t01=0x0160}
0x3506…351c Head {h00=0x0012, h01=0x0050, text=» CF A15,PFINIT«, t00=0x0021, t01=0x0182}
0x351c…352c Head {h00=0x000c, h01=0x0050, text=» CM PRUN«, t00=0x0022, t01=0x0008}
0x352c…353e Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0022, t01=0x0018}
0x353e…3548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002a}
0x3548…3552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0034}
0x3552…355c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003e}
0x355c…3568 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0022, t01=0x0048}
0x3568…356c Head {h00=0x4004, h01=0x0000}
0x356c…3570 00 22 00 54 ┆ " T┆
0x3570…3578 (35, 1, 8) 20 04 00 00 00 23 00 04 ┆ # ┆
0x3578…35c8 (36, 0, 400) 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 00 a3 01 90 00 10 00 50 5c 41 44 4b 4c 5c 41 31 35 2c 32 20 00 a4 00 14 00 16 00 50 5c 4c 44 52 2a 5c 50 2c 41 31 35 5c 52 45 54 55 52 4e 00 a4 00 28 00 06 00 50 2a 20 00 a4 00 42 00 06 00 50 2a 20 00 a4 ┆ LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RETURN ( P* B P* ┆
0x35c8…3618 00 4c 00 20 00 50 50 4f 49 4e 54 5c 44 41 54 41 5c 42 55 46 5c 4c 4f 47 47 20 50 4f 49 4e 54 45 52 20 00 a4 00 56 00 06 00 50 2a 20 00 a4 00 7a 00 1a 00 50 42 55 46 5c 52 45 53 5c 35 30 30 5c 4c 4f 47 47 20 41 52 45 41 20 00 a4 00 84 00 0e ┆ L PPOINT DATA BUF LOGG POINTER V P* z PBUF RES 500 LOGG AREA ┆
0x3618…3668 00 50 42 55 46 45 5c 45 51 55 5c 2a 00 a4 00 a2 00 06 00 50 2a 20 00 a4 00 b4 00 08 00 50 5c 58 49 46 00 a4 00 be 00 06 00 50 2a 20 00 a4 00 ca 00 0a 00 50 5c 45 4a 45 43 54 00 a4 00 d4 00 06 00 50 2a 20 00 a4 00 e2 00 06 00 50 2a 20 00 a4 ┆ PBUFE EQU * P* P XIF P* P EJECT P* P* ┆
0x3668…36b8 00 ec 00 1e 00 50 2a 20 20 20 20 45 20 43 20 48 20 4f 20 2c 20 45 20 43 20 48 20 45 20 4e 20 44 00 a4 00 f6 00 06 00 50 2a 20 00 a4 01 18 00 3c 00 50 2a 20 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 45 43 48 4f 20 43 48 41 52 41 43 ┆ P* E C H O , E C H E N D P* < P* SUBROUTINE TO ECHO CHARAC┆
0x36b8…3708 54 45 52 20 43 4f 4e 54 41 49 4e 49 4e 47 20 54 57 4f 20 50 41 52 54 53 2c 20 00 a4 01 22 00 2e 00 50 2a 20 20 20 20 4f 4e 45 20 47 45 4e 45 52 41 4c 20 41 4e 44 20 4f 4e 45 20 44 45 56 49 43 45 2d 44 45 50 45 4e 44 45 4e 54 20 00 a4 01 62 ┆TER CONTAINING TWO PARTS, " . P* ONE GENERAL AND ONE DEVICE-DEPENDENT b┆