|
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: 23636 (0x5c54)
Notes: pts_type(SC)
Names: »DRKB03.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRKB03.SC«
IDENT DRKB03 REL 9.2 79-11-16 870105040920 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRKB01 = DRIVER KEYBOARD * * * * * * ******************************************* * * * THIS DRIVER HANDLES INPUT FROM NUMERIC * AND ALPHANUMERIC KEYBOARDS PTS 6236, * CONNECTED TO CPU VIA CHLT OR CHRT. * * ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS * ARE HANDLED BY THE DRIVER. * * AN ECHO-DEVICE CAN BE ATTACHED TO EVERY * KEYBOARD WHERE RECEIVED CHARACTERS ARE * ECHOED. * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C K B : ACTIVATION PART * * I H K B : INTERRUPT HANDLER * * E C H O : ECHO HANDLER * * R C K B : RECOVERY ROUTINE * EJECT * * * THE FOLLOWING ORDERS ARE THREATED: * * ORDER 01: BASIC READ * ORDER 02: STANDARD READ * ORDER 03: NUMERIC READ * ORDER 31: RESET INPUT BUFFER * * * NORMAL REGISTER USAGE : * * REGISTER A1 : RETURN CODE * A2 : INPUT CHARACTER * A3 : BUFFER INDEX * A4 : WORK REGISTER * A5 : STACK BASE * A6 : DWT-ADDRESS * A7 : ORDER * A8 : ECB-ADDRESS * * * * SYSTEM ADAPTATION * * CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, * MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED * IN DWT. * * DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE * DEFINED IN DWT. * * IF TIMING IS WANTED, TIMER POINTER * IN DWT MUST BE SET UNEQUAL TO ZERO. * STANDARD VALUE FOR TIME-OUT IS 30 SECONDS * SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * IS WANTED FOR A SYSTEM, INDICATOR * IN DRIVER MUST BE CHANGED. * * THE LENGTH OF THE CIRCULAR INPUT BUFFER IS * DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS * NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL * DWT:S IN SYSTEM EJECT * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: * * -----ECHO-FUNCTION * -----POWER ON INDICATION * -----TIME-OUT-FUNCTION * -----NUMERIC SHIFT-FUNCTION * -----KEYBOARD LOCK IF NO KEYLOCK ON * * ENTRIES * * ENTRY KBAD3 ADDRESS-BLOCK * * * * EXTERNAL TOSS MODULE ENTRIES * * * EXTRN DISIOE I/O REQUEST ERROR EXTRN DISEND END I/O AND GO TO DISPATCHER EXTRN TENDIO END I/O EXTRN TDISP DISPATCHER ENTRY EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN EXTRN STREG STORE REGISTERS AND GO TO DISPATCER EXTRN LDREGE RETURN FROM ECHOE HANDLING EXTRN LDREGF PANIK EXTERN EXTRN SETIME SET TIME EXTRN SETIMP SET TIME EXTRN SAVE8 SAVE 8 REGISTERS EXTRN ECHRTN RETURN FROM ECHO EXTRN ECHO ECHO ROUTINE EXTRN ECHEND END OF ECHOING * * * * DWT PARAMETERS * * * EXTRN DWTCHP CHANEL PARAMETER EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTADR DRIVER ADDRESS BLOCK EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN DWTECH ECHO DEVICE DWT EXTRN DWTTP TIMER POINTER EXTRN DWTWAT SAVE INPUT DWT EJECT * * * * CONSTANTS * * * OVMASK EQU /2 OVERFLOW IN INPUT BUFFER * X:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM * * * TIME BEFORE TIME OUT * TIME EQU 300 TIME OUT CONSTANT * EJECT * * **************************************** * CONDITIONAL ASSEMBLY * **************************************** * * TIME OUT FUNCTION MAY BE EXCLUDED BY * SETTING X:A = 0. * X:A EQU 0 CTIMUT EQU X:A * * ECHO FUNCTION MAY BE EXCLUDED BY * SETTING X:B = 0. * X:B EQU 1 CECHO EQU X:B * * BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION * IS INCLUDED IN THE DRIVER. * IF THERE IS A READ REQUEST THIS IS COMPLETED WITH * ZERO IN THE CONTROL WORD OF ECB. * IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST * AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD * OF ECB * * X:E EQU 0 POWOFF EQU X:E * * * * BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 X:H EQU 0 NSHIFT EQU X:H * * * BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. X:I EQU 0 KBLOCK EQU X:I * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * MMU BUFFER SIZE * * X:J EQU 10 DVBLEN EQU X:J * * * MMU KEY TABLE SIZE * * X:K EQU 10 DVBKTB EQU X:K * EJECT * * * DWT-DISPLACEMENT * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTCON EQU START+/00 CONVERSION TABLE DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE DWTSQ EQU START+/1C START OF QUEUE DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE * * SPECIAL KEYS DEFINED IN DWT * * * KBBSP EQU START+/14 BACK-SPACE CHARACTER KBCLR EQU START+/15 CLEAR CHARACTER KBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER KBMZ3 EQU START+/16 * EJECT * TABLES * * DATA DVBKTB MMU KEY TABLE SIZE DATA DVBLEN MMU BUFFER SIZE DATA 6 DEVICE INDEX * KBAD3 EQU * DATA ACKB ACTIVATION HANDLER DATA 0 ABORT ROUTINE ADDRESS DATA IHKB INTERRUPT HANDLER IFT POWOFF=1 DATA RCKB RECOVERY ROUTINE XIF IFT POWOFF=0 DATA 0 NO RECOVERY XIF * IFT POWOFF=1 EJECT * RCKB * * RECOVERY PART * * RCKB EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 LD A3,DWTST,A6 BUSY? RF(NN) RCKB10 LDKL A1,/200 ORS A1,DWTST,A6 INDICATE POWER OFF ABL TDISP RCKB10 CF A5,LDREGE LOAD REGISTERS RF AKB202 XIF EJECT * * * ACKB * * ACTIVATION PART: CHECS VALIDITY OF ORDERS AND * * EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER * * TO THREAT * * * * ACKB EQU * LDKL A1,/FEFF ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG LDK A1,0 LDK A3,0 START BUFFER INDEX LDR A4,A7 RF(NG) AKB100 ILLEGAL ORDER SUK A4,4 RF(N) AKB200 ORDER 1,2 OR 3 SUK A4,/2D RF(Z) AKB110 ORDER 31 AKB100 ORKL A1,/8000 I/0 REQUEST ERROR ABL ENDI10 EJECT * * * * ORDER 31 RESET INPUT BUFFER * * * AKB110 EQU * LD A2,DWTINQ,A6 SCR A1,A2 ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE ABL ENDIO * EJECT * * * ORDER 1,2,3 * * * AKB200 EQU * IFT POWOFF=1 LD A2,DWTST,A6 ANKL A2,/200 POWER OFF? RF(E) AKB205 NO! XRS A2,DWTST,A6 RESET POWER OFF BIT AKB202 EQU * CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST RF(E) AKB205 CM 10,A8 INDICATE POWER OFF RF AKB218 XIF AKB205 EQU * IFT CTIMUT=1 LDR* A1,A6 ANK A1,/40 TIMING? RF(E) AKB210 NO TIMING FOR THIS DEVICE! LD A4,DWTTP,A6 CHECK IF ALREADY TIMING RF(E) AKBTIM LDKL A4,-TIME ST* A4,DWTTP,A6 RF AKB210 AKBTIM EQU * LDKL A4,DWTTP TIMER POINTER ADR A4,A6 ADD DWT-ADDRESS LDR A1,A6 CF A15,SETIMP SET TIME DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT XIF * EJECT * IF ANY KEY-LOCK: * * RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER * OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER. * IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE * AND END I/O. ELSE CONTINUE. * * AKB210 EQU * LD A2,DWTST,A6 ANY KEY-LOCK? ANK A2,/F RF(Z) AKB219 SLL A2,1 SRN A2,A4 LDR A1,A4 CWK A4,3 RF(N) AKB212 RF(P) AKB211 ADK A4,1 RF AKB212 AKB211 ADR A4,A4 AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG LDR A2,A4 SLL A4,4 AN A4,DWTST,A6 STR A4,A15 SAVE A4 STR A3,A15 SRN A2,A3 ORDER 1 ADR A3,A3 MAKE CHARACTER FLAG LDR A4,A4 RF(NE) AKB213 ADK A3,1 AKB213 ADK A3,/70 LDR A2,A3 LDR* A3,A15 CF A15,STORE STORE KEY IN ECB BUFFER LDR* A4,A15 RESTORE A4 CWK A7,1 RF(E) AKB307 JUMP IF BASIC READ AKB214 NGR A2,A1 MAKE ECB CODE LDR A4,A4 KEY FLAG RF(E) AKB215 SUK A2,4 AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB AKB218 ABL AKB380 AKB219 LD A2,4,A8 REQUESTED LENGTH=0 AKB220 ABL(E) AKB380 AKB225 LDR A3,A3 FIRTST RIME? RF(NE) AKB240 N0! LD A1,2,A8 BUFFER ADDRESS SUK A1,1 ADR A1,A2 AKB230 SCR A3,A1 CLEAR ECB BUFFER SUK A1,1 SUK A2,1 RB(NE) AKB230 AKB240 EQU * LD A1,DWTUTQ,A6 LCR A2,A1 AKB245 LDR A4,A2 XRK A4,/FF OVERFLOW? RF(NE) AKB250 N0! AKB247 SCR A4,A1 YES! LDK A1,OVMASK OVERFLOW SET ABL ENDIX END I/O AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? RF(NE) AKB255 CF A5,STREG NOTHING IN QUEUE IFT CTIMUT=1 LDR A1,A1 CHECK TIME OUT RETURN CODE RF(Z) AKB257 NO TIME OUT ABL ENDI05 END I/O AT TIME OUT XIF IFT CTIMUT=0 RF AKB257 XIF AKB255 CF A15,EOQUEU NEXT OUT POINTER ST A1,DWTUTQ,A6 STORE NEW POINTER AKB257 EQU * LDR A4,A7 SUK A4,2 RF(NN) AKB310 ORDER 2 OR 3 EJECT * * * ORDER 1 BASIC READ * * * AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER IFT CECHO=1 CF A5,ECHO XIF AKB307 CW A3,4,A8 RF(E) AKB380 END I/O IF REQ=EFF LENGTH LD A2,DWTST,A6 MORE KEYS? ANK A2,/F RB(NZ) AKB210 RB AKB225 EJECT * * * * ORDER 2 OR 3 STANDARD AND NUMERIC READ * * CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) * * * * AKB310 EQU * LD A1,10,A8 KEY-TABLE ADDRESS RF(Z) AKB360 NO KEY-TABLE LCR A4,A1 KEY-TABLE LENGTH IN A4 ANK A4,/FF ADR A1,A4 LAST PLACE IN KEY-TABLE ADK A1,1 AKB355 SUK A4,1 RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE SUK A1,1 NEXT KEY CCR A2,A1 EOR? RB(NE) AKB355 NO! ADK A4,1 ST A4,10,A8 STORE INDEX IN CONTROL WORD CF A15,STORE STORE CHARACTER IFT CECHO=1 ORK A2,/80 INDICATE EOR-CHARACTER CF A5,ECHO ECHO EOR-CHARACTER XIF RF AKB380 AKB360 EQU * LDR A4,A2 CC A4,KBMZ2,A6 RF(E) KBMZ20 CC A4,KBMZ3,A6 RF(E) KBMZ30 CC A4,KBBSP,A6 RF(E) KBSP10 CC A4,KBCLR,A6 RF(E) KBCL10 CF A15,STORE STORE CHARACTER IN BUFFER LDR A4,A2 SUK A4,/20 CHEC CONVERTED CHARACTER RF(N) AKB364 LESS THAN /20 SUK A4,/5F CHARACTER > /7F RF(P) AKB364 YES CWK A7,2 RF(E) AKB366 STANDARD READ OK ADK A4,/4F RF(N) AKB364 SUK A4,/A RF(N) AKB366 NUMERIC READ OK AKB364 LDK A1,4 ERROR CODE RF ENDIO AKB366 EQU * IFT CECHO=1 ANK A2,/7F CF A5,ECHO XIF CW A3,4,A8 LENGTH OVERFLOW? AKB367 ABL(L) AKB210 NO RETURN AKB368 LDK A1,8 YES SET ERROR CODE RF ENDIO END I/O EJECT KBMZ30 EQU * TRIPPLE ZERO LDK A4,3 RF KBMZ25 KBMZ20 LDK A4,2 DOUBLE ZERO KBMZ25 LDK A2,/30 SUK A4,1 RB(L) AKB367 LDR A1,A4 CF A15,STORE LDR A4,A1 IFT CECHO=1 CF A5,ECHO XIF CW A3,4,A8 RB(L) KBMZ25 KBMZ27 EQU * SUK A4,1 ANY MORE ZEROES RB(L) AKB368 NO,SET RETURN CODE INH LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER SUR A1,A6 CWK A1,DWTSQ FIRST POSITION ? RF(NE) KBMZ29 NO LDK A1,DWTEQ GET LAST POSITION IN QUEUE ADR A1,A6 SUK A1,1 RF KBMZ40 KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION SUK A1,1 KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? RF(E) KBMZ90 NO NOT REALY. ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER LDK A2,/30 STORE ZERO IN CIRKULAR SCR A2,A1 INPUT BUFFER RB KBMZ27 KBMZ90 EQU * LDK A4,/FF INDICATE BUFFER OWERFLOW SCR A4,A1 ST A1,DWTUTQ,A6 UPPDATE POINTER LDK A1,/A SET RETURN CODE FOR BOTH ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS * * * KBCL10 EQU * CLEAR LDK A3,0 LDK A2,/18 RB AKB366 * * * KBSP10 EQU * LDR A3,A3 RF(Z) KBSP15 SUK A3,1 SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER CF A15,STORE SUK A3,1 KBSP15 LDK A2,/8 RB AKB366 * * AKB380 LDK A1,0 RETURN CODE EJECT * * * THIS IS A COMMON END OF THE DRIVER * * SET EFFECTIVE LENGTH AND PERFORM END I/O * ON KEYBOARD AND ECHO-DEVICE * * ENDIO EQU * * INH IFT CTIMUT=1 LD A4,DWTTP,A6 RF(E) ENDI05 NO TIMING ON THIS DEVICE CM* DWTTP,A6 RESET TIMER CM DWTTP,A6 XIF * ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ENDI10 EQU * * IFT CECHO=1 LDR A4,A1 SAVE A1 CF A5,ECHEND END I/O ON ECHO DEVICE LDR A1,A4 RESTORE A1 XIF ABL DISEND * EJECT * * * * IHKB * * * THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER * * * IHKB EQU * ANK A2,/FF CF A15,KONVER CONVERT INPUT CHARACTER LDR A4,A4 TEST TYPE OF CHAR RF(P) EXIT SHIFT/CTRL/SKIP RF(N) IHKB12 KEY-LOCK LD A3,DWTST,A6 NORMAL CHAR IFT KBLOCK=1 ANK A3,/FF RF(Z) EXIT LD A3,DWTST,A6 I/O REQUEST? XIF RF(N) IHKB15 NO READ REQUEST PENDING SLL A3,7 INTERRUPT ALLOWED ? RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER IFT CTIMUT=1 LD A3,DWTTP,A6 RF(E) IHKB07 NO TIMING ON THIS DEVICE LDKL A3,-TIME RESTART TIME ST* A3,DWTTP,A6 XIF IHKB07 ABL LDREG RETURN TO READ ROUTINE IHKB12 CF A15,KEYSET SET KEY CODE IN DWT LDR A3,A3 RF(Z) EXIT NO KEY CHANGE LD A3,DWTST,A6 RF(N) EXIT NO READ REQUEST PENDING SLL A3,7 RF(NN) EXIT INERRUPT NOT ALLOWED LD A3,DWTA3,A6 RESTORE BUFFER INDEX LDKL A5,DWTSB2 ADR A5,A6 ABL AKB210 IHKB15 LD A1,DWTINQ,A6 LCR A4,A1 XRK A4,/FF ALREADY OVERFLOW? RF(E) EXIT YES LDR A3,A1 CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS CW A1,DWTUTQ,A6 OVERFLOW? RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER RF IHKB30 IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER IHKB30 SCR A2,A3 EXIT ABL TDISP * EJECT * * * * AKBTUT * * THIS IS THE TIME-OUT ROUTINE * * * IFT CTIMUT=1 AKBTUT EQU * LDR A6,A1 RESTART DWT-ADDRESS LDK A1,/40 SET RETURNE CODE CM DWTTP,A6 LD A2,DWTST,A6 RB(N) EXIT DISPATCH IF NO REQUEST ON RB IHKB07 RESTORE REGISTER AND END I/O XIF EJECT * * * * * KEYSET * * * * ON ENTRY: A4= NEG KEY-LOCK VALUE * * ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS * * KEYSET EQU * STR A4,A15 LD A3,DWTST,A6 LDKL A2,/100 SET100 SRL A2,1 ADK A4,2 IN A4: 1=OFF 0=ON RB(N) SET100 ANR A3,A2 CHEC OLD KEY POSITION RF(NZ) SET300 JUMP IF KEY ON LDR A4,A4 RF(NZ) SET500 RF SET400 SET300 LDR A4,A4 RF(Z) SET500 SET400 LD A3,DWTST,A6 XRR A3,A2 SRL A2,4 ORR A2,A3 ST A2,DWTST,A6 LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED SET500 LDR* A4,A15 RTN A15 EJECT * * * * KONVER * * KONVER CONVERTS INPUT CHARACTER * * * ON ENTRY: A2= INPUT CHARACTER * * * ON EXIT: A2=COVERTED CHARACTER * A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT * A5 IS DESTROYED! * * KONVER EQU * LDR A4,A2 IFT NSHIFT=0 SUK A4,/7C CODE > /7B RF(NN) KON500 YES LDR A4,A2 RESTORE CHARACTER XIF STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION LDR* A5,A6 SUK A4,/20 RF(N) KON105 FUNCTION KON100 SUK A4,/40 RF(N) KON180 ALFANUMERIC SUK A4,/10 FUNCTION RF(NN) KON110 NO SUK A2,/40 YES KON105 EQU * ANK A5,/10 SRL A5,3 RF KON200 KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT RF(N) KON400 KEY-LOCK RF(Z) KON140 SHIFT ON SUK A4,2 RF(N) KON160 SHIFT OFF RF(Z) KON170 CONTROL ON IFT NSHIFT=1 SUK A4,2 RF(N) KON125 CONTROL OFF RF(E) KON140 NUMERICAL SHIFT ON RF KON160 NUMERICAL SHIFT OFF XIF KON125 EQU * LDKL A2,/FFDF UNCTRL KON120 ANR A5,A2 KON130 STR A5,A6 DWTCHP LDK A4,/10 RF KON400 GO HOME! KON140 EQU * IFT NSHIFT=1 LDR A4,A5 ANK A4,/10 RF(Z) KON145 SHIFT NOT ON LDK A2,/90 RF KON150 XIF KON145 EQU * LDK A2,/10 SHIFT KON150 ORR A5,A2 RB KON130 KON160 EQU * IFT NSHIFT=1 LDR A4,A5 ANK A4,/80 RF(Z) KON165 LDKL A2,/FF7F RB KON120 XIF KON165 EQU * LDKL A2,/FFEF RB KON120 RB KON120 KON170 LDK A2,/20 CTRL RB KON150 KON180 SUK A2,/20 FIND INDEX ANK A5,/30 SRL A5,3 ADK A5,4 KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A5 LDR* A4,A4 RF(Z) KON400 ADR A4,A2 LDR* A2,A15 RESTORE A2 AND A15-STACK LCR A2,A4 GET CHARACTER FROM TABLE KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$ KON300 RTN A15 KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER RB KON300 IFT NSHIFT=0 KON500 EQU * LDR A4,A4 KEY CODE /7C RF(Z) KON600 YES LDK A4,1 INDICATE SKIP CHARACTER RTN A15 KON600 EQU * SUR A2,A2 RB KONVER DO START AGAIN XIF EJECT * * STORE = SUBROUTINE TO STORE A CHARACTER IN * ECB-BUFFER AND INCREMENT BUFFER INDEX * * ON ENTRY: * * A2 = CHARACTER TO STORE * A3 = BUFFER INDEX * * STORE EQU * LD A4,2,A8 BUFFER ADDRESS ADR A4,A3 ADD BUFFER INDEX SCR A2,A4 STORE CHARACTER IN BUFFER ADK A3,1 INCREMENT BUFFER INDEX STORTN ADKL A15,2 LDR* P,A15 EJECT * * * EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER * * ON ENTRY: * * A1 = QUEUE POINTER * A6 = DWT-ADDRESS * * ON EXIT: * * A1 = NEW QUEUE POINTER EOQUEU EQU * ADK A1,1 SUR A1,A6 CWK A1,DWTEQ END OF QUEUE? RF(NE) EOQU10 LDK A1,DWTSQ SET QUEUE START ADDRESS EOQU10 ADR A1,A6 RB STORTN END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB03 REL 9.2 79-11-16 870105040920 «, 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…007c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004c}
0x007c…0086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0080}
0x0086…00ae Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x008a}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00dc Head {h00=0x0020, h01=0x0050, text=»* DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x00bc}
0x00dc…00e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e0}
0x00e6…00f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…00fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…010e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0108}
0x010e…0118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…014c Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x011c}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…0194 Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0000, t01=0x0164}
0x0194…01c6 Head {h00=0x002e, h01=0x0050, text=»* AND ALPHANUMERIC KEYBOARDS PTS 6236, «, t00=0x0001, t01=0x0008}
0x01c6…01f6 Head {h00=0x002c, h01=0x0050, text=»* CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x003a}
0x01f6…0200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x0200…023e Head {h00=0x003a, h01=0x0050, text=»* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS«, t00=0x0001, t01=0x0074}
0x023e…0266 Head {h00=0x0024, h01=0x0050, text=»* ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x00b2}
0x0266…0270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00da}
0x0270…02a4 Head {h00=0x0030, h01=0x0050, text=»* AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x00e4}
0x02a4…02d8 Head {h00=0x0030, h01=0x0050, text=»* KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x0118}
0x02d8…02ec Head {h00=0x0010, h01=0x0050, text=»* ECHOED.«, t00=0x0001, t01=0x014c}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…032a Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0001, t01=0x016a}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…035a Head {h00=0x0022, h01=0x0050, text=»* A C K B : ACTIVATION PART«, t00=0x0002, t01=0x0018}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0364…038c Head {h00=0x0024, h01=0x0050, text=»* I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x0048}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…03ba Head {h00=0x0020, h01=0x0050, text=»* E C H O : ECHO HANDLER «, t00=0x0002, t01=0x007a}
0x03ba…03c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009e}
0x03c4…03ec Head {h00=0x0024, h01=0x0050, text=»* R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x00a8}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…0404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00da}
0x0404…040e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040e…0418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x0418…0448 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x00fc}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…0474 Head {h00=0x001e, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0002, t01=0x0136}
0x0474…0498 Head {h00=0x0020, h01=0x0050, text=»* ORDER 02: STANDARD READ«, t00=0x0002, t01=0x0158}
0x0498…04bc Head {h00=0x0020, h01=0x0050, text=»* ORDER 03: NUMERIC READ «, t00=0x0002, t01=0x017c}
0x04bc…04e6 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31: RESET INPUT BUFFER «, t00=0x0003, t01=0x0010}
0x04e6…04f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003a}
0x04f0…04fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0044}
0x04fa…051e Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x004e}
0x051e…0528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0072}
0x0528…054e Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x007c}
0x054e…0578 Head {h00=0x0026, h01=0x0050, text=»* A2 : INPUT CHARACTER«, t00=0x0003, t01=0x00a2}
0x0578…05a0 Head {h00=0x0024, h01=0x0050, text=»* A3 : BUFFER INDEX «, t00=0x0003, t01=0x00cc}
0x05a0…05c8 Head {h00=0x0024, h01=0x0050, text=»* A4 : WORK REGISTER«, t00=0x0003, t01=0x00f4}
0x05c8…05ee Head {h00=0x0022, h01=0x0050, text=»* A5 : STACK BASE «, t00=0x0003, t01=0x011c}
0x05ee…0614 Head {h00=0x0022, h01=0x0050, text=»* A6 : DWT-ADDRESS«, t00=0x0003, t01=0x0142}
0x0614…0634 Head {h00=0x001c, h01=0x0050, text=»* A7 : ORDER«, t00=0x0003, t01=0x0168}
0x0634…065a Head {h00=0x0022, h01=0x0050, text=»* A8 : ECB-ADDRESS«, t00=0x0003, t01=0x0188}
0x065a…0664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001e}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…0696 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x003c}
0x0696…06a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x06a0…06dc Head {h00=0x0038, h01=0x0050, text=»* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0004, t01=0x0064}
0x06dc…0718 Head {h00=0x0038, h01=0x0050, text=»* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0004, t01=0x00a0}
0x0718…072c Head {h00=0x0010, h01=0x0050, text=»* IN DWT.«, t00=0x0004, t01=0x00dc}
0x072c…0736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f0}
0x0736…076c Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0004, t01=0x00fa}
0x076c…0788 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT.«, t00=0x0004, t01=0x0130}
0x0788…0792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014c}
0x0792…07c2 Head {h00=0x002c, h01=0x0050, text=»* IF TIMING IS WANTED, TIMER POINTER «, t00=0x0004, t01=0x0156}
0x07c2…07f2 Head {h00=0x002c, h01=0x0050, text=»* IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0004, t01=0x0186}
0x07f2…0828 Head {h00=0x0032, h01=0x0050, text=»* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0005, t01=0x0026}
0x0828…0860 Head {h00=0x0034, h01=0x0050, text=»* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0005, t01=0x005c}
0x0860…088e Head {h00=0x002a, h01=0x0050, text=»* IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0005, t01=0x0094}
0x088e…08b6 Head {h00=0x0024, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED. «, t00=0x0005, t01=0x00c2}
0x08b6…08c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08f8 Head {h00=0x0034, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0005, t01=0x00f4}
0x08f8…0934 Head {h00=0x0038, h01=0x0050, text=»* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0005, t01=0x012c}
0x0934…0970 Head {h00=0x0038, h01=0x0050, text=»* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0005, t01=0x0168}
0x0970…098c Head {h00=0x0018, h01=0x0050, text=»* DWT:S IN SYSTEM«, t00=0x0006, t01=0x0014}
0x098c…099a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0030}
0x099a…09a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003e}
0x09a4…09e0 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0006, t01=0x0048}
0x09e0…0a1c Head {h00=0x0038, h01=0x0050, text=»* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0006, t01=0x0084}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a26…0a46 Head {h00=0x001c, h01=0x0050, text=»* -----ECHO-FUNCTION «, t00=0x0006, t01=0x00ca}
0x0a46…0a6c Head {h00=0x0022, h01=0x0050, text=»* -----POWER ON INDICATION «, t00=0x0006, t01=0x00ea}
0x0a6c…0a90 Head {h00=0x0020, h01=0x0050, text=»* -----TIME-OUT-FUNCTION «, t00=0x0006, t01=0x0110}
0x0a90…0ab8 Head {h00=0x0024, h01=0x0050, text=»* -----NUMERIC SHIFT-FUNCTION«, t00=0x0006, t01=0x0134}
0x0ab8…0ae8 Head {h00=0x002c, h01=0x0050, text=»* -----KEYBOARD LOCK IF NO KEYLOCK ON«, t00=0x0006, t01=0x015c}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af2…0b06 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0007, t01=0x0008}
0x0b06…0b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1a…0b3c Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD3 ADDRESS-BLOCK«, t00=0x0007, t01=0x0030}
0x0b3c…0b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0052}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0066}
0x0b5a…0b84 Head {h00=0x0026, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES «, t00=0x0007, t01=0x0070}
0x0b84…0b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b98…0ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ae}
0x0ba2…0bca Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0007, t01=0x00b8}
0x0bca…0bfc Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x0007, t01=0x00e0}
0x0bfc…0c1a Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0112}
0x0c1a…0c40 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0007, t01=0x0130}
0x0c40…0c74 Head {h00=0x0030, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN«, t00=0x0007, t01=0x0156}
0x0c74…0cac Head {h00=0x0034, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCER«, t00=0x0007, t01=0x018a}
0x0cac…0cdc Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHOE HANDLING«, t00=0x0008, t01=0x0032}
0x0cdc…0cfe Head {h00=0x001e, h01=0x0050, text=» EXTRN LDREGF PANIK EXTERN«, t00=0x0008, t01=0x0062}
0x0cfe…0d1c Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x0008, t01=0x0084}
0x0d1c…0d3a Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x0008, t01=0x00a2}
0x0d3a…0d60 Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0008, t01=0x00c0}
0x0d60…0d86 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x0008, t01=0x00e6}
0x0d86…0da6 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x0008, t01=0x010c}
0x0da6…0dca Head {h00=0x0020, h01=0x0050, text=» EXTRN ECHEND END OF ECHOING«, t00=0x0008, t01=0x012c}
0x0dca…0dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd4…0dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dde…0de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0de8…0e04 Head {h00=0x0018, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0008, t01=0x016e}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e18 (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e18…0e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e22…0e48 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTCHP CHANEL PARAMETER«, t00=0x0009, t01=0x0018}
0x0e48…0e64 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x003e}
0x0e64…0e86 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0009, t01=0x005a}
0x0e86…0eb0 Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x0009, t01=0x007c}
0x0eb0…0ed2 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0009, t01=0x00a6}
0x0ed2…0ef4 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0009, t01=0x00c8}
0x0ef4…0f16 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0009, t01=0x00ea}
0x0f16…0f40 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0009, t01=0x010c}
0x0f40…0f66 Head {h00=0x0022, h01=0x001d, text=» EXTRN DWTECH ECHO DEVICE DWT «, t00=0x0009, t01=0x0136}
0x0f66…0f88 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x0009, t01=0x015c}
0x0f88…0fac Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x0009, t01=0x017e}
0x0fac…0fba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0012}
0x0fba…0fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0020}
0x0fc4…0fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002a}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fd8…0ff0 Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS «, t00=0x000a, t01=0x003e}
0x0ff0…0ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0056}
0x0ffa…1004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0060}
0x1004…100e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x100e…103c Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000a, t01=0x0074}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1078 Head {h00=0x002e, h01=0x0050, text=»X:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER«, t00=0x000a, t01=0x00ac}
0x1078…10ae Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM«, t00=0x000a, t01=0x00de}
0x10ae…10b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10b8…10c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c2…10e4 Head {h00=0x001e, h01=0x0050, text=»* TIME BEFORE TIME OUT«, t00=0x000a, t01=0x0128}
0x10e4…10ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014a}
0x10ee…1114 Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIME OUT CONSTANT«, t00=0x000a, t01=0x0154}
0x1114…111e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017a}
0x111e…112c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0184}
0x112c…1136 (11, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0004}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x1140…1170 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000b, t01=0x0018}
0x1170…11a0 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0048}
0x11a0…11d0 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000b, t01=0x0078}
0x11d0…11da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a8}
0x11da…120c Head {h00=0x002e, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000b, t01=0x00b2}
0x120c…122a Head {h00=0x001a, h01=0x0050, text=»* SETTING X:A = 0. «, t00=0x000b, t01=0x00e4}
0x122a…1234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0102}
0x1234…1246 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x010c}
0x1246…125c Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000b, t01=0x011e}
0x125c…1266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1266…1294 Head {h00=0x002a, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000b, t01=0x013e}
0x1294…12b2 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:B = 0. «, t00=0x000b, t01=0x016c}
0x12b2…12bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018a}
0x12bc…12ce (12, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x0004}
0x12ce…12e4 Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:B «, t00=0x000c, t01=0x0016}
0x12e4…12ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002c}
0x12ee…1330 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION «, t00=0x000c, t01=0x0036}
0x1330…135a Head {h00=0x0026, h01=0x0050, text=»* IS INCLUDED IN THE DRIVER. «, t00=0x000c, t01=0x0078}
0x135a…139a Head {h00=0x003c, h01=0x0050, text=»* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH«, t00=0x000c, t01=0x00a2}
0x139a…13ca Head {h00=0x002c, h01=0x0050, text=»* ZERO IN THE CONTROL WORD OF ECB. «, t00=0x000c, t01=0x00e2}
0x13ca…140e Head {h00=0x0040, h01=0x0050, text=»* IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST «, t00=0x000c, t01=0x0112}
0x140e…1452 Head {h00=0x0040, h01=0x0050, text=»* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD«, t00=0x000c, t01=0x0156}
0x1452…1468 Head {h00=0x0012, h01=0x0050, text=»* OF ECB «, t00=0x000d, t01=0x000a}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x147c…148e Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0034}
0x148e…14a4 Head {h00=0x0012, h01=0x0050, text=»POWOFF EQU X:E«, t00=0x000d, t01=0x0046}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x14b8…14c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0070}
0x14c2…1514 Head {h00=0x004e, h01=0x0050, text=»* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72«, t00=0x000d, t01=0x007a}
0x1514…1526 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000d, t01=0x00cc}
0x1526…153c Head {h00=0x0012, h01=0x0050, text=»NSHIFT EQU X:H«, t00=0x000d, t01=0x00de}
0x153c…1546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1546…1550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fe}
0x1550…1596 Head {h00=0x0042, h01=0x0050, text=»* BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. «, t00=0x000d, t01=0x0108}
0x1596…15a8 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000d, t01=0x014e}
0x15a8…15be Head {h00=0x0012, h01=0x0050, text=»KBLOCK EQU X:I«, t00=0x000d, t01=0x0160}
0x15be…15c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15c8…15d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15d2…1604 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000d, t01=0x018a}
0x1604…1632 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x002c}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x163c…1650 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x0064}
0x1650…165a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x165a…1664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0082}
0x1664…169e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x008c}
0x169e…16d0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x00c6}
0x16d0…16da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f8}
0x16da…16ee Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000e, t01=0x0102}
0x16ee…16f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1702…171e Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x012a}
0x171e…1728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x1728…1732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0150}
0x1732…1744 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x000e, t01=0x015a}
0x1744…175a Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:J«, t00=0x000e, t01=0x016c}
0x175a…1764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0182}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018c}
0x176e…178c Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000f, t01=0x0008}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0030}
0x17a0…17b2 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x000f, t01=0x003a}
0x17b2…17c8 Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:K«, t00=0x000f, t01=0x004c}
0x17c8…17d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x17d2…17e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x006c}
0x17e0…17ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007a}
0x17ea…17f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f4…1812 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x000f, t01=0x008e}
0x1812…181c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b6}
0x1826…185a Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000f, t01=0x00c0}
0x185a…1864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1864…187a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x00fe}
0x187a…1892 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000f, t01=0x0114}
0x1892…189e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x012c}
0x189e…18a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0138}
0x18a8…18be Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x0142}
0x18be…18d8 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000f, t01=0x0158}
0x18d8…18e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0172}
0x18e4…18ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017e}
0x18ee…191c Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x000f, t01=0x0188}
0x191c…1958 Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0010, t01=0x0026}
0x1958…1994 Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0010, t01=0x0062}
0x1994…19be Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0010, t01=0x009e}
0x19be…19ea Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0010, t01=0x00c8}
0x19ea…19f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f4}
0x19f4…1a20 Head {h00=0x0028, h01=0x0050, text=»* SPECIAL KEYS DEFINED IN DWT «, t00=0x0010, t01=0x00fe}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012a}
0x1a2a…1a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a34…1a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a3e…1a6e Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0010, t01=0x0148}
0x1a6e…1a9a Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0010, t01=0x0178}
0x1a9a…1acc Head {h00=0x002e, h01=0x0050, text=»KBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER «, t00=0x0011, t01=0x0014}
0x1acc…1ae8 Head {h00=0x0018, h01=0x0050, text=»KBMZ3 EQU START+/16 «, t00=0x0011, t01=0x0046}
0x1ae8…1af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0062}
0x1af2…1b00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x006c}
0x1b00…1b16 Head {h00=0x0012, h01=0x0050, text=»* TABLES «, t00=0x0011, t01=0x007a}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b20…1b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009a}
0x1b2a…1b52 Head {h00=0x0024, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE SIZE «, t00=0x0011, t01=0x00a4}
0x1b52…1b76 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x00cc}
0x1b76…1b92 Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x00f0}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9c…1bb0 Head {h00=0x0010, h01=0x0050, text=»KBAD3 EQU * «, t00=0x0011, t01=0x0116}
0x1bb0…1bd6 Head {h00=0x0022, h01=0x0050, text=» DATA ACKB ACTIVATION HANDLER «, t00=0x0011, t01=0x012a}
0x1bd6…1bfc Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0011, t01=0x0150}
0x1bfc…1c20 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0011, t01=0x0176}
0x1c20…1c36 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x000a}
0x1c36…1c5a Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0012, t01=0x0020}
0x1c5a…1c66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0044}
0x1c66…1c7c Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=0 «, t00=0x0012, t01=0x0050}
0x1c7c…1c98 Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0012, t01=0x0066}
0x1c98…1ca4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0082}
0x1ca4…1cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cae…1cc4 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x0098}
0x1cc4…1cd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ae}
0x1cd2…1ce4 Head {h00=0x000e, h01=0x0050, text=»* RCKB «, t00=0x0012, t01=0x00bc}
0x1ce4…1cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ce}
0x1cee…1d08 Head {h00=0x0016, h01=0x0050, text=»* RECOVERY PART«, t00=0x0012, t01=0x00d8}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f2}
0x1d12…1d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fc}
0x1d1c…1d2e Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0012, t01=0x0106}
0x1d2e…1d44 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0118}
0x1d44…1d6e Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x012e}
0x1d6e…1d7a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0158}
0x1d7a…1d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0164}
0x1d84…1d9a Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x016e}
0x1d9a…1db0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x0184}
0x1db0…1dd6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0013, t01=0x000a}
0x1dd6…1de2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0030}
0x1de2…1dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1dec…1e02 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x0046}
0x1e02…1e20 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY? «, t00=0x0013, t01=0x005c}
0x1e20…1e36 Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0013, t01=0x007a}
0x1e36…1e4c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0013, t01=0x0090}
0x1e4c…1e78 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF «, t00=0x0013, t01=0x00a6}
0x1e78…1e8a Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0013, t01=0x00d2}
0x1e8a…1eb4 Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0013, t01=0x00e4}
0x1eb4…1ec6 Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x0013, t01=0x010e}
0x1ec6…1ed2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0120}
0x1ed2…1ee0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x012c}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1eea…1ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0144}
0x1ef4…1f08 Head {h00=0x0010, h01=0x0050, text=»* ACKB «, t00=0x0013, t01=0x014e}
0x1f08…1f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0162}
0x1f12…1f50 Head {h00=0x003a, h01=0x0050, text=»* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND «, t00=0x0013, t01=0x016c}
0x1f50…1f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001a}
0x1f5a…1f9e Head {h00=0x0040, h01=0x0050, text=»* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER«, t00=0x0014, t01=0x0024}
0x1f9e…1fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0068}
0x1fa8…1fc0 Head {h00=0x0014, h01=0x0050, text=»* TO THREAT«, t00=0x0014, t01=0x0072}
0x1fc0…1fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fca…1fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0094}
0x1fd4…1fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fde…1fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a8}
0x1fe8…1ffa Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0014, t01=0x00b2}
0x1ffa…2010 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x0014, t01=0x00c4}
0x2010…2046 Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG «, t00=0x0014, t01=0x00da}
0x2046…2058 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x0110}
0x2058…207c Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0014, t01=0x0122}
0x207c…208e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x0146}
0x208e…20b2 Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0014, t01=0x0158}
0x20b2…20c4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0014, t01=0x017c}
0x20c4…20e8 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x0014, t01=0x018e}
0x20e8…20fc Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x0015, t01=0x0022}
0x20fc…211a Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0015, t01=0x0036}
0x211a…2148 Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/0 REQUEST ERROR«, t00=0x0015, t01=0x0054}
0x2148…215c Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x0015, t01=0x0082}
0x215c…216a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0096}
0x216a…2174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a4}
0x2174…217e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ae}
0x217e…2188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b8}
0x2188…21b2 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31 RESET INPUT BUFFER«, t00=0x0015, t01=0x00c2}
0x21b2…21bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ec}
0x21bc…21c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f6}
0x21c6…21d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0100}
0x21d0…21e4 Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x010a}
0x21e4…21fc Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTINQ,A6«, t00=0x0015, t01=0x011e}
0x21fc…220e Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0015, t01=0x0136}
0x220e…223a Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x0015, t01=0x0148}
0x223a…224c Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0015, t01=0x0174}
0x224c…2256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0186}
0x2256…2264 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0190}
0x2264…226e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x226e…2278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x2278…2292 Head {h00=0x0016, h01=0x0050, text=»* ORDER 1,2,3«, t00=0x0016, t01=0x0022}
0x2292…229c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003c}
0x229c…22a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0046}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0050}
0x22b0…22c4 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0016, t01=0x005a}
0x22c4…22da Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0016, t01=0x006e}
0x22da…22f2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0016, t01=0x0084}
0x22f2…2312 Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 POWER OFF?«, t00=0x0016, t01=0x009c}
0x2312…232c Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO! «, t00=0x0016, t01=0x00bc}
0x232c…2358 Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POWER OFF BIT«, t00=0x0016, t01=0x00d6}
0x2358…236c Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x0016, t01=0x0102}
0x236c…23a8 Head {h00=0x0038, h01=0x0050, text=» CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST «, t00=0x0016, t01=0x0116}
0x23a8…23be Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x0016, t01=0x0152}
0x23be…23e2 Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER OFF«, t00=0x0016, t01=0x0168}
0x23e2…23f4 Head {h00=0x000e, h01=0x0050, text=» RF AKB218«, t00=0x0016, t01=0x018c}
0x23f4…2400 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x000e}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0017, t01=0x001a}
0x2414…242a Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0017, t01=0x002e}
0x242a…243e Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0017, t01=0x0044}
0x243e…245a Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING? «, t00=0x0017, t01=0x0058}
0x245a…248a Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE!«, t00=0x0017, t01=0x0074}
0x248a…24ba Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTTP,A6 CHECK IF ALREADY TIMING «, t00=0x0017, t01=0x00a4}
0x24ba…24d0 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x0017, t01=0x00d4}
0x24d0…24e6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0017, t01=0x00ea}
0x24e6…24fe Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x0017, t01=0x0100}
0x24fe…2510 Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x0017, t01=0x0118}
0x2510…2524 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x0017, t01=0x012a}
0x2524…2548 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x0017, t01=0x013e}
0x2548…256a Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x0017, t01=0x0162}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0017, t01=0x0184}
0x257c…259c Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0018, t01=0x0008}
0x259c…25d0 Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0018, t01=0x0028}
0x25d0…2602 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0018, t01=0x005c}
0x2602…260e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x008e}
0x260e…2618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009a}
0x2618…2626 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00a4}
0x2626…2646 Head {h00=0x001c, h01=0x0050, text=»* IF ANY KEY-LOCK: «, t00=0x0018, t01=0x00b2}
0x2646…2650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d2}
0x2650…268e Head {h00=0x003a, h01=0x0050, text=»* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER«, t00=0x0018, t01=0x00dc}
0x268e…26c8 Head {h00=0x0036, h01=0x0050, text=»* OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER.«, t00=0x0018, t01=0x011a}
0x26c8…2708 Head {h00=0x003c, h01=0x0050, text=»* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE«, t00=0x0018, t01=0x0154}
0x2708…2732 (25, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* AND END I/O. ELSE CONTINUE.«, t00=0x0019, t01=0x0004}
0x2732…273c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002e}
0x273c…2746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2746…275a Head {h00=0x0010, h01=0x0050, text=»AKB210 EQU *«, t00=0x0019, t01=0x0042}
0x275a…2780 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY KEY-LOCK? «, t00=0x0019, t01=0x0056}
0x2780…2792 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0019, t01=0x007c}
0x2792…27a8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AKB219 «, t00=0x0019, t01=0x008e}
0x27a8…27ba Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0019, t01=0x00a4}
0x27ba…27cc Head {h00=0x000e, h01=0x0050, text=» SRN A2,A4«, t00=0x0019, t01=0x00b6}
0x27cc…27de Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0019, t01=0x00c8}
0x27de…27f0 Head {h00=0x000e, h01=0x0050, text=» CWK A4,3 «, t00=0x0019, t01=0x00da}
0x27f0…2806 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB212 «, t00=0x0019, t01=0x00ec}
0x2806…281c Head {h00=0x0012, h01=0x0050, text=» RF(P) AKB211 «, t00=0x0019, t01=0x0102}
0x281c…282e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0118}
0x282e…2840 Head {h00=0x000e, h01=0x0050, text=» RF AKB212«, t00=0x0019, t01=0x012a}
0x2840…2858 Head {h00=0x0014, h01=0x0050, text=»AKB211 ADR A4,A4«, t00=0x0019, t01=0x013c}
0x2858…288a Head {h00=0x002e, h01=0x0050, text=»AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG «, t00=0x0019, t01=0x0154}
0x288a…289c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0019, t01=0x0186}
0x289c…28ae Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x001a, t01=0x0008}
0x28ae…28c6 Head {h00=0x0014, h01=0x0050, text=» AN A4,DWTST,A6 «, t00=0x001a, t01=0x001a}
0x28c6…28e2 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 SAVE A4 «, t00=0x001a, t01=0x0032}
0x28e2…28f6 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x001a, t01=0x004e}
0x28f6…2910 Head {h00=0x0016, h01=0x0050, text=» SRN A2,A3 ORDER 1«, t00=0x001a, t01=0x0062}
0x2910…2936 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 MAKE CHARACTER FLAG«, t00=0x001a, t01=0x007c}
0x2936…2948 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x001a, t01=0x00a2}
0x2948…2960 Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB213 «, t00=0x001a, t01=0x00b4}
0x2960…2972 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x00cc}
0x2972…298c Head {h00=0x0016, h01=0x0050, text=»AKB213 ADK A3,/70 «, t00=0x001a, t01=0x00de}
0x298c…299e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001a, t01=0x00f8}
0x299e…29b2 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x001a, t01=0x010a}
0x29b2…29e0 Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE KEY IN ECB BUFFER «, t00=0x001a, t01=0x011e}
0x29e0…2a00 Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A4 «, t00=0x001a, t01=0x014c}
0x2a00…2a12 Head {h00=0x000e, h01=0x0050, text=» CWK A7,1 «, t00=0x001a, t01=0x016c}
0x2a12…2a3a Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB307 JUMP IF BASIC READ«, t00=0x001a, t01=0x017e}
0x2a3a…2a60 Head {h00=0x0022, h01=0x0050, text=»AKB214 NGR A2,A1 MAKE ECB CODE«, t00=0x001b, t01=0x0016}
0x2a60…2a7c Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 KEY FLAG «, t00=0x001b, t01=0x003c}
0x2a7c…2a92 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB215 «, t00=0x001b, t01=0x0058}
0x2a92…2aa4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x001b, t01=0x006e}
0x2aa4…2ad4 Head {h00=0x002c, h01=0x0050, text=»AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB «, t00=0x001b, t01=0x0080}
0x2ad4…2aee Head {h00=0x0016, h01=0x0050, text=»AKB218 ABL AKB380 «, t00=0x001b, t01=0x00b0}
0x2aee…2b1a Head {h00=0x0028, h01=0x0050, text=»AKB219 LD A2,4,A8 REQUESTED LENGTH=0«, t00=0x001b, t01=0x00ca}
0x2b1a…2b36 Head {h00=0x0018, h01=0x0050, text=»AKB220 ABL(E) AKB380«, t00=0x001b, t01=0x00f6}
0x2b36…2b5c Head {h00=0x0022, h01=0x0050, text=»AKB225 LDR A3,A3 FIRTST RIME? «, t00=0x001b, t01=0x0112}
0x2b5c…2b76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 N0!«, t00=0x001b, t01=0x0138}
0x2b76…2b98 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x0152}
0x2b98…2baa Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001b, t01=0x0174}
0x2baa…2bbc Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x001b, t01=0x0186}
0x2bbc…2be6 Head {h00=0x0026, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR ECB BUFFER «, t00=0x001c, t01=0x0008}
0x2be6…2bf8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x0032}
0x2bf8…2c0a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0044}
0x2c0a…2c20 Head {h00=0x0012, h01=0x0050, text=» RB(NE) AKB230«, t00=0x001c, t01=0x0056}
0x2c20…2c34 Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x001c, t01=0x006c}
0x2c34…2c4c Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x001c, t01=0x0080}
0x2c4c…2c5e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x001c, t01=0x0098}
0x2c5e…2c76 Head {h00=0x0014, h01=0x0050, text=»AKB245 LDR A4,A2«, t00=0x001c, t01=0x00aa}
0x2c76…2c94 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW? «, t00=0x001c, t01=0x00c2}
0x2c94…2cae Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB250 N0!«, t00=0x001c, t01=0x00e0}
0x2cae…2ccc Head {h00=0x001a, h01=0x0050, text=»AKB247 SCR A4,A1 YES! «, t00=0x001c, t01=0x00fa}
0x2ccc…2cf0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x001c, t01=0x0118}
0x2cf0…2d0a Head {h00=0x0016, h01=0x0050, text=» ABL ENDIX END I/O«, t00=0x001c, t01=0x013c}
0x2d0a…2d3c Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x001c, t01=0x0156}
0x2d3c…2d54 Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB255 «, t00=0x001c, t01=0x0188}
0x2d54…2d7a Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x001d, t01=0x0010}
0x2d7a…2d90 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001d, t01=0x0036}
0x2d90…2dbe Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x001d, t01=0x004c}
0x2dbe…2de0 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB257 NO TIME OUT «, t00=0x001d, t01=0x007a}
0x2de0…2e08 Head {h00=0x0024, h01=0x0050, text=» ABL ENDI05 END I/O AT TIME OUT «, t00=0x001d, t01=0x009c}
0x2e08…2e14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00c4}
0x2e14…2e2a Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x001d, t01=0x00d0}
0x2e2a…2e3c Head {h00=0x000e, h01=0x0050, text=» RF AKB257«, t00=0x001d, t01=0x00e6}
0x2e3c…2e48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00f8}
0x2e48…2e76 Head {h00=0x002a, h01=0x0050, text=»AKB255 CF A15,EOQUEU NEXT OUT POINTER «, t00=0x001d, t01=0x0104}
0x2e76…2ea0 Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x001d, t01=0x0132}
0x2ea0…2eb4 Head {h00=0x0010, h01=0x0050, text=»AKB257 EQU *«, t00=0x001d, t01=0x015c}
0x2eb4…2ec6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001d, t01=0x0170}
0x2ec6…2ed8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001d, t01=0x0182}
0x2ed8…2efc (30, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x001e, t01=0x0004}
0x2efc…2f0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0028}
0x2f0a…2f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0036}
0x2f14…2f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f1e…2f3e Head {h00=0x001c, h01=0x0050, text=»* ORDER 1 BASIC READ«, t00=0x001e, t01=0x004a}
0x2f3e…2f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006a}
0x2f48…2f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0074}
0x2f52…2f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007e}
0x2f5c…2f96 Head {h00=0x0036, h01=0x0050, text=»AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x001e, t01=0x0088}
0x2f96…2faa Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x001e, t01=0x00c2}
0x2faa…2fbe Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x001e, t01=0x00d6}
0x2fbe…2fca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ea}
0x2fca…2fe4 Head {h00=0x0016, h01=0x0050, text=»AKB307 CW A3,4,A8 «, t00=0x001e, t01=0x00f6}
0x2fe4…3014 Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB380 END I/O IF REQ=EFF LENGTH «, t00=0x001e, t01=0x0110}
0x3014…3036 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 MORE KEYS?«, t00=0x001e, t01=0x0140}
0x3036…3048 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001e, t01=0x0162}
0x3048…305e Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AKB210«, t00=0x001e, t01=0x0174}
0x305e…3070 Head {h00=0x000e, h01=0x0050, text=» RB AKB225«, t00=0x001e, t01=0x018a}
0x3070…307e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x000c}
0x307e…3088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001a}
0x3088…3092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0024}
0x3092…309c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002e}
0x309c…30d4 Head {h00=0x0034, h01=0x0050, text=»* ORDER 2 OR 3 STANDARD AND NUMERIC READ «, t00=0x001f, t01=0x0038}
0x30d4…30de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0070}
0x30de…3124 Head {h00=0x0042, h01=0x0050, text=»* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) «, t00=0x001f, t01=0x007a}
0x3124…312e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c0}
0x312e…3138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ca}
0x3138…3142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x3142…314c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00de}
0x314c…3160 Head {h00=0x0010, h01=0x0050, text=»AKB310 EQU *«, t00=0x001f, t01=0x00e8}
0x3160…3186 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x001f, t01=0x00fc}
0x3186…31a8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB360 NO KEY-TABLE«, t00=0x001f, t01=0x0122}
0x31a8…31d2 Head {h00=0x0026, h01=0x0050, text=» LCR A4,A1 KEY-TABLE LENGTH IN A4 «, t00=0x001f, t01=0x0144}
0x31d2…31e6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x001f, t01=0x016e}
0x31e6…3210 Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x001f, t01=0x0182}
0x3210…3222 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0020, t01=0x001c}
0x3222…323a Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0020, t01=0x002e}
0x323a…326a Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0020, t01=0x0046}
0x326a…3284 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0020, t01=0x0076}
0x3284…329c Head {h00=0x0014, h01=0x0050, text=» CCR A2,A1 EOR? «, t00=0x0020, t01=0x0090}
0x329c…32b6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO!«, t00=0x0020, t01=0x00a8}
0x32b6…32c8 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x00c2}
0x32c8…32f8 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x0020, t01=0x00d4}
0x32f8…331e Head {h00=0x0022, h01=0x0050, text=» CF A15,STORE STORE CHARACTER «, t00=0x0020, t01=0x0104}
0x331e…3332 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0020, t01=0x012a}
0x3332…335c Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR-CHARACTER«, t00=0x0020, t01=0x013e}
0x335c…3382 Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHO ECHO EOR-CHARACTER«, t00=0x0020, t01=0x0168}
0x3382…338e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x018e}
0x338e…33a0 Head {h00=0x000e, h01=0x0050, text=» RF AKB380«, t00=0x0021, t01=0x000a}
0x33a0…33b4 Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0021, t01=0x001c}
0x33b4…33c6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0030}
0x33c6…33de Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ2,A6 «, t00=0x0021, t01=0x0042}
0x33de…33f4 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ20 «, t00=0x0021, t01=0x005a}
0x33f4…340c Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ3,A6 «, t00=0x0021, t01=0x0070}
0x340c…3422 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ30 «, t00=0x0021, t01=0x0088}
0x3422…343a Head {h00=0x0014, h01=0x0050, text=» CC A4,KBBSP,A6 «, t00=0x0021, t01=0x009e}
0x343a…3450 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0021, t01=0x00b6}
0x3450…3468 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBCLR,A6 «, t00=0x0021, t01=0x00cc}
0x3468…347e Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0021, t01=0x00e4}
0x347e…34ae Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN BUFFER «, t00=0x0021, t01=0x00fa}
0x34ae…34c0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x012a}
0x34c0…34ec Head {h00=0x0028, h01=0x0050, text=» SUK A4,/20 CHEC CONVERTED CHARACTER«, t00=0x0021, t01=0x013c}
0x34ec…3510 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB364 LESS THAN /20 «, t00=0x0021, t01=0x0168}
0x3510…3534 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/5F CHARACTER > /7F «, t00=0x0021, t01=0x018c}
0x3534…354e Head {h00=0x0016, h01=0x0050, text=» RF(P) AKB364 YES «, t00=0x0022, t01=0x0020}
0x354e…3560 Head {h00=0x000e, h01=0x0050, text=» CWK A7,2 «, t00=0x0022, t01=0x003a}
0x3560…3588 Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB366 STANDARD READ OK «, t00=0x0022, t01=0x004c}
0x3588…359c Head {h00=0x0010, h01=0x0050, text=» ADK A4,/4F «, t00=0x0022, t01=0x0074}
0x359c…35b2 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB364 «, t00=0x0022, t01=0x0088}
0x35b2…35c4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,/A«, t00=0x0022, t01=0x009e}
0x35c4…35ea Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB366 NUMERIC READ OK«, t00=0x0022, t01=0x00b0}
0x35ea…360c Head {h00=0x001e, h01=0x0050, text=»AKB364 LDK A1,4 ERROR CODE«, t00=0x0022, t01=0x00d6}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x00f8}
0x361e…3632 Head {h00=0x0010, h01=0x0050, text=»AKB366 EQU *«, t00=0x0022, t01=0x010a}
0x3632…3646 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0022, t01=0x011e}
0x3646…365a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x0132}
0x365a…366e Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0022, t01=0x0146}
0x366e…367a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x015a}
0x367a…369e Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0022, t01=0x0166}
0x369e…36c4 Head {h00=0x0022, h01=0x0050, text=»AKB367 ABL(L) AKB210 NO RETURN«, t00=0x0022, t01=0x018a}
0x36c4…36ee Head {h00=0x0026, h01=0x0050, text=»AKB368 LDK A1,8 YES SET ERROR CODE«, t00=0x0023, t01=0x0020}
0x36ee…3708 Head {h00=0x0016, h01=0x0050, text=» RF ENDIO END I/O «, t00=0x0023, t01=0x004a}
0x3708…3716 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0064}
0x3716…3738 Head {h00=0x001e, h01=0x0050, text=»KBMZ30 EQU * TRIPPLE ZERO «, t00=0x0023, t01=0x0072}
0x3738…374a Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0023, t01=0x0094}
0x374a…375c Head {h00=0x000e, h01=0x0050, text=» RF KBMZ25«, t00=0x0023, t01=0x00a6}
0x375c…3780 Head {h00=0x0020, h01=0x0050, text=»KBMZ20 LDK A4,2 DOUBLE ZERO «, t00=0x0023, t01=0x00b8}
0x3780…379a Head {h00=0x0016, h01=0x0050, text=»KBMZ25 LDK A2,/30 «, t00=0x0023, t01=0x00dc}
0x379a…37ac Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x00f6}
0x37ac…37c2 Head {h00=0x0012, h01=0x0050, text=» RB(L) AKB367 «, t00=0x0023, t01=0x0108}
0x37c2…37d4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0023, t01=0x011e}
0x37d4…37ea Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0023, t01=0x0130}
0x37ea…37fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0023, t01=0x0146}
0x37fc…3810 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0023, t01=0x0158}
0x3810…3824 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0023, t01=0x016c}
0x3824…3830 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0180}
0x3830…3844 Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x0023, t01=0x018c}
0x3844…385a Head {h00=0x0012, h01=0x0050, text=» RB(L) KBMZ25 «, t00=0x0024, t01=0x0010}
0x385a…386e Head {h00=0x0010, h01=0x0050, text=»KBMZ27 EQU *«, t00=0x0024, t01=0x0026}
0x386e…3890 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES «, t00=0x0024, t01=0x003a}
0x3890…38b8 Head {h00=0x0024, h01=0x0050, text=» RB(L) AKB368 NO,SET RETURN CODE«, t00=0x0024, t01=0x005c}
0x38b8…38c4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x0084}
0x38c4…38f2 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x0024, t01=0x0090}
0x38f2…3904 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0024, t01=0x00be}
0x3904…392a Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x0024, t01=0x00d0}
0x392a…3944 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ29 NO «, t00=0x0024, t01=0x00f6}
0x3944…3974 Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x0024, t01=0x0110}
0x3974…3986 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0024, t01=0x0140}
0x3986…3998 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0024, t01=0x0152}
0x3998…39aa Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x0024, t01=0x0164}
0x39aa…39e0 Head {h00=0x0032, h01=0x0050, text=»KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x0024, t01=0x0176}
0x39e0…39f2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0025, t01=0x001c}
0x39f2…3a22 Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x0025, t01=0x002e}
0x3a22…3a46 Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x0025, t01=0x005e}
0x3a46…3a7a Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x0025, t01=0x0082}
0x3a7a…3aa4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x0025, t01=0x00b6}
0x3aa4…3ac4 Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x0025, t01=0x00e0}
0x3ac4…3ad6 Head {h00=0x000e, h01=0x0050, text=» RB KBMZ27«, t00=0x0025, t01=0x0100}
0x3ad6…3aea Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x0025, t01=0x0112}
0x3aea…3b16 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x0025, t01=0x0126}
0x3b16…3b28 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x0025, t01=0x0152}
0x3b28…3b50 Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x0025, t01=0x0164}
0x3b50…3b7c Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x0025, t01=0x018c}
0x3b7c…3bae Head {h00=0x002e, h01=0x0050, text=»ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS«, t00=0x0026, t01=0x0028}
0x3bae…3bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bb8…3bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0064}
0x3bc2…3bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006e}
0x3bcc…3be6 Head {h00=0x0016, h01=0x0050, text=»KBCL10 EQU * CLEAR«, t00=0x0026, t01=0x0078}
0x3be6…3bf8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0026, t01=0x0092}
0x3bf8…3c0c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/18 «, t00=0x0026, t01=0x00a4}
0x3c0c…3c1e Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0026, t01=0x00b8}
0x3c1e…3c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ca}
0x3c28…3c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d4}
0x3c32…3c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00de}
0x3c3c…3c50 Head {h00=0x0010, h01=0x0050, text=»KBSP10 EQU *«, t00=0x0026, t01=0x00e8}
0x3c50…3c62 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0026, t01=0x00fc}
0x3c62…3c78 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0026, t01=0x010e}
0x3c78…3c8a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0026, t01=0x0124}
0x3c8a…3cba Head {h00=0x002c, h01=0x0050, text=» SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER«, t00=0x0026, t01=0x0136}
0x3cba…3cd0 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0026, t01=0x0166}
0x3cd0…3ce2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0026, t01=0x017c}
0x3ce2…3cfa Head {h00=0x0014, h01=0x0050, text=»KBSP15 LDK A2,/8«, t00=0x0026, t01=0x018e}
0x3cfa…3d0c Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0027, t01=0x0016}
0x3d0c…3d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d16…3d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0032}
0x3d20…3d44 Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x003c}
0x3d44…3d52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0060}
0x3d52…3d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006e}
0x3d5c…3d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0078}
0x3d66…3d96 Head {h00=0x002c, h01=0x0050, text=»* THIS IS A COMMON END OF THE DRIVER «, t00=0x0027, t01=0x0082}
0x3d96…3da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b2}
0x3da0…3dd6 Head {h00=0x0032, h01=0x0050, text=»* SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x0027, t01=0x00bc}
0x3dd6…3dfe Head {h00=0x0024, h01=0x0050, text=»* ON KEYBOARD AND ECHO-DEVICE«, t00=0x0027, t01=0x00f2}
0x3dfe…3e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011a}
0x3e08…3e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0124}
0x3e12…3e26 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0027, t01=0x012e}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0142}
0x3e30…3e3c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x014c}
0x3e3c…3e52 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0027, t01=0x0158}
0x3e52…3e6a Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0027, t01=0x016e}
0x3e6a…3e98 Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x0027, t01=0x0186}
0x3e98…3eba Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0028, t01=0x0024}
0x3eba…3ece Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0028, t01=0x0046}
0x3ece…3eda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x005a}
0x3eda…3ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0066}
0x3ee4…3f14 Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0028, t01=0x0070}
0x3f14…3f28 Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x0028, t01=0x00a0}
0x3f28…3f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b4}
0x3f32…3f46 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x00be}
0x3f46…3f60 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0028, t01=0x00d2}
0x3f60…3f8c Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x0028, t01=0x00ec}
0x3f8c…3faa Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x0028, t01=0x0118}
0x3faa…3fb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0136}
0x3fb6…3fca Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0028, t01=0x0142}
0x3fca…3fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0156}
0x3fd4…3fe2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0160}
0x3fe2…3fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016e}
0x3fec…3ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0178}
0x3ff6…4000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0182}
0x4000…4012 Head {h00=0x000e, h01=0x0050, text=»* IHKB«, t00=0x0028, t01=0x018c}
0x4012…401c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000e}
0x401c…4026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0018}
0x4026…4070 Head {h00=0x0046, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER «, t00=0x0029, t01=0x0022}
0x4070…407a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x006c}
0x407a…4084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0076}
0x4084…408e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0080}
0x408e…40a0 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0029, t01=0x008a}
0x40a0…40b4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x009c}
0x40b4…40e2 Head {h00=0x002a, h01=0x0050, text=» CF A15,KONVER CONVERT INPUT CHARACTER«, t00=0x0029, t01=0x00b0}
0x40e2…4106 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 TEST TYPE OF CHAR«, t00=0x0029, t01=0x00de}
0x4106…412a Head {h00=0x0020, h01=0x0050, text=» RF(P) EXIT SHIFT/CTRL/SKIP «, t00=0x0029, t01=0x0102}
0x412a…4148 Head {h00=0x001a, h01=0x0050, text=» RF(N) IHKB12 KEY-LOCK«, t00=0x0029, t01=0x0126}
0x4148…4150 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0144}
0x4150…4174 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 NORMAL CHAR «, t00=0x0029, t01=0x014c}
0x4174…418a Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0029, t01=0x0170}
0x418a…419e Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0029, t01=0x0186}
0x419e…41b2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x002a, t01=0x000a}
0x41b2…41d6 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x002a, t01=0x001e}
0x41d6…41e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0042}
0x41e2…4210 Head {h00=0x002a, h01=0x0050, text=» RF(N) IHKB15 NO READ REQUEST PENDING «, t00=0x002a, t01=0x004e}
0x4210…4236 Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPT ALLOWED ? «, t00=0x002a, t01=0x007c}
0x4236…426e Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER«, t00=0x002a, t01=0x00a2}
0x426e…4284 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x00da}
0x4284…429c Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x002a, t01=0x00f0}
0x429c…42ca Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB07 NO TIMING ON THIS DEVICE«, t00=0x002a, t01=0x0108}
0x42ca…42ee Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x002a, t01=0x0136}
0x42ee…4306 Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x002a, t01=0x015a}
0x4306…4312 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0172}
0x4312…4342 Head {h00=0x002c, h01=0x0050, text=»IHKB07 ABL LDREG RETURN TO READ ROUTINE «, t00=0x002a, t01=0x017e}
0x4342…4372 Head {h00=0x002c, h01=0x0050, text=»IHKB12 CF A15,KEYSET SET KEY CODE IN DWT«, t00=0x002b, t01=0x001e}
0x4372…4384 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002b, t01=0x004e}
0x4384…43a6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EXIT NO KEY CHANGE «, t00=0x002b, t01=0x0060}
0x43a6…43be Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002b, t01=0x0082}
0x43be…43ea Head {h00=0x0028, h01=0x0050, text=» RF(N) EXIT NO READ REQUEST PENDING «, t00=0x002b, t01=0x009a}
0x43ea…43fc Head {h00=0x000e, h01=0x0050, text=» SLL A3,7 «, t00=0x002b, t01=0x00c6}
0x43fc…4426 Head {h00=0x0026, h01=0x0050, text=» RF(NN) EXIT INERRUPT NOT ALLOWED «, t00=0x002b, t01=0x00d8}
0x4426…4452 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTA3,A6 RESTORE BUFFER INDEX«, t00=0x002b, t01=0x0102}
0x4452…446a Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x002b, t01=0x012e}
0x446a…447c Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x0146}
0x447c…4490 Head {h00=0x0010, h01=0x0050, text=» ABL AKB210 «, t00=0x002b, t01=0x0158}
0x4490…4498 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x016c}
0x4498…44b6 Head {h00=0x001a, h01=0x0050, text=»IHKB15 LD A1,DWTINQ,A6«, t00=0x002b, t01=0x0174}
0x44b6…44c8 (44, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x002c, t01=0x0004}
0x44c8…44ee Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW? «, t00=0x002c, t01=0x0016}
0x44ee…4506 Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x002c, t01=0x003c}
0x4506…4518 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002c, t01=0x0054}
0x4518…4550 Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x002c, t01=0x0066}
0x4550…4572 Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x002c, t01=0x009e}
0x4572…459e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY «, t00=0x002c, t01=0x00c0}
0x459e…45d2 Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER «, t00=0x002c, t01=0x00ec}
0x45d2…45e4 Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x002c, t01=0x0120}
0x45e4…4618 Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x002c, t01=0x0132}
0x4618…4630 Head {h00=0x0014, h01=0x0050, text=»IHKB30 SCR A2,A3«, t00=0x002c, t01=0x0166}
0x4630…4646 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x002c, t01=0x017e}
0x4646…4650 (45, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0004}
0x4650…465e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x000e}
0x465e…4668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x4668…4672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0026}
0x4672…467c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0030}
0x467c…4690 Head {h00=0x0010, h01=0x0050, text=»* AKBTUT«, t00=0x002d, t01=0x003a}
0x4690…469a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004e}
0x469a…46c4 Head {h00=0x0026, h01=0x0050, text=»* THIS IS THE TIME-OUT ROUTINE«, t00=0x002d, t01=0x0058}
0x46c4…46ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0082}
0x46ce…46d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008c}
0x46d8…46e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0096}
0x46e2…46f8 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002d, t01=0x00a0}
0x46f8…470c Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x002d, t01=0x00b6}
0x470c…4732 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RESTART DWT-ADDRESS«, t00=0x002d, t01=0x00ca}
0x4732…4756 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURNE CODE«, t00=0x002d, t01=0x00f0}
0x4756…476a Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002d, t01=0x0114}
0x476a…4782 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x002d, t01=0x0128}
0x4782…47b0 Head {h00=0x002a, h01=0x0050, text=» RB(N) EXIT DISPATCH IF NO REQUEST ON «, t00=0x002d, t01=0x0140}
0x47b0…47e0 Head {h00=0x002c, h01=0x0050, text=» RB IHKB07 RESTORE REGISTER AND END I/O «, t00=0x002d, t01=0x016e}
0x47e0…47ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x000e}
0x47ec…47fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x001a}
0x47fa…4804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0028}
0x4804…480e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0032}
0x480e…4818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003c}
0x4818…4822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0046}
0x4822…4836 Head {h00=0x0010, h01=0x0050, text=»* KEYSET «, t00=0x002e, t01=0x0050}
0x4836…4840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0064}
0x4840…484a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006e}
0x484a…4854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0078}
0x4854…4884 Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A4= NEG KEY-LOCK VALUE «, t00=0x002e, t01=0x0082}
0x4884…488e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b2}
0x488e…48d2 Head {h00=0x0040, h01=0x0050, text=»* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS «, t00=0x002e, t01=0x00bc}
0x48d2…48dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0100}
0x48dc…48e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x010a}
0x48e6…48fa Head {h00=0x0010, h01=0x0050, text=»KEYSET EQU *«, t00=0x002e, t01=0x0114}
0x48fa…490e Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x002e, t01=0x0128}
0x490e…4926 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002e, t01=0x013c}
0x4926…493c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x002e, t01=0x0154}
0x493c…4954 Head {h00=0x0014, h01=0x0050, text=»SET100 SRL A2,1 «, t00=0x002e, t01=0x016a}
0x4954…4978 Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 IN A4: 1=OFF 0=ON«, t00=0x002e, t01=0x0182}
0x4978…498e Head {h00=0x0012, h01=0x0050, text=» RB(N) SET100 «, t00=0x002f, t01=0x0016}
0x498e…49b6 Head {h00=0x0024, h01=0x0050, text=» ANR A3,A2 CHEC OLD KEY POSITION«, t00=0x002f, t01=0x002c}
0x49b6…49dc Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SET300 JUMP IF KEY ON «, t00=0x002f, t01=0x0054}
0x49dc…49ee Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002f, t01=0x007a}
0x49ee…4a04 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SET500«, t00=0x002f, t01=0x008c}
0x4a04…4a16 Head {h00=0x000e, h01=0x0050, text=» RF SET400«, t00=0x002f, t01=0x00a2}
0x4a16…4a2e Head {h00=0x0014, h01=0x0050, text=»SET300 LDR A4,A4«, t00=0x002f, t01=0x00b4}
0x4a2e…4a44 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SET500 «, t00=0x002f, t01=0x00cc}
0x4a44…4a62 Head {h00=0x001a, h01=0x0050, text=»SET400 LD A3,DWTST,A6 «, t00=0x002f, t01=0x00e2}
0x4a62…4a74 Head {h00=0x000e, h01=0x0050, text=» XRR A3,A2«, t00=0x002f, t01=0x0100}
0x4a74…4a86 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x002f, t01=0x0112}
0x4a86…4a98 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x002f, t01=0x0124}
0x4a98…4ab0 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x002f, t01=0x0136}
0x4ab0…4ade Head {h00=0x002a, h01=0x0050, text=» LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED«, t00=0x002f, t01=0x014e}
0x4ade…4af8 Head {h00=0x0016, h01=0x0050, text=»SET500 LDR* A4,A15«, t00=0x002f, t01=0x017c}
0x4af8…4b08 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0030, t01=0x0008}
0x4b08…4b16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0018}
0x4b16…4b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0026}
0x4b20…4b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0030}
0x4b2a…4b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x003a}
0x4b34…4b48 Head {h00=0x0010, h01=0x0050, text=»* KONVER«, t00=0x0030, t01=0x0044}
0x4b48…4b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0058}
0x4b52…4b80 Head {h00=0x002a, h01=0x0050, text=»* KONVER CONVERTS INPUT CHARACTER «, t00=0x0030, t01=0x0062}
0x4b80…4b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0090}
0x4b8a…4b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009a}
0x4b94…4bc0 Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A2= INPUT CHARACTER «, t00=0x0030, t01=0x00a4}
0x4bc0…4bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d0}
0x4bca…4bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00da}
0x4bd4…4c02 Head {h00=0x002a, h01=0x0050, text=»* ON EXIT: A2=COVERTED CHARACTER «, t00=0x0030, t01=0x00e4}
0x4c02…4c52 Head {h00=0x004c, h01=0x0050, text=»* A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT«, t00=0x0030, t01=0x0112}
0x4c52…4c7a Head {h00=0x0024, h01=0x0050, text=»* A5 IS DESTROYED!«, t00=0x0030, t01=0x0162}
0x4c7a…4c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018a}
0x4c84…4c8e (49, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0004}
0x4c8e…4ca2 Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x0031, t01=0x000e}
0x4ca2…4cb4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0031, t01=0x0022}
0x4cb4…4cca Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0031, t01=0x0034}
0x4cca…4ce8 Head {h00=0x001a, h01=0x0050, text=» SUK A4,/7C CODE > /7B«, t00=0x0031, t01=0x004a}
0x4ce8…4d02 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON500 YES«, t00=0x0031, t01=0x0068}
0x4d02…4d26 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 RESTORE CHARACTER«, t00=0x0031, t01=0x0082}
0x4d26…4d32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00a6}
0x4d32…4d6e Head {h00=0x0038, h01=0x0050, text=» STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION«, t00=0x0031, t01=0x00b2}
0x4d6e…4d82 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A6 «, t00=0x0031, t01=0x00ee}
0x4d82…4d96 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x0031, t01=0x0102}
0x4d96…4db4 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON105 FUNCTION«, t00=0x0031, t01=0x0116}
0x4db4…4dce Head {h00=0x0016, h01=0x0050, text=»KON100 SUK A4,/40 «, t00=0x0031, t01=0x0134}
0x4dce…4df0 Head {h00=0x001e, h01=0x0050, text=» RF(N) KON180 ALFANUMERIC «, t00=0x0031, t01=0x014e}
0x4df0…4e0c Head {h00=0x0018, h01=0x0050, text=» SUK A4,/10 FUNCTION«, t00=0x0031, t01=0x0170}
0x4e0c…4e26 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON110 NO «, t00=0x0031, t01=0x018c}
0x4e26…4e3e Head {h00=0x0014, h01=0x0050, text=» SUK A2,/40 YES «, t00=0x0032, t01=0x0016}
0x4e3e…4e52 Head {h00=0x0010, h01=0x0050, text=»KON105 EQU *«, t00=0x0032, t01=0x002e}
0x4e52…4e66 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/10 «, t00=0x0032, t01=0x0042}
0x4e66…4e78 Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0032, t01=0x0056}
0x4e78…4e8a Head {h00=0x000e, h01=0x0050, text=» RF KON200«, t00=0x0032, t01=0x0068}
0x4e8a…4eb8 Head {h00=0x002a, h01=0x0050, text=»KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT «, t00=0x0032, t01=0x007a}
0x4eb8…4ed6 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON400 KEY-LOCK«, t00=0x0032, t01=0x00a8}
0x4ed6…4ef4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) KON140 SHIFT ON«, t00=0x0032, t01=0x00c6}
0x4ef4…4f06 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0032, t01=0x00e4}
0x4f06…4f26 Head {h00=0x001c, h01=0x0050, text=» RF(N) KON160 SHIFT OFF «, t00=0x0032, t01=0x00f6}
0x4f26…4f46 Head {h00=0x001c, h01=0x0050, text=» RF(Z) KON170 CONTROL ON«, t00=0x0032, t01=0x0116}
0x4f46…4f5c Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0032, t01=0x0136}
0x4f5c…4f6e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0032, t01=0x014c}
0x4f6e…4f90 Head {h00=0x001e, h01=0x0050, text=» RF(N) KON125 CONTROL OFF «, t00=0x0032, t01=0x015e}
0x4f90…4fb8 Head {h00=0x0024, h01=0x0050, text=» RF(E) KON140 NUMERICAL SHIFT ON«, t00=0x0032, t01=0x0180}
0x4fb8…4fde Head {h00=0x0022, h01=0x0050, text=» RF KON160 NUMERICAL SHIFT OFF«, t00=0x0033, t01=0x0018}
0x4fde…4fea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x003e}
0x4fea…4ffe Head {h00=0x0010, h01=0x0050, text=»KON125 EQU *«, t00=0x0033, t01=0x004a}
0x4ffe…501c Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/FFDF UNCTRL «, t00=0x0033, t01=0x005e}
0x501c…5034 Head {h00=0x0014, h01=0x0050, text=»KON120 ANR A5,A2«, t00=0x0033, t01=0x007c}
0x5034…5054 Head {h00=0x001c, h01=0x0050, text=»KON130 STR A5,A6 DWTCHP «, t00=0x0033, t01=0x0094}
0x5054…5068 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0033, t01=0x00b4}
0x5068…5084 Head {h00=0x0018, h01=0x0050, text=» RF KON400 GO HOME! «, t00=0x0033, t01=0x00c8}
0x5084…5098 Head {h00=0x0010, h01=0x0050, text=»KON140 EQU *«, t00=0x0033, t01=0x00e4}
0x5098…50ae Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0033, t01=0x00f8}
0x50ae…50c0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0033, t01=0x010e}
0x50c0…50d4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x0033, t01=0x0120}
0x50d4…50f6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) KON145 SHIFT NOT ON«, t00=0x0033, t01=0x0134}
0x50f6…510a Head {h00=0x0010, h01=0x0050, text=» LDK A2,/90 «, t00=0x0033, t01=0x0156}
0x510a…511c Head {h00=0x000e, h01=0x0050, text=» RF KON150«, t00=0x0033, t01=0x016a}
0x511c…5128 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x017c}
0x5128…513c Head {h00=0x0010, h01=0x0050, text=»KON145 EQU *«, t00=0x0033, t01=0x0188}
0x513c…5156 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/10 SHIFT «, t00=0x0034, t01=0x000c}
0x5156…516e Head {h00=0x0014, h01=0x0050, text=»KON150 ORR A5,A2«, t00=0x0034, t01=0x0026}
0x516e…5180 Head {h00=0x000e, h01=0x0050, text=» RB KON130«, t00=0x0034, t01=0x003e}
0x5180…5194 Head {h00=0x0010, h01=0x0050, text=»KON160 EQU *«, t00=0x0034, t01=0x0050}
0x5194…51aa Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0034, t01=0x0064}
0x51aa…51bc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0034, t01=0x007a}
0x51bc…51d0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0034, t01=0x008c}
0x51d0…51e6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON165 «, t00=0x0034, t01=0x00a0}
0x51e6…51fc Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF7F«, t00=0x0034, t01=0x00b6}
0x51fc…520e Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x00cc}
0x520e…521a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00de}
0x521a…522e Head {h00=0x0010, h01=0x0050, text=»KON165 EQU *«, t00=0x0034, t01=0x00ea}
0x522e…5244 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFEF«, t00=0x0034, t01=0x00fe}
0x5244…5256 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0114}
0x5256…5268 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0126}
0x5268…5286 Head {h00=0x001a, h01=0x0050, text=»KON170 LDK A2,/20 CTRL«, t00=0x0034, t01=0x0138}
0x5286…5298 Head {h00=0x000e, h01=0x0050, text=» RB KON150«, t00=0x0034, t01=0x0156}
0x5298…52bc Head {h00=0x0020, h01=0x0050, text=»KON180 SUK A2,/20 FIND INDEX«, t00=0x0034, t01=0x0168}
0x52bc…52d0 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/30 «, t00=0x0034, t01=0x018c}
0x52d0…52e2 Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0035, t01=0x0010}
0x52e2…52f4 Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x0035, t01=0x0022}
0x52f4…5330 Head {h00=0x0038, h01=0x0050, text=»KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS «, t00=0x0035, t01=0x0034}
0x5330…5342 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x0035, t01=0x0070}
0x5342…5356 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x0035, t01=0x0082}
0x5356…536c Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON400 «, t00=0x0035, t01=0x0096}
0x536c…537e Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0035, t01=0x00ac}
0x537e…53ac Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A15 RESTORE A2 AND A15-STACK «, t00=0x0035, t01=0x00be}
0x53ac…53d8 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A4 GET CHARACTER FROM TABLE «, t00=0x0035, t01=0x00ec}
0x53d8…5406 Head {h00=0x002a, h01=0x0050, text=»KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$«, t00=0x0035, t01=0x0118}
0x5406…541c Head {h00=0x0012, h01=0x0050, text=»KON300 RTN A15«, t00=0x0035, t01=0x0146}
0x541c…5454 Head {h00=0x0034, h01=0x0050, text=»KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER«, t00=0x0035, t01=0x015c}
0x5454…5466 (54, 0, 398) Head {h00=0x000e, h01=0x0050, text=» RB KON300«, t00=0x0036, t01=0x0004}
0x5466…547c Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0036, t01=0x0016}
0x547c…5490 Head {h00=0x0010, h01=0x0050, text=»KON500 EQU *«, t00=0x0036, t01=0x002c}
0x5490…54b0 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 KEY CODE /7C «, t00=0x0036, t01=0x0040}
0x54b0…54ca Head {h00=0x0016, h01=0x0050, text=» RF(Z) KON600 YES «, t00=0x0036, t01=0x0060}
0x54ca…54f4 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 INDICATE SKIP CHARACTER «, t00=0x0036, t01=0x007a}
0x54f4…5504 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0036, t01=0x00a4}
0x5504…5518 Head {h00=0x0010, h01=0x0050, text=»KON600 EQU *«, t00=0x0036, t01=0x00b4}
0x5518…552a Head {h00=0x000e, h01=0x0050, text=» SUR A2,A2«, t00=0x0036, t01=0x00c8}
0x552a…554c Head {h00=0x001e, h01=0x0050, text=» RB KONVER DO START AGAIN «, t00=0x0036, t01=0x00da}
0x554c…5558 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00fc}
0x5558…5566 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0108}
0x5566…5570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0116}
0x5570…55a8 Head {h00=0x0034, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x0036, t01=0x0120}
0x55a8…55e2 Head {h00=0x0036, h01=0x0050, text=»* ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0036, t01=0x0158}
0x55e2…55ec (55, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0004}
0x55ec…5602 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0037, t01=0x000e}
0x5602…560c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0024}
0x560c…5630 Head {h00=0x0020, h01=0x0050, text=»* A2 = CHARACTER TO STORE«, t00=0x0037, t01=0x002e}
0x5630…564e Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0037, t01=0x0052}
0x564e…5658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0070}
0x5658…5662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007a}
0x5662…5676 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0037, t01=0x0084}
0x5676…5698 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0037, t01=0x0098}
0x5698…56bc Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x0037, t01=0x00ba}
0x56bc…56e8 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x0037, t01=0x00de}
0x56e8…5710 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0037, t01=0x010a}
0x5710…572a Head {h00=0x0016, h01=0x0050, text=»STORTN ADKL A15,2 «, t00=0x0037, t01=0x0132}
0x572a…573e Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0037, t01=0x014c}
0x573e…574c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0160}
0x574c…5756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016e}
0x5756…5760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0178}
0x5760…579a Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x0037, t01=0x0182}
0x579a…57a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002c}
0x57a4…57ba Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0038, t01=0x0036}
0x57ba…57c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x004c}
0x57c4…57e4 Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x0038, t01=0x0056}
0x57e4…5802 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0038, t01=0x0076}
0x5802…580c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0094}
0x580c…5822 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0038, t01=0x009e}
0x5822…582c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b4}
0x582c…5850 Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x0038, t01=0x00be}
0x5850…5864 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0038, t01=0x00e2}
0x5864…5876 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0038, t01=0x00f6}
0x5876…5888 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0038, t01=0x0108}
0x5888…58ac Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x0038, t01=0x011a}
0x58ac…58c2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0038, t01=0x013e}
0x58c2…58f0 Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x0038, t01=0x0154}
0x58f0…5908 Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0038, t01=0x0182}
0x5908…591a Head {h00=0x000e, h01=0x0050, text=» RB STORTN«, t00=0x0039, t01=0x000a}
0x591a…5926 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x001c}
0x5926…592a Head {h00=0x4004, h01=0x0000}
0x592a…592e 00 39 00 28 ┆ 9 (┆
0x592e…5936 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x5936…5986 (59, 0, 398) 2c 44 57 54 45 43 42 2c 41 36 5c 41 4e 44 20 45 43 42 2d 41 44 44 52 45 53 53 20 49 4e 20 41 38 00 3a 01 8a 00 12 00 50 5c 49 46 54 5c 53 4f 46 54 49 4d 3d 31 20 00 3b 00 28 00 2a 00 50 5c 4c 43 5c 41 33 2c 44 57 54 4f 43 48 2c 41 36 5c 47 ┆,DWTECB,A6 AND ECB-ADDRESS IN A8 : P IFT SOFTIM=1 ; ( * P LC A3,DWTOCH,A6 G┆
0x5986…59d6 45 54 20 4c 41 53 54 20 43 48 41 52 41 43 54 45 52 5c 3d 34 00 3b 00 3e 00 14 00 50 5c 41 4e 4b 5c 41 33 2c 2f 37 46 5c 5c 3d 34 20 00 3b 00 6c 00 2a 00 50 5c 53 55 4b 5c 41 33 2c 44 55 4d 4d 53 50 5c 53 50 45 43 49 41 4c 20 44 55 4d 4d 59 ┆ET LAST CHARACTER =4 ; > P ANK A3,/7F =4 ; l * P SUK A3,DUMMSP SPECIAL DUMMY┆
0x59d6…5a26 3d 45 54 58 20 3f 5c 3d 34 20 00 3b 00 84 00 18 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 31 32 30 5c 4e 4f 5c 3d 34 00 3b 00 b2 00 30 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 36 5c 44 45 56 49 43 45 20 57 49 54 48 4f 55 54 20 44 41 54 41 20 52 45 ┆=ETX ? =4 ; P RF(NE) CLT120 NO =4 ; 0 P LDR* A3,A6 DEVICE WITHOUT DATA RE┆
0x5a26…5a76 51 55 45 53 54 20 3f 5c 3d 39 00 3b 00 ce 00 34 00 50 5c 52 46 28 4e 29 5c 43 4c 54 31 32 30 5c 59 45 53 2c 20 44 4f 20 4e 4f 54 20 54 4f 55 43 48 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 5c 3d 39 00 3b 01 02 00 26 00 50 5c 4c 44 5c 41 33 ┆QUEST ? =9 ; 4 P RF(N) CLT120 YES, DO NOT TOUCH TIMER POINTER =9 ; & P LD A3┆
0x5a76…5ac4 2c 44 57 54 54 50 2c 41 36 5c 54 49 4d 45 52 20 52 55 4e 4e 49 4e 47 20 3f 5c 3d 34 00 3b 01 3a 00 18 00 50 5c 52 46 28 45 29 5c 43 4c 54 31 32 30 5c 4e 4f 5c 3d 34 20 00 3b 01 64 00 0e 00 50 5c 49 4e 48 5c 5c 5c 3d 34 20 00 3b 01 80 ┆,DWTTP,A6 TIMER RUNNING ? =4 ; : P RF(E) CLT120 NO =4 ; d P INH =4 ; ┆
0x5ac4…5b14 (60, 0, 400) 00 20 00 50 5c 43 4d 2a 5c 44 57 54 54 50 2c 41 36 5c 52 45 53 45 54 20 54 49 4d 45 52 5c 3d 34 00 3c 00 04 00 32 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 5c 52 45 53 45 54 20 41 44 44 52 45 53 53 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 49 ┆ P CM* DWTTP,A6 RESET TIMER =4 < 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TI┆
0x5b14…5b64 4d 45 52 5c 3d 34 00 3c 00 28 00 14 00 50 43 4c 54 31 32 30 5c 45 51 55 5c 2a 5c 5c 3d 34 00 3c 00 5e 00 08 00 50 5c 58 49 46 00 3c 00 76 00 34 00 50 5c 4c 44 5c 41 33 2c 44 57 54 41 44 52 2c 41 36 5c 41 44 44 52 45 53 53 20 54 4f 20 41 44 ┆MER =4 < ( PCLT120 EQU * =4 < ^ P XIF < v 4 P LD A3,DWTADR,A6 ADDRESS TO AD┆
0x5b64…5bb4 44 52 45 53 53 2d 42 4c 4f 43 4b 20 49 4e 20 41 33 20 00 3c 00 82 00 08 00 50 5c 45 4e 42 00 3c 00 ba 00 2a 00 50 5c 41 42 49 5c 49 4e 54 41 44 52 2c 41 33 5c 47 4f 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 3c 00 c6 ┆DRESS-BLOCK IN A3 < P ENB < * P ABI INTADR,A3 GO TO INTERRUPT HANDLER < ┆
0x5bb4…5c04 00 06 00 50 2a 20 00 3c 00 f4 00 3e 00 50 2a 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 52 45 47 49 53 54 45 52 20 56 41 55 4c 45 53 20 41 52 45 20 56 41 4c 49 44 20 57 48 45 4e 20 45 4e 54 45 52 49 4e 47 20 00 3c 00 fe 00 30 00 50 ┆ P* < > P* THE FOLLOWING REGISTER VAULES ARE VALID WHEN ENTERING < 0 P┆
0x5c04…5c54 2a 20 20 20 54 48 45 20 44 45 56 49 43 45 20 44 45 50 45 4e 44 41 4e 54 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 3a 2d 00 3c 01 40 00 06 00 50 2a 20 00 3c 01 74 00 28 00 50 2a 20 20 20 41 31 20 3d 20 45 52 52 4f 52 20 43 4f 44 ┆* THE DEVICE DEPENDANT INTERRUPT HANDLER:- < @ P* < t ( P* A1 = ERROR COD┆