|
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: 23708 (0x5c9c)
Notes: pts_type(SC)
Names: »DRKB03.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/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 X:F NUMBER OF BYTES IN DECIMAL FORM * * * TIME BEFORE TIME OUT * TIME EQU 300 TIME OUT CONSTANT * EJECT * * **************************************** * CONDITIONAL ASSEMBLY * **************************************** * * TIME OUT FUNCTION MAY BE EXCLUDED BY * SETTING X:A = 0. * X:A EQU 0 CTIMUT EQU X:A * * ECHO FUNCTION MAY BE EXCLUDED BY * SETTING X:B = 0. * X:B EQU 1 CECHO EQU X:B * * BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION * IS INCLUDED IN THE DRIVER. * IF THERE IS A READ REQUEST THIS IS COMPLETED WITH * ZERO IN THE CONTROL WORD OF ECB. * IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST * AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD * OF ECB * * X:E EQU 0 POWOFF EQU X:E * * * * BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72 X:H EQU 0 NSHIFT EQU X:H * * * BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. X:I EQU 0 KBLOCK EQU X:I * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * MMU BUFFER SIZE * * X:J EQU 10 DVBLEN EQU X:J * * * MMU KEY TABLE SIZE * * X:K EQU 10 DVBKTB EQU X:K * EJECT * * * DWT-DISPLACEMENT * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTCON EQU START+/00 CONVERSION TABLE DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE DWTSQ EQU START+/1C START OF QUEUE DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE * * SPECIAL KEYS DEFINED IN DWT * * * KBBSP EQU START+/14 BACK-SPACE CHARACTER KBCLR EQU START+/15 CLEAR CHARACTER KBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER KBMZ3 EQU START+/16 * EJECT * TABLES * * DATA DVBKTB MMU KEY TABLE SIZE DATA DVBLEN MMU BUFFER SIZE DATA 6 DEVICE INDEX * KBAD3 EQU * DATA ACKB ACTIVATION HANDLER DATA 0 ABORT ROUTINE ADDRESS DATA IHKB INTERRUPT HANDLER IFT POWOFF=1 DATA RCKB RECOVERY ROUTINE XIF IFT POWOFF=0 DATA 0 NO RECOVERY XIF * IFT POWOFF=1 EJECT * RCKB * * RECOVERY PART * * RCKB EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 LD A3,DWTST,A6 BUSY? RF(NN) RCKB10 LDKL A1,/200 ORS A1,DWTST,A6 INDICATE POWER OFF ABL TDISP RCKB10 CF A5,LDREGE LOAD REGISTERS RF AKB202 XIF EJECT * * * ACKB * * ACTIVATION PART: CHECS VALIDITY OF ORDERS AND * * EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER * * TO THREAT * * * * ACKB EQU * LDKL A1,/FEFF ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG LDK A1,0 LDK A3,0 START BUFFER INDEX LDR A4,A7 RF(NG) AKB100 ILLEGAL ORDER SUK A4,4 RF(N) AKB200 ORDER 1,2 OR 3 SUK A4,/2D RF(Z) AKB110 ORDER 31 AKB100 ORKL A1,/8000 I/0 REQUEST ERROR ABL ENDI10 EJECT * * * * ORDER 31 RESET INPUT BUFFER * * * AKB110 EQU * LD A2,DWTINQ,A6 SCR A1,A2 ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE ABL ENDIO * EJECT * * * ORDER 1,2,3 * * * AKB200 EQU * IFT POWOFF=1 LD A2,DWTST,A6 ANKL A2,/200 POWER OFF? RF(E) AKB205 NO! XRS A2,DWTST,A6 RESET POWER OFF BIT AKB202 EQU * CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST RF(E) AKB205 CM 10,A8 INDICATE POWER OFF RF AKB218 XIF AKB205 EQU * IFT CTIMUT=1 LDR* A1,A6 ANK A1,/40 TIMING? RF(E) AKB210 NO TIMING FOR THIS DEVICE! LD A4,DWTTP,A6 CHECK IF ALREADY TIMING RF(E) AKBTIM LDKL A4,-TIME ST* A4,DWTTP,A6 RF AKB210 AKBTIM EQU * LDKL A4,DWTTP TIMER POINTER ADR A4,A6 ADD DWT-ADDRESS LDR A1,A6 CF A15,SETIMP SET TIME DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT XIF * EJECT * IF ANY KEY-LOCK: * * RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER * OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER. * IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE * AND END I/O. ELSE CONTINUE. * * AKB210 EQU * LD A2,DWTST,A6 ANY KEY-LOCK? ANK A2,/F RF(Z) AKB219 SLL A2,1 SRN A2,A4 LDR A1,A4 CWK A4,3 RF(N) AKB212 RF(P) AKB211 ADK A4,1 RF AKB212 AKB211 ADR A4,A4 AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG LDR A2,A4 SLL A4,4 AN A4,DWTST,A6 STR A4,A15 SAVE A4 STR A3,A15 SRN A2,A3 ORDER 1 ADR A3,A3 MAKE CHARACTER FLAG LDR A4,A4 RF(NE) AKB213 ADK A3,1 AKB213 ADK A3,/70 LDR A2,A3 LDR* A3,A15 CF A15,STORE STORE KEY IN ECB BUFFER LDR* A4,A15 RESTORE A4 CWK A7,1 RF(E) AKB307 JUMP IF BASIC READ AKB214 NGR A2,A1 MAKE ECB CODE LDR A4,A4 KEY FLAG RF(E) AKB215 SUK A2,4 AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB AKB218 ABL AKB380 AKB219 LD A2,4,A8 REQUESTED LENGTH=0 AKB220 ABL(E) AKB380 AKB225 LDR A3,A3 FIRTST RIME? RF(NE) AKB240 N0! LD A1,2,A8 BUFFER ADDRESS SUK A1,1 ADR A1,A2 AKB230 SCR A3,A1 CLEAR ECB BUFFER SUK A1,1 SUK A2,1 RB(NE) AKB230 AKB240 EQU * LD A1,DWTUTQ,A6 LCR A2,A1 AKB245 LDR A4,A2 XRK A4,/FF OVERFLOW? RF(NE) AKB250 N0! AKB247 SCR A4,A1 YES! LDK A1,OVMASK OVERFLOW SET ABL ENDIX END I/O AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? RF(NE) AKB255 CF A5,STREG NOTHING IN QUEUE IFT CTIMUT=1 LDR A1,A1 CHECK TIME OUT RETURN CODE RF(Z) AKB257 NO TIME OUT ABL ENDI05 END I/O AT TIME OUT XIF IFT CTIMUT=0 RF AKB257 XIF AKB255 CF A15,EOQUEU NEXT OUT POINTER ST A1,DWTUTQ,A6 STORE NEW POINTER AKB257 EQU * LDR A4,A7 SUK A4,2 RF(NN) AKB310 ORDER 2 OR 3 EJECT * * * ORDER 1 BASIC READ * * * AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER IFT CECHO=1 CF A5,ECHO XIF AKB307 CW A3,4,A8 RF(E) AKB380 END I/O IF REQ=EFF LENGTH LD A2,DWTST,A6 MORE KEYS? ANK A2,/F RB(NZ) AKB210 RB AKB225 EJECT * * * * ORDER 2 OR 3 STANDARD AND NUMERIC READ * * CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) * * * * AKB310 EQU * LD A1,10,A8 KEY-TABLE ADDRESS RF(Z) AKB360 NO KEY-TABLE LCR A4,A1 KEY-TABLE LENGTH IN A4 ANK A4,/FF ADR A1,A4 LAST PLACE IN KEY-TABLE ADK A1,1 AKB355 SUK A4,1 RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE SUK A1,1 NEXT KEY CCR A2,A1 EOR? RB(NE) AKB355 NO! ADK A4,1 ST A4,10,A8 STORE INDEX IN CONTROL WORD CF A15,STORE STORE CHARACTER IFT CECHO=1 ORK A2,/80 INDICATE EOR-CHARACTER CF A5,ECHO ECHO EOR-CHARACTER XIF RF AKB380 AKB360 EQU * LDR A4,A2 CC A4,KBMZ2,A6 RF(E) KBMZ20 CC A4,KBMZ3,A6 RF(E) KBMZ30 CC A4,KBBSP,A6 RF(E) KBSP10 CC A4,KBCLR,A6 RF(E) KBCL10 CF A15,STORE STORE CHARACTER IN BUFFER LDR A4,A2 SUK A4,/20 CHEC CONVERTED CHARACTER RF(N) AKB364 LESS THAN /20 SUK A4,/5F CHARACTER > /7F RF(P) AKB364 YES CWK A7,2 RF(E) AKB366 STANDARD READ OK ADK A4,/4F RF(N) AKB364 SUK A4,/A RF(N) AKB366 NUMERIC READ OK AKB364 LDK A1,4 ERROR CODE RF ENDIO AKB366 EQU * IFT CECHO=1 ANK A2,/7F CF A5,ECHO XIF CW A3,4,A8 LENGTH OVERFLOW? AKB367 ABL(L) AKB210 NO RETURN AKB368 LDK A1,8 YES SET ERROR CODE RF ENDIO END I/O EJECT KBMZ30 EQU * TRIPPLE ZERO LDK A4,3 RF KBMZ25 KBMZ20 LDK A4,2 DOUBLE ZERO KBMZ25 LDK A2,/30 SUK A4,1 RB(L) AKB367 LDR A1,A4 CF A15,STORE LDR A4,A1 IFT CECHO=1 CF A5,ECHO XIF CW A3,4,A8 RB(L) KBMZ25 KBMZ27 EQU * SUK A4,1 ANY MORE ZEROES RB(L) AKB368 NO,SET RETURN CODE INH LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER SUR A1,A6 CWK A1,DWTSQ FIRST POSITION ? RF(NE) KBMZ29 NO LDK A1,DWTEQ GET LAST POSITION IN QUEUE ADR A1,A6 SUK A1,1 RF KBMZ40 KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION SUK A1,1 KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? RF(E) KBMZ90 NO NOT REALY. ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER LDK A2,/30 STORE ZERO IN CIRKULAR SCR A2,A1 INPUT BUFFER RB KBMZ27 KBMZ90 EQU * LDK A4,/FF INDICATE BUFFER OWERFLOW SCR A4,A1 ST A1,DWTUTQ,A6 UPPDATE POINTER LDK A1,/A SET RETURN CODE FOR BOTH ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS * * * KBCL10 EQU * CLEAR LDK A3,0 LDK A2,/18 RB AKB366 * * * KBSP10 EQU * LDR A3,A3 RF(Z) KBSP15 SUK A3,1 SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER CF A15,STORE SUK A3,1 KBSP15 LDK A2,/8 RB AKB366 * * AKB380 LDK A1,0 RETURN CODE EJECT * * * THIS IS A COMMON END OF THE DRIVER * * SET EFFECTIVE LENGTH AND PERFORM END I/O * ON KEYBOARD AND ECHO-DEVICE * * ENDIO EQU * * INH IFT CTIMUT=1 LD A4,DWTTP,A6 RF(E) ENDI05 NO TIMING ON THIS DEVICE CM* DWTTP,A6 RESET TIMER CM DWTTP,A6 XIF * ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ENDI10 EQU * * IFT CECHO=1 LDR A4,A1 SAVE A1 CF A5,ECHEND END I/O ON ECHO DEVICE LDR A1,A4 RESTORE A1 XIF ABL DISEND * EJECT * * * * IHKB * * * THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER * * * IHKB EQU * ANK A2,/FF CF A15,KONVER CONVERT INPUT CHARACTER LDR A4,A4 TEST TYPE OF CHAR RF(P) EXIT SHIFT/CTRL/SKIP RF(N) IHKB12 KEY-LOCK LD A3,DWTST,A6 NORMAL CHAR IFT KBLOCK=1 ANK A3,/FF RF(Z) EXIT LD A3,DWTST,A6 I/O REQUEST? XIF RF(N) IHKB15 NO READ REQUEST PENDING SLL A3,7 INTERRUPT ALLOWED ? RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER IFT CTIMUT=1 LD A3,DWTTP,A6 RF(E) IHKB07 NO TIMING ON THIS DEVICE LDKL A3,-TIME RESTART TIME ST* A3,DWTTP,A6 XIF IHKB07 ABL LDREG RETURN TO READ ROUTINE IHKB12 CF A15,KEYSET SET KEY CODE IN DWT LDR A3,A3 RF(Z) EXIT NO KEY CHANGE LD A3,DWTST,A6 RF(N) EXIT NO READ REQUEST PENDING SLL A3,7 RF(NN) EXIT INERRUPT NOT ALLOWED LD A3,DWTA3,A6 RESTORE BUFFER INDEX LDKL A5,DWTSB2 ADR A5,A6 ABL AKB210 IHKB15 LD A1,DWTINQ,A6 LCR A4,A1 XRK A4,/FF ALREADY OVERFLOW? RF(E) EXIT YES LDR A3,A1 CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS CW A1,DWTUTQ,A6 OVERFLOW? RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER RF IHKB30 IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER IHKB30 SCR A2,A3 EXIT ABL TDISP * EJECT * * * * AKBTUT * * THIS IS THE TIME-OUT ROUTINE * * * IFT CTIMUT=1 AKBTUT EQU * LDR A6,A1 RESTART DWT-ADDRESS LDK A1,/40 SET RETURNE CODE CM DWTTP,A6 LD A2,DWTST,A6 RB(N) EXIT DISPATCH IF NO REQUEST ON RB IHKB07 RESTORE REGISTER AND END I/O XIF EJECT * * * * * KEYSET * * * * ON ENTRY: A4= NEG KEY-LOCK VALUE * * ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS * * KEYSET EQU * STR A4,A15 LD A3,DWTST,A6 LDKL A2,/100 SET100 SRL A2,1 ADK A4,2 IN A4: 1=OFF 0=ON RB(N) SET100 ANR A3,A2 CHEC OLD KEY POSITION RF(NZ) SET300 JUMP IF KEY ON LDR A4,A4 RF(NZ) SET500 RF SET400 SET300 LDR A4,A4 RF(Z) SET500 SET400 LD A3,DWTST,A6 XRR A3,A2 SRL A2,4 ORR A2,A3 ST A2,DWTST,A6 LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED SET500 LDR* A4,A15 RTN A15 EJECT * * * * KONVER * * KONVER CONVERTS INPUT CHARACTER * * * ON ENTRY: A2= INPUT CHARACTER * * * ON EXIT: A2=COVERTED CHARACTER * A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT * A5 IS DESTROYED! * * KONVER EQU * LDR A4,A2 IFT NSHIFT=0 SUK A4,/7C CODE > /7B RF(NN) KON500 YES LDR A4,A2 RESTORE CHARACTER XIF STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION LDR* A5,A6 SUK A4,/20 RF(N) KON105 FUNCTION KON100 SUK A4,/40 RF(N) KON180 ALFANUMERIC SUK A4,/10 FUNCTION RF(NN) KON110 NO SUK A2,/40 YES KON105 EQU * ANK A5,/10 SRL A5,3 RF KON200 KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT RF(N) KON400 KEY-LOCK RF(Z) KON140 SHIFT ON SUK A4,2 RF(N) KON160 SHIFT OFF RF(Z) KON170 CONTROL ON IFT NSHIFT=1 SUK A4,2 RF(N) KON125 CONTROL OFF RF(E) KON140 NUMERICAL SHIFT ON RF KON160 NUMERICAL SHIFT OFF XIF KON125 EQU * LDKL A2,/FFDF UNCTRL KON120 ANR A5,A2 KON130 STR A5,A6 DWTCHP LDK A4,/10 RF KON400 GO HOME! KON140 EQU * IFT NSHIFT=1 LDR A4,A5 ANK A4,/10 RF(Z) KON145 SHIFT NOT ON LDK A2,/90 RF KON150 XIF KON145 EQU * LDK A2,/10 SHIFT KON150 ORR A5,A2 RB KON130 KON160 EQU * IFT NSHIFT=1 LDR A4,A5 ANK A4,/80 RF(Z) KON165 LDKL A2,/FF7F RB KON120 XIF KON165 EQU * LDKL A2,/FFEF RB KON120 RB KON120 KON170 LDK A2,/20 CTRL RB KON150 KON180 SUK A2,/20 FIND INDEX ANK A5,/30 SRL A5,3 ADK A5,4 KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A5 LDR* A4,A4 RF(Z) KON400 ADR A4,A2 LDR* A2,A15 RESTORE A2 AND A15-STACK LCR A2,A4 GET CHARACTER FROM TABLE KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$ KON300 RTN A15 KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER RB KON300 IFT NSHIFT=0 KON500 EQU * LDR A4,A4 KEY CODE /7C RF(Z) KON600 YES LDK A4,1 INDICATE SKIP CHARACTER RTN A15 KON600 EQU * SUR A2,A2 RB KONVER DO START AGAIN XIF EJECT * * STORE = SUBROUTINE TO STORE A CHARACTER IN * ECB-BUFFER AND INCREMENT BUFFER INDEX * * ON ENTRY: * * A2 = CHARACTER TO STORE * A3 = BUFFER INDEX * * STORE EQU * LD A4,2,A8 BUFFER ADDRESS ADR A4,A3 ADD BUFFER INDEX SCR A2,A4 STORE CHARACTER IN BUFFER ADK A3,1 INCREMENT BUFFER INDEX STORTN ADKL A15,2 LDR* P,A15 EJECT * * * EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER * * ON ENTRY: * * A1 = QUEUE POINTER * A6 = DWT-ADDRESS * * ON EXIT: * * A1 = NEW QUEUE POINTER EOQUEU EQU * ADK A1,1 SUR A1,A6 CWK A1,DWTEQ END OF QUEUE? RF(NE) EOQU10 LDK A1,DWTSQ SET QUEUE START ADDRESS EOQU10 ADR A1,A6 RB STORTN END
0x0000…0036 (0, 0, 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 X:F 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…12a2 Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000b, t01=0x0166}
0x12a2…12ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017c}
0x12ac…12da Head {h00=0x002a, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000b, t01=0x0186}
0x12da…12f8 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:B = 0. «, t00=0x000c, t01=0x0024}
0x12f8…1302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0042}
0x1302…1314 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x004c}
0x1314…132a Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:B «, t00=0x000c, t01=0x005e}
0x132a…1334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x1334…1376 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION «, t00=0x000c, t01=0x007e}
0x1376…13a0 Head {h00=0x0026, h01=0x0050, text=»* IS INCLUDED IN THE DRIVER. «, t00=0x000c, t01=0x00c0}
0x13a0…13e0 Head {h00=0x003c, h01=0x0050, text=»* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH«, t00=0x000c, t01=0x00ea}
0x13e0…1410 Head {h00=0x002c, h01=0x0050, text=»* ZERO IN THE CONTROL WORD OF ECB. «, t00=0x000c, t01=0x012a}
0x1410…1454 Head {h00=0x0040, h01=0x0050, text=»* IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST «, t00=0x000c, t01=0x015a}
0x1454…1498 Head {h00=0x0040, h01=0x0050, text=»* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD«, t00=0x000d, t01=0x000e}
0x1498…14ae Head {h00=0x0012, h01=0x0050, text=»* OF ECB «, t00=0x000d, t01=0x0052}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14b8…14c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0072}
0x14c2…14d4 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x007c}
0x14d4…14ea Head {h00=0x0012, h01=0x0050, text=»POWOFF EQU X:E«, t00=0x000d, t01=0x008e}
0x14ea…14f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b8}
0x1508…155a 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=0x00c2}
0x155a…156c Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000d, t01=0x0114}
0x156c…1582 Head {h00=0x0012, h01=0x0050, text=»NSHIFT EQU X:H«, t00=0x000d, t01=0x0126}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013c}
0x158c…1596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x1596…15dc Head {h00=0x0042, h01=0x0050, text=»* BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. «, t00=0x000d, t01=0x0150}
0x15dc…15ee Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000e, t01=0x0008}
0x15ee…1604 Head {h00=0x0012, h01=0x0050, text=»KBLOCK EQU X:I«, t00=0x000e, t01=0x001a}
0x1604…160e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x1618…164a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0044}
0x164a…1678 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x0076}
0x1678…1682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a4}
0x1682…1696 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x00ae}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a0…16aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16aa…16e4 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000e, t01=0x00d6}
0x16e4…1716 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000e, t01=0x0110}
0x1716…1720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0142}
0x1720…1734 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000e, t01=0x014c}
0x1734…173e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x173e…1748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016a}
0x1748…1764 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x0174}
0x1764…176e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0190}
0x176e…1778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x1778…178a Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x000f, t01=0x0014}
0x178a…17a0 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:J«, t00=0x000f, t01=0x0026}
0x17a0…17aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003c}
0x17aa…17b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17b4…17d2 Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000f, t01=0x0050}
0x17d2…17dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0078}
0x17e6…17f8 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x000f, t01=0x0082}
0x17f8…180e Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:K«, t00=0x000f, t01=0x0094}
0x180e…1818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00aa}
0x1818…1826 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00b4}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c2}
0x1830…183a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x183a…1858 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x000f, t01=0x00d6}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fe}
0x186c…18a0 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000f, t01=0x0108}
0x18a0…18aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013c}
0x18aa…18c0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x0146}
0x18c0…18d8 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000f, t01=0x015c}
0x18d8…18e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0174}
0x18e4…18ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18ee…1904 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x018a}
0x1904…191e Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0010, t01=0x0010}
0x191e…192a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x002a}
0x192a…1934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1934…1962 Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0010, t01=0x0040}
0x1962…199e Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0010, t01=0x006e}
0x199e…19da Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0010, t01=0x00aa}
0x19da…1a04 Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0010, t01=0x00e6}
0x1a04…1a30 Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0010, t01=0x0110}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013c}
0x1a3a…1a66 Head {h00=0x0028, h01=0x0050, text=»* SPECIAL KEYS DEFINED IN DWT «, t00=0x0010, t01=0x0146}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017c}
0x1a7a…1a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0186}
0x1a84…1ab4 Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0010, t01=0x0190}
0x1ab4…1ae0 Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0011, t01=0x0030}
0x1ae0…1b12 Head {h00=0x002e, h01=0x0050, text=»KBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER «, t00=0x0011, t01=0x005c}
0x1b12…1b2e Head {h00=0x0018, h01=0x0050, text=»KBMZ3 EQU START+/16 «, t00=0x0011, t01=0x008e}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00aa}
0x1b38…1b46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00b4}
0x1b46…1b5c Head {h00=0x0012, h01=0x0050, text=»* TABLES «, t00=0x0011, t01=0x00c2}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d8}
0x1b66…1b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e2}
0x1b70…1b98 Head {h00=0x0024, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE SIZE «, t00=0x0011, t01=0x00ec}
0x1b98…1bbc Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x0114}
0x1bbc…1bd8 Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x0138}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0154}
0x1be2…1bf6 Head {h00=0x0010, h01=0x0050, text=»KBAD3 EQU * «, t00=0x0011, t01=0x015e}
0x1bf6…1c1c Head {h00=0x0022, h01=0x0050, text=» DATA ACKB ACTIVATION HANDLER «, t00=0x0011, t01=0x0172}
0x1c1c…1c42 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0012, t01=0x0008}
0x1c42…1c66 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0012, t01=0x002e}
0x1c66…1c7c Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x0052}
0x1c7c…1ca0 Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0012, t01=0x0068}
0x1ca0…1cac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x008c}
0x1cac…1cc2 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=0 «, t00=0x0012, t01=0x0098}
0x1cc2…1cde Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0012, t01=0x00ae}
0x1cde…1cea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00ca}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf4…1d0a Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0012, t01=0x00e0}
0x1d0a…1d18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f6}
0x1d18…1d2a Head {h00=0x000e, h01=0x0050, text=»* RCKB «, t00=0x0012, t01=0x0104}
0x1d2a…1d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d34…1d4e Head {h00=0x0016, h01=0x0050, text=»* RECOVERY PART«, t00=0x0012, t01=0x0120}
0x1d4e…1d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013a}
0x1d58…1d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0144}
0x1d62…1d74 Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0012, t01=0x014e}
0x1d74…1d8a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0012, t01=0x0160}
0x1d8a…1db4 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0012, t01=0x0176}
0x1db4…1dc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0010}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dca…1de0 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x0026}
0x1de0…1df6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x003c}
0x1df6…1e1c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0013, t01=0x0052}
0x1e1c…1e28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0078}
0x1e28…1e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e32…1e48 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x008e}
0x1e48…1e66 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY? «, t00=0x0013, t01=0x00a4}
0x1e66…1e7c Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0013, t01=0x00c2}
0x1e7c…1e92 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0013, t01=0x00d8}
0x1e92…1ebe Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF «, t00=0x0013, t01=0x00ee}
0x1ebe…1ed0 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0013, t01=0x011a}
0x1ed0…1efa Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0013, t01=0x012c}
0x1efa…1f0c Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x0013, t01=0x0156}
0x1f0c…1f18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0168}
0x1f18…1f26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0174}
0x1f26…1f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f30…1f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f3a…1f4e Head {h00=0x0010, h01=0x0050, text=»* ACKB «, t00=0x0014, t01=0x0008}
0x1f4e…1f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001c}
0x1f58…1f96 Head {h00=0x003a, h01=0x0050, text=»* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND «, t00=0x0014, t01=0x0026}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0064}
0x1fa0…1fe4 Head {h00=0x0040, h01=0x0050, text=»* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER«, t00=0x0014, t01=0x006e}
0x1fe4…1fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b2}
0x1fee…2006 Head {h00=0x0014, h01=0x0050, text=»* TO THREAT«, t00=0x0014, t01=0x00bc}
0x2006…2010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d4}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00de}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x2024…202e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x202e…2040 Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0014, t01=0x00fc}
0x2040…2056 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x0014, t01=0x010e}
0x2056…208c Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG «, t00=0x0014, t01=0x0124}
0x208c…209e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x015a}
0x209e…20c2 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0014, t01=0x016c}
0x20c2…20d4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x0190}
0x20d4…20f8 Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0015, t01=0x0012}
0x20f8…210a Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0015, t01=0x0036}
0x210a…212e Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x0015, t01=0x0048}
0x212e…2142 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x0015, t01=0x006c}
0x2142…2160 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0015, t01=0x0080}
0x2160…218e Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/0 REQUEST ERROR«, t00=0x0015, t01=0x009e}
0x218e…21a2 Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x0015, t01=0x00cc}
0x21a2…21b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00e0}
0x21b0…21ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ee}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f8}
0x21c4…21ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0102}
0x21ce…21f8 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31 RESET INPUT BUFFER«, t00=0x0015, t01=0x010c}
0x21f8…2202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0136}
0x2202…220c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0140}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014a}
0x2216…222a Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x0154}
0x222a…2242 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTINQ,A6«, t00=0x0015, t01=0x0168}
0x2242…2254 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0015, t01=0x0180}
0x2254…2280 (22, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x0016, t01=0x0004}
0x2280…2292 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0016, t01=0x0030}
0x2292…229c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0042}
0x229c…22aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x004c}
0x22aa…22b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005a}
0x22b4…22be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22be…22d8 Head {h00=0x0016, h01=0x0050, text=»* ORDER 1,2,3«, t00=0x0016, t01=0x006e}
0x22d8…22e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0088}
0x22e2…22ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0092}
0x22ec…22f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009c}
0x22f6…230a Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0016, t01=0x00a6}
0x230a…2320 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0016, t01=0x00ba}
0x2320…2338 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0016, t01=0x00d0}
0x2338…2358 Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 POWER OFF?«, t00=0x0016, t01=0x00e8}
0x2358…2372 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO! «, t00=0x0016, t01=0x0108}
0x2372…239e Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POWER OFF BIT«, t00=0x0016, t01=0x0122}
0x239e…23b2 Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x0016, t01=0x014e}
0x23b2…23ee Head {h00=0x0038, h01=0x0050, text=» CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST «, t00=0x0016, t01=0x0162}
0x23ee…2404 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x0017, t01=0x000e}
0x2404…2428 Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER OFF«, t00=0x0017, t01=0x0024}
0x2428…243a Head {h00=0x000e, h01=0x0050, text=» RF AKB218«, t00=0x0017, t01=0x0048}
0x243a…2446 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x005a}
0x2446…245a Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0017, t01=0x0066}
0x245a…2470 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0017, t01=0x007a}
0x2470…2484 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0017, t01=0x0090}
0x2484…24a0 Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING? «, t00=0x0017, t01=0x00a4}
0x24a0…24d0 Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE!«, t00=0x0017, t01=0x00c0}
0x24d0…2500 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTTP,A6 CHECK IF ALREADY TIMING «, t00=0x0017, t01=0x00f0}
0x2500…2516 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x0017, t01=0x0120}
0x2516…252c Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0017, t01=0x0136}
0x252c…2544 Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x0017, t01=0x014c}
0x2544…2556 Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x0017, t01=0x0164}
0x2556…256a Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x0017, t01=0x0176}
0x256a…258e Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x0017, t01=0x018a}
0x258e…25b0 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x0018, t01=0x001e}
0x25b0…25c2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0018, t01=0x0040}
0x25c2…25e2 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0018, t01=0x0052}
0x25e2…2616 Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0018, t01=0x0072}
0x2616…2648 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0018, t01=0x00a6}
0x2648…2654 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00d8}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x265e…266c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ee}
0x266c…268c Head {h00=0x001c, h01=0x0050, text=»* IF ANY KEY-LOCK: «, t00=0x0018, t01=0x00fc}
0x268c…2696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011c}
0x2696…26d4 Head {h00=0x003a, h01=0x0050, text=»* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER«, t00=0x0018, t01=0x0126}
0x26d4…270e Head {h00=0x0036, h01=0x0050, text=»* OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER.«, t00=0x0018, t01=0x0164}
0x270e…274e Head {h00=0x003c, h01=0x0050, text=»* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE«, t00=0x0019, t01=0x000e}
0x274e…2778 Head {h00=0x0026, h01=0x0050, text=»* AND END I/O. ELSE CONTINUE.«, t00=0x0019, t01=0x004e}
0x2778…2782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0078}
0x2782…278c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0082}
0x278c…27a0 Head {h00=0x0010, h01=0x0050, text=»AKB210 EQU *«, t00=0x0019, t01=0x008c}
0x27a0…27c6 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY KEY-LOCK? «, t00=0x0019, t01=0x00a0}
0x27c6…27d8 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0019, t01=0x00c6}
0x27d8…27ee Head {h00=0x0012, h01=0x0050, text=» RF(Z) AKB219 «, t00=0x0019, t01=0x00d8}
0x27ee…2800 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0019, t01=0x00ee}
0x2800…2812 Head {h00=0x000e, h01=0x0050, text=» SRN A2,A4«, t00=0x0019, t01=0x0100}
0x2812…2824 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0019, t01=0x0112}
0x2824…2836 Head {h00=0x000e, h01=0x0050, text=» CWK A4,3 «, t00=0x0019, t01=0x0124}
0x2836…284c Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB212 «, t00=0x0019, t01=0x0136}
0x284c…2862 Head {h00=0x0012, h01=0x0050, text=» RF(P) AKB211 «, t00=0x0019, t01=0x014c}
0x2862…2874 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0019, t01=0x0162}
0x2874…2886 Head {h00=0x000e, h01=0x0050, text=» RF AKB212«, t00=0x0019, t01=0x0174}
0x2886…289e Head {h00=0x0014, h01=0x0050, text=»AKB211 ADR A4,A4«, t00=0x0019, t01=0x0186}
0x289e…28d0 Head {h00=0x002e, h01=0x0050, text=»AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG «, t00=0x001a, t01=0x000e}
0x28d0…28e2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x001a, t01=0x0040}
0x28e2…28f4 Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x001a, t01=0x0052}
0x28f4…290c Head {h00=0x0014, h01=0x0050, text=» AN A4,DWTST,A6 «, t00=0x001a, t01=0x0064}
0x290c…2928 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 SAVE A4 «, t00=0x001a, t01=0x007c}
0x2928…293c Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x001a, t01=0x0098}
0x293c…2956 Head {h00=0x0016, h01=0x0050, text=» SRN A2,A3 ORDER 1«, t00=0x001a, t01=0x00ac}
0x2956…297c Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 MAKE CHARACTER FLAG«, t00=0x001a, t01=0x00c6}
0x297c…298e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x001a, t01=0x00ec}
0x298e…29a6 Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB213 «, t00=0x001a, t01=0x00fe}
0x29a6…29b8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001a, t01=0x0116}
0x29b8…29d2 Head {h00=0x0016, h01=0x0050, text=»AKB213 ADK A3,/70 «, t00=0x001a, t01=0x0128}
0x29d2…29e4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001a, t01=0x0142}
0x29e4…29f8 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x001a, t01=0x0154}
0x29f8…2a26 Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE KEY IN ECB BUFFER «, t00=0x001a, t01=0x0168}
0x2a26…2a46 Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A4 «, t00=0x001b, t01=0x0008}
0x2a46…2a58 Head {h00=0x000e, h01=0x0050, text=» CWK A7,1 «, t00=0x001b, t01=0x0028}
0x2a58…2a80 Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB307 JUMP IF BASIC READ«, t00=0x001b, t01=0x003a}
0x2a80…2aa6 Head {h00=0x0022, h01=0x0050, text=»AKB214 NGR A2,A1 MAKE ECB CODE«, t00=0x001b, t01=0x0062}
0x2aa6…2ac2 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 KEY FLAG «, t00=0x001b, t01=0x0088}
0x2ac2…2ad8 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB215 «, t00=0x001b, t01=0x00a4}
0x2ad8…2aea Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x001b, t01=0x00ba}
0x2aea…2b1a Head {h00=0x002c, h01=0x0050, text=»AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB «, t00=0x001b, t01=0x00cc}
0x2b1a…2b34 Head {h00=0x0016, h01=0x0050, text=»AKB218 ABL AKB380 «, t00=0x001b, t01=0x00fc}
0x2b34…2b60 Head {h00=0x0028, h01=0x0050, text=»AKB219 LD A2,4,A8 REQUESTED LENGTH=0«, t00=0x001b, t01=0x0116}
0x2b60…2b7c Head {h00=0x0018, h01=0x0050, text=»AKB220 ABL(E) AKB380«, t00=0x001b, t01=0x0142}
0x2b7c…2ba2 Head {h00=0x0022, h01=0x0050, text=»AKB225 LDR A3,A3 FIRTST RIME? «, t00=0x001b, t01=0x015e}
0x2ba2…2bbc Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 N0!«, t00=0x001b, t01=0x0184}
0x2bbc…2bde Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x001c, t01=0x000e}
0x2bde…2bf0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x0030}
0x2bf0…2c02 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x001c, t01=0x0042}
0x2c02…2c2c Head {h00=0x0026, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR ECB BUFFER «, t00=0x001c, t01=0x0054}
0x2c2c…2c3e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x007e}
0x2c3e…2c50 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0090}
0x2c50…2c66 Head {h00=0x0012, h01=0x0050, text=» RB(NE) AKB230«, t00=0x001c, t01=0x00a2}
0x2c66…2c7a Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x001c, t01=0x00b8}
0x2c7a…2c92 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x001c, t01=0x00cc}
0x2c92…2ca4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x001c, t01=0x00e4}
0x2ca4…2cbc Head {h00=0x0014, h01=0x0050, text=»AKB245 LDR A4,A2«, t00=0x001c, t01=0x00f6}
0x2cbc…2cda Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW? «, t00=0x001c, t01=0x010e}
0x2cda…2cf4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB250 N0!«, t00=0x001c, t01=0x012c}
0x2cf4…2d12 Head {h00=0x001a, h01=0x0050, text=»AKB247 SCR A4,A1 YES! «, t00=0x001c, t01=0x0146}
0x2d12…2d36 Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x001c, t01=0x0164}
0x2d36…2d50 Head {h00=0x0016, h01=0x0050, text=» ABL ENDIX END I/O«, t00=0x001c, t01=0x0188}
0x2d50…2d82 Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x001d, t01=0x0012}
0x2d82…2d9a Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB255 «, t00=0x001d, t01=0x0044}
0x2d9a…2dc0 Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x001d, t01=0x005c}
0x2dc0…2dd6 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001d, t01=0x0082}
0x2dd6…2e04 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x001d, t01=0x0098}
0x2e04…2e26 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB257 NO TIME OUT «, t00=0x001d, t01=0x00c6}
0x2e26…2e4e Head {h00=0x0024, h01=0x0050, text=» ABL ENDI05 END I/O AT TIME OUT «, t00=0x001d, t01=0x00e8}
0x2e4e…2e5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0110}
0x2e5a…2e70 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x001d, t01=0x011c}
0x2e70…2e82 Head {h00=0x000e, h01=0x0050, text=» RF AKB257«, t00=0x001d, t01=0x0132}
0x2e82…2e8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0144}
0x2e8e…2ebc Head {h00=0x002a, h01=0x0050, text=»AKB255 CF A15,EOQUEU NEXT OUT POINTER «, t00=0x001d, t01=0x0150}
0x2ebc…2ee6 Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x001d, t01=0x017e}
0x2ee6…2efa Head {h00=0x0010, h01=0x0050, text=»AKB257 EQU *«, t00=0x001e, t01=0x0018}
0x2efa…2f0c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001e, t01=0x002c}
0x2f0c…2f1e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001e, t01=0x003e}
0x2f1e…2f42 Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x001e, t01=0x0050}
0x2f42…2f50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0074}
0x2f50…2f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0082}
0x2f5a…2f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008c}
0x2f64…2f84 Head {h00=0x001c, h01=0x0050, text=»* ORDER 1 BASIC READ«, t00=0x001e, t01=0x0096}
0x2f84…2f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b6}
0x2f8e…2f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c0}
0x2f98…2fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ca}
0x2fa2…2fdc Head {h00=0x0036, h01=0x0050, text=»AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x001e, t01=0x00d4}
0x2fdc…2ff0 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x001e, t01=0x010e}
0x2ff0…3004 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x001e, t01=0x0122}
0x3004…3010 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0136}
0x3010…302a Head {h00=0x0016, h01=0x0050, text=»AKB307 CW A3,4,A8 «, t00=0x001e, t01=0x0142}
0x302a…305a Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB380 END I/O IF REQ=EFF LENGTH «, t00=0x001e, t01=0x015c}
0x305a…307c Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 MORE KEYS?«, t00=0x001e, t01=0x018c}
0x307c…308e Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001f, t01=0x001e}
0x308e…30a4 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AKB210«, t00=0x001f, t01=0x0030}
0x30a4…30b6 Head {h00=0x000e, h01=0x0050, text=» RB AKB225«, t00=0x001f, t01=0x0046}
0x30b6…30c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0058}
0x30c4…30ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0066}
0x30ce…30d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0070}
0x30d8…30e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x30e2…311a Head {h00=0x0034, h01=0x0050, text=»* ORDER 2 OR 3 STANDARD AND NUMERIC READ «, t00=0x001f, t01=0x0084}
0x311a…3124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x3124…316a Head {h00=0x0042, h01=0x0050, text=»* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) «, t00=0x001f, t01=0x00c6}
0x316a…3174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010c}
0x3174…317e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0116}
0x317e…3188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0120}
0x3188…3192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012a}
0x3192…31a6 Head {h00=0x0010, h01=0x0050, text=»AKB310 EQU *«, t00=0x001f, t01=0x0134}
0x31a6…31cc Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x001f, t01=0x0148}
0x31cc…31ee Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB360 NO KEY-TABLE«, t00=0x001f, t01=0x016e}
0x31ee…3218 Head {h00=0x0026, h01=0x0050, text=» LCR A4,A1 KEY-TABLE LENGTH IN A4 «, t00=0x001f, t01=0x0190}
0x3218…322c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0020, t01=0x002a}
0x322c…3256 Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0020, t01=0x003e}
0x3256…3268 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0020, t01=0x0068}
0x3268…3280 Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0020, t01=0x007a}
0x3280…32b0 Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0020, t01=0x0092}
0x32b0…32ca Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0020, t01=0x00c2}
0x32ca…32e2 Head {h00=0x0014, h01=0x0050, text=» CCR A2,A1 EOR? «, t00=0x0020, t01=0x00dc}
0x32e2…32fc Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO!«, t00=0x0020, t01=0x00f4}
0x32fc…330e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0020, t01=0x010e}
0x330e…333e Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x0020, t01=0x0120}
0x333e…3364 Head {h00=0x0022, h01=0x0050, text=» CF A15,STORE STORE CHARACTER «, t00=0x0020, t01=0x0150}
0x3364…3378 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0020, t01=0x0176}
0x3378…33a2 Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR-CHARACTER«, t00=0x0020, t01=0x018a}
0x33a2…33c8 Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHO ECHO EOR-CHARACTER«, t00=0x0021, t01=0x0024}
0x33c8…33d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x004a}
0x33d4…33e6 Head {h00=0x000e, h01=0x0050, text=» RF AKB380«, t00=0x0021, t01=0x0056}
0x33e6…33fa Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0021, t01=0x0068}
0x33fa…340c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x007c}
0x340c…3424 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ2,A6 «, t00=0x0021, t01=0x008e}
0x3424…343a Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ20 «, t00=0x0021, t01=0x00a6}
0x343a…3452 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ3,A6 «, t00=0x0021, t01=0x00bc}
0x3452…3468 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ30 «, t00=0x0021, t01=0x00d4}
0x3468…3480 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBBSP,A6 «, t00=0x0021, t01=0x00ea}
0x3480…3496 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0021, t01=0x0102}
0x3496…34ae Head {h00=0x0014, h01=0x0050, text=» CC A4,KBCLR,A6 «, t00=0x0021, t01=0x0118}
0x34ae…34c4 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0021, t01=0x0130}
0x34c4…34f4 Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN BUFFER «, t00=0x0021, t01=0x0146}
0x34f4…3506 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0176}
0x3506…3532 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/20 CHEC CONVERTED CHARACTER«, t00=0x0021, t01=0x0188}
0x3532…3556 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB364 LESS THAN /20 «, t00=0x0022, t01=0x0024}
0x3556…357a Head {h00=0x0020, h01=0x0050, text=» SUK A4,/5F CHARACTER > /7F «, t00=0x0022, t01=0x0048}
0x357a…3594 Head {h00=0x0016, h01=0x0050, text=» RF(P) AKB364 YES «, t00=0x0022, t01=0x006c}
0x3594…35a6 Head {h00=0x000e, h01=0x0050, text=» CWK A7,2 «, t00=0x0022, t01=0x0086}
0x35a6…35ce Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB366 STANDARD READ OK «, t00=0x0022, t01=0x0098}
0x35ce…35e2 Head {h00=0x0010, h01=0x0050, text=» ADK A4,/4F «, t00=0x0022, t01=0x00c0}
0x35e2…35f8 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB364 «, t00=0x0022, t01=0x00d4}
0x35f8…360a Head {h00=0x000e, h01=0x0050, text=» SUK A4,/A«, t00=0x0022, t01=0x00ea}
0x360a…3630 Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB366 NUMERIC READ OK«, t00=0x0022, t01=0x00fc}
0x3630…3652 Head {h00=0x001e, h01=0x0050, text=»AKB364 LDK A1,4 ERROR CODE«, t00=0x0022, t01=0x0122}
0x3652…3664 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x0144}
0x3664…3678 Head {h00=0x0010, h01=0x0050, text=»AKB366 EQU *«, t00=0x0022, t01=0x0156}
0x3678…368c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0022, t01=0x016a}
0x368c…36a0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x017e}
0x36a0…36b4 (35, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0023, t01=0x0004}
0x36b4…36c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0018}
0x36c0…36e4 Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0023, t01=0x0024}
0x36e4…370a Head {h00=0x0022, h01=0x0050, text=»AKB367 ABL(L) AKB210 NO RETURN«, t00=0x0023, t01=0x0048}
0x370a…3734 Head {h00=0x0026, h01=0x0050, text=»AKB368 LDK A1,8 YES SET ERROR CODE«, t00=0x0023, t01=0x006e}
0x3734…374e Head {h00=0x0016, h01=0x0050, text=» RF ENDIO END I/O «, t00=0x0023, t01=0x0098}
0x374e…375c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00b2}
0x375c…377e Head {h00=0x001e, h01=0x0050, text=»KBMZ30 EQU * TRIPPLE ZERO «, t00=0x0023, t01=0x00c0}
0x377e…3790 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0023, t01=0x00e2}
0x3790…37a2 Head {h00=0x000e, h01=0x0050, text=» RF KBMZ25«, t00=0x0023, t01=0x00f4}
0x37a2…37c6 Head {h00=0x0020, h01=0x0050, text=»KBMZ20 LDK A4,2 DOUBLE ZERO «, t00=0x0023, t01=0x0106}
0x37c6…37e0 Head {h00=0x0016, h01=0x0050, text=»KBMZ25 LDK A2,/30 «, t00=0x0023, t01=0x012a}
0x37e0…37f2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x0144}
0x37f2…3808 Head {h00=0x0012, h01=0x0050, text=» RB(L) AKB367 «, t00=0x0023, t01=0x0156}
0x3808…381a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0023, t01=0x016c}
0x381a…3830 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0023, t01=0x017e}
0x3830…3842 (36, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0024, t01=0x0004}
0x3842…3856 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0024, t01=0x0016}
0x3856…386a Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0024, t01=0x002a}
0x386a…3876 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x003e}
0x3876…388a Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x0024, t01=0x004a}
0x388a…38a0 Head {h00=0x0012, h01=0x0050, text=» RB(L) KBMZ25 «, t00=0x0024, t01=0x005e}
0x38a0…38b4 Head {h00=0x0010, h01=0x0050, text=»KBMZ27 EQU *«, t00=0x0024, t01=0x0074}
0x38b4…38d6 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES «, t00=0x0024, t01=0x0088}
0x38d6…38fe Head {h00=0x0024, h01=0x0050, text=» RB(L) AKB368 NO,SET RETURN CODE«, t00=0x0024, t01=0x00aa}
0x38fe…390a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x00d2}
0x390a…3938 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x0024, t01=0x00de}
0x3938…394a Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0024, t01=0x010c}
0x394a…3970 Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x0024, t01=0x011e}
0x3970…398a Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ29 NO «, t00=0x0024, t01=0x0144}
0x398a…39ba Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x0024, t01=0x015e}
0x39ba…39cc Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0024, t01=0x018e}
0x39cc…39de Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0025, t01=0x0010}
0x39de…39f0 Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x0025, t01=0x0022}
0x39f0…3a26 Head {h00=0x0032, h01=0x0050, text=»KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x0025, t01=0x0034}
0x3a26…3a38 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0025, t01=0x006a}
0x3a38…3a68 Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x0025, t01=0x007c}
0x3a68…3a8c Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x0025, t01=0x00ac}
0x3a8c…3ac0 Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x0025, t01=0x00d0}
0x3ac0…3aea Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x0025, t01=0x0104}
0x3aea…3b0a Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x0025, t01=0x012e}
0x3b0a…3b1c Head {h00=0x000e, h01=0x0050, text=» RB KBMZ27«, t00=0x0025, t01=0x014e}
0x3b1c…3b30 Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x0025, t01=0x0160}
0x3b30…3b5c Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x0025, t01=0x0174}
0x3b5c…3b6e Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x0026, t01=0x0010}
0x3b6e…3b96 Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x0026, t01=0x0022}
0x3b96…3bc2 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x0026, t01=0x004a}
0x3bc2…3bf4 Head {h00=0x002e, h01=0x0050, text=»ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS«, t00=0x0026, t01=0x0076}
0x3bf4…3bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a8}
0x3bfe…3c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b2}
0x3c08…3c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00bc}
0x3c12…3c2c Head {h00=0x0016, h01=0x0050, text=»KBCL10 EQU * CLEAR«, t00=0x0026, t01=0x00c6}
0x3c2c…3c3e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0026, t01=0x00e0}
0x3c3e…3c52 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/18 «, t00=0x0026, t01=0x00f2}
0x3c52…3c64 Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0026, t01=0x0106}
0x3c64…3c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0118}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0122}
0x3c78…3c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012c}
0x3c82…3c96 Head {h00=0x0010, h01=0x0050, text=»KBSP10 EQU *«, t00=0x0026, t01=0x0136}
0x3c96…3ca8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0026, t01=0x014a}
0x3ca8…3cbe Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0026, t01=0x015c}
0x3cbe…3cd0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0026, t01=0x0172}
0x3cd0…3d00 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER«, t00=0x0026, t01=0x0184}
0x3d00…3d16 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0027, t01=0x0024}
0x3d16…3d28 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0027, t01=0x003a}
0x3d28…3d40 Head {h00=0x0014, h01=0x0050, text=»KBSP15 LDK A2,/8«, t00=0x0027, t01=0x004c}
0x3d40…3d52 Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0027, t01=0x0064}
0x3d52…3d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0076}
0x3d5c…3d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0080}
0x3d66…3d8a Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x0027, t01=0x008a}
0x3d8a…3d98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00ae}
0x3d98…3da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00bc}
0x3da2…3dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c6}
0x3dac…3ddc Head {h00=0x002c, h01=0x0050, text=»* THIS IS A COMMON END OF THE DRIVER «, t00=0x0027, t01=0x00d0}
0x3ddc…3de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0100}
0x3de6…3e1c Head {h00=0x0032, h01=0x0050, text=»* SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x0027, t01=0x010a}
0x3e1c…3e44 Head {h00=0x0024, h01=0x0050, text=»* ON KEYBOARD AND ECHO-DEVICE«, t00=0x0027, t01=0x0140}
0x3e44…3e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0168}
0x3e4e…3e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0172}
0x3e58…3e6c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0027, t01=0x017c}
0x3e6c…3e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0190}
0x3e76…3e82 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0028, t01=0x000a}
0x3e82…3e98 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0028, t01=0x0016}
0x3e98…3eb0 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0028, t01=0x002c}
0x3eb0…3ede Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x0028, t01=0x0044}
0x3ede…3f00 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0028, t01=0x0072}
0x3f00…3f14 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0028, t01=0x0094}
0x3f14…3f20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00a8}
0x3f20…3f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b4}
0x3f2a…3f5a Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0028, t01=0x00be}
0x3f5a…3f6e Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x0028, t01=0x00ee}
0x3f6e…3f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0102}
0x3f78…3f8c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x010c}
0x3f8c…3fa6 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0028, t01=0x0120}
0x3fa6…3fd2 Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x0028, t01=0x013a}
0x3fd2…3ff0 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x0028, t01=0x0166}
0x3ff0…3ffc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0184}
0x3ffc…4010 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0028, t01=0x0190}
0x4010…401a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0014}
0x401a…4028 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x001e}
0x4028…4032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002c}
0x4032…403c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0036}
0x403c…4046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0040}
0x4046…4058 Head {h00=0x000e, h01=0x0050, text=»* IHKB«, t00=0x0029, t01=0x004a}
0x4058…4062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x005c}
0x4062…406c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0066}
0x406c…40b6 Head {h00=0x0046, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER «, t00=0x0029, t01=0x0070}
0x40b6…40c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ba}
0x40c0…40ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c4}
0x40ca…40d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ce}
0x40d4…40e6 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0029, t01=0x00d8}
0x40e6…40fa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x00ea}
0x40fa…4128 Head {h00=0x002a, h01=0x0050, text=» CF A15,KONVER CONVERT INPUT CHARACTER«, t00=0x0029, t01=0x00fe}
0x4128…414c Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 TEST TYPE OF CHAR«, t00=0x0029, t01=0x012c}
0x414c…4170 Head {h00=0x0020, h01=0x0050, text=» RF(P) EXIT SHIFT/CTRL/SKIP «, t00=0x0029, t01=0x0150}
0x4170…418e Head {h00=0x001a, h01=0x0050, text=» RF(N) IHKB12 KEY-LOCK«, t00=0x0029, t01=0x0174}
0x418e…4196 (42, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0004}
0x4196…41ba Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 NORMAL CHAR «, t00=0x002a, t01=0x000c}
0x41ba…41d0 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x002a, t01=0x0030}
0x41d0…41e4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002a, t01=0x0046}
0x41e4…41f8 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x002a, t01=0x005a}
0x41f8…421c Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x002a, t01=0x006e}
0x421c…4228 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0092}
0x4228…4256 Head {h00=0x002a, h01=0x0050, text=» RF(N) IHKB15 NO READ REQUEST PENDING «, t00=0x002a, t01=0x009e}
0x4256…427c Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPT ALLOWED ? «, t00=0x002a, t01=0x00cc}
0x427c…42b4 Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER«, t00=0x002a, t01=0x00f2}
0x42b4…42ca Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x012a}
0x42ca…42e2 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x002a, t01=0x0140}
0x42e2…4310 Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB07 NO TIMING ON THIS DEVICE«, t00=0x002a, t01=0x0158}
0x4310…4334 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x002a, t01=0x0186}
0x4334…434c Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x002b, t01=0x001a}
0x434c…4358 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0032}
0x4358…4388 Head {h00=0x002c, h01=0x0050, text=»IHKB07 ABL LDREG RETURN TO READ ROUTINE «, t00=0x002b, t01=0x003e}
0x4388…43b8 Head {h00=0x002c, h01=0x0050, text=»IHKB12 CF A15,KEYSET SET KEY CODE IN DWT«, t00=0x002b, t01=0x006e}
0x43b8…43ca Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002b, t01=0x009e}
0x43ca…43ec Head {h00=0x001e, h01=0x0050, text=» RF(Z) EXIT NO KEY CHANGE «, t00=0x002b, t01=0x00b0}
0x43ec…4404 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002b, t01=0x00d2}
0x4404…4430 Head {h00=0x0028, h01=0x0050, text=» RF(N) EXIT NO READ REQUEST PENDING «, t00=0x002b, t01=0x00ea}
0x4430…4442 Head {h00=0x000e, h01=0x0050, text=» SLL A3,7 «, t00=0x002b, t01=0x0116}
0x4442…446c Head {h00=0x0026, h01=0x0050, text=» RF(NN) EXIT INERRUPT NOT ALLOWED «, t00=0x002b, t01=0x0128}
0x446c…4498 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTA3,A6 RESTORE BUFFER INDEX«, t00=0x002b, t01=0x0152}
0x4498…44b0 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x002b, t01=0x017e}
0x44b0…44c2 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002c, t01=0x0008}
0x44c2…44d6 Head {h00=0x0010, h01=0x0050, text=» ABL AKB210 «, t00=0x002c, t01=0x001a}
0x44d6…44de Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x002e}
0x44de…44fc Head {h00=0x001a, h01=0x0050, text=»IHKB15 LD A1,DWTINQ,A6«, t00=0x002c, t01=0x0036}
0x44fc…450e Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x002c, t01=0x0054}
0x450e…4534 Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW? «, t00=0x002c, t01=0x0066}
0x4534…454c Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x002c, t01=0x008c}
0x454c…455e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x002c, t01=0x00a4}
0x455e…4596 Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x002c, t01=0x00b6}
0x4596…45b8 Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x002c, t01=0x00ee}
0x45b8…45e4 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY «, t00=0x002c, t01=0x0110}
0x45e4…4618 Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER «, t00=0x002c, t01=0x013c}
0x4618…462a Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x002c, t01=0x0170}
0x462a…465e Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x002c, t01=0x0182}
0x465e…4676 Head {h00=0x0014, h01=0x0050, text=»IHKB30 SCR A2,A3«, t00=0x002d, t01=0x0026}
0x4676…468c Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x002d, t01=0x003e}
0x468c…4696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0054}
0x4696…46a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x005e}
0x46a4…46ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006c}
0x46ae…46b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0076}
0x46b8…46c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0080}
0x46c2…46d6 Head {h00=0x0010, h01=0x0050, text=»* AKBTUT«, t00=0x002d, t01=0x008a}
0x46d6…46e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009e}
0x46e0…470a Head {h00=0x0026, h01=0x0050, text=»* THIS IS THE TIME-OUT ROUTINE«, t00=0x002d, t01=0x00a8}
0x470a…4714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d2}
0x4714…471e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00dc}
0x471e…4728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e6}
0x4728…473e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002d, t01=0x00f0}
0x473e…4752 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x002d, t01=0x0106}
0x4752…4778 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RESTART DWT-ADDRESS«, t00=0x002d, t01=0x011a}
0x4778…479c Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURNE CODE«, t00=0x002d, t01=0x0140}
0x479c…47b0 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002d, t01=0x0164}
0x47b0…47c8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x002d, t01=0x0178}
0x47c8…47f6 Head {h00=0x002a, h01=0x0050, text=» RB(N) EXIT DISPATCH IF NO REQUEST ON «, t00=0x002d, t01=0x0190}
0x47f6…4826 Head {h00=0x002c, h01=0x0050, text=» RB IHKB07 RESTORE REGISTER AND END I/O «, t00=0x002e, t01=0x002e}
0x4826…4832 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x005e}
0x4832…4840 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x006a}
0x4840…484a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0078}
0x484a…4854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0082}
0x4854…485e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008c}
0x485e…4868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0096}
0x4868…487c Head {h00=0x0010, h01=0x0050, text=»* KEYSET «, t00=0x002e, t01=0x00a0}
0x487c…4886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b4}
0x4886…4890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00be}
0x4890…489a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c8}
0x489a…48ca Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A4= NEG KEY-LOCK VALUE «, t00=0x002e, t01=0x00d2}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0102}
0x48d4…4918 Head {h00=0x0040, h01=0x0050, text=»* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS «, t00=0x002e, t01=0x010c}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0150}
0x4922…492c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x015a}
0x492c…4940 Head {h00=0x0010, h01=0x0050, text=»KEYSET EQU *«, t00=0x002e, t01=0x0164}
0x4940…4954 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x002e, t01=0x0178}
0x4954…496c Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002e, t01=0x018c}
0x496c…4982 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x002f, t01=0x0014}
0x4982…499a Head {h00=0x0014, h01=0x0050, text=»SET100 SRL A2,1 «, t00=0x002f, t01=0x002a}
0x499a…49be Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 IN A4: 1=OFF 0=ON«, t00=0x002f, t01=0x0042}
0x49be…49d4 Head {h00=0x0012, h01=0x0050, text=» RB(N) SET100 «, t00=0x002f, t01=0x0066}
0x49d4…49fc Head {h00=0x0024, h01=0x0050, text=» ANR A3,A2 CHEC OLD KEY POSITION«, t00=0x002f, t01=0x007c}
0x49fc…4a22 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SET300 JUMP IF KEY ON «, t00=0x002f, t01=0x00a4}
0x4a22…4a34 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002f, t01=0x00ca}
0x4a34…4a4a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SET500«, t00=0x002f, t01=0x00dc}
0x4a4a…4a5c Head {h00=0x000e, h01=0x0050, text=» RF SET400«, t00=0x002f, t01=0x00f2}
0x4a5c…4a74 Head {h00=0x0014, h01=0x0050, text=»SET300 LDR A4,A4«, t00=0x002f, t01=0x0104}
0x4a74…4a8a Head {h00=0x0012, h01=0x0050, text=» RF(Z) SET500 «, t00=0x002f, t01=0x011c}
0x4a8a…4aa8 Head {h00=0x001a, h01=0x0050, text=»SET400 LD A3,DWTST,A6 «, t00=0x002f, t01=0x0132}
0x4aa8…4aba Head {h00=0x000e, h01=0x0050, text=» XRR A3,A2«, t00=0x002f, t01=0x0150}
0x4aba…4acc Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x002f, t01=0x0162}
0x4acc…4ade Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x002f, t01=0x0174}
0x4ade…4af6 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x002f, t01=0x0186}
0x4af6…4b24 Head {h00=0x002a, h01=0x0050, text=» LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED«, t00=0x0030, t01=0x000e}
0x4b24…4b3e Head {h00=0x0016, h01=0x0050, text=»SET500 LDR* A4,A15«, t00=0x0030, t01=0x003c}
0x4b3e…4b4e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0030, t01=0x0056}
0x4b4e…4b5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0066}
0x4b5c…4b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0074}
0x4b66…4b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x007e}
0x4b70…4b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0088}
0x4b7a…4b8e Head {h00=0x0010, h01=0x0050, text=»* KONVER«, t00=0x0030, t01=0x0092}
0x4b8e…4b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a6}
0x4b98…4bc6 Head {h00=0x002a, h01=0x0050, text=»* KONVER CONVERTS INPUT CHARACTER «, t00=0x0030, t01=0x00b0}
0x4bc6…4bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00de}
0x4bd0…4bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e8}
0x4bda…4c06 Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A2= INPUT CHARACTER «, t00=0x0030, t01=0x00f2}
0x4c06…4c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011e}
0x4c10…4c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0128}
0x4c1a…4c48 Head {h00=0x002a, h01=0x0050, text=»* ON EXIT: A2=COVERTED CHARACTER «, t00=0x0030, t01=0x0132}
0x4c48…4c98 Head {h00=0x004c, h01=0x0050, text=»* A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT«, t00=0x0030, t01=0x0160}
0x4c98…4cc0 Head {h00=0x0024, h01=0x0050, text=»* A5 IS DESTROYED!«, t00=0x0031, t01=0x0020}
0x4cc0…4cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0048}
0x4cca…4cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0052}
0x4cd4…4ce8 Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x0031, t01=0x005c}
0x4ce8…4cfa Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0031, t01=0x0070}
0x4cfa…4d10 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0031, t01=0x0082}
0x4d10…4d2e Head {h00=0x001a, h01=0x0050, text=» SUK A4,/7C CODE > /7B«, t00=0x0031, t01=0x0098}
0x4d2e…4d48 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON500 YES«, t00=0x0031, t01=0x00b6}
0x4d48…4d6c Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 RESTORE CHARACTER«, t00=0x0031, t01=0x00d0}
0x4d6c…4d78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00f4}
0x4d78…4db4 Head {h00=0x0038, h01=0x0050, text=» STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION«, t00=0x0031, t01=0x0100}
0x4db4…4dc8 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A6 «, t00=0x0031, t01=0x013c}
0x4dc8…4ddc Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x0031, t01=0x0150}
0x4ddc…4dfa Head {h00=0x001a, h01=0x0050, text=» RF(N) KON105 FUNCTION«, t00=0x0031, t01=0x0164}
0x4dfa…4e14 Head {h00=0x0016, h01=0x0050, text=»KON100 SUK A4,/40 «, t00=0x0031, t01=0x0182}
0x4e14…4e36 Head {h00=0x001e, h01=0x0050, text=» RF(N) KON180 ALFANUMERIC «, t00=0x0032, t01=0x000c}
0x4e36…4e52 Head {h00=0x0018, h01=0x0050, text=» SUK A4,/10 FUNCTION«, t00=0x0032, t01=0x002e}
0x4e52…4e6c Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON110 NO «, t00=0x0032, t01=0x004a}
0x4e6c…4e84 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/40 YES «, t00=0x0032, t01=0x0064}
0x4e84…4e98 Head {h00=0x0010, h01=0x0050, text=»KON105 EQU *«, t00=0x0032, t01=0x007c}
0x4e98…4eac Head {h00=0x0010, h01=0x0050, text=» ANK A5,/10 «, t00=0x0032, t01=0x0090}
0x4eac…4ebe Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0032, t01=0x00a4}
0x4ebe…4ed0 Head {h00=0x000e, h01=0x0050, text=» RF KON200«, t00=0x0032, t01=0x00b6}
0x4ed0…4efe Head {h00=0x002a, h01=0x0050, text=»KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT «, t00=0x0032, t01=0x00c8}
0x4efe…4f1c Head {h00=0x001a, h01=0x0050, text=» RF(N) KON400 KEY-LOCK«, t00=0x0032, t01=0x00f6}
0x4f1c…4f3a Head {h00=0x001a, h01=0x0050, text=» RF(Z) KON140 SHIFT ON«, t00=0x0032, t01=0x0114}
0x4f3a…4f4c Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0032, t01=0x0132}
0x4f4c…4f6c Head {h00=0x001c, h01=0x0050, text=» RF(N) KON160 SHIFT OFF «, t00=0x0032, t01=0x0144}
0x4f6c…4f8c Head {h00=0x001c, h01=0x0050, text=» RF(Z) KON170 CONTROL ON«, t00=0x0032, t01=0x0164}
0x4f8c…4fa2 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0032, t01=0x0184}
0x4fa2…4fb4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0033, t01=0x000a}
0x4fb4…4fd6 Head {h00=0x001e, h01=0x0050, text=» RF(N) KON125 CONTROL OFF «, t00=0x0033, t01=0x001c}
0x4fd6…4ffe Head {h00=0x0024, h01=0x0050, text=» RF(E) KON140 NUMERICAL SHIFT ON«, t00=0x0033, t01=0x003e}
0x4ffe…5024 Head {h00=0x0022, h01=0x0050, text=» RF KON160 NUMERICAL SHIFT OFF«, t00=0x0033, t01=0x0066}
0x5024…5030 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x008c}
0x5030…5044 Head {h00=0x0010, h01=0x0050, text=»KON125 EQU *«, t00=0x0033, t01=0x0098}
0x5044…5062 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/FFDF UNCTRL «, t00=0x0033, t01=0x00ac}
0x5062…507a Head {h00=0x0014, h01=0x0050, text=»KON120 ANR A5,A2«, t00=0x0033, t01=0x00ca}
0x507a…509a Head {h00=0x001c, h01=0x0050, text=»KON130 STR A5,A6 DWTCHP «, t00=0x0033, t01=0x00e2}
0x509a…50ae Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0033, t01=0x0102}
0x50ae…50ca Head {h00=0x0018, h01=0x0050, text=» RF KON400 GO HOME! «, t00=0x0033, t01=0x0116}
0x50ca…50de Head {h00=0x0010, h01=0x0050, text=»KON140 EQU *«, t00=0x0033, t01=0x0132}
0x50de…50f4 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0033, t01=0x0146}
0x50f4…5106 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0033, t01=0x015c}
0x5106…511a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x0033, t01=0x016e}
0x511a…513c Head {h00=0x001e, h01=0x0050, text=» RF(Z) KON145 SHIFT NOT ON«, t00=0x0033, t01=0x0182}
0x513c…5150 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/90 «, t00=0x0034, t01=0x0014}
0x5150…5162 Head {h00=0x000e, h01=0x0050, text=» RF KON150«, t00=0x0034, t01=0x0028}
0x5162…516e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x003a}
0x516e…5182 Head {h00=0x0010, h01=0x0050, text=»KON145 EQU *«, t00=0x0034, t01=0x0046}
0x5182…519c Head {h00=0x0016, h01=0x0050, text=» LDK A2,/10 SHIFT «, t00=0x0034, t01=0x005a}
0x519c…51b4 Head {h00=0x0014, h01=0x0050, text=»KON150 ORR A5,A2«, t00=0x0034, t01=0x0074}
0x51b4…51c6 Head {h00=0x000e, h01=0x0050, text=» RB KON130«, t00=0x0034, t01=0x008c}
0x51c6…51da Head {h00=0x0010, h01=0x0050, text=»KON160 EQU *«, t00=0x0034, t01=0x009e}
0x51da…51f0 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0034, t01=0x00b2}
0x51f0…5202 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0034, t01=0x00c8}
0x5202…5216 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0034, t01=0x00da}
0x5216…522c Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON165 «, t00=0x0034, t01=0x00ee}
0x522c…5242 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF7F«, t00=0x0034, t01=0x0104}
0x5242…5254 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x011a}
0x5254…5260 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x012c}
0x5260…5274 Head {h00=0x0010, h01=0x0050, text=»KON165 EQU *«, t00=0x0034, t01=0x0138}
0x5274…528a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFEF«, t00=0x0034, t01=0x014c}
0x528a…529c Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0162}
0x529c…52ae Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0034, t01=0x0174}
0x52ae…52cc Head {h00=0x001a, h01=0x0050, text=»KON170 LDK A2,/20 CTRL«, t00=0x0034, t01=0x0186}
0x52cc…52de Head {h00=0x000e, h01=0x0050, text=» RB KON150«, t00=0x0035, t01=0x0014}
0x52de…5302 Head {h00=0x0020, h01=0x0050, text=»KON180 SUK A2,/20 FIND INDEX«, t00=0x0035, t01=0x0026}
0x5302…5316 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/30 «, t00=0x0035, t01=0x004a}
0x5316…5328 Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0035, t01=0x005e}
0x5328…533a Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x0035, t01=0x0070}
0x533a…5376 Head {h00=0x0038, h01=0x0050, text=»KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS «, t00=0x0035, t01=0x0082}
0x5376…5388 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x0035, t01=0x00be}
0x5388…539c Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x0035, t01=0x00d0}
0x539c…53b2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON400 «, t00=0x0035, t01=0x00e4}
0x53b2…53c4 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0035, t01=0x00fa}
0x53c4…53f2 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A15 RESTORE A2 AND A15-STACK «, t00=0x0035, t01=0x010c}
0x53f2…541e Head {h00=0x0028, h01=0x0050, text=» LCR A2,A4 GET CHARACTER FROM TABLE «, t00=0x0035, t01=0x013a}
0x541e…544c Head {h00=0x002a, h01=0x0050, text=»KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$«, t00=0x0035, t01=0x0166}
0x544c…5462 (54, 0, 400) Head {h00=0x0012, h01=0x0050, text=»KON300 RTN A15«, t00=0x0036, t01=0x0004}
0x5462…549a Head {h00=0x0034, h01=0x0050, text=»KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER«, t00=0x0036, t01=0x001a}
0x549a…54ac Head {h00=0x000e, h01=0x0050, text=» RB KON300«, t00=0x0036, t01=0x0052}
0x54ac…54c2 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0036, t01=0x0064}
0x54c2…54d6 Head {h00=0x0010, h01=0x0050, text=»KON500 EQU *«, t00=0x0036, t01=0x007a}
0x54d6…54f6 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 KEY CODE /7C «, t00=0x0036, t01=0x008e}
0x54f6…5510 Head {h00=0x0016, h01=0x0050, text=» RF(Z) KON600 YES «, t00=0x0036, t01=0x00ae}
0x5510…553a Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 INDICATE SKIP CHARACTER «, t00=0x0036, t01=0x00c8}
0x553a…554a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0036, t01=0x00f2}
0x554a…555e Head {h00=0x0010, h01=0x0050, text=»KON600 EQU *«, t00=0x0036, t01=0x0102}
0x555e…5570 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A2«, t00=0x0036, t01=0x0116}
0x5570…5592 Head {h00=0x001e, h01=0x0050, text=» RB KONVER DO START AGAIN «, t00=0x0036, t01=0x0128}
0x5592…559e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x014a}
0x559e…55ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0156}
0x55ac…55b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0164}
0x55b6…55ee Head {h00=0x0034, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x0036, t01=0x016e}
0x55ee…5628 Head {h00=0x0036, h01=0x0050, text=»* ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0037, t01=0x0016}
0x5628…5632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0050}
0x5632…5648 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0037, t01=0x005a}
0x5648…5652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0070}
0x5652…5676 Head {h00=0x0020, h01=0x0050, text=»* A2 = CHARACTER TO STORE«, t00=0x0037, t01=0x007a}
0x5676…5694 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0037, t01=0x009e}
0x5694…569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00bc}
0x569e…56a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c6}
0x56a8…56bc Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0037, t01=0x00d0}
0x56bc…56de Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0037, t01=0x00e4}
0x56de…5702 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x0037, t01=0x0106}
0x5702…572e Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x0037, t01=0x012a}
0x572e…5756 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0037, t01=0x0156}
0x5756…5770 Head {h00=0x0016, h01=0x0050, text=»STORTN ADKL A15,2 «, t00=0x0037, t01=0x017e}
0x5770…5784 Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0038, t01=0x0008}
0x5784…5792 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x001c}
0x5792…579c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002a}
0x579c…57a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0034}
0x57a6…57e0 Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x0038, t01=0x003e}
0x57e0…57ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0078}
0x57ea…5800 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0038, t01=0x0082}
0x5800…580a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0098}
0x580a…582a Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x0038, t01=0x00a2}
0x582a…5848 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0038, t01=0x00c2}
0x5848…5852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e0}
0x5852…5868 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0038, t01=0x00ea}
0x5868…5872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0100}
0x5872…5896 Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x0038, t01=0x010a}
0x5896…58aa Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0038, t01=0x012e}
0x58aa…58bc Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0038, t01=0x0142}
0x58bc…58ce Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0038, t01=0x0154}
0x58ce…58f2 Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x0038, t01=0x0166}
0x58f2…5908 Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0038, t01=0x018a}
0x5908…5936 Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x0039, t01=0x0010}
0x5936…594e Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0039, t01=0x003e}
0x594e…5960 Head {h00=0x000e, h01=0x0050, text=» RB STORTN«, t00=0x0039, t01=0x0056}
0x5960…596c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x0068}
0x596c…5970 Head {h00=0x4004, h01=0x0000}
0x5970…5974 00 39 00 74 ┆ 9 t┆
0x5974…597c (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x597c…59cc (59, 0, 400) 00 20 00 50 54 52 54 31 31 32 5c 45 51 55 5c 2a 5c 43 48 41 52 20 2f 3d 20 53 50 41 43 45 5c 20 00 6b 00 04 00 26 00 50 5c 4c 44 5c 41 31 2c 44 57 54 43 4d 50 2c 41 36 5c 43 4f 4d 50 52 45 53 53 20 4d 4f 44 45 20 3f 5c 20 00 6b 00 28 00 16 ┆ PTRT112 EQU * CHAR /= SPACE k & P LD A1,DWTCMP,A6 COMPRESS MODE ? k ( ┆
0x59cc…5a1c 00 50 5c 52 46 28 5a 29 5c 54 52 54 31 31 34 5c 4e 4f 5c 20 00 6b 00 52 00 2e 00 50 5c 43 46 5c 41 35 2c 54 52 43 4f 4d 50 5c 54 52 41 4e 53 4d 49 54 20 43 4f 4d 50 52 45 53 53 45 44 20 53 50 41 43 45 53 5c 20 00 6b 00 6c 00 20 00 50 54 52 ┆ P RF(Z) TRT114 NO k R . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES k l PTR┆
0x5a1c…5a6c 54 31 31 34 5c 45 51 55 5c 2a 5c 43 4f 4d 50 52 45 53 53 20 45 4e 44 45 44 5c 00 6b 00 9e 00 0c 00 50 5c 58 49 46 5c 5c 5c 20 00 6b 00 c2 00 14 00 50 5c 49 46 54 5c 54 52 41 4e 53 50 3d 30 5c 5c 20 00 6b 00 d2 00 10 00 50 5c 49 46 54 5c 43 ┆T114 EQU * COMPRESS ENDED k P XIF k P IFT TRANSP=0 k P IFT C┆
0x5a6c…5abc 4f 44 45 3d 31 20 00 6b 00 ea 00 32 00 50 5c 4c 43 5c 41 32 2c 54 45 42 43 44 49 2c 41 32 5c 43 4f 4e 56 45 52 54 20 46 52 4f 4d 20 41 53 43 49 49 20 54 4f 20 45 42 43 44 49 43 20 00 6b 00 fe 00 08 00 50 5c 58 49 46 00 6b 01 34 00 12 00 50 ┆ODE=1 k 2 P LC A2,TEBCDI,A2 CONVERT FROM ASCII TO EBCDIC k P XIF k 4 P┆
0x5abc…5b0c 5c 49 46 54 5c 54 52 41 4e 53 50 3d 31 20 00 6b 01 40 00 10 00 50 5c 43 57 4b 5c 41 32 2c 44 4c 45 20 00 6b 01 56 00 1a 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 31 35 5c 4e 4f 54 20 44 4c 45 00 6b 01 6a 00 2c 00 50 5c 43 46 5c 41 35 2c 57 ┆ IFT TRANSP=1 k @ P CWK A2,DLE k V P RF(NE) TRT115 NOT DLE k j , P CF A5,W┆
0x5b0c…5b5c (60, 0, 400) 52 42 43 43 4e 5c 49 4e 53 45 52 54 20 4f 4e 45 20 44 4c 45 2e 20 4e 4f 20 43 52 43 2d 43 41 4c 00 6b 01 88 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 44 4c 45 20 00 6c 00 28 00 08 00 50 5c 58 49 46 00 6c 00 3c 00 10 00 50 54 52 54 31 31 35 5c 45 ┆RBCCN INSERT ONE DLE. NO CRC-CAL k P LDK A2,DLE l ( P XIF l < PTRT115 E┆
0x5b5c…5bac 51 55 5c 2a 00 6c 00 48 00 1c 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 43 48 41 52 20 00 6c 00 5c 00 18 00 50 5c 52 42 5c 54 52 54 31 30 30 5c 4e 45 58 54 20 43 48 41 52 00 6c 00 7c 00 14 00 50 5c 49 46 54 5c 54 52 41 ┆QU * l H P CF A5,WRITEP SEND CHAR l P RB TRT100 NEXT CHAR l | P IFT TRA┆
0x5bac…5bfc 4e 53 50 3d 30 5c 5c 20 00 6c 00 98 00 14 00 50 5c 49 46 54 5c 43 4f 4d 50 52 53 3d 30 5c 5c 20 00 6c 00 b0 00 2e 00 50 2a 20 20 20 47 52 4f 55 50 20 53 45 50 41 52 41 54 4f 52 2c 20 54 52 41 4e 53 4d 49 54 20 53 50 41 43 45 20 43 4f 55 4e ┆NSP=0 l P IFT COMPRS=0 l . P* GROUP SEPARATOR, TRANSMIT SPACE COUN┆
0x5bfc…5c4c 54 5c 00 6c 00 c8 00 12 00 50 54 52 54 31 31 37 5c 45 51 55 5c 2a 5c 5c 00 6c 00 fa 00 1e 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 54 52 41 4e 53 4d 49 54 20 47 53 5c 00 6c 01 10 00 20 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 ┆T l PTRT117 EQU * l P CF A5,WRITEP TRANSMIT GS l P SUK A3,1 DECR┆
0x5c4c…5c9c 20 42 55 46 46 20 50 4f 49 4e 54 45 52 5c 00 6c 01 32 00 22 00 50 5c 52 46 28 4e 50 29 5c 54 52 54 31 32 30 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 5c 20 00 6c 01 56 00 18 00 50 5c 4c 43 52 5c 41 32 2c 41 34 5c 47 45 54 20 43 48 41 52 5c ┆ BUFF POINTER l 2 " P RF(NP) TRT120 END OF BUFFER l V P LCR A2,A4 GET CHAR ┆