|
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: 11116 (0x2b6c)
Notes: pts_type(SC)
Names: »LRPINT.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/LRPINT.SC«
IDENT LRPINT REL 8.2 78-09-15 870105040820 * ************************************************** * * 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 *********** * ENTRIES * *********** * ENTRY IHLKM LKM INTERRUPT HANDLER ENTRY LKMRQE LKM REQUEST ERROR ENTRY LKMQDI QUEUE 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 * ************* * EXTERNALS * ************* * EXTRN TDISP DISPATCHER EXTRN LKMDIS ENTRY TO BE DISPATCHED AFTR LKM-REQUEST EXTRN PRUN TTAB OF RUNING PROGRAM EXTRN QTJOB QUEUE TERMINAL JOB EXTRN SWL48 SWITCH TO LEVEL 48 EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB EXTRN TTB:TD START OF TERMINAL DEVICES EXTRN LKMAL LKM REQUEST TABLE EXTRN FREBLK SET BLOCK FREE EXTRN QMJOB QUEUE MONITOR JOB EXTRN RETU14 RESTORE A1-A14 FROM INTERRUPT STACK EXTRN CVTCLK REAL TIME CLOCK EXTRN PFINIT RESTART OF DEVICES EXTRN SAVE8 SAVE 8 REGISTERS EXTRN PFTAB POWER FAIL TABLE EXTRN HALT HALT-MODULE EXTRN SACT ACTIVE SEGMENT EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE EXTRN INTSAV INTERRUPT SAVE MODULE EJECT * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO EXCLUDE MONITOR CLOCK FUNCTIONS. * THIS IS DONE BY SETTING X:A = 0 * X:A EQU 1 KLOCKA EQU 0 EJECT * * * 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. * - DISPATCH ADDRESS 'LKMDIS' AND 8 REGISTERS ARE SET ON STACK * - TTB:SA IS UPDATED IN TTAB * - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO * APPROPIATE LKM-PROCESSOR. * * EXIT CONDITIONS ARE: * * A4 = LABLE ADDRESS OF LKM-REQUEST * (A4=0 INDICATES NO LABLE IN LKM-REQUEST) * A5 = TTAB-ADDRESS OF CALLING PROGRAM * A2 AND A3 ARE LOST. * ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING * PROGRAM. * * * IHLKM EQU * ST P,INTSAV SAVE LAST INTERRUPT RIT /1D RESET INTERNAL INTERRUPT FLAG LKM010 INH ST A15,LKM020 SAVE A15 LD A15,PRUN LOAD TTAB-ADDRESS ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA STR A14,A15 SAVE USERS 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 LDKL A15,0 RESTORE A15 STACK POINTER LKM020 EQU *-2 * * * GET DISPATCH ADDRESS AND SWITCH LEVEL * LDR* A2,A15 LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER LD A3,-2,A2 CWK A3,/2804 RF(E) LKM025 LKM CWK A3,/6300 RF(E) LKM025 TRAP LDK A1,7 HALT PARAMETER CF A15,HALT HALT IF STACK OVERFLOW LKM025 LDKL A3,LKMDIS STR A3,A15 SET DISPATCH ADDRESS ON STACK LDKL A3,/C000 STR A3,A15 SET LEVEL 48 SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS LD A3,SACT ACTIVE SEGMENT RF(E) LKM027 CF A15,LRUNEW CM SACT LKM027 EQU * CF A15,SWL48 SWITCH TO LEVEL 48 LD A5,PRUN LOAD TTAB-ADDRESS OF CALLING PROGRAM LDK A4,0 RESET LABEL INDICATOR LDR* A3,A2 LOAD DATA DIRECTIVE RF(NN) LKM030 NO LABLE * * * LKM-REQUEST WITH LABLE * ADK A2,2 LDR* A4,A2 LOAD LABLE NGR A3,A3 NEGATE DATA * * * UPDATE TTB:SA AND GO TO LKM-PROCESSOR * LKM030 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 LD A3,LKMAL,A3 RF(Z) LKMRQE ERROR IF NOT PRESENT INH INHIBIT INTERRUPTS ABR A3 BRANCH TO LKM-PROCESSOR EJECT * * * 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 ABL TDISP GO TO DISPATCHER EJECT * * I H R T C * * THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER * THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS * IHRTC EQU * ST P,INTSAV SAVE LAST INTERRUPT RIT /1B RESET INTERRUPT FLAG IM COUNT RF(P) RTC010 RTN A15 RTC010 CF A15,SAVE8 IM CVTCLK INCREMENT CVT CLOCK LDKL A4,-4 SET 100 MS SWITCH ST A4,COUNT LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB CF A15,QMJOB * IFT KLOCKA=1 * IM DINKAN RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND * XIF * RTC020 ABL TDISP * IFT KLOCKA=1 EJECT * * * MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND * * MCLOCK EQU * RTC025 LDKL A4,-9 SET SECOND SWITCH ST A4,DINKAN 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 ? RF(N) MCLO30 MIDNIGTH CARRY RB(P) MCLO10 UPDATE MINUTES LDK A3,24 UPDATE HOURS RB MCLO20 MCLO30 IM MONCLO UPDATE 24 HOUR CARRY RB RTC020 GOTO DISPATCHER * * XIF * MONCLO EQU * IFT KLOCKA=1 DATA 0 ACCUMULATED 24 HOUR CARRY * DATA 0 HOUR DATA 0 MINUTE DATA 0 SECOND * DINKAN DATA 0 SECOND SWITCH * * XIF EJECT * * 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 RB(Z) RTC020 END OF QUEUE IM 4,A4 INCREMENT TIMER RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE RF(Z) CLK30 TIME OUT LDR* A3,A4 RELEASE TIMER STR A3,A6 CF A15,FREBLK LDR A4,A2 CF A15,FREBLK RB CLK20 CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE INH RB CLK10 CLK40 CF A15,SAVE8 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 * * * I H P F A R * * THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER * * * 1. POWER OFF * * REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND * STACK POINTER IS SAVED IN CORE * THEN SYSTEM IS HALTED * * * 2. POWER ON * * STACK POINTER A15 IS RESTORED * COMMON DEVICES ARE RESTARTED BY MODULE PFINIT * REGISTERS A1 - A14 ARE RESTORED FROM INTERRUPT STACK * AND RETURN IS GIVEN TO INTERRUPTED PROGRAM * * * * WORK AREAS * * PFX DATA 1 POWER ON OFF INDICATOR * * INIFLG DATA 1 INITIALIZATION FLAG * EJECT * * * 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) PFA200 POWER ON * * POWER OFF * CF A15,SAVE8 SAVE A1 - A8 ON STACK STR A9,A15 SAVE A9 - A14 ON STACK STR A10,A15 STR A11,A15 STR A12,A15 STR A13,A15 STR A14,A15 ST A15,PFA210 SAVE A15 STACK POINTER PFA100 HLT HALT SYSTEM * * POWER ON * PFA200 EQU * LDKL A15,0 RESTORE A15 STACK POINTER PFA210 EQU *-2 CM INIFLG RESET INITIALIZATION FLAG CF A15,PFINIT RESTART COMMON DEVICES ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT LRPINT REL 8.2 78-09-15 870105040820 «, 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…0082 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00f2 Head {h00=0x0030, h01=0x0050, text=»* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC«, t00=0x0000, t01=0x00c2}
0x00f2…0118 Head {h00=0x0022, h01=0x0050, text=»* AND POWER FAILURE«, t00=0x0000, t01=0x00f6}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
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…0184 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x014e}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…0198 (1, 0, 400) 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…02d6 Head {h00=0x003a, h01=0x0050, text=»* IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE«, t00=0x0001, t01=0x010e}
0x02d6…02f6 Head {h00=0x001c, h01=0x0050, text=»* PROVIDED. THESE ARE:«, t00=0x0001, t01=0x014c}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0300…0336 Head {h00=0x0032, h01=0x0050, text=»* -LKMRQE: SET A7=-1 QUEUE JOB AND DISPATCH «, t00=0x0001, t01=0x0176}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0340…036c Head {h00=0x0028, h01=0x0050, text=»* -LKMQDI: QUEUE JOB AND DISPATCH «, t00=0x0002, t01=0x0026}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0376…0384 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x005c}
0x0384…0398 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x006a}
0x0398…03ac Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x007e}
0x03ac…03c0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0092}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03ca…03f4 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHLKM LKM INTERRUPT HANDLER«, t00=0x0002, t01=0x00b0}
0x03f4…041c Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x00da}
0x041c…0444 Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMQDI QUEUE AND DISPATCH«, t00=0x0002, t01=0x0102}
0x0444…044e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x044e…0478 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHRTC RTC INTERRUPT HANDLER«, t00=0x0002, t01=0x0134}
0x0478…04b4 Head {h00=0x0038, h01=0x0050, text=» ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0002, t01=0x015e}
0x04b4…04d8 Head {h00=0x0020, h01=0x0050, text=» ENTRY MONCLO MONITOR CLOCK «, t00=0x0003, t01=0x000a}
0x04d8…050e Head {h00=0x0032, h01=0x0050, text=» ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER «, t00=0x0003, t01=0x002e}
0x050e…0538 Head {h00=0x0026, h01=0x0050, text=» ENTRY INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x0064}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0542…0558 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0098}
0x0558…056e Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x00ae}
0x056e…0584 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00c4}
0x0584…058e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x058e…05ae Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x00e4}
0x05ae…05ec Head {h00=0x003a, h01=0x0050, text=» EXTRN LKMDIS ENTRY TO BE DISPATCHED AFTR LKM-REQUEST «, t00=0x0003, t01=0x0104}
0x05ec…0616 Head {h00=0x0026, h01=0x0050, text=» EXTRN PRUN TTAB OF RUNING PROGRAM«, t00=0x0003, t01=0x0142}
0x0616…063e Head {h00=0x0024, h01=0x0050, text=» EXTRN QTJOB QUEUE TERMINAL JOB «, t00=0x0003, t01=0x016c}
0x063e…0666 (4, 0, 400) Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x0004}
0x0666…069c Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB «, t00=0x0004, t01=0x002c}
0x069c…06cc Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:TD START OF TERMINAL DEVICES «, t00=0x0004, t01=0x0062}
0x06cc…06f2 Head {h00=0x0022, h01=0x0050, text=» EXTRN LKMAL LKM REQUEST TABLE«, t00=0x0004, t01=0x0092}
0x06f2…0716 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK SET BLOCK FREE«, t00=0x0004, t01=0x00b8}
0x0716…073c Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x0004, t01=0x00dc}
0x073c…0776 Head {h00=0x0036, h01=0x0050, text=» EXTRN RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0004, t01=0x0102}
0x0776…079c Head {h00=0x0022, h01=0x0050, text=» EXTRN CVTCLK REAL TIME CLOCK «, t00=0x0004, t01=0x013c}
0x079c…07c4 Head {h00=0x0024, h01=0x0050, text=» EXTRN PFINIT RESTART OF DEVICES«, t00=0x0004, t01=0x0162}
0x07c4…07ea Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0004, t01=0x018a}
0x07ea…0810 Head {h00=0x0022, h01=0x0050, text=» EXTRN PFTAB POWER FAIL TABLE «, t00=0x0005, t01=0x0020}
0x0810…0830 Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT HALT-MODULE «, t00=0x0005, t01=0x0046}
0x0830…0852 Head {h00=0x001e, h01=0x0050, text=» EXTRN SACT ACTIVE SEGMENT«, t00=0x0005, t01=0x0066}
0x0852…0882 Head {h00=0x002c, h01=0x0050, text=» EXTRN LRUNEW INSERT SEGMENT IN LRUQUEUE«, t00=0x0005, t01=0x0088}
0x0882…08ae Head {h00=0x0028, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE MODULE «, t00=0x0005, t01=0x00b8}
0x08ae…08bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00e4}
0x08bc…08c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f2}
0x08c6…08d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fc}
0x08d0…090c Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0005, t01=0x0106}
0x090c…093c Head {h00=0x002c, h01=0x0050, text=»* TO EXCLUDE MONITOR CLOCK FUNCTIONS.«, t00=0x0005, t01=0x0142}
0x093c…0968 Head {h00=0x0028, h01=0x0050, text=»* THIS IS DONE BY SETTING X:A = 0«, t00=0x0005, t01=0x0172}
0x0968…0972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000e}
0x0972…0984 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0018}
0x0984…0998 Head {h00=0x0010, h01=0x0050, text=»KLOCKA EQU 0«, t00=0x0006, t01=0x002a}
0x0998…09a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x003e}
0x09a6…09b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004c}
0x09b0…09ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0056}
0x09ba…09d0 Head {h00=0x0012, h01=0x0050, text=»* I H L K M «, t00=0x0006, t01=0x0060}
0x09d0…09da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0076}
0x09da…09e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0080}
0x09e4…0a20 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING«, t00=0x0006, t01=0x008a}
0x0a20…0a42 Head {h00=0x001e, h01=0x0050, text=»* STEPS ARE CARRIED OUT:«, t00=0x0006, t01=0x00c6}
0x0a42…0a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e8}
0x0a4c…0a7a Head {h00=0x002a, h01=0x0050, text=»* - IF STACK OVERFLOW SYSTEM HALTS. «, t00=0x0006, t01=0x00f2}
0x0a7a…0abc Head {h00=0x003e, h01=0x0050, text=»* - ELSE REGISTERS A1-A14 ARE SAVED IN TTAB FOR RUNNING «, t00=0x0006, t01=0x0120}
0x0abc…0ad2 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM.«, t00=0x0006, t01=0x0162}
0x0ad2…0b1a Head {h00=0x0044, h01=0x0050, text=»* - DISPATCH ADDRESS 'LKMDIS' AND 8 REGISTERS ARE SET ON STACK«, t00=0x0006, t01=0x0178}
0x0b1a…0b42 Head {h00=0x0024, h01=0x0050, text=»* - TTB:SA IS UPDATED IN TTAB «, t00=0x0007, t01=0x0030}
0x0b42…0b80 Head {h00=0x003a, h01=0x0050, text=»* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO «, t00=0x0007, t01=0x0058}
0x0b80…0ba8 Head {h00=0x0024, h01=0x0050, text=»* APPROPIATE LKM-PROCESSOR. «, t00=0x0007, t01=0x0096}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb2…0bd2 Head {h00=0x001c, h01=0x0050, text=»* EXIT CONDITIONS ARE:«, t00=0x0007, t01=0x00c8}
0x0bd2…0bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e8}
0x0bdc…0c0a Head {h00=0x002a, h01=0x0050, text=»* A4 = LABLE ADDRESS OF LKM-REQUEST «, t00=0x0007, t01=0x00f2}
0x0c0a…0c44 Head {h00=0x0036, h01=0x0050, text=»* (A4=0 INDICATES NO LABLE IN LKM-REQUEST) «, t00=0x0007, t01=0x0120}
0x0c44…0c74 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0007, t01=0x015a}
0x0c74…0c94 Head {h00=0x001c, h01=0x0050, text=»* A2 AND A3 ARE LOST. «, t00=0x0007, t01=0x018a}
0x0c94…0cd2 Head {h00=0x003a, h01=0x0050, text=»* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING «, t00=0x0008, t01=0x001a}
0x0cd2…0ce6 Head {h00=0x0010, h01=0x0050, text=»* PROGRAM.«, t00=0x0008, t01=0x0058}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf0…0cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0076}
0x0cfa…0d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0080}
0x0d04…0d18 Head {h00=0x0010, h01=0x0050, text=»IHLKM EQU * «, t00=0x0008, t01=0x008a}
0x0d18…0d2c Head {h00=0x0010, h01=0x0050, text=» ST P,INTSAV«, t00=0x0008, t01=0x009e}
0x0d2c…0d4a Head {h00=0x001a, h01=0x0050, text=» SAVE LAST INTERRUPT«, t00=0x0008, t01=0x00b2}
0x0d4a…0d78 Head {h00=0x002a, h01=0x0050, text=» RIT /1D RESET INTERNAL INTERRUPT FLAG«, t00=0x0008, t01=0x00d0}
0x0d78…0d8a Head {h00=0x000e, h01=0x0050, text=»LKM010 INH«, t00=0x0008, t01=0x00fe}
0x0d8a…0daa Head {h00=0x001c, h01=0x0050, text=» ST A15,LKM020 SAVE A15 «, t00=0x0008, t01=0x0110}
0x0daa…0dd0 Head {h00=0x0022, h01=0x0050, text=» LD A15,PRUN LOAD TTAB-ADDRESS«, t00=0x0008, t01=0x0130}
0x0dd0…0e08 Head {h00=0x0034, h01=0x0050, text=» ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA«, t00=0x0008, t01=0x0156}
0x0e08…0e38 Head {h00=0x002c, h01=0x0050, text=» STR A14,A15 SAVE USERS REGISTERS, -A14 «, t00=0x0008, t01=0x018e}
0x0e38…0e52 Head {h00=0x0016, h01=0x0050, text=» STR A13,A15 -A13 «, t00=0x0009, t01=0x002e}
0x0e52…0e6c Head {h00=0x0016, h01=0x0050, text=» STR A12,A15 -A12 «, t00=0x0009, t01=0x0048}
0x0e6c…0e86 Head {h00=0x0016, h01=0x0050, text=» STR A11,A15 -A11 «, t00=0x0009, t01=0x0062}
0x0e86…0ea0 Head {h00=0x0016, h01=0x0050, text=» STR A10,A15 -A10 «, t00=0x0009, t01=0x007c}
0x0ea0…0eb8 Head {h00=0x0014, h01=0x0050, text=» STR A9,A15 -A9 «, t00=0x0009, t01=0x0096}
0x0eb8…0ed0 Head {h00=0x0014, h01=0x0050, text=» STR A8,A15 -A8 «, t00=0x0009, t01=0x00ae}
0x0ed0…0ee8 Head {h00=0x0014, h01=0x0050, text=» STR A7,A15 -A7 «, t00=0x0009, t01=0x00c6}
0x0ee8…0f00 Head {h00=0x0014, h01=0x0050, text=» STR A6,A15 -A6 «, t00=0x0009, t01=0x00de}
0x0f00…0f18 Head {h00=0x0014, h01=0x0050, text=» STR A5,A15 -A5 «, t00=0x0009, t01=0x00f6}
0x0f18…0f30 Head {h00=0x0014, h01=0x0050, text=» STR A4,A15 -A4 «, t00=0x0009, t01=0x010e}
0x0f30…0f48 Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 -A3 «, t00=0x0009, t01=0x0126}
0x0f48…0f60 Head {h00=0x0014, h01=0x0050, text=» STR A2,A15 -A2 «, t00=0x0009, t01=0x013e}
0x0f60…0f78 Head {h00=0x0014, h01=0x0050, text=» STR A1,A15 -A1 «, t00=0x0009, t01=0x0156}
0x0f78…0fa6 Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0009, t01=0x016e}
0x0fa6…0fbc Head {h00=0x0012, h01=0x0050, text=»LKM020 EQU *-2«, t00=0x000a, t01=0x000c}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x0fc6…0fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fd0…1002 Head {h00=0x002e, h01=0x0050, text=»* GET DISPATCH ADDRESS AND SWITCH LEVEL «, t00=0x000a, t01=0x0036}
0x1002…100c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100c…1020 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x000a, t01=0x0072}
0x1020…1058 Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER «, t00=0x000a, t01=0x0086}
0x1058…106c Head {h00=0x0010, h01=0x0050, text=» LD A3,-2,A2«, t00=0x000a, t01=0x00be}
0x106c…1082 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/2804 «, t00=0x000a, t01=0x00d2}
0x1082…109c Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 LKM «, t00=0x000a, t01=0x00e8}
0x109c…10b2 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/6300 «, t00=0x000a, t01=0x0102}
0x10b2…10cc Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 TRAP«, t00=0x000a, t01=0x0118}
0x10cc…10ec Head {h00=0x001c, h01=0x0050, text=» LDK A1,7 HALT PARAMETER«, t00=0x000a, t01=0x0132}
0x10ec…1118 Head {h00=0x0028, h01=0x0050, text=» CF A15,HALT HALT IF STACK OVERFLOW «, t00=0x000a, t01=0x0152}
0x1118…1136 Head {h00=0x001a, h01=0x0050, text=»LKM025 LDKL A3,LKMDIS «, t00=0x000a, t01=0x017e}
0x1136…1168 Head {h00=0x002e, h01=0x0050, text=» STR A3,A15 SET DISPATCH ADDRESS ON STACK «, t00=0x000b, t01=0x000c}
0x1168…117e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/C000«, t00=0x000b, t01=0x003e}
0x117e…119e Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 SET LEVEL 48«, t00=0x000b, t01=0x0054}
0x119e…11d0 Head {h00=0x002e, h01=0x0050, text=» SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS«, t00=0x000b, t01=0x0074}
0x11d0…11f2 Head {h00=0x001e, h01=0x0050, text=» LD A3,SACT ACTIVE SEGMENT«, t00=0x000b, t01=0x00a6}
0x11f2…1208 Head {h00=0x0012, h01=0x0050, text=» RF(E) LKM027 «, t00=0x000b, t01=0x00c8}
0x1208…121e Head {h00=0x0012, h01=0x0050, text=» CF A15,LRUNEW«, t00=0x000b, t01=0x00de}
0x121e…122e Head {h00=0x000c, h01=0x0050, text=» CM SACT«, t00=0x000b, t01=0x00f4}
0x122e…1242 Head {h00=0x0010, h01=0x0050, text=»LKM027 EQU *«, t00=0x000b, t01=0x0104}
0x1242…126a Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x000b, t01=0x0118}
0x126a…12a2 Head {h00=0x0034, h01=0x0050, text=» LD A5,PRUN LOAD TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x000b, t01=0x0140}
0x12a2…12ca Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 RESET LABEL INDICATOR «, t00=0x000b, t01=0x0178}
0x12ca…12f2 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 LOAD DATA DIRECTIVE «, t00=0x000c, t01=0x0010}
0x12f2…1312 Head {h00=0x001c, h01=0x0050, text=» RF(NN) LKM030 NO LABLE «, t00=0x000c, t01=0x0038}
0x1312…131c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131c…1326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1326…1348 Head {h00=0x001e, h01=0x0050, text=»* LKM-REQUEST WITH LABLE«, t00=0x000c, t01=0x006c}
0x1348…1352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008e}
0x1352…1364 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x0098}
0x1364…1382 Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 LOAD LABLE«, t00=0x000c, t01=0x00aa}
0x1382…13a0 Head {h00=0x001a, h01=0x0050, text=» NGR A3,A3 NEGATE DATA«, t00=0x000c, t01=0x00c8}
0x13a0…13aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e6}
0x13aa…13b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f0}
0x13b4…13e6 Head {h00=0x002e, h01=0x0050, text=»* UPDATE TTB:SA AND GO TO LKM-PROCESSOR «, t00=0x000c, t01=0x00fa}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012c}
0x13f0…1404 Head {h00=0x0010, h01=0x0050, text=»LKM030 EQU *«, t00=0x000c, t01=0x0136}
0x1404…142a Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 SAVE NEXT ADDRESS TO«, t00=0x000c, t01=0x014a}
0x142a…1452 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:SA,A5 EXECUTE IN TTAB«, t00=0x000c, t01=0x0170}
0x1452…1478 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 GET INDEX IN LKMAL «, t00=0x000d, t01=0x0008}
0x1478…14a4 Head {h00=0x0028, h01=0x0050, text=» RF(Z) LKMQDI PROGRAM SWITCH REQUEST«, t00=0x000d, t01=0x002e}
0x14a4…14b8 Head {h00=0x0010, h01=0x0050, text=» CW A3,LKMAL«, t00=0x000d, t01=0x005a}
0x14b8…14e6 Head {h00=0x002a, h01=0x0050, text=» RF(NL) LKMRQE INVALID DATA DIRECTIVE «, t00=0x000d, t01=0x006e}
0x14e6…14fe Head {h00=0x0014, h01=0x0050, text=» LD A3,LKMAL,A3 «, t00=0x000d, t01=0x009c}
0x14fe…1528 Head {h00=0x0026, h01=0x0050, text=» RF(Z) LKMRQE ERROR IF NOT PRESENT«, t00=0x000d, t01=0x00b4}
0x1528…1548 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x000d, t01=0x00de}
0x1548…1570 Head {h00=0x0024, h01=0x0050, text=» ABR A3 BRANCH TO LKM-PROCESSOR «, t00=0x000d, t01=0x00fe}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0126}
0x157e…1588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x1588…1592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013e}
0x1592…15aa Head {h00=0x0014, h01=0x0050, text=»* L K M R Q E «, t00=0x000d, t01=0x0148}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b4…15ea Head {h00=0x0032, h01=0x0050, text=»* SET A7=-1,QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000d, t01=0x016a}
0x15ea…15f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f4…1612 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x000e, t01=0x001a}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0038}
0x161c…1626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0042}
0x1626…163a Head {h00=0x0010, h01=0x0050, text=»LKMRQE EQU *«, t00=0x000e, t01=0x004c}
0x163a…164e Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x000e, t01=0x0060}
0x164e…1680 Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7«, t00=0x000e, t01=0x0074}
0x1680…168a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a6}
0x168a…1694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b0}
0x1694…16ac Head {h00=0x0014, h01=0x0050, text=»* L K M Q D I «, t00=0x000e, t01=0x00ba}
0x16ac…16b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b6…16e2 Head {h00=0x0028, h01=0x0050, text=»* QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000e, t01=0x00dc}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0108}
0x16ec…170a Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x000e, t01=0x0112}
0x170a…1714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0130}
0x1714…171e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013a}
0x171e…1732 Head {h00=0x0010, h01=0x0050, text=»LKMQDI EQU *«, t00=0x000e, t01=0x0144}
0x1732…1748 Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x000e, t01=0x0158}
0x1748…176c Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000e, t01=0x016e}
0x176c…177a (15, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0004}
0x177a…1784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1784…179a Head {h00=0x0012, h01=0x0050, text=»* I H R T C «, t00=0x000f, t01=0x001c}
0x179a…17a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0032}
0x17a4…17de Head {h00=0x0036, h01=0x0050, text=»* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER «, t00=0x000f, t01=0x003c}
0x17de…1818 Head {h00=0x0036, h01=0x0050, text=»* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS «, t00=0x000f, t01=0x0076}
0x1818…1822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x1822…1836 Head {h00=0x0010, h01=0x0050, text=»IHRTC EQU * «, t00=0x000f, t01=0x00ba}
0x1836…185e Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x000f, t01=0x00ce}
0x185e…1884 Head {h00=0x0022, h01=0x0050, text=» RIT /1B RESET INTERRUPT FLAG «, t00=0x000f, t01=0x00f6}
0x1884…1896 Head {h00=0x000e, h01=0x0050, text=» IM COUNT «, t00=0x000f, t01=0x011c}
0x1896…18ac Head {h00=0x0012, h01=0x0050, text=» RF(P) RTC010 «, t00=0x000f, t01=0x012e}
0x18ac…18bc Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000f, t01=0x0144}
0x18bc…18d8 Head {h00=0x0018, h01=0x0050, text=»RTC010 CF A15,SAVE8 «, t00=0x000f, t01=0x0154}
0x18d8…18fe Head {h00=0x0022, h01=0x0050, text=» IM CVTCLK INCREMENT CVT CLOCK«, t00=0x000f, t01=0x0170}
0x18fe…1924 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-4 SET 100 MS SWITCH «, t00=0x0010, t01=0x0008}
0x1924…1938 Head {h00=0x0010, h01=0x0050, text=» ST A4,COUNT«, t00=0x0010, t01=0x002e}
0x1938…196a Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB«, t00=0x0010, t01=0x0042}
0x196a…1980 Head {h00=0x0012, h01=0x0050, text=» CF A15,QMJOB «, t00=0x0010, t01=0x0074}
0x1980…198a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x198a…19a0 Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x0094}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19aa…19bc Head {h00=0x000e, h01=0x0050, text=» IM DINKAN«, t00=0x0010, t01=0x00b4}
0x19bc…19f2 Head {h00=0x0032, h01=0x0050, text=» RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND«, t00=0x0010, t01=0x00c6}
0x19f2…19fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fc}
0x19fc…1a08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0106}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0112}
0x1a12…1a2a Head {h00=0x0014, h01=0x0050, text=»RTC020 ABL TDISP«, t00=0x0010, t01=0x011c}
0x1a2a…1a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a34…1a4a Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x013e}
0x1a4a…1a58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0154}
0x1a58…1a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a62…1a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016c}
0x1a6c…1aac Head {h00=0x003c, h01=0x0050, text=»* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND «, t00=0x0010, t01=0x0176}
0x1aac…1ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0026}
0x1ab6…1ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0030}
0x1ac0…1ad4 Head {h00=0x0010, h01=0x0050, text=»MCLOCK EQU *«, t00=0x0011, t01=0x003a}
0x1ad4…1b00 Head {h00=0x0028, h01=0x0050, text=»RTC025 LDKL A4,-9 SET SECOND SWITCH «, t00=0x0011, t01=0x004e}
0x1b00…1b16 Head {h00=0x0012, h01=0x0050, text=» ST A4,DINKAN «, t00=0x0011, t01=0x007a}
0x1b16…1b28 Head {h00=0x000e, h01=0x0050, text=» LDK A4,4 «, t00=0x0011, t01=0x0090}
0x1b28…1b5e Head {h00=0x0032, h01=0x0050, text=»MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS«, t00=0x0011, t01=0x00a2}
0x1b5e…1b8a Head {h00=0x0028, h01=0x0050, text=»MCLO20 IM MONCLO+2,A4 INCREMENT TIME«, t00=0x0011, t01=0x00d8}
0x1b8a…1bbe Head {h00=0x0030, h01=0x0050, text=» XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ?«, t00=0x0011, t01=0x0104}
0x1bbe…1be6 Head {h00=0x0024, h01=0x0050, text=» RB(NE) RTC020 GO TO DISPATCHER «, t00=0x0011, t01=0x0138}
0x1be6…1c12 Head {h00=0x0028, h01=0x0050, text=» CM MONCLO+2,A4 RESTART TIME COUNTER«, t00=0x0011, t01=0x0160}
0x1c12…1c2a Head {h00=0x0014, h01=0x0050, text=» SUK A4,2 END ? «, t00=0x0011, t01=0x018c}
0x1c2a…1c4e Head {h00=0x0020, h01=0x0050, text=» RF(N) MCLO30 MIDNIGTH CARRY«, t00=0x0012, t01=0x0014}
0x1c4e…1c72 Head {h00=0x0020, h01=0x0050, text=» RB(P) MCLO10 UPDATE MINUTES«, t00=0x0012, t01=0x0038}
0x1c72…1c92 Head {h00=0x001c, h01=0x0050, text=» LDK A3,24 UPDATE HOURS «, t00=0x0012, t01=0x005c}
0x1c92…1ca4 Head {h00=0x000e, h01=0x0050, text=» RB MCLO20«, t00=0x0012, t01=0x007c}
0x1ca4…1cd2 Head {h00=0x002a, h01=0x0050, text=»MCLO30 IM MONCLO UPDATE 24 HOUR CARRY «, t00=0x0012, t01=0x008e}
0x1cd2…1cf4 Head {h00=0x001e, h01=0x0050, text=» RB RTC020 GOTO DISPATCHER«, t00=0x0012, t01=0x00bc}
0x1cf4…1cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e8}
0x1d08…1d14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00f2}
0x1d14…1d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fe}
0x1d1e…1d32 Head {h00=0x0010, h01=0x0050, text=»MONCLO EQU *«, t00=0x0012, t01=0x0108}
0x1d32…1d48 Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0012, t01=0x011c}
0x1d48…1d72 Head {h00=0x0026, h01=0x0050, text=» DATA 0 ACCUMULATED 24 HOUR CARRY «, t00=0x0012, t01=0x0132}
0x1d72…1d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d7c…1d90 Head {h00=0x0010, h01=0x0050, text=» DATA 0 HOUR«, t00=0x0012, t01=0x0166}
0x1d90…1da6 Head {h00=0x0012, h01=0x0050, text=» DATA 0 MINUTE«, t00=0x0012, t01=0x017a}
0x1da6…1dbc Head {h00=0x0012, h01=0x0050, text=» DATA 0 SECOND«, t00=0x0012, t01=0x0190}
0x1dbc…1dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc6…1dea Head {h00=0x0020, h01=0x0050, text=»DINKAN DATA 0 SECOND SWITCH «, t00=0x0013, t01=0x0020}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df4…1dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1dfe…1e0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0058}
0x1e0a…1e18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0064}
0x1e18…1e20 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0072}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e2a…1e58 Head {h00=0x002a, h01=0x0050, text=»* CLOCK ROUTINE STARTED EACH 100 MS.«, t00=0x0013, t01=0x0084}
0x1e58…1e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e62…1e6a Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00bc}
0x1e6a…1e7c Head {h00=0x000e, h01=0x0050, text=»CLOCK INH «, t00=0x0013, t01=0x00c4}
0x1e7c…1eac Head {h00=0x002c, h01=0x0050, text=» LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS«, t00=0x0013, t01=0x00d6}
0x1eac…1ec4 Head {h00=0x0014, h01=0x0050, text=»CLK10 LDR A6,A4 «, t00=0x0013, t01=0x0106}
0x1ec4…1eec Head {h00=0x0024, h01=0x0050, text=»CLK20 LDR* A4,A6 GET TIMER BLOCK«, t00=0x0013, t01=0x011e}
0x1eec…1f0e Head {h00=0x001e, h01=0x0050, text=» RB(Z) RTC020 END OF QUEUE«, t00=0x0013, t01=0x0146}
0x1f0e…1f16 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0168}
0x1f16…1f36 Head {h00=0x001c, h01=0x0050, text=» IM 4,A4 INCREMENT TIMER«, t00=0x0013, t01=0x0170}
0x1f36…1f6a Head {h00=0x0030, h01=0x0050, text=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE«, t00=0x0013, t01=0x0190}
0x1f6a…1f88 Head {h00=0x001a, h01=0x0050, text=» RF(Z) CLK30 TIME OUT «, t00=0x0014, t01=0x0034}
0x1f88…1f90 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0052}
0x1f90…1fb2 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A4 RELEASE TIMER «, t00=0x0014, t01=0x005a}
0x1fb2…1fc4 Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x0014, t01=0x007c}
0x1fc4…1fda Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x008e}
0x1fda…1fec Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0014, t01=0x00a4}
0x1fec…2002 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x00b6}
0x2002…2014 Head {h00=0x000e, h01=0x0050, text=» RB CLK20 «, t00=0x0014, t01=0x00cc}
0x2014…201c Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00de}
0x201c…204c Head {h00=0x002c, h01=0x0050, text=»CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE«, t00=0x0014, t01=0x00e6}
0x204c…2058 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0116}
0x2058…206a Head {h00=0x000e, h01=0x0050, text=» RB CLK10 «, t00=0x0014, t01=0x0122}
0x206a…2072 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0134}
0x2072…208c Head {h00=0x0016, h01=0x0050, text=»CLK40 CF A15,SAVE8«, t00=0x0014, t01=0x013c}
0x208c…20b0 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 LOAD DISP BLOCK «, t00=0x0014, t01=0x0156}
0x20b0…20d2 Head {h00=0x001e, h01=0x0050, text=» LD A1,4,A2 GET PARAMETER «, t00=0x0014, t01=0x017a}
0x20d2…20fa Head {h00=0x0024, h01=0x0050, text=» ABI 2,A2 GO TO TIME OUT ROUTINE«, t00=0x0015, t01=0x000c}
0x20fa…2104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2104…210e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003e}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2118…213a Head {h00=0x001e, h01=0x0050, text=»COUNT DATA 0 100 MS SWITCH«, t00=0x0015, t01=0x0052}
0x213a…2144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0074}
0x2144…214e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007e}
0x214e…2166 Head {h00=0x0014, h01=0x0050, text=»* T I M Q U E «, t00=0x0015, t01=0x0088}
0x2166…2170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2170…21a2 Head {h00=0x002e, h01=0x0050, text=»* POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0015, t01=0x00aa}
0x21a2…21ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00dc}
0x21ac…21c0 Head {h00=0x0010, h01=0x0050, text=»TIMQUE EQU *«, t00=0x0015, t01=0x00e6}
0x21c0…21d0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0015, t01=0x00fa}
0x21d0…21de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x010a}
0x21de…21e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0118}
0x21e8…21f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0122}
0x21f2…220a Head {h00=0x0014, h01=0x0050, text=»* I H P F A R «, t00=0x0015, t01=0x012c}
0x220a…2214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2214…2256 Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER «, t00=0x0015, t01=0x014e}
0x2256…2260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226a…2280 Head {h00=0x0012, h01=0x0050, text=»* 1. POWER OFF«, t00=0x0016, t01=0x0014}
0x2280…228a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x228a…22c8 Head {h00=0x003a, h01=0x0050, text=»* REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND«, t00=0x0016, t01=0x0034}
0x22c8…22f4 Head {h00=0x0028, h01=0x0050, text=»* STACK POINTER IS SAVED IN CORE «, t00=0x0016, t01=0x0072}
0x22f4…2316 Head {h00=0x001e, h01=0x0050, text=»* THEN SYSTEM IS HALTED«, t00=0x0016, t01=0x009e}
0x2316…2320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c0}
0x2320…232a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ca}
0x232a…2340 Head {h00=0x0012, h01=0x0050, text=»* 2. POWER ON «, t00=0x0016, t01=0x00d4}
0x2340…234a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ea}
0x234a…2374 Head {h00=0x0026, h01=0x0050, text=»* STACK POINTER A15 IS RESTORED«, t00=0x0016, t01=0x00f4}
0x2374…23ae Head {h00=0x0036, h01=0x0050, text=»* COMMON DEVICES ARE RESTARTED BY MODULE PFINIT«, t00=0x0016, t01=0x011e}
0x23ae…23f0 Head {h00=0x003e, h01=0x0050, text=»* REGISTERS A1 - A14 ARE RESTORED FROM INTERRUPT STACK «, t00=0x0016, t01=0x0158}
0x23f0…2428 Head {h00=0x0034, h01=0x0050, text=»* AND RETURN IS GIVEN TO INTERRUPTED PROGRAM «, t00=0x0017, t01=0x000a}
0x2428…2432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0042}
0x2432…243c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x243c…2446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x2446…245a Head {h00=0x0010, h01=0x0050, text=»* WORK AREAS«, t00=0x0017, t01=0x0060}
0x245a…2464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0074}
0x2464…246e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007e}
0x246e…2498 Head {h00=0x0026, h01=0x0050, text=»PFX DATA 1 POWER ON OFF INDICATOR «, t00=0x0017, t01=0x0088}
0x2498…24a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a2…24ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24ac…24d6 Head {h00=0x0026, h01=0x0050, text=»INIFLG DATA 1 INITIALIZATION FLAG «, t00=0x0017, t01=0x00c6}
0x24d6…24e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f0}
0x24e0…24ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00fa}
0x24ee…24f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0108}
0x24f8…2502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0112}
0x2502…252e Head {h00=0x0028, h01=0x0050, text=»* POWER FAIL/AUTO RESTART INTERRUPT «, t00=0x0017, t01=0x011c}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x2542…2558 Head {h00=0x0012, h01=0x0050, text=»IHPFAR EQU * «, t00=0x0017, t01=0x015c}
0x2558…2580 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0017, t01=0x0172}
0x2580…25aa Head {h00=0x0026, h01=0x0050, text=» RIT /17 RESET INTERNAL INTERRUPT «, t00=0x0018, t01=0x000a}
0x25aa…25d4 Head {h00=0x0026, h01=0x0050, text=» C1S PFX INDICATE POWER ON OR OFF «, t00=0x0018, t01=0x0034}
0x25d4…25f2 Head {h00=0x001a, h01=0x0050, text=» RF(P) PFA200 POWER ON«, t00=0x0018, t01=0x005e}
0x25f2…25fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007c}
0x25fc…2610 Head {h00=0x0010, h01=0x0050, text=»* POWER OFF «, t00=0x0018, t01=0x0086}
0x2610…261a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009a}
0x261a…2646 Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0018, t01=0x00a4}
0x2646…2670 Head {h00=0x0026, h01=0x0050, text=» STR A9,A15 SAVE A9 - A14 ON STACK«, t00=0x0018, t01=0x00d0}
0x2670…2684 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x0018, t01=0x00fa}
0x2684…2698 Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x0018, t01=0x010e}
0x2698…26ac Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0018, t01=0x0122}
0x26ac…26c0 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0018, t01=0x0136}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0018, t01=0x014a}
0x26d4…2702 Head {h00=0x002a, h01=0x0050, text=» ST A15,PFA210 SAVE A15 STACK POINTER «, t00=0x0018, t01=0x015e}
0x2702…2722 Head {h00=0x001c, h01=0x0050, text=»PFA100 HLT HALT SYSTEM «, t00=0x0018, t01=0x018c}
0x2722…272c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001c}
0x272c…273e Head {h00=0x000e, h01=0x0050, text=»* POWER ON«, t00=0x0019, t01=0x0026}
0x273e…2748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2748…275c Head {h00=0x0010, h01=0x0050, text=»PFA200 EQU *«, t00=0x0019, t01=0x0042}
0x275c…278a Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0019, t01=0x0056}
0x278a…27a0 Head {h00=0x0012, h01=0x0050, text=»PFA210 EQU *-2«, t00=0x0019, t01=0x0084}
0x27a0…27cc Head {h00=0x0028, h01=0x0050, text=» CM INIFLG RESET INITIALIZATION FLAG«, t00=0x0019, t01=0x009a}
0x27cc…27fa Head {h00=0x002a, h01=0x0050, text=» CF A15,PFINIT RESTART COMMON DEVICES «, t00=0x0019, t01=0x00c6}
0x27fa…2832 Head {h00=0x0034, h01=0x0050, text=» ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0019, t01=0x00f4}
0x2832…283e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x012c}
0x283e…2842 Head {h00=0x4004, h01=0x0000}
0x2842…2846 00 19 01 38 ┆ 8┆
0x2846…284e (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x284e…289e (27, 0, 398) 2c 41 37 5c 53 41 56 45 20 43 55 52 52 45 4e 54 20 43 52 43 00 92 01 84 00 24 00 50 5c 49 4d 5c 53 59 4e 53 57 5c 44 4f 20 4e 4f 54 20 53 4b 49 50 20 53 59 4e 43 53 20 4e 4f 57 20 00 93 00 1c 00 1c 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 5c ┆,A7 SAVE CURRENT CRC $ P IM SYNSW DO NOT SKIP SYNCS NOW P CF A5,READ ┆
0x289e…28ee 52 45 41 44 20 42 59 54 45 20 31 20 00 93 00 44 00 1c 00 50 5c 4c 44 5c 41 38 2c 43 52 43 53 41 56 2b 32 5c 53 41 56 45 20 49 54 20 00 93 00 64 00 1c 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 5c 52 45 41 44 20 42 59 54 45 20 32 20 00 93 00 84 ┆READ BYTE 1 D P LD A8,CRCSAV+2 SAVE IT d P CF A5,READ READ BYTE 2 ┆
0x28ee…293e 00 28 00 50 5c 43 4d 5c 53 59 4e 53 57 5c 53 59 4e 43 53 20 43 41 4e 20 42 45 20 53 4b 49 50 50 45 44 20 41 47 41 49 4e 00 93 00 a4 00 1c 00 50 5c 4c 44 5c 41 32 2c 43 52 43 53 41 56 2b 32 5c 53 41 56 45 20 49 54 20 00 93 00 d0 00 0e 00 50 ┆ ( P CM SYNSW SYNCS CAN BE SKIPPED AGAIN P LD A2,CRCSAV+2 SAVE IT P┆
0x293e…298e 5c 53 4c 4c 5c 41 32 2c 38 20 00 93 00 f0 00 0e 00 50 5c 58 52 52 5c 41 32 2c 41 38 00 93 01 02 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 34 20 00 93 01 14 00 2e 00 50 5c 43 57 52 5c 41 32 2c 41 36 5c 43 4f 4d 50 41 52 45 20 52 45 43 45 49 56 45 ┆ SLL A2,8 P XRR A2,A8 P ADK A5,4 . P CWR A2,A6 COMPARE RECEIVE┆
0x298e…29dc 44 20 57 49 54 48 20 43 4f 4d 50 55 54 45 44 20 00 93 01 26 00 0c 00 50 5c 41 42 52 2a 5c 41 35 00 93 01 58 00 08 00 50 5c 58 49 46 00 93 01 68 00 10 00 50 5c 49 46 54 5c 43 4f 44 45 3d 30 20 00 93 01 74 00 06 00 50 2a 20 00 93 01 88 ┆D WITH COMPUTED & P ABR* A5 X P XIF h P IFT CODE=0 t P* ┆
0x29dc…2a2c (28, 0, 400) 00 26 00 50 2a 20 20 20 52 44 4c 52 43 20 20 20 20 20 20 52 45 41 44 20 4c 52 43 20 43 48 41 52 41 43 54 45 52 20 00 94 00 04 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 3d 30 20 49 46 20 4c 52 43 20 4f 4b 20 00 94 00 2e ┆ & P* RDLRC READ LRC CHARACTER " P* CR=0 IF LRC OK .┆
0x2a2c…2a7c 00 06 00 50 2a 20 00 94 00 54 00 12 00 50 52 44 4c 52 43 5c 49 4d 5c 53 59 4e 53 57 00 94 00 5e 00 10 00 50 5c 43 46 5c 41 35 2c 52 45 41 44 50 00 94 00 74 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 34 20 00 94 00 88 00 0e 00 50 5c 4c 44 52 5c 41 ┆ P* T PRDLRC IM SYNSW ^ P CF A5,READP t P ADK A5,4 P LDR A┆
0x2a7c…2acc 31 2c 41 31 00 94 00 9a 00 12 00 50 5c 52 46 28 4e 5a 29 5c 4c 52 43 45 4e 44 00 94 00 ac 00 10 00 50 5c 41 4e 4b 5c 41 37 2c 2f 37 46 20 00 94 00 c2 00 10 00 50 4c 52 43 45 4e 44 5c 45 51 55 5c 2a 00 94 00 d6 00 0e 00 50 5c 43 4d 5c 53 59 ┆1,A1 P RF(NZ) LRCEND P ANK A7,/7F PLRCEND EQU * P CM SY┆
0x2acc…2b1c 4e 53 57 20 00 94 00 ea 00 0c 00 50 5c 41 42 52 2a 5c 41 35 00 94 00 fc 00 04 00 50 00 94 01 0c 00 08 00 50 5c 58 49 46 00 94 01 14 00 0a 00 50 5c 45 4a 45 43 54 00 94 01 20 00 06 00 50 2a 20 00 94 01 2e 00 06 00 50 2a 20 00 94 01 38 00 22 ┆NSW P ABR* A5 P P XIF P EJECT P* . P* 8 "┆
0x2b1c…2b6c 00 50 2a 5c 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 44 43 54 41 53 4b 00 94 01 42 00 06 00 50 2a 20 00 94 01 68 00 06 00 50 2a 20 00 94 01 72 00 1c 00 50 44 57 31 35 30 30 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 ┆ P* DEVICE WORK TABLE FOR DCTASK B P* h P* r PDW1500 EQU * TABLE E┆