|
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: 23706 (0x5c9a)
Notes: pts_type(SC)
Names: »DRKB03.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRKB03.SC«
IDENT DRKB03 REL 9.1 78-09-15 870105840912 ADAPTED TO KEYBOARD PTS 6271/72 REL 8.1 78-04-21 * ******************************************* * * 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 * * * * 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 * * 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 DWTADR ADDRESS TO ADDRESS-BLOCK EXTRN DWTWAT SAVE INPUT DWT * * * * CONSTANTS * * * OVMASK EQU /2 OVERFLOW IN INPUT BUFFER * X:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM * * * TIME BEFORE TIME OUT * TIME EQU 300 TIME OUT CONSTANT * * * * DWT-DISPLACEMENT * * * DWTBC EQU /3 DWTCON EQU /10 CONVERSION TABLE DWTA3 EQU /12 SAVE AREA FOR A3 DWTA4 EQU /14 SAVE AREA FOR A4 DWTA5 EQU /16 SAVE AREA FOR A5 DWTSB2 EQU /1E STACK BASE DWTTP EQU /20 TIMER POINTER DWTECH EQU /22 ECHO DEVICE DWTINQ EQU /28 POINTER TO FIRST PLACE IN QUEUE DWTUTQ EQU /2A POINTER TO LAST PLACE IN QUEUE DWTSQ EQU /2C START TO QUEUE DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE * * * * SPECIAL KEYS DEFINED IN DWT * * * KBBSP EQU /24 BACK-SPACE CHARACTER KBCLR EQU /25 CLEAR CHARACTER KBMZ2 EQU /27 DOUBLE ZERO CHARACTER KBMZ3 EQU /26 * * * **************************************** * 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 * TABLES * * KBAD3 EQU * DATA ACKB ACTIVATION HANDLER DATA IHKB INTERRUPT HANDLER IFT POWOFF=1 DATA RCKB RECOVERY ROUTINE XIF IFT POWOFF=0 DATA 0 NO RECOVERY XIF * IFT POWOFF=1 * RCKB * * RECOVERY PART * * RCKB EQU * CF A15,SAVE8 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 * * * 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 * * * * ORDER 31 RESET INPUT BUFFER * * * AKB110 EQU * LD A2,DWTINQ,A6 SCR A1,A2 ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE ABL ENDIO * * * * 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 * LDK 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 * * 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 RF 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 * * * 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 * * * * 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 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 * * * 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 * * * * * 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 * * * * * 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 * * * * * 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 * * * * 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 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 * * 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 * * * 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 9.1 78-09-15 870105840912 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0068 Head {h00=0x0026, h01=0x0050, text=» ADAPTED TO KEYBOARD PTS 6271/72«, t00=0x0000, t01=0x0042}
0x0068…0084 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, 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…0446 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0002, t01=0x0122}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045a…048a Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0140}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0494…04b6 Head {h00=0x001e, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0002, t01=0x017a}
0x04b6…04da Head {h00=0x0020, h01=0x0050, text=»* ORDER 02: STANDARD READ«, t00=0x0003, t01=0x000c}
0x04da…04fe Head {h00=0x0020, h01=0x0050, text=»* ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0030}
0x04fe…0528 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31: RESET INPUT BUFFER «, t00=0x0003, t01=0x0054}
0x0528…0532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0532…053c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0088}
0x053c…0560 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x0092}
0x0560…056a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b6}
0x056a…0590 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00c0}
0x0590…05ba Head {h00=0x0026, h01=0x0050, text=»* A2 : INPUT CHARACTER«, t00=0x0003, t01=0x00e6}
0x05ba…05e2 Head {h00=0x0024, h01=0x0050, text=»* A3 : BUFFER INDEX «, t00=0x0003, t01=0x0110}
0x05e2…060a Head {h00=0x0024, h01=0x0050, text=»* A4 : WORK REGISTER«, t00=0x0003, t01=0x0138}
0x060a…0630 Head {h00=0x0022, h01=0x0050, text=»* A5 : STACK BASE «, t00=0x0003, t01=0x0160}
0x0630…0656 Head {h00=0x0022, h01=0x0050, text=»* A6 : DWT-ADDRESS«, t00=0x0003, t01=0x0186}
0x0656…0676 Head {h00=0x001c, h01=0x0050, text=»* A7 : ORDER«, t00=0x0004, t01=0x001c}
0x0676…069c Head {h00=0x0022, h01=0x0050, text=»* A8 : ECB-ADDRESS«, t00=0x0004, t01=0x003c}
0x069c…06a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06ba…06d8 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x0080}
0x06d8…06e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e2…071e Head {h00=0x0038, h01=0x0050, text=»* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0004, t01=0x00a8}
0x071e…075a Head {h00=0x0038, h01=0x0050, text=»* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0004, t01=0x00e4}
0x075a…076e Head {h00=0x0010, h01=0x0050, text=»* IN DWT.«, t00=0x0004, t01=0x0120}
0x076e…0778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x0778…07ae Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0004, t01=0x013e}
0x07ae…07ca Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT.«, t00=0x0004, t01=0x0174}
0x07ca…07d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0190}
0x07d4…0804 Head {h00=0x002c, h01=0x0050, text=»* IF TIMING IS WANTED, TIMER POINTER «, t00=0x0005, t01=0x000a}
0x0804…0834 Head {h00=0x002c, h01=0x0050, text=»* IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0005, t01=0x003a}
0x0834…086a Head {h00=0x0032, h01=0x0050, text=»* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0005, t01=0x006a}
0x086a…08a2 Head {h00=0x0034, h01=0x0050, text=»* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0005, t01=0x00a0}
0x08a2…08d0 Head {h00=0x002a, h01=0x0050, text=»* IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0005, t01=0x00d8}
0x08d0…08f8 Head {h00=0x0024, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED. «, t00=0x0005, t01=0x0106}
0x08f8…0902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012e}
0x0902…093a Head {h00=0x0034, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0005, t01=0x0138}
0x093a…0976 Head {h00=0x0038, h01=0x0050, text=»* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0005, t01=0x0170}
0x0976…09b2 Head {h00=0x0038, h01=0x0050, text=»* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0006, t01=0x001c}
0x09b2…09ce Head {h00=0x0018, h01=0x0050, text=»* DWT:S IN SYSTEM«, t00=0x0006, t01=0x0058}
0x09ce…09d8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0006, t01=0x0074}
0x09d8…09e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x09e2…0a1e Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0006, t01=0x0088}
0x0a1e…0a5a Head {h00=0x0038, h01=0x0050, text=»* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0006, t01=0x00c4}
0x0a5a…0a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0100}
0x0a64…0a84 Head {h00=0x001c, h01=0x0050, text=»* -----ECHO-FUNCTION «, t00=0x0006, t01=0x010a}
0x0a84…0aaa Head {h00=0x0022, h01=0x0050, text=»* -----POWER ON INDICATION «, t00=0x0006, t01=0x012a}
0x0aaa…0ace Head {h00=0x0020, h01=0x0050, text=»* -----TIME-OUT-FUNCTION «, t00=0x0006, t01=0x0150}
0x0ace…0af6 Head {h00=0x0024, h01=0x0050, text=»* -----NUMERIC SHIFT-FUNCTION«, t00=0x0006, t01=0x0174}
0x0af6…0b26 Head {h00=0x002c, h01=0x0050, text=»* -----KEYBOARD LOCK IF NO KEYLOCK ON«, t00=0x0007, t01=0x000c}
0x0b26…0b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b30…0b44 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0007, t01=0x0046}
0x0b44…0b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005a}
0x0b4e…0b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b58…0b7a Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD3 ADDRESS-BLOCK«, t00=0x0007, t01=0x006e}
0x0b7a…0b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b84…0b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b98…0bc2 Head {h00=0x0026, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES «, t00=0x0007, t01=0x00ae}
0x0bc2…0bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d8}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e2}
0x0bd6…0be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ec}
0x0be0…0c08 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0007, t01=0x00f6}
0x0c08…0c3a Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x0007, t01=0x011e}
0x0c3a…0c58 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x0150}
0x0c58…0c7e Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0007, t01=0x016e}
0x0c7e…0cb2 (8, 0, 400) Head {h00=0x0030, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN«, t00=0x0008, t01=0x0004}
0x0cb2…0cea Head {h00=0x0034, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCER«, t00=0x0008, t01=0x0038}
0x0cea…0d1a Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHOE HANDLING«, t00=0x0008, t01=0x0070}
0x0d1a…0d3c Head {h00=0x001e, h01=0x0050, text=» EXTRN LDREGF PANIK EXTERN«, t00=0x0008, t01=0x00a0}
0x0d3c…0d5a Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x0008, t01=0x00c2}
0x0d5a…0d78 Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x0008, t01=0x00e0}
0x0d78…0d9e Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x0008, t01=0x00fe}
0x0d9e…0dc4 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x0008, t01=0x0124}
0x0dc4…0de4 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x0008, t01=0x014a}
0x0de4…0e08 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECHEND END OF ECHOING«, t00=0x0008, t01=0x016a}
0x0e08…0e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e12…0e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0012}
0x0e26…0e42 Head {h00=0x0018, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0009, t01=0x001c}
0x0e42…0e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e56…0e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e60…0e86 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTCHP CHANEL PARAMETER«, t00=0x0009, t01=0x0056}
0x0e86…0ea2 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x007c}
0x0ea2…0ed0 Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK«, t00=0x0009, t01=0x0098}
0x0ed0…0ef4 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x0009, t01=0x00c6}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x00ea}
0x0efe…0f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f08…0f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1c…0f34 Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS «, t00=0x0009, t01=0x0112}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013e}
0x0f52…0f80 Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x0009, t01=0x0148}
0x0f80…0f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8a…0fbc Head {h00=0x002e, h01=0x0050, text=»X:F EQU 20 LENGTH OF CIRCULAR INPUT BUFFER«, t00=0x0009, t01=0x0180}
0x0fbc…0ff2 Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM«, t00=0x000a, t01=0x0022}
0x0ff2…0ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0058}
0x0ffc…1006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1006…1028 Head {h00=0x001e, h01=0x0050, text=»* TIME BEFORE TIME OUT«, t00=0x000a, t01=0x006c}
0x1028…1032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008e}
0x1032…1058 Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIME OUT CONSTANT«, t00=0x000a, t01=0x0098}
0x1058…1062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00be}
0x1062…106c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c8}
0x106c…1076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1076…1094 Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x000a, t01=0x00dc}
0x1094…109e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fa}
0x109e…10a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0104}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010e}
0x10b2…10c6 Head {h00=0x0010, h01=0x0050, text=»DWTBC EQU /3«, t00=0x000a, t01=0x0118}
0x10c6…10ee Head {h00=0x0024, h01=0x0050, text=»DWTCON EQU /10 CONVERSION TABLE «, t00=0x000a, t01=0x012c}
0x10ee…1114 Head {h00=0x0022, h01=0x0050, text=»DWTA3 EQU /12 SAVE AREA FOR A3«, t00=0x000a, t01=0x0154}
0x1114…113a Head {h00=0x0022, h01=0x0050, text=»DWTA4 EQU /14 SAVE AREA FOR A4«, t00=0x000a, t01=0x017a}
0x113a…1160 Head {h00=0x0022, h01=0x0050, text=»DWTA5 EQU /16 SAVE AREA FOR A5«, t00=0x000b, t01=0x0010}
0x1160…1182 Head {h00=0x001e, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE «, t00=0x000b, t01=0x0036}
0x1182…11a6 Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /20 TIMER POINTER «, t00=0x000b, t01=0x0058}
0x11a6…11c8 Head {h00=0x001e, h01=0x0050, text=»DWTECH EQU /22 ECHO DEVICE«, t00=0x000b, t01=0x007c}
0x11c8…11fe Head {h00=0x0032, h01=0x0050, text=»DWTINQ EQU /28 POINTER TO FIRST PLACE IN QUEUE«, t00=0x000b, t01=0x009e}
0x11fe…1234 Head {h00=0x0032, h01=0x0050, text=»DWTUTQ EQU /2A POINTER TO LAST PLACE IN QUEUE «, t00=0x000b, t01=0x00d4}
0x1234…1258 Head {h00=0x0020, h01=0x0050, text=»DWTSQ EQU /2C START TO QUEUE«, t00=0x000b, t01=0x010a}
0x1258…1284 Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x000b, t01=0x012e}
0x1284…128e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015a}
0x128e…1298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0164}
0x1298…12a2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x016e}
0x12a2…12ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0178}
0x12ac…12d8 Head {h00=0x0028, h01=0x0050, text=»* SPECIAL KEYS DEFINED IN DWT «, t00=0x000b, t01=0x0182}
0x12d8…12e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12e2…12ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0028}
0x12ec…12f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0032}
0x12f6…1320 Head {h00=0x0026, h01=0x0050, text=»KBBSP EQU /24 BACK-SPACE CHARACTER«, t00=0x000c, t01=0x003c}
0x1320…1346 Head {h00=0x0022, h01=0x0050, text=»KBCLR EQU /25 CLEAR CHARACTER «, t00=0x000c, t01=0x0066}
0x1346…1372 Head {h00=0x0028, h01=0x0050, text=»KBMZ2 EQU /27 DOUBLE ZERO CHARACTER «, t00=0x000c, t01=0x008c}
0x1372…1388 Head {h00=0x0012, h01=0x0050, text=»KBMZ3 EQU /26 «, t00=0x000c, t01=0x00b8}
0x1388…1392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000c, t01=0x00d8}
0x139c…13a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e2}
0x13a6…13b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b0…13e0 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000c, t01=0x00f6}
0x13e0…1410 Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000c, t01=0x0126}
0x1410…1440 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000c, t01=0x0156}
0x1440…144a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x144a…147c Head {h00=0x002e, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000c, t01=0x0190}
0x147c…149a Head {h00=0x001a, h01=0x0050, text=»* SETTING X:A = 0. «, t00=0x000d, t01=0x0032}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0050}
0x14a4…14b6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x005a}
0x14b6…14cc Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000d, t01=0x006c}
0x14cc…14d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x14d6…1504 Head {h00=0x002a, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000d, t01=0x008c}
0x1504…1522 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:B = 0. «, t00=0x000d, t01=0x00ba}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152c…153e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000d, t01=0x00e2}
0x153e…1554 Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:B «, t00=0x000d, t01=0x00f4}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155e…15a0 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION «, t00=0x000d, t01=0x0114}
0x15a0…15ca Head {h00=0x0026, h01=0x0050, text=»* IS INCLUDED IN THE DRIVER. «, t00=0x000d, t01=0x0156}
0x15ca…160a Head {h00=0x003c, h01=0x0050, text=»* IF THERE IS A READ REQUEST THIS IS COMPLETED WITH«, t00=0x000d, t01=0x0180}
0x160a…163a Head {h00=0x002c, h01=0x0050, text=»* ZERO IN THE CONTROL WORD OF ECB. «, t00=0x000e, t01=0x0030}
0x163a…167e Head {h00=0x0040, h01=0x0050, text=»* IF THERE IS NO READ REQUEST , THE FIRST READ REQUEST «, t00=0x000e, t01=0x0060}
0x167e…16c2 Head {h00=0x0040, h01=0x0050, text=»* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD«, t00=0x000e, t01=0x00a4}
0x16c2…16d8 Head {h00=0x0012, h01=0x0050, text=»* OF ECB «, t00=0x000e, t01=0x00e8}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fe}
0x16e2…16ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0108}
0x16ec…16fe Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000e, t01=0x0112}
0x16fe…1714 Head {h00=0x0012, h01=0x0050, text=»POWOFF EQU X:E«, t00=0x000e, t01=0x0124}
0x1714…171e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013a}
0x171e…1728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x1728…1732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1732…1784 Head {h00=0x004e, h01=0x0050, text=»* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72«, t00=0x000e, t01=0x0158}
0x1784…1796 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x000f, t01=0x001a}
0x1796…17ac Head {h00=0x0012, h01=0x0050, text=»NSHIFT EQU X:H«, t00=0x000f, t01=0x002c}
0x17ac…17b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0042}
0x17b6…17c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004c}
0x17c0…1806 Head {h00=0x0042, h01=0x0050, text=»* BY SETTING X:I = 1 KEYBOARD IS LOCKED IF NO KEYLOCK ON. «, t00=0x000f, t01=0x0056}
0x1806…1818 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000f, t01=0x009c}
0x1818…182e Head {h00=0x0012, h01=0x0050, text=»KBLOCK EQU X:I«, t00=0x000f, t01=0x00ae}
0x182e…1838 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00c4}
0x1838…184e Head {h00=0x0012, h01=0x0050, text=»* TABLES «, t00=0x000f, t01=0x00ce}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e4}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…1876 Head {h00=0x0010, h01=0x0050, text=»KBAD3 EQU * «, t00=0x000f, t01=0x00f8}
0x1876…189c Head {h00=0x0022, h01=0x0050, text=» DATA ACKB ACTIVATION HANDLER «, t00=0x000f, t01=0x010c}
0x189c…18c0 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x000f, t01=0x0132}
0x18c0…18d6 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x000f, t01=0x0156}
0x18d6…18fa Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x000f, t01=0x016c}
0x18fa…1906 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0190}
0x1906…191c Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=0 «, t00=0x0010, t01=0x000c}
0x191c…1938 Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0010, t01=0x0022}
0x1938…1944 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x003e}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004a}
0x194e…1964 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0010, t01=0x0054}
0x1964…196e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0010, t01=0x006a}
0x196e…1980 Head {h00=0x000e, h01=0x0050, text=»* RCKB «, t00=0x0010, t01=0x0074}
0x1980…198a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x198a…19a4 Head {h00=0x0016, h01=0x0050, text=»* RECOVERY PART«, t00=0x0010, t01=0x0090}
0x19a4…19ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00aa}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b8…19ca Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0010, t01=0x00be}
0x19ca…19e0 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0010, t01=0x00d0}
0x19e0…19fe Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY? «, t00=0x0010, t01=0x00e6}
0x19fe…1a14 Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0010, t01=0x0104}
0x1a14…1a2a Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0010, t01=0x011a}
0x1a2a…1a56 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF «, t00=0x0010, t01=0x0130}
0x1a56…1a68 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0010, t01=0x015c}
0x1a68…1a92 Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x0010, t01=0x016e}
0x1a92…1aa4 Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x0011, t01=0x0008}
0x1aa4…1ab0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x001a}
0x1ab0…1aba Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0011, t01=0x0026}
0x1aba…1ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0030}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1ace…1ae2 Head {h00=0x0010, h01=0x0050, text=»* ACKB «, t00=0x0011, t01=0x0044}
0x1ae2…1aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1aec…1b2a Head {h00=0x003a, h01=0x0050, text=»* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND «, t00=0x0011, t01=0x0062}
0x1b2a…1b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a0}
0x1b34…1b78 Head {h00=0x0040, h01=0x0050, text=»* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER«, t00=0x0011, t01=0x00aa}
0x1b78…1b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b82…1b9a Head {h00=0x0014, h01=0x0050, text=»* TO THREAT«, t00=0x0011, t01=0x00f8}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0110}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011a}
0x1bae…1bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x1bb8…1bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012e}
0x1bc2…1bd4 Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0011, t01=0x0138}
0x1bd4…1bea Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x0011, t01=0x014a}
0x1bea…1c20 Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INETRRUPT ALLOWED FLAG «, t00=0x0011, t01=0x0160}
0x1c20…1c32 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0012, t01=0x0008}
0x1c32…1c56 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0012, t01=0x001a}
0x1c56…1c68 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0012, t01=0x003e}
0x1c68…1c8c Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0012, t01=0x0050}
0x1c8c…1c9e Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0012, t01=0x0074}
0x1c9e…1cc2 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x0012, t01=0x0086}
0x1cc2…1cd6 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x0012, t01=0x00aa}
0x1cd6…1cf4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0012, t01=0x00be}
0x1cf4…1d22 Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/0 REQUEST ERROR«, t00=0x0012, t01=0x00dc}
0x1d22…1d36 Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x0012, t01=0x010a}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x011e}
0x1d40…1d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0128}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0132}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013c}
0x1d5e…1d88 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31 RESET INPUT BUFFER«, t00=0x0012, t01=0x0146}
0x1d88…1d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0170}
0x1d92…1d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017a}
0x1d9c…1da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0184}
0x1da6…1dba Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0012, t01=0x018e}
0x1dba…1dd2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTINQ,A6«, t00=0x0013, t01=0x0012}
0x1dd2…1de4 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0013, t01=0x002a}
0x1de4…1e10 Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x0013, t01=0x003c}
0x1e10…1e22 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0013, t01=0x0068}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0013, t01=0x0084}
0x1e36…1e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x008e}
0x1e40…1e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0098}
0x1e4a…1e64 Head {h00=0x0016, h01=0x0050, text=»* ORDER 1,2,3«, t00=0x0013, t01=0x00a2}
0x1e64…1e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00bc}
0x1e6e…1e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c6}
0x1e78…1e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e82…1e96 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0013, t01=0x00da}
0x1e96…1eac Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0013, t01=0x00ee}
0x1eac…1ec4 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0013, t01=0x0104}
0x1ec4…1ee4 Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 POWER OFF?«, t00=0x0013, t01=0x011c}
0x1ee4…1efe Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO! «, t00=0x0013, t01=0x013c}
0x1efe…1f2a Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POWER OFF BIT«, t00=0x0013, t01=0x0156}
0x1f2a…1f3e Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x0013, t01=0x0182}
0x1f3e…1f7a Head {h00=0x0038, h01=0x0050, text=» CWK A7,1 IF BASIC READ DON'T COMPLEATE THE REQUEST «, t00=0x0014, t01=0x0008}
0x1f7a…1f90 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x0014, t01=0x0044}
0x1f90…1fb4 Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER OFF«, t00=0x0014, t01=0x005a}
0x1fb4…1fc6 Head {h00=0x000e, h01=0x0050, text=» RF AKB218«, t00=0x0014, t01=0x007e}
0x1fc6…1fd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0090}
0x1fd2…1fe6 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0014, t01=0x009c}
0x1fe6…1ffc Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0014, t01=0x00b0}
0x1ffc…2010 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0014, t01=0x00c6}
0x2010…202c Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING? «, t00=0x0014, t01=0x00da}
0x202c…205c Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE!«, t00=0x0014, t01=0x00f6}
0x205c…208c Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTTP,A6 CHECK IF ALREADY TIMING «, t00=0x0014, t01=0x0126}
0x208c…20a2 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x0014, t01=0x0156}
0x20a2…20b8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0014, t01=0x016c}
0x20b8…20d0 Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x0014, t01=0x0182}
0x20d0…20e2 Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x0015, t01=0x000a}
0x20e2…20f6 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x0015, t01=0x001c}
0x20f6…211a Head {h00=0x0020, h01=0x0050, text=» LDK A4,DWTTP TIMER POINTER «, t00=0x0015, t01=0x0030}
0x211a…213c Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x0015, t01=0x0054}
0x213c…214e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0015, t01=0x0076}
0x214e…216e Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0015, t01=0x0088}
0x216e…21a2 Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0015, t01=0x00a8}
0x21a2…21d4 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0015, t01=0x00dc}
0x21d4…21e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x010e}
0x21e0…21ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21ea…21f4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0015, t01=0x0124}
0x21f4…2214 Head {h00=0x001c, h01=0x0050, text=»* IF ANY KEY-LOCK: «, t00=0x0015, t01=0x012e}
0x2214…221e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x221e…225c Head {h00=0x003a, h01=0x0050, text=»* RESET "CHANGED-KEY" FLAG AND MAKE KEY-CHARACTER«, t00=0x0015, t01=0x0158}
0x225c…2296 Head {h00=0x0036, h01=0x0050, text=»* OF FLAG. STORE KEY-CHARACTER IN ECB-BUFFER.«, t00=0x0016, t01=0x0008}
0x2296…22d6 Head {h00=0x003c, h01=0x0050, text=»* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE«, t00=0x0016, t01=0x0042}
0x22d6…2300 Head {h00=0x0026, h01=0x0050, text=»* AND END I/O. ELSE CONTINUE.«, t00=0x0016, t01=0x0082}
0x2300…230a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ac}
0x230a…2314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b6}
0x2314…2328 Head {h00=0x0010, h01=0x0050, text=»AKB210 EQU *«, t00=0x0016, t01=0x00c0}
0x2328…234e Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 ANY KEY-LOCK? «, t00=0x0016, t01=0x00d4}
0x234e…2360 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0016, t01=0x00fa}
0x2360…2376 Head {h00=0x0012, h01=0x0050, text=» RF(Z) AKB219 «, t00=0x0016, t01=0x010c}
0x2376…2388 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0016, t01=0x0122}
0x2388…239a Head {h00=0x000e, h01=0x0050, text=» SRN A2,A4«, t00=0x0016, t01=0x0134}
0x239a…23ac Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0016, t01=0x0146}
0x23ac…23be Head {h00=0x000e, h01=0x0050, text=» CWK A4,3 «, t00=0x0016, t01=0x0158}
0x23be…23d4 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB212 «, t00=0x0016, t01=0x016a}
0x23d4…23ea Head {h00=0x0012, h01=0x0050, text=» RF(P) AKB211 «, t00=0x0016, t01=0x0180}
0x23ea…23fc Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0017, t01=0x0008}
0x23fc…240e Head {h00=0x000e, h01=0x0050, text=» RF AKB212«, t00=0x0017, t01=0x001a}
0x240e…2426 Head {h00=0x0014, h01=0x0050, text=»AKB211 ADR A4,A4«, t00=0x0017, t01=0x002c}
0x2426…2458 Head {h00=0x002e, h01=0x0050, text=»AKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG «, t00=0x0017, t01=0x0044}
0x2458…246a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0017, t01=0x0076}
0x246a…247c Head {h00=0x000e, h01=0x0050, text=» SLL A4,4 «, t00=0x0017, t01=0x0088}
0x247c…2494 Head {h00=0x0014, h01=0x0050, text=» AN A4,DWTST,A6 «, t00=0x0017, t01=0x009a}
0x2494…24b0 Head {h00=0x0018, h01=0x0050, text=» STR A4,A15 SAVE A4 «, t00=0x0017, t01=0x00b2}
0x24b0…24c4 Head {h00=0x0010, h01=0x0050, text=» STR A3,A15 «, t00=0x0017, t01=0x00ce}
0x24c4…24de Head {h00=0x0016, h01=0x0050, text=» SRN A2,A3 ORDER 1«, t00=0x0017, t01=0x00e2}
0x24de…2504 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A3 MAKE CHARACTER FLAG«, t00=0x0017, t01=0x00fc}
0x2504…2516 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0017, t01=0x0122}
0x2516…252e Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB213 «, t00=0x0017, t01=0x0134}
0x252e…2540 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0017, t01=0x014c}
0x2540…255a Head {h00=0x0016, h01=0x0050, text=»AKB213 ADK A3,/70 «, t00=0x0017, t01=0x015e}
0x255a…256c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0017, t01=0x0178}
0x256c…2580 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A15«, t00=0x0017, t01=0x018a}
0x2580…25ae Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE KEY IN ECB BUFFER «, t00=0x0018, t01=0x000e}
0x25ae…25ce Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A4 «, t00=0x0018, t01=0x003c}
0x25ce…25e0 Head {h00=0x000e, h01=0x0050, text=» CWK A7,1 «, t00=0x0018, t01=0x005c}
0x25e0…2608 Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB307 JUMP IF BASIC READ«, t00=0x0018, t01=0x006e}
0x2608…262e Head {h00=0x0022, h01=0x0050, text=»AKB214 NGR A2,A1 MAKE ECB CODE«, t00=0x0018, t01=0x0096}
0x262e…264a Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 KEY FLAG «, t00=0x0018, t01=0x00bc}
0x264a…2660 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB215 «, t00=0x0018, t01=0x00d8}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x0018, t01=0x00ee}
0x2672…26a2 Head {h00=0x002c, h01=0x0050, text=»AKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB «, t00=0x0018, t01=0x0100}
0x26a2…26bc Head {h00=0x0016, h01=0x0050, text=»AKB218 ABL AKB380 «, t00=0x0018, t01=0x0130}
0x26bc…26e8 Head {h00=0x0028, h01=0x0050, text=»AKB219 LD A2,4,A8 REQUESTED LENGTH=0«, t00=0x0018, t01=0x014a}
0x26e8…2704 Head {h00=0x0018, h01=0x0050, text=»AKB220 ABL(E) AKB380«, t00=0x0018, t01=0x0176}
0x2704…272a (25, 0, 400) Head {h00=0x0022, h01=0x0050, text=»AKB225 LDR A3,A3 FIRTST RIME? «, t00=0x0019, t01=0x0004}
0x272a…2744 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 N0!«, t00=0x0019, t01=0x002a}
0x2744…2766 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x0019, t01=0x0044}
0x2766…2778 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0019, t01=0x0066}
0x2778…278a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0019, t01=0x0078}
0x278a…27b4 Head {h00=0x0026, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR ECB BUFFER «, t00=0x0019, t01=0x008a}
0x27b4…27c6 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0019, t01=0x00b4}
0x27c6…27d8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0019, t01=0x00c6}
0x27d8…27ee Head {h00=0x0012, h01=0x0050, text=» RB(NE) AKB230«, t00=0x0019, t01=0x00d8}
0x27ee…2802 Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x0019, t01=0x00ee}
0x2802…281a Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x0019, t01=0x0102}
0x281a…282c Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0019, t01=0x011a}
0x282c…2844 Head {h00=0x0014, h01=0x0050, text=»AKB245 LDR A4,A2«, t00=0x0019, t01=0x012c}
0x2844…2862 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW? «, t00=0x0019, t01=0x0144}
0x2862…287c Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB250 N0!«, t00=0x0019, t01=0x0162}
0x287c…289a Head {h00=0x001a, h01=0x0050, text=»AKB247 SCR A4,A1 YES! «, t00=0x0019, t01=0x017c}
0x289a…28be Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x001a, t01=0x000a}
0x28be…28d8 Head {h00=0x0016, h01=0x0050, text=» RF ENDIX END I/O «, t00=0x001a, t01=0x002e}
0x28d8…290a Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x001a, t01=0x0048}
0x290a…2922 Head {h00=0x0014, h01=0x0050, text=» RF(NE) AKB255 «, t00=0x001a, t01=0x007a}
0x2922…2948 Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x001a, t01=0x0092}
0x2948…295e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001a, t01=0x00b8}
0x295e…298c Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x001a, t01=0x00ce}
0x298c…29ae Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB257 NO TIME OUT «, t00=0x001a, t01=0x00fc}
0x29ae…29d6 Head {h00=0x0024, h01=0x0050, text=» ABL ENDI05 END I/O AT TIME OUT «, t00=0x001a, t01=0x011e}
0x29d6…29e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0146}
0x29e2…29f8 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x001a, t01=0x0152}
0x29f8…2a0a Head {h00=0x000e, h01=0x0050, text=» RF AKB257«, t00=0x001a, t01=0x0168}
0x2a0a…2a16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x017a}
0x2a16…2a44 Head {h00=0x002a, h01=0x0050, text=»AKB255 CF A15,EOQUEU NEXT OUT POINTER «, t00=0x001a, t01=0x0186}
0x2a44…2a6e Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x001b, t01=0x0024}
0x2a6e…2a82 Head {h00=0x0010, h01=0x0050, text=»AKB257 EQU *«, t00=0x001b, t01=0x004e}
0x2a82…2a94 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001b, t01=0x0062}
0x2a94…2aa6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001b, t01=0x0074}
0x2aa6…2aca Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x001b, t01=0x0086}
0x2aca…2ad4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001b, t01=0x00aa}
0x2ad4…2ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b4}
0x2ade…2ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00be}
0x2ae8…2b08 Head {h00=0x001c, h01=0x0050, text=»* ORDER 1 BASIC READ«, t00=0x001b, t01=0x00c8}
0x2b08…2b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e8}
0x2b12…2b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b1c…2b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fc}
0x2b26…2b60 Head {h00=0x0036, h01=0x0050, text=»AKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x001b, t01=0x0106}
0x2b60…2b74 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x001b, t01=0x0140}
0x2b74…2b88 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x001b, t01=0x0154}
0x2b88…2b94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0168}
0x2b94…2bae Head {h00=0x0016, h01=0x0050, text=»AKB307 CW A3,4,A8 «, t00=0x001b, t01=0x0174}
0x2bae…2bde Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB380 END I/O IF REQ=EFF LENGTH «, t00=0x001b, t01=0x018e}
0x2bde…2c00 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 MORE KEYS?«, t00=0x001c, t01=0x002e}
0x2c00…2c12 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001c, t01=0x0050}
0x2c12…2c28 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AKB210«, t00=0x001c, t01=0x0062}
0x2c28…2c3a Head {h00=0x000e, h01=0x0050, text=» RB AKB225«, t00=0x001c, t01=0x0078}
0x2c3a…2c44 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001c, t01=0x008a}
0x2c44…2c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0094}
0x2c4e…2c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x2c58…2c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a8}
0x2c62…2c9a Head {h00=0x0034, h01=0x0050, text=»* ORDER 2 OR 3 STANDARD AND NUMERIC READ «, t00=0x001c, t01=0x00b2}
0x2c9a…2ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ea}
0x2ca4…2cea Head {h00=0x0042, h01=0x0050, text=»* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) «, t00=0x001c, t01=0x00f4}
0x2cea…2cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013a}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0144}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014e}
0x2d08…2d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0158}
0x2d12…2d26 Head {h00=0x0010, h01=0x0050, text=»AKB310 EQU *«, t00=0x001c, t01=0x0162}
0x2d26…2d4c Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x001c, t01=0x0176}
0x2d4c…2d6e Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB360 NO KEY-TABLE«, t00=0x001d, t01=0x000c}
0x2d6e…2d98 Head {h00=0x0026, h01=0x0050, text=» LCR A4,A1 KEY-TABLE LENGTH IN A4 «, t00=0x001d, t01=0x002e}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x001d, t01=0x0058}
0x2dac…2dd6 Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x001d, t01=0x006c}
0x2dd6…2de8 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x001d, t01=0x0096}
0x2de8…2e00 Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x001d, t01=0x00a8}
0x2e00…2e30 Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x001d, t01=0x00c0}
0x2e30…2e4a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x001d, t01=0x00f0}
0x2e4a…2e62 Head {h00=0x0014, h01=0x0050, text=» CCR A2,A1 EOR? «, t00=0x001d, t01=0x010a}
0x2e62…2e7c Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO!«, t00=0x001d, t01=0x0122}
0x2e7c…2e8e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x013c}
0x2e8e…2ebe Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x001d, t01=0x014e}
0x2ebe…2ee4 Head {h00=0x0022, h01=0x0050, text=» CF A15,STORE STORE CHARACTER «, t00=0x001d, t01=0x017e}
0x2ee4…2ef8 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x001e, t01=0x0014}
0x2ef8…2f22 Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR-CHARACTER«, t00=0x001e, t01=0x0028}
0x2f22…2f48 Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHO ECHO EOR-CHARACTER«, t00=0x001e, t01=0x0052}
0x2f48…2f54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0078}
0x2f54…2f66 Head {h00=0x000e, h01=0x0050, text=» RF AKB380«, t00=0x001e, t01=0x0084}
0x2f66…2f7a Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x001e, t01=0x0096}
0x2f7a…2f8c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001e, t01=0x00aa}
0x2f8c…2fa4 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ2,A6 «, t00=0x001e, t01=0x00bc}
0x2fa4…2fba Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ20 «, t00=0x001e, t01=0x00d4}
0x2fba…2fd2 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBMZ3,A6 «, t00=0x001e, t01=0x00ea}
0x2fd2…2fe8 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBMZ30 «, t00=0x001e, t01=0x0102}
0x2fe8…3000 Head {h00=0x0014, h01=0x0050, text=» CC A4,KBBSP,A6 «, t00=0x001e, t01=0x0118}
0x3000…3016 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x001e, t01=0x0130}
0x3016…302e Head {h00=0x0014, h01=0x0050, text=» CC A4,KBCLR,A6 «, t00=0x001e, t01=0x0146}
0x302e…3044 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x001e, t01=0x015e}
0x3044…3074 Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN BUFFER «, t00=0x001e, t01=0x0174}
0x3074…3086 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001f, t01=0x0014}
0x3086…30b2 Head {h00=0x0028, h01=0x0050, text=» SUK A4,/20 CHEC CONVERTED CHARACTER«, t00=0x001f, t01=0x0026}
0x30b2…30d6 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB364 LESS THAN /20 «, t00=0x001f, t01=0x0052}
0x30d6…30fa Head {h00=0x0020, h01=0x0050, text=» SUK A4,/5F CHARACTER > /7F «, t00=0x001f, t01=0x0076}
0x30fa…3114 Head {h00=0x0016, h01=0x0050, text=» RF(P) AKB364 YES «, t00=0x001f, t01=0x009a}
0x3114…3126 Head {h00=0x000e, h01=0x0050, text=» CWK A7,2 «, t00=0x001f, t01=0x00b4}
0x3126…314e Head {h00=0x0024, h01=0x0050, text=» RF(E) AKB366 STANDARD READ OK «, t00=0x001f, t01=0x00c6}
0x314e…3162 Head {h00=0x0010, h01=0x0050, text=» ADK A4,/4F «, t00=0x001f, t01=0x00ee}
0x3162…3178 Head {h00=0x0012, h01=0x0050, text=» RF(N) AKB364 «, t00=0x001f, t01=0x0102}
0x3178…318a Head {h00=0x000e, h01=0x0050, text=» SUK A4,/A«, t00=0x001f, t01=0x0118}
0x318a…31b0 Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB366 NUMERIC READ OK«, t00=0x001f, t01=0x012a}
0x31b0…31d2 Head {h00=0x001e, h01=0x0050, text=»AKB364 LDK A1,4 ERROR CODE«, t00=0x001f, t01=0x0150}
0x31d2…31e4 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x001f, t01=0x0172}
0x31e4…31f8 Head {h00=0x0010, h01=0x0050, text=»AKB366 EQU *«, t00=0x001f, t01=0x0184}
0x31f8…320c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0020, t01=0x0008}
0x320c…3220 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0020, t01=0x001c}
0x3220…3234 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0020, t01=0x0030}
0x3234…3240 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0044}
0x3240…3264 Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0020, t01=0x0050}
0x3264…328a Head {h00=0x0022, h01=0x0050, text=»AKB367 ABL(L) AKB210 NO RETURN«, t00=0x0020, t01=0x0074}
0x328a…32b4 Head {h00=0x0026, h01=0x0050, text=»AKB368 LDK A1,8 YES SET ERROR CODE«, t00=0x0020, t01=0x009a}
0x32b4…32ce Head {h00=0x0016, h01=0x0050, text=» RF ENDIO END I/O «, t00=0x0020, t01=0x00c4}
0x32ce…32d8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0020, t01=0x00de}
0x32d8…32fa Head {h00=0x001e, h01=0x0050, text=»KBMZ30 EQU * TRIPPLE ZERO «, t00=0x0020, t01=0x00e8}
0x32fa…330c Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0020, t01=0x010a}
0x330c…331e Head {h00=0x000e, h01=0x0050, text=» RF KBMZ25«, t00=0x0020, t01=0x011c}
0x331e…3342 Head {h00=0x0020, h01=0x0050, text=»KBMZ20 LDK A4,2 DOUBLE ZERO «, t00=0x0020, t01=0x012e}
0x3342…335c Head {h00=0x0016, h01=0x0050, text=»KBMZ25 LDK A2,/30 «, t00=0x0020, t01=0x0152}
0x335c…336e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0020, t01=0x016c}
0x336e…3384 Head {h00=0x0012, h01=0x0050, text=» RB(L) AKB367 «, t00=0x0020, t01=0x017e}
0x3384…3396 (33, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0021, t01=0x0004}
0x3396…33ac Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0021, t01=0x0016}
0x33ac…33be Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0021, t01=0x002c}
0x33be…33d2 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0021, t01=0x003e}
0x33d2…33e6 Head {h00=0x0010, h01=0x0050, text=» CF A5,ECHO «, t00=0x0021, t01=0x0052}
0x33e6…33f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0066}
0x33f2…3406 Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x0021, t01=0x0072}
0x3406…341c Head {h00=0x0012, h01=0x0050, text=» RB(L) KBMZ25 «, t00=0x0021, t01=0x0086}
0x341c…3430 Head {h00=0x0010, h01=0x0050, text=»KBMZ27 EQU *«, t00=0x0021, t01=0x009c}
0x3430…3452 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES «, t00=0x0021, t01=0x00b0}
0x3452…347a Head {h00=0x0024, h01=0x0050, text=» RB(L) AKB368 NO,SET RETURN CODE«, t00=0x0021, t01=0x00d2}
0x347a…3486 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0021, t01=0x00fa}
0x3486…34b4 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x0021, t01=0x0106}
0x34b4…34c6 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0021, t01=0x0134}
0x34c6…34ec Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x0021, t01=0x0146}
0x34ec…3506 Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ29 NO «, t00=0x0021, t01=0x016c}
0x3506…3536 Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x0021, t01=0x0186}
0x3536…3548 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0022, t01=0x0026}
0x3548…355a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0022, t01=0x0038}
0x355a…356c Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x0022, t01=0x004a}
0x356c…35a2 Head {h00=0x0032, h01=0x0050, text=»KBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x0022, t01=0x005c}
0x35a2…35b4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0022, t01=0x0092}
0x35b4…35e4 Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x0022, t01=0x00a4}
0x35e4…3608 Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x0022, t01=0x00d4}
0x3608…363c Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x0022, t01=0x00f8}
0x363c…3666 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x0022, t01=0x012c}
0x3666…3686 Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x0022, t01=0x0156}
0x3686…3698 Head {h00=0x000e, h01=0x0050, text=» RB KBMZ27«, t00=0x0022, t01=0x0176}
0x3698…36ac Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x0022, t01=0x0188}
0x36ac…36d8 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x0023, t01=0x000c}
0x36d8…36ea Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x0023, t01=0x0038}
0x36ea…3712 Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x0023, t01=0x004a}
0x3712…373e Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x0023, t01=0x0072}
0x373e…3770 Head {h00=0x002e, h01=0x0050, text=»ENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS«, t00=0x0023, t01=0x009e}
0x3770…377a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d0}
0x377a…3784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00da}
0x3784…378e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e4}
0x378e…37a8 Head {h00=0x0016, h01=0x0050, text=»KBCL10 EQU * CLEAR«, t00=0x0023, t01=0x00ee}
0x37a8…37ba Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0023, t01=0x0108}
0x37ba…37ce Head {h00=0x0010, h01=0x0050, text=» LDK A2,/18 «, t00=0x0023, t01=0x011a}
0x37ce…37e0 Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0023, t01=0x012e}
0x37e0…37ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0140}
0x37ea…37f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014a}
0x37f4…37fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x37fe…3812 Head {h00=0x0010, h01=0x0050, text=»KBSP10 EQU *«, t00=0x0023, t01=0x015e}
0x3812…3824 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0023, t01=0x0172}
0x3824…383a Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0023, t01=0x0184}
0x383a…384c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0024, t01=0x000a}
0x384c…387c Head {h00=0x002c, h01=0x0050, text=» SUR A2,A2 CLEAR LAST CHAR IN ECB-BUFFER«, t00=0x0024, t01=0x001c}
0x387c…3892 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0024, t01=0x004c}
0x3892…38a4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0024, t01=0x0062}
0x38a4…38bc Head {h00=0x0014, h01=0x0050, text=»KBSP15 LDK A2,/8«, t00=0x0024, t01=0x0074}
0x38bc…38ce Head {h00=0x000e, h01=0x0050, text=» RB AKB366«, t00=0x0024, t01=0x008c}
0x38ce…38d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009e}
0x38d8…38e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a8}
0x38e2…3906 Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x0024, t01=0x00b2}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0024, t01=0x00d6}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x391a…3924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ea}
0x3924…3954 Head {h00=0x002c, h01=0x0050, text=»* THIS IS A COMMON END OF THE DRIVER «, t00=0x0024, t01=0x00f4}
0x3954…395e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0124}
0x395e…3994 Head {h00=0x0032, h01=0x0050, text=»* SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x0024, t01=0x012e}
0x3994…39bc Head {h00=0x0024, h01=0x0050, text=»* ON KEYBOARD AND ECHO-DEVICE«, t00=0x0024, t01=0x0164}
0x39bc…39c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018c}
0x39c6…39d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39d0…39e4 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0025, t01=0x0012}
0x39e4…39ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0026}
0x39ee…39fa Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0025, t01=0x0030}
0x39fa…3a10 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0025, t01=0x003c}
0x3a10…3a28 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0025, t01=0x0052}
0x3a28…3a56 Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x0025, t01=0x006a}
0x3a56…3a78 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0025, t01=0x0098}
0x3a78…3a8c Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0025, t01=0x00ba}
0x3a8c…3a98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00ce}
0x3a98…3aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00da}
0x3aa2…3ad2 Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0025, t01=0x00e4}
0x3ad2…3ae6 Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x0025, t01=0x0114}
0x3ae6…3af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0128}
0x3af0…3b04 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0025, t01=0x0132}
0x3b04…3b1e Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0025, t01=0x0146}
0x3b1e…3b4a Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x0025, t01=0x0160}
0x3b4a…3b68 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x0025, t01=0x018c}
0x3b68…3b74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x001a}
0x3b74…3b88 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0026, t01=0x0026}
0x3b88…3b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003a}
0x3b92…3b9c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0026, t01=0x0044}
0x3b9c…3ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x004e}
0x3ba6…3bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0058}
0x3bb0…3bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bba…3bcc Head {h00=0x000e, h01=0x0050, text=»* IHKB«, t00=0x0026, t01=0x006c}
0x3bcc…3bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007e}
0x3bd6…3be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0088}
0x3be0…3c2a Head {h00=0x0046, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER «, t00=0x0026, t01=0x0092}
0x3c2a…3c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00dc}
0x3c34…3c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e6}
0x3c3e…3c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f0}
0x3c48…3c5a Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0026, t01=0x00fa}
0x3c5a…3c6e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0026, t01=0x010c}
0x3c6e…3c9c Head {h00=0x002a, h01=0x0050, text=» CF A15,KONVER CONVERT INPUT CHARACTER«, t00=0x0026, t01=0x0120}
0x3c9c…3cc0 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 TEST TYPE OF CHAR«, t00=0x0026, t01=0x014e}
0x3cc0…3ce4 Head {h00=0x0020, h01=0x0050, text=» RF(P) EXIT SHIFT/CTRL/SKIP «, t00=0x0026, t01=0x0172}
0x3ce4…3d02 Head {h00=0x001a, h01=0x0050, text=» RF(N) IHKB12 KEY-LOCK«, t00=0x0027, t01=0x0008}
0x3d02…3d0a Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0026}
0x3d0a…3d2e Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 NORMAL CHAR «, t00=0x0027, t01=0x002e}
0x3d2e…3d44 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0027, t01=0x0052}
0x3d44…3d58 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x0068}
0x3d58…3d6c Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x0027, t01=0x007c}
0x3d6c…3d90 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x0027, t01=0x0090}
0x3d90…3d9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00b4}
0x3d9c…3dca Head {h00=0x002a, h01=0x0050, text=» RF(N) IHKB15 NO READ REQUEST PENDING «, t00=0x0027, t01=0x00c0}
0x3dca…3df0 Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPT ALLOWED ? «, t00=0x0027, t01=0x00ee}
0x3df0…3e28 Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB15 NO, STORE CHARACTER IN DWT-BUFFER«, t00=0x0027, t01=0x0114}
0x3e28…3e3e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0027, t01=0x014c}
0x3e3e…3e56 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x0027, t01=0x0162}
0x3e56…3e84 Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB07 NO TIMING ON THIS DEVICE«, t00=0x0027, t01=0x017a}
0x3e84…3ea8 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x0028, t01=0x0018}
0x3ea8…3ec0 Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0028, t01=0x003c}
0x3ec0…3ecc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0054}
0x3ecc…3efc Head {h00=0x002c, h01=0x0050, text=»IHKB07 ABL LDREG RETURN TO READ ROUTINE «, t00=0x0028, t01=0x0060}
0x3efc…3f2c Head {h00=0x002c, h01=0x0050, text=»IHKB12 CF A15,KEYSET SET KEY CODE IN DWT«, t00=0x0028, t01=0x0090}
0x3f2c…3f3e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0028, t01=0x00c0}
0x3f3e…3f60 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EXIT NO KEY CHANGE «, t00=0x0028, t01=0x00d2}
0x3f60…3f78 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x0028, t01=0x00f4}
0x3f78…3fa4 Head {h00=0x0028, h01=0x0050, text=» RF(N) EXIT NO READ REQUEST PENDING «, t00=0x0028, t01=0x010c}
0x3fa4…3fb6 Head {h00=0x000e, h01=0x0050, text=» SLL A3,7 «, t00=0x0028, t01=0x0138}
0x3fb6…3fe0 Head {h00=0x0026, h01=0x0050, text=» RF(NN) EXIT INERRUPT NOT ALLOWED «, t00=0x0028, t01=0x014a}
0x3fe0…400c Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTA3,A6 RESTORE BUFFER INDEX«, t00=0x0028, t01=0x0174}
0x400c…4024 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0029, t01=0x0010}
0x4024…4036 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0029, t01=0x0028}
0x4036…404a Head {h00=0x0010, h01=0x0050, text=» ABL AKB210 «, t00=0x0029, t01=0x003a}
0x404a…4052 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x004e}
0x4052…4070 Head {h00=0x001a, h01=0x0050, text=»IHKB15 LD A1,DWTINQ,A6«, t00=0x0029, t01=0x0056}
0x4070…4082 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0029, t01=0x0074}
0x4082…40a8 Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW? «, t00=0x0029, t01=0x0086}
0x40a8…40c0 Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x0029, t01=0x00ac}
0x40c0…40d2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0029, t01=0x00c4}
0x40d2…410a Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x0029, t01=0x00d6}
0x410a…412c Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x0029, t01=0x010e}
0x412c…4158 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) IHKB20 SAVE KEY-LOCK IF ANY «, t00=0x0029, t01=0x0130}
0x4158…418c Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOWBIT IN INPUT BUFFER «, t00=0x0029, t01=0x015c}
0x418c…419e Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x0029, t01=0x0190}
0x419e…41d2 Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x002a, t01=0x0012}
0x41d2…41ea Head {h00=0x0014, h01=0x0050, text=»IHKB30 SCR A2,A3«, t00=0x002a, t01=0x0046}
0x41ea…4200 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x002a, t01=0x005e}
0x4200…420a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0074}
0x420a…4214 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002a, t01=0x007e}
0x4214…421e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x421e…4228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0092}
0x4228…4232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009c}
0x4232…4246 Head {h00=0x0010, h01=0x0050, text=»* AKBTUT«, t00=0x002a, t01=0x00a6}
0x4246…4250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ba}
0x4250…427a Head {h00=0x0026, h01=0x0050, text=»* THIS IS THE TIME-OUT ROUTINE«, t00=0x002a, t01=0x00c4}
0x427a…4284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ee}
0x4284…428e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f8}
0x428e…4298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0102}
0x4298…42ae Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002a, t01=0x010c}
0x42ae…42c2 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x002a, t01=0x0122}
0x42c2…42e8 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RESTART DWT-ADDRESS«, t00=0x002a, t01=0x0136}
0x42e8…430c Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURNE CODE«, t00=0x002a, t01=0x015c}
0x430c…4320 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002a, t01=0x0180}
0x4320…4338 (43, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x002b, t01=0x0004}
0x4338…4366 Head {h00=0x002a, h01=0x0050, text=» RB(N) EXIT DISPATCH IF NO REQUEST ON «, t00=0x002b, t01=0x001c}
0x4366…4396 Head {h00=0x002c, h01=0x0050, text=» RB IHKB07 RESTORE REGISTER AND END I/O «, t00=0x002b, t01=0x004a}
0x4396…43a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x007a}
0x43a2…43ac Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002b, t01=0x0086}
0x43ac…43b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0090}
0x43b6…43c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009a}
0x43c0…43ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43ca…43d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ae}
0x43d4…43e8 Head {h00=0x0010, h01=0x0050, text=»* KEYSET «, t00=0x002b, t01=0x00b8}
0x43e8…43f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00cc}
0x43f2…43fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d6}
0x43fc…4406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x4406…4436 Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A4= NEG KEY-LOCK VALUE «, t00=0x002b, t01=0x00ea}
0x4436…4440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011a}
0x4440…4484 Head {h00=0x0040, h01=0x0050, text=»* ON EXIT: A3= ZERO IF IF NO CHANGE IN KEYS, ELSE POS «, t00=0x002b, t01=0x0124}
0x4484…448e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0168}
0x448e…4498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0172}
0x4498…44ac Head {h00=0x0010, h01=0x0050, text=»KEYSET EQU *«, t00=0x002b, t01=0x017c}
0x44ac…44c0 Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x002b, t01=0x0190}
0x44c0…44d8 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x002c, t01=0x0014}
0x44d8…44ee Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x002c, t01=0x002c}
0x44ee…4506 Head {h00=0x0014, h01=0x0050, text=»SET100 SRL A2,1 «, t00=0x002c, t01=0x0042}
0x4506…452a Head {h00=0x0020, h01=0x0050, text=» ADK A4,2 IN A4: 1=OFF 0=ON«, t00=0x002c, t01=0x005a}
0x452a…4540 Head {h00=0x0012, h01=0x0050, text=» RB(N) SET100 «, t00=0x002c, t01=0x007e}
0x4540…4568 Head {h00=0x0024, h01=0x0050, text=» ANR A3,A2 CHEC OLD KEY POSITION«, t00=0x002c, t01=0x0094}
0x4568…458e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SET300 JUMP IF KEY ON «, t00=0x002c, t01=0x00bc}
0x458e…45a0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x002c, t01=0x00e2}
0x45a0…45b6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SET500«, t00=0x002c, t01=0x00f4}
0x45b6…45c8 Head {h00=0x000e, h01=0x0050, text=» RF SET400«, t00=0x002c, t01=0x010a}
0x45c8…45e0 Head {h00=0x0014, h01=0x0050, text=»SET300 LDR A4,A4«, t00=0x002c, t01=0x011c}
0x45e0…45f6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SET500 «, t00=0x002c, t01=0x0134}
0x45f6…4614 Head {h00=0x001a, h01=0x0050, text=»SET400 LD A3,DWTST,A6 «, t00=0x002c, t01=0x014a}
0x4614…4626 Head {h00=0x000e, h01=0x0050, text=» XRR A3,A2«, t00=0x002c, t01=0x0168}
0x4626…4638 Head {h00=0x000e, h01=0x0050, text=» SRL A2,4 «, t00=0x002c, t01=0x017a}
0x4638…464a Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x002c, t01=0x018c}
0x464a…4662 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A6 «, t00=0x002d, t01=0x000e}
0x4662…4690 Head {h00=0x002a, h01=0x0050, text=» LDK A3,1 A3=1 IF KEY LOCK HAS CHANGED«, t00=0x002d, t01=0x0026}
0x4690…46aa Head {h00=0x0016, h01=0x0050, text=»SET500 LDR* A4,A15«, t00=0x002d, t01=0x0054}
0x46aa…46ba Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002d, t01=0x006e}
0x46ba…46c4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002d, t01=0x007e}
0x46c4…46ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0088}
0x46ce…46d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0092}
0x46d8…46e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009c}
0x46e2…46f6 Head {h00=0x0010, h01=0x0050, text=»* KONVER«, t00=0x002d, t01=0x00a6}
0x46f6…4700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ba}
0x4700…472e Head {h00=0x002a, h01=0x0050, text=»* KONVER CONVERTS INPUT CHARACTER «, t00=0x002d, t01=0x00c4}
0x472e…4738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f2}
0x4738…4742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fc}
0x4742…476e Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A2= INPUT CHARACTER «, t00=0x002d, t01=0x0106}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0132}
0x4778…4782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013c}
0x4782…47b0 Head {h00=0x002a, h01=0x0050, text=»* ON EXIT: A2=COVERTED CHARACTER «, t00=0x002d, t01=0x0146}
0x47b0…4800 Head {h00=0x004c, h01=0x0050, text=»* A4= NEG IF KEY-LOCK, ZERO IF CHARACTER,POS IF CTRL,SHIFT«, t00=0x002d, t01=0x0174}
0x4800…4828 Head {h00=0x0024, h01=0x0050, text=»* A5 IS DESTROYED!«, t00=0x002e, t01=0x0034}
0x4828…4832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005c}
0x4832…483c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0066}
0x483c…4850 Head {h00=0x0010, h01=0x0050, text=»KONVER EQU *«, t00=0x002e, t01=0x0070}
0x4850…4862 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002e, t01=0x0084}
0x4862…4878 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x002e, t01=0x0096}
0x4878…4896 Head {h00=0x001a, h01=0x0050, text=» SUK A4,/7C CODE > /7B«, t00=0x002e, t01=0x00ac}
0x4896…48b0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON500 YES«, t00=0x002e, t01=0x00ca}
0x48b0…48d4 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 RESTORE CHARACTER«, t00=0x002e, t01=0x00e4}
0x48d4…48e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0108}
0x48e0…491c Head {h00=0x0038, h01=0x0050, text=» STR A2,A15 STORE CHARACTER IN CASE OF NO CONVERSION«, t00=0x002e, t01=0x0114}
0x491c…4930 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A6 «, t00=0x002e, t01=0x0150}
0x4930…4944 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x002e, t01=0x0164}
0x4944…4962 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON105 FUNCTION«, t00=0x002e, t01=0x0178}
0x4962…497c Head {h00=0x0016, h01=0x0050, text=»KON100 SUK A4,/40 «, t00=0x002f, t01=0x0008}
0x497c…499e Head {h00=0x001e, h01=0x0050, text=» RF(N) KON180 ALFANUMERIC «, t00=0x002f, t01=0x0022}
0x499e…49ba Head {h00=0x0018, h01=0x0050, text=» SUK A4,/10 FUNCTION«, t00=0x002f, t01=0x0044}
0x49ba…49d4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) KON110 NO «, t00=0x002f, t01=0x0060}
0x49d4…49ec Head {h00=0x0014, h01=0x0050, text=» SUK A2,/40 YES «, t00=0x002f, t01=0x007a}
0x49ec…4a00 Head {h00=0x0010, h01=0x0050, text=»KON105 EQU *«, t00=0x002f, t01=0x0092}
0x4a00…4a14 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/10 «, t00=0x002f, t01=0x00a6}
0x4a14…4a26 Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x002f, t01=0x00ba}
0x4a26…4a38 Head {h00=0x000e, h01=0x0050, text=» RF KON200«, t00=0x002f, t01=0x00cc}
0x4a38…4a66 Head {h00=0x002a, h01=0x0050, text=»KON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT «, t00=0x002f, t01=0x00de}
0x4a66…4a84 Head {h00=0x001a, h01=0x0050, text=» RF(N) KON400 KEY-LOCK«, t00=0x002f, t01=0x010c}
0x4a84…4aa2 Head {h00=0x001a, h01=0x0050, text=» RF(Z) KON140 SHIFT ON«, t00=0x002f, t01=0x012a}
0x4aa2…4ab4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002f, t01=0x0148}
0x4ab4…4ad4 Head {h00=0x001c, h01=0x0050, text=» RF(N) KON160 SHIFT OFF «, t00=0x002f, t01=0x015a}
0x4ad4…4af4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) KON170 CONTROL ON«, t00=0x002f, t01=0x017a}
0x4af4…4b0a Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0030, t01=0x000a}
0x4b0a…4b1c Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0030, t01=0x0020}
0x4b1c…4b3e Head {h00=0x001e, h01=0x0050, text=» RF(N) KON125 CONTROL OFF «, t00=0x0030, t01=0x0032}
0x4b3e…4b66 Head {h00=0x0024, h01=0x0050, text=» RF(E) KON140 NUMERICAL SHIFT ON«, t00=0x0030, t01=0x0054}
0x4b66…4b8c Head {h00=0x0022, h01=0x0050, text=» RF KON160 NUMERICAL SHIFT OFF«, t00=0x0030, t01=0x007c}
0x4b8c…4b98 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00a2}
0x4b98…4bac Head {h00=0x0010, h01=0x0050, text=»KON125 EQU *«, t00=0x0030, t01=0x00ae}
0x4bac…4bca Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/FFDF UNCTRL «, t00=0x0030, t01=0x00c2}
0x4bca…4be2 Head {h00=0x0014, h01=0x0050, text=»KON120 ANR A5,A2«, t00=0x0030, t01=0x00e0}
0x4be2…4c02 Head {h00=0x001c, h01=0x0050, text=»KON130 STR A5,A6 DWTCHP «, t00=0x0030, t01=0x00f8}
0x4c02…4c16 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/10 «, t00=0x0030, t01=0x0118}
0x4c16…4c32 Head {h00=0x0018, h01=0x0050, text=» RF KON400 GO HOME! «, t00=0x0030, t01=0x012c}
0x4c32…4c46 Head {h00=0x0010, h01=0x0050, text=»KON140 EQU *«, t00=0x0030, t01=0x0148}
0x4c46…4c5c Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0030, t01=0x015c}
0x4c5c…4c6e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0030, t01=0x0172}
0x4c6e…4c82 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x0030, t01=0x0184}
0x4c82…4ca4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) KON145 SHIFT NOT ON«, t00=0x0031, t01=0x0008}
0x4ca4…4cb8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/90 «, t00=0x0031, t01=0x002a}
0x4cb8…4cca Head {h00=0x000e, h01=0x0050, text=» RF KON150«, t00=0x0031, t01=0x003e}
0x4cca…4cd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0050}
0x4cd6…4cea Head {h00=0x0010, h01=0x0050, text=»KON145 EQU *«, t00=0x0031, t01=0x005c}
0x4cea…4d04 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/10 SHIFT «, t00=0x0031, t01=0x0070}
0x4d04…4d1c Head {h00=0x0014, h01=0x0050, text=»KON150 ORR A5,A2«, t00=0x0031, t01=0x008a}
0x4d1c…4d2e Head {h00=0x000e, h01=0x0050, text=» RB KON130«, t00=0x0031, t01=0x00a2}
0x4d2e…4d42 Head {h00=0x0010, h01=0x0050, text=»KON160 EQU *«, t00=0x0031, t01=0x00b4}
0x4d42…4d58 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=1 «, t00=0x0031, t01=0x00c8}
0x4d58…4d6a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0031, t01=0x00de}
0x4d6a…4d7e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0031, t01=0x00f0}
0x4d7e…4d94 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON165 «, t00=0x0031, t01=0x0104}
0x4d94…4daa Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF7F«, t00=0x0031, t01=0x011a}
0x4daa…4dbc Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0031, t01=0x0130}
0x4dbc…4dc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0142}
0x4dc8…4ddc Head {h00=0x0010, h01=0x0050, text=»KON165 EQU *«, t00=0x0031, t01=0x014e}
0x4ddc…4df2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFEF«, t00=0x0031, t01=0x0162}
0x4df2…4e04 Head {h00=0x000e, h01=0x0050, text=» RB KON120«, t00=0x0031, t01=0x0178}
0x4e04…4e22 Head {h00=0x001a, h01=0x0050, text=»KON170 LDK A2,/20 CTRL«, t00=0x0031, t01=0x018a}
0x4e22…4e34 Head {h00=0x000e, h01=0x0050, text=» RB KON150«, t00=0x0032, t01=0x0018}
0x4e34…4e58 Head {h00=0x0020, h01=0x0050, text=»KON180 SUK A2,/20 FIND INDEX«, t00=0x0032, t01=0x002a}
0x4e58…4e6c Head {h00=0x0010, h01=0x0050, text=» ANK A5,/30 «, t00=0x0032, t01=0x004e}
0x4e6c…4e7e Head {h00=0x000e, h01=0x0050, text=» SRL A5,3 «, t00=0x0032, t01=0x0062}
0x4e7e…4e90 Head {h00=0x000e, h01=0x0050, text=» ADK A5,4 «, t00=0x0032, t01=0x0074}
0x4e90…4ecc Head {h00=0x0038, h01=0x0050, text=»KON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS «, t00=0x0032, t01=0x0086}
0x4ecc…4ede Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x0032, t01=0x00c2}
0x4ede…4ef2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A4 «, t00=0x0032, t01=0x00d4}
0x4ef2…4f08 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KON400 «, t00=0x0032, t01=0x00e8}
0x4f08…4f1a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x0032, t01=0x00fe}
0x4f1a…4f48 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A15 RESTORE A2 AND A15-STACK «, t00=0x0032, t01=0x0110}
0x4f48…4f74 Head {h00=0x0028, h01=0x0050, text=» LCR A2,A4 GET CHARACTER FROM TABLE «, t00=0x0032, t01=0x013e}
0x4f74…4fa2 Head {h00=0x002a, h01=0x0050, text=»KON250 LDK A4,0 A4=0 IF NOT KEY-LOCK$$«, t00=0x0032, t01=0x016a}
0x4fa2…4fb8 Head {h00=0x0012, h01=0x0050, text=»KON300 RTN A15«, t00=0x0033, t01=0x0008}
0x4fb8…4ff0 Head {h00=0x0034, h01=0x0050, text=»KON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER«, t00=0x0033, t01=0x001e}
0x4ff0…5002 Head {h00=0x000e, h01=0x0050, text=» RB KON300«, t00=0x0033, t01=0x0056}
0x5002…5018 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0033, t01=0x0068}
0x5018…502c Head {h00=0x0010, h01=0x0050, text=»KON500 EQU *«, t00=0x0033, t01=0x007e}
0x502c…504c Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 KEY CODE /7C «, t00=0x0033, t01=0x0092}
0x504c…5066 Head {h00=0x0016, h01=0x0050, text=» RF(Z) KON600 YES «, t00=0x0033, t01=0x00b2}
0x5066…5090 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 INDICATE SKIP CHARACTER «, t00=0x0033, t01=0x00cc}
0x5090…50a0 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0033, t01=0x00f6}
0x50a0…50b4 Head {h00=0x0010, h01=0x0050, text=»KON600 EQU *«, t00=0x0033, t01=0x0106}
0x50b4…50c6 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A2«, t00=0x0033, t01=0x011a}
0x50c6…50e8 Head {h00=0x001e, h01=0x0050, text=» RB KONVER DO START AGAIN «, t00=0x0033, t01=0x012c}
0x50e8…50f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x014e}
0x50f4…50fe Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0033, t01=0x015a}
0x50fe…5108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0164}
0x5108…5140 Head {h00=0x0034, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x0033, t01=0x016e}
0x5140…517a Head {h00=0x0036, h01=0x0050, text=»* ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0034, t01=0x0016}
0x517a…5184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0050}
0x5184…519a Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0034, t01=0x005a}
0x519a…51a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x51a4…51c8 Head {h00=0x0020, h01=0x0050, text=»* A2 = CHARACTER TO STORE«, t00=0x0034, t01=0x007a}
0x51c8…51e6 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0034, t01=0x009e}
0x51e6…51f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00bc}
0x51f0…51fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c6}
0x51fa…520e Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0034, t01=0x00d0}
0x520e…5230 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0034, t01=0x00e4}
0x5230…5254 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x0034, t01=0x0106}
0x5254…5280 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x0034, t01=0x012a}
0x5280…52a8 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0034, t01=0x0156}
0x52a8…52c2 Head {h00=0x0016, h01=0x0050, text=»STORTN ADKL A15,2 «, t00=0x0034, t01=0x017e}
0x52c2…52d6 Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0035, t01=0x0008}
0x52d6…52e0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0035, t01=0x001c}
0x52e0…52ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0026}
0x52ea…52f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0030}
0x52f4…532e Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x0035, t01=0x003a}
0x532e…5338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0074}
0x5338…534e Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0035, t01=0x007e}
0x534e…5358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0094}
0x5358…5378 Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x0035, t01=0x009e}
0x5378…5396 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0035, t01=0x00be}
0x5396…53a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00dc}
0x53a0…53b6 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0035, t01=0x00e6}
0x53b6…53c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fc}
0x53c0…53e4 Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x0035, t01=0x0106}
0x53e4…53f8 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0035, t01=0x012a}
0x53f8…540a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0035, t01=0x013e}
0x540a…541c Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0035, t01=0x0150}
0x541c…5440 Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x0035, t01=0x0162}
0x5440…5456 Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0035, t01=0x0186}
0x5456…5484 Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x0036, t01=0x000c}
0x5484…549c Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0036, t01=0x003a}
0x549c…54ae Head {h00=0x000e, h01=0x0050, text=» RB STORTN«, t00=0x0036, t01=0x0052}
0x54ae…54ba Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0036, t01=0x0064}
0x54ba…54be Head {h00=0x4004, h01=0x0000}
0x54be…54c2 00 36 00 70 ┆ 6 p┆
0x54c2…54ca (55, 1, 8) 20 04 00 00 00 37 00 04 ┆ 7 ┆
0x54ca…551a (56, 0, 400) 00 08 00 0b 0f e6 00 00 00 64 00 6c 02 92 02 96 00 1c 06 5e 06 da 09 14 0f ba 07 f0 84 20 00 24 8f 52 00 16 57 2a 57 28 57 26 57 0c 04 00 b9 50 00 58 f6 d3 00 38 f0 3a 83 56 04 82 55 16 1b 0a 52 12 1b c6 56 0e 13 d0 81 20 ff ff 02 e1 57 22 ┆ d l ^ $ R W*W(W&W P X 8 : V U R V W"┆
0x551a…556a 04 04 5f 26 04 08 5f 2a 08 06 07 14 08 06 07 02 03 08 06 07 01 01 02 e1 03 d4 57 06 01 00 02 e2 03 d5 04 00 85 20 ff ff ba d7 ff d8 84 20 00 84 8f 52 00 16 57 98 57 96 57 94 57 02 57 2c 83 56 04 82 55 8a 1b ef 51 86 13 ef 83 57 ff da f6 d3 ┆ _& _* W R W W W W W, V U Q W ┆
0x556a…55ba 00 2c 14 00 50 7c 15 00 50 78 84 20 00 b2 8f 52 00 16 57 72 57 70 57 6e 57 6c 81 56 ff d8 51 20 52 18 03 d5 f6 d3 00 2c 14 00 50 08 81 54 00 0c 39 49 56 5c 87 20 4f 42 57 0a 87 20 55 46 57 04 87 20 53 43 81 56 ff dc 91 20 03 00 82 4e 00 0a ┆ , P| Px R WrWpWnWl V Q R , P T 9IV OBW UFW SC V N ┆
0x55ba…560a a2 20 00 ff bb d7 04 9e f6 d3 00 30 81 56 04 ac 50 2e 81 20 08 1c 82 20 02 ff 83 20 01 2c f6 d3 00 38 84 20 01 1a 8f 52 00 40 f0 3a 5f 02 04 00 57 06 04 04 57 02 04 08 8f 20 02 42 ff fe 3a 20 81 96 91 a0 00 1c 82 96 92 a0 00 28 81 56 ff da ┆ 0 V P. , 8 R @ :_ W W B : ( V ┆
0x560a…565a 82 16 92 20 03 f4 03 50 b9 a7 81 56 ff dc b9 ab 85 08 15 48 90 57 ff e0 80 86 84 42 00 02 81 20 20 20 07 48 81 31 14 02 1f 02 59 08 84 20 01 74 8f 52 00 10 57 ba 57 06 8f fd 00 80 00 00 00 01 00 00 02 00 00 00 00 00 02 20 04 00 00 00 01 08 ┆ P V H W B H 1 Y t R W W ┆
0x565a…56aa (57, 0, 400) 57 50 57 98 57 18 17 00 50 14 1f 40 50 10 1f 40 54 a6 80 a0 02 60 07 32 28 04 00 06 5f 3e 81 46 00 06 81 4b 00 04 81 56 ff d8 55 0c ba 20 20 20 20 20 20 20 20 20 ba 35 01 00 81 57 ff de 80 8a 84 20 01 c0 8f 52 00 12 57 72 57 70 57 00 57 6c ┆WPW W P @P @T ` 2( _> F K V U 5 W R WrWpW Wl┆
0x56aa…56fa 5f 76 81 56 ff d8 52 12 50 06 81 56 ff e0 58 84 81 56 ff de 51 10 90 57 ff de 84 20 01 ec 80 8a 8f 52 00 46 57 46 81 56 ff d8 5d c4 80 8a 84 20 01 fe 8f 52 00 0a 57 34 81 56 ff d8 50 0a 84 20 02 10 80 8a 8f 52 00 0c 57 00 f0 3a 81 56 ff d8 ┆_v V R P V X V Q W R FWF V ] R W4 V P R W : V ┆
0x56fa…574a 59 50 5a 28 81 56 ff de 59 10 80 8a 84 20 02 2c 8f 52 00 46 57 06 f0 3a 04 0c 57 02 04 10 83 56 ff dc 83 57 04 9e f6 d3 00 32 b9 50 02 4c f6 d3 00 38 f0 3a 03 01 00 00 06 07 09 1a 0f 01 00 00 1e 0e 02 00 1f 0e 02 00 0d 0a 0d 0a 45 4f 56 20 ┆YPZ( V Y , R FW : W V W 2 P L 8 : EOV ┆
0x574a…579a 4f 4e 20 49 4e 50 55 54 20 46 49 4c 45 2c 4d 4f 55 4e 54 20 4e 45 57 20 54 41 50 45 20 54 48 45 4e 20 52 45 53 54 41 52 54 20 01 02 57 02 01 01 83 20 ff ff 04 00 02 00 ba 57 ff d8 84 20 02 ac 8f 52 00 16 57 f2 57 d8 57 04 57 de 57 ee 81 56 ┆ON INPUT FILE,MOUNT NEW TAPE THEN RESTART W W R W W W W W V┆
0x579a…57ea 04 82 99 20 2f 53 54 e0 81 56 04 7c 84 20 02 cc 8f 52 00 16 57 da 57 9c 57 d6 57 00 81 57 04 7c 02 d4 81 20 02 d9 b9 57 04 9e f6 d3 00 30 81 56 04 ac 50 18 83 20 06 1c 00 20 00 00 40 00 02 00 80 80 01 00 02 00 00 00 00 00 01 00 01 00 00 1c ┆ /ST V | R W W W W W | W 0 V P @ ┆
0x57ea…583a (58, 0, 400) 81 20 ff 00 02 00 f6 d3 00 38 84 20 03 02 8f 52 00 40 f0 3a 84 20 03 0c 8f 52 00 16 57 9a 57 98 57 96 57 02 57 b0 81 56 04 82 52 8c 99 20 27 0f 51 86 91 20 27 0f 81 57 ff da 84 20 03 32 8f 52 00 16 57 74 57 72 57 70 57 0a 81 56 ff da 81 57 ┆ 8 R @ : R W W W W W V R ' Q ' W 2 R WtWrWpW V W┆
0x583a…588a ff dc 57 82 81 56 04 82 52 5e e9 20 27 0f 51 58 e9 56 ff da 52 52 81 57 ff dc 84 20 03 62 8f 52 00 16 57 50 57 4e 57 4c 57 4a 57 5a bb 56 04 7c 87 20 53 43 81 20 04 d9 02 00 e2 4e 00 0b 83 4e 00 0c bb d7 04 9e 5f a6 bb 56 04 7c 87 20 55 46 ┆ W V R^ ' QX V RR W b R WPWNWLWJWZ V | SC N N _ V | UF┆
0x588a…58da 5f 1e 82 56 04 82 55 18 1a ef 51 14 12 ef 5f c6 04 00 57 1e 04 04 57 1a 83 20 06 0e 04 08 57 12 04 1c 57 0e 04 0c 57 0a 83 20 06 3c 04 10 57 02 04 14 8f 20 05 da 83 56 ff d8 f6 d3 00 2c 14 00 58 1a 15 00 58 1e 81 50 00 00 52 62 81 54 00 04 ┆_ V U Q _ W W W W W < W V , X X P Rb T ┆
0x58da…592a 19 02 81 57 ff e0 81 96 91 a0 00 1c 01 d9 82 16 92 20 03 f4 03 86 81 41 06 52 07 b0 80 a0 06 52 28 04 00 01 82 c0 06 56 ea a0 00 86 56 08 ea a0 00 00 50 02 83 0a b9 a7 82 96 92 a0 00 28 81 56 ff d8 b9 ab 81 20 20 20 81 57 03 f2 81 20 30 30 ┆ W A R R( V V P ( V W 00┆
0x592a…597a 81 57 03 ec 80 86 84 20 04 42 8f 52 00 0c 01 90 5f 60 57 00 80 86 81 42 00 02 82 20 20 20 03 84 82 25 11 02 1b 02 59 08 84 20 04 60 8f 52 00 10 5f a2 57 c2 57 c4 57 c0 02 10 00 02 00 00 02 00 00 00 00 04 04 20 00 00 09 10 00 00 08 00 04 08 ┆ W B R _`W B % Y ` R _ W W W ┆
0x597a…59ca (59, 0, 400) 81 56 ff de e9 56 ff da 56 06 90 57 ff de 5f 36 83 56 ff de f6 d3 00 1e b9 57 03 ee 83 46 00 06 3b e1 56 0e 13 01 01 20 82 46 00 06 92 46 00 02 e1 29 3b 41 85 0c 82 46 00 02 01 00 e1 28 19 20 52 04 19 3f 55 04 01 20 e1 29 12 01 1b 01 59 16 ┆ V V V W _6 V W F ; V F F );A F ( R ?U ) Y ┆
0x59ca…5a1a 81 20 20 20 81 29 1a 02 81 28 99 20 20 20 54 06 1a 02 1d 02 59 0e 15 0a 85 57 ff e2 81 16 91 20 03 ec 82 56 ff e2 b9 4b 00 02 ea 56 ff e0 51 44 80 8a 84 20 04 f2 8f 52 00 12 57 e4 57 00 57 00 57 00 90 57 ff de 81 20 20 20 81 57 03 ec 81 56 ┆ ) ( T Y W V K V QD R W W W W W W V┆
0x5a1a…5a6a ff dc 56 12 81 56 ff de 99 20 27 0f 5d d4 01 00 81 57 ff de 5f dc e9 56 ff de 52 be 5f e4 57 4e 57 76 57 66 81 56 ff e0 81 4b 00 04 80 8a 84 20 05 3e 8f 52 00 12 57 98 57 00 57 00 57 00 19 08 91 43 00 02 81 56 ff e2 11 08 99 43 00 04 81 20 ┆ V V ' ] W _ V R _ WNWvWf V K > R W W W W C V C ┆
0x5a6a…5aba 20 20 82 04 83 08 84 08 ba 63 00 02 84 20 05 6c 8f 52 00 12 57 6a 57 00 57 00 57 00 5f 7c 17 00 88 20 04 68 1f 40 58 08 1f 40 8c 20 03 c0 80 a0 02 60 07 32 28 04 00 06 5f 8c 80 8a 84 20 05 9c 8f 52 00 46 57 3a 5f a6 80 8a 84 20 05 aa 8f 52 ┆ c l R WjW W W _| h @X @ ` 2( _ R FW:_ R┆
0x5aba…5b0a 00 0a 57 2c 80 8a 81 20 03 ec 91 16 02 02 83 20 31 31 83 25 b9 43 00 02 84 20 05 c8 8f 52 00 12 57 0e 57 00 57 00 57 00 01 80 a9 4f 00 0e 57 0a 04 18 b9 50 05 ee f6 d3 00 00 00 00 00 00 00 00 20 00 00 00 00 80 00 01 00 42 81 02 00 04 00 2c ┆ W, 11 % C R W W W W O W P B ,┆
0x5b0a…5b5a (60, 0, 400) 00 38 01 d9 81 57 04 9e f6 d3 00 32 f0 3a 06 13 02 00 06 13 14 00 ff 02 00 00 0f 01 00 00 ff 00 00 00 1e 06 0e 02 1f 06 0e 02 06 07 02 00 ff f4 4c 49 4e 45 20 4e 55 4d 42 45 52 20 ff e2 49 4e 50 55 54 20 46 49 4c 45 20 43 41 4e 20 4e 4f 54 ┆ 8 W 2 : LINE NUMBER INPUT FILE CAN NOT┆
0x5b5a…5baa 20 42 45 20 41 53 53 49 47 4e 45 44 ff ec 4f 55 54 50 55 54 20 4e 4f 54 20 41 53 53 49 47 4e 45 44 20 57 00 00 00 00 00 00 00 00 00 00 00 84 20 06 66 8f 52 00 16 57 56 57 54 57 52 57 04 06 01 57 14 86 56 04 82 84 20 06 7e 8f 52 00 16 57 46 ┆ BE ASSIGNED OUTPUT NOT ASSIGNED W f R WVWTWRW W V ~ R WF┆
0x5baa…5bfa 57 44 57 42 57 40 86 18 50 34 80 a0 00 1c 90 96 81 20 31 31 82 20 03 f2 92 16 81 29 01 02 03 02 b9 a3 84 20 06 aa 8f 52 00 12 57 22 57 00 57 00 57 00 1e 01 5c 30 01 80 a9 4f 00 0e f0 3a b9 20 01 02 00 00 57 0e b9 20 0f 01 00 00 57 06 b9 20 ┆WDWBW@ P4 11 ) R W"W W W 0 O : W W ┆
0x5bfa…5c4a 1f 0e 02 00 f6 d3 00 38 f0 3a 82 a0 00 1c 92 96 03 01 84 20 30 30 84 57 03 f2 01 01 82 20 03 f2 92 16 b9 2b 87 08 17 02 f6 d3 00 2c 14 00 54 0a 13 01 eb 20 00 ff 5d 1e f0 3a 15 00 58 0e 86 10 81 0c f6 d3 00 22 38 48 e9 20 30 30 54 0c e1 20 ┆ 8 : 00 W + , T ] : X "8H 00T ┆
0x5c4a…5c9a 20 2f 38 68 81 20 20 20 57 06 38 68 81 20 20 2f b9 3d 17 04 81 20 20 20 81 3d 17 02 81 38 52 62 81 54 00 02 f6 d3 00 22 81 54 00 00 b9 3d 17 04 f6 a1 07 cc eb 20 00 f0 00 00 00 00 00 00 00 00 80 08 00 00 20 00 00 00 00 00 00 00 00 00 00 48 ┆ /8h W 8h / = = 8Rb T " T = H┆