|
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: 17212 (0x433c)
Notes: pts_type(SC)
Names: »LRPINT.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/LRPINT.SC«
IDENT LRPINT REL 11.0 81-01-26 870105041100 * * ************************************************** * * 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 * * THE FOLLOWING ENTRIES ARE USED TO QUEUE TASKS: * * -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH * * -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH * * -LKMQDI: QUEUE TASK 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 TASK AND DISPATCH ENTRY LKMSRC SET RETURN CODE IN A7 TO USER 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 ENTRY PFPOST PWF POST PROCESSING FLAG EJECT LRPINT * * ************* * EXTERNALS * ************* * * EXTRN TDISP DISPATCHER EXTRN DISQUE DISPATCHER QUEUE EXTRN PRUN TTAB OF RUNNING TASK EXTRN MEXIT MONITOR TASK EXIT EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE EXTRN QTJOB QUEUE TASK EXTRN QMJOB QUEUE MONITOR TASK 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 RELPAG RELEASE PAGE EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR 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 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * 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 MONCLK EQU 0. * X:A EQU 1 MONCLK EQU 1 * EJECT LRPINT * * * A PROGRAM VERSION SUPPORTING DATE FUNCTIONS * IS OBTAINED BY SETTING MONDAT = MONCLK = 1. * X:B EQU 0 MONDAT EQU 0 * * * A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS * ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA) * IS OBTAINED BY SETTING NETFRQ EQU 60. * NOTICE THAT THE DEFAULT VALUE SHOULD BE 50. * NETFRQ EQU 50 * 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 TASK * * - 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 TASK * A6 = LKM DATA DIRECTIVE * A2, A3 ARE DESTROYED * * ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING TASK * * 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 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 INSTRUCTION CODE LDR* A6,A2 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 INSTRUCTION CODE ELR A6,A2 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 * ADK A2,2 UPDATE DISPATCH ADDRESS * IFF MMUPAG+DSKPAG=0 CWK A6,9 CHECK DATA DIRECTIVE ABL(E) TLDSEG LOAD SEGMENT REQUEST XIF * IFT DSKPAG=1 LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS RF(Z) LKM030 NO SEGMENT LCR A4,A3 SEGMENT STATUS ANK A4,/5E CHECK IF CORE RESIDENT OR... RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK CF A15,RELPAG RELEASE PAGE XIF * EJECT LRPINT * * LKM030 EQU * CM PRUN INDICATE IDLE LOOP RUNNING CF A15,SWL48 SWITCH TO LEVEL 48 LDK A4,0 LDR A3,A6 DATA DIRECTIVE RF(NN) LKM050 NO LABEL * * LKM REQUEST WITH LABEL * IFT MMUPAG=0 LDR* A4,A2 LABEL XIF * IFT MMUPAG=1 ELR A4,A2 LABEL XIF * ADK A2,2 ADJUST DISPATCH ADDRESS NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE * EJECT LRPINT * * UPDATE TTB:SA AND GO TO LKM PROCESSOR * LKM050 EQU * ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS ADR A3,A3 INDEX IN LKMAL RF(Z) LKMQDI TASK SWITCH REQUEST CW A3,LKMAL RF(NL) LKMRQE INVALID DATA DIRECTIVE INH LD A3,LKMAL,A3 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 TASK AND DISPATCH. * * A5 = TTAB ADDRESS * * LKMRQE EQU * LDKL A2,-1 * * * L K M S R C * * SET A7 = A2, QUEUE TASK AND DISPATCH. * * A2 = RETURN CODE * A5 = TTAB ADDRESS * * LKMSRC EQU * ST A2,TTB:SA+14,A5 SET RETURN CODE IN SAVE AREA A7 EJECT * * * L K M Q D I * * QUEUE TASK 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 P F A R * * THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER. * DATA 0 SEGMENT BLOCK ADDRESS DATA 0 TTABPF DATA 0 TTAB FOR POWER FAIL DATA '#P' DATA 0 A15SAV DATA 0 DATA /00C0 DATA PFTASK PFX DATA 1 POWER ON/OFF INDICATOR P=POWER IS ON, N=POWER IS OFF INIFLG DATA 1 INITIALIZATION FLAG NZ=INITIALIZATION PFPOST DATA 0 PWF POST PROCESSING FLAG NZ=PWF POST PROCESSING 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-A14 ON STACK STR A9,A15 STR A10,A15 STR A11,A15 STR A12,A15 STR A13,A15 STR A14,A15 XIF IFT CPU852=0 MSR 14,A15 SAVE A1-A14 ON STACK XIF ST A15,A15SAV SAVE A15 FOR BETTER TIMES HLT EJECT LRPINT * * POWER ON * POWON LD A15,A15SAV RELOAD A15 IFT CPU852=1 LDR* A14,A15 RESTORE A9-A14 LDR* A13,A15 LDR* A12,A15 LDR* A11,A15 LDR* A10,A15 LDR* A9,A15 XIF IFT CPU852=0 MLR 14,A15 RESTORE A9-A14 MSR 8,A15 XIF LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING LDKL A2,TTABPF CWR A1,A2 RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST STR A1,A2 ST A2,DISQUE IM PFPOST INDICATE PWF POST PROCESSING RB T:DISP EJECT LRPINT * * POWER FAIL TASK * STARTED AFTER ALL PWF POST PROCESSING * PFTASK CM PFPOST CLEAR PWF POST PROC FLAG CM INIFLG AND INIT FLAG CF A15,PFINIT RESTART I/O DEVICES CM PRUN EXIT PFTASK RB T:DISP 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 * EJECT LRPINT * * IFT NETFRQ=50 LDKL A4,-4 SET 100 MS SWITCH ST A4,COUNT XIF * IFT NETFRQ=60 LDKL A4,-5 SET 100 MS SWITCH XIF * LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB CF A15,QMJOB * IFT MONCLK=1 IM SECOND RF(P) RTC025 UPDATE MONITOR CLOCK XIF * SWDISP EQU * CF A15,SWLXY SWITCH TO LEVEL XY RB T:DISP * EJECT LRPINT * * IFT MONCLK=1 * * MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. * RTC025 EQU * 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) SWDISP GO TO DISPATCHER CM MONCLO+2,A4 RESTART TIME COUNTER SUK A4,2 END RF(N) MCLO30 MIDNIGHT CARRY AND WE HAVE A NEW DAY RB(P) MCLO10 UPDATE MINUTES LDK A3,24 UPDATE HOURS RB MCLO20 * MCLO30 EQU * IM MCARRY INCREMENT MIDNIGHT CARRY * EJECT LRPINT * * IFT MONDAT=1 * * UPDATE DAY, MONTH AND YEAR * IFT CPU852=1 LDKL A1,MONTH MONTH ADDRESS LDKL A2,DAY DAY ADDRESS LDK A3,1 XIF * IFT MONCLK+MONDAT=2 IFT CPU852=0 MLK 3 DATA MONTH,DAY,1 MONTH AND DAY ADDRESS TO A1 AND A2 XIF * IFT MONCLK+MONDAT=2 IMR A2 INCREMENT DAY LDR* A4,A1 MONTH LDR A6,A4 LDR* A5,A2 NEW DAY SUK A5,29 CHECK IF DAY WAS 28 RF(Z) MCLO40 YES, GO AND CHECK IF FEBRUARY SUK A5,2 CHECK IF DAY WAS 30 RF(Z) MCLO60 YES SUK A5,1 CHECK IF DAY WAS 31 RB(NZ) SWDISP NO, RETURN RF MCLO50 YES, WE HAVE A NEW MONTH * MCLO40 EQU * SUK A6,2 CHECK IF FEBRUARY RB(NZ) SWDISP NO, RETURN * EJECT LRPINT * * CHANGE TO NEW MONTH (AND YEAR?) * * MCLO50 EQU * STR A3,A2 SET DAY := 1 IMR A1 INCREMENT MONTH SUK A4,12 CHECK IF MONTH WAS DECEMBER RB(NZ) SWDISP NO, RETURN STR A3,A1 SET MONTH TO JANUARY IM YEAR HAPPY NEW YEAR!!! RB SWDISP RETURN * MCLO60 EQU * LDR A7,A6 MONTH ANK A6,1 RF(Z) MCLO70 MONTH EVEN SUK A7,7 RB(P) MCLO50 SEPTEMBER OR NOVEMBER RB SWDISP JANUARY, MARCH, MAY OR JULY * MCLO70 EQU * SUK A7,7 RB(N) MCLO50 APRIL OR JUNE XIF * IFT MONCLK=1 RB SWDISP RETURN XIF * EJECT LRPINT * * * M O N C L O * * IFT MONCLK+MONDAT=2 DATA 0 THIS WORD USED BY MONTIM (TDATE) YEAR DATA 0 MONTH DATA 0 DAY DATA 0 XIF * MONCLO EQU * IFT MONCLK=1 MCARRY DATA 0 ACKUMULATED 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 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 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 * LDKL A1,/C4C0 LEVEL 49 AND ENABLE ST A1,18,A15 SET NEW PSW ON STACK LD A2,2,A4 LOAD DISP BLOCK LD A1,4,A2 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 * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT LRPINT 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…008c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00fc Head {h00=0x0030, h01=0x0050, text=»* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC«, t00=0x0000, t01=0x00cc}
0x00fc…0122 Head {h00=0x0022, h01=0x0050, text=»* AND POWER FAILURE«, t00=0x0000, t01=0x0100}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…018e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0158}
0x018e…0198 (1, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01e0 Head {h00=0x003a, h01=0x0050, text=»* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS «, t00=0x0001, t01=0x0018}
0x01e0…0200 Head {h00=0x001c, h01=0x0050, text=»* FOR TOSS. THESE ARE:«, t00=0x0001, t01=0x0056}
0x0200…020a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020a…022c Head {h00=0x001e, h01=0x0050, text=»* -IHLKM: LKM INTERRUPT«, t00=0x0001, t01=0x0080}
0x022c…0236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0236…0258 Head {h00=0x001e, h01=0x0050, text=»* -IHRTC: RTC INTERRUPT«, t00=0x0001, t01=0x00ac}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0262…028e Head {h00=0x0028, h01=0x0050, text=»* -IHPFAR: POWER FAILURE INTERRUPT«, t00=0x0001, t01=0x00d8}
0x028e…0298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x0298…02d2 Head {h00=0x0036, h01=0x0050, text=»* THE FOLLOWING ENTRIES ARE USED TO QUEUE TASKS:«, t00=0x0001, t01=0x010e}
0x02d2…02dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0148}
0x02dc…0316 Head {h00=0x0036, h01=0x0050, text=»* -LKMRQE: SET A7 = -1, QUEUE TASK AND DISPATCH «, t00=0x0001, t01=0x0152}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0320…036c Head {h00=0x0048, h01=0x0050, text=»* -LKMSRC: SET A7 TO RETURN CODE (C(A2)), QUEUE TASK AND DISPATCH «, t00=0x0002, t01=0x0008}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x0376…03a2 Head {h00=0x0028, h01=0x0050, text=»* -LKMQDI: QUEUE TASK AND DISPATCH«, t00=0x0002, t01=0x005e}
0x03a2…03ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03ac…03c4 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0002, t01=0x0094}
0x03c4…03ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ac}
0x03ce…03d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b6}
0x03d8…03ec Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00c0}
0x03ec…0400 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00d4}
0x0400…0414 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00e8}
0x0414…041e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x041e…0428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x0428…0452 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHLKM LKM INTERRUPT HANDLER«, t00=0x0002, t01=0x0110}
0x0452…048a Head {h00=0x0034, h01=0x0050, text=» ENTRY LKM030 SPECIAL TLDSEG REQUEST ERROR ENTRY«, t00=0x0002, t01=0x013a}
0x048a…04b2 Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0172}
0x04b2…04ea Head {h00=0x0034, h01=0x0050, text=» ENTRY LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0003, t01=0x000a}
0x04ea…0518 Head {h00=0x002a, h01=0x0050, text=» ENTRY LKMQDI QUEUE TASK AND DISPATCH «, t00=0x0003, t01=0x0042}
0x0518…054c Head {h00=0x0030, h01=0x0050, text=» ENTRY LKMSRC SET RETURN CODE IN A7 TO USER «, t00=0x0003, t01=0x0070}
0x054c…0576 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHRTC RTC INTERRUPT HANDLER«, t00=0x0003, t01=0x00a4}
0x0576…05b2 Head {h00=0x0038, h01=0x0050, text=» ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x00ce}
0x05b2…05d6 Head {h00=0x0020, h01=0x0050, text=» ENTRY MONCLO MONITOR CLOCK «, t00=0x0003, t01=0x010a}
0x05d6…060c Head {h00=0x0032, h01=0x0050, text=» ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER «, t00=0x0003, t01=0x012e}
0x060c…0636 Head {h00=0x0026, h01=0x0050, text=» ENTRY INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x0164}
0x0636…0664 Head {h00=0x002a, h01=0x0050, text=» ENTRY PFPOST PWF POST PROCESSING FLAG«, t00=0x0003, t01=0x018e}
0x0664…067c Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0004, t01=0x002c}
0x067c…0686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0044}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004e}
0x0690…06a6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0058}
0x06a6…06bc Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x006e}
0x06bc…06d2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0084}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009a}
0x06dc…06e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06e6…0706 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00ae}
0x0706…072c Head {h00=0x0022, h01=0x0050, text=» EXTRN DISQUE DISPATCHER QUEUE«, t00=0x0004, t01=0x00ce}
0x072c…0754 Head {h00=0x0024, h01=0x0050, text=» EXTRN PRUN TTAB OF RUNNING TASK«, t00=0x0004, t01=0x00f4}
0x0754…077a Head {h00=0x0022, h01=0x0050, text=» EXTRN MEXIT MONITOR TASK EXIT«, t00=0x0004, t01=0x011c}
0x077a…07aa Head {h00=0x002c, h01=0x0050, text=» EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE«, t00=0x0004, t01=0x0142}
0x07aa…07ca Head {h00=0x001c, h01=0x0050, text=» EXTRN QTJOB QUEUE TASK «, t00=0x0004, t01=0x0172}
0x07ca…07f2 (5, 0, 400) Head {h00=0x0024, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR TASK «, t00=0x0005, t01=0x0004}
0x07f2…081a Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0005, t01=0x002c}
0x081a…0842 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0005, t01=0x0054}
0x0842…0866 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK SET BLOCK FREE«, t00=0x0005, t01=0x007c}
0x0866…088c Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0005, t01=0x00a0}
0x088c…08b4 Head {h00=0x0024, h01=0x0050, text=» EXTRN PFINIT RESTART OF DEVICES«, t00=0x0005, t01=0x00c6}
0x08b4…08d4 Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT HALT MODULE «, t00=0x0005, t01=0x00ee}
0x08d4…0900 Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE MODULE «, t00=0x0005, t01=0x010e}
0x0900…0922 Head {h00=0x001e, h01=0x0050, text=» EXTRN RELPAG RELEASE PAGE«, t00=0x0005, t01=0x013a}
0x0922…0952 Head {h00=0x002c, h01=0x0050, text=» EXTRN TLDSEG LOAD SEGMENT LKM PROCESSOR«, t00=0x0005, t01=0x015c}
0x0952…097e Head {h00=0x0028, h01=0x0050, text=» EXTRN TTB:SB SEGMENT BLOCK POINTER «, t00=0x0005, t01=0x018c}
0x097e…09a8 Head {h00=0x0026, h01=0x0050, text=» EXTRN TTB:PW PROGRAM STATUS WORD «, t00=0x0006, t01=0x0028}
0x09a8…09de Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB «, t00=0x0006, t01=0x0052}
0x09de…0a04 Head {h00=0x0022, h01=0x0050, text=» EXTRN LKMAL LKM REQUEST TABLE«, t00=0x0006, t01=0x0088}
0x0a04…0a1c Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0006, t01=0x00ae}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a26…0a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a30…0a62 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x00da}
0x0a62…0a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010c}
0x0a6c…0a8a Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x0116}
0x0a8a…0a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a94…0ac6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x013e}
0x0ac6…0ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0170}
0x0ad0…0b02 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x017a}
0x0b02…0b30 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x001c}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3a…0b4e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0054}
0x0b4e…0b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b58…0b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0072}
0x0b62…0b9c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x007c}
0x0b9c…0bce Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x00b6}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bd8…0bec Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0007, t01=0x00f2}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bf6…0c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c00…0c32 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0007, t01=0x011a}
0x0c32…0c60 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x014c}
0x0c60…0c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c6a…0c7e Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0007, t01=0x0184}
0x0c7e…0c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c88…0c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c92…0cce Head {h00=0x0038, h01=0x0050, text=»* A PROGRAM VERSION USING NO MONITOR CLOCK FUNCTIONS«, t00=0x0008, t01=0x001c}
0x0cce…0cfc Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MONCLK EQU 0.«, t00=0x0008, t01=0x0058}
0x0cfc…0d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d06…0d18 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0090}
0x0d18…0d2c Head {h00=0x0010, h01=0x0050, text=»MONCLK EQU 1«, t00=0x0008, t01=0x00a2}
0x0d2c…0d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d36…0d4e Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0008, t01=0x00c0}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d58…0d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d62…0d98 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATE FUNCTIONS «, t00=0x0008, t01=0x00ec}
0x0d98…0dce Head {h00=0x0032, h01=0x0050, text=»* IS OBTAINED BY SETTING MONDAT = MONCLK = 1. «, t00=0x0008, t01=0x0122}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0dd8…0dea Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0162}
0x0dea…0dfe Head {h00=0x0010, h01=0x0050, text=»MONDAT EQU 0«, t00=0x0008, t01=0x0174}
0x0dfe…0e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0188}
0x0e08…0e12 (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e12…0e4a Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION WITH MONITOR CLOCK FUNCTIONS«, t00=0x0009, t01=0x000e}
0x0e4a…0e82 Head {h00=0x0034, h01=0x0050, text=»* ADAPTED TO 60 HERTZ NET FREQUENCY (USA/CANADA)«, t00=0x0009, t01=0x0046}
0x0e82…0eb2 Head {h00=0x002c, h01=0x0050, text=»* IS OBTAINED BY SETTING NETFRQ EQU 60. «, t00=0x0009, t01=0x007e}
0x0eb2…0ee8 Head {h00=0x0032, h01=0x0050, text=»* NOTICE THAT THE DEFAULT VALUE SHOULD BE 50. «, t00=0x0009, t01=0x00ae}
0x0ee8…0ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e4}
0x0ef2…0f08 Head {h00=0x0012, h01=0x0050, text=»NETFRQ EQU 50 «, t00=0x0009, t01=0x00ee}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f12…0f2a Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0009, t01=0x010e}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0126}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0130}
0x0f3e…0f54 Head {h00=0x0012, h01=0x0050, text=»* I H L K M «, t00=0x0009, t01=0x013a}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0150}
0x0f5e…0f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f68…0fa4 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING«, t00=0x0009, t01=0x0164}
0x0fa4…0fc6 Head {h00=0x001e, h01=0x0050, text=»* STEPS ARE CARRIED OUT:«, t00=0x000a, t01=0x0010}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd0…0ffe Head {h00=0x002a, h01=0x0050, text=»* - IF STACK OVERFLOW SYSTEM HALTS. «, t00=0x000a, t01=0x003c}
0x0ffe…1008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x1008…1050 Head {h00=0x0044, h01=0x0050, text=»* - ELSE REGISTERS A1 - A14 ARE SAVED IN TTAB FOR RUNNING TASK«, t00=0x000a, t01=0x0074}
0x1050…105a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x105a…1098 Head {h00=0x003a, h01=0x0050, text=»* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO «, t00=0x000a, t01=0x00c6}
0x1098…10c0 Head {h00=0x0024, h01=0x0050, text=»* APPROPRIATE LKM PROCESSOR.«, t00=0x000a, t01=0x0104}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10ca…10ea Head {h00=0x001c, h01=0x0050, text=»* EXIT CONDITIONS ARE:«, t00=0x000a, t01=0x0136}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0156}
0x10f4…1122 Head {h00=0x002a, h01=0x0050, text=»* A4 = LABEL ADDRESS OF LKM REQUEST «, t00=0x000a, t01=0x0160}
0x1122…115e Head {h00=0x0038, h01=0x0050, text=»* (A4 = 0 INDICATES NO LABEL IN LKM REQUEST) «, t00=0x000a, t01=0x018e}
0x115e…118c Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x000b, t01=0x003a}
0x118c…11b0 Head {h00=0x0020, h01=0x0050, text=»* A6 = LKM DATA DIRECTIVE «, t00=0x000b, t01=0x0068}
0x11b0…11d0 Head {h00=0x001c, h01=0x0050, text=»* A2, A3 ARE DESTROYED«, t00=0x000b, t01=0x008c}
0x11d0…11da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11da…121c Head {h00=0x003e, h01=0x0050, text=»* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING TASK«, t00=0x000b, t01=0x00b6}
0x121c…1226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f8}
0x1226…1230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1230…1244 Head {h00=0x0010, h01=0x0050, text=»IHLKM EQU * «, t00=0x000b, t01=0x010c}
0x1244…126c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x000b, t01=0x0120}
0x126c…129a Head {h00=0x002a, h01=0x0050, text=» RIT /1D RESET INTERNAL INTERRUPT FLAG«, t00=0x000b, t01=0x0148}
0x129a…12a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0176}
0x12a4…12bc Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x000b, t01=0x0180}
0x12bc…12c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d0…12f0 Head {h00=0x001c, h01=0x0050, text=» ST A15,LKM010 SAVE A15 «, t00=0x000c, t01=0x001c}
0x12f0…1316 Head {h00=0x0022, h01=0x0050, text=» LD A15,PRUN LOAD TTAB ADDRESS«, t00=0x000c, t01=0x003c}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1320…1336 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000c, t01=0x006c}
0x1336…136e Head {h00=0x0034, h01=0x0050, text=» ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA«, t00=0x000c, t01=0x0082}
0x136e…139c Head {h00=0x002a, h01=0x0050, text=» STR A14,A15 SAVE USER REGISTERS, -A14«, t00=0x000c, t01=0x00ba}
0x139c…13b6 Head {h00=0x0016, h01=0x0050, text=» STR A13,A15 -A13 «, t00=0x000c, t01=0x00e8}
0x13b6…13d0 Head {h00=0x0016, h01=0x0050, text=» STR A12,A15 -A12 «, t00=0x000c, t01=0x0102}
0x13d0…13ea Head {h00=0x0016, h01=0x0050, text=» STR A11,A15 -A11 «, t00=0x000c, t01=0x011c}
0x13ea…1404 Head {h00=0x0016, h01=0x0050, text=» STR A10,A15 -A10 «, t00=0x000c, t01=0x0136}
0x1404…141c Head {h00=0x0014, h01=0x0050, text=» STR A9,A15 -A9 «, t00=0x000c, t01=0x0150}
0x141c…1434 Head {h00=0x0014, h01=0x0050, text=» STR A8,A15 -A8 «, t00=0x000c, t01=0x0168}
0x1434…144c Head {h00=0x0014, h01=0x0050, text=» STR A7,A15 -A7 «, t00=0x000c, t01=0x0180}
0x144c…1464 Head {h00=0x0014, h01=0x0050, text=» STR A6,A15 -A6 «, t00=0x000d, t01=0x0008}
0x1464…147c Head {h00=0x0014, h01=0x0050, text=» STR A5,A15 -A5 «, t00=0x000d, t01=0x0020}
0x147c…1494 Head {h00=0x0014, h01=0x0050, text=» STR A4,A15 -A4 «, t00=0x000d, t01=0x0038}
0x1494…14ac Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 -A3 «, t00=0x000d, t01=0x0050}
0x14ac…14c4 Head {h00=0x0014, h01=0x0050, text=» STR A2,A15 -A2 «, t00=0x000d, t01=0x0068}
0x14c4…14dc Head {h00=0x0014, h01=0x0050, text=» STR A1,A15 -A1 «, t00=0x000d, t01=0x0080}
0x14dc…14e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0098}
0x14e8…14f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14f2…1508 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000d, t01=0x00ae}
0x1508…1542 Head {h00=0x0036, h01=0x0050, text=» MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA «, t00=0x000d, t01=0x00c4}
0x1542…154e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00fe}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x1558…1588 Head {h00=0x002c, h01=0x0050, text=» LD A5,PRUN TTAB ADDRESS OF CALLING TASK«, t00=0x000d, t01=0x0114}
0x1588…15b6 Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x000d, t01=0x0144}
0x15b6…15cc Head {h00=0x0012, h01=0x0050, text=»LKM010 EQU *-2«, t00=0x000d, t01=0x0172}
0x15cc…15d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0188}
0x15d6…15ee (14, 0, 398) Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x000e, t01=0x0004}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15f8…161e Head {h00=0x0022, h01=0x0050, text=»* GET LKM REQUEST PARAMETERS«, t00=0x000e, t01=0x0026}
0x161e…1628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1628…163c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x000e, t01=0x0056}
0x163c…1674 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER «, t00=0x000e, t01=0x006a}
0x1674…169e Head {h00=0x0026, h01=0x0050, text=» ST A3,TTB:PW,A5 STORE PSW IN TTAB«, t00=0x000e, t01=0x00a2}
0x169e…16a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16a8…16be Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000e, t01=0x00d6}
0x16be…16e4 Head {h00=0x0022, h01=0x0050, text=» LD A3,-2,A2 INSTRUCTION CODE «, t00=0x000e, t01=0x00ec}
0x16e4…1706 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A2 DATA DIRECTIVE«, t00=0x000e, t01=0x0112}
0x1706…1712 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0134}
0x1712…171c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0140}
0x171c…1732 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x014a}
0x1732…1744 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x000e, t01=0x0160}
0x1744…1764 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) LKM015 USER MODE«, t00=0x000e, t01=0x0172}
0x1764…1792 (15, 0, 400) Head {h00=0x002a, h01=0x0050, text=» TL MONMMU NO, LOAD MONITOR MMU TABLE «, t00=0x000f, t01=0x0004}
0x1792…179c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0032}
0x179c…17b0 Head {h00=0x0010, h01=0x0050, text=»LKM015 EQU *«, t00=0x000f, t01=0x003c}
0x17b0…17d6 Head {h00=0x0022, h01=0x0050, text=» EL A3,-2,A2 INSTRUCTION CODE«, t00=0x000f, t01=0x0050}
0x17d6…17f8 Head {h00=0x001e, h01=0x0050, text=» ELR A6,A2 DATA DIRECTIVE «, t00=0x000f, t01=0x0076}
0x17f8…1804 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0098}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x180e…1824 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/2804 «, t00=0x000f, t01=0x00ae}
0x1824…183e Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 LKM «, t00=0x000f, t01=0x00c4}
0x183e…1854 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/6300 «, t00=0x000f, t01=0x00de}
0x1854…186e Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 TRAP«, t00=0x000f, t01=0x00f4}
0x186e…1878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1878…18a0 Head {h00=0x0024, h01=0x0050, text=»* STACK OVERFLOW: HALT SYSTEM «, t00=0x000f, t01=0x0118}
0x18a0…18aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18aa…18ca Head {h00=0x001c, h01=0x0050, text=» LDK A1,7 HALT PARAMETER«, t00=0x000f, t01=0x014a}
0x18ca…18fe Head {h00=0x0030, h01=0x0050, text=» RF LKM070 HALT SYSTEM DUE TO STACK OVERFLOW«, t00=0x000f, t01=0x016a}
0x18fe…1908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x1908…1920 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0010, t01=0x0018}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0030}
0x192a…1934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x1934…1948 Head {h00=0x0010, h01=0x0050, text=»LKM025 EQU *«, t00=0x0010, t01=0x0044}
0x1948…1972 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 UPDATE DISPATCH ADDRESS «, t00=0x0010, t01=0x0058}
0x1972…197c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0082}
0x197c…1998 Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0010, t01=0x008c}
0x1998…19be Head {h00=0x0022, h01=0x0050, text=» CWK A6,9 CHECK DATA DIRECTIVE«, t00=0x0010, t01=0x00a8}
0x19be…19ea Head {h00=0x0028, h01=0x0050, text=» ABL(E) TLDSEG LOAD SEGMENT REQUEST «, t00=0x0010, t01=0x00ce}
0x19ea…19f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00fa}
0x19f6…1a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a00…1a16 Head {h00=0x0012, h01=0x0050, text=» IFT DSKPAG=1 «, t00=0x0010, t01=0x0110}
0x1a16…1a44 Head {h00=0x002a, h01=0x0050, text=» LD A3,TTB:SB,A5 SEGMENT BLOCK ADDRESS«, t00=0x0010, t01=0x0126}
0x1a44…1a64 Head {h00=0x001c, h01=0x0050, text=» RF(Z) LKM030 NO SEGMENT«, t00=0x0010, t01=0x0154}
0x1a64…1a86 Head {h00=0x001e, h01=0x0050, text=» LCR A4,A3 SEGMENT STATUS «, t00=0x0010, t01=0x0174}
0x1a86…1ab6 Head {h00=0x002c, h01=0x0050, text=» ANK A4,/5E CHECK IF CORE RESIDENT OR...«, t00=0x0011, t01=0x0008}
0x1ab6…1aec Head {h00=0x0032, h01=0x0050, text=» RF(NZ) LKM030 ...USED BY AN INTERRUPTED TASK «, t00=0x0011, t01=0x0038}
0x1aec…1b10 Head {h00=0x0020, h01=0x0050, text=» CF A15,RELPAG RELEASE PAGE «, t00=0x0011, t01=0x006e}
0x1b10…1b1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0092}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b26…1b3e Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0011, t01=0x00a8}
0x1b3e…1b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b48…1b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b52…1b66 Head {h00=0x0010, h01=0x0050, text=»LKM030 EQU *«, t00=0x0011, t01=0x00d4}
0x1b66…1b92 Head {h00=0x0028, h01=0x0050, text=» CM PRUN INDICATE IDLE LOOP RUNNING «, t00=0x0011, t01=0x00e8}
0x1b92…1bba Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x0011, t01=0x0114}
0x1bba…1bcc Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0011, t01=0x013c}
0x1bcc…1bee Head {h00=0x001e, h01=0x0050, text=» LDR A3,A6 DATA DIRECTIVE «, t00=0x0011, t01=0x014e}
0x1bee…1c0e Head {h00=0x001c, h01=0x0050, text=» RF(NN) LKM050 NO LABEL «, t00=0x0011, t01=0x0170}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c18…1c3a Head {h00=0x001e, h01=0x0050, text=»* LKM REQUEST WITH LABEL«, t00=0x0012, t01=0x000a}
0x1c3a…1c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002c}
0x1c44…1c5a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0036}
0x1c5a…1c74 Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A2 LABEL «, t00=0x0012, t01=0x004c}
0x1c74…1c80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0066}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c8a…1ca0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x007c}
0x1ca0…1cb8 Head {h00=0x0014, h01=0x0050, text=» ELR A4,A2 LABEL«, t00=0x0012, t01=0x0092}
0x1cb8…1cc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00aa}
0x1cc4…1cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b6}
0x1cce…1cf8 Head {h00=0x0026, h01=0x0050, text=» ADK A2,2 ADJUST DISPATCH ADDRESS «, t00=0x0012, t01=0x00c0}
0x1cf8…1d28 Head {h00=0x002c, h01=0x0050, text=» NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE «, t00=0x0012, t01=0x00ea}
0x1d28…1d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d32…1d4a Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0012, t01=0x0124}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013c}
0x1d54…1d86 Head {h00=0x002e, h01=0x0050, text=»* UPDATE TTB:SA AND GO TO LKM PROCESSOR «, t00=0x0012, t01=0x0146}
0x1d86…1d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d90…1da4 Head {h00=0x0010, h01=0x0050, text=»LKM050 EQU *«, t00=0x0012, t01=0x0182}
0x1da4…1dd6 Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA,A5 SET NEXT DISPATCH ADDRESS«, t00=0x0013, t01=0x0008}
0x1dd6…1df8 Head {h00=0x001e, h01=0x0050, text=» ADR A3,A3 INDEX IN LKMAL «, t00=0x0013, t01=0x003a}
0x1df8…1e22 Head {h00=0x0026, h01=0x0050, text=» RF(Z) LKMQDI TASK SWITCH REQUEST «, t00=0x0013, t01=0x005c}
0x1e22…1e36 Head {h00=0x0010, h01=0x0050, text=» CW A3,LKMAL«, t00=0x0013, t01=0x0086}
0x1e36…1e64 Head {h00=0x002a, h01=0x0050, text=» RF(NL) LKMRQE INVALID DATA DIRECTIVE «, t00=0x0013, t01=0x009a}
0x1e64…1e70 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0013, t01=0x00c8}
0x1e70…1e88 Head {h00=0x0014, h01=0x0050, text=» LD A3,LKMAL,A3 «, t00=0x0013, t01=0x00d4}
0x1e88…1eb4 Head {h00=0x0028, h01=0x0050, text=» ABR(NZ) A3 BRANCH TO LKM PROCESSOR «, t00=0x0013, t01=0x00ec}
0x1eb4…1ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1ebe…1ed6 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0013, t01=0x0122}
0x1ed6…1ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0144}
0x1eea…1f02 Head {h00=0x0014, h01=0x0050, text=»* L K M E R R «, t00=0x0013, t01=0x014e}
0x1f02…1f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0166}
0x1f0c…1f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0170}
0x1f16…1f58 Head {h00=0x003e, h01=0x0050, text=»LKMERR LDK A1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT «, t00=0x0013, t01=0x017a}
0x1f58…1f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x002c}
0x1f62…1f76 Head {h00=0x0010, h01=0x0050, text=»LKM070 EQU *«, t00=0x0014, t01=0x0036}
0x1f76…1f96 Head {h00=0x001c, h01=0x0050, text=» CF A15,HALT HALT SYSTEM«, t00=0x0014, t01=0x004a}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006a}
0x1fa0…1faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0074}
0x1faa…1fc2 Head {h00=0x0014, h01=0x0050, text=»* L K M R Q E «, t00=0x0014, t01=0x007e}
0x1fc2…1fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0096}
0x1fcc…1ffe Head {h00=0x002e, h01=0x0050, text=»* SET A7 = -1, QUEUE TASK AND DISPATCH. «, t00=0x0014, t01=0x00a0}
0x1ffe…2008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d2}
0x2008…2026 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0014, t01=0x00dc}
0x2026…2030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fa}
0x2030…203a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0104}
0x203a…204e Head {h00=0x0010, h01=0x0050, text=»LKMRQE EQU *«, t00=0x0014, t01=0x010e}
0x204e…2062 Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0014, t01=0x0122}
0x2062…206c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0136}
0x206c…2076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x2076…208e Head {h00=0x0014, h01=0x0050, text=»* L K M S R C «, t00=0x0014, t01=0x014a}
0x208e…2098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0162}
0x2098…20ca Head {h00=0x002e, h01=0x0050, text=»* SET A7 = A2, QUEUE TASK AND DISPATCH. «, t00=0x0014, t01=0x016c}
0x20ca…20d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20d4…20f0 Head {h00=0x0018, h01=0x0050, text=»* A2 = RETURN CODE«, t00=0x0015, t01=0x0018}
0x20f0…210e Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0015, t01=0x0034}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2118…2122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x2122…2136 Head {h00=0x0010, h01=0x0050, text=»LKMSRC EQU *«, t00=0x0015, t01=0x0066}
0x2136…2172 Head {h00=0x0038, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET RETURN CODE IN SAVE AREA A7 «, t00=0x0015, t01=0x007a}
0x2172…2180 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00b6}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x218a…2194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x2194…21ac Head {h00=0x0014, h01=0x0050, text=»* L K M Q D I «, t00=0x0015, t01=0x00d8}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21b6…21da Head {h00=0x0020, h01=0x0050, text=»* QUEUE TASK AND DISPATCH.«, t00=0x0015, t01=0x00fa}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011e}
0x21e4…2202 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0015, t01=0x0128}
0x2202…220c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x2216…222a Head {h00=0x0010, h01=0x0050, text=»LKMQDI EQU *«, t00=0x0015, t01=0x015a}
0x222a…2240 Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x0015, t01=0x016e}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x224a…2278 Head {h00=0x002a, h01=0x0050, text=»T:DISP EQU * COMMON EXIT TO DISPATCHER«, t00=0x0015, t01=0x018e}
0x2278…229c Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0016, t01=0x002c}
0x229c…22a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0050}
0x22a6…22be Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0016, t01=0x005a}
0x22be…22c6 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0072}
0x22c6…22d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007a}
0x22d0…22e8 Head {h00=0x0014, h01=0x0050, text=»* I H P F A R «, t00=0x0016, t01=0x0084}
0x22e8…22f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009c}
0x22f2…2334 Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER.«, t00=0x0016, t01=0x00a6}
0x2334…233e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e8}
0x233e…2346 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00f2}
0x2346…234e Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00fa}
0x234e…2356 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0102}
0x2356…237c Head {h00=0x0022, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS «, t00=0x0016, t01=0x010a}
0x237c…238c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0016, t01=0x0130}
0x238c…23b6 Head {h00=0x0026, h01=0x0050, text=»TTABPF DATA 0 TTAB FOR POWER FAIL «, t00=0x0016, t01=0x0140}
0x23b6…23c8 Head {h00=0x000e, h01=0x0050, text=» DATA '#P'«, t00=0x0016, t01=0x016a}
0x23c8…23d8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0016, t01=0x017c}
0x23d8…23ee Head {h00=0x0012, h01=0x0050, text=»A15SAV DATA 0 «, t00=0x0016, t01=0x018c}
0x23ee…2402 Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x0017, t01=0x0012}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=» DATA PFTASK«, t00=0x0017, t01=0x0026}
0x2416…241e Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x003a}
0x241e…2426 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0042}
0x2426…242e Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x004a}
0x242e…2436 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0052}
0x2436…243e Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x005a}
0x243e…2468 Head {h00=0x0026, h01=0x0050, text=»PFX DATA 1 POWER ON/OFF INDICATOR «, t00=0x0017, t01=0x0062}
0x2468…2490 Head {h00=0x0024, h01=0x0050, text=» P=POWER IS ON, N=POWER IS OFF«, t00=0x0017, t01=0x008c}
0x2490…2498 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00b4}
0x2498…24c2 Head {h00=0x0026, h01=0x0050, text=»INIFLG DATA 1 INITIALIZATION FLAG «, t00=0x0017, t01=0x00bc}
0x24c2…24de Head {h00=0x0018, h01=0x0050, text=» NZ=INITIALIZATION«, t00=0x0017, t01=0x00e6}
0x24de…24e6 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0102}
0x24e6…2514 Head {h00=0x002a, h01=0x0050, text=»PFPOST DATA 0 PWF POST PROCESSING FLAG«, t00=0x0017, t01=0x010a}
0x2514…2536 Head {h00=0x001e, h01=0x0050, text=» NZ=PWF POST PROCESSING «, t00=0x0017, t01=0x0138}
0x2536…254e Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0017, t01=0x015a}
0x254e…2556 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0172}
0x2556…2560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x017a}
0x2560…258e Head {h00=0x002a, h01=0x0050, text=»* POWER FAIL/AUTO RESTART INTERRUPT «, t00=0x0017, t01=0x0184}
0x258e…2598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0022}
0x2598…25a0 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x002c}
0x25a0…25b6 Head {h00=0x0012, h01=0x0050, text=»IHPFAR EQU * «, t00=0x0018, t01=0x0034}
0x25b6…25de Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0018, t01=0x004a}
0x25de…2608 Head {h00=0x0026, h01=0x0050, text=» RIT /17 RESET INTERNAL INTERRUPT «, t00=0x0018, t01=0x0072}
0x2608…2632 Head {h00=0x0026, h01=0x0050, text=» C1S PFX INDICATE POWER ON OR OFF «, t00=0x0018, t01=0x009c}
0x2632…2650 Head {h00=0x001a, h01=0x0050, text=» RF(P) POWON POWER ON «, t00=0x0018, t01=0x00c6}
0x2650…265a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x265a…2670 Head {h00=0x0012, h01=0x0050, text=»* POWER OFF «, t00=0x0018, t01=0x00ee}
0x2670…267a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0104}
0x267a…2690 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0018, t01=0x010e}
0x2690…26ba Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A14 ON STACK«, t00=0x0018, t01=0x0124}
0x26ba…26ce Head {h00=0x0010, h01=0x0050, text=» STR A9,A15 «, t00=0x0018, t01=0x014e}
0x26ce…26e2 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x0018, t01=0x0162}
0x26e2…26f6 Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x0018, t01=0x0176}
0x26f6…270a Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0018, t01=0x018a}
0x270a…271e Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0019, t01=0x000e}
0x271e…2732 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0019, t01=0x0022}
0x2732…273e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0036}
0x273e…2746 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0042}
0x2746…275c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x004a}
0x275c…2784 Head {h00=0x0024, h01=0x0050, text=» MSR 14,A15 SAVE A1-A14 ON STACK«, t00=0x0019, t01=0x0060}
0x2784…2790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0088}
0x2790…2798 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0094}
0x2798…27c8 Head {h00=0x002c, h01=0x0050, text=» ST A15,A15SAV SAVE A15 FOR BETTER TIMES«, t00=0x0019, t01=0x009c}
0x27c8…27d4 Head {h00=0x0008, h01=0x0050, text=» HLT«, t00=0x0019, t01=0x00cc}
0x27d4…27ec Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0019, t01=0x00d8}
0x27ec…27f4 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00f0}
0x27f4…27fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x27fe…2812 Head {h00=0x0010, h01=0x0050, text=»* POWER ON«, t00=0x0019, t01=0x0102}
0x2812…281c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0116}
0x281c…2824 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0120}
0x2824…284a Head {h00=0x0022, h01=0x0050, text=»POWON LD A15,A15SAV RELOAD A15«, t00=0x0019, t01=0x0128}
0x284a…2852 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x014e}
0x2852…2868 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0156}
0x2868…288c Head {h00=0x0020, h01=0x0050, text=» LDR* A14,A15 RESTORE A9-A14«, t00=0x0019, t01=0x016c}
0x288c…28a2 Head {h00=0x0012, h01=0x0050, text=» LDR* A13,A15 «, t00=0x0019, t01=0x0190}
0x28a2…28b8 Head {h00=0x0012, h01=0x0050, text=» LDR* A12,A15 «, t00=0x001a, t01=0x0016}
0x28b8…28ce Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A15 «, t00=0x001a, t01=0x002c}
0x28ce…28e4 Head {h00=0x0012, h01=0x0050, text=» LDR* A10,A15 «, t00=0x001a, t01=0x0042}
0x28e4…28f8 Head {h00=0x0010, h01=0x0050, text=» LDR* A9,A15«, t00=0x001a, t01=0x0058}
0x28f8…2904 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x006c}
0x2904…290c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0078}
0x290c…2922 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001a, t01=0x0080}
0x2922…2944 Head {h00=0x001e, h01=0x0050, text=» MLR 14,A15 RESTORE A9-A14«, t00=0x001a, t01=0x0096}
0x2944…2956 Head {h00=0x000e, h01=0x0050, text=» MSR 8,A15«, t00=0x001a, t01=0x00b8}
0x2956…2962 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00ca}
0x2962…296a Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00d6}
0x296a…29a2 Head {h00=0x0034, h01=0x0050, text=» LD A1,DISQUE QUEUE PFTASK FIRST FOR DISPATCHING«, t00=0x001a, t01=0x00de}
0x29a2…29ba Head {h00=0x0014, h01=0x0050, text=» LDKL A2,TTABPF «, t00=0x001a, t01=0x0116}
0x29ba…29cc Head {h00=0x000e, h01=0x0050, text=» CWR A1,A2«, t00=0x001a, t01=0x012e}
0x29cc…2a04 Head {h00=0x0034, h01=0x0050, text=» RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST «, t00=0x001a, t01=0x0140}
0x2a04…2a16 Head {h00=0x000e, h01=0x0050, text=» STR A1,A2«, t00=0x001a, t01=0x0178}
0x2a16…2a2c Head {h00=0x0012, h01=0x0050, text=» ST A2,DISQUE «, t00=0x001a, t01=0x018a}
0x2a2c…2a5c Head {h00=0x002c, h01=0x0050, text=» IM PFPOST INDICATE PWF POST PROCESSING «, t00=0x001b, t01=0x0010}
0x2a5c…2a6e Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x001b, t01=0x0040}
0x2a6e…2a86 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001b, t01=0x0052}
0x2a86…2a8e Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x006a}
0x2a8e…2a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0072}
0x2a98…2ab4 Head {h00=0x0018, h01=0x0050, text=»* POWER FAIL TASK «, t00=0x001b, t01=0x007c}
0x2ab4…2ae6 Head {h00=0x002e, h01=0x0050, text=»* STARTED AFTER ALL PWF POST PROCESSING «, t00=0x001b, t01=0x0098}
0x2ae6…2af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ca}
0x2af0…2af8 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x00d4}
0x2af8…2b2a Head {h00=0x002e, h01=0x0050, text=»PFTASK CM PFPOST CLEAR PWF POST PROC FLAG «, t00=0x001b, t01=0x00dc}
0x2b2a…2b4a Head {h00=0x001c, h01=0x0050, text=» CM INIFLG AND INIT FLAG«, t00=0x001b, t01=0x010e}
0x2b4a…2b74 Head {h00=0x0026, h01=0x0050, text=» CF A15,PFINIT RESTART I/O DEVICES«, t00=0x001b, t01=0x012e}
0x2b74…2b90 Head {h00=0x0018, h01=0x0050, text=» CM PRUN EXIT PFTASK«, t00=0x001b, t01=0x0158}
0x2b90…2ba2 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x001b, t01=0x0174}
0x2ba2…2bba Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001b, t01=0x0186}
0x2bba…2bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bc4…2bda Head {h00=0x0012, h01=0x0050, text=»* I H R T C «, t00=0x001c, t01=0x0018}
0x2bda…2be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002e}
0x2be4…2c1e Head {h00=0x0036, h01=0x0050, text=»* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER.«, t00=0x001c, t01=0x0038}
0x2c1e…2c58 Head {h00=0x0036, h01=0x0050, text=»* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS.«, t00=0x001c, t01=0x0072}
0x2c58…2c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ac}
0x2c62…2c90 Head {h00=0x002a, h01=0x0050, text=»IHRTC ST P,INTSAV SAVE LAST INTERRUPT «, t00=0x001c, t01=0x00b6}
0x2c90…2cb6 Head {h00=0x0022, h01=0x0050, text=» RIT /1B RESET INTERRUPT FLAG «, t00=0x001c, t01=0x00e4}
0x2cb6…2cc8 Head {h00=0x000e, h01=0x0050, text=» IM COUNT «, t00=0x001c, t01=0x010a}
0x2cc8…2cf0 Head {h00=0x0024, h01=0x0050, text=» RF(P) RTC010 CHECK TIMER QUEUE «, t00=0x001c, t01=0x011c}
0x2cf0…2d00 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001c, t01=0x0144}
0x2d00…2d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d0a…2d1e Head {h00=0x0010, h01=0x0050, text=»RTC010 EQU *«, t00=0x001c, t01=0x015e}
0x2d1e…2d34 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001c, t01=0x0172}
0x2d34…2d5e Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001c, t01=0x0188}
0x2d5e…2d6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0022}
0x2d6a…2d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x002e}
0x2d74…2d8a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001d, t01=0x0038}
0x2d8a…2db0 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001d, t01=0x004e}
0x2db0…2dbc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0074}
0x2dbc…2dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0080}
0x2dc6…2dde Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001d, t01=0x008a}
0x2dde…2de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2de8…2df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ac}
0x2df2…2e08 Head {h00=0x0012, h01=0x0050, text=» IFT NETFRQ=50«, t00=0x001d, t01=0x00b6}
0x2e08…2e2e Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-4 SET 100 MS SWITCH «, t00=0x001d, t01=0x00cc}
0x2e2e…2e42 Head {h00=0x0010, h01=0x0050, text=» ST A4,COUNT«, t00=0x001d, t01=0x00f2}
0x2e42…2e4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0106}
0x2e4e…2e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0112}
0x2e58…2e6e Head {h00=0x0012, h01=0x0050, text=» IFT NETFRQ=60«, t00=0x001d, t01=0x011c}
0x2e6e…2e94 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-5 SET 100 MS SWITCH «, t00=0x001d, t01=0x0132}
0x2e94…2ea0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0158}
0x2ea0…2eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eaa…2edc Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB«, t00=0x001d, t01=0x016e}
0x2edc…2ef2 Head {h00=0x0012, h01=0x0050, text=» CF A15,QMJOB «, t00=0x001e, t01=0x0010}
0x2ef2…2efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2efc…2f12 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x001e, t01=0x0030}
0x2f12…2f24 Head {h00=0x000e, h01=0x0050, text=» IM SECOND«, t00=0x001e, t01=0x0046}
0x2f24…2f4e Head {h00=0x0026, h01=0x0050, text=» RF(P) RTC025 UPDATE MONITOR CLOCK«, t00=0x001e, t01=0x0058}
0x2f4e…2f5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0082}
0x2f5a…2f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008e}
0x2f64…2f78 Head {h00=0x0010, h01=0x0050, text=»SWDISP EQU *«, t00=0x001e, t01=0x0098}
0x2f78…2fa0 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001e, t01=0x00ac}
0x2fa0…2fb2 Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x001e, t01=0x00d4}
0x2fb2…2fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e6}
0x2fbc…2fd4 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x001e, t01=0x00f0}
0x2fd4…2fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0108}
0x2fde…2fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0112}
0x2fe8…2ffe Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x001e, t01=0x011c}
0x2ffe…3008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0132}
0x3008…3048 Head {h00=0x003c, h01=0x0050, text=»* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND. «, t00=0x001e, t01=0x013c}
0x3048…3052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017c}
0x3052…3066 Head {h00=0x0010, h01=0x0050, text=»RTC025 EQU *«, t00=0x001e, t01=0x0186}
0x3066…308c Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-9 SET SECOND SWITCH «, t00=0x001f, t01=0x000a}
0x308c…30a2 Head {h00=0x0012, h01=0x0050, text=» ST A4,SECOND «, t00=0x001f, t01=0x0030}
0x30a2…30b4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,4 «, t00=0x001f, t01=0x0046}
0x30b4…30be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0058}
0x30be…30f4 Head {h00=0x0032, h01=0x0050, text=»MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS«, t00=0x001f, t01=0x0062}
0x30f4…30fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0098}
0x30fe…312a Head {h00=0x0028, h01=0x0050, text=»MCLO20 IM MONCLO+2,A4 INCREMENT TIME«, t00=0x001f, t01=0x00a2}
0x312a…315c Head {h00=0x002e, h01=0x0050, text=» XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS«, t00=0x001f, t01=0x00ce}
0x315c…3184 Head {h00=0x0024, h01=0x0050, text=» RB(NE) SWDISP GO TO DISPATCHER «, t00=0x001f, t01=0x0100}
0x3184…31b0 Head {h00=0x0028, h01=0x0050, text=» CM MONCLO+2,A4 RESTART TIME COUNTER«, t00=0x001f, t01=0x0128}
0x31b0…31c6 Head {h00=0x0012, h01=0x0050, text=» SUK A4,2 END «, t00=0x001f, t01=0x0154}
0x31c6…3200 Head {h00=0x0036, h01=0x0050, text=» RF(N) MCLO30 MIDNIGHT CARRY AND WE HAVE A NEW DAY«, t00=0x001f, t01=0x016a}
0x3200…3224 Head {h00=0x0020, h01=0x0050, text=» RB(P) MCLO10 UPDATE MINUTES«, t00=0x0020, t01=0x0014}
0x3224…3244 Head {h00=0x001c, h01=0x0050, text=» LDK A3,24 UPDATE HOURS «, t00=0x0020, t01=0x0038}
0x3244…3256 Head {h00=0x000e, h01=0x0050, text=» RB MCLO20«, t00=0x0020, t01=0x0058}
0x3256…3260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006a}
0x3260…3274 Head {h00=0x0010, h01=0x0050, text=»MCLO30 EQU *«, t00=0x0020, t01=0x0074}
0x3274…32a0 Head {h00=0x0028, h01=0x0050, text=» IM MCARRY INCREMENT MIDNIGHT CARRY «, t00=0x0020, t01=0x0088}
0x32a0…32aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b4}
0x32aa…32c2 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0020, t01=0x00be}
0x32c2…32cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d6}
0x32cc…32d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e0}
0x32d6…32ec Head {h00=0x0012, h01=0x0050, text=» IFT MONDAT=1 «, t00=0x0020, t01=0x00ea}
0x32ec…32f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0100}
0x32f6…331a Head {h00=0x0020, h01=0x0050, text=»* UPDATE DAY, MONTH AND YEAR«, t00=0x0020, t01=0x010a}
0x331a…3324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012e}
0x3324…333a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0020, t01=0x0138}
0x333a…335e Head {h00=0x0020, h01=0x0050, text=» LDKL A1,MONTH MONTH ADDRESS«, t00=0x0020, t01=0x014e}
0x335e…337e Head {h00=0x001c, h01=0x0050, text=» LDKL A2,DAY DAY ADDRESS«, t00=0x0020, t01=0x0172}
0x337e…3390 (33, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x0021, t01=0x0004}
0x3390…339c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0016}
0x339c…33a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33a6…33c2 Head {h00=0x0018, h01=0x0050, text=» IFT MONCLK+MONDAT=2«, t00=0x0021, t01=0x002c}
0x33c2…33d8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0021, t01=0x0048}
0x33d8…33e6 Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0021, t01=0x005e}
0x33e6…3422 Head {h00=0x0038, h01=0x0050, text=» DATA MONTH,DAY,1 MONTH AND DAY ADDRESS TO A1 AND A2«, t00=0x0021, t01=0x006c}
0x3422…342e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00a8}
0x342e…3438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b4}
0x3438…3454 Head {h00=0x0018, h01=0x0050, text=» IFT MONCLK+MONDAT=2«, t00=0x0021, t01=0x00be}
0x3454…3472 Head {h00=0x001a, h01=0x0050, text=» IMR A2 INCREMENT DAY «, t00=0x0021, t01=0x00da}
0x3472…348c Head {h00=0x0016, h01=0x0050, text=» LDR* A4,A1 MONTH «, t00=0x0021, t01=0x00f8}
0x348c…349e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A4«, t00=0x0021, t01=0x0112}
0x349e…34ba Head {h00=0x0018, h01=0x0050, text=» LDR* A5,A2 NEW DAY «, t00=0x0021, t01=0x0124}
0x34ba…34e0 Head {h00=0x0022, h01=0x0050, text=» SUK A5,29 CHECK IF DAY WAS 28«, t00=0x0021, t01=0x0140}
0x34e0…3514 Head {h00=0x0030, h01=0x0050, text=» RF(Z) MCLO40 YES, GO AND CHECK IF FEBRUARY «, t00=0x0021, t01=0x0166}
0x3514…353a Head {h00=0x0022, h01=0x0050, text=» SUK A5,2 CHECK IF DAY WAS 30 «, t00=0x0022, t01=0x000a}
0x353a…3554 Head {h00=0x0016, h01=0x0050, text=» RF(Z) MCLO60 YES «, t00=0x0022, t01=0x0030}
0x3554…357a Head {h00=0x0022, h01=0x0050, text=» SUK A5,1 CHECK IF DAY WAS 31 «, t00=0x0022, t01=0x004a}
0x357a…359c Head {h00=0x001e, h01=0x0050, text=» RB(NZ) SWDISP NO, RETURN «, t00=0x0022, t01=0x0070}
0x359c…35c8 Head {h00=0x0028, h01=0x0050, text=» RF MCLO50 YES, WE HAVE A NEW MONTH «, t00=0x0022, t01=0x0092}
0x35c8…35d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00be}
0x35d2…35e6 Head {h00=0x0010, h01=0x0050, text=»MCLO40 EQU *«, t00=0x0022, t01=0x00c8}
0x35e6…360a Head {h00=0x0020, h01=0x0050, text=» SUK A6,2 CHECK IF FEBRUARY «, t00=0x0022, t01=0x00dc}
0x360a…362c Head {h00=0x001e, h01=0x0050, text=» RB(NZ) SWDISP NO, RETURN «, t00=0x0022, t01=0x0100}
0x362c…3636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0122}
0x3636…364e Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0022, t01=0x012c}
0x364e…3658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0144}
0x3658…3682 Head {h00=0x0026, h01=0x0050, text=»* CHANGE TO NEW MONTH (AND YEAR?) «, t00=0x0022, t01=0x014e}
0x3682…368c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0178}
0x368c…3696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0182}
0x3696…36aa Head {h00=0x0010, h01=0x0050, text=»MCLO50 EQU *«, t00=0x0022, t01=0x018c}
0x36aa…36ca Head {h00=0x001c, h01=0x0050, text=» STR A3,A2 SET DAY := 1 «, t00=0x0023, t01=0x0010}
0x36ca…36ea Head {h00=0x001c, h01=0x0050, text=» IMR A1 INCREMENT MONTH «, t00=0x0023, t01=0x0030}
0x36ea…3718 Head {h00=0x002a, h01=0x0050, text=» SUK A4,12 CHECK IF MONTH WAS DECEMBER«, t00=0x0023, t01=0x0050}
0x3718…373a Head {h00=0x001e, h01=0x0050, text=» RB(NZ) SWDISP NO, RETURN «, t00=0x0023, t01=0x007e}
0x373a…3762 Head {h00=0x0024, h01=0x0050, text=» STR A3,A1 SET MONTH TO JANUARY «, t00=0x0023, t01=0x00a0}
0x3762…3784 Head {h00=0x001e, h01=0x0050, text=» IM YEAR HAPPY NEW YEAR!!!«, t00=0x0023, t01=0x00c8}
0x3784…379e Head {h00=0x0016, h01=0x0050, text=» RB SWDISP RETURN «, t00=0x0023, t01=0x00ea}
0x379e…37a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0104}
0x37a8…37bc Head {h00=0x0010, h01=0x0050, text=»MCLO60 EQU *«, t00=0x0023, t01=0x010e}
0x37bc…37d4 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A6 MONTH«, t00=0x0023, t01=0x0122}
0x37d4…37e6 Head {h00=0x000e, h01=0x0050, text=» ANK A6,1 «, t00=0x0023, t01=0x013a}
0x37e6…3806 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MCLO70 MONTH EVEN«, t00=0x0023, t01=0x014c}
0x3806…3818 Head {h00=0x000e, h01=0x0050, text=» SUK A7,7 «, t00=0x0023, t01=0x016c}
0x3818…3844 Head {h00=0x0028, h01=0x0050, text=» RB(P) MCLO50 SEPTEMBER OR NOVEMBER «, t00=0x0023, t01=0x017e}
0x3844…3872 Head {h00=0x002a, h01=0x0050, text=» RB SWDISP JANUARY, MARCH, MAY OR JULY«, t00=0x0024, t01=0x001a}
0x3872…387c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0048}
0x387c…3890 Head {h00=0x0010, h01=0x0050, text=»MCLO70 EQU *«, t00=0x0024, t01=0x0052}
0x3890…38a2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,7 «, t00=0x0024, t01=0x0066}
0x38a2…38c6 Head {h00=0x0020, h01=0x0050, text=» RB(N) MCLO50 APRIL OR JUNE «, t00=0x0024, t01=0x0078}
0x38c6…38d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x009c}
0x38d2…38dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a8}
0x38dc…38f2 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x0024, t01=0x00b2}
0x38f2…390c Head {h00=0x0016, h01=0x0050, text=» RB SWDISP RETURN «, t00=0x0024, t01=0x00c8}
0x390c…3918 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00e2}
0x3918…3922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ee}
0x3922…393a Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0024, t01=0x00f8}
0x393a…3944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0110}
0x3944…394e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011a}
0x394e…3966 Head {h00=0x0014, h01=0x0050, text=»* M O N C L O «, t00=0x0024, t01=0x0124}
0x3966…3970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013c}
0x3970…397a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x397a…3996 Head {h00=0x0018, h01=0x0050, text=» IFT MONCLK+MONDAT=2«, t00=0x0024, t01=0x0150}
0x3996…39c6 Head {h00=0x002c, h01=0x0050, text=» DATA 0 THIS WORD USED BY MONTIM (TDATE)«, t00=0x0024, t01=0x016c}
0x39c6…39da Head {h00=0x0010, h01=0x0050, text=»YEAR DATA 0 «, t00=0x0025, t01=0x000c}
0x39da…39ee Head {h00=0x0010, h01=0x0050, text=»MONTH DATA 0«, t00=0x0025, t01=0x0020}
0x39ee…3a00 Head {h00=0x000e, h01=0x0050, text=»DAY DATA 0«, t00=0x0025, t01=0x0034}
0x3a00…3a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0046}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0052}
0x3a16…3a2a Head {h00=0x0010, h01=0x0050, text=»MONCLO EQU *«, t00=0x0025, t01=0x005c}
0x3a2a…3a40 Head {h00=0x0012, h01=0x0050, text=» IFT MONCLK=1 «, t00=0x0025, t01=0x0070}
0x3a40…3a70 Head {h00=0x002c, h01=0x0050, text=»MCARRY DATA 0 ACKUMULATED 24 HOUR CARRY «, t00=0x0025, t01=0x0086}
0x3a70…3a84 Head {h00=0x0010, h01=0x0050, text=» DATA 0 HOUR«, t00=0x0025, t01=0x00b6}
0x3a84…3a9a Head {h00=0x0012, h01=0x0050, text=» DATA 0 MINUTE«, t00=0x0025, t01=0x00ca}
0x3a9a…3ab0 Head {h00=0x0012, h01=0x0050, text=» DATA 0 SECOND«, t00=0x0025, t01=0x00e0}
0x3ab0…3ad4 Head {h00=0x0020, h01=0x0050, text=»SECOND DATA 0 SECOND SWITCH «, t00=0x0025, t01=0x00f6}
0x3ad4…3ae0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x011a}
0x3ae0…3aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0126}
0x3aea…3b02 Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0025, t01=0x0130}
0x3b02…3b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0148}
0x3b0c…3b3a Head {h00=0x002a, h01=0x0050, text=»* CLOCK ROUTINE STARTED EACH 100 MS.«, t00=0x0025, t01=0x0152}
0x3b3a…3b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0180}
0x3b44…3b56 Head {h00=0x000e, h01=0x0050, text=»CLOCK INH «, t00=0x0025, t01=0x018a}
0x3b56…3b86 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS«, t00=0x0026, t01=0x000c}
0x3b86…3b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x3b90…3ba8 Head {h00=0x0014, h01=0x0050, text=»CLK10 LDR A6,A4 «, t00=0x0026, t01=0x0046}
0x3ba8…3bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x3bb2…3bd6 Head {h00=0x0020, h01=0x0050, text=»CLK20 LDR* A4,A6 TIMER BLOCK«, t00=0x0026, t01=0x0068}
0x3bd6…3bf8 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) MEXIT END OF QUEUE«, t00=0x0026, t01=0x008c}
0x3bf8…3c18 Head {h00=0x001c, h01=0x0050, text=» IM 4,A4 INCREMENT TIMER«, t00=0x0026, t01=0x00ae}
0x3c18…3c3a Head {h00=0x001e, h01=0x0050, text=» RB(N) CLK10 NOT TIME OUT «, t00=0x0026, t01=0x00ce}
0x3c3a…3c58 Head {h00=0x001a, h01=0x0050, text=» RF(Z) CLK30 TIME OUT «, t00=0x0026, t01=0x00f0}
0x3c58…3c7a Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A4 RELEASE TIMER «, t00=0x0026, t01=0x010e}
0x3c7a…3c8c Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x0026, t01=0x0130}
0x3c8c…3ca2 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0026, t01=0x0142}
0x3ca2…3cb4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0026, t01=0x0158}
0x3cb4…3cca Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0026, t01=0x016a}
0x3cca…3cdc Head {h00=0x000e, h01=0x0050, text=» RB CLK20 «, t00=0x0026, t01=0x0180}
0x3cdc…3ce6 (39, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0004}
0x3ce6…3cfe Head {h00=0x0014, h01=0x0050, text=» EJECT LRPINT «, t00=0x0027, t01=0x000e}
0x3cfe…3d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0026}
0x3d08…3d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d12…3d42 Head {h00=0x002c, h01=0x0050, text=»CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE«, t00=0x0027, t01=0x003a}
0x3d42…3d6a Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x0027, t01=0x006a}
0x3d6a…3d76 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x0092}
0x3d76…3d88 Head {h00=0x000e, h01=0x0050, text=» RB CLK10 «, t00=0x0027, t01=0x009e}
0x3d88…3d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b0}
0x3d92…3da6 Head {h00=0x0010, h01=0x0050, text=»CLK40 EQU * «, t00=0x0027, t01=0x00ba}
0x3da6…3dbc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0027, t01=0x00ce}
0x3dbc…3de6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0027, t01=0x00e4}
0x3de6…3df2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x010e}
0x3df2…3dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011a}
0x3dfc…3e12 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0027, t01=0x0124}
0x3e12…3e38 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0027, t01=0x013a}
0x3e38…3e44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0160}
0x3e44…3e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016c}
0x3e4e…3e78 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/C4C0 LEVEL 49 AND ENABLE«, t00=0x0027, t01=0x0176}
0x3e78…3ea2 Head {h00=0x0026, h01=0x0050, text=» ST A1,18,A15 SET NEW PSW ON STACK«, t00=0x0028, t01=0x0010}
0x3ea2…3ec6 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 LOAD DISP BLOCK «, t00=0x0028, t01=0x003a}
0x3ec6…3ee4 Head {h00=0x001a, h01=0x0050, text=» LD A1,4,A2 PARAMETER «, t00=0x0028, t01=0x005e}
0x3ee4…3f0c Head {h00=0x0024, h01=0x0050, text=» ABI 2,A2 GO TO TIME OUT ROUTINE«, t00=0x0028, t01=0x007c}
0x3f0c…3f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a4}
0x3f16…3f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ae}
0x3f20…3f42 Head {h00=0x001e, h01=0x0050, text=»COUNT DATA 0 100 MS SWITCH«, t00=0x0028, t01=0x00b8}
0x3f42…3f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00da}
0x3f4c…3f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e4}
0x3f56…3f6e Head {h00=0x0014, h01=0x0050, text=»* T I M Q U E «, t00=0x0028, t01=0x00ee}
0x3f6e…3f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0106}
0x3f78…3faa Head {h00=0x002e, h01=0x0050, text=»* POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0028, t01=0x0110}
0x3faa…3fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0142}
0x3fb4…3fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014c}
0x3fbe…3fd2 Head {h00=0x0010, h01=0x0050, text=»TIMQUE EQU *«, t00=0x0028, t01=0x0156}
0x3fd2…3fe2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0028, t01=0x016a}
0x3fe2…3fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017a}
0x3fec…3ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0184}
0x3ff6…4000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018e}
0x4000…400c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0008}
0x400c…4010 Head {h00=0x4004, h01=0x0000}
0x4010…4014 00 29 00 14 ┆ ) ┆
0x4014…401c (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x401c…406c (43, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d2 01 86 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 4 P* ┆
0x406c…40bc 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d3 00 2e 00 28 00 50 2a 20 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2c 41 32 2c 41 33 2c 41 34 2c 41 37 20 00 d3 00 66 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * . ( P* WORK REGISTERS: A1,A2,A3,A4,A7 f 4 P* ┆
0x40bc…410c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d3 00 92 00 34 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 4 P* SUBROUTINES: ERROR ┆
0x410c…415c 20 20 20 20 20 20 20 20 2a 20 00 d3 00 ca 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 d3 01 02 00 34 00 50 2a 2a 2a 2a 2a 2a ┆ * 4 P* * 4 P******┆
0x415c…41ac 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 d3 01 3a 00 06 00 50 2a 20 00 d3 01 72 00 0a 00 50 5c 45 4a 45 43 54 00 d3 01 7c 00 06 00 50 2a 20 00 d3 01 8a ┆***************************************** : P* r P EJECT | P* ┆
0x41ac…41fc (44, 0, 400) 00 22 00 50 2a 5c 52 45 41 44 20 44 49 53 43 20 53 45 43 54 4f 52 20 56 45 52 53 49 4f 4e 20 41 32 20 00 d4 00 04 00 06 00 50 2a 20 00 d4 00 2a 00 10 00 50 52 44 53 45 43 32 5c 45 51 55 5c 2a 00 d4 00 34 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c ┆ " P* READ DISC SECTOR VERSION A2 P* * PRDSEC2 EQU * 4 P LDK A2,┆
0x41fc…424c 30 20 00 d4 00 48 00 2a 00 50 5c 4c 44 52 5c 41 31 2c 41 31 31 5c 47 45 54 20 4c 4f 47 49 43 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 d4 00 5a 00 10 00 50 44 49 56 32 30 30 5c 45 51 55 5c 2a 00 d4 00 88 00 0e 00 50 5c 41 44 52 ┆0 H * P LDR A1,A11 GET LOGICAL SECTOR NUMBER Z PDIV200 EQU * P ADR┆
0x424c…429c 5c 41 32 2c 41 31 00 d4 00 9c 00 0e 00 50 5c 53 52 4c 5c 41 31 2c 35 20 00 d4 00 ae 00 28 00 50 5c 52 42 28 4e 5a 29 5c 44 49 56 32 30 30 5c 4d 4f 52 45 20 49 4e 20 53 45 52 49 45 20 54 4f 20 41 44 44 20 00 d4 00 c0 00 0e 00 50 5c 4c 44 52 ┆ A2,A1 P SRL A1,5 ( P RB(NZ) DIV200 MORE IN SERIE TO ADD P LDR┆
0x429c…42ec 5c 41 31 2c 41 32 00 d4 00 ec 00 12 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 46 46 45 30 00 d4 00 fe 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 35 20 00 d4 01 14 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 32 00 d4 01 26 00 10 00 50 5c 53 55 52 5c 41 31 2c ┆ A1,A2 P ANKL A1,/FFE0 P SRL A2,5 P SUR A1,A2 & P SUR A1,┆
0x42ec…433c 41 31 31 20 00 d4 01 38 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 33 31 00 d4 01 4c 00 2a 00 50 5c 52 46 28 50 29 5c 44 49 56 32 31 30 5c 4e 4f 20 43 4f 52 52 45 43 54 49 4f 4e 20 4f 46 20 52 45 53 55 4c 54 20 00 d4 01 5e 00 0e 00 50 5c 41 44 4b ┆A11 8 P ADK A1,31 L * P RF(P) DIV210 NO CORRECTION OF RESULT ^ P ADK┆