|
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: 31184 (0x79d0)
Notes: pts_type(SC)
Names: »DRKB04.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »UPDATE/DRKB04.SC«
IDENT DRKB04 REL 11.0 81-06-26 870105041100 =4 WRONG RETURN CODE (UNDEFINED KEY, BIT 13) REL 11.0 81-06-16 =3 ODD DWT-ADDRESS WAS NOT MADE EVEN IN IHKB REL 11.0 81-05-25 =2 GREEK CHARACTER SET & NEW CONDITIONS REL 11.0 81-03-27 = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE ADDRESS VIA CIRCULAR INPUT BUFFER REL 11.0 81-01-26 * ****************************************** * * * P H I L I P S T E R M I N A L S Y S T E M P T S * * DRKB04 = DRIVER KEYBOARD * ****************************************** * * THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS * PTS 6231, -32, -33, -34, -36, * -71, -72, 6331, 6342 AND BADGE CARD READER * PTS 6261 WITH CONNECTED PIN (PERSONAL IDEN- * TIFICATION NUMBER -KEYBOARD). * * ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. * * AN ECHO DEVICE CAN BE ATTACHED TO EVERY * KEYBOARD, WHERE RECEIVED CHARACTERS ARE * ECHOED. * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * R C K B = RECOVERY ROUTINE * A C K B = ACTIVATION PART * M A K B = MAIN PART * I H K B = INTERRUPT HANDLER * * THE FOLLOWING ORDERS ARE TREATED: * ORDER 01: BASIC READ * 02: STANDARD READ * 03: NUMERIC READ * 31: RESET INPUT BUFFER * EJECT * 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 ADAPTION * * DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE * DEFINED IN DWT. * * IF TIMING IS WANTED, BIT 0 IN DWTDEV 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. * * * BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS WITHIN * /30-/39 AND /70-/79 ARE ACCEPTED FOR NUMERIC READ. * IF IT IS SET TO ONE, ONLY /30-/39 ARE ACCEPTED. * * BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED * FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE * ACCEPTED. * * KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3 * IN DWTDEV MUST BE SET IF PTS 6236/71/72 IS USED. * * BIT 4 IN DWTDEV IS USED BY THE DRIVER TO INDICATE IF * MORE CHARACTERS ARE TO BE ECHOED. * * SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO EXCLUDE FOLLOWING FUNCTIONS: * ---- ECHO FUNCTION * ---- TIME OUT FUNCTION * ---- KEYBOARD LOCKED IF NO KEYLOCK ON * ---- COMPLETION OF READ REQUEST AT POWER-ON * ---- SHIFT KEY ON NUMERIC PART OF 6272 USED AS NORMAL KEY * EJECT * ENTRIES * ENTRY KBAD4 ADDRESSBLOCK * * EXTERNAL TOSS MODULE ENTRIES * EXTRN LENDER END REQUEST AND DISPATCH EXTRN INPUT READ A CHARACTER EXTRN ECHO ECHO EXTRN ECHEND END OF ECHO EXTRN LDISP DISPATCH EXTRN SETIME SETS TIME EXTRN LENDIS END I/O AND DISPATCH EXTRN ABORT ABORT REQUESTS EXTRN ABTADR ABORT-ADDRESS EXTRN TENDIO EXTRN TDISP * * DWT PARAMETERS * EXTRN DWTDEV EXTRN DWTST EXTRN DWTA3 EXTRN DWTA5 EXTRN DWTADR EXTRN DWTECH EXTRN DWTSB2 EXTRN DWTECB * * ECB PARAMETERS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBCW CONTROL WORD * * CONSTANTS * OVMASK EQU /2 OVERFLOW IN INPUT BUFFER TIME EQU 300 TIMEOUT CONSTANT EJECT * ************************************ * * CONDITIONAL ASSEMBLY * ************************************ * * TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1 * X:A EQU 0 CTIMUT EQU X:A * * ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 * X:B EQU 1 CECHO EQU 00 * * COMPLETION OF READ REQUEST AT POWER ON MAY BE * INCLUDED BY SETTING X:C =1 * X:C EQU 0 RECOV EQU X:C * * THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED * IN X:D, NUMBER OF BYTES IN DECIMAL FORM. * X:D EQU 8 DWTLNG EQU 20 * * CODE CONVERSION DUMMY * X:E EQU 0 * EJECT * * BY SETTING X:F=0 THE KEY A15 ON KB 71/72 GIVES THE CODE * /00 INSTEAD OF BEING A SHIFT KEY * X:F EQU 1 NSHIFT EQU 1 * * BY SETTING X:G = 1 KEYBOARD IS * LOCKED IF NO KEYLOCK ON * X:G EQU 0 KBLOCK EQU X:G * * MMU BUFFER SIZE * X:H EQU 10 DVBLEN EQU X:H * * MMU KEY TABLE SIZE * X:I EQU 10 DVBKTB EQU X:I * * X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2 * IS INCLUDED IN SYSTEM =2 * X:J EQU 1 NEWKB EQU X:J * * X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 * 71 OR 72 IS INCLUDED IN SYSTEM =2 * X:K EQU 1 OLDKB EQU 00 * * X:L SHOULD BE SET TO 1 IF PLC IS USED =2 * X:L EQU 1 PLC EQU X:L * * IF X:M = 1 IT IS POSSIBLE TO USE =2 * GREEK CHARACTER SET =2 * X:M EQU 0 GREECE EQU X:M * A PROGRAM VERSION USING TOSS MMU-PAGING IS * OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * EJECT * * DWT-DISPLACEMENT * DWTKEY EQU /04 KEYLOCK MEMORY DWTCS EQU /06 CRTL-SHIFT MEMORY DWTCTB EQU /08 CONVERSION POINTERS ADDRESS DWTTP EQU /0A TIMER POINTER * * CIRCULAR INPUT BUFFER * DWTINQ EQU /0C POINTER TO FIRST PLACE DWTUTQ EQU /0E POINTER TO LAST PLACE DWTSQ EQU /10 START OF BUFFER DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER * * ADDRESS BLOCK * DATA DVBKTB MMU KEY TABLE DATA DVBLEN MMU BUFFER SIZE DATA 6 DEVICE INDEX KBAD4 EQU * DATA ACKB ACTIVATION PART DATA ABKB ABORT ROUTINE DATA IHKB INTERRUPT HANDLER IFF RECOV=1 DATA 0 NO RECOVERY ROUTINE XIF IFT RECOV=1 DATA RCKB RECOVERY ROUTINE EJECT ************************************ * * RECOVERY ROUTINE * ************************************* RCKB LDR A8,A8 BUSY ? RF(NZ) RC10 YES ! LDKL A1,/400 NO ! ORS A1,DWTDEV,A6 INDICATE POWER OFF ABL LENDIS DISPATCH ! * RC10 CWK A7,1 BASIC READ ? ABL(E) LDISP YES ! * NO ! CF A15,ABORT RESET INPUT REQUESTED FLAG LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH RC15 CM ECBCW,A8 COMPLETE REQUEST ABL MKB335 AND SET RETURN CODE =0 XIF EJECT ************************************ * * * A C K B * ACTIVATION PART * * ************************************ ACKB EQU * ENB * LDK A1,0 RESET REGISTERS LDK A3,0 * * CHECK ORDER * 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 * * ILLEGAL ORDER * AKB100 EQU * ABL LENDER COMPLETE REQUEST EJECT * * ORDER 31. RESET INPUT BUFFER. * AKB110 EQU * INH LD A1,DWTDEV+DWTUTQ,A6 BUF END CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ? RF(E) AKB119 YES ! * LDR A2,A1 IFT NEWKB+OLDKB=2 =2 LD A4,DWTDEV,A6 ANKL A4,/1000 PTS 6236, -71, -72 ? RF(Z) AKB118 NO ! XIF IFT NEWKB=1 =2 * * SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED * FROM BUFFER WHEN KB 6236/71/72 IS USED * AKB112 LCR A4,A1 GET CHARACTER ANK A4,/FF IFT NSHIFT=0 CCK A4,/7C00 NUMSHIFT DEPRESSED ? RF(E) AKB113 YES ! SKIP CHARACTER XIF IFT NEWKB=1 =2 SUK A4,/80 SKIP CHARACTER ? RF(Z) AKB113 YES ! ADK A4,/10 SHIFT, CTRL, KEYLOCK ? RF(NN) AKB120 YES ! * AKB113 CF A15,EOQUEU GET NEXT POINTER CW A1,DWTDEV+DWTINQ,A6 END OF BUF ? RB(NE) AKB112 NO ! CHECK NEXT * XIF AKB118 SCR A3,A1 ST A2,DWTDEV+DWTINQ,A6 YES! AKB119 ENB ABL MKB335 SET RC=0 AND COMPLETE REQUEST * IFT NEWKB=1 =2 AKB120 ADK A4,/70 RESTORE CHAR. SCR A4,A2 STORE IN BUF. LDR A3,A1 EXCHANGE REGISTERS LDR A1,A2 CF A15,EOQUEU GET NEXT POINTER LDR A2,A1 LDR A1,A3 LDK A3,0 RB AKB113 * XIF AKB200 EQU * IFT RECOV=1 * * POWER OFF TEST * LD A2,DWTDEV,A6 POWER OFF ? ANKL A2,/400 RF(E) AKB205 NO ! XRS A2,DWTDEV,A6 RESET POWER OFF BIT CWK A7,1 BASIC READ ? RB(NE) RC15 NO ! COMPLETE REQUEST ! XIF AKB205 EQU * IFT CTIMUT=1 EJECT * * INITIATE TIMING ROUTINE * LD A1,DWTDEV,A6 TIMING ? RF(NN) AKB210 NO! * LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? RF(E) AKBTIM NO! * CF A15,RESTRT YES ! RESTART TIMER RF AKB210 * AKBTIM EQU * LDR A1,A6 DWT-ADDRESS IN A1 * CF A15,SETIME SET TIME DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME * ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT XIF EJECT * * REQUESTED LENGTH OK ? * AKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? ABL(E) MKBEND YES ! COMPLETE REQUEST ! * * CLEAR ECB-BUFFER * LD A1,ECBBA,A8 BUFFER ADDRESS SUK A1,1 ADR A1,A2 ADD REQUESTED LENGTH * AKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH SUK A1,1 SUK A2,1 RB(NE) AKB230 NOT READY YET EJECT * ************************************ * * * M K B * MAIN PART OF KEYBOARD DRIVER * * ************************************** * * CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS * CHARACTERS AND NO OVERFLOW HAS OCCURRED, A * CHARACTER WILL BE PUT IN A2 * MKB100 EQU * INH LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM LCR A2,A1 CIRCULAR BUFFER END * LDR A4,A2 XRK A4,/FF OVERFLOW ? RF(NE) MKB130 NO ! * SCR A4,A1 YES ! ENB LDK A1,OVMASK SET OVERFLOW BIT ABL MKBEND COMPLETE REQUEST * MKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ? RF(E) MKB140 NO ! CF A15,EOQUEU YES ! MOVE POINTER ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER =1 IFT PLC=1 =2 * * TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER * LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ? RF(E) MKB135 NO ! ORS A4,DWTDEV,A6 XIF MKB133 ENB RF MKB150 * IFT PLC=1 =2 MKB135 C1R A4,A4 ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION RB MKB133 XIF EJECT * * READ A CHARACTER FROM KEYBOARD * MKB140 EQU * CF A5,INPUT READ CHARACTER ENB * ANK A2,/7F MASK TO GET CHARACTER * IFT PLC=1 =2 * SET "MORE CHARACTERS" INDICATION BIT IF THERE * ARE MORE CHARACTERS * ANK A1,/1 MASK NOT SIGNIFICANT BITS SRC A1,5 ORS A1,DWTDEV,A6 * XIF IFT CTIMUT=1 CF A15,RESTRT RESTART TIMEOUT TIMER XIF * MKB150 EQU * IFT NEWKB+OLDKB=2 =2 * * CHECK WHICH KEYBOARD THAT IS USED * LD A4,DWTDEV,A6 KEYBOARD WITH ANKL A4,/1000 SPECIAL CONVERSION ? RF(Z) MKB290 PERHAPS ! XIF IFT NEWKB=1 =2 * * KB 6236/71/72 IS USED * CHECK INCOMING CHARACTER * LDR A4,A2 SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? RB(Z) MKB100 YES, READ NEXT CHARACTER ADK A4,/8 CTRL/SHIFT ? RF(NN) MKB220 YES ! ADK A4,/8 NORMAL CHARACTER ? RF(N) MKB300 YES ! EJECT * * KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT. * IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE * CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC- * TER SHOULD BE IGNORED. * LDK A1,1 "FLAG BIT" LDR A4,A4 KEYLOCK CHAR. - /70 MKB160 RF(Z) MKB170 KEYLOCK ON ! SUK A4,1 RF(Z) MKB180 KEYLOCK OFF ! SLC A1,1 SHIFT "FLAG BIT" LEFT SUK A4,1 RB MKB160 NEXT KEYLOCK, PERHAPS ? * MKB170 EQU * LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED TM A4,A1 RB(NE) MKB100 NO CHANGE, READ A NEW CHAR. ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" RF MKB190 MKB180 EQU * LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED TM A4,A1 RB(Z) MKB100 NO CHANGE C1R A1,A1 COMPLEMENT FOR AND-FUNCTION ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" MKB190 EQU * CF A15,STORE STORE KEYLOCK CHARACTER IN ECB LDR A4,A7 LOAD ORDER CODE SUK A4,2 RF(N) MKB325 ORDER 1 ! EJECT * * KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE * TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST * MKB200 EQU * LDR A4,A2 LOAD CHARACTER SUK A4,/70 SRC A4,1 SHIFT TO GET KEY NUMBER RF(N) MKB210 ON OR OFF ? ADK A4,/4 ON ! MKB210 SLL A4,1 MAKE WORD POSI- SRL A4,1 TIVE AGAIN C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA ST A4,ECBCW,A8 STORE CODE IN ECB RF MKB335 SET RC=0 AND COMPLETE REQUEST * * CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED) * MKB220 EQU * IFT KBLOCK=1 LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? RB(Z) MKB100 YES ! READ A NEW CHARACTER XIF IFT NEWKB=1 =2 IFT NSHIFT=0 * * MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS * DEPRESSED, AND SKIP THE INCOMING CHARACTER * IF IT IS RELEASED. * CCK A2,/7C00 DEPRESSED ? RF(NE) MKB230 NO ! LDK A2,/00 YES ! LOAD CHARACTER RF MKB300 * MKB230 CCK A2,/7D00 RELEASED ? RB(E) MKB100 YES ! SKIP CHARACTER XIF IFT NEWKB=1 =2 MKB250 LDK A1,/2 SHIFT BIT LDR A4,A4 SHIFT ON ? RF(Z) MKB260 YES ! SUK A4,1 SHIFT OFF ? RF(Z) MKB270 YES ! LDK A1,/4 CONTROL BIT SUK A4,1 CONTROL ON ? RF(Z) MKB260 YES ! SUK A4,1 CONTROL OFF ? RF(Z) MKB270 YES ! SUK A4,1 NUMERIC SHIFT ? RB MKB250 YES ! * MKB260 ORS A1,DWTDEV+DWTCS,A6 SET RF MKB280 MKB270 C1R A1,A1 COMPLEMENT ANS A1,DWTDEV+DWTCS,A6 CLEAR * MKB280 ABL MKB100 NEXT CHARACTER XIF IFT OLDKB=1 =2 EJECT * * SPECIAL CONVERSION OF CHARACTERS FROM * NUMERIC PART OF 6234. * MKB290 EQU * LDR A1,A6 IF THE DWT-ADDRESS IS ANK A1,1 ODD, SHOULD SPECIAL CONVERSION RF(NZ) MKB295 BE USED LDR A4,A2 IF BIT 8 IN CHARACTER IS ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED RF(Z) MKB310 NO SPECIAL CONVERSION ANK A2,/7F MASK AWAY BIT 8 * * INDICATE SPECIAL CONVERSION ! * MKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN LDK A4,/8 LOAD SPECIAL BIT ST A4,DWTDEV+DWTCS,A6 RF MKB310 XIF EJECT * * NORMAL CONVERSION * MKB300 EQU * * IFT KBLOCK=1 LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ? ABL(Z) MKB100 YES ! READ A NEW CHARACTER XIF * MKB310 EQU * LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS RF(E) MKB320 NO CONVERSION AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE LDR* A1,A1 RF(E) MKB320 NO CONVERSION TABLE LDR A4,A2 SRL A4,3 LINE INDEX ADR A1,A4 LDR* A1,A1 COLUMN TABLE ADDRESS RF(E) MKB320 NO COLUMN LDR A4,A2 ANK A4,/F ADR A1,A4 ADD ROW INDEX LCR A2,A1 LOAD CHARACTER * MKB320 EQU * IFT OLDKB=1 =2 LDK A4,/7 RESET SPECIAL BIT ANS A4,DWTDEV+DWTCS,A6 XIF EJECT * * CHECK IF BASIC READ OR ORDER 2 OR 3 * LDR A4,A7 LOAD ORDER CODE SUK A4,2 RF(NN) MKB330 ORDER 2 OR 3 ! * * ORDER 1, BASIC READ * CF A5,STOECH STORE CHAR. IN ECB-BUFFER * AND SEND IT TO ECHO-DEVICE * IF ECHO WANTED * MKB325 EQU * CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? ABL(NE) MKB100 NO ! READ A NEW CHARACTER * RF MKB335 YES ! SET RETURN CODE = 0 EJECT * * ORDER 2 OR 3, STANDARD OR NUMERIC READ * MKB330 EQU * * * CHECK IF IT IS AN END-OF-RECORD-KEY * LD A1,ECBCW,A8 KEY-TABLE ADDRESS RF(Z) MKB360 NO KEYTABLE ! LCR A4,A1 TABLE LENGTH IN A4 ANK A4,/FF ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE ADK A1,1 MKB340 SUK A4,1 RF(N) MKB360 KEY NOT FOUND IN KEYTABLE SUK A1,1 NEXT KEY CCR A2,A1 EOR-CHARACTER ? RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE * ADK A4,1 YES ! MAKE KEYTABLE INDEX MKB350 EQU * ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD * CF A15,STORE STORE CHARACTER IN ECB BUFFER IFT CECHO=1 ORK A2,/80 INDICATE EOR CHARACTER CF A5,EORECH ECHO CHARACTER XIF * MKB335 EQU * LDK A1,0 SET RETURN CODE = 0 RF MKBEND AND COMPLETE REQUEST * EJECT * * * CHARACTER CHECK * MKB360 EQU * STR A2,A15 SAVE CHARACTER ON STACK LD A1,DWTDEV,A6 CWK A7,2 STANDARD READ ? RF(NE) MKB380 NO ! LDK A4,/20 LOWER LIMIT SLC A1,2 /20-/7F ? RF(NN) MKB370 YES ! =4 LDK A1,/5F NO ! UPPER LIMIT RF MKB400 * MKB370 LDK A1,/7F UPPER LIMIT RF MKB400 * MKB380 SLC A1,1 /30-/39 & /70-/79 ? RF(N) MKB390 NO ! =4 * ANK A2,/3F RESET BIT 9 MKB390 LDK A1,/39 UPPER LIMIT LDK A4,/30 LOWER LIMIT * MKB400 SUR A1,A2 RF(N) MKB420 NOT WITHIN LIMITS SUR A4,A2 RF(P) MKB420 NOT WITHIN LIMITS LDR* A1,A15 DUMMY LOAD EJECT * * IT IS A "NORMAL" CHARACTER ! * MKB405 EQU * CF A5,STOECH STORE AND ECHO CHARACTER * CW A3,ECBRL,A8 LENGTH OVERFLOW ? ABL(L) MKB100 NO ! TAKE NEXT CHARACTER * MKB410 LDK A1,8 YES ! SET ERROR CODE RF MKBEND * * CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, * STANDARD EOR, SKIP OR UNKNOWN CHARACTER * MKB420 LDR* A2,A15 RELOAD CHARACTER LDR A1,A2 ANK A1,/FF LD A4,ECBCW,A8 RF(NZ) MKB440 STANDARD EOR NOT USED ! LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR CCK A1,/0D00 STANDARD EOR ? RB(E) MKB350 YES ! MKB440 EQU * SUK A1,/1B TRIPLE ZERO ? (/1B) ABL(E) MZ30 YES ! * ADK A1,/13 BACKSPACE ? (/08) ABL(E) BACKSP YES ! * SUK A1,/10 CLEAR ? (/18) ABL(E) CLEAR YES ! * SUK A1,/2 DOUBLE ZERO ? (/1A) ABL(E) MZ20 YES ! * SUK A1,/E5 SKIP CHARACTER (/FF) ABL(E) MKB100 YES ! IFT GREECE=1 =2 LDR A1,A2 CHECK IF CHARACTER IS SUK A1,/B0 WITHIN LIMITS FOR THE RF(N) MKB460 GREEK CHARACTER SET SUK A1,/9 RB(NP) MKB405 YES IT IS OK MKB460 EQU * XIF * * SET ERROR CODE FOR UNKNOWN CHARACTER * CF A15,STORE STORE CHARACTER IN ECB-BUFFER LDK A1,4 * EJECT **************************************** * * * COMMON END * * ************************************* MKBEND EQU * * IFT CTIMUT=1 LD A4,DWTTP+DWTDEV,A6 RF(E) MKBE10 NO TIMING ! CM* DWTTP+DWTDEV,A6 SCRATCH TIMER CM DWTTP+DWTDEV,A6 XIF * MKBE10 EQU * ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH * IFT CECHO=1 LDR A4,A1 SAVE A1 CF A5,ECHEND END OF ECHOING LDR A1,A4 XIF * ABL LENDIS PERFORM END I/O AND DIPATCH EJECT ************************************** * * * INTERRUPT HANDLER * * ************************************** IHKB EQU * ANK A2,/7F MASK TO GET CHARACTER IFT CTIMUT=1 CF A15,RESTRT RESTART TIMEOUT TIMER XIF * * STORE INCOMING CHARACTER IN CIRCULAR BUFFER * IFT OLDKB=1 =2 LDR A1,A6 SPECIAL CONVERSION ? ANK A1,1 RF(Z) IHKB02 NO ! ORK A2,/80 YES INDICATE BY SETTING BIT 8 SUK A6,1 MAKE DWT-ADDRESS EVEN =3 XIF IHKB02 LD A1,DWTDEV+DWTINQ,A6 LCR A4,A1 XRK A4,/FF ALREADY OVERFLOW ? RF(E) IHKB05 YES ! * LDR A4,A1 CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS * CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? RF(NE) IHKB20 NO ! LDK A1,/FF OVERFLOW INDICATION SCR A1,A4 SET OVFL. IND. IN BUFFER * IHKB05 EQU * IFT NEWKB+OLDKB=2 =2 LD A1,DWTDEV,A6 6236, 71, 72 ? ANKL A1,/1000 RF(Z) EXIT NO ! * XIF IFT NEWKB=1 =2 SUK A2,/70 KEYLOCK, SHIFT, CTRL ? RF(N) EXIT NO ! ADK A2,/70 YES ! * LDK A1,0 SC A1,DWTDEV+1,A6 LD A1,DWTDEV+DWTINQ,A6 LDR A4,A1 CF A15,EOQUEU CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? RF(E) IHKB07 YES ! SCR A2,A4 STORE NEW CHARACTER LDK A2,/FF MOVE OVERFLOW INDICATION LDR A4,A1 FORWARD IN BUFFER RF IHKB20 * * CHECK BUFFER * IHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. IHKB10 EQU * CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ? RF(E) IHKB19 YES ! CF A15,SOQUEU GET PREVIOUS POINTER * LCR A4,A1 GET CHARACTER ANK A4,/7F XRR A4,A2 RF(Z) EXIT EQUAL CHARACTER ! SUK A4,1 INVERTED CHAR. ? RF(NZ) IHKB17 NO ! LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF RF IHKB18 * IHKB17 EQU * SUK A4,/F CTRL, SHIFT, KEYLOCK ? RB(N) IHKB10 YES ! * IHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER RF EXIT * * CHECK BUFFER AGAIN AND SORT OUT * EQUAL AND INV. CHARACTERS * IHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR ANK A4,/FF LD A1,DWTDEV+DWTINQ,A6 IHKB21 CF A15,SOQUEU SUK A4,1 RB(NN) IHKB21 IM DWTDEV,A6 LCR A4,A1 GET OLD CHAR FROM BUFFER CCK A4,/FF00 END OF BUFFER ? RF(E) EXIT YES ! SCR A2,A1 STORE THE NEW ONE LDR A2,A4 PUT CHAR IN A2 ANK A2,/7F RB IHKB07 XIF * IHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER IHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER * EXIT ABL LDISP DISPATCH ! EJECT * * STORING (&ECHOING) SUBROUTINE * SKIPS OTHER CHARACTERS THAN DIGITS IF * NUMERIC READ * STOECH EQU * CF A15,STORE STORE CHAR. IN ECB-BUFFER * IFT CECHO=1 IFT GREECE=1 =2 RF EORECH DO NOT MASK XIF IFT CECHO=1 ECHSUB ANK A2,/7F MASK TO GET CHARACTER EORECH EQU * IFT PLC=1 =2 LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT ANKL A1,/0800 XRS A1,DWTDEV,A6 RESET INDICATION BIT SLC A1,5 XIF IFT CECHO=1 CF A5,ECHO ECHO CHARACTER XIF * RTN A5 * EJECT IFT CTIMUT=1 * * THIS IS THE TIMEOUT ROUTINE * AKBTUT EQU * LDR A6,A1 LOAD DWT-ADDRESS CM DWTTP+DWTDEV,A6 LD A2,DWTST,A6 ABL(N) LDISP DISPATCH IF NO REQUEST ON * CF A15,ABORT RESET INPUT REQUESTED FLAG LDR A5,A6 INITIATE DWT-STACK POINTER ADKL A5,DWTSB2 LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT LD A8,DWTECB,A6 RELOAD ECB-ADDRESS LDK A1,/40 SET RETURN CODE ABL MKBEND COMPLETE REQUEST * * RESTART TIMEOUT TIMER * RESTRT EQU * LD A4,DWTTP+DWTDEV,A6 RF(E) NOTIME NO TIMING LDKL A4,-TIME RESTART TIMER ST* A4,DWTTP+DWTDEV,A6 NOTIME RTN A15 XIF EJECT * * STORE = SUBROUTINE TO STORE A CHARACTER * IN ECB-BUFFER AND INCREMENT BUFFER INDEX * * ON ENTRY: A2 = CHARACTER TO STORE * A3 = BUFFER INDEX * STORE EQU * LD A1,ECBBA,A8 BUFFER ADDRESS ADR A1,A3 ADD BUFFER INDEX SCR A2,A1 STORE CHARACTER IN BUFFER ADK A3,1 INCREMENT BUFFER INDEX RTN A15 * * EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER * * ON ENTRY: A1 = QUEUE POINTER * A6 = DWT-ADDRESS * EOQUEU EQU * ADK A1,1 SUR A1,A6 CWK A1,DWTDEV+DWTEQ END OF QUEUE ? RF(NE) EOQU10 LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS EOQU10 ADR A1,A6 RTN A15 * * SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER * * ON ENTRY: A1 = QUEUE POINTER * A6 = DWT-ADDRESS * SOQUEU EQU * SUR A1,A6 CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? RF(NE) SOQ10 NO ! LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE SOQ10 ADR A1,A6 SUK A1,1 GET PREVIOUS POINTER POS. RTN A15 EJECT * * BACKSPACE * BACKSP EQU * LDR A3,A3 RF(Z) KBBSPA ECB-BUFFER EMPTY SUK A3,1 ONE STEP BACKWARDS SUR A2,A2 CLEAR A2 CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR SUK A3,1 STEP BACKWARDS AGAIN * KBBSPA EQU * IFT CECHO=1 LDK A2,/8 BACKSPACE TO ECHODEVICE XIF KBBSP2 EQU * IFT CECHO=1 CF A5,ECHSUB ECHSUB CHARACTER XIF ABL MKB100 NEXT CHARACTER * * CLEAR * CLEAR EQU * LDK A3,0 RESET ECB-BUFFER RB KBBSP2 NEXT CHARACTER EJECT * * MULTIPLE ZERO * MZ20 EQU * DOUBLE ZERO LDK A4,2 RF MZ50 * MZ30 EQU * TRIPLE ZERO LDK A4,3 * MZ50 EQU * SUK A4,1 ANY MORE ZEROES ? ABL(L) MKB100 NO, NEXT CHARACTER * EJECT INH LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER CF A15,SOQUEU GET PREVIOUS POINTER * CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ? RF(E) MZ90 NO ! MZ75 EQU * ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER LDK A2,/30 STORE ZERO IN CIRCULAR BUFF. SCR A2,A1 RB MZ50 * MZ80 EQU * LDK A4,/FF INDICATE BUFFER OVERFLOW SCR A4,A1 ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND ENB THROUGHPUT ERRORS * ABL MKBEND * MZ90 EQU * LDR A4,A4 ALL ZEROES ? RB(E) MZ80 YES LDKL A2,/FFFF NO, MOVE IN-POINTER ADS A2,DWTDEV+DWTINQ,A6 RB MZ75 EJECT * **************************************** * * ABORT ROUTINE * **************************************** * ABKB EQU * CF A15,ABORT ABORT INPUT REQUEST IFT CTIMUT=1 LD A4,DWTTP+DWTDEV,A6 RF(Z) ABKB05 NO TIMER ! CM* DWTTP+DWTDEV,A6 CM DWTTP+DWTDEV,A6 RESET TIMER ABKB05 EQU * XIF * LD A4,DWTST,A6 GET STATUS WORD CF A15,TENDIO END I/O ON KEYBOARD SLC A4,2 GET ECHO-MODE INDICATION BIT ABKB10 EQU * ABL(NN) LDISP NOT AN ECHO REQUEST * LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE LD A3,DWTADR,A4 GET ADDRESS BLOCK LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT * LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT ADR A5,A6 ADD DWT-ADDRESS * ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB04 REL 11.0 81-06-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0076 Head {h00=0x0034, h01=0x0050, text=» =4 WRONG RETURN CODE (UNDEFINED KEY, BIT 13)«, t00=0x0000, t01=0x0042}
0x0076…0094 Head {h00=0x001a, h01=0x0050, text=» REL 11.0 81-06-16 «, t00=0x0000, t01=0x007a}
0x0094…00cc Head {h00=0x0034, h01=0x0050, text=» =3 ODD DWT-ADDRESS WAS NOT MADE EVEN IN IHKB«, t00=0x0000, t01=0x0098}
0x00cc…00ea Head {h00=0x001a, h01=0x0050, text=» REL 11.0 81-05-25 «, t00=0x0000, t01=0x00d0}
0x00ea…011e Head {h00=0x0030, h01=0x0050, text=» =2 GREEK CHARACTER SET & NEW CONDITIONS «, t00=0x0000, t01=0x00ee}
0x011e…013c Head {h00=0x001a, h01=0x0050, text=» REL 11.0 81-03-27 «, t00=0x0000, t01=0x0122}
0x013c…0174 Head {h00=0x0034, h01=0x0050, text=» = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE«, t00=0x0000, t01=0x0140}
0x0174…01a4 Head {h00=0x002c, h01=0x0050, text=» ADDRESS VIA CIRCULAR INPUT BUFFER«, t00=0x0000, t01=0x0178}
0x01a4…01c0 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0001, t01=0x0018}
0x01c0…01ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01ca…01fc Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x003e}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…024e Head {h00=0x003a, h01=0x0050, text=»* P H I L I P S T E R M I N A L S Y S T E M P T S«, t00=0x0001, t01=0x0084}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…027c Head {h00=0x0020, h01=0x0050, text=»* DRKB04 = DRIVER KEYBOARD«, t00=0x0001, t01=0x00cc}
0x027c…0286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f0}
0x0286…02b8 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x00fa}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02fa Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS«, t00=0x0001, t01=0x0136}
0x02fa…0324 Head {h00=0x0026, h01=0x0050, text=»* PTS 6231, -32, -33, -34, -36, «, t00=0x0001, t01=0x016e}
0x0324…035a Head {h00=0x0032, h01=0x0050, text=»* -71, -72, 6331, 6342 AND BADGE CARD READER«, t00=0x0002, t01=0x0008}
0x035a…0392 Head {h00=0x0034, h01=0x0050, text=»* PTS 6261 WITH CONNECTED PIN (PERSONAL IDEN- «, t00=0x0002, t01=0x003e}
0x0392…03bc Head {h00=0x0026, h01=0x0050, text=»* TIFICATION NUMBER -KEYBOARD). «, t00=0x0002, t01=0x0076}
0x03bc…03c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a0}
0x03c6…03fe Head {h00=0x0034, h01=0x0050, text=»* ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. «, t00=0x0002, t01=0x00aa}
0x03fe…0408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e2}
0x0408…043c Head {h00=0x0030, h01=0x0050, text=»* AN ECHO DEVICE CAN BE ATTACHED TO EVERY «, t00=0x0002, t01=0x00ec}
0x043c…0470 Head {h00=0x0030, h01=0x0050, text=»* KEYBOARD, WHERE RECEIVED CHARACTERS ARE «, t00=0x0002, t01=0x0120}
0x0470…0484 Head {h00=0x0010, h01=0x0050, text=»* ECHOED. «, t00=0x0002, t01=0x0154}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04c2 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x0172}
0x04c2…04e8 Head {h00=0x0022, h01=0x0050, text=»* R C K B = RECOVERY ROUTINE«, t00=0x0003, t01=0x0016}
0x04e8…050e Head {h00=0x0022, h01=0x0050, text=»* A C K B = ACTIVATION PART «, t00=0x0003, t01=0x003c}
0x050e…052e Head {h00=0x001c, h01=0x0050, text=»* M A K B = MAIN PART «, t00=0x0003, t01=0x0062}
0x052e…0556 Head {h00=0x0024, h01=0x0050, text=»* I H K B = INTERRUPT HANDLER «, t00=0x0003, t01=0x0082}
0x0556…0560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x0560…058e Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x00b4}
0x058e…05b2 Head {h00=0x0020, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0003, t01=0x00e2}
0x05b2…05d8 Head {h00=0x0022, h01=0x0050, text=»* 02: STANDARD READ«, t00=0x0003, t01=0x0106}
0x05d8…05fe Head {h00=0x0022, h01=0x0050, text=»* 03: NUMERIC READ «, t00=0x0003, t01=0x012c}
0x05fe…062a Head {h00=0x0028, h01=0x0050, text=»* 31: RESET INPUT BUFFER «, t00=0x0003, t01=0x0152}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017e}
0x0634…0642 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0188}
0x0642…0664 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0004, t01=0x0008}
0x0664…068c Head {h00=0x0024, h01=0x0050, text=»* REGISTER A1: RETURN CODE «, t00=0x0004, t01=0x002a}
0x068c…06b8 Head {h00=0x0028, h01=0x0050, text=»* A2: INPUT CHARACTER «, t00=0x0004, t01=0x0052}
0x06b8…06e0 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER INDEX«, t00=0x0004, t01=0x007e}
0x06e0…070a Head {h00=0x0026, h01=0x0050, text=»* A4: WORK REGISTER «, t00=0x0004, t01=0x00a6}
0x070a…0730 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK BASE«, t00=0x0004, t01=0x00d0}
0x0730…0758 Head {h00=0x0024, h01=0x0050, text=»* A6: DWT-ADDRESS «, t00=0x0004, t01=0x00f6}
0x0758…077a Head {h00=0x001e, h01=0x0050, text=»* A7: ORDER «, t00=0x0004, t01=0x011e}
0x077a…07a2 Head {h00=0x0024, h01=0x0050, text=»* A8: ECB-ADDRESS «, t00=0x0004, t01=0x0140}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0168}
0x07ac…07c8 Head {h00=0x0018, h01=0x0050, text=»* SYSTEM ADAPTION «, t00=0x0004, t01=0x0172}
0x07c8…07d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018e}
0x07d2…0808 Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE «, t00=0x0005, t01=0x0008}
0x0808…0824 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT. «, t00=0x0005, t01=0x003e}
0x0824…082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005a}
0x082e…0864 Head {h00=0x0032, h01=0x0050, text=»* IF TIMING IS WANTED, BIT 0 IN DWTDEV MUST «, t00=0x0005, t01=0x0064}
0x0864…08a0 Head {h00=0x0038, h01=0x0050, text=»* BE SET UNEQUAL TO ZERO. STANDARD VALUE FOR TIME-«, t00=0x0005, t01=0x009a}
0x08a0…08da Head {h00=0x0036, h01=0x0050, text=»* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF«, t00=0x0005, t01=0x00d6}
0x08da…0916 Head {h00=0x0038, h01=0x0050, text=»* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR «, t00=0x0005, t01=0x0110}
0x0916…093c Head {h00=0x0022, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED.«, t00=0x0005, t01=0x014c}
0x093c…0946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0950…0990 Head {h00=0x003c, h01=0x0050, text=»* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS WITHIN «, t00=0x0005, t01=0x0186}
0x0990…09ce Head {h00=0x003a, h01=0x0050, text=»* /30-/39 AND /70-/79 ARE ACCEPTED FOR NUMERIC READ.«, t00=0x0006, t01=0x0036}
0x09ce…0a0a Head {h00=0x0038, h01=0x0050, text=»* IF IT IS SET TO ONE, ONLY /30-/39 ARE ACCEPTED. «, t00=0x0006, t01=0x0074}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b0}
0x0a14…0a56 Head {h00=0x003e, h01=0x0050, text=»* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED«, t00=0x0006, t01=0x00ba}
0x0a56…0a96 Head {h00=0x003c, h01=0x0050, text=»* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE «, t00=0x0006, t01=0x00fc}
0x0a96…0aac Head {h00=0x0012, h01=0x0050, text=»* ACCEPTED. «, t00=0x0006, t01=0x013c}
0x0aac…0ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab6…0af2 Head {h00=0x0038, h01=0x0050, text=»* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3«, t00=0x0006, t01=0x015c}
0x0af2…0b2e Head {h00=0x0038, h01=0x0050, text=»* IN DWTDEV MUST BE SET IF PTS 6236/71/72 IS USED.«, t00=0x0007, t01=0x0008}
0x0b2e…0b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0044}
0x0b38…0b78 Head {h00=0x003c, h01=0x0050, text=»* BIT 4 IN DWTDEV IS USED BY THE DRIVER TO INDICATE IF«, t00=0x0007, t01=0x004e}
0x0b78…0ba6 Head {h00=0x002a, h01=0x0050, text=»* MORE CHARACTERS ARE TO BE ECHOED. «, t00=0x0007, t01=0x008e}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00bc}
0x0bb0…0bf4 Head {h00=0x0040, h01=0x0050, text=»* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. «, t00=0x0007, t01=0x00c6}
0x0bf4…0bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0bfe…0c3a Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0007, t01=0x0114}
0x0c3a…0c66 Head {h00=0x0028, h01=0x0050, text=»* TO EXCLUDE FOLLOWING FUNCTIONS: «, t00=0x0007, t01=0x0150}
0x0c66…0c84 Head {h00=0x001a, h01=0x0050, text=»* ---- ECHO FUNCTION«, t00=0x0007, t01=0x017c}
0x0c84…0ca6 Head {h00=0x001e, h01=0x0050, text=»* ---- TIME OUT FUNCTION«, t00=0x0008, t01=0x000a}
0x0ca6…0cd8 Head {h00=0x002e, h01=0x0050, text=»* ---- KEYBOARD LOCKED IF NO KEYLOCK ON «, t00=0x0008, t01=0x002c}
0x0cd8…0d10 Head {h00=0x0034, h01=0x0050, text=»* ---- COMPLETION OF READ REQUEST AT POWER-ON «, t00=0x0008, t01=0x005e}
0x0d10…0d56 Head {h00=0x0042, h01=0x0050, text=»* ---- SHIFT KEY ON NUMERIC PART OF 6272 USED AS NORMAL KEY «, t00=0x0008, t01=0x0096}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00dc}
0x0d60…0d6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e6}
0x0d6e…0d82 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0008, t01=0x00f4}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0dae Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD4 ADDRESSBLOCK «, t00=0x0008, t01=0x0112}
0x0dae…0db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0134}
0x0db8…0de0 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES«, t00=0x0008, t01=0x013e}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0dea…0e18 Head {h00=0x002a, h01=0x0050, text=» EXTRN LENDER END REQUEST AND DISPATCH«, t00=0x0008, t01=0x0170}
0x0e18…0e3e Head {h00=0x0022, h01=0x0050, text=» EXTRN INPUT READ A CHARACTER «, t00=0x0009, t01=0x000e}
0x0e3e…0e56 Head {h00=0x0014, h01=0x0050, text=» EXTRN ECHO ECHO«, t00=0x0009, t01=0x0034}
0x0e56…0e78 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x0009, t01=0x004c}
0x0e78…0e96 Head {h00=0x001a, h01=0x0050, text=» EXTRN LDISP DISPATCH «, t00=0x0009, t01=0x006e}
0x0e96…0eb6 Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SETS TIME «, t00=0x0009, t01=0x008c}
0x0eb6…0ee0 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0009, t01=0x00ac}
0x0ee0…0f04 Head {h00=0x0020, h01=0x0050, text=» EXTRN ABORT ABORT REQUESTS «, t00=0x0009, t01=0x00d6}
0x0f04…0f28 Head {h00=0x0020, h01=0x0050, text=» EXTRN ABTADR ABORT-ADDRESS «, t00=0x0009, t01=0x00fa}
0x0f28…0f3e Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0009, t01=0x011e}
0x0f3e…0f52 Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0009, t01=0x0134}
0x0f52…0f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5c…0f76 Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0009, t01=0x0152}
0x0f76…0f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016c}
0x0f80…0f96 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTDEV «, t00=0x0009, t01=0x0176}
0x0f96…0faa Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTST«, t00=0x0009, t01=0x018c}
0x0faa…0fbe Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTA3«, t00=0x000a, t01=0x0010}
0x0fbe…0fd2 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTA5«, t00=0x000a, t01=0x0024}
0x0fd2…0fe8 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTADR «, t00=0x000a, t01=0x0038}
0x0fe8…0ffe Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECH «, t00=0x000a, t01=0x004e}
0x0ffe…1014 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTSB2 «, t00=0x000a, t01=0x0064}
0x1014…102a Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x000a, t01=0x007a}
0x102a…1034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1034…104e Head {h00=0x0016, h01=0x0050, text=»* ECB PARAMETERS«, t00=0x000a, t01=0x009a}
0x104e…1058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b4}
0x1058…107c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000a, t01=0x00be}
0x107c…10a2 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000a, t01=0x00e2}
0x10a2…10c8 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000a, t01=0x0108}
0x10c8…10ea Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000a, t01=0x012e}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f4…110a Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x000a, t01=0x015a}
0x110a…1114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1114…1142 Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000a, t01=0x017a}
0x1142…1168 Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIMEOUT CONSTANT «, t00=0x000b, t01=0x0018}
0x1168…1176 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x003e}
0x1176…1180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004c}
0x1180…11ac Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000b, t01=0x0056}
0x11ac…11b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0082}
0x11b6…11d6 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000b, t01=0x008c}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ac}
0x11e0…120c Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000b, t01=0x00b6}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1216…1256 Head {h00=0x003c, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1«, t00=0x000b, t01=0x00ec}
0x1256…1260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x1260…1272 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x0136}
0x1272…1288 Head {h00=0x0012, h01=0x0050, text=»CTIMUT EQU X:A«, t00=0x000b, t01=0x0148}
0x1288…1292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1292…12ce Head {h00=0x0038, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0«, t00=0x000b, t01=0x0168}
0x12ce…12d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0014}
0x12d8…12ea Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000c, t01=0x001e}
0x12ea…12fe Head {h00=0x0010, h01=0x0050, text=»CECHO EQU 00«, t00=0x000c, t01=0x0030}
0x12fe…1308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0044}
0x1308…1342 Head {h00=0x0036, h01=0x0050, text=»* COMPLETION OF READ REQUEST AT POWER ON MAY BE «, t00=0x000c, t01=0x004e}
0x1342…1368 Head {h00=0x0022, h01=0x0050, text=»* INCLUDED BY SETTING X:C =1«, t00=0x000c, t01=0x0088}
0x1368…1372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ae}
0x1372…1384 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x00b8}
0x1384…139a Head {h00=0x0012, h01=0x0050, text=»RECOV EQU X:C «, t00=0x000c, t01=0x00ca}
0x139a…13a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e0}
0x13a4…13e2 Head {h00=0x003a, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED«, t00=0x000c, t01=0x00ea}
0x13e2…1416 Head {h00=0x0030, h01=0x0050, text=»* IN X:D, NUMBER OF BYTES IN DECIMAL FORM.«, t00=0x000c, t01=0x0128}
0x1416…1420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015c}
0x1420…1432 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 8 «, t00=0x000c, t01=0x0166}
0x1432…1448 Head {h00=0x0012, h01=0x0050, text=»DWTLNG EQU 20 «, t00=0x000c, t01=0x0178}
0x1448…1452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018e}
0x1452…1474 Head {h00=0x001e, h01=0x0050, text=»* CODE CONVERSION DUMMY «, t00=0x000d, t01=0x0008}
0x1474…147e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x147e…1490 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0034}
0x1490…149a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x149a…14a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0050}
0x14a8…14b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005e}
0x14b2…14f6 Head {h00=0x0040, h01=0x0050, text=»* BY SETTING X:F=0 THE KEY A15 ON KB 71/72 GIVES THE CODE «, t00=0x000d, t01=0x0068}
0x14f6…1522 Head {h00=0x0028, h01=0x0050, text=»* /00 INSTEAD OF BEING A SHIFT KEY«, t00=0x000d, t01=0x00ac}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d8}
0x152c…153e Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000d, t01=0x00e2}
0x153e…1552 Head {h00=0x0010, h01=0x0050, text=»NSHIFT EQU 1«, t00=0x000d, t01=0x00f4}
0x1552…155c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0108}
0x155c…1586 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:G = 1 KEYBOARD IS«, t00=0x000d, t01=0x0112}
0x1586…15aa Head {h00=0x0020, h01=0x0050, text=»* LOCKED IF NO KEYLOCK ON «, t00=0x000d, t01=0x013c}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b4…15c6 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000d, t01=0x016a}
0x15c6…15dc Head {h00=0x0012, h01=0x0050, text=»KBLOCK EQU X:G«, t00=0x000d, t01=0x017c}
0x15dc…15e6 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e6…1602 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x000e}
0x1602…160c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002a}
0x160c…161e Head {h00=0x000e, h01=0x0050, text=»X:H EQU 10«, t00=0x000e, t01=0x0034}
0x161e…1634 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000e, t01=0x0046}
0x1634…163e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x163e…165c Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000e, t01=0x0066}
0x165c…1666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0084}
0x1666…1678 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 10«, t00=0x000e, t01=0x008e}
0x1678…168e Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:I«, t00=0x000e, t01=0x00a0}
0x168e…1698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b6}
0x1698…16d2 Head {h00=0x0036, h01=0x0050, text=»* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2«, t00=0x000e, t01=0x00c0}
0x16d2…16f8 Head {h00=0x0022, h01=0x0050, text=»* IS INCLUDED IN SYSTEM =2 «, t00=0x000e, t01=0x00fa}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1702…1714 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 1 «, t00=0x000e, t01=0x012a}
0x1714…172a Head {h00=0x0012, h01=0x0050, text=»NEWKB EQU X:J «, t00=0x000e, t01=0x013c}
0x172a…1734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1734…1770 Head {h00=0x0038, h01=0x0050, text=»* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 «, t00=0x000e, t01=0x015c}
0x1770…179e Head {h00=0x002a, h01=0x0050, text=»* 71 OR 72 IS INCLUDED IN SYSTEM =2«, t00=0x000f, t01=0x0008}
0x179e…17a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0036}
0x17a8…17ba Head {h00=0x000e, h01=0x0050, text=»X:K EQU 1 «, t00=0x000f, t01=0x0040}
0x17ba…17ce Head {h00=0x0010, h01=0x0050, text=»OLDKB EQU 00«, t00=0x000f, t01=0x0052}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17d8…180e Head {h00=0x0032, h01=0x0050, text=»* X:L SHOULD BE SET TO 1 IF PLC IS USED =2 «, t00=0x000f, t01=0x0070}
0x180e…1818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1818…182a Head {h00=0x000e, h01=0x0050, text=»X:L EQU 1 «, t00=0x000f, t01=0x00b0}
0x182a…183e Head {h00=0x0010, h01=0x0050, text=»PLC EQU X:L «, t00=0x000f, t01=0x00c2}
0x183e…1848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d6}
0x1848…1878 Head {h00=0x002c, h01=0x0050, text=»* IF X:M = 1 IT IS POSSIBLE TO USE =2«, t00=0x000f, t01=0x00e0}
0x1878…189c Head {h00=0x0020, h01=0x0050, text=»* GREEK CHARACTER SET =2 «, t00=0x000f, t01=0x0110}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a6…18b8 Head {h00=0x000e, h01=0x0050, text=»X:M EQU 0 «, t00=0x000f, t01=0x013e}
0x18b8…18ce Head {h00=0x0012, h01=0x0050, text=»GREECE EQU X:M«, t00=0x000f, t01=0x0150}
0x18ce…1904 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU-PAGING IS«, t00=0x000f, t01=0x0166}
0x1904…1932 Head {h00=0x002a, h01=0x0050, text=»* OBTAINED BY SETTING MMUPAG EQU 1. «, t00=0x0010, t01=0x000c}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x193c…1950 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0010, t01=0x0044}
0x1950…195a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x195a…1968 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0062}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1972…198e Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x0010, t01=0x007a}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x1998…19be Head {h00=0x0022, h01=0x0050, text=»DWTKEY EQU /04 KEYLOCK MEMORY «, t00=0x0010, t01=0x00a0}
0x19be…19e6 Head {h00=0x0024, h01=0x0050, text=»DWTCS EQU /06 CRTL-SHIFT MEMORY «, t00=0x0010, t01=0x00c6}
0x19e6…1a18 Head {h00=0x002e, h01=0x0050, text=»DWTCTB EQU /08 CONVERSION POINTERS ADDRESS«, t00=0x0010, t01=0x00ee}
0x1a18…1a3c Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /0A TIMER POINTER «, t00=0x0010, t01=0x0120}
0x1a3c…1a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0144}
0x1a46…1a68 Head {h00=0x001e, h01=0x0050, text=»* CIRCULAR INPUT BUFFER «, t00=0x0010, t01=0x014e}
0x1a68…1a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a72…1aa0 Head {h00=0x002a, h01=0x0050, text=»DWTINQ EQU /0C POINTER TO FIRST PLACE «, t00=0x0010, t01=0x017a}
0x1aa0…1acc Head {h00=0x0028, h01=0x0050, text=»DWTUTQ EQU /0E POINTER TO LAST PLACE«, t00=0x0011, t01=0x0018}
0x1acc…1af2 Head {h00=0x0022, h01=0x0050, text=»DWTSQ EQU /10 START OF BUFFER «, t00=0x0011, t01=0x0044}
0x1af2…1b1e Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER«, t00=0x0011, t01=0x006a}
0x1b1e…1b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0096}
0x1b28…1b42 Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0011, t01=0x00a0}
0x1b42…1b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x1b4c…1b6e Head {h00=0x001e, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE«, t00=0x0011, t01=0x00c4}
0x1b6e…1b92 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x00e6}
0x1b92…1bae Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x010a}
0x1bae…1bc2 Head {h00=0x0010, h01=0x0050, text=»KBAD4 EQU * «, t00=0x0011, t01=0x0126}
0x1bc2…1be4 Head {h00=0x001e, h01=0x0050, text=» DATA ACKB ACTIVATION PART«, t00=0x0011, t01=0x013a}
0x1be4…1c04 Head {h00=0x001c, h01=0x0050, text=» DATA ABKB ABORT ROUTINE«, t00=0x0011, t01=0x015c}
0x1c04…1c28 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0011, t01=0x017c}
0x1c28…1c3c Head {h00=0x0010, h01=0x0050, text=» IFF RECOV=1«, t00=0x0012, t01=0x0010}
0x1c3c…1c60 Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO RECOVERY ROUTINE «, t00=0x0012, t01=0x0024}
0x1c60…1c6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0048}
0x1c6c…1c80 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0012, t01=0x0054}
0x1c80…1ca4 Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0012, t01=0x0068}
0x1ca4…1cb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x008c}
0x1cb2…1cde Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0012, t01=0x009a}
0x1cde…1ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c6}
0x1ce8…1d04 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x0012, t01=0x00d0}
0x1d04…1d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ec}
0x1d0e…1d3c Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0012, t01=0x00f6}
0x1d3c…1d5a Head {h00=0x001a, h01=0x0050, text=»RCKB LDR A8,A8 BUSY ? «, t00=0x0012, t01=0x0124}
0x1d5a…1d74 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC10 YES !«, t00=0x0012, t01=0x0142}
0x1d74…1d8e Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/400 NO !«, t00=0x0012, t01=0x015c}
0x1d8e…1dba Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE POWER OFF«, t00=0x0012, t01=0x0176}
0x1dba…1dd8 Head {h00=0x001a, h01=0x0050, text=» ABL LENDIS DISPATCH !«, t00=0x0013, t01=0x0012}
0x1dd8…1de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de2…1e04 Head {h00=0x001e, h01=0x0050, text=»RC10 CWK A7,1 BASIC READ ?«, t00=0x0013, t01=0x003a}
0x1e04…1e20 Head {h00=0x0018, h01=0x0050, text=» ABL(E) LDISP YES ! «, t00=0x0013, t01=0x005c}
0x1e20…1e30 Head {h00=0x000c, h01=0x0050, text=»* NO ! «, t00=0x0013, t01=0x0078}
0x1e30…1e60 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0013, t01=0x0088}
0x1e60…1e90 Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH «, t00=0x0013, t01=0x00b8}
0x1e90…1eba Head {h00=0x0026, h01=0x0050, text=»RC15 CM ECBCW,A8 COMPLETE REQUEST «, t00=0x0013, t01=0x00e8}
0x1eba…1ee4 Head {h00=0x0026, h01=0x0050, text=» ABL MKB335 AND SET RETURN CODE =0«, t00=0x0013, t01=0x0112}
0x1ee4…1ef0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x013c}
0x1ef0…1efe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0148}
0x1efe…1f2a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x0156}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f34…1f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f3e…1f52 Head {h00=0x0010, h01=0x0050, text=»* A C K B «, t00=0x0014, t01=0x0008}
0x1f52…1f6e Head {h00=0x0018, h01=0x0050, text=»* ACTIVATION PART «, t00=0x0014, t01=0x001c}
0x1f6e…1f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0038}
0x1f78…1f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0042}
0x1f82…1fae Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0014, t01=0x004c}
0x1fae…1fc0 Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0014, t01=0x0078}
0x1fc0…1fcc Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0014, t01=0x008a}
0x1fcc…1fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0096}
0x1fd6…1ff8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET REGISTERS «, t00=0x0014, t01=0x00a0}
0x1ff8…200a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0014, t01=0x00c2}
0x200a…2014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d4}
0x2014…202c Head {h00=0x0014, h01=0x0050, text=»* CHECK ORDER «, t00=0x0014, t01=0x00de}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f6}
0x2036…2048 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x0100}
0x2048…206c Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0014, t01=0x0112}
0x206c…207e Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0014, t01=0x0136}
0x207e…20a4 Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB200 ORDER 1, 2 OR 3 «, t00=0x0014, t01=0x0148}
0x20a4…20ba Head {h00=0x0012, h01=0x0050, text=» SUK A4,/2D «, t00=0x0014, t01=0x016e}
0x20ba…20d8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0014, t01=0x0184}
0x20d8…20e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0012}
0x20e2…20fc Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL ORDER «, t00=0x0015, t01=0x001c}
0x20fc…2106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x2106…211a Head {h00=0x0010, h01=0x0050, text=»AKB100 EQU *«, t00=0x0015, t01=0x0040}
0x211a…213e Head {h00=0x0020, h01=0x0050, text=» ABL LENDER COMPLETE REQUEST«, t00=0x0015, t01=0x0054}
0x213e…214c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0078}
0x214c…2156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0086}
0x2156…2180 Head {h00=0x0026, h01=0x0050, text=»* ORDER 31. RESET INPUT BUFFER. «, t00=0x0015, t01=0x0090}
0x2180…218a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ba}
0x218a…219e Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x00c4}
0x219e…21aa Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0015, t01=0x00d8}
0x21aa…21d2 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 BUF END «, t00=0x0015, t01=0x00e4}
0x21d2…2200 Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ?«, t00=0x0015, t01=0x010c}
0x2200…221c Head {h00=0x0018, h01=0x0050, text=» RF(E) AKB119 YES ! «, t00=0x0015, t01=0x013a}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2226…2238 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0015, t01=0x0160}
0x2238…2256 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0015, t01=0x0172}
0x2256…226e Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTDEV,A6«, t00=0x0015, t01=0x0190}
0x226e…229a Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 PTS 6236, -71, -72 ? «, t00=0x0016, t01=0x0018}
0x229a…22b4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AKB118 NO !«, t00=0x0016, t01=0x0044}
0x22b4…22c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x005e}
0x22c0…22d8 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0016, t01=0x006a}
0x22d8…22e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0082}
0x22e2…2320 Head {h00=0x003a, h01=0x0050, text=»* SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED«, t00=0x0016, t01=0x008c}
0x2320…2352 Head {h00=0x002e, h01=0x0050, text=»* FROM BUFFER WHEN KB 6236/71/72 IS USED«, t00=0x0016, t01=0x00ca}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fc}
0x235c…2382 Head {h00=0x0022, h01=0x0050, text=»AKB112 LCR A4,A1 GET CHARACTER«, t00=0x0016, t01=0x0106}
0x2382…2396 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x012c}
0x2396…23ac Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0016, t01=0x0140}
0x23ac…23d6 Head {h00=0x0026, h01=0x0050, text=» CCK A4,/7C00 NUMSHIFT DEPRESSED ?«, t00=0x0016, t01=0x0156}
0x23d6…2400 Head {h00=0x0026, h01=0x0050, text=» RF(E) AKB113 YES ! SKIP CHARACTER«, t00=0x0016, t01=0x0180}
0x2400…240c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x001a}
0x240c…2424 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0017, t01=0x0026}
0x2424…2448 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/80 SKIP CHARACTER ?«, t00=0x0017, t01=0x003e}
0x2448…2464 Head {h00=0x0018, h01=0x0050, text=» RF(Z) AKB113 YES ! «, t00=0x0017, t01=0x0062}
0x2464…248e Head {h00=0x0026, h01=0x0050, text=» ADK A4,/10 SHIFT, CTRL, KEYLOCK ?«, t00=0x0017, t01=0x007e}
0x248e…24aa Head {h00=0x0018, h01=0x0050, text=» RF(NN) AKB120 YES !«, t00=0x0017, t01=0x00a8}
0x24aa…24b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c4}
0x24b4…24e2 Head {h00=0x002a, h01=0x0050, text=»AKB113 CF A15,EOQUEU GET NEXT POINTER «, t00=0x0017, t01=0x00ce}
0x24e2…250e Head {h00=0x0028, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 END OF BUF ?«, t00=0x0017, t01=0x00fc}
0x250e…2534 Head {h00=0x0022, h01=0x0050, text=» RB(NE) AKB112 NO ! CHECK NEXT«, t00=0x0017, t01=0x0128}
0x2534…253e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x253e…254a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0158}
0x254a…2562 Head {h00=0x0014, h01=0x0050, text=»AKB118 SCR A3,A1«, t00=0x0017, t01=0x0164}
0x2562…2586 Head {h00=0x0020, h01=0x0050, text=» ST A2,DWTDEV+DWTINQ,A6 YES!«, t00=0x0017, t01=0x017c}
0x2586…2598 Head {h00=0x000e, h01=0x0050, text=»AKB119 ENB«, t00=0x0018, t01=0x0010}
0x2598…25ca Head {h00=0x002e, h01=0x0050, text=» ABL MKB335 SET RC=0 AND COMPLETE REQUEST «, t00=0x0018, t01=0x0022}
0x25ca…25d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0054}
0x25d4…25ec Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0018, t01=0x005e}
0x25ec…2614 Head {h00=0x0024, h01=0x0050, text=»AKB120 ADK A4,/70 RESTORE CHAR. «, t00=0x0018, t01=0x0076}
0x2614…2634 Head {h00=0x001c, h01=0x0050, text=» SCR A4,A2 STORE IN BUF.«, t00=0x0018, t01=0x009e}
0x2634…265a Head {h00=0x0022, h01=0x0050, text=» LDR A3,A1 EXCHANGE REGISTERS «, t00=0x0018, t01=0x00be}
0x265a…266c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x00e4}
0x266c…2694 Head {h00=0x0024, h01=0x0050, text=» CF A15,EOQUEU GET NEXT POINTER «, t00=0x0018, t01=0x00f6}
0x2694…26a6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x011e}
0x26a6…26b8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0018, t01=0x0130}
0x26b8…26ca Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0018, t01=0x0142}
0x26ca…26dc Head {h00=0x000e, h01=0x0050, text=» RB AKB113«, t00=0x0018, t01=0x0154}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e6…26f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0170}
0x26f2…2706 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0018, t01=0x017c}
0x2706…271a Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0018, t01=0x0190}
0x271a…2724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0014}
0x2724…273e Head {h00=0x0016, h01=0x0050, text=»* POWER OFF TEST«, t00=0x0019, t01=0x001e}
0x273e…2748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2748…276c Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV,A6 POWER OFF ?«, t00=0x0019, t01=0x0042}
0x276c…2782 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/400 «, t00=0x0019, t01=0x0066}
0x2782…279c Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO !«, t00=0x0019, t01=0x007c}
0x279c…27ca Head {h00=0x002a, h01=0x0050, text=» XRS A2,DWTDEV,A6 RESET POWER OFF BIT «, t00=0x0019, t01=0x0096}
0x27ca…27e8 Head {h00=0x001a, h01=0x0050, text=» CWK A7,1 BASIC READ ?«, t00=0x0019, t01=0x00c4}
0x27e8…2814 Head {h00=0x0028, h01=0x0050, text=» RB(NE) RC15 NO ! COMPLETE REQUEST !«, t00=0x0019, t01=0x00e2}
0x2814…2820 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x010e}
0x2820…2834 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0019, t01=0x011a}
0x2834…284a Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0019, t01=0x012e}
0x284a…2858 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0144}
0x2858…2862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0152}
0x2862…2886 Head {h00=0x0020, h01=0x0050, text=»* INITIATE TIMING ROUTINE «, t00=0x0019, t01=0x015c}
0x2886…2890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0180}
0x2890…28b2 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTDEV,A6 TIMING ? «, t00=0x0019, t01=0x018a}
0x28b2…28cc Head {h00=0x0016, h01=0x0050, text=» RF(NN) AKB210 NO!«, t00=0x001a, t01=0x001c}
0x28cc…28d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0036}
0x28d6…291a Head {h00=0x0040, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? «, t00=0x001a, t01=0x0040}
0x291a…2934 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKBTIM NO! «, t00=0x001a, t01=0x0084}
0x2934…293e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x293e…2968 Head {h00=0x0026, h01=0x0050, text=» CF A15,RESTRT YES ! RESTART TIMER«, t00=0x001a, t01=0x00a8}
0x2968…297a Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001a, t01=0x00d2}
0x297a…2984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e4}
0x2984…2998 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001a, t01=0x00ee}
0x2998…29bc Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DWT-ADDRESS IN A1«, t00=0x001a, t01=0x0102}
0x29bc…29c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29c6…29e6 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIME SET TIME «, t00=0x001a, t01=0x0130}
0x29e6…2a16 Head {h00=0x002c, h01=0x0050, text=» DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME«, t00=0x001a, t01=0x0150}
0x2a16…2a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0180}
0x2a20…2a5a Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT «, t00=0x001a, t01=0x018a}
0x2a5a…2a66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0034}
0x2a66…2a74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0040}
0x2a74…2a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004e}
0x2a7e…2aa0 Head {h00=0x001e, h01=0x0050, text=»* REQUESTED LENGTH OK ? «, t00=0x001b, t01=0x0058}
0x2aa0…2aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007a}
0x2aaa…2ae6 Head {h00=0x0038, h01=0x0050, text=»AKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? «, t00=0x001b, t01=0x0084}
0x2ae6…2b16 Head {h00=0x002c, h01=0x0050, text=» ABL(E) MKBEND YES ! COMPLETE REQUEST ! «, t00=0x001b, t01=0x00c0}
0x2b16…2b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f0}
0x2b20…2b3c Head {h00=0x0018, h01=0x0050, text=»* CLEAR ECB-BUFFER«, t00=0x001b, t01=0x00fa}
0x2b3c…2b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b46…2b6c Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x0120}
0x2b6c…2b7e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001b, t01=0x0146}
0x2b7e…2ba6 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 ADD REQUESTED LENGTH «, t00=0x001b, t01=0x0158}
0x2ba6…2bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0180}
0x2bb0…2bec Head {h00=0x0038, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH«, t00=0x001b, t01=0x018a}
0x2bec…2c00 Head {h00=0x0010, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x0036}
0x2c00…2c12 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x004a}
0x2c12…2c36 Head {h00=0x0020, h01=0x0050, text=» RB(NE) AKB230 NOT READY YET«, t00=0x001c, t01=0x005c}
0x2c36…2c44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0080}
0x2c44…2c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008e}
0x2c4e…2c7a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001c, t01=0x0098}
0x2c7a…2c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c4}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c8e…2ca0 Head {h00=0x000e, h01=0x0050, text=»* M K B «, t00=0x001c, t01=0x00d8}
0x2ca0…2cc8 Head {h00=0x0024, h01=0x0050, text=»* MAIN PART OF KEYBOARD DRIVER«, t00=0x001c, t01=0x00ea}
0x2cc8…2cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0112}
0x2cd2…2cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011c}
0x2cdc…2d0a Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x001c, t01=0x0126}
0x2d0a…2d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d14…2d4c Head {h00=0x0034, h01=0x0050, text=»* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS «, t00=0x001c, t01=0x015e}
0x2d4c…2d82 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS AND NO OVERFLOW HAS OCCURRED, A«, t00=0x001d, t01=0x0008}
0x2d82…2daa Head {h00=0x0024, h01=0x0050, text=»* CHARACTER WILL BE PUT IN A2 «, t00=0x001d, t01=0x003e}
0x2daa…2db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0066}
0x2db4…2dc8 Head {h00=0x0010, h01=0x0050, text=»MKB100 EQU *«, t00=0x001d, t01=0x0070}
0x2dc8…2dd4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001d, t01=0x0084}
0x2dd4…2e0a Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM«, t00=0x001d, t01=0x0090}
0x2e0a…2e30 Head {h00=0x0022, h01=0x0050, text=» LCR A2,A1 CIRCULAR BUFFER END«, t00=0x001d, t01=0x00c6}
0x2e30…2e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ec}
0x2e3a…2e4c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001d, t01=0x00f6}
0x2e4c…2e6a Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x001d, t01=0x0108}
0x2e6a…2e86 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB130 NO ! «, t00=0x001d, t01=0x0126}
0x2e86…2e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e90…2ea8 Head {h00=0x0014, h01=0x0050, text=» SCR A4,A1 YES !«, t00=0x001d, t01=0x014c}
0x2ea8…2eb4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001d, t01=0x0164}
0x2eb4…2edc Head {h00=0x0024, h01=0x0050, text=» LDK A1,OVMASK SET OVERFLOW BIT «, t00=0x001d, t01=0x0170}
0x2edc…2f00 Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x001e, t01=0x0008}
0x2f00…2f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002c}
0x2f0a…2f44 Head {h00=0x0036, h01=0x0050, text=»MKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ?«, t00=0x001e, t01=0x0036}
0x2f44…2f5e Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB140 NO !«, t00=0x001e, t01=0x0070}
0x2f5e…2f88 Head {h00=0x0026, h01=0x0050, text=» CF A15,EOQUEU YES ! MOVE POINTER «, t00=0x001e, t01=0x008a}
0x2f88…2fba Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER «, t00=0x001e, t01=0x00b4}
0x2fba…2fc8 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x001e, t01=0x00e6}
0x2fc8…2fde Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001e, t01=0x00f4}
0x2fde…2fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010a}
0x2fe8…302c Head {h00=0x0040, h01=0x0050, text=»* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER «, t00=0x001e, t01=0x0114}
0x302c…3036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x3036…306e Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT «, t00=0x001e, t01=0x0162}
0x306e…309e Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ?«, t00=0x001f, t01=0x000a}
0x309e…30b8 Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB135 NO !«, t00=0x001f, t01=0x003a}
0x30b8…30d2 Head {h00=0x0016, h01=0x0050, text=» ORS A4,DWTDEV,A6 «, t00=0x001f, t01=0x0054}
0x30d2…30de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006e}
0x30de…30f0 Head {h00=0x000e, h01=0x0050, text=»MKB133 ENB«, t00=0x001f, t01=0x007a}
0x30f0…3102 Head {h00=0x000e, h01=0x0050, text=» RF MKB150«, t00=0x001f, t01=0x008c}
0x3102…310c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009e}
0x310c…3122 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001f, t01=0x00a8}
0x3122…313a Head {h00=0x0014, h01=0x0050, text=»MKB135 C1R A4,A4«, t00=0x001f, t01=0x00be}
0x313a…3176 Head {h00=0x0038, h01=0x0050, text=» ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION«, t00=0x001f, t01=0x00d6}
0x3176…3188 Head {h00=0x000e, h01=0x0050, text=» RB MKB133«, t00=0x001f, t01=0x0112}
0x3188…3194 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0124}
0x3194…31a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0130}
0x31a2…31ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31ac…31d6 Head {h00=0x0026, h01=0x0050, text=»* READ A CHARACTER FROM KEYBOARD«, t00=0x001f, t01=0x0148}
0x31d6…31e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0172}
0x31e0…31f4 Head {h00=0x0010, h01=0x0050, text=»MKB140 EQU *«, t00=0x001f, t01=0x017c}
0x31f4…3218 Head {h00=0x0020, h01=0x0050, text=» CF A5,INPUT READ CHARACTER «, t00=0x001f, t01=0x0190}
0x3218…3224 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0020, t01=0x0024}
0x3224…322e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x322e…3258 Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0020, t01=0x003a}
0x3258…3262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0064}
0x3262…3278 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x0020, t01=0x006e}
0x3278…32b2 Head {h00=0x0036, h01=0x0050, text=»* SET "MORE CHARACTERS" INDICATION BIT IF THERE «, t00=0x0020, t01=0x0084}
0x32b2…32d2 Head {h00=0x001c, h01=0x0050, text=»* ARE MORE CHARACTERS «, t00=0x0020, t01=0x00be}
0x32d2…32dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00de}
0x32dc…3308 Head {h00=0x0028, h01=0x0050, text=» ANK A1,/1 MASK NOT SIGNIFICANT BITS«, t00=0x0020, t01=0x00e8}
0x3308…331a Head {h00=0x000e, h01=0x0050, text=» SRC A1,5 «, t00=0x0020, t01=0x0114}
0x331a…3334 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0020, t01=0x0126}
0x3334…333e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x333e…334a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x014a}
0x334a…3360 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0020, t01=0x0156}
0x3360…338c Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0020, t01=0x016c}
0x338c…3398 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0008}
0x3398…33a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0014}
0x33a2…33b6 Head {h00=0x0010, h01=0x0050, text=»MKB150 EQU *«, t00=0x0021, t01=0x001e}
0x33b6…33d4 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0021, t01=0x0032}
0x33d4…33de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0050}
0x33de…340c Head {h00=0x002a, h01=0x0050, text=»* CHECK WHICH KEYBOARD THAT IS USED «, t00=0x0021, t01=0x005a}
0x340c…3416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0088}
0x3416…343c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 KEYBOARD WITH«, t00=0x0021, t01=0x0092}
0x343c…3468 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 SPECIAL CONVERSION ? «, t00=0x0021, t01=0x00b8}
0x3468…3488 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MKB290 PERHAPS ! «, t00=0x0021, t01=0x00e4}
0x3488…3494 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0104}
0x3494…34ac Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0021, t01=0x0110}
0x34ac…34b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0128}
0x34b6…34d8 Head {h00=0x001e, h01=0x0050, text=»* KB 6236/71/72 IS USED «, t00=0x0021, t01=0x0132}
0x34d8…34fc Head {h00=0x0020, h01=0x0050, text=»* CHECK INCOMING CHARACTER«, t00=0x0021, t01=0x0154}
0x34fc…3506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3506…3518 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0182}
0x3518…3548 (34, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? «, t00=0x0022, t01=0x0004}
0x3548…3576 Head {h00=0x002a, h01=0x0050, text=» RB(Z) MKB100 YES, READ NEXT CHARACTER«, t00=0x0022, t01=0x0034}
0x3576…3596 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/8 CTRL/SHIFT ? «, t00=0x0022, t01=0x0062}
0x3596…35b2 Head {h00=0x0018, h01=0x0050, text=» RF(NN) MKB220 YES !«, t00=0x0022, t01=0x0082}
0x35b2…35d8 Head {h00=0x0022, h01=0x0050, text=» ADK A4,/8 NORMAL CHARACTER ? «, t00=0x0022, t01=0x009e}
0x35d8…35f4 Head {h00=0x0018, h01=0x0050, text=» RF(N) MKB300 YES ! «, t00=0x0022, t01=0x00c4}
0x35f4…3602 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00e0}
0x3602…360c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ee}
0x360c…364e Head {h00=0x003e, h01=0x0050, text=»* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT.«, t00=0x0022, t01=0x00f8}
0x364e…368c Head {h00=0x003a, h01=0x0050, text=»* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE«, t00=0x0022, t01=0x013a}
0x368c…36cc Head {h00=0x003c, h01=0x0050, text=»* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC-«, t00=0x0022, t01=0x0178}
0x36cc…36ee Head {h00=0x001e, h01=0x0050, text=»* TER SHOULD BE IGNORED.«, t00=0x0023, t01=0x0028}
0x36ee…36f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004a}
0x36f8…3714 Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 "FLAG BIT"«, t00=0x0023, t01=0x0054}
0x3714…373a Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 KEYLOCK CHAR. - /70«, t00=0x0023, t01=0x0070}
0x373a…3762 Head {h00=0x0024, h01=0x0050, text=»MKB160 RF(Z) MKB170 KEYLOCK ON !«, t00=0x0023, t01=0x0096}
0x3762…3774 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x00be}
0x3774…3798 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB180 KEYLOCK OFF ! «, t00=0x0023, t01=0x00d0}
0x3798…37c0 Head {h00=0x0024, h01=0x0050, text=» SLC A1,1 SHIFT "FLAG BIT" LEFT «, t00=0x0023, t01=0x00f4}
0x37c0…37d2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x011c}
0x37d2…37fc Head {h00=0x0026, h01=0x0050, text=» RB MKB160 NEXT KEYLOCK, PERHAPS ?«, t00=0x0023, t01=0x012e}
0x37fc…3806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0158}
0x3806…381a Head {h00=0x0010, h01=0x0050, text=»MKB170 EQU *«, t00=0x0023, t01=0x0162}
0x381a…3854 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED«, t00=0x0023, t01=0x0176}
0x3854…3866 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0024, t01=0x0020}
0x3866…3898 Head {h00=0x002e, h01=0x0050, text=» RB(NE) MKB100 NO CHANGE, READ A NEW CHAR.«, t00=0x0024, t01=0x0032}
0x3898…38c8 Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" «, t00=0x0024, t01=0x0064}
0x38c8…38da Head {h00=0x000e, h01=0x0050, text=» RF MKB190«, t00=0x0024, t01=0x0094}
0x38da…38ee Head {h00=0x0010, h01=0x0050, text=»MKB180 EQU *«, t00=0x0024, t01=0x00a6}
0x38ee…3926 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED «, t00=0x0024, t01=0x00ba}
0x3926…3938 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0024, t01=0x00f2}
0x3938…3958 Head {h00=0x001c, h01=0x0050, text=» RB(Z) MKB100 NO CHANGE «, t00=0x0024, t01=0x0104}
0x3958…3986 Head {h00=0x002a, h01=0x0050, text=» C1R A1,A1 COMPLEMENT FOR AND-FUNCTION«, t00=0x0024, t01=0x0124}
0x3986…39b8 Head {h00=0x002e, h01=0x0050, text=» ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" «, t00=0x0024, t01=0x0152}
0x39b8…39cc Head {h00=0x0010, h01=0x0050, text=»MKB190 EQU *«, t00=0x0024, t01=0x0184}
0x39cc…3a00 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE KEYLOCK CHARACTER IN ECB«, t00=0x0025, t01=0x0008}
0x3a00…3a22 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x0025, t01=0x003c}
0x3a22…3a34 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0025, t01=0x005e}
0x3a34…3a54 Head {h00=0x001c, h01=0x0050, text=» RF(N) MKB325 ORDER 1 ! «, t00=0x0025, t01=0x0070}
0x3a54…3a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0090}
0x3a62…3a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009e}
0x3a6c…3aa0 Head {h00=0x0030, h01=0x0050, text=»* KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE«, t00=0x0025, t01=0x00a8}
0x3aa0…3ada Head {h00=0x0036, h01=0x0050, text=»* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST«, t00=0x0025, t01=0x00dc}
0x3ada…3ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0116}
0x3ae4…3af8 Head {h00=0x0010, h01=0x0050, text=»MKB200 EQU *«, t00=0x0025, t01=0x0120}
0x3af8…3b1a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 LOAD CHARACTER «, t00=0x0025, t01=0x0134}
0x3b1a…3b2e Head {h00=0x0010, h01=0x0050, text=» SUK A4,/70 «, t00=0x0025, t01=0x0156}
0x3b2e…3b58 Head {h00=0x0026, h01=0x0050, text=» SRC A4,1 SHIFT TO GET KEY NUMBER «, t00=0x0025, t01=0x016a}
0x3b58…3b7a (38, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(N) MKB210 ON OR OFF ? «, t00=0x0026, t01=0x0004}
0x3b7a…3b92 Head {h00=0x0014, h01=0x0050, text=» ADK A4,/4 ON ! «, t00=0x0026, t01=0x0026}
0x3b92…3bba Head {h00=0x0024, h01=0x0050, text=»MKB210 SLL A4,1 MAKE WORD POSI- «, t00=0x0026, t01=0x003e}
0x3bba…3bd6 Head {h00=0x0018, h01=0x0050, text=» SRL A4,1 TIVE AGAIN«, t00=0x0026, t01=0x0066}
0x3bd6…3c06 Head {h00=0x002c, h01=0x0050, text=» C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA «, t00=0x0026, t01=0x0082}
0x3c06…3c30 Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBCW,A8 STORE CODE IN ECB «, t00=0x0026, t01=0x00b2}
0x3c30…3c60 Head {h00=0x002c, h01=0x0050, text=» RF MKB335 SET RC=0 AND COMPLETE REQUEST«, t00=0x0026, t01=0x00dc}
0x3c60…3c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c6a…3ca2 Head {h00=0x0034, h01=0x0050, text=»* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED)«, t00=0x0026, t01=0x0116}
0x3ca2…3cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014e}
0x3cac…3cc0 Head {h00=0x0010, h01=0x0050, text=»MKB220 EQU *«, t00=0x0026, t01=0x0158}
0x3cc0…3cd6 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0026, t01=0x016c}
0x3cd6…3d04 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x0026, t01=0x0182}
0x3d04…3d34 Head {h00=0x002c, h01=0x0050, text=» RB(Z) MKB100 YES ! READ A NEW CHARACTER«, t00=0x0027, t01=0x0020}
0x3d34…3d40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0050}
0x3d40…3d58 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0027, t01=0x005c}
0x3d58…3d6e Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0027, t01=0x0074}
0x3d6e…3d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008a}
0x3d78…3dae Head {h00=0x0032, h01=0x0050, text=»* MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS«, t00=0x0027, t01=0x0094}
0x3dae…3de4 Head {h00=0x0032, h01=0x0050, text=»* DEPRESSED, AND SKIP THE INCOMING CHARACTER«, t00=0x0027, t01=0x00ca}
0x3de4…3e02 Head {h00=0x001a, h01=0x0050, text=»* IF IT IS RELEASED.«, t00=0x0027, t01=0x0100}
0x3e02…3e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011e}
0x3e0c…3e2e Head {h00=0x001e, h01=0x0050, text=» CCK A2,/7C00 DEPRESSED ? «, t00=0x0027, t01=0x0128}
0x3e2e…3e4a Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB230 NO ! «, t00=0x0027, t01=0x014a}
0x3e4a…3e72 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/00 YES ! LOAD CHARACTER«, t00=0x0027, t01=0x0166}
0x3e72…3e84 Head {h00=0x000e, h01=0x0050, text=» RF MKB300«, t00=0x0027, t01=0x018e}
0x3e84…3e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0010}
0x3e8e…3eb4 Head {h00=0x0022, h01=0x0050, text=»MKB230 CCK A2,/7D00 RELEASED ?«, t00=0x0028, t01=0x001a}
0x3eb4…3ede Head {h00=0x0026, h01=0x0050, text=» RB(E) MKB100 YES ! SKIP CHARACTER«, t00=0x0028, t01=0x0040}
0x3ede…3eea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006a}
0x3eea…3f02 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0028, t01=0x0076}
0x3f02…3f24 Head {h00=0x001e, h01=0x0050, text=»MKB250 LDK A1,/2 SHIFT BIT«, t00=0x0028, t01=0x008e}
0x3f24…3f42 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A4 SHIFT ON ? «, t00=0x0028, t01=0x00b0}
0x3f42…3f5e Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x00ce}
0x3f5e…3f7c Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 SHIFT OFF ? «, t00=0x0028, t01=0x00ea}
0x3f7c…3f98 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0028, t01=0x0108}
0x3f98…3fb6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/4 CONTROL BIT«, t00=0x0028, t01=0x0124}
0x3fb6…3fd4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 CONTROL ON ?«, t00=0x0028, t01=0x0142}
0x3fd4…3ff0 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x0160}
0x3ff0…4010 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 CONTROL OFF ? «, t00=0x0028, t01=0x017c}
0x4010…402c Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0029, t01=0x000c}
0x402c…404e Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NUMERIC SHIFT ? «, t00=0x0029, t01=0x0028}
0x404e…4066 Head {h00=0x0014, h01=0x0050, text=» RB MKB250 YES !«, t00=0x0029, t01=0x004a}
0x4066…4070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x4070…409a Head {h00=0x0026, h01=0x0050, text=»MKB260 ORS A1,DWTDEV+DWTCS,A6 SET «, t00=0x0029, t01=0x006c}
0x409a…40ac Head {h00=0x000e, h01=0x0050, text=» RF MKB280«, t00=0x0029, t01=0x0096}
0x40ac…40d0 Head {h00=0x0020, h01=0x0050, text=»MKB270 C1R A1,A1 COMPLEMENT «, t00=0x0029, t01=0x00a8}
0x40d0…40f6 Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTDEV+DWTCS,A6 CLEAR «, t00=0x0029, t01=0x00cc}
0x40f6…4100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f2}
0x4100…4128 Head {h00=0x0024, h01=0x0050, text=»MKB280 ABL MKB100 NEXT CHARACTER«, t00=0x0029, t01=0x00fc}
0x4128…4134 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0124}
0x4134…414c Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0029, t01=0x0130}
0x414c…415a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0148}
0x415a…4164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0156}
0x4164…4196 Head {h00=0x002e, h01=0x0050, text=»* SPECIAL CONVERSION OF CHARACTERS FROM «, t00=0x0029, t01=0x0160}
0x4196…41b8 (42, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* NUMERIC PART OF 6234. «, t00=0x002a, t01=0x0004}
0x41b8…41c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0026}
0x41c2…41d6 Head {h00=0x0010, h01=0x0050, text=»MKB290 EQU *«, t00=0x002a, t01=0x0030}
0x41d6…41fe Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 IF THE DWT-ADDRESS IS«, t00=0x002a, t01=0x0044}
0x41fe…422e Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 ODD, SHOULD SPECIAL CONVERSION«, t00=0x002a, t01=0x006c}
0x422e…424c Head {h00=0x001a, h01=0x0050, text=» RF(NZ) MKB295 BE USED«, t00=0x002a, t01=0x009c}
0x424c…4278 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 IF BIT 8 IN CHARACTER IS «, t00=0x002a, t01=0x00ba}
0x4278…42ac Head {h00=0x0030, h01=0x0050, text=» ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED«, t00=0x002a, t01=0x00e6}
0x42ac…42d8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) MKB310 NO SPECIAL CONVERSION «, t00=0x002a, t01=0x011a}
0x42d8…42fc Head {h00=0x0020, h01=0x0050, text=» ANK A2,/7F MASK AWAY BIT 8 «, t00=0x002a, t01=0x0146}
0x42fc…4306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4306…4330 Head {h00=0x0026, h01=0x0050, text=»* INDICATE SPECIAL CONVERSION ! «, t00=0x002a, t01=0x0174}
0x4330…433a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000e}
0x433a…4370 Head {h00=0x0032, h01=0x0050, text=»MKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN«, t00=0x002b, t01=0x0018}
0x4370…4394 Head {h00=0x0020, h01=0x0050, text=» LDK A4,/8 LOAD SPECIAL BIT «, t00=0x002b, t01=0x004e}
0x4394…43b2 Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTDEV+DWTCS,A6«, t00=0x002b, t01=0x0072}
0x43b2…43c4 Head {h00=0x000e, h01=0x0050, text=» RF MKB310«, t00=0x002b, t01=0x0090}
0x43c4…43d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00a2}
0x43d0…43de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00ae}
0x43de…43e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00bc}
0x43e8…4406 Head {h00=0x001a, h01=0x0050, text=»* NORMAL CONVERSION «, t00=0x002b, t01=0x00c6}
0x4406…4410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e4}
0x4410…4424 Head {h00=0x0010, h01=0x0050, text=»MKB300 EQU *«, t00=0x002b, t01=0x00ee}
0x4424…442e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x442e…4444 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x002b, t01=0x010c}
0x4444…4472 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x002b, t01=0x0122}
0x4472…44a4 Head {h00=0x002e, h01=0x0050, text=» ABL(Z) MKB100 YES ! READ A NEW CHARACTER «, t00=0x002b, t01=0x0150}
0x44a4…44b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0182}
0x44b0…44ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018e}
0x44ba…44ce Head {h00=0x0010, h01=0x0050, text=»MKB310 EQU *«, t00=0x002c, t01=0x0008}
0x44ce…44fe Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS«, t00=0x002c, t01=0x001c}
0x44fe…4522 Head {h00=0x0020, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION «, t00=0x002c, t01=0x004c}
0x4522…455e Head {h00=0x0038, h01=0x0050, text=» AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE «, t00=0x002c, t01=0x0070}
0x455e…4572 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x002c, t01=0x00ac}
0x4572…459c Head {h00=0x0026, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION TABLE «, t00=0x002c, t01=0x00c0}
0x459c…45ae Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x00ea}
0x45ae…45ca Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x002c, t01=0x00fc}
0x45ca…45dc Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x002c, t01=0x0118}
0x45dc…4604 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 COLUMN TABLE ADDRESS«, t00=0x002c, t01=0x012a}
0x4604…4624 Head {h00=0x001c, h01=0x0050, text=» RF(E) MKB320 NO COLUMN «, t00=0x002c, t01=0x0152}
0x4624…4636 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x0172}
0x4636…4648 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002c, t01=0x0184}
0x4648…4668 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A4 ADD ROW INDEX«, t00=0x002d, t01=0x0008}
0x4668…468a Head {h00=0x001e, h01=0x0050, text=» LCR A2,A1 LOAD CHARACTER «, t00=0x002d, t01=0x0028}
0x468a…4694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004a}
0x4694…46a8 Head {h00=0x0010, h01=0x0050, text=»MKB320 EQU *«, t00=0x002d, t01=0x0054}
0x46a8…46c0 Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x002d, t01=0x0068}
0x46c0…46e4 Head {h00=0x0020, h01=0x0050, text=» LDK A4,/7 RESET SPECIAL BIT«, t00=0x002d, t01=0x0080}
0x46e4…4704 Head {h00=0x001c, h01=0x0050, text=» ANS A4,DWTDEV+DWTCS,A6 «, t00=0x002d, t01=0x00a4}
0x4704…4710 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00c4}
0x4710…471e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00d0}
0x471e…4728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00de}
0x4728…4758 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF BASIC READ OR ORDER 2 OR 3 «, t00=0x002d, t01=0x00e8}
0x4758…4762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0118}
0x4762…4784 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x002d, t01=0x0122}
0x4784…4796 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002d, t01=0x0144}
0x4796…47bc Head {h00=0x0022, h01=0x0050, text=» RF(NN) MKB330 ORDER 2 OR 3 ! «, t00=0x002d, t01=0x0156}
0x47bc…47c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47c6…47e6 Head {h00=0x001c, h01=0x0050, text=»* ORDER 1, BASIC READ «, t00=0x002d, t01=0x0186}
0x47e6…47f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0016}
0x47f0…4820 Head {h00=0x002c, h01=0x0050, text=» CF A5,STOECH STORE CHAR. IN ECB-BUFFER «, t00=0x002e, t01=0x0020}
0x4820…486c Head {h00=0x0048, h01=0x0050, text=»* AND SEND IT TO ECHO-DEVICE «, t00=0x002e, t01=0x0050}
0x486c…48ac Head {h00=0x003c, h01=0x0050, text=»* IF ECHO WANTED «, t00=0x002e, t01=0x009c}
0x48ac…48b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00dc}
0x48b6…48ca Head {h00=0x0010, h01=0x0050, text=»MKB325 EQU *«, t00=0x002e, t01=0x00e6}
0x48ca…48fe Head {h00=0x0030, h01=0x0050, text=» CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? «, t00=0x002e, t01=0x00fa}
0x48fe…4930 Head {h00=0x002e, h01=0x0050, text=» ABL(NE) MKB100 NO ! READ A NEW CHARACTER «, t00=0x002e, t01=0x012e}
0x4930…493a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0160}
0x493a…4966 Head {h00=0x0028, h01=0x0050, text=» RF MKB335 YES ! SET RETURN CODE = 0«, t00=0x002e, t01=0x016a}
0x4966…4974 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0008}
0x4974…497e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0016}
0x497e…49b0 Head {h00=0x002e, h01=0x0050, text=»* ORDER 2 OR 3, STANDARD OR NUMERIC READ«, t00=0x002f, t01=0x0020}
0x49b0…49ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49ba…49ce Head {h00=0x0010, h01=0x0050, text=»MKB330 EQU *«, t00=0x002f, t01=0x005c}
0x49ce…49d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0070}
0x49d8…4a08 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF IT IS AN END-OF-RECORD-KEY «, t00=0x002f, t01=0x007a}
0x4a08…4a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00aa}
0x4a12…4a3c Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBCW,A8 KEY-TABLE ADDRESS «, t00=0x002f, t01=0x00b4}
0x4a3c…4a60 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB360 NO KEYTABLE ! «, t00=0x002f, t01=0x00de}
0x4a60…4a86 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x002f, t01=0x0102}
0x4a86…4a9a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x002f, t01=0x0128}
0x4a9a…4ace Head {h00=0x0030, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE«, t00=0x002f, t01=0x013c}
0x4ace…4ae0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002f, t01=0x0170}
0x4ae0…4af8 Head {h00=0x0014, h01=0x0050, text=»MKB340 SUK A4,1 «, t00=0x002f, t01=0x0182}
0x4af8…4b28 Head {h00=0x002c, h01=0x0050, text=» RF(N) MKB360 KEY NOT FOUND IN KEYTABLE «, t00=0x0030, t01=0x000a}
0x4b28…4b42 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0030, t01=0x003a}
0x4b42…4b64 Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER ?«, t00=0x0030, t01=0x0054}
0x4b64…4b98 Head {h00=0x0030, h01=0x0050, text=» RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE«, t00=0x0030, t01=0x0076}
0x4b98…4ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00aa}
0x4ba2…4bce Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 YES ! MAKE KEYTABLE INDEX «, t00=0x0030, t01=0x00b4}
0x4bce…4be2 Head {h00=0x0010, h01=0x0050, text=»MKB350 EQU *«, t00=0x0030, t01=0x00e0}
0x4be2…4c16 Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD «, t00=0x0030, t01=0x00f4}
0x4c16…4c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0128}
0x4c20…4c54 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0030, t01=0x0132}
0x4c54…4c68 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0030, t01=0x0166}
0x4c68…4c92 Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR CHARACTER«, t00=0x0030, t01=0x017a}
0x4c92…4cb6 Head {h00=0x0020, h01=0x0050, text=» CF A5,EORECH ECHO CHARACTER«, t00=0x0031, t01=0x0014}
0x4cb6…4cc2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0038}
0x4cc2…4ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0044}
0x4ccc…4ce0 Head {h00=0x0010, h01=0x0050, text=»MKB335 EQU *«, t00=0x0031, t01=0x004e}
0x4ce0…4d06 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SET RETURN CODE = 0 «, t00=0x0031, t01=0x0062}
0x4d06…4d2e Head {h00=0x0024, h01=0x0050, text=» RF MKBEND AND COMPLETE REQUEST «, t00=0x0031, t01=0x0088}
0x4d2e…4d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d38…4d46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00ba}
0x4d46…4d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c8}
0x4d50…4d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d2}
0x4d5a…4d76 Head {h00=0x0018, h01=0x0050, text=»* CHARACTER CHECK «, t00=0x0031, t01=0x00dc}
0x4d76…4d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f8}
0x4d80…4d94 Head {h00=0x0010, h01=0x0050, text=»MKB360 EQU *«, t00=0x0031, t01=0x0102}
0x4d94…4dc0 Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 SAVE CHARACTER ON STACK «, t00=0x0031, t01=0x0116}
0x4dc0…4dd8 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTDEV,A6«, t00=0x0031, t01=0x0142}
0x4dd8…4dfa Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 STANDARD READ ? «, t00=0x0031, t01=0x015a}
0x4dfa…4e16 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB380 NO ! «, t00=0x0031, t01=0x017c}
0x4e16…4e36 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x0008}
0x4e36…4e52 Head {h00=0x0018, h01=0x0050, text=» SLC A1,2 /20-/7F ? «, t00=0x0032, t01=0x0028}
0x4e52…4e72 Head {h00=0x001c, h01=0x0050, text=» RF(NN) MKB370 YES ! =4 «, t00=0x0032, t01=0x0044}
0x4e72…4e96 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/5F NO ! UPPER LIMIT«, t00=0x0032, t01=0x0064}
0x4e96…4ea8 Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0032, t01=0x0088}
0x4ea8…4eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4eb2…4ed8 Head {h00=0x0022, h01=0x0050, text=»MKB370 LDK A1,/7F UPPER LIMIT «, t00=0x0032, t01=0x00a4}
0x4ed8…4eea Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0032, t01=0x00ca}
0x4eea…4ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00dc}
0x4ef4…4f20 Head {h00=0x0028, h01=0x0050, text=»MKB380 SLC A1,1 /30-/39 & /70-/79 ? «, t00=0x0032, t01=0x00e6}
0x4f20…4f3e Head {h00=0x001a, h01=0x0050, text=» RF(N) MKB390 NO ! =4 «, t00=0x0032, t01=0x0112}
0x4f3e…4f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0130}
0x4f48…4f68 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x013a}
0x4f68…4f8e Head {h00=0x0022, h01=0x0050, text=»MKB390 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x015a}
0x4f8e…4fae Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x0180}
0x4fae…4fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0010}
0x4fb8…4fd0 Head {h00=0x0014, h01=0x0050, text=»MKB400 SUR A1,A2«, t00=0x0033, t01=0x001a}
0x4fd0…4ff8 Head {h00=0x0024, h01=0x0050, text=» RF(N) MKB420 NOT WITHIN LIMITS «, t00=0x0033, t01=0x0032}
0x4ff8…500a Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0033, t01=0x005a}
0x500a…5032 Head {h00=0x0024, h01=0x0050, text=» RF(P) MKB420 NOT WITHIN LIMITS «, t00=0x0033, t01=0x006c}
0x5032…5052 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 DUMMY LOAD «, t00=0x0033, t01=0x0094}
0x5052…5060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00b4}
0x5060…506a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c2}
0x506a…5092 Head {h00=0x0024, h01=0x0050, text=»* IT IS A "NORMAL" CHARACTER !«, t00=0x0033, t01=0x00cc}
0x5092…509c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x509c…50b0 Head {h00=0x0010, h01=0x0050, text=»MKB405 EQU *«, t00=0x0033, t01=0x00fe}
0x50b0…50de Head {h00=0x002a, h01=0x0050, text=» CF A5,STOECH STORE AND ECHO CHARACTER«, t00=0x0033, t01=0x0112}
0x50de…50e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0140}
0x50e8…5112 Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 LENGTH OVERFLOW ? «, t00=0x0033, t01=0x014a}
0x5112…5142 Head {h00=0x002c, h01=0x0050, text=» ABL(L) MKB100 NO ! TAKE NEXT CHARACTER «, t00=0x0033, t01=0x0174}
0x5142…514c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0014}
0x514c…5178 Head {h00=0x0028, h01=0x0050, text=»MKB410 LDK A1,8 YES ! SET ERROR CODE«, t00=0x0034, t01=0x001e}
0x5178…518a Head {h00=0x000e, h01=0x0050, text=» RF MKBEND«, t00=0x0034, t01=0x004a}
0x518a…5194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005c}
0x5194…51d0 Head {h00=0x0038, h01=0x0050, text=»* CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, «, t00=0x0034, t01=0x0066}
0x51d0…5204 Head {h00=0x0030, h01=0x0050, text=»* STANDARD EOR, SKIP OR UNKNOWN CHARACTER «, t00=0x0034, t01=0x00a2}
0x5204…520e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d6}
0x520e…523a Head {h00=0x0028, h01=0x0050, text=»MKB420 LDR* A2,A15 RELOAD CHARACTER «, t00=0x0034, t01=0x00e0}
0x523a…524c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0034, t01=0x010c}
0x524c…5260 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0034, t01=0x011e}
0x5260…5278 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBCW,A8 «, t00=0x0034, t01=0x0132}
0x5278…52a6 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) MKB440 STANDARD EOR NOT USED !«, t00=0x0034, t01=0x014a}
0x52a6…52e0 Head {h00=0x0036, h01=0x0050, text=» LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR «, t00=0x0034, t01=0x0178}
0x52e0…5304 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/0D00 STANDARD EOR ?«, t00=0x0035, t01=0x0022}
0x5304…5320 Head {h00=0x0018, h01=0x0050, text=» RB(E) MKB350 YES ! «, t00=0x0035, t01=0x0046}
0x5320…5334 Head {h00=0x0010, h01=0x0050, text=»MKB440 EQU *«, t00=0x0035, t01=0x0062}
0x5334…535c Head {h00=0x0024, h01=0x0050, text=» SUK A1,/1B TRIPLE ZERO ? (/1B) «, t00=0x0035, t01=0x0076}
0x535c…5376 Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ30 YES !«, t00=0x0035, t01=0x009e}
0x5376…5380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b8}
0x5380…53a6 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/13 BACKSPACE ? (/08) «, t00=0x0035, t01=0x00c2}
0x53a6…53c2 Head {h00=0x0018, h01=0x0050, text=» ABL(E) BACKSP YES !«, t00=0x0035, t01=0x00e8}
0x53c2…53cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0104}
0x53cc…53ee Head {h00=0x001e, h01=0x0050, text=» SUK A1,/10 CLEAR ? (/18) «, t00=0x0035, t01=0x010e}
0x53ee…540a Head {h00=0x0018, h01=0x0050, text=» ABL(E) CLEAR YES ! «, t00=0x0035, t01=0x0130}
0x540a…5414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014c}
0x5414…543a Head {h00=0x0022, h01=0x0050, text=» SUK A1,/2 DOUBLE ZERO ? (/1A)«, t00=0x0035, t01=0x0156}
0x543a…5454 Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ20 YES !«, t00=0x0035, t01=0x017c}
0x5454…545e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0008}
0x545e…5486 Head {h00=0x0024, h01=0x0050, text=» SUK A1,/E5 SKIP CHARACTER (/FF)«, t00=0x0036, t01=0x0012}
0x5486…54a2 Head {h00=0x0018, h01=0x0050, text=» ABL(E) MKB100 YES !«, t00=0x0036, t01=0x003a}
0x54a2…54bc Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0036, t01=0x0056}
0x54bc…54e4 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 CHECK IF CHARACTER IS«, t00=0x0036, t01=0x0070}
0x54e4…550e Head {h00=0x0026, h01=0x0050, text=» SUK A1,/B0 WITHIN LIMITS FOR THE «, t00=0x0036, t01=0x0098}
0x550e…5538 Head {h00=0x0026, h01=0x0050, text=» RF(N) MKB460 GREEK CHARACTER SET «, t00=0x0036, t01=0x00c2}
0x5538…554a Head {h00=0x000e, h01=0x0050, text=» SUK A1,/9«, t00=0x0036, t01=0x00ec}
0x554a…556e Head {h00=0x0020, h01=0x0050, text=» RB(NP) MKB405 YES IT IS OK «, t00=0x0036, t01=0x00fe}
0x556e…5582 Head {h00=0x0010, h01=0x0050, text=»MKB460 EQU *«, t00=0x0036, t01=0x0122}
0x5582…558e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0136}
0x558e…5598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0142}
0x5598…55c8 Head {h00=0x002c, h01=0x0050, text=»* SET ERROR CODE FOR UNKNOWN CHARACTER«, t00=0x0036, t01=0x014c}
0x55c8…55d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017c}
0x55d2…5606 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0036, t01=0x0186}
0x5606…5618 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0037, t01=0x002a}
0x5618…5622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003c}
0x5622…5630 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0046}
0x5630…5660 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0037, t01=0x0054}
0x5660…566a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x566a…5674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008e}
0x5674…568a Head {h00=0x0012, h01=0x0050, text=»* COMMON END«, t00=0x0037, t01=0x0098}
0x568a…5694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ae}
0x5694…569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b8}
0x569e…56cc Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0037, t01=0x00c2}
0x56cc…56e0 Head {h00=0x0010, h01=0x0050, text=»MKBEND EQU *«, t00=0x0037, t01=0x00f0}
0x56e0…56ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56ea…5700 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0037, t01=0x010e}
0x5700…571e Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0037, t01=0x0124}
0x571e…5740 Head {h00=0x001e, h01=0x0050, text=» RF(E) MKBE10 NO TIMING ! «, t00=0x0037, t01=0x0142}
0x5740…576a Head {h00=0x0026, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6 SCRATCH TIMER«, t00=0x0037, t01=0x0164}
0x576a…5786 Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0037, t01=0x018e}
0x5786…5792 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x001a}
0x5792…579c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0026}
0x579c…57b0 Head {h00=0x0010, h01=0x0050, text=»MKBE10 EQU *«, t00=0x0038, t01=0x0030}
0x57b0…57de Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0038, t01=0x0044}
0x57de…57e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0072}
0x57e8…57fc Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0038, t01=0x007c}
0x57fc…5816 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0038, t01=0x0090}
0x5816…583a Head {h00=0x0020, h01=0x0050, text=» CF A5,ECHEND END OF ECHOING«, t00=0x0038, t01=0x00aa}
0x583a…584c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x00ce}
0x584c…5858 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00e0}
0x5858…5862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ec}
0x5862…5892 Head {h00=0x002c, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND DIPATCH «, t00=0x0038, t01=0x00f6}
0x5892…58a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0126}
0x58a0…58ce Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0038, t01=0x0134}
0x58ce…58d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0162}
0x58d8…58e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016c}
0x58e2…5900 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0038, t01=0x0176}
0x5900…590a (57, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0004}
0x590a…5914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000e}
0x5914…5942 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0039, t01=0x0018}
0x5942…5954 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0039, t01=0x0046}
0x5954…597e Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0039, t01=0x0058}
0x597e…5994 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0039, t01=0x0082}
0x5994…59c0 Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0039, t01=0x0098}
0x59c0…59cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00c4}
0x59cc…59d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d0}
0x59d6…5a0e Head {h00=0x0034, h01=0x0050, text=»* STORE INCOMING CHARACTER IN CIRCULAR BUFFER «, t00=0x0039, t01=0x00da}
0x5a0e…5a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a18…5a30 Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0039, t01=0x011c}
0x5a30…5a58 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 SPECIAL CONVERSION ? «, t00=0x0039, t01=0x0134}
0x5a58…5a6a Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0039, t01=0x015c}
0x5a6a…5a84 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHKB02 NO !«, t00=0x0039, t01=0x016e}
0x5a84…5ab6 Head {h00=0x002e, h01=0x0050, text=» ORK A2,/80 YES INDICATE BY SETTING BIT 8 «, t00=0x0039, t01=0x0188}
0x5ab6…5ae0 Head {h00=0x0026, h01=0x0050, text=» SUK A6,1 MAKE DWT-ADDRESS EVEN =3«, t00=0x003a, t01=0x002a}
0x5ae0…5aec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0054}
0x5aec…5b12 Head {h00=0x0022, h01=0x0050, text=»IHKB02 LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003a, t01=0x0060}
0x5b12…5b24 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x003a, t01=0x0086}
0x5b24…5b4a Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x003a, t01=0x0098}
0x5b4a…5b66 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB05 YES ! «, t00=0x003a, t01=0x00be}
0x5b66…5b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00da}
0x5b70…5b82 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003a, t01=0x00e4}
0x5b82…5bba Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x003a, t01=0x00f6}
0x5bba…5bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x012e}
0x5bc4…5bee Head {h00=0x0026, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ?«, t00=0x003a, t01=0x0138}
0x5bee…5c0a Head {h00=0x0018, h01=0x0050, text=» RF(NE) IHKB20 NO ! «, t00=0x003a, t01=0x0162}
0x5c0a…5c32 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/FF OVERFLOW INDICATION «, t00=0x003a, t01=0x017e}
0x5c32…5c5e Head {h00=0x0028, h01=0x0050, text=» SCR A1,A4 SET OVFL. IND. IN BUFFER «, t00=0x003b, t01=0x0016}
0x5c5e…5c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0042}
0x5c68…5c7c Head {h00=0x0010, h01=0x0050, text=»IHKB05 EQU *«, t00=0x003b, t01=0x004c}
0x5c7c…5c9a Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x003b, t01=0x0060}
0x5c9a…5cc2 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV,A6 6236, 71, 72 ? «, t00=0x003b, t01=0x007e}
0x5cc2…5cd8 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x003b, t01=0x00a6}
0x5cd8…5cf0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) EXIT NO !«, t00=0x003b, t01=0x00bc}
0x5cf0…5cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d4}
0x5cfa…5d06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00de}
0x5d06…5d1e Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x003b, t01=0x00ea}
0x5d1e…5d48 Head {h00=0x0026, h01=0x0050, text=» SUK A2,/70 KEYLOCK, SHIFT, CTRL ?«, t00=0x003b, t01=0x0102}
0x5d48…5d60 Head {h00=0x0014, h01=0x0050, text=» RF(N) EXIT NO !«, t00=0x003b, t01=0x012c}
0x5d60…5d7a Head {h00=0x0016, h01=0x0050, text=» ADK A2,/70 YES ! «, t00=0x003b, t01=0x0144}
0x5d7a…5d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015e}
0x5d84…5d96 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003b, t01=0x0168}
0x5d96…5db0 Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTDEV+1,A6«, t00=0x003b, t01=0x017a}
0x5db0…5dd0 (60, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003c, t01=0x0004}
0x5dd0…5de2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0024}
0x5de2…5df8 Head {h00=0x0012, h01=0x0050, text=» CF A15,EOQUEU«, t00=0x003c, t01=0x0036}
0x5df8…5e28 Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? «, t00=0x003c, t01=0x004c}
0x5e28…5e44 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB07 YES ! «, t00=0x003c, t01=0x007c}
0x5e44…5e6a Head {h00=0x0022, h01=0x0050, text=» SCR A2,A4 STORE NEW CHARACTER«, t00=0x003c, t01=0x0098}
0x5e6a…5e96 Head {h00=0x0028, h01=0x0050, text=» LDK A2,/FF MOVE OVERFLOW INDICATION«, t00=0x003c, t01=0x00be}
0x5e96…5eba Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 FORWARD IN BUFFER«, t00=0x003c, t01=0x00ea}
0x5eba…5ecc Head {h00=0x000e, h01=0x0050, text=» RF IHKB20«, t00=0x003c, t01=0x010e}
0x5ecc…5ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0120}
0x5ed6…5eee Head {h00=0x0014, h01=0x0050, text=»* CHECK BUFFER«, t00=0x003c, t01=0x012a}
0x5eee…5ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0142}
0x5ef8…5f3a Head {h00=0x003e, h01=0x0050, text=»IHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. «, t00=0x003c, t01=0x014c}
0x5f3a…5f4e Head {h00=0x0010, h01=0x0050, text=»IHKB10 EQU *«, t00=0x003c, t01=0x018e}
0x5f4e…5f7c Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ?«, t00=0x003d, t01=0x0012}
0x5f7c…5f98 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB19 YES ! «, t00=0x003d, t01=0x0040}
0x5f98…5fc4 Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x003d, t01=0x005c}
0x5fc4…5fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0088}
0x5fce…5fee Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003d, t01=0x0092}
0x5fee…6002 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x003d, t01=0x00b2}
0x6002…6016 Head {h00=0x0010, h01=0x0050, text=» XRR A4,A2 «, t00=0x003d, t01=0x00c6}
0x6016…603c Head {h00=0x0022, h01=0x0050, text=» RF(Z) EXIT EQUAL CHARACTER ! «, t00=0x003d, t01=0x00da}
0x603c…605e Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 INVERTED CHAR. ?«, t00=0x003d, t01=0x0100}
0x605e…607a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHKB17 NO ! «, t00=0x003d, t01=0x0122}
0x607a…60b0 Head {h00=0x0032, h01=0x0050, text=» LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF «, t00=0x003d, t01=0x013e}
0x60b0…60c2 Head {h00=0x000e, h01=0x0050, text=» RF IHKB18«, t00=0x003d, t01=0x0174}
0x60c2…60cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0186}
0x60cc…60e0 Head {h00=0x0010, h01=0x0050, text=»IHKB17 EQU *«, t00=0x003d, t01=0x0190}
0x60e0…610a Head {h00=0x0026, h01=0x0050, text=» SUK A4,/F CTRL, SHIFT, KEYLOCK ? «, t00=0x003e, t01=0x0014}
0x610a…6126 Head {h00=0x0018, h01=0x0050, text=» RB(N) IHKB10 YES ! «, t00=0x003e, t01=0x003e}
0x6126…6130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x005a}
0x6130…6162 Head {h00=0x002e, h01=0x0050, text=»IHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER«, t00=0x003e, t01=0x0064}
0x6162…6172 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x003e, t01=0x0096}
0x6172…617c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a6}
0x617c…61a8 Head {h00=0x0028, h01=0x0050, text=»* CHECK BUFFER AGAIN AND SORT OUT «, t00=0x003e, t01=0x00b0}
0x61a8…61ce Head {h00=0x0022, h01=0x0050, text=»* EQUAL AND INV. CHARACTERS «, t00=0x003e, t01=0x00dc}
0x61ce…61d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0102}
0x61d8…6216 Head {h00=0x003a, h01=0x0050, text=»IHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR «, t00=0x003e, t01=0x010c}
0x6216…622a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x014a}
0x622a…624a Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003e, t01=0x015e}
0x624a…6266 Head {h00=0x0018, h01=0x0050, text=»IHKB21 CF A15,SOQUEU«, t00=0x003e, t01=0x017e}
0x6266…6278 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003f, t01=0x000a}
0x6278…628e Head {h00=0x0012, h01=0x0050, text=» RB(NN) IHKB21«, t00=0x003f, t01=0x001c}
0x628e…62a4 Head {h00=0x0012, h01=0x0050, text=» IM DWTDEV,A6 «, t00=0x003f, t01=0x0032}
0x62a4…62d0 Head {h00=0x0028, h01=0x0050, text=» LCR A4,A1 GET OLD CHAR FROM BUFFER «, t00=0x003f, t01=0x0048}
0x62d0…62f6 Head {h00=0x0022, h01=0x0050, text=» CCK A4,/FF00 END OF BUFFER ? «, t00=0x003f, t01=0x0074}
0x62f6…6310 Head {h00=0x0016, h01=0x0050, text=» RF(E) EXIT YES ! «, t00=0x003f, t01=0x009a}
0x6310…6334 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A1 STORE THE NEW ONE«, t00=0x003f, t01=0x00b4}
0x6334…6356 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 PUT CHAR IN A2 «, t00=0x003f, t01=0x00d8}
0x6356…636a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x00fa}
0x636a…637c Head {h00=0x000e, h01=0x0050, text=» RB IHKB07«, t00=0x003f, t01=0x010e}
0x637c…6388 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0120}
0x6388…6392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012c}
0x6392…63ce Head {h00=0x0038, h01=0x0050, text=»IHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER «, t00=0x003f, t01=0x0136}
0x63ce…6406 Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER«, t00=0x003f, t01=0x0172}
0x6406…6410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001a}
0x6410…6432 Head {h00=0x001e, h01=0x0050, text=»EXIT ABL LDISP DISPATCH ! «, t00=0x0040, t01=0x0024}
0x6432…6440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0046}
0x6440…644a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0054}
0x644a…6474 Head {h00=0x0026, h01=0x0050, text=»* STORING (&ECHOING) SUBROUTINE «, t00=0x0040, t01=0x005e}
0x6474…64a6 Head {h00=0x002e, h01=0x0050, text=»* SKIPS OTHER CHARACTERS THAN DIGITS IF «, t00=0x0040, t01=0x0088}
0x64a6…64be Head {h00=0x0014, h01=0x0050, text=»* NUMERIC READ«, t00=0x0040, t01=0x00ba}
0x64be…64c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x64c8…64dc Head {h00=0x0010, h01=0x0050, text=»STOECH EQU *«, t00=0x0040, t01=0x00dc}
0x64dc…650c Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHAR. IN ECB-BUFFER «, t00=0x0040, t01=0x00f0}
0x650c…6516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0120}
0x6516…652a Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x012a}
0x652a…6544 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0040, t01=0x013e}
0x6544…6562 Head {h00=0x001a, h01=0x0050, text=» RF EORECH DO NOT MASK«, t00=0x0040, t01=0x0158}
0x6562…656e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0176}
0x656e…6582 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x0182}
0x6582…65b2 Head {h00=0x002c, h01=0x0050, text=»ECHSUB ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0041, t01=0x0008}
0x65b2…65c6 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU *«, t00=0x0041, t01=0x0038}
0x65c6…65dc Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x0041, t01=0x004c}
0x65dc…661a Head {h00=0x003a, h01=0x0050, text=» LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT «, t00=0x0041, t01=0x0062}
0x661a…6630 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0800«, t00=0x0041, t01=0x00a0}
0x6630…665e Head {h00=0x002a, h01=0x0050, text=» XRS A1,DWTDEV,A6 RESET INDICATION BIT«, t00=0x0041, t01=0x00b6}
0x665e…6670 Head {h00=0x000e, h01=0x0050, text=» SLC A1,5 «, t00=0x0041, t01=0x00e4}
0x6670…667c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00f6}
0x667c…6690 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0041, t01=0x0102}
0x6690…66b2 Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x0041, t01=0x0116}
0x66b2…66be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0138}
0x66be…66c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0144}
0x66c8…66d8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0041, t01=0x014e}
0x66d8…66e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x015e}
0x66e2…66f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0168}
0x66f0…6706 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0041, t01=0x0176}
0x6706…6710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018c}
0x6710…6738 Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE TIMEOUT ROUTINE «, t00=0x0042, t01=0x0008}
0x6738…6742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0030}
0x6742…6756 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x0042, t01=0x003a}
0x6756…677a Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 LOAD DWT-ADDRESS «, t00=0x0042, t01=0x004e}
0x677a…6796 Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0042, t01=0x0072}
0x6796…67ae Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0042, t01=0x008e}
0x67ae…67de Head {h00=0x002c, h01=0x0050, text=» ABL(N) LDISP DISPATCH IF NO REQUEST ON «, t00=0x0042, t01=0x00a6}
0x67de…67e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d6}
0x67e8…6818 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0042, t01=0x00e0}
0x6818…6846 Head {h00=0x002a, h01=0x0050, text=» LDR A5,A6 INITIATE DWT-STACK POINTER «, t00=0x0042, t01=0x0110}
0x6846…685e Head {h00=0x0014, h01=0x0050, text=» ADKL A5,DWTSB2 «, t00=0x0042, t01=0x013e}
0x685e…6896 Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT«, t00=0x0042, t01=0x0156}
0x6896…68c2 Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 RELOAD ECB-ADDRESS «, t00=0x0042, t01=0x018e}
0x68c2…68e6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x0043, t01=0x002a}
0x68e6…690a Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x0043, t01=0x004e}
0x690a…6914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0072}
0x6914…6936 Head {h00=0x001e, h01=0x0050, text=»* RESTART TIMEOUT TIMER «, t00=0x0043, t01=0x007c}
0x6936…6940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009e}
0x6940…6954 Head {h00=0x0010, h01=0x0050, text=»RESTRT EQU *«, t00=0x0043, t01=0x00a8}
0x6954…6972 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0043, t01=0x00bc}
0x6972…6992 Head {h00=0x001c, h01=0x0050, text=» RF(E) NOTIME NO TIMING «, t00=0x0043, t01=0x00da}
0x6992…69b6 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,-TIME RESTART TIMER«, t00=0x0043, t01=0x00fa}
0x69b6…69d6 Head {h00=0x001c, h01=0x0050, text=» ST* A4,DWTTP+DWTDEV,A6 «, t00=0x0043, t01=0x011e}
0x69d6…69ec Head {h00=0x0012, h01=0x0050, text=»NOTIME RTN A15«, t00=0x0043, t01=0x013e}
0x69ec…69f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0154}
0x69f8…6a06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0160}
0x6a06…6a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x016e}
0x6a10…6a44 Head {h00=0x0030, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER «, t00=0x0043, t01=0x0178}
0x6a44…6a78 Head {h00=0x0030, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0044, t01=0x001c}
0x6a78…6a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0050}
0x6a82…6ab2 Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A2 = CHARACTER TO STORE«, t00=0x0044, t01=0x005a}
0x6ab2…6adc Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0044, t01=0x008a}
0x6adc…6ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b4}
0x6ae6…6afa Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0044, t01=0x00be}
0x6afa…6b20 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x0044, t01=0x00d2}
0x6b20…6b44 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 ADD BUFFER INDEX «, t00=0x0044, t01=0x00f8}
0x6b44…6b70 Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x011c}
0x6b70…6b98 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0044, t01=0x0148}
0x6b98…6ba8 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0044, t01=0x0170}
0x6ba8…6bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0180}
0x6bb2…6bec Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER «, t00=0x0044, t01=0x018a}
0x6bec…6bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0034}
0x6bf6…6c22 Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0045, t01=0x003e}
0x6c22…6c4c Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0045, t01=0x006a}
0x6c4c…6c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0094}
0x6c56…6c6a Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0045, t01=0x009e}
0x6c6a…6c7c Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0045, t01=0x00b2}
0x6c7c…6c8e Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0045, t01=0x00c4}
0x6c8e…6cba Head {h00=0x0028, h01=0x0050, text=» CWK A1,DWTDEV+DWTEQ END OF QUEUE ? «, t00=0x0045, t01=0x00d6}
0x6cba…6cd0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0045, t01=0x0102}
0x6cd0…6d06 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS «, t00=0x0045, t01=0x0118}
0x6d06…6d1e Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0045, t01=0x014e}
0x6d1e…6d2e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0045, t01=0x0166}
0x6d2e…6d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0176}
0x6d38…6d76 Head {h00=0x003a, h01=0x0050, text=»* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER«, t00=0x0045, t01=0x0180}
0x6d76…6d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x002e}
0x6d80…6dac Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0046, t01=0x0038}
0x6dac…6dd6 Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0046, t01=0x0064}
0x6dd6…6de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008e}
0x6de0…6df4 Head {h00=0x0010, h01=0x0050, text=»SOQUEU EQU *«, t00=0x0046, t01=0x0098}
0x6df4…6e06 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0046, t01=0x00ac}
0x6e06…6e38 Head {h00=0x002e, h01=0x0050, text=» CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? «, t00=0x0046, t01=0x00be}
0x6e38…6e52 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SOQ10 NO !«, t00=0x0046, t01=0x00f0}
0x6e52…6e86 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE «, t00=0x0046, t01=0x010a}
0x6e86…6e9e Head {h00=0x0014, h01=0x0050, text=»SOQ10 ADR A1,A6 «, t00=0x0046, t01=0x013e}
0x6e9e…6eca Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 GET PREVIOUS POINTER POS. «, t00=0x0046, t01=0x0156}
0x6eca…6eda Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0046, t01=0x0182}
0x6eda…6ee8 (71, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0004}
0x6ee8…6ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0012}
0x6ef2…6f08 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE «, t00=0x0047, t01=0x001c}
0x6f08…6f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0032}
0x6f12…6f26 Head {h00=0x0010, h01=0x0050, text=»BACKSP EQU *«, t00=0x0047, t01=0x003c}
0x6f26…6f38 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0047, t01=0x0050}
0x6f38…6f5e Head {h00=0x0022, h01=0x0050, text=» RF(Z) KBBSPA ECB-BUFFER EMPTY«, t00=0x0047, t01=0x0062}
0x6f5e…6f82 Head {h00=0x0020, h01=0x0050, text=» SUK A3,1 ONE STEP BACKWARDS«, t00=0x0047, t01=0x0088}
0x6f82…6f9e Head {h00=0x0018, h01=0x0050, text=» SUR A2,A2 CLEAR A2 «, t00=0x0047, t01=0x00ac}
0x6f9e…6fd6 Head {h00=0x0034, h01=0x0050, text=» CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR«, t00=0x0047, t01=0x00c8}
0x6fd6…6ffc Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 STEP BACKWARDS AGAIN«, t00=0x0047, t01=0x0100}
0x6ffc…7006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0126}
0x7006…701a Head {h00=0x0010, h01=0x0050, text=»KBBSPA EQU *«, t00=0x0047, t01=0x0130}
0x701a…702e Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0047, t01=0x0144}
0x702e…7058 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/8 BACKSPACE TO ECHODEVICE«, t00=0x0047, t01=0x0158}
0x7058…7064 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0182}
0x7064…7078 Head {h00=0x0010, h01=0x0050, text=»KBBSP2 EQU *«, t00=0x0047, t01=0x018e}
0x7078…708c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0048, t01=0x0012}
0x708c…70b2 Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHSUB ECHSUB CHARACTER«, t00=0x0048, t01=0x0026}
0x70b2…70be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x004c}
0x70be…70e0 Head {h00=0x001e, h01=0x0050, text=» ABL MKB100 NEXT CHARACTER«, t00=0x0048, t01=0x0058}
0x70e0…70ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x007a}
0x70ea…70fc Head {h00=0x000e, h01=0x0050, text=»* CLEAR «, t00=0x0048, t01=0x0084}
0x70fc…7106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0096}
0x7106…711a Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0048, t01=0x00a0}
0x711a…713c Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 RESET ECB-BUFFER«, t00=0x0048, t01=0x00b4}
0x713c…715e Head {h00=0x001e, h01=0x0050, text=» RB KBBSP2 NEXT CHARACTER «, t00=0x0048, t01=0x00d6}
0x715e…716c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x00f8}
0x716c…7176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0106}
0x7176…7190 Head {h00=0x0016, h01=0x0050, text=»* MULTIPLE ZERO «, t00=0x0048, t01=0x0110}
0x7190…719a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x012a}
0x719a…71b8 Head {h00=0x001a, h01=0x0050, text=»MZ20 EQU * DOUBLE ZERO«, t00=0x0048, t01=0x0134}
0x71b8…71ca Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0048, t01=0x0152}
0x71ca…71da Head {h00=0x000c, h01=0x0050, text=» RF MZ50«, t00=0x0048, t01=0x0164}
0x71da…71e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0174}
0x71e4…7202 Head {h00=0x001a, h01=0x0050, text=»MZ30 EQU * TRIPLE ZERO«, t00=0x0048, t01=0x017e}
0x7202…7214 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0049, t01=0x000c}
0x7214…721e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001e}
0x721e…7230 Head {h00=0x000e, h01=0x0050, text=»MZ50 EQU *«, t00=0x0049, t01=0x0028}
0x7230…7254 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES ? «, t00=0x0049, t01=0x003a}
0x7254…727e Head {h00=0x0026, h01=0x0050, text=» ABL(L) MKB100 NO, NEXT CHARACTER «, t00=0x0049, t01=0x005e}
0x727e…7288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0088}
0x7288…7296 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0092}
0x7296…72a2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0049, t01=0x00a0}
0x72a2…72d6 Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER«, t00=0x0049, t01=0x00ac}
0x72d6…7302 Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x0049, t01=0x00e0}
0x7302…730c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010c}
0x730c…733c Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ?«, t00=0x0049, t01=0x0116}
0x733c…7354 Head {h00=0x0014, h01=0x0050, text=» RF(E) MZ90 NO !«, t00=0x0049, t01=0x0146}
0x7354…7366 Head {h00=0x000e, h01=0x0050, text=»MZ75 EQU *«, t00=0x0049, t01=0x015e}
0x7366…73a0 Head {h00=0x0036, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER«, t00=0x0049, t01=0x0170}
0x73a0…73d0 Head {h00=0x002c, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRCULAR BUFF.«, t00=0x004a, t01=0x001a}
0x73d0…73e2 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x004a, t01=0x004a}
0x73e2…73f2 Head {h00=0x000c, h01=0x0050, text=» RB MZ50«, t00=0x004a, t01=0x005c}
0x73f2…73fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x006c}
0x73fc…740e Head {h00=0x000e, h01=0x0050, text=»MZ80 EQU *«, t00=0x004a, t01=0x0076}
0x740e…743a Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OVERFLOW«, t00=0x004a, t01=0x0088}
0x743a…744c Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x004a, t01=0x00b4}
0x744c…747c Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER «, t00=0x004a, t01=0x00c6}
0x747c…74b2 Head {h00=0x0032, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND«, t00=0x004a, t01=0x00f6}
0x74b2…74d2 Head {h00=0x001c, h01=0x0050, text=» ENB THROUGHPUT ERRORS «, t00=0x004a, t01=0x012c}
0x74d2…74dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014c}
0x74dc…74f0 Head {h00=0x0010, h01=0x0050, text=» ABL MKBEND «, t00=0x004a, t01=0x0156}
0x74f0…74fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x016a}
0x74fa…750c Head {h00=0x000e, h01=0x0050, text=»MZ90 EQU *«, t00=0x004a, t01=0x0174}
0x750c…752c Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 ALL ZEROES ? «, t00=0x004a, t01=0x0186}
0x752c…7544 Head {h00=0x0014, h01=0x0050, text=» RB(E) MZ80 YES «, t00=0x004b, t01=0x0016}
0x7544…756e Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FFFF NO, MOVE IN-POINTER«, t00=0x004b, t01=0x002e}
0x756e…758e Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTDEV+DWTINQ,A6«, t00=0x004b, t01=0x0058}
0x758e…759e Head {h00=0x000c, h01=0x0050, text=» RB MZ75«, t00=0x004b, t01=0x0078}
0x759e…75ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0088}
0x75ac…75b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0096}
0x75b6…75e6 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004b, t01=0x00a0}
0x75e6…75f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d0}
0x75f0…760a Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x004b, t01=0x00da}
0x760a…7614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f4}
0x7614…7644 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004b, t01=0x00fe}
0x7644…764e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012e}
0x764e…7660 Head {h00=0x000e, h01=0x0050, text=»ABKB EQU *«, t00=0x004b, t01=0x0138}
0x7660…768a Head {h00=0x0026, h01=0x0050, text=» CF A15,ABORT ABORT INPUT REQUEST «, t00=0x004b, t01=0x014a}
0x768a…76a0 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x004b, t01=0x0174}
0x76a0…76be Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x004b, t01=0x018a}
0x76be…76de Head {h00=0x001c, h01=0x0050, text=» RF(Z) ABKB05 NO TIMER !«, t00=0x004c, t01=0x0018}
0x76de…76fa Head {h00=0x0018, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6«, t00=0x004c, t01=0x0038}
0x76fa…7722 Head {h00=0x0024, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x004c, t01=0x0054}
0x7722…7736 Head {h00=0x0010, h01=0x0050, text=»ABKB05 EQU *«, t00=0x004c, t01=0x007c}
0x7736…7742 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x0090}
0x7742…774c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x774c…7774 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x004c, t01=0x00a6}
0x7774…779e Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO END I/O ON KEYBOARD«, t00=0x004c, t01=0x00ce}
0x779e…77cc Head {h00=0x002a, h01=0x0050, text=» SLC A4,2 GET ECHO-MODE INDICATION BIT«, t00=0x004c, t01=0x00f8}
0x77cc…77e0 Head {h00=0x0010, h01=0x0050, text=»ABKB10 EQU *«, t00=0x004c, t01=0x0126}
0x77e0…780a Head {h00=0x0026, h01=0x0050, text=» ABL(NN) LDISP NOT AN ECHO REQUEST«, t00=0x004c, t01=0x013a}
0x780a…7814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0164}
0x7814…784c Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE «, t00=0x004c, t01=0x016e}
0x784c…7876 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTADR,A4 GET ADDRESS BLOCK«, t00=0x004d, t01=0x0016}
0x7876…78b0 Head {h00=0x0036, h01=0x0050, text=» LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE «, t00=0x004d, t01=0x0040}
0x78b0…78e2 Head {h00=0x002e, h01=0x0050, text=» RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT«, t00=0x004d, t01=0x007a}
0x78e2…78ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ac}
0x78ec…7922 Head {h00=0x0032, h01=0x0050, text=» LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE «, t00=0x004d, t01=0x00b6}
0x7922…7954 Head {h00=0x002e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT «, t00=0x004d, t01=0x00ec}
0x7954…7976 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 ADD DWT-ADDRESS«, t00=0x004d, t01=0x011e}
0x7976…7980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0140}
0x7980…79b4 Head {h00=0x0030, h01=0x0050, text=» ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE«, t00=0x004d, t01=0x014a}
0x79b4…79c0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004d, t01=0x017e}
0x79c0…79c4 Head {h00=0x4004, h01=0x0000}
0x79c4…79c8 00 4d 01 8a ┆ M ┆
0x79c8…79d0 (78, 1, 8) 20 04 00 00 00 4e 00 04 ┆ N ┆