|
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: 23698 (0x5c92)
Notes: pts_type(SC)
Names: »DRKB03.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/DRKB03.SC«
IDENT DRKB03 REL 10.0 80-03-14 870105041000 =1,CIRCULAR BUFFER SIZE CHANGED REL 9.1 79-05-23 * ******************************************* * * 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 8 LENGTH OF CIRCULAR INPUT BUFFER DWTLNG EQU 32 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 0 * * ECHO FUNCTION MAY BE EXCLUDED BY * SETTING X:B = 0. * X:B EQU 1 CECHO EQU 1 * * 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 0 * * * * BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 X:H EQU 0 NSHIFT EQU 0 * * * BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. X:I EQU 0 KBLOCK EQU 1 * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * MMU BUFFER SIZE * * X:J EQU 10 DVBLEN EQU 080 * * * MMU KEY TABLE SIZE * * X:K EQU 10 DVBKTB EQU 50 * 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, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB03 REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0068 Head {h00=0x0026, h01=0x0050, text=» =1,CIRCULAR BUFFER SIZE CHANGED«, t00=0x0000, t01=0x0042}
0x0068…0084 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x006c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00c2 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0092}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00f4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d0}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0122 Head {h00=0x0020, h01=0x0050, text=»* DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x0102}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0192 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0162}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a6…01da Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0001, t01=0x001c}
0x01da…020c Head {h00=0x002e, h01=0x0050, text=»* AND ALPHANUMERIC KEYBOARDS PTS 6236, «, t00=0x0001, t01=0x0050}
0x020c…023c Head {h00=0x002c, h01=0x0050, text=»* CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0082}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b2}
0x0246…0284 Head {h00=0x003a, h01=0x0050, text=»* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS«, t00=0x0001, t01=0x00bc}
0x0284…02ac Head {h00=0x0024, h01=0x0050, text=»* ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x00fa}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0122}
0x02b6…02ea Head {h00=0x0030, h01=0x0050, text=»* AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x012c}
0x02ea…031e Head {h00=0x0030, h01=0x0050, text=»* KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x0160}
0x031e…0332 (2, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* ECHOED.«, t00=0x0002, t01=0x0004}
0x0332…033c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0018}
0x033c…0370 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0022}
0x0370…037a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037a…03a0 Head {h00=0x0022, h01=0x0050, text=»* A C K B : ACTIVATION PART«, t00=0x0002, t01=0x0060}
0x03a0…03aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0086}
0x03aa…03d2 Head {h00=0x0024, h01=0x0050, text=»* I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x0090}
0x03d2…03dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x03dc…0400 Head {h00=0x0020, h01=0x0050, text=»* E C H O : ECHO HANDLER «, t00=0x0002, t01=0x00c2}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040a…0432 Head {h00=0x0024, h01=0x0050, text=»* R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x00f0}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x043c…044a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0122}
0x044a…0454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0130}
0x0454…045e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x045e…048e Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0144}
0x048e…0498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x0498…04ba Head {h00=0x001e, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0002, t01=0x017e}
0x04ba…04de Head {h00=0x0020, h01=0x0050, text=»* ORDER 02: STANDARD READ«, t00=0x0003, t01=0x0010}
0x04de…0502 Head {h00=0x0020, h01=0x0050, text=»* ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0034}
0x0502…052c Head {h00=0x0026, h01=0x0050, text=»* ORDER 31: RESET INPUT BUFFER «, t00=0x0003, t01=0x0058}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0082}
0x0536…0540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x0540…0564 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x0096}
0x0564…056e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ba}
0x056e…0594 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00c4}
0x0594…05be Head {h00=0x0026, h01=0x0050, text=»* A2 : INPUT CHARACTER«, t00=0x0003, t01=0x00ea}
0x05be…05e6 Head {h00=0x0024, h01=0x0050, text=»* A3 : BUFFER INDEX «, t00=0x0003, t01=0x0114}
0x05e6…060e Head {h00=0x0024, h01=0x0050, text=»* A4 : WORK REGISTER«, t00=0x0003, t01=0x013c}
0x060e…0634 Head {h00=0x0022, h01=0x0050, text=»* A5 : STACK BASE «, t00=0x0003, t01=0x0164}
0x0634…065a Head {h00=0x0022, h01=0x0050, text=»* A6 : DWT-ADDRESS«, t00=0x0003, t01=0x018a}
0x065a…067a Head {h00=0x001c, h01=0x0050, text=»* A7 : ORDER«, t00=0x0004, t01=0x0020}
0x067a…06a0 Head {h00=0x0022, h01=0x0050, text=»* A8 : ECB-ADDRESS«, t00=0x0004, t01=0x0040}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0070}
0x06b4…06be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06be…06dc Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x0084}
0x06dc…06e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e6…0722 Head {h00=0x0038, h01=0x0050, text=»* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0004, t01=0x00ac}
0x0722…075e Head {h00=0x0038, h01=0x0050, text=»* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0004, t01=0x00e8}
0x075e…0772 Head {h00=0x0010, h01=0x0050, text=»* IN DWT.«, t00=0x0004, t01=0x0124}
0x0772…077c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0138}
0x077c…07b2 Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0004, t01=0x0142}
0x07b2…07ce Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT.«, t00=0x0004, t01=0x0178}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…0808 Head {h00=0x002c, h01=0x0050, text=»* IF TIMING IS WANTED, TIMER POINTER «, t00=0x0005, t01=0x000e}
0x0808…0838 Head {h00=0x002c, h01=0x0050, text=»* IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0005, t01=0x003e}
0x0838…086e Head {h00=0x0032, h01=0x0050, text=»* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0005, t01=0x006e}
0x086e…08a6 Head {h00=0x0034, h01=0x0050, text=»* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0005, t01=0x00a4}
0x08a6…08d4 Head {h00=0x002a, h01=0x0050, text=»* IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0005, t01=0x00dc}
0x08d4…08fc Head {h00=0x0024, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED. «, t00=0x0005, t01=0x010a}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0906…093e Head {h00=0x0034, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0005, t01=0x013c}
0x093e…097a Head {h00=0x0038, h01=0x0050, text=»* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0005, t01=0x0174}
0x097a…09b6 Head {h00=0x0038, h01=0x0050, text=»* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0006, t01=0x0020}
0x09b6…09d2 Head {h00=0x0018, h01=0x0050, text=»* DWT:S IN SYSTEM«, t00=0x0006, t01=0x005c}
0x09d2…09e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0078}
0x09e0…09ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0086}
0x09ea…0a26 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0006, t01=0x0090}
0x0a26…0a62 Head {h00=0x0038, h01=0x0050, text=»* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0006, t01=0x00cc}
0x0a62…0a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0108}
0x0a6c…0a8c Head {h00=0x001c, h01=0x0050, text=»* -----ECHO-FUNCTION «, t00=0x0006, t01=0x0112}
0x0a8c…0ab2 Head {h00=0x0022, h01=0x0050, text=»* -----POWER ON INDICATION «, t00=0x0006, t01=0x0132}
0x0ab2…0ad6 Head {h00=0x0020, h01=0x0050, text=»* -----TIME-OUT-FUNCTION «, t00=0x0006, t01=0x0158}
0x0ad6…0afe Head {h00=0x0024, h01=0x0050, text=»* -----NUMERIC SHIFT-FUNCTION«, t00=0x0006, t01=0x017c}
0x0afe…0b2e Head {h00=0x002c, h01=0x0050, text=»* -----KEYBOARD LOCK IF NO KEYLOCK ON«, t00=0x0007, t01=0x0014}
0x0b2e…0b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b38…0b4c Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0007, t01=0x004e}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b56…0b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006c}
0x0b60…0b82 Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD3 ADDRESS-BLOCK«, t00=0x0007, t01=0x0076}
0x0b82…0b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba0…0bca Head {h00=0x0026, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES «, t00=0x0007, t01=0x00b6}
0x0bca…0bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e0}
0x0bd4…0bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0bde…0be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f4}
0x0be8…0c10 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0007, t01=0x00fe}
0x0c10…0c42 Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x0007, t01=0x0126}
0x0c42…0c60 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0158}
0x0c60…0c86 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0007, t01=0x0176}
0x0c86…0cba Head {h00=0x0030, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN«, t00=0x0008, t01=0x000c}
0x0cba…0cf2 Head {h00=0x0034, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCER«, t00=0x0008, t01=0x0040}
0x0cf2…0d22 Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHOE HANDLING«, t00=0x0008, t01=0x0078}
0x0d22…0d44 Head {h00=0x001e, h01=0x0050, text=» EXTRN LDREGF PANIK EXTERN«, t00=0x0008, t01=0x00a8}
0x0d44…0d62 Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x0008, t01=0x00ca}
0x0d62…0d80 Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x0008, t01=0x00e8}
0x0d80…0da6 Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0008, t01=0x0106}
0x0da6…0dcc Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x0008, t01=0x012c}
0x0dcc…0dec Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x0008, t01=0x0152}
0x0dec…0e10 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECHEND END OF ECHOING«, t00=0x0008, t01=0x0172}
0x0e10…0e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1a…0e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0012}
0x0e24…0e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e2e…0e4a Head {h00=0x0018, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0009, t01=0x0026}
0x0e4a…0e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e5e…0e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0056}
0x0e68…0e8e Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTCHP CHANEL PARAMETER«, t00=0x0009, t01=0x0060}
0x0e8e…0eaa Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x0086}
0x0eaa…0ecc Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0009, t01=0x00a2}
0x0ecc…0ef6 Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x0009, t01=0x00c4}
0x0ef6…0f18 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0009, t01=0x00ee}
0x0f18…0f3a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0009, t01=0x0110}
0x0f3a…0f5c Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0009, t01=0x0132}
0x0f5c…0f86 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0009, t01=0x0154}
0x0f86…0fac Head {h00=0x0022, h01=0x001d, text=» EXTRN DWTECH ECHO DEVICE DWT «, t00=0x0009, t01=0x017e}
0x0fac…0fce Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x000a, t01=0x0014}
0x0fce…0ff2 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x000a, t01=0x0036}
0x0ff2…1000 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x005a}
0x1000…100a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100a…1014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1014…101e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007c}
0x101e…1036 Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS «, t00=0x000a, t01=0x0086}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1054…1082 Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000a, t01=0x00bc}
0x1082…108c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x108c…10be Head {h00=0x002e, h01=0x0050, text=»X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER «, t00=0x000a, t01=0x00f4}
0x10be…10f4 Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU 32 NUMBER OF BYTES IN DECIMAL FORM «, t00=0x000a, t01=0x0126}
0x10f4…10fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015c}
0x10fe…1108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x1108…112a Head {h00=0x001e, h01=0x0050, text=»* TIME BEFORE TIME OUT«, t00=0x000a, t01=0x0170}
0x112a…1134 (11, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0004}
0x1134…115a Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIME OUT CONSTANT«, t00=0x000b, t01=0x000e}
0x115a…1164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1164…1172 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x003e}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004c}
0x117c…1186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0056}
0x1186…11b6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000b, t01=0x0060}
0x11b6…11e6 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0090}
0x11e6…1216 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000b, t01=0x00c0}
0x1216…1220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f0}
0x1220…1252 Head {h00=0x002e, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000b, t01=0x00fa}
0x1252…1270 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:A = 0. «, t00=0x000b, t01=0x012c}
0x1270…127a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014a}
0x127a…128c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x0154}
0x128c…12a0 Head {h00=0x0010, h01=0x0050, text=»CTIMUT EQU 0«, t00=0x000b, t01=0x0166}
0x12a0…12aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017a}
0x12aa…12d8 Head {h00=0x002a, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000b, t01=0x0184}
0x12d8…12f6 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:B = 0. «, t00=0x000c, t01=0x0022}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1300…1312 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x004a}
0x1312…1326 Head {h00=0x0010, h01=0x0050, text=»CECHO EQU 1 «, t00=0x000c, t01=0x005c}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1330…1372 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION «, t00=0x000c, t01=0x007a}
0x1372…139c Head {h00=0x0026, h01=0x0050, text=»* IS INCLUDED IN THE DRIVER. «, t00=0x000c, t01=0x00bc}
0x139c…13dc Head {h00=0x003c, h01=0x0050, text=»* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH«, t00=0x000c, t01=0x00e6}
0x13dc…140c Head {h00=0x002c, h01=0x0050, text=»* ZERO IN THE CONTROL WORD OF ECB. «, t00=0x000c, t01=0x0126}
0x140c…1450 Head {h00=0x0040, h01=0x0050, text=»* IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST «, t00=0x000c, t01=0x0156}
0x1450…1494 Head {h00=0x0040, h01=0x0050, text=»* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD«, t00=0x000d, t01=0x000a}
0x1494…14aa Head {h00=0x0012, h01=0x0050, text=»* OF ECB «, t00=0x000d, t01=0x004e}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0064}
0x14b4…14be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006e}
0x14be…14d0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0078}
0x14d0…14e4 Head {h00=0x0010, h01=0x0050, text=»POWOFF EQU 0«, t00=0x000d, t01=0x008a}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a8}
0x14f8…1502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1502…1554 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=0x00bc}
0x1554…1566 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000d, t01=0x010e}
0x1566…157a Head {h00=0x0010, h01=0x0050, text=»NSHIFT EQU 0«, t00=0x000d, t01=0x0120}
0x157a…1584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x1584…158e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013e}
0x158e…15d4 Head {h00=0x0042, h01=0x0050, text=»* BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. «, t00=0x000d, t01=0x0148}
0x15d4…15e6 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000d, t01=0x018e}
0x15e6…15fa Head {h00=0x0010, h01=0x0050, text=»KBLOCK EQU 1«, t00=0x000e, t01=0x0010}
0x15fa…1604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x160e…1640 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0038}
0x1640…166e Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x006a}
0x166e…1678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0098}
0x1678…168c Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000e, t01=0x00a2}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b6}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x16a0…16da Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x00ca}
0x16da…170c Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x0104}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0136}
0x1716…172a Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000e, t01=0x0140}
0x172a…1734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x1734…173e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015e}
0x173e…175a Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x0168}
0x175a…1764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0184}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x176e…1780 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x000f, t01=0x0008}
0x1780…1796 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 080«, t00=0x000f, t01=0x001a}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0030}
0x17a0…17aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003a}
0x17aa…17c8 Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000f, t01=0x0044}
0x17c8…17d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x17d2…17dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006c}
0x17dc…17ee Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x000f, t01=0x0076}
0x17ee…1804 Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU 50 «, t00=0x000f, t01=0x0088}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x180e…181c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00a8}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b6}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c0}
0x1830…184e Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x000f, t01=0x00ca}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e8}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f2}
0x1862…1896 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000f, t01=0x00fc}
0x1896…18a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a0…18b6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x013a}
0x18b6…18ce Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000f, t01=0x0150}
0x18ce…18da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0168}
0x18da…18e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0174}
0x18e4…18fa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x017e}
0x18fa…1914 (16, 0, 400) Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0010, t01=0x0004}
0x1914…1920 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x001e}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…1958 Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0010, t01=0x0034}
0x1958…1994 Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0010, t01=0x0062}
0x1994…19d0 Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0010, t01=0x009e}
0x19d0…19fa Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0010, t01=0x00da}
0x19fa…1a26 Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0010, t01=0x0104}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a30…1a5c Head {h00=0x0028, h01=0x0050, text=»* SPECIAL KEYS DEFINED IN DWT «, t00=0x0010, t01=0x013a}
0x1a5c…1a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0166}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017a}
0x1a7a…1aaa Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0010, t01=0x0184}
0x1aaa…1ad6 Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0011, t01=0x0024}
0x1ad6…1b08 Head {h00=0x002e, h01=0x0050, text=»KBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER «, t00=0x0011, t01=0x0050}
0x1b08…1b24 Head {h00=0x0018, h01=0x0050, text=»KBMZ3 EQU START+/16 «, t00=0x0011, t01=0x0082}
0x1b24…1b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b2e…1b3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00a8}
0x1b3c…1b52 Head {h00=0x0012, h01=0x0050, text=»* TABLES «, t00=0x0011, t01=0x00b6}
0x1b52…1b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00cc}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b66…1b8e Head {h00=0x0024, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE SIZE «, t00=0x0011, t01=0x00e0}
0x1b8e…1bb2 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x0108}
0x1bb2…1bce Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x012c}
0x1bce…1bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0148}
0x1bd8…1bec Head {h00=0x0010, h01=0x0050, text=»KBAD3 EQU * «, t00=0x0011, t01=0x0152}
0x1bec…1c12 Head {h00=0x0022, h01=0x0050, text=» DATA ACKB ACTIVATION HANDLER «, t00=0x0011, t01=0x0166}
0x1c12…1c38 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0011, t01=0x018c}
0x1c38…1c5c Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0012, t01=0x0022}
0x1c5c…1c72 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x0046}
0x1c72…1c96 Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0012, t01=0x005c}
0x1c96…1ca2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0080}
0x1ca2…1cb8 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=0 «, t00=0x0012, t01=0x008c}
0x1cb8…1cd4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0012, t01=0x00a2}
0x1cd4…1ce0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00be}
0x1ce0…1cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ca}
0x1cea…1d00 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x00d4}
0x1d00…1d0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00ea}
0x1d0e…1d20 Head {h00=0x000e, h01=0x0050, text=»* RCKB «, t00=0x0012, t01=0x00f8}
0x1d20…1d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d2a…1d44 Head {h00=0x0016, h01=0x0050, text=»* RECOVERY PART«, t00=0x0012, t01=0x0114}
0x1d44…1d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012e}
0x1d4e…1d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d58…1d6a Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0012, t01=0x0142}
0x1d6a…1d80 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0154}
0x1d80…1daa Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x016a}
0x1daa…1db6 (19, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0004}
0x1db6…1dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0010}
0x1dc0…1dd6 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x001a}
0x1dd6…1dec Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x0030}
0x1dec…1e12 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0013, t01=0x0046}
0x1e12…1e1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x006c}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e28…1e3e Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x0082}
0x1e3e…1e5c Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY? «, t00=0x0013, t01=0x0098}
0x1e5c…1e72 Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0013, t01=0x00b6}
0x1e72…1e88 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0013, t01=0x00cc}
0x1e88…1eb4 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF «, t00=0x0013, t01=0x00e2}
0x1eb4…1ec6 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0013, t01=0x010e}
0x1ec6…1ef0 Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0013, t01=0x0120}
0x1ef0…1f02 Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x0013, t01=0x014a}
0x1f02…1f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x015c}
0x1f0e…1f1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0168}
0x1f1c…1f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0176}
0x1f26…1f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f30…1f44 Head {h00=0x0010, h01=0x0050, text=»* ACKB «, t00=0x0013, t01=0x018a}
0x1f44…1f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f4e…1f8c Head {h00=0x003a, h01=0x0050, text=»* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND «, t00=0x0014, t01=0x0018}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0056}
0x1f96…1fda Head {h00=0x0040, h01=0x0050, text=»* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER«, t00=0x0014, t01=0x0060}
0x1fda…1fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a4}
0x1fe4…1ffc Head {h00=0x0014, h01=0x0050, text=»* TO THREAT«, t00=0x0014, t01=0x00ae}
0x1ffc…2006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c6}
0x2006…2010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2024…2036 Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0014, t01=0x00ee}
0x2036…204c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x0014, t01=0x0100}
0x204c…2082 Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG «, t00=0x0014, t01=0x0116}
0x2082…2094 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x014c}
0x2094…20b8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0014, t01=0x015e}
0x20b8…20ca Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x0182}
0x20ca…20ee (21, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0015, t01=0x0004}
0x20ee…2100 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0015, t01=0x0028}
0x2100…2124 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x0015, t01=0x003a}
0x2124…2138 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x0015, t01=0x005e}
0x2138…2156 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0015, t01=0x0072}
0x2156…2184 Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/0 REQUEST ERROR«, t00=0x0015, t01=0x0090}
0x2184…2198 Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x0015, t01=0x00be}
0x2198…21a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d2}
0x21a6…21b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e0}
0x21b0…21ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c4…21ee Head {h00=0x0026, h01=0x0050, text=»* ORDER 31 RESET INPUT BUFFER«, t00=0x0015, t01=0x00fe}
0x21ee…21f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0128}
0x21f8…2202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0132}
0x2202…220c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013c}
0x220c…2220 Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x0146}
0x2220…2238 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTINQ,A6«, t00=0x0015, t01=0x015a}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0015, t01=0x0172}
0x224a…2276 Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x0015, t01=0x0184}
0x2276…2288 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0016, t01=0x0020}
0x2288…2292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0032}
0x2292…22a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x003c}
0x22a0…22aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22aa…22b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0054}
0x22b4…22ce Head {h00=0x0016, h01=0x0050, text=»* ORDER 1,2,3«, t00=0x0016, t01=0x005e}
0x22ce…22d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0078}
0x22d8…22e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0082}
0x22e2…22ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008c}
0x22ec…2300 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0016, t01=0x0096}
0x2300…2316 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0016, t01=0x00aa}
0x2316…232e Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0016, t01=0x00c0}
0x232e…234e Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 POWER OFF?«, t00=0x0016, t01=0x00d8}
0x234e…2368 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO! «, t00=0x0016, t01=0x00f8}
0x2368…2394 Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POWER OFF BIT«, t00=0x0016, t01=0x0112}
0x2394…23a8 Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x0016, t01=0x013e}
0x23a8…23e4 Head {h00=0x0038, h01=0x0050, text=» CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST «, t00=0x0016, t01=0x0152}
0x23e4…23fa Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x0016, t01=0x018e}
0x23fa…241e Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER OFF«, t00=0x0017, t01=0x0014}
0x241e…2430 Head {h00=0x000e, h01=0x0050, text=» RF AKB218«, t00=0x0017, t01=0x0038}
0x2430…243c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x004a}
0x243c…2450 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0017, t01=0x0056}
0x2450…2466 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0017, t01=0x006a}
0x2466…247a Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0017, t01=0x0080}
0x247a…2496 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING? «, t00=0x0017, t01=0x0094}
0x2496…24c6 Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE!«, t00=0x0017, t01=0x00b0}
0x24c6…24f6 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTTP,A6 CHECK IF ALREADY TIMING «, t00=0x0017, t01=0x00e0}
0x24f6…250c Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x0017, t01=0x0110}
0x250c…2522 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0017, t01=0x0126}
0x2522…253a Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x0017, t01=0x013c}
0x253a…254c Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x0017, t01=0x0154}
0x254c…2560 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x0017, t01=0x0166}
0x2560…2584 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x0017, t01=0x017a}
0x2584…25a6 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x0018, t01=0x000e}
0x25a6…25b8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0018, t01=0x0030}
0x25b8…25d8 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0018, t01=0x0042}
0x25d8…260c Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0018, t01=0x0062}
0x260c…263e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0018, t01=0x0096}
0x263e…264a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00c8}
0x264a…2654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d4}
0x2654…2662 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00de}
0x2662…2682 Head {h00=0x001c, h01=0x0050, text=»* IF ANY KEY-LOCK: «, t00=0x0018, t01=0x00ec}
0x2682…268c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010c}
0x268c…26ca Head {h00=0x003a, h01=0x0050, text=»* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER«, t00=0x0018, t01=0x0116}
0x26ca…2704 Head {h00=0x0036, h01=0x0050, text=»* OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER.«, t00=0x0018, t01=0x0154}
0x2704…2744 Head {h00=0x003c, h01=0x0050, text=»* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE«, t00=0x0018, t01=0x018e}
0x2744…276e Head {h00=0x0026, h01=0x0050, text=»* AND END I/O. ELSE CONTINUE.«, t00=0x0019, t01=0x003e}
0x276e…2778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0068}
0x2778…2782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0072}
0x2782…2796 Head {h00=0x0010, h01=0x0050, text=»AKB210 EQU *«, t00=0x0019, t01=0x007c}
0x2796…27bc Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY KEY-LOCK? «, t00=0x0019, t01=0x0090}
0x27bc…27ce Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0019, t01=0x00b6}
0x27ce…27e4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AKB219 «, t00=0x0019, t01=0x00c8}
0x27e4…27f6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0019, t01=0x00de}
0x27f6…2808 Head {h00=0x000e, h01=0x0050, text=» SRN A2,A4«, t00=0x0019, t01=0x00f0}
0x2808…281a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0019, t01=0x0102}
0x281a…282c Head {h00=0x000e, h01=0x0050, text=» CWK A4,3 «, t00=0x0019, t01=0x0114}
0x282c…2842 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB212 «, t00=0x0019, t01=0x0126}
0x2842…2858 Head {h00=0x0012, h01=0x0050, text=» RF(P) AKB211 «, t00=0x0019, t01=0x013c}
0x2858…286a Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0152}
0x286a…287c Head {h00=0x000e, h01=0x0050, text=» RF AKB212«, t00=0x0019, t01=0x0164}
0x287c…2894 Head {h00=0x0014, h01=0x0050, text=»AKB211 ADR A4,A4«, t00=0x0019, t01=0x0176}
0x2894…28c6 Head {h00=0x002e, h01=0x0050, text=»AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG «, t00=0x0019, t01=0x018e}
0x28c6…28d8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x001a, t01=0x0030}
0x28d8…28ea Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x001a, t01=0x0042}
0x28ea…2902 Head {h00=0x0014, h01=0x0050, text=» AN A4,DWTST,A6 «, t00=0x001a, t01=0x0054}
0x2902…291e Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 SAVE A4 «, t00=0x001a, t01=0x006c}
0x291e…2932 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x001a, t01=0x0088}
0x2932…294c Head {h00=0x0016, h01=0x0050, text=» SRN A2,A3 ORDER 1«, t00=0x001a, t01=0x009c}
0x294c…2972 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 MAKE CHARACTER FLAG«, t00=0x001a, t01=0x00b6}
0x2972…2984 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x001a, t01=0x00dc}
0x2984…299c Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB213 «, t00=0x001a, t01=0x00ee}
0x299c…29ae Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0106}
0x29ae…29c8 Head {h00=0x0016, h01=0x0050, text=»AKB213 ADK A3,/70 «, t00=0x001a, t01=0x0118}
0x29c8…29da Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001a, t01=0x0132}
0x29da…29ee Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x001a, t01=0x0144}
0x29ee…2a1c Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE KEY IN ECB BUFFER «, t00=0x001a, t01=0x0158}
0x2a1c…2a3c Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A4 «, t00=0x001a, t01=0x0186}
0x2a3c…2a4e Head {h00=0x000e, h01=0x0050, text=» CWK A7,1 «, t00=0x001b, t01=0x0016}
0x2a4e…2a76 Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB307 JUMP IF BASIC READ«, t00=0x001b, t01=0x0028}
0x2a76…2a9c Head {h00=0x0022, h01=0x0050, text=»AKB214 NGR A2,A1 MAKE ECB CODE«, t00=0x001b, t01=0x0050}
0x2a9c…2ab8 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 KEY FLAG «, t00=0x001b, t01=0x0076}
0x2ab8…2ace Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB215 «, t00=0x001b, t01=0x0092}
0x2ace…2ae0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x001b, t01=0x00a8}
0x2ae0…2b10 Head {h00=0x002c, h01=0x0050, text=»AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB «, t00=0x001b, t01=0x00ba}
0x2b10…2b2a Head {h00=0x0016, h01=0x0050, text=»AKB218 ABL AKB380 «, t00=0x001b, t01=0x00ea}
0x2b2a…2b56 Head {h00=0x0028, h01=0x0050, text=»AKB219 LD A2,4,A8 REQUESTED LENGTH=0«, t00=0x001b, t01=0x0104}
0x2b56…2b72 Head {h00=0x0018, h01=0x0050, text=»AKB220 ABL(E) AKB380«, t00=0x001b, t01=0x0130}
0x2b72…2b98 Head {h00=0x0022, h01=0x0050, text=»AKB225 LDR A3,A3 FIRTST RIME? «, t00=0x001b, t01=0x014c}
0x2b98…2bb2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 N0!«, t00=0x001b, t01=0x0172}
0x2bb2…2bd4 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x018c}
0x2bd4…2be6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x001e}
0x2be6…2bf8 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x001c, t01=0x0030}
0x2bf8…2c22 Head {h00=0x0026, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR ECB BUFFER «, t00=0x001c, t01=0x0042}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x006c}
0x2c34…2c46 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x007e}
0x2c46…2c5c Head {h00=0x0012, h01=0x0050, text=» RB(NE) AKB230«, t00=0x001c, t01=0x0090}
0x2c5c…2c70 Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x001c, t01=0x00a6}
0x2c70…2c88 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x001c, t01=0x00ba}
0x2c88…2c9a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x001c, t01=0x00d2}
0x2c9a…2cb2 Head {h00=0x0014, h01=0x0050, text=»AKB245 LDR A4,A2«, t00=0x001c, t01=0x00e4}
0x2cb2…2cd0 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW? «, t00=0x001c, t01=0x00fc}
0x2cd0…2cea Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB250 N0!«, t00=0x001c, t01=0x011a}
0x2cea…2d08 Head {h00=0x001a, h01=0x0050, text=»AKB247 SCR A4,A1 YES! «, t00=0x001c, t01=0x0134}
0x2d08…2d2c Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x001c, t01=0x0152}
0x2d2c…2d46 Head {h00=0x0016, h01=0x0050, text=» ABL ENDIX END I/O«, t00=0x001c, t01=0x0176}
0x2d46…2d78 Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x001c, t01=0x0190}
0x2d78…2d90 Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB255 «, t00=0x001d, t01=0x0032}
0x2d90…2db6 Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x001d, t01=0x004a}
0x2db6…2dcc Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001d, t01=0x0070}
0x2dcc…2dfa Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x001d, t01=0x0086}
0x2dfa…2e1c Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB257 NO TIME OUT «, t00=0x001d, t01=0x00b4}
0x2e1c…2e44 Head {h00=0x0024, h01=0x0050, text=» ABL ENDI05 END I/O AT TIME OUT «, t00=0x001d, t01=0x00d6}
0x2e44…2e50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00fe}
0x2e50…2e66 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x001d, t01=0x010a}
0x2e66…2e78 Head {h00=0x000e, h01=0x0050, text=» RF AKB257«, t00=0x001d, t01=0x0120}
0x2e78…2e84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0132}
0x2e84…2eb2 Head {h00=0x002a, h01=0x0050, text=»AKB255 CF A15,EOQUEU NEXT OUT POINTER «, t00=0x001d, t01=0x013e}
0x2eb2…2edc Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x001d, t01=0x016c}
0x2edc…2ef0 Head {h00=0x0010, h01=0x0050, text=»AKB257 EQU *«, t00=0x001e, t01=0x0008}
0x2ef0…2f02 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001e, t01=0x001c}
0x2f02…2f14 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001e, t01=0x002e}
0x2f14…2f38 Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x001e, t01=0x0040}
0x2f38…2f46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0064}
0x2f46…2f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0072}
0x2f50…2f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f5a…2f7a Head {h00=0x001c, h01=0x0050, text=»* ORDER 1 BASIC READ«, t00=0x001e, t01=0x0086}
0x2f7a…2f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a6}
0x2f84…2f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b0}
0x2f8e…2f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ba}
0x2f98…2fd2 Head {h00=0x0036, h01=0x0050, text=»AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x001e, t01=0x00c4}
0x2fd2…2fe6 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x001e, t01=0x00fe}
0x2fe6…2ffa Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x001e, t01=0x0112}
0x2ffa…3006 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0126}
0x3006…3020 Head {h00=0x0016, h01=0x0050, text=»AKB307 CW A3,4,A8 «, t00=0x001e, t01=0x0132}
0x3020…3050 Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB380 END I/O IF REQ=EFF LENGTH «, t00=0x001e, t01=0x014c}
0x3050…3072 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 MORE KEYS?«, t00=0x001e, t01=0x017c}
0x3072…3084 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001f, t01=0x000e}
0x3084…309a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AKB210«, t00=0x001f, t01=0x0020}
0x309a…30ac Head {h00=0x000e, h01=0x0050, text=» RB AKB225«, t00=0x001f, t01=0x0036}
0x30ac…30ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0048}
0x30ba…30c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0056}
0x30c4…30ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0060}
0x30ce…30d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006a}
0x30d8…3110 Head {h00=0x0034, h01=0x0050, text=»* ORDER 2 OR 3 STANDARD AND NUMERIC READ «, t00=0x001f, t01=0x0074}
0x3110…311a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ac}
0x311a…3160 Head {h00=0x0042, h01=0x0050, text=»* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) «, t00=0x001f, t01=0x00b6}
0x3160…316a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fc}
0x316a…3174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0106}
0x3174…317e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0110}
0x317e…3188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011a}
0x3188…319c Head {h00=0x0010, h01=0x0050, text=»AKB310 EQU *«, t00=0x001f, t01=0x0124}
0x319c…31c2 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x001f, t01=0x0138}
0x31c2…31e4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB360 NO KEY-TABLE«, t00=0x001f, t01=0x015e}
0x31e4…320e Head {h00=0x0026, h01=0x0050, text=» LCR A4,A1 KEY-TABLE LENGTH IN A4 «, t00=0x001f, t01=0x0180}
0x320e…3222 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0020, t01=0x001a}
0x3222…324c Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0020, t01=0x002e}
0x324c…325e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0020, t01=0x0058}
0x325e…3276 Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0020, t01=0x006a}
0x3276…32a6 Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0020, t01=0x0082}
0x32a6…32c0 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0020, t01=0x00b2}
0x32c0…32d8 Head {h00=0x0014, h01=0x0050, text=» CCR A2,A1 EOR? «, t00=0x0020, t01=0x00cc}
0x32d8…32f2 Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO!«, t00=0x0020, t01=0x00e4}
0x32f2…3304 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x00fe}
0x3304…3334 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x0020, t01=0x0110}
0x3334…335a Head {h00=0x0022, h01=0x0050, text=» CF A15,STORE STORE CHARACTER «, t00=0x0020, t01=0x0140}
0x335a…336e Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0020, t01=0x0166}
0x336e…3398 Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR-CHARACTER«, t00=0x0020, t01=0x017a}
0x3398…33be Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHO ECHO EOR-CHARACTER«, t00=0x0021, t01=0x0014}
0x33be…33ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x003a}
0x33ca…33dc Head {h00=0x000e, h01=0x0050, text=» RF AKB380«, t00=0x0021, t01=0x0046}
0x33dc…33f0 Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0021, t01=0x0058}
0x33f0…3402 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x006c}
0x3402…341a Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ2,A6 «, t00=0x0021, t01=0x007e}
0x341a…3430 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ20 «, t00=0x0021, t01=0x0096}
0x3430…3448 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ3,A6 «, t00=0x0021, t01=0x00ac}
0x3448…345e Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ30 «, t00=0x0021, t01=0x00c4}
0x345e…3476 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBBSP,A6 «, t00=0x0021, t01=0x00da}
0x3476…348c Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0021, t01=0x00f2}
0x348c…34a4 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBCLR,A6 «, t00=0x0021, t01=0x0108}
0x34a4…34ba Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0021, t01=0x0120}
0x34ba…34ea Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN BUFFER «, t00=0x0021, t01=0x0136}
0x34ea…34fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0166}
0x34fc…3528 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/20 CHEC CONVERTED CHARACTER«, t00=0x0021, t01=0x0178}
0x3528…354c Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB364 LESS THAN /20 «, t00=0x0022, t01=0x0014}
0x354c…3570 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/5F CHARACTER > /7F «, t00=0x0022, t01=0x0038}
0x3570…358a Head {h00=0x0016, h01=0x0050, text=» RF(P) AKB364 YES «, t00=0x0022, t01=0x005c}
0x358a…359c Head {h00=0x000e, h01=0x0050, text=» CWK A7,2 «, t00=0x0022, t01=0x0076}
0x359c…35c4 Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB366 STANDARD READ OK «, t00=0x0022, t01=0x0088}
0x35c4…35d8 Head {h00=0x0010, h01=0x0050, text=» ADK A4,/4F «, t00=0x0022, t01=0x00b0}
0x35d8…35ee Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB364 «, t00=0x0022, t01=0x00c4}
0x35ee…3600 Head {h00=0x000e, h01=0x0050, text=» SUK A4,/A«, t00=0x0022, t01=0x00da}
0x3600…3626 Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB366 NUMERIC READ OK«, t00=0x0022, t01=0x00ec}
0x3626…3648 Head {h00=0x001e, h01=0x0050, text=»AKB364 LDK A1,4 ERROR CODE«, t00=0x0022, t01=0x0112}
0x3648…365a Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x0134}
0x365a…366e Head {h00=0x0010, h01=0x0050, text=»AKB366 EQU *«, t00=0x0022, t01=0x0146}
0x366e…3682 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0022, t01=0x015a}
0x3682…3696 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x016e}
0x3696…36aa Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0022, t01=0x0182}
0x36aa…36b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0008}
0x36b6…36da Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0023, t01=0x0014}
0x36da…3700 Head {h00=0x0022, h01=0x0050, text=»AKB367 ABL(L) AKB210 NO RETURN«, t00=0x0023, t01=0x0038}
0x3700…372a Head {h00=0x0026, h01=0x0050, text=»AKB368 LDK A1,8 YES SET ERROR CODE«, t00=0x0023, t01=0x005e}
0x372a…3744 Head {h00=0x0016, h01=0x0050, text=» RF ENDIO END I/O «, t00=0x0023, t01=0x0088}
0x3744…3752 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00a2}
0x3752…3774 Head {h00=0x001e, h01=0x0050, text=»KBMZ30 EQU * TRIPPLE ZERO «, t00=0x0023, t01=0x00b0}
0x3774…3786 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0023, t01=0x00d2}
0x3786…3798 Head {h00=0x000e, h01=0x0050, text=» RF KBMZ25«, t00=0x0023, t01=0x00e4}
0x3798…37bc Head {h00=0x0020, h01=0x0050, text=»KBMZ20 LDK A4,2 DOUBLE ZERO «, t00=0x0023, t01=0x00f6}
0x37bc…37d6 Head {h00=0x0016, h01=0x0050, text=»KBMZ25 LDK A2,/30 «, t00=0x0023, t01=0x011a}
0x37d6…37e8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x0134}
0x37e8…37fe Head {h00=0x0012, h01=0x0050, text=» RB(L) AKB367 «, t00=0x0023, t01=0x0146}
0x37fe…3810 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0023, t01=0x015c}
0x3810…3826 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0023, t01=0x016e}
0x3826…3838 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0023, t01=0x0184}
0x3838…384c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0024, t01=0x0008}
0x384c…3860 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0024, t01=0x001c}
0x3860…386c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0030}
0x386c…3880 Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x0024, t01=0x003c}
0x3880…3896 Head {h00=0x0012, h01=0x0050, text=» RB(L) KBMZ25 «, t00=0x0024, t01=0x0050}
0x3896…38aa Head {h00=0x0010, h01=0x0050, text=»KBMZ27 EQU *«, t00=0x0024, t01=0x0066}
0x38aa…38cc Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES «, t00=0x0024, t01=0x007a}
0x38cc…38f4 Head {h00=0x0024, h01=0x0050, text=» RB(L) AKB368 NO,SET RETURN CODE«, t00=0x0024, t01=0x009c}
0x38f4…3900 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x00c4}
0x3900…392e Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x0024, t01=0x00d0}
0x392e…3940 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0024, t01=0x00fe}
0x3940…3966 Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x0024, t01=0x0110}
0x3966…3980 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ29 NO «, t00=0x0024, t01=0x0136}
0x3980…39b0 Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x0024, t01=0x0150}
0x39b0…39c2 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0024, t01=0x0180}
0x39c2…39d4 (37, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0025, t01=0x0004}
0x39d4…39e6 Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x0025, t01=0x0016}
0x39e6…3a1c Head {h00=0x0032, h01=0x0050, text=»KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x0025, t01=0x0028}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0025, t01=0x005e}
0x3a2e…3a5e Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x0025, t01=0x0070}
0x3a5e…3a82 Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x0025, t01=0x00a0}
0x3a82…3ab6 Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x0025, t01=0x00c4}
0x3ab6…3ae0 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x0025, t01=0x00f8}
0x3ae0…3b00 Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x0025, t01=0x0122}
0x3b00…3b12 Head {h00=0x000e, h01=0x0050, text=» RB KBMZ27«, t00=0x0025, t01=0x0142}
0x3b12…3b26 Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x0025, t01=0x0154}
0x3b26…3b52 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x0025, t01=0x0168}
0x3b52…3b64 (38, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x0026, t01=0x0004}
0x3b64…3b8c Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x0026, t01=0x0016}
0x3b8c…3bb8 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x0026, t01=0x003e}
0x3bb8…3bea Head {h00=0x002e, h01=0x0050, text=»ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS«, t00=0x0026, t01=0x006a}
0x3bea…3bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x009c}
0x3bf4…3bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a6}
0x3bfe…3c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b0}
0x3c08…3c22 Head {h00=0x0016, h01=0x0050, text=»KBCL10 EQU * CLEAR«, t00=0x0026, t01=0x00ba}
0x3c22…3c34 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0026, t01=0x00d4}
0x3c34…3c48 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/18 «, t00=0x0026, t01=0x00e6}
0x3c48…3c5a Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0026, t01=0x00fa}
0x3c5a…3c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c64…3c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0116}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0120}
0x3c78…3c8c Head {h00=0x0010, h01=0x0050, text=»KBSP10 EQU *«, t00=0x0026, t01=0x012a}
0x3c8c…3c9e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0026, t01=0x013e}
0x3c9e…3cb4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0026, t01=0x0150}
0x3cb4…3cc6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0026, t01=0x0166}
0x3cc6…3cf6 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER«, t00=0x0026, t01=0x0178}
0x3cf6…3d0c Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0027, t01=0x0018}
0x3d0c…3d1e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0027, t01=0x002e}
0x3d1e…3d36 Head {h00=0x0014, h01=0x0050, text=»KBSP15 LDK A2,/8«, t00=0x0027, t01=0x0040}
0x3d36…3d48 Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0027, t01=0x0058}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006a}
0x3d52…3d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0074}
0x3d5c…3d80 Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x007e}
0x3d80…3d8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00a2}
0x3d8e…3d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b0}
0x3d98…3da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ba}
0x3da2…3dd2 Head {h00=0x002c, h01=0x0050, text=»* THIS IS A COMMON END OF THE DRIVER «, t00=0x0027, t01=0x00c4}
0x3dd2…3ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f4}
0x3ddc…3e12 Head {h00=0x0032, h01=0x0050, text=»* SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x0027, t01=0x00fe}
0x3e12…3e3a Head {h00=0x0024, h01=0x0050, text=»* ON KEYBOARD AND ECHO-DEVICE«, t00=0x0027, t01=0x0134}
0x3e3a…3e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015c}
0x3e44…3e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0166}
0x3e4e…3e62 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0027, t01=0x0170}
0x3e62…3e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0184}
0x3e6c…3e78 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x018e}
0x3e78…3e8e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0028, t01=0x000a}
0x3e8e…3ea6 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0028, t01=0x0020}
0x3ea6…3ed4 Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x0028, t01=0x0038}
0x3ed4…3ef6 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0028, t01=0x0066}
0x3ef6…3f0a Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0028, t01=0x0088}
0x3f0a…3f16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x009c}
0x3f16…3f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a8}
0x3f20…3f50 Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0028, t01=0x00b2}
0x3f50…3f64 Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x0028, t01=0x00e2}
0x3f64…3f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f6}
0x3f6e…3f82 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x0100}
0x3f82…3f9c Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0028, t01=0x0114}
0x3f9c…3fc8 Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x0028, t01=0x012e}
0x3fc8…3fe6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x0028, t01=0x015a}
0x3fe6…3ff2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0178}
0x3ff2…4006 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0028, t01=0x0184}
0x4006…4010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4010…401e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0012}
0x401e…4028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0020}
0x4028…4032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002a}
0x4032…403c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0034}
0x403c…404e Head {h00=0x000e, h01=0x0050, text=»* IHKB«, t00=0x0029, t01=0x003e}
0x404e…4058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0050}
0x4058…4062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x005a}
0x4062…40ac Head {h00=0x0046, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER «, t00=0x0029, t01=0x0064}
0x40ac…40b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ae}
0x40b6…40c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b8}
0x40c0…40ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c2}
0x40ca…40dc Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0029, t01=0x00cc}
0x40dc…40f0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x00de}
0x40f0…411e Head {h00=0x002a, h01=0x0050, text=» CF A15,KONVER CONVERT INPUT CHARACTER«, t00=0x0029, t01=0x00f2}
0x411e…4142 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 TEST TYPE OF CHAR«, t00=0x0029, t01=0x0120}
0x4142…4166 Head {h00=0x0020, h01=0x0050, text=» RF(P) EXIT SHIFT/CTRL/SKIP «, t00=0x0029, t01=0x0144}
0x4166…4184 Head {h00=0x001a, h01=0x0050, text=» RF(N) IHKB12 KEY-LOCK«, t00=0x0029, t01=0x0168}
0x4184…418c Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0186}
0x418c…41b0 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 NORMAL CHAR «, t00=0x0029, t01=0x018e}
0x41b0…41c6 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x002a, t01=0x0022}
0x41c6…41da Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002a, t01=0x0038}
0x41da…41ee Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x002a, t01=0x004c}
0x41ee…4212 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x002a, t01=0x0060}
0x4212…421e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0084}
0x421e…424c Head {h00=0x002a, h01=0x0050, text=» RF(N) IHKB15 NO READ REQUEST PENDING «, t00=0x002a, t01=0x0090}
0x424c…4272 Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPT ALLOWED ? «, t00=0x002a, t01=0x00be}
0x4272…42aa Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER«, t00=0x002a, t01=0x00e4}
0x42aa…42c0 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x011c}
0x42c0…42d8 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x002a, t01=0x0132}
0x42d8…4306 Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB07 NO TIMING ON THIS DEVICE«, t00=0x002a, t01=0x014a}
0x4306…432a Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x002a, t01=0x0178}
0x432a…4342 Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x002b, t01=0x000c}
0x4342…434e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0024}
0x434e…437e Head {h00=0x002c, h01=0x0050, text=»IHKB07 ABL LDREG RETURN TO READ ROUTINE «, t00=0x002b, t01=0x0030}
0x437e…43ae Head {h00=0x002c, h01=0x0050, text=»IHKB12 CF A15,KEYSET SET KEY CODE IN DWT«, t00=0x002b, t01=0x0060}
0x43ae…43c0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002b, t01=0x0090}
0x43c0…43e2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EXIT NO KEY CHANGE «, t00=0x002b, t01=0x00a2}
0x43e2…43fa Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002b, t01=0x00c4}
0x43fa…4426 Head {h00=0x0028, h01=0x0050, text=» RF(N) EXIT NO READ REQUEST PENDING «, t00=0x002b, t01=0x00dc}
0x4426…4438 Head {h00=0x000e, h01=0x0050, text=» SLL A3,7 «, t00=0x002b, t01=0x0108}
0x4438…4462 Head {h00=0x0026, h01=0x0050, text=» RF(NN) EXIT INERRUPT NOT ALLOWED «, t00=0x002b, t01=0x011a}
0x4462…448e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTA3,A6 RESTORE BUFFER INDEX«, t00=0x002b, t01=0x0144}
0x448e…44a6 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x002b, t01=0x0170}
0x44a6…44b8 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x0188}
0x44b8…44cc Head {h00=0x0010, h01=0x0050, text=» ABL AKB210 «, t00=0x002c, t01=0x000a}
0x44cc…44d4 Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x001e}
0x44d4…44f2 Head {h00=0x001a, h01=0x0050, text=»IHKB15 LD A1,DWTINQ,A6«, t00=0x002c, t01=0x0026}
0x44f2…4504 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x002c, t01=0x0044}
0x4504…452a Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW? «, t00=0x002c, t01=0x0056}
0x452a…4542 Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x002c, t01=0x007c}
0x4542…4554 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002c, t01=0x0094}
0x4554…458c Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x002c, t01=0x00a6}
0x458c…45ae Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x002c, t01=0x00de}
0x45ae…45da Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY «, t00=0x002c, t01=0x0100}
0x45da…460e Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER «, t00=0x002c, t01=0x012c}
0x460e…4620 Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x002c, t01=0x0160}
0x4620…4654 Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x002c, t01=0x0172}
0x4654…466c Head {h00=0x0014, h01=0x0050, text=»IHKB30 SCR A2,A3«, t00=0x002d, t01=0x0016}
0x466c…4682 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x002d, t01=0x002e}
0x4682…468c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0044}
0x468c…469a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x004e}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005c}
0x46a4…46ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0066}
0x46ae…46b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0070}
0x46b8…46cc Head {h00=0x0010, h01=0x0050, text=»* AKBTUT«, t00=0x002d, t01=0x007a}
0x46cc…46d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008e}
0x46d6…4700 Head {h00=0x0026, h01=0x0050, text=»* THIS IS THE TIME-OUT ROUTINE«, t00=0x002d, t01=0x0098}
0x4700…470a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c2}
0x470a…4714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00cc}
0x4714…471e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d6}
0x471e…4734 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002d, t01=0x00e0}
0x4734…4748 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x002d, t01=0x00f6}
0x4748…476e Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RESTART DWT-ADDRESS«, t00=0x002d, t01=0x010a}
0x476e…4792 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURNE CODE«, t00=0x002d, t01=0x0130}
0x4792…47a6 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002d, t01=0x0154}
0x47a6…47be Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x002d, t01=0x0168}
0x47be…47ec Head {h00=0x002a, h01=0x0050, text=» RB(N) EXIT DISPATCH IF NO REQUEST ON «, t00=0x002d, t01=0x0180}
0x47ec…481c Head {h00=0x002c, h01=0x0050, text=» RB IHKB07 RESTORE REGISTER AND END I/O «, t00=0x002e, t01=0x001e}
0x481c…4828 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x004e}
0x4828…4836 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x005a}
0x4836…4840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0068}
0x4840…484a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0072}
0x484a…4854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007c}
0x4854…485e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0086}
0x485e…4872 Head {h00=0x0010, h01=0x0050, text=»* KEYSET «, t00=0x002e, t01=0x0090}
0x4872…487c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a4}
0x487c…4886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ae}
0x4886…4890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b8}
0x4890…48c0 Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A4= NEG KEY-LOCK VALUE «, t00=0x002e, t01=0x00c2}
0x48c0…48ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f2}
0x48ca…490e Head {h00=0x0040, h01=0x0050, text=»* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS «, t00=0x002e, t01=0x00fc}
0x490e…4918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0140}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4922…4936 Head {h00=0x0010, h01=0x0050, text=»KEYSET EQU *«, t00=0x002e, t01=0x0154}
0x4936…494a Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x002e, t01=0x0168}
0x494a…4962 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002e, t01=0x017c}
0x4962…4978 (47, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x002f, t01=0x0004}
0x4978…4990 Head {h00=0x0014, h01=0x0050, text=»SET100 SRL A2,1 «, t00=0x002f, t01=0x001a}
0x4990…49b4 Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 IN A4: 1=OFF 0=ON«, t00=0x002f, t01=0x0032}
0x49b4…49ca Head {h00=0x0012, h01=0x0050, text=» RB(N) SET100 «, t00=0x002f, t01=0x0056}
0x49ca…49f2 Head {h00=0x0024, h01=0x0050, text=» ANR A3,A2 CHEC OLD KEY POSITION«, t00=0x002f, t01=0x006c}
0x49f2…4a18 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SET300 JUMP IF KEY ON «, t00=0x002f, t01=0x0094}
0x4a18…4a2a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002f, t01=0x00ba}
0x4a2a…4a40 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SET500«, t00=0x002f, t01=0x00cc}
0x4a40…4a52 Head {h00=0x000e, h01=0x0050, text=» RF SET400«, t00=0x002f, t01=0x00e2}
0x4a52…4a6a Head {h00=0x0014, h01=0x0050, text=»SET300 LDR A4,A4«, t00=0x002f, t01=0x00f4}
0x4a6a…4a80 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SET500 «, t00=0x002f, t01=0x010c}
0x4a80…4a9e Head {h00=0x001a, h01=0x0050, text=»SET400 LD A3,DWTST,A6 «, t00=0x002f, t01=0x0122}
0x4a9e…4ab0 Head {h00=0x000e, h01=0x0050, text=» XRR A3,A2«, t00=0x002f, t01=0x0140}
0x4ab0…4ac2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x002f, t01=0x0152}
0x4ac2…4ad4 Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x002f, t01=0x0164}
0x4ad4…4aec Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x002f, t01=0x0176}
0x4aec…4b1a Head {h00=0x002a, h01=0x0050, text=» LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED«, t00=0x002f, t01=0x018e}
0x4b1a…4b34 Head {h00=0x0016, h01=0x0050, text=»SET500 LDR* A4,A15«, t00=0x0030, t01=0x002c}
0x4b34…4b44 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0030, t01=0x0046}
0x4b44…4b52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0056}
0x4b52…4b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0064}
0x4b5c…4b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006e}
0x4b66…4b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x4b70…4b84 Head {h00=0x0010, h01=0x0050, text=»* KONVER«, t00=0x0030, t01=0x0082}
0x4b84…4b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0096}
0x4b8e…4bbc Head {h00=0x002a, h01=0x0050, text=»* KONVER CONVERTS INPUT CHARACTER «, t00=0x0030, t01=0x00a0}
0x4bbc…4bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ce}
0x4bc6…4bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d8}
0x4bd0…4bfc Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A2= INPUT CHARACTER «, t00=0x0030, t01=0x00e2}
0x4bfc…4c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0118}
0x4c10…4c3e Head {h00=0x002a, h01=0x0050, text=»* ON EXIT: A2=COVERTED CHARACTER «, t00=0x0030, t01=0x0122}
0x4c3e…4c8e Head {h00=0x004c, h01=0x0050, text=»* A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT«, t00=0x0030, t01=0x0150}
0x4c8e…4cb6 Head {h00=0x0024, h01=0x0050, text=»* A5 IS DESTROYED!«, t00=0x0031, t01=0x0010}
0x4cb6…4cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0038}
0x4cc0…4cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0042}
0x4cca…4cde Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x0031, t01=0x004c}
0x4cde…4cf0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0031, t01=0x0060}
0x4cf0…4d06 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0031, t01=0x0072}
0x4d06…4d24 Head {h00=0x001a, h01=0x0050, text=» SUK A4,/7C CODE > /7B«, t00=0x0031, t01=0x0088}
0x4d24…4d3e Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON500 YES«, t00=0x0031, t01=0x00a6}
0x4d3e…4d62 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 RESTORE CHARACTER«, t00=0x0031, t01=0x00c0}
0x4d62…4d6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00e4}
0x4d6e…4daa Head {h00=0x0038, h01=0x0050, text=» STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION«, t00=0x0031, t01=0x00f0}
0x4daa…4dbe Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A6 «, t00=0x0031, t01=0x012c}
0x4dbe…4dd2 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x0031, t01=0x0140}
0x4dd2…4df0 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON105 FUNCTION«, t00=0x0031, t01=0x0154}
0x4df0…4e0a Head {h00=0x0016, h01=0x0050, text=»KON100 SUK A4,/40 «, t00=0x0031, t01=0x0172}
0x4e0a…4e2c Head {h00=0x001e, h01=0x0050, text=» RF(N) KON180 ALFANUMERIC «, t00=0x0031, t01=0x018c}
0x4e2c…4e48 Head {h00=0x0018, h01=0x0050, text=» SUK A4,/10 FUNCTION«, t00=0x0032, t01=0x001e}
0x4e48…4e62 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON110 NO «, t00=0x0032, t01=0x003a}
0x4e62…4e7a Head {h00=0x0014, h01=0x0050, text=» SUK A2,/40 YES «, t00=0x0032, t01=0x0054}
0x4e7a…4e8e Head {h00=0x0010, h01=0x0050, text=»KON105 EQU *«, t00=0x0032, t01=0x006c}
0x4e8e…4ea2 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/10 «, t00=0x0032, t01=0x0080}
0x4ea2…4eb4 Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0032, t01=0x0094}
0x4eb4…4ec6 Head {h00=0x000e, h01=0x0050, text=» RF KON200«, t00=0x0032, t01=0x00a6}
0x4ec6…4ef4 Head {h00=0x002a, h01=0x0050, text=»KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT «, t00=0x0032, t01=0x00b8}
0x4ef4…4f12 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON400 KEY-LOCK«, t00=0x0032, t01=0x00e6}
0x4f12…4f30 Head {h00=0x001a, h01=0x0050, text=» RF(Z) KON140 SHIFT ON«, t00=0x0032, t01=0x0104}
0x4f30…4f42 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0032, t01=0x0122}
0x4f42…4f62 Head {h00=0x001c, h01=0x0050, text=» RF(N) KON160 SHIFT OFF «, t00=0x0032, t01=0x0134}
0x4f62…4f82 Head {h00=0x001c, h01=0x0050, text=» RF(Z) KON170 CONTROL ON«, t00=0x0032, t01=0x0154}
0x4f82…4f98 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0032, t01=0x0174}
0x4f98…4faa Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0032, t01=0x018a}
0x4faa…4fcc Head {h00=0x001e, h01=0x0050, text=» RF(N) KON125 CONTROL OFF «, t00=0x0033, t01=0x000c}
0x4fcc…4ff4 Head {h00=0x0024, h01=0x0050, text=» RF(E) KON140 NUMERICAL SHIFT ON«, t00=0x0033, t01=0x002e}
0x4ff4…501a Head {h00=0x0022, h01=0x0050, text=» RF KON160 NUMERICAL SHIFT OFF«, t00=0x0033, t01=0x0056}
0x501a…5026 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x007c}
0x5026…503a Head {h00=0x0010, h01=0x0050, text=»KON125 EQU *«, t00=0x0033, t01=0x0088}
0x503a…5058 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/FFDF UNCTRL «, t00=0x0033, t01=0x009c}
0x5058…5070 Head {h00=0x0014, h01=0x0050, text=»KON120 ANR A5,A2«, t00=0x0033, t01=0x00ba}
0x5070…5090 Head {h00=0x001c, h01=0x0050, text=»KON130 STR A5,A6 DWTCHP «, t00=0x0033, t01=0x00d2}
0x5090…50a4 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0033, t01=0x00f2}
0x50a4…50c0 Head {h00=0x0018, h01=0x0050, text=» RF KON400 GO HOME! «, t00=0x0033, t01=0x0106}
0x50c0…50d4 Head {h00=0x0010, h01=0x0050, text=»KON140 EQU *«, t00=0x0033, t01=0x0122}
0x50d4…50ea Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0033, t01=0x0136}
0x50ea…50fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0033, t01=0x014c}
0x50fc…5110 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x0033, t01=0x015e}
0x5110…5132 Head {h00=0x001e, h01=0x0050, text=» RF(Z) KON145 SHIFT NOT ON«, t00=0x0033, t01=0x0172}
0x5132…5146 (52, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A2,/90 «, t00=0x0034, t01=0x0004}
0x5146…5158 Head {h00=0x000e, h01=0x0050, text=» RF KON150«, t00=0x0034, t01=0x0018}
0x5158…5164 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x002a}
0x5164…5178 Head {h00=0x0010, h01=0x0050, text=»KON145 EQU *«, t00=0x0034, t01=0x0036}
0x5178…5192 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/10 SHIFT «, t00=0x0034, t01=0x004a}
0x5192…51aa Head {h00=0x0014, h01=0x0050, text=»KON150 ORR A5,A2«, t00=0x0034, t01=0x0064}
0x51aa…51bc Head {h00=0x000e, h01=0x0050, text=» RB KON130«, t00=0x0034, t01=0x007c}
0x51bc…51d0 Head {h00=0x0010, h01=0x0050, text=»KON160 EQU *«, t00=0x0034, t01=0x008e}
0x51d0…51e6 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0034, t01=0x00a2}
0x51e6…51f8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0034, t01=0x00b8}
0x51f8…520c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0034, t01=0x00ca}
0x520c…5222 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON165 «, t00=0x0034, t01=0x00de}
0x5222…5238 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF7F«, t00=0x0034, t01=0x00f4}
0x5238…524a Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x010a}
0x524a…5256 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x011c}
0x5256…526a Head {h00=0x0010, h01=0x0050, text=»KON165 EQU *«, t00=0x0034, t01=0x0128}
0x526a…5280 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFEF«, t00=0x0034, t01=0x013c}
0x5280…5292 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0152}
0x5292…52a4 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0164}
0x52a4…52c2 Head {h00=0x001a, h01=0x0050, text=»KON170 LDK A2,/20 CTRL«, t00=0x0034, t01=0x0176}
0x52c2…52d4 (53, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB KON150«, t00=0x0035, t01=0x0004}
0x52d4…52f8 Head {h00=0x0020, h01=0x0050, text=»KON180 SUK A2,/20 FIND INDEX«, t00=0x0035, t01=0x0016}
0x52f8…530c Head {h00=0x0010, h01=0x0050, text=» ANK A5,/30 «, t00=0x0035, t01=0x003a}
0x530c…531e Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0035, t01=0x004e}
0x531e…5330 Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x0035, t01=0x0060}
0x5330…536c Head {h00=0x0038, h01=0x0050, text=»KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS «, t00=0x0035, t01=0x0072}
0x536c…537e Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x0035, t01=0x00ae}
0x537e…5392 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x0035, t01=0x00c0}
0x5392…53a8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON400 «, t00=0x0035, t01=0x00d4}
0x53a8…53ba Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0035, t01=0x00ea}
0x53ba…53e8 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A15 RESTORE A2 AND A15-STACK «, t00=0x0035, t01=0x00fc}
0x53e8…5414 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A4 GET CHARACTER FROM TABLE «, t00=0x0035, t01=0x012a}
0x5414…5442 Head {h00=0x002a, h01=0x0050, text=»KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$«, t00=0x0035, t01=0x0156}
0x5442…5458 Head {h00=0x0012, h01=0x0050, text=»KON300 RTN A15«, t00=0x0035, t01=0x0184}
0x5458…5490 Head {h00=0x0034, h01=0x0050, text=»KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER«, t00=0x0036, t01=0x000a}
0x5490…54a2 Head {h00=0x000e, h01=0x0050, text=» RB KON300«, t00=0x0036, t01=0x0042}
0x54a2…54b8 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0036, t01=0x0054}
0x54b8…54cc Head {h00=0x0010, h01=0x0050, text=»KON500 EQU *«, t00=0x0036, t01=0x006a}
0x54cc…54ec Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 KEY CODE /7C «, t00=0x0036, t01=0x007e}
0x54ec…5506 Head {h00=0x0016, h01=0x0050, text=» RF(Z) KON600 YES «, t00=0x0036, t01=0x009e}
0x5506…5530 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 INDICATE SKIP CHARACTER «, t00=0x0036, t01=0x00b8}
0x5530…5540 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0036, t01=0x00e2}
0x5540…5554 Head {h00=0x0010, h01=0x0050, text=»KON600 EQU *«, t00=0x0036, t01=0x00f2}
0x5554…5566 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A2«, t00=0x0036, t01=0x0106}
0x5566…5588 Head {h00=0x001e, h01=0x0050, text=» RB KONVER DO START AGAIN «, t00=0x0036, t01=0x0118}
0x5588…5594 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x013a}
0x5594…55a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0146}
0x55a2…55ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0154}
0x55ac…55e4 Head {h00=0x0034, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x0036, t01=0x015e}
0x55e4…561e Head {h00=0x0036, h01=0x0050, text=»* ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0037, t01=0x0008}
0x561e…5628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0042}
0x5628…563e Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0037, t01=0x004c}
0x563e…5648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0062}
0x5648…566c Head {h00=0x0020, h01=0x0050, text=»* A2 = CHARACTER TO STORE«, t00=0x0037, t01=0x006c}
0x566c…568a Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0037, t01=0x0090}
0x568a…5694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ae}
0x5694…569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b8}
0x569e…56b2 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0037, t01=0x00c2}
0x56b2…56d4 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0037, t01=0x00d6}
0x56d4…56f8 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x0037, t01=0x00f8}
0x56f8…5724 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x0037, t01=0x011c}
0x5724…574c Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0037, t01=0x0148}
0x574c…5766 Head {h00=0x0016, h01=0x0050, text=»STORTN ADKL A15,2 «, t00=0x0037, t01=0x0170}
0x5766…577a Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0037, t01=0x018a}
0x577a…5788 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x000e}
0x5788…5792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001c}
0x5792…579c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0026}
0x579c…57d6 Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x0038, t01=0x0030}
0x57d6…57e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x006a}
0x57e0…57f6 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0038, t01=0x0074}
0x57f6…5800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x008a}
0x5800…5820 Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x0038, t01=0x0094}
0x5820…583e Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0038, t01=0x00b4}
0x583e…5848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d2}
0x5848…585e Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0038, t01=0x00dc}
0x585e…5868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f2}
0x5868…588c Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x0038, t01=0x00fc}
0x588c…58a0 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0038, t01=0x0120}
0x58a0…58b2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0038, t01=0x0134}
0x58b2…58c4 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0038, t01=0x0146}
0x58c4…58e8 Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x0038, t01=0x0158}
0x58e8…58fe Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0038, t01=0x017c}
0x58fe…592c (57, 2, 108) Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x0039, t01=0x0004}
0x592c…5944 Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0039, t01=0x0032}
0x5944…5956 Head {h00=0x000e, h01=0x0050, text=» RB STORTN«, t00=0x0039, t01=0x004a}
0x5956…5962 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x005c}
0x5962…5966 Head {h00=0x4004, h01=0x0000}
0x5966…596a 00 39 00 68 ┆ 9 h┆
0x596a…5972 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x5972…59c2 (59, 0, 400) 5c 4d 4d 55 50 41 47 3d 31 20 00 4a 01 8c 00 10 00 50 5c 49 46 54 5c 43 48 41 4e 3d 30 20 00 4b 00 12 00 24 00 50 5c 43 4d 5c 42 55 46 46 4c 47 2c 41 36 5c 52 45 53 45 54 20 42 55 46 46 45 52 20 46 4c 41 47 20 00 4b 00 26 00 08 00 50 5c 58 ┆ MMUPAG=1 J P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K & P X┆
0x59c2…5a12 49 46 00 4b 00 4e 00 06 00 50 2a 20 00 4b 00 5a 00 14 00 50 5c 49 46 46 5c 54 4f 53 53 2b 49 42 4d 3d 30 20 00 4b 00 64 00 34 00 50 5c 49 4d 5c 44 57 54 53 54 32 2c 41 36 5c 53 45 54 20 52 45 43 4f 56 45 52 59 2f 52 45 41 44 59 20 49 4e 54 ┆IF K N P* K Z P IFF TOSS+IBM=0 K d 4 P IM DWTST2,A6 SET RECOVERY/READY INT┆
0x5a12…5a62 2e 20 49 4e 44 49 43 41 54 4f 52 20 00 4b 00 7c 00 18 00 50 5c 4c 44 4b 5c 41 33 2c 33 5c 34 20 56 4f 4c 55 4d 45 53 20 00 4b 00 b4 00 06 00 50 2a 20 00 4b 00 d0 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 46 44 30 31 00 4b 00 da 00 06 00 50 ┆. INDICATOR K | P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P┆
0x5a62…5ab2 2a 20 00 4b 00 f0 00 06 00 50 2a 20 00 4b 00 fa 00 18 00 50 2a 20 20 52 45 41 44 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 4b 01 04 00 06 00 50 2a 20 00 4b 01 20 00 10 00 50 46 44 4f 4e 4c 44 5c 45 51 55 5c 2a 00 4b 01 2a 00 24 00 50 5c 53 ┆* K P* K P* READ VOLUME NAME K P* K PFDONLD EQU * K * $ P S┆
0x5ab2…5b02 43 5c 41 33 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 00 4b 01 3e 00 26 00 50 5c 4c 43 5c 41 34 2c 44 49 58 54 41 42 2c 41 33 5c 44 52 49 56 45 20 49 4e 44 45 58 20 4d 41 53 4b 20 00 4b 01 66 00 1e 00 50 ┆C A3,DWTOR,A6 GET VOLUME NAME K > & P LC A4,DIXTAB,A3 DRIVE INDEX MASK K f P┆
0x5b02…5b52 (60, 0, 400) 5c 53 43 5c 41 34 2c 44 57 54 41 33 2b 31 2c 41 36 5c 53 41 56 45 20 49 54 20 00 4b 01 90 00 12 00 50 5c 43 46 5c 41 35 2c 53 45 54 43 49 4f 20 00 4c 00 22 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 34 20 00 4c 00 38 00 16 00 50 5c 43 46 5c ┆ SC A4,DWTA3+1,A6 SAVE IT K P CF A5,SETCIO L " P LDK A2,/14 L 8 P CF ┆
0x5b52…5ba2 41 35 2c 46 44 3a 52 45 41 5c 4c 4f 43 4b 00 4c 00 4c 00 0e 00 50 5c 41 4e 4b 5c 41 33 2c 31 20 00 4c 00 66 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 4f 4e 31 39 5c 4f 50 45 52 41 42 4c 45 00 4c 00 78 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 36 5c ┆A5,FD:REA LOCK L L P ANK A3,1 L f P RF(Z) FDON19 OPERABLE L x P LDK A1,6 ┆
0x5ba2…5bf2 4e 4f 54 20 4f 50 45 52 41 42 4c 45 00 4c 00 96 00 24 00 50 5c 43 46 5c 41 31 35 2c 56 4f 4c 43 4c 52 5c 43 4c 45 41 52 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 00 4c 00 b4 00 26 00 50 5c 52 46 5c 46 44 4f 4e 32 31 5c 43 4f 4e 54 49 4e 55 45 20 ┆NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE ┆
0x5bf2…5c42 57 49 54 48 20 4e 45 58 54 20 44 49 53 43 00 4c 00 dc 00 06 00 50 2a 20 00 4c 01 06 00 10 00 50 46 44 4f 4e 31 39 5c 45 51 55 5c 2a 00 4c 01 10 00 12 00 50 5c 43 46 5c 41 35 2c 56 4f 3a 4e 41 4d 20 00 4c 01 24 00 26 00 50 5c 4c 44 4b 4c 5c ┆WITH NEXT DISC L P* L PFDON19 EQU * L P CF A5,VO:NAM L $ & P LDKL ┆
0x5c42…5c92 41 32 2c 2f 46 42 46 46 5c 52 45 53 45 54 20 49 42 4d 20 49 4e 44 2e 20 42 49 54 20 00 4c 01 3a 00 2c 00 50 5c 41 4e 52 53 5c 41 32 2c 41 36 5c 55 50 44 41 54 45 20 54 45 4d 50 4f 52 41 52 59 20 52 45 54 55 52 4e 20 43 4f 44 45 00 4c 01 64 ┆A2,/FBFF RESET IBM IND. BIT L : , P ANRS A2,A6 UPDATE TEMPORARY RETURN CODE L d┆