|
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: 10602 (0x296a)
Notes: pts_type(SC)
Names: »LRPINT.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/LRPINT.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/LRPINT.SC«
IDENT LRPINT MIDNIGTH CARRY UPDATE #1 78.01.20.JES UPDATE #0 77-09-09 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * LRPINT = INTERRUPT HANDLERS FOR LKM, RTC * AND POWER FAILURE * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ************************************************** * * * * 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 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 1 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 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 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) MCL030 RB(P) MCLO10 UPDATE MINUTES LDK A3,24 UPDATE HOURS RB MCLO20 MCL030 IM CARRY UPDATE 24 HOUR CARRY RB RTC020 GO TO DISPATCHER * * XIF EJECT * MONCLO EQU * IFT KLOCKA=1 CARRY 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…0024 (0, 0, 400) Head {h00=0x0020, h01=0x0050, text=» IDENT LRPINT MIDNIGTH CARRY«, t00=0x0000, t01=0x0004}
0x0024…0046 Head {h00=0x001e, h01=0x0050, text=» UPDATE #1 78.01.20.JES «, t00=0x0000, t01=0x0028}
0x0046…0068 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x004a}
0x0068…0072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006c}
0x0072…00ac Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0076}
0x00ac…00b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b0}
0x00b6…00de Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00ba}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…011c Head {h00=0x0030, h01=0x0050, text=»* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC«, t00=0x0000, t01=0x00ec}
0x011c…0142 Head {h00=0x0022, h01=0x0050, text=»* AND POWER FAILURE«, t00=0x0000, t01=0x0120}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…016e Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0150}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…019a Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x017c}
0x019a…01a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01de Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0018}
0x01de…01e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e8…01f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005c}
0x01f2…01fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0066}
0x01fc…023a Head {h00=0x003a, h01=0x0050, text=»* THIS MODULE CONTAINS MANDATORY INTERRUPT HANDLERS «, t00=0x0001, t01=0x0070}
0x023a…025a Head {h00=0x001c, h01=0x0050, text=»* FOR TOSS. THESE ARE:«, t00=0x0001, t01=0x00ae}
0x025a…0264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0286 Head {h00=0x001e, h01=0x0050, text=»* -IHLKM: LKM-INTERRUPT «, t00=0x0001, t01=0x00d8}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…02b2 Head {h00=0x001e, h01=0x0050, text=»* -IHRTC: RTC-INTERRUPT «, t00=0x0001, t01=0x0104}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02bc…02e8 Head {h00=0x0028, h01=0x0050, text=»* -IHPFAR: POWER FAILURE INTERRUPT«, t00=0x0001, t01=0x0130}
0x02e8…02f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015c}
0x02f2…0330 Head {h00=0x003a, h01=0x0050, text=»* IN THIS MODULE ENTRIES FOR REQUEST ERRORS ALSO ARE«, t00=0x0001, t01=0x0166}
0x0330…0350 Head {h00=0x001c, h01=0x0050, text=»* PROVIDED. THESE ARE:«, t00=0x0002, t01=0x0014}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…0390 Head {h00=0x0032, h01=0x0050, text=»* -LKMRQE: SET A7=-1 QUEUE JOB AND DISPATCH «, t00=0x0002, t01=0x003e}
0x0390…039a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03c6 Head {h00=0x0028, h01=0x0050, text=»* -LKMQDI: QUEUE JOB AND DISPATCH «, t00=0x0002, t01=0x007e}
0x03c6…03d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…03de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00b4}
0x03de…03f2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00c2}
0x03f2…0406 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00d6}
0x0406…041a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00ea}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0424…044e Head {h00=0x0026, h01=0x0050, text=» ENTRY IHLKM LKM INTERRUPT HANDLER«, t00=0x0002, t01=0x0108}
0x044e…0476 Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x0132}
0x0476…049e Head {h00=0x0024, h01=0x0050, text=» ENTRY LKMQDI QUEUE AND DISPATCH«, t00=0x0002, t01=0x015a}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0182}
0x04a8…04d2 Head {h00=0x0026, h01=0x0050, text=» ENTRY IHRTC RTC INTERRUPT HANDLER«, t00=0x0002, t01=0x018c}
0x04d2…050e Head {h00=0x0038, h01=0x0050, text=» ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0003, t01=0x0026}
0x050e…0532 Head {h00=0x0020, h01=0x0050, text=» ENTRY MONCLO MONITOR CLOCK «, t00=0x0003, t01=0x0062}
0x0532…0568 Head {h00=0x0032, h01=0x0050, text=» ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER «, t00=0x0003, t01=0x0086}
0x0568…0592 Head {h00=0x0026, h01=0x0050, text=» ENTRY INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x00bc}
0x0592…059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059c…05b2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00f0}
0x05b2…05c8 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0106}
0x05c8…05de Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x011c}
0x05de…05e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0132}
0x05e8…0608 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x013c}
0x0608…0646 Head {h00=0x003a, h01=0x0050, text=» EXTRN LKMDIS ENTRY TO BE DISPATCHED AFTR LKM-REQUEST «, t00=0x0003, t01=0x015c}
0x0646…0670 Head {h00=0x0026, h01=0x0050, text=» EXTRN PRUN TTAB OF RUNING PROGRAM«, t00=0x0004, t01=0x000a}
0x0670…0698 Head {h00=0x0024, h01=0x0050, text=» EXTRN QTJOB QUEUE TERMINAL JOB «, t00=0x0004, t01=0x0034}
0x0698…06c0 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWL48 SWITCH TO LEVEL 48 «, t00=0x0004, t01=0x005c}
0x06c0…06f6 Head {h00=0x0032, h01=0x0050, text=» EXTRN TTB:SA FIRST WORD OF SAVE AREA IN TTAB «, t00=0x0004, t01=0x0084}
0x06f6…0726 Head {h00=0x002c, h01=0x0050, text=» EXTRN TTB:TD START OF TERMINAL DEVICES «, t00=0x0004, t01=0x00ba}
0x0726…074c Head {h00=0x0022, h01=0x0050, text=» EXTRN LKMAL LKM REQUEST TABLE«, t00=0x0004, t01=0x00ea}
0x074c…0770 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK SET BLOCK FREE«, t00=0x0004, t01=0x0110}
0x0770…0796 Head {h00=0x0022, h01=0x0050, text=» EXTRN QMJOB QUEUE MONITOR JOB«, t00=0x0004, t01=0x0134}
0x0796…07d0 Head {h00=0x0036, h01=0x0050, text=» EXTRN RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0004, t01=0x015a}
0x07d0…07f6 (5, 0, 400) Head {h00=0x0022, h01=0x0050, text=» EXTRN CVTCLK REAL TIME CLOCK «, t00=0x0005, t01=0x0004}
0x07f6…081e Head {h00=0x0024, h01=0x0050, text=» EXTRN PFINIT RESTART OF DEVICES«, t00=0x0005, t01=0x002a}
0x081e…0844 Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0005, t01=0x0052}
0x0844…086a Head {h00=0x0022, h01=0x0050, text=» EXTRN PFTAB POWER FAIL TABLE «, t00=0x0005, t01=0x0078}
0x086a…088a Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT HALT-MODULE «, t00=0x0005, t01=0x009e}
0x088a…08a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN INTSAV «, t00=0x0005, t01=0x00be}
0x08a0…08c0 Head {h00=0x001c, h01=0x0050, text=» INTERRUPT SAVE MODULE«, t00=0x0005, t01=0x00d4}
0x08c0…08ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00f4}
0x08ce…08d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0102}
0x08d8…08e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08e2…091e Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0005, t01=0x0116}
0x091e…094e Head {h00=0x002c, h01=0x0050, text=»* TO EXCLUDE MONITOR CLOCK FUNCTIONS.«, t00=0x0005, t01=0x0152}
0x094e…097a Head {h00=0x0028, h01=0x0050, text=»* THIS IS DONE BY SETTING X:A = 0«, t00=0x0005, t01=0x0182}
0x097a…0984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x0984…0996 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0006, t01=0x0028}
0x0996…09aa Head {h00=0x0010, h01=0x0050, text=»KLOCKA EQU 1«, t00=0x0006, t01=0x003a}
0x09aa…09b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x004e}
0x09b8…09c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c2…09cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0066}
0x09cc…09e2 Head {h00=0x0012, h01=0x0050, text=»* I H L K M «, t00=0x0006, t01=0x0070}
0x09e2…09ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0086}
0x09ec…09f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0090}
0x09f6…0a32 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING«, t00=0x0006, t01=0x009a}
0x0a32…0a54 Head {h00=0x001e, h01=0x0050, text=»* STEPS ARE CARRIED OUT:«, t00=0x0006, t01=0x00d6}
0x0a54…0a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f8}
0x0a5e…0a8c Head {h00=0x002a, h01=0x0050, text=»* - IF STACK OVERFLOW SYSTEM HALTS. «, t00=0x0006, t01=0x0102}
0x0a8c…0ace Head {h00=0x003e, h01=0x0050, text=»* - ELSE REGISTERS A1-A14 ARE SAVED IN TTAB FOR RUNNING «, t00=0x0006, t01=0x0130}
0x0ace…0ae4 Head {h00=0x0012, h01=0x0050, text=»* PROGRAM.«, t00=0x0006, t01=0x0172}
0x0ae4…0b2c Head {h00=0x0044, h01=0x0050, text=»* - DISPATCH ADDRESS 'LKMDIS' AND 8 REGISTERS ARE SET ON STACK«, t00=0x0006, t01=0x0188}
0x0b2c…0b54 Head {h00=0x0024, h01=0x0050, text=»* - TTB:SA IS UPDATED IN TTAB «, t00=0x0007, t01=0x0040}
0x0b54…0b92 Head {h00=0x003a, h01=0x0050, text=»* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO «, t00=0x0007, t01=0x0068}
0x0b92…0bba Head {h00=0x0024, h01=0x0050, text=»* APPROPIATE LKM-PROCESSOR. «, t00=0x0007, t01=0x00a6}
0x0bba…0bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc4…0be4 Head {h00=0x001c, h01=0x0050, text=»* EXIT CONDITIONS ARE:«, t00=0x0007, t01=0x00d8}
0x0be4…0bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x0bee…0c1c Head {h00=0x002a, h01=0x0050, text=»* A4 = LABLE ADDRESS OF LKM-REQUEST «, t00=0x0007, t01=0x0102}
0x0c1c…0c56 Head {h00=0x0036, h01=0x0050, text=»* (A4=0 INDICATES NO LABLE IN LKM-REQUEST) «, t00=0x0007, t01=0x0130}
0x0c56…0c86 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0007, t01=0x016a}
0x0c86…0ca6 Head {h00=0x001c, h01=0x0050, text=»* A2 AND A3 ARE LOST. «, t00=0x0008, t01=0x000a}
0x0ca6…0ce4 Head {h00=0x003a, h01=0x0050, text=»* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING «, t00=0x0008, t01=0x002a}
0x0ce4…0cf8 Head {h00=0x0010, h01=0x0050, text=»* PROGRAM.«, t00=0x0008, t01=0x0068}
0x0cf8…0d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007c}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0c…0d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d16…0d2a Head {h00=0x0010, h01=0x0050, text=»IHLKM EQU * «, t00=0x0008, t01=0x009a}
0x0d2a…0d3e Head {h00=0x0010, h01=0x0050, text=» ST P,INTSAV«, t00=0x0008, t01=0x00ae}
0x0d3e…0d5c Head {h00=0x001a, h01=0x0050, text=» SAVE LAST INTERRUPT«, t00=0x0008, t01=0x00c2}
0x0d5c…0d8a Head {h00=0x002a, h01=0x0050, text=» RIT /1D RESET INTERNAL INTERRUPT FLAG«, t00=0x0008, t01=0x00e0}
0x0d8a…0d9c Head {h00=0x000e, h01=0x0050, text=»LKM010 INH«, t00=0x0008, t01=0x010e}
0x0d9c…0dbc Head {h00=0x001c, h01=0x0050, text=» ST A15,LKM020 SAVE A15 «, t00=0x0008, t01=0x0120}
0x0dbc…0de2 Head {h00=0x0022, h01=0x0050, text=» LD A15,PRUN LOAD TTAB-ADDRESS«, t00=0x0008, t01=0x0140}
0x0de2…0e1a Head {h00=0x0034, h01=0x0050, text=» ADKL A15,TTB:SA+28 SET A15 TO LAST IN SAVE AREA«, t00=0x0008, t01=0x0166}
0x0e1a…0e4a Head {h00=0x002c, h01=0x0050, text=» STR A14,A15 SAVE USERS REGISTERS, -A14 «, t00=0x0009, t01=0x000e}
0x0e4a…0e64 Head {h00=0x0016, h01=0x0050, text=» STR A13,A15 -A13 «, t00=0x0009, t01=0x003e}
0x0e64…0e7e Head {h00=0x0016, h01=0x0050, text=» STR A12,A15 -A12 «, t00=0x0009, t01=0x0058}
0x0e7e…0e98 Head {h00=0x0016, h01=0x0050, text=» STR A11,A15 -A11 «, t00=0x0009, t01=0x0072}
0x0e98…0eb2 Head {h00=0x0016, h01=0x0050, text=» STR A10,A15 -A10 «, t00=0x0009, t01=0x008c}
0x0eb2…0eca Head {h00=0x0014, h01=0x0050, text=» STR A9,A15 -A9 «, t00=0x0009, t01=0x00a6}
0x0eca…0ee2 Head {h00=0x0014, h01=0x0050, text=» STR A8,A15 -A8 «, t00=0x0009, t01=0x00be}
0x0ee2…0efa Head {h00=0x0014, h01=0x0050, text=» STR A7,A15 -A7 «, t00=0x0009, t01=0x00d6}
0x0efa…0f12 Head {h00=0x0014, h01=0x0050, text=» STR A6,A15 -A6 «, t00=0x0009, t01=0x00ee}
0x0f12…0f2a Head {h00=0x0014, h01=0x0050, text=» STR A5,A15 -A5 «, t00=0x0009, t01=0x0106}
0x0f2a…0f42 Head {h00=0x0014, h01=0x0050, text=» STR A4,A15 -A4 «, t00=0x0009, t01=0x011e}
0x0f42…0f5a Head {h00=0x0014, h01=0x0050, text=» STR A3,A15 -A3 «, t00=0x0009, t01=0x0136}
0x0f5a…0f72 Head {h00=0x0014, h01=0x0050, text=» STR A2,A15 -A2 «, t00=0x0009, t01=0x014e}
0x0f72…0f8a Head {h00=0x0014, h01=0x0050, text=» STR A1,A15 -A1 «, t00=0x0009, t01=0x0166}
0x0f8a…0fb8 Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0009, t01=0x017e}
0x0fb8…0fce Head {h00=0x0012, h01=0x0050, text=»LKM020 EQU *-2«, t00=0x000a, t01=0x001c}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd8…0fe2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003c}
0x0fe2…1014 Head {h00=0x002e, h01=0x0050, text=»* GET DISPATCH ADDRESS AND SWITCH LEVEL «, t00=0x000a, t01=0x0046}
0x1014…101e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101e…1032 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x000a, t01=0x0082}
0x1032…106a Head {h00=0x0034, h01=0x0050, text=» LDR* A2,A15 LOAD P.C. AND ADJUST STACK POINTER «, t00=0x000a, t01=0x0096}
0x106a…107e Head {h00=0x0010, h01=0x0050, text=» LD A3,-2,A2«, t00=0x000a, t01=0x00ce}
0x107e…1094 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/2804 «, t00=0x000a, t01=0x00e2}
0x1094…10ae Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 LKM «, t00=0x000a, t01=0x00f8}
0x10ae…10c4 Head {h00=0x0012, h01=0x0050, text=» CWK A3,/6300 «, t00=0x000a, t01=0x0112}
0x10c4…10de Head {h00=0x0016, h01=0x0050, text=» RF(E) LKM025 TRAP«, t00=0x000a, t01=0x0128}
0x10de…110a Head {h00=0x0028, h01=0x0050, text=» CF A15,HALT HALT IF STACK OVERFLOW «, t00=0x000a, t01=0x0142}
0x110a…1128 Head {h00=0x001a, h01=0x0050, text=»LKM025 LDKL A3,LKMDIS «, t00=0x000a, t01=0x016e}
0x1128…115a Head {h00=0x002e, h01=0x0050, text=» STR A3,A15 SET DISPATCH ADDRESS ON STACK «, t00=0x000a, t01=0x018c}
0x115a…1170 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/C000«, t00=0x000b, t01=0x002e}
0x1170…1190 Head {h00=0x001c, h01=0x0050, text=» STR A3,A15 SET LEVEL 48«, t00=0x000b, t01=0x0044}
0x1190…11c2 Head {h00=0x002e, h01=0x0050, text=» SUKL A15,16 RESERVE SPACE FOR 8 REGISTERS«, t00=0x000b, t01=0x0064}
0x11c2…11ea Head {h00=0x0024, h01=0x0050, text=» CF A15,SWL48 SWITCH TO LEVEL 48«, t00=0x000b, t01=0x0096}
0x11ea…1222 Head {h00=0x0034, h01=0x0050, text=» LD A5,PRUN LOAD TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x000b, t01=0x00be}
0x1222…124a Head {h00=0x0024, h01=0x0050, text=» LDK A4,0 RESET LABEL INDICATOR «, t00=0x000b, t01=0x00f6}
0x124a…1272 Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A2 LOAD DATA DIRECTIVE «, t00=0x000b, t01=0x011e}
0x1272…1292 Head {h00=0x001c, h01=0x0050, text=» RF(NN) LKM030 NO LABLE «, t00=0x000b, t01=0x0146}
0x1292…129c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0166}
0x129c…12a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0170}
0x12a6…12c8 Head {h00=0x001e, h01=0x0050, text=»* LKM-REQUEST WITH LABLE«, t00=0x000b, t01=0x017a}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000c}
0x12d2…12e4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x0016}
0x12e4…1302 Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 LOAD LABLE«, t00=0x000c, t01=0x0028}
0x1302…1320 Head {h00=0x001a, h01=0x0050, text=» NGR A3,A3 NEGATE DATA«, t00=0x000c, t01=0x0046}
0x1320…132a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x132a…1334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006e}
0x1334…1366 Head {h00=0x002e, h01=0x0050, text=»* UPDATE TTB:SA AND GO TO LKM-PROCESSOR «, t00=0x000c, t01=0x0078}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x1370…1384 Head {h00=0x0010, h01=0x0050, text=»LKM030 EQU *«, t00=0x000c, t01=0x00b4}
0x1384…13aa Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 SAVE NEXT ADDRESS TO«, t00=0x000c, t01=0x00c8}
0x13aa…13d2 Head {h00=0x0024, h01=0x0050, text=» ST A2,TTB:SA,A5 EXECUTE IN TTAB«, t00=0x000c, t01=0x00ee}
0x13d2…13f8 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 GET INDEX IN LKMAL «, t00=0x000c, t01=0x0116}
0x13f8…1424 Head {h00=0x0028, h01=0x0050, text=» RF(Z) LKMQDI PROGRAM SWITCH REQUEST«, t00=0x000c, t01=0x013c}
0x1424…1438 Head {h00=0x0010, h01=0x0050, text=» CW A3,LKMAL«, t00=0x000c, t01=0x0168}
0x1438…1466 Head {h00=0x002a, h01=0x0050, text=» RF(NL) LKMRQE INVALID DATA DIRECTIVE «, t00=0x000c, t01=0x017c}
0x1466…147e Head {h00=0x0014, h01=0x0050, text=» LD A3,LKMAL,A3 «, t00=0x000d, t01=0x001a}
0x147e…14a8 Head {h00=0x0026, h01=0x0050, text=» RF(Z) LKMRQE ERROR IF NOT PRESENT«, t00=0x000d, t01=0x0032}
0x14a8…14c8 Head {h00=0x001c, h01=0x0050, text=» INH INHIBIT INTERRUPTS«, t00=0x000d, t01=0x005c}
0x14c8…14f0 Head {h00=0x0024, h01=0x0050, text=» ABR A3 BRANCH TO LKM-PROCESSOR «, t00=0x000d, t01=0x007c}
0x14f0…14fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a4}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x1512…152a Head {h00=0x0014, h01=0x0050, text=»* L K M R Q E «, t00=0x000d, t01=0x00c6}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00de}
0x1534…156a Head {h00=0x0032, h01=0x0050, text=»* SET A7=-1,QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000d, t01=0x00e8}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x1574…1592 Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x000d, t01=0x0128}
0x1592…159c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x159c…15a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a6…15ba Head {h00=0x0010, h01=0x0050, text=»LKMRQE EQU *«, t00=0x000d, t01=0x015a}
0x15ba…15ce Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x000d, t01=0x016e}
0x15ce…1600 Head {h00=0x002e, h01=0x0050, text=» ST A2,TTB:SA+14,A5 SET -1 IN SAVE AREA A7«, t00=0x000d, t01=0x0182}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x1614…162c Head {h00=0x0014, h01=0x0050, text=»* L K M Q D I «, t00=0x000e, t01=0x0038}
0x162c…1636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0050}
0x1636…1662 Head {h00=0x0028, h01=0x0050, text=»* QUEUE TERMINAL JOB AND DISPATCH «, t00=0x000e, t01=0x005a}
0x1662…166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x166c…168a Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB-ADDRESS «, t00=0x000e, t01=0x0090}
0x168a…1694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ae}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=»LKMQDI EQU *«, t00=0x000e, t01=0x00c2}
0x16b2…16c8 Head {h00=0x0012, h01=0x0050, text=» CF A15,QTJOB «, t00=0x000e, t01=0x00d6}
0x16c8…16ec Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x000e, t01=0x00ec}
0x16ec…16fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0110}
0x16fa…1704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x1704…171a Head {h00=0x0012, h01=0x0050, text=»* I H R T C «, t00=0x000e, t01=0x0128}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013e}
0x1724…175e Head {h00=0x0036, h01=0x0050, text=»* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER «, t00=0x000e, t01=0x0148}
0x175e…1798 Head {h00=0x0036, h01=0x0050, text=»* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS «, t00=0x000e, t01=0x0182}
0x1798…17a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x17a2…17b6 Head {h00=0x0010, h01=0x0050, text=»IHRTC EQU * «, t00=0x000f, t01=0x0036}
0x17b6…17de Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x000f, t01=0x004a}
0x17de…1804 Head {h00=0x0022, h01=0x0050, text=» RIT /1B RESET INTERRUPT FLAG «, t00=0x000f, t01=0x0072}
0x1804…1816 Head {h00=0x000e, h01=0x0050, text=» IM COUNT «, t00=0x000f, t01=0x0098}
0x1816…182c Head {h00=0x0012, h01=0x0050, text=» RF(P) RTC010 «, t00=0x000f, t01=0x00aa}
0x182c…183c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000f, t01=0x00c0}
0x183c…1858 Head {h00=0x0018, h01=0x0050, text=»RTC010 CF A15,SAVE8 «, t00=0x000f, t01=0x00d0}
0x1858…187e Head {h00=0x0022, h01=0x0050, text=» IM CVTCLK INCREMENT CVT CLOCK«, t00=0x000f, t01=0x00ec}
0x187e…18a4 Head {h00=0x0022, h01=0x0050, text=» LDKL A4,-4 SET 100 MS SWITCH «, t00=0x000f, t01=0x0112}
0x18a4…18b8 Head {h00=0x0010, h01=0x0050, text=» ST A4,COUNT«, t00=0x000f, t01=0x0138}
0x18b8…18ea Head {h00=0x002e, h01=0x0050, text=» LDKL A2,CLOCK QUEUE CLOCK-ROUTINE AS MJOB«, t00=0x000f, t01=0x014c}
0x18ea…1900 Head {h00=0x0012, h01=0x0050, text=» CF A15,QMJOB «, t00=0x000f, t01=0x017e}
0x1900…190a (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x190a…1920 Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x000e}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0024}
0x192a…193c Head {h00=0x000e, h01=0x0050, text=» IM DINKAN«, t00=0x0010, t01=0x002e}
0x193c…1972 Head {h00=0x0032, h01=0x0050, text=» RF(P) RTC025 UPDATE MONITOR CLOCK EACH SECOND«, t00=0x0010, t01=0x0040}
0x1972…197c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x197c…1988 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0080}
0x1988…1992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x1992…19aa Head {h00=0x0014, h01=0x0050, text=»RTC020 ABL TDISP«, t00=0x0010, t01=0x0096}
0x19aa…19b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ae}
0x19b4…19ca Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0010, t01=0x00b8}
0x19ca…19d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00ce}
0x19d8…19e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19e2…19ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e6}
0x19ec…1a2c Head {h00=0x003c, h01=0x0050, text=»* MONITOR CLOCK UPDATING ROUTINE STARTED EACH SECOND «, t00=0x0010, t01=0x00f0}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a36…1a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013a}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=»MCLOCK EQU *«, t00=0x0010, t01=0x0144}
0x1a54…1a80 Head {h00=0x0028, h01=0x0050, text=»RTC025 LDKL A4,-9 SET SECOND SWITCH «, t00=0x0010, t01=0x0158}
0x1a80…1a96 Head {h00=0x0012, h01=0x0050, text=» ST A4,DINKAN «, t00=0x0010, t01=0x0184}
0x1a96…1aa8 Head {h00=0x000e, h01=0x0050, text=» LDK A4,4 «, t00=0x0011, t01=0x000a}
0x1aa8…1ade Head {h00=0x0032, h01=0x0050, text=»MCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS«, t00=0x0011, t01=0x001c}
0x1ade…1b0a Head {h00=0x0028, h01=0x0050, text=»MCLO20 IM MONCLO+2,A4 INCREMENT TIME«, t00=0x0011, t01=0x0052}
0x1b0a…1b3e Head {h00=0x0030, h01=0x0050, text=» XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS ?«, t00=0x0011, t01=0x007e}
0x1b3e…1b66 Head {h00=0x0024, h01=0x0050, text=» RB(NE) RTC020 GO TO DISPATCHER «, t00=0x0011, t01=0x00b2}
0x1b66…1b92 Head {h00=0x0028, h01=0x0050, text=» CM MONCLO+2,A4 RESTART TIME COUNTER«, t00=0x0011, t01=0x00da}
0x1b92…1baa Head {h00=0x0014, h01=0x0050, text=» SUK A4,2 END ? «, t00=0x0011, t01=0x0106}
0x1baa…1bc0 Head {h00=0x0012, h01=0x0050, text=» RF(N) MCL030 «, t00=0x0011, t01=0x011e}
0x1bc0…1be4 Head {h00=0x0020, h01=0x0050, text=» RB(P) MCLO10 UPDATE MINUTES«, t00=0x0011, t01=0x0134}
0x1be4…1c04 Head {h00=0x001c, h01=0x0050, text=» LDK A3,24 UPDATE HOURS «, t00=0x0011, t01=0x0158}
0x1c04…1c16 Head {h00=0x000e, h01=0x0050, text=» RB MCLO20«, t00=0x0011, t01=0x0178}
0x1c16…1c42 Head {h00=0x0028, h01=0x0050, text=»MCL030 IM CARRY UPDATE 24 HOUR CARRY«, t00=0x0011, t01=0x018a}
0x1c42…1c66 Head {h00=0x0020, h01=0x0050, text=» RB RTC020 GO TO DISPATCHER «, t00=0x0012, t01=0x0026}
0x1c66…1c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004a}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0054}
0x1c7a…1c86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x005e}
0x1c86…1c94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006a}
0x1c94…1c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0078}
0x1c9e…1cb2 Head {h00=0x0010, h01=0x0050, text=»MONCLO EQU *«, t00=0x0012, t01=0x0082}
0x1cb2…1cc8 Head {h00=0x0012, h01=0x0050, text=» IFT KLOCKA=1 «, t00=0x0012, t01=0x0096}
0x1cc8…1cf6 Head {h00=0x002a, h01=0x0050, text=»CARRY DATA 0 ACCUMULATED 24 HOUR CARRY«, t00=0x0012, t01=0x00ac}
0x1cf6…1d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00da}
0x1d00…1d14 Head {h00=0x0010, h01=0x0050, text=» DATA 0 HOUR«, t00=0x0012, t01=0x00e4}
0x1d14…1d2a Head {h00=0x0012, h01=0x0050, text=» DATA 0 MINUTE«, t00=0x0012, t01=0x00f8}
0x1d2a…1d40 Head {h00=0x0012, h01=0x0050, text=» DATA 0 SECOND«, t00=0x0012, t01=0x010e}
0x1d40…1d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0124}
0x1d4a…1d6e Head {h00=0x0020, h01=0x0050, text=»DINKAN DATA 0 SECOND SWITCH «, t00=0x0012, t01=0x012e}
0x1d6e…1d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d78…1d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d82…1d8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0166}
0x1d8e…1d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0172}
0x1d9c…1da4 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0180}
0x1da4…1dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0188}
0x1dae…1ddc (19, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* CLOCK ROUTINE STARTED EACH 100 MS.«, t00=0x0013, t01=0x0004}
0x1ddc…1de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de6…1dee Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x003c}
0x1dee…1e00 Head {h00=0x000e, h01=0x0050, text=»CLOCK INH «, t00=0x0013, t01=0x0044}
0x1e00…1e30 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS«, t00=0x0013, t01=0x0056}
0x1e30…1e48 Head {h00=0x0014, h01=0x0050, text=»CLK10 LDR A6,A4 «, t00=0x0013, t01=0x0086}
0x1e48…1e70 Head {h00=0x0024, h01=0x0050, text=»CLK20 LDR* A4,A6 GET TIMER BLOCK«, t00=0x0013, t01=0x009e}
0x1e70…1e92 Head {h00=0x001e, h01=0x0050, text=» RB(Z) RTC020 END OF QUEUE«, t00=0x0013, t01=0x00c6}
0x1e92…1e9a Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00e8}
0x1e9a…1eba Head {h00=0x001c, h01=0x0050, text=» IM 4,A4 INCREMENT TIMER«, t00=0x0013, t01=0x00f0}
0x1eba…1eee Head {h00=0x0030, h01=0x0050, text=» RB(N) CLK10 NOT TIME OUT, GET NEXT IN QUEUE«, t00=0x0013, t01=0x0110}
0x1eee…1f0c Head {h00=0x001a, h01=0x0050, text=» RF(Z) CLK30 TIME OUT «, t00=0x0013, t01=0x0144}
0x1f0c…1f14 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0162}
0x1f14…1f36 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A4 RELEASE TIMER «, t00=0x0013, t01=0x016a}
0x1f36…1f48 Head {h00=0x000e, h01=0x0050, text=» STR A3,A6«, t00=0x0013, t01=0x018c}
0x1f48…1f5e Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x000e}
0x1f5e…1f70 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0014, t01=0x0024}
0x1f70…1f86 Head {h00=0x0012, h01=0x0050, text=» CF A15,FREBLK«, t00=0x0014, t01=0x0036}
0x1f86…1f98 Head {h00=0x000e, h01=0x0050, text=» RB CLK20 «, t00=0x0014, t01=0x004c}
0x1f98…1fa0 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x005e}
0x1fa0…1fd0 Head {h00=0x002c, h01=0x0050, text=»CLK30 CF A15,CLK40 CALL TIME OUT ROUTINE«, t00=0x0014, t01=0x0066}
0x1fd0…1fdc Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0096}
0x1fdc…1fee Head {h00=0x000e, h01=0x0050, text=» RB CLK10 «, t00=0x0014, t01=0x00a2}
0x1fee…1ff6 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00b4}
0x1ff6…2010 Head {h00=0x0016, h01=0x0050, text=»CLK40 CF A15,SAVE8«, t00=0x0014, t01=0x00bc}
0x2010…2034 Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 LOAD DISP BLOCK «, t00=0x0014, t01=0x00d6}
0x2034…2056 Head {h00=0x001e, h01=0x0050, text=» LD A1,4,A2 GET PARAMETER «, t00=0x0014, t01=0x00fa}
0x2056…207e Head {h00=0x0024, h01=0x0050, text=» ABI 2,A2 GO TO TIME OUT ROUTINE«, t00=0x0014, t01=0x011c}
0x207e…2088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0144}
0x2088…2092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014e}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x209c…20be Head {h00=0x001e, h01=0x0050, text=»COUNT DATA 0 100 MS SWITCH«, t00=0x0014, t01=0x0162}
0x20be…20c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0184}
0x20c8…20d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20d2…20ea Head {h00=0x0014, h01=0x0050, text=»* T I M Q U E «, t00=0x0015, t01=0x0008}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0020}
0x20f4…2126 Head {h00=0x002e, h01=0x0050, text=»* POINTER TO FIRST BLOCK IN TIMER QUEUE «, t00=0x0015, t01=0x002a}
0x2126…2130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x2130…2144 Head {h00=0x0010, h01=0x0050, text=»TIMQUE EQU *«, t00=0x0015, t01=0x0066}
0x2144…2154 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0015, t01=0x007a}
0x2154…2162 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x008a}
0x2162…216c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0098}
0x216c…2176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a2}
0x2176…218e Head {h00=0x0014, h01=0x0050, text=»* I H P F A R «, t00=0x0015, t01=0x00ac}
0x218e…2198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2198…21da Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE POWER FAIL/AUTO RESTART INTERRUPT HANDLER «, t00=0x0015, t01=0x00ce}
0x21da…21e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0110}
0x21e4…21ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21ee…2204 Head {h00=0x0012, h01=0x0050, text=»* 1. POWER OFF«, t00=0x0015, t01=0x0124}
0x2204…220e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013a}
0x220e…224c Head {h00=0x003a, h01=0x0050, text=»* REGISTERS A1-A14 ARE SAVED ON INTERRUPT STACK AND«, t00=0x0015, t01=0x0144}
0x224c…2278 Head {h00=0x0028, h01=0x0050, text=»* STACK POINTER IS SAVED IN CORE «, t00=0x0015, t01=0x0182}
0x2278…229a Head {h00=0x001e, h01=0x0050, text=»* THEN SYSTEM IS HALTED«, t00=0x0016, t01=0x001e}
0x229a…22a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x22a4…22ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22ae…22c4 Head {h00=0x0012, h01=0x0050, text=»* 2. POWER ON «, t00=0x0016, t01=0x0054}
0x22c4…22ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006a}
0x22ce…22f8 Head {h00=0x0026, h01=0x0050, text=»* STACK POINTER A15 IS RESTORED«, t00=0x0016, t01=0x0074}
0x22f8…2332 Head {h00=0x0036, h01=0x0050, text=»* COMMON DEVICES ARE RESTARTED BY MODULE PFINIT«, t00=0x0016, t01=0x009e}
0x2332…2374 Head {h00=0x003e, h01=0x0050, text=»* REGISTERS A1 - A14 ARE RESTORED FROM INTERRUPT STACK «, t00=0x0016, t01=0x00d8}
0x2374…23ac Head {h00=0x0034, h01=0x0050, text=»* AND RETURN IS GIVEN TO INTERRUPTED PROGRAM «, t00=0x0016, t01=0x011a}
0x23ac…23b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0152}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015c}
0x23c0…23ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0166}
0x23ca…23de Head {h00=0x0010, h01=0x0050, text=»* WORK AREAS«, t00=0x0016, t01=0x0170}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0184}
0x23e8…23f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018e}
0x23f2…241c Head {h00=0x0026, h01=0x0050, text=»PFX DATA 1 POWER ON OFF INDICATOR «, t00=0x0017, t01=0x0008}
0x241c…2426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0032}
0x2426…2430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003c}
0x2430…245a Head {h00=0x0026, h01=0x0050, text=»INIFLG DATA 1 INITIALIZATION FLAG «, t00=0x0017, t01=0x0046}
0x245a…2464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0070}
0x2464…2472 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x007a}
0x2472…247c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0088}
0x247c…2486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0092}
0x2486…24b2 Head {h00=0x0028, h01=0x0050, text=»* POWER FAIL/AUTO RESTART INTERRUPT «, t00=0x0017, t01=0x009c}
0x24b2…24bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c8}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d2}
0x24c6…24dc Head {h00=0x0012, h01=0x0050, text=»IHPFAR EQU * «, t00=0x0017, t01=0x00dc}
0x24dc…2504 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0017, t01=0x00f2}
0x2504…252e Head {h00=0x0026, h01=0x0050, text=» RIT /17 RESET INTERNAL INTERRUPT «, t00=0x0017, t01=0x011a}
0x252e…2558 Head {h00=0x0026, h01=0x0050, text=» C1S PFX INDICATE POWER ON OR OFF «, t00=0x0017, t01=0x0144}
0x2558…2576 Head {h00=0x001a, h01=0x0050, text=» RF(P) PFA200 POWER ON«, t00=0x0017, t01=0x016e}
0x2576…2580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x2580…2594 Head {h00=0x0010, h01=0x0050, text=»* POWER OFF «, t00=0x0018, t01=0x0008}
0x2594…259e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x259e…25ca Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1 - A8 ON STACK «, t00=0x0018, t01=0x0026}
0x25ca…25f4 Head {h00=0x0026, h01=0x0050, text=» STR A9,A15 SAVE A9 - A14 ON STACK«, t00=0x0018, t01=0x0052}
0x25f4…2608 Head {h00=0x0010, h01=0x0050, text=» STR A10,A15«, t00=0x0018, t01=0x007c}
0x2608…261c Head {h00=0x0010, h01=0x0050, text=» STR A11,A15«, t00=0x0018, t01=0x0090}
0x261c…2630 Head {h00=0x0010, h01=0x0050, text=» STR A12,A15«, t00=0x0018, t01=0x00a4}
0x2630…2644 Head {h00=0x0010, h01=0x0050, text=» STR A13,A15«, t00=0x0018, t01=0x00b8}
0x2644…2658 Head {h00=0x0010, h01=0x0050, text=» STR A14,A15«, t00=0x0018, t01=0x00cc}
0x2658…2686 Head {h00=0x002a, h01=0x0050, text=» ST A15,PFA210 SAVE A15 STACK POINTER «, t00=0x0018, t01=0x00e0}
0x2686…26a6 Head {h00=0x001c, h01=0x0050, text=»PFA100 HLT HALT SYSTEM «, t00=0x0018, t01=0x010e}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012e}
0x26b0…26c2 Head {h00=0x000e, h01=0x0050, text=»* POWER ON«, t00=0x0018, t01=0x0138}
0x26c2…26cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014a}
0x26cc…26e0 Head {h00=0x0010, h01=0x0050, text=»PFA200 EQU *«, t00=0x0018, t01=0x0154}
0x26e0…270e Head {h00=0x002a, h01=0x0050, text=» LDKL A15,0 RESTORE A15 STACK POINTER «, t00=0x0018, t01=0x0168}
0x270e…2724 Head {h00=0x0012, h01=0x0050, text=»PFA210 EQU *-2«, t00=0x0019, t01=0x0008}
0x2724…2750 Head {h00=0x0028, h01=0x0050, text=» CM INIFLG RESET INITIALIZATION FLAG«, t00=0x0019, t01=0x001e}
0x2750…277e Head {h00=0x002a, h01=0x0050, text=» CF A15,PFINIT RESTART COMMON DEVICES «, t00=0x0019, t01=0x004a}
0x277e…27b6 Head {h00=0x0034, h01=0x0050, text=» ABL RETU14 RESTORE A1-A14 FROM INTERRUPT STACK «, t00=0x0019, t01=0x0078}
0x27b6…27c2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x00b0}
0x27c2…27c6 Head {h00=0x4004, h01=0x0000}
0x27c6…27ca 00 19 00 bc ┆ ┆
0x27ca…27d2 (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x27d2…27da (27, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x27da…282a (28, 0, 400) 20 20 20 20 20 20 20 49 4e 50 55 54 20 3a 20 41 33 20 43 4f 4e 54 41 49 4e 53 20 41 44 44 52 45 53 53 20 4f 46 20 4c 46 54 20 00 33 01 8e 00 06 00 50 2a 20 00 34 00 32 00 2e 00 50 2a 20 20 20 20 20 20 20 20 4f 55 54 50 55 54 3a 20 41 33 20 ┆ INPUT : A3 CONTAINS ADDRESS OF LFT 3 P* 4 2 . P* OUTPUT: A3 ┆
0x282a…287a 43 4f 4e 54 41 49 4e 53 20 41 44 52 45 53 53 20 4f 46 20 4c 46 54 00 34 00 3c 00 06 00 50 2a 20 00 34 00 6e 00 06 00 50 2a 20 00 34 00 78 00 12 00 50 20 20 20 20 20 20 20 20 20 45 4a 45 43 54 00 34 00 82 00 18 00 50 52 57 52 44 4f 4d 20 20 ┆CONTAINS ADRESS OF LFT 4 < P* 4 n P* 4 x P EJECT 4 PRWRDOM ┆
0x287a…28ca 20 45 51 55 20 20 20 20 20 20 2a 20 00 34 00 98 00 48 00 50 20 20 20 20 20 20 20 20 20 4c 44 20 20 20 20 20 20 20 41 31 2c 4c 46 54 53 52 43 2c 41 33 20 20 20 20 20 20 20 20 20 52 45 4c 41 54 49 56 45 20 53 45 43 54 4f 52 20 41 44 44 52 45 ┆ EQU * 4 H P LD A1,LFTSRC,A3 RELATIVE SECTOR ADDRE┆
0x28ca…291a 53 53 20 49 4e 20 41 31 00 34 00 b4 00 1a 00 50 20 20 20 20 20 20 20 20 20 41 42 2e 4c 28 32 29 20 20 45 4f 4d 20 00 34 01 00 00 1a 00 50 20 20 20 20 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 41 31 2c 32 00 34 01 1e 00 1c 00 50 20 20 20 20 ┆SS IN A1 4 P AB.L(2) EOM 4 P ADK A1,2 4 P ┆
0x291a…296a 20 20 20 20 20 4c 44 52 20 20 20 20 20 20 41 32 2c 41 31 20 00 34 01 3c 00 46 00 50 20 20 20 20 20 20 20 20 20 41 4e 4b 20 20 20 20 20 20 41 31 2c 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 43 ┆ LDR A2,A1 4 < F P ANK A1,7 NUMBER OF SEC┆