|
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: 33580 (0x832c)
Notes: pts_type(SC)
Names: »DRKB04.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PTMON/DRKB04.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/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 1 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 10 * * 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 1 * * 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 1 «, 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 10 «, 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…15da Head {h00=0x0010, h01=0x0050, text=»KBLOCK EQU 1«, t00=0x000d, t01=0x017c}
0x15da…15e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0190}
0x15e4…1600 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000e, t01=0x000a}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x160a…161c Head {h00=0x000e, h01=0x0050, text=»X:H EQU 10«, t00=0x000e, t01=0x0030}
0x161c…1632 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000e, t01=0x0042}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0058}
0x163c…165a Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000e, t01=0x0062}
0x165a…1664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x1664…1676 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 10«, t00=0x000e, t01=0x008a}
0x1676…168c Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:I«, t00=0x000e, t01=0x009c}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b2}
0x1696…16d0 Head {h00=0x0036, h01=0x0050, text=»* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2«, t00=0x000e, t01=0x00bc}
0x16d0…16f6 Head {h00=0x0022, h01=0x0050, text=»* IS INCLUDED IN SYSTEM =2 «, t00=0x000e, t01=0x00f6}
0x16f6…1700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011c}
0x1700…1712 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 1 «, t00=0x000e, t01=0x0126}
0x1712…1728 Head {h00=0x0012, h01=0x0050, text=»NEWKB EQU X:J «, t00=0x000e, t01=0x0138}
0x1728…1732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1732…176e Head {h00=0x0038, h01=0x0050, text=»* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 «, t00=0x000e, t01=0x0158}
0x176e…179c (15, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* 71 OR 72 IS INCLUDED IN SYSTEM =2«, t00=0x000f, t01=0x0004}
0x179c…17a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0032}
0x17a6…17b8 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 1 «, t00=0x000f, t01=0x003c}
0x17b8…17cc Head {h00=0x0010, h01=0x0050, text=»OLDKB EQU 00«, t00=0x000f, t01=0x004e}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0062}
0x17d6…180c Head {h00=0x0032, h01=0x0050, text=»* X:L SHOULD BE SET TO 1 IF PLC IS USED =2 «, t00=0x000f, t01=0x006c}
0x180c…1816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x1816…1828 Head {h00=0x000e, h01=0x0050, text=»X:L EQU 1 «, t00=0x000f, t01=0x00ac}
0x1828…183c Head {h00=0x0010, h01=0x0050, text=»PLC EQU X:L «, t00=0x000f, t01=0x00be}
0x183c…1846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d2}
0x1846…1876 Head {h00=0x002c, h01=0x0050, text=»* IF X:M = 1 IT IS POSSIBLE TO USE =2«, t00=0x000f, t01=0x00dc}
0x1876…189a Head {h00=0x0020, h01=0x0050, text=»* GREEK CHARACTER SET =2 «, t00=0x000f, t01=0x010c}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a4…18b6 Head {h00=0x000e, h01=0x0050, text=»X:M EQU 0 «, t00=0x000f, t01=0x013a}
0x18b6…18cc Head {h00=0x0012, h01=0x0050, text=»GREECE EQU X:M«, t00=0x000f, t01=0x014c}
0x18cc…1902 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU-PAGING IS«, t00=0x000f, t01=0x0162}
0x1902…1930 Head {h00=0x002a, h01=0x0050, text=»* OBTAINED BY SETTING MMUPAG EQU 1. «, t00=0x0010, t01=0x0008}
0x1930…193a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x193a…194e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0010, t01=0x0040}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1958…1966 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x005e}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x1970…198c Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x0010, t01=0x0076}
0x198c…1996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0092}
0x1996…19bc Head {h00=0x0022, h01=0x0050, text=»DWTKEY EQU /04 KEYLOCK MEMORY «, t00=0x0010, t01=0x009c}
0x19bc…19e4 Head {h00=0x0024, h01=0x0050, text=»DWTCS EQU /06 CRTL-SHIFT MEMORY «, t00=0x0010, t01=0x00c2}
0x19e4…1a16 Head {h00=0x002e, h01=0x0050, text=»DWTCTB EQU /08 CONVERSION POINTERS ADDRESS«, t00=0x0010, t01=0x00ea}
0x1a16…1a3a Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /0A TIMER POINTER «, t00=0x0010, t01=0x011c}
0x1a3a…1a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0140}
0x1a44…1a66 Head {h00=0x001e, h01=0x0050, text=»* CIRCULAR INPUT BUFFER «, t00=0x0010, t01=0x014a}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016c}
0x1a70…1a9e Head {h00=0x002a, h01=0x0050, text=»DWTINQ EQU /0C POINTER TO FIRST PLACE «, t00=0x0010, t01=0x0176}
0x1a9e…1aca Head {h00=0x0028, h01=0x0050, text=»DWTUTQ EQU /0E POINTER TO LAST PLACE«, t00=0x0011, t01=0x0014}
0x1aca…1af0 Head {h00=0x0022, h01=0x0050, text=»DWTSQ EQU /10 START OF BUFFER «, t00=0x0011, t01=0x0040}
0x1af0…1b1c Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER«, t00=0x0011, t01=0x0066}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0092}
0x1b26…1b40 Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0011, t01=0x009c}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b4a…1b6c Head {h00=0x001e, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE«, t00=0x0011, t01=0x00c0}
0x1b6c…1b90 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x00e2}
0x1b90…1bac Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x0106}
0x1bac…1bc0 Head {h00=0x0010, h01=0x0050, text=»KBAD4 EQU * «, t00=0x0011, t01=0x0122}
0x1bc0…1be2 Head {h00=0x001e, h01=0x0050, text=» DATA ACKB ACTIVATION PART«, t00=0x0011, t01=0x0136}
0x1be2…1c02 Head {h00=0x001c, h01=0x0050, text=» DATA ABKB ABORT ROUTINE«, t00=0x0011, t01=0x0158}
0x1c02…1c26 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0011, t01=0x0178}
0x1c26…1c3a Head {h00=0x0010, h01=0x0050, text=» IFF RECOV=1«, t00=0x0012, t01=0x000c}
0x1c3a…1c5e Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO RECOVERY ROUTINE «, t00=0x0012, t01=0x0020}
0x1c5e…1c6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0044}
0x1c6a…1c7e Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0012, t01=0x0050}
0x1c7e…1ca2 Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0012, t01=0x0064}
0x1ca2…1cb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0088}
0x1cb0…1cdc Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0012, t01=0x0096}
0x1cdc…1ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce6…1d02 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x0012, t01=0x00cc}
0x1d02…1d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e8}
0x1d0c…1d3a Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0012, t01=0x00f2}
0x1d3a…1d58 Head {h00=0x001a, h01=0x0050, text=»RCKB LDR A8,A8 BUSY ? «, t00=0x0012, t01=0x0120}
0x1d58…1d72 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC10 YES !«, t00=0x0012, t01=0x013e}
0x1d72…1d8c Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/400 NO !«, t00=0x0012, t01=0x0158}
0x1d8c…1db8 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE POWER OFF«, t00=0x0012, t01=0x0172}
0x1db8…1dd6 Head {h00=0x001a, h01=0x0050, text=» ABL LENDIS DISPATCH !«, t00=0x0013, t01=0x000e}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1de0…1e02 Head {h00=0x001e, h01=0x0050, text=»RC10 CWK A7,1 BASIC READ ?«, t00=0x0013, t01=0x0036}
0x1e02…1e1e Head {h00=0x0018, h01=0x0050, text=» ABL(E) LDISP YES ! «, t00=0x0013, t01=0x0058}
0x1e1e…1e2e Head {h00=0x000c, h01=0x0050, text=»* NO ! «, t00=0x0013, t01=0x0074}
0x1e2e…1e5e Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0013, t01=0x0084}
0x1e5e…1e8e Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH «, t00=0x0013, t01=0x00b4}
0x1e8e…1eb8 Head {h00=0x0026, h01=0x0050, text=»RC15 CM ECBCW,A8 COMPLETE REQUEST «, t00=0x0013, t01=0x00e4}
0x1eb8…1ee2 Head {h00=0x0026, h01=0x0050, text=» ABL MKB335 AND SET RETURN CODE =0«, t00=0x0013, t01=0x010e}
0x1ee2…1eee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0138}
0x1eee…1efc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0144}
0x1efc…1f28 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x0152}
0x1f28…1f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x017e}
0x1f32…1f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0188}
0x1f3c…1f50 (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* A C K B «, t00=0x0014, t01=0x0004}
0x1f50…1f6c Head {h00=0x0018, h01=0x0050, text=»* ACTIVATION PART «, t00=0x0014, t01=0x0018}
0x1f6c…1f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0034}
0x1f76…1f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003e}
0x1f80…1fac Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0014, t01=0x0048}
0x1fac…1fbe Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0014, t01=0x0074}
0x1fbe…1fca Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0014, t01=0x0086}
0x1fca…1fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0092}
0x1fd4…1ff6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET REGISTERS «, t00=0x0014, t01=0x009c}
0x1ff6…2008 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0014, t01=0x00be}
0x2008…2012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2012…202a Head {h00=0x0014, h01=0x0050, text=»* CHECK ORDER «, t00=0x0014, t01=0x00da}
0x202a…2034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x2034…2046 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x00fc}
0x2046…206a Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0014, t01=0x010e}
0x206a…207c Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0014, t01=0x0132}
0x207c…20a2 Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB200 ORDER 1, 2 OR 3 «, t00=0x0014, t01=0x0144}
0x20a2…20b8 Head {h00=0x0012, h01=0x0050, text=» SUK A4,/2D «, t00=0x0014, t01=0x016a}
0x20b8…20d6 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0014, t01=0x0180}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20e0…20fa Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL ORDER «, t00=0x0015, t01=0x0018}
0x20fa…2104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0032}
0x2104…2118 Head {h00=0x0010, h01=0x0050, text=»AKB100 EQU *«, t00=0x0015, t01=0x003c}
0x2118…213c Head {h00=0x0020, h01=0x0050, text=» ABL LENDER COMPLETE REQUEST«, t00=0x0015, t01=0x0050}
0x213c…214a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0074}
0x214a…2154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0082}
0x2154…217e Head {h00=0x0026, h01=0x0050, text=»* ORDER 31. RESET INPUT BUFFER. «, t00=0x0015, t01=0x008c}
0x217e…2188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b6}
0x2188…219c Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x00c0}
0x219c…21a8 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0015, t01=0x00d4}
0x21a8…21d0 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 BUF END «, t00=0x0015, t01=0x00e0}
0x21d0…21fe Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ?«, t00=0x0015, t01=0x0108}
0x21fe…221a Head {h00=0x0018, h01=0x0050, text=» RF(E) AKB119 YES ! «, t00=0x0015, t01=0x0136}
0x221a…2224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2224…2236 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0015, t01=0x015c}
0x2236…2254 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0015, t01=0x016e}
0x2254…226c Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTDEV,A6«, t00=0x0015, t01=0x018c}
0x226c…2298 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 PTS 6236, -71, -72 ? «, t00=0x0016, t01=0x0014}
0x2298…22b2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) AKB118 NO !«, t00=0x0016, t01=0x0040}
0x22b2…22be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x005a}
0x22be…22d6 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0016, t01=0x0066}
0x22d6…22e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007e}
0x22e0…231e Head {h00=0x003a, h01=0x0050, text=»* SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED«, t00=0x0016, t01=0x0088}
0x231e…2350 Head {h00=0x002e, h01=0x0050, text=»* FROM BUFFER WHEN KB 6236/71/72 IS USED«, t00=0x0016, t01=0x00c6}
0x2350…235a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f8}
0x235a…2380 Head {h00=0x0022, h01=0x0050, text=»AKB112 LCR A4,A1 GET CHARACTER«, t00=0x0016, t01=0x0102}
0x2380…2394 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x0128}
0x2394…23aa Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0016, t01=0x013c}
0x23aa…23d4 Head {h00=0x0026, h01=0x0050, text=» CCK A4,/7C00 NUMSHIFT DEPRESSED ?«, t00=0x0016, t01=0x0152}
0x23d4…23fe Head {h00=0x0026, h01=0x0050, text=» RF(E) AKB113 YES ! SKIP CHARACTER«, t00=0x0016, t01=0x017c}
0x23fe…240a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0016}
0x240a…2422 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0017, t01=0x0022}
0x2422…2446 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/80 SKIP CHARACTER ?«, t00=0x0017, t01=0x003a}
0x2446…2462 Head {h00=0x0018, h01=0x0050, text=» RF(Z) AKB113 YES ! «, t00=0x0017, t01=0x005e}
0x2462…248c Head {h00=0x0026, h01=0x0050, text=» ADK A4,/10 SHIFT, CTRL, KEYLOCK ?«, t00=0x0017, t01=0x007a}
0x248c…24a8 Head {h00=0x0018, h01=0x0050, text=» RF(NN) AKB120 YES !«, t00=0x0017, t01=0x00a4}
0x24a8…24b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b2…24e0 Head {h00=0x002a, h01=0x0050, text=»AKB113 CF A15,EOQUEU GET NEXT POINTER «, t00=0x0017, t01=0x00ca}
0x24e0…250c Head {h00=0x0028, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 END OF BUF ?«, t00=0x0017, t01=0x00f8}
0x250c…2532 Head {h00=0x0022, h01=0x0050, text=» RB(NE) AKB112 NO ! CHECK NEXT«, t00=0x0017, t01=0x0124}
0x2532…253c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014a}
0x253c…2548 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0154}
0x2548…2560 Head {h00=0x0014, h01=0x0050, text=»AKB118 SCR A3,A1«, t00=0x0017, t01=0x0160}
0x2560…2584 Head {h00=0x0020, h01=0x0050, text=» ST A2,DWTDEV+DWTINQ,A6 YES!«, t00=0x0017, t01=0x0178}
0x2584…2596 Head {h00=0x000e, h01=0x0050, text=»AKB119 ENB«, t00=0x0018, t01=0x000c}
0x2596…25c8 Head {h00=0x002e, h01=0x0050, text=» ABL MKB335 SET RC=0 AND COMPLETE REQUEST «, t00=0x0018, t01=0x001e}
0x25c8…25d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0050}
0x25d2…25ea Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0018, t01=0x005a}
0x25ea…2612 Head {h00=0x0024, h01=0x0050, text=»AKB120 ADK A4,/70 RESTORE CHAR. «, t00=0x0018, t01=0x0072}
0x2612…2632 Head {h00=0x001c, h01=0x0050, text=» SCR A4,A2 STORE IN BUF.«, t00=0x0018, t01=0x009a}
0x2632…2658 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A1 EXCHANGE REGISTERS «, t00=0x0018, t01=0x00ba}
0x2658…266a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x00e0}
0x266a…2692 Head {h00=0x0024, h01=0x0050, text=» CF A15,EOQUEU GET NEXT POINTER «, t00=0x0018, t01=0x00f2}
0x2692…26a4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x011a}
0x26a4…26b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0018, t01=0x012c}
0x26b6…26c8 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0018, t01=0x013e}
0x26c8…26da Head {h00=0x000e, h01=0x0050, text=» RB AKB113«, t00=0x0018, t01=0x0150}
0x26da…26e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0162}
0x26e4…26f0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x016c}
0x26f0…2704 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0018, t01=0x0178}
0x2704…2718 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0018, t01=0x018c}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0010}
0x2722…273c Head {h00=0x0016, h01=0x0050, text=»* POWER OFF TEST«, t00=0x0019, t01=0x001a}
0x273c…2746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0034}
0x2746…276a Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV,A6 POWER OFF ?«, t00=0x0019, t01=0x003e}
0x276a…2780 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/400 «, t00=0x0019, t01=0x0062}
0x2780…279a Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO !«, t00=0x0019, t01=0x0078}
0x279a…27c8 Head {h00=0x002a, h01=0x0050, text=» XRS A2,DWTDEV,A6 RESET POWER OFF BIT «, t00=0x0019, t01=0x0092}
0x27c8…27e6 Head {h00=0x001a, h01=0x0050, text=» CWK A7,1 BASIC READ ?«, t00=0x0019, t01=0x00c0}
0x27e6…2812 Head {h00=0x0028, h01=0x0050, text=» RB(NE) RC15 NO ! COMPLETE REQUEST !«, t00=0x0019, t01=0x00de}
0x2812…281e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x010a}
0x281e…2832 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0019, t01=0x0116}
0x2832…2848 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0019, t01=0x012a}
0x2848…2856 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0140}
0x2856…2860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014e}
0x2860…2884 Head {h00=0x0020, h01=0x0050, text=»* INITIATE TIMING ROUTINE «, t00=0x0019, t01=0x0158}
0x2884…288e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x017c}
0x288e…28b0 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTDEV,A6 TIMING ? «, t00=0x0019, t01=0x0186}
0x28b0…28ca Head {h00=0x0016, h01=0x0050, text=» RF(NN) AKB210 NO!«, t00=0x001a, t01=0x0018}
0x28ca…28d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0032}
0x28d4…2918 Head {h00=0x0040, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? «, t00=0x001a, t01=0x003c}
0x2918…2932 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKBTIM NO! «, t00=0x001a, t01=0x0080}
0x2932…293c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x293c…2966 Head {h00=0x0026, h01=0x0050, text=» CF A15,RESTRT YES ! RESTART TIMER«, t00=0x001a, t01=0x00a4}
0x2966…2978 Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001a, t01=0x00ce}
0x2978…2982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e0}
0x2982…2996 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001a, t01=0x00ea}
0x2996…29ba Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DWT-ADDRESS IN A1«, t00=0x001a, t01=0x00fe}
0x29ba…29c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c4…29e4 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIME SET TIME «, t00=0x001a, t01=0x012c}
0x29e4…2a14 Head {h00=0x002c, h01=0x0050, text=» DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME«, t00=0x001a, t01=0x014c}
0x2a14…2a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017c}
0x2a1e…2a58 Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT «, t00=0x001a, t01=0x0186}
0x2a58…2a64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0030}
0x2a64…2a72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x003c}
0x2a72…2a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004a}
0x2a7c…2a9e Head {h00=0x001e, h01=0x0050, text=»* REQUESTED LENGTH OK ? «, t00=0x001b, t01=0x0054}
0x2a9e…2aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0076}
0x2aa8…2ae4 Head {h00=0x0038, h01=0x0050, text=»AKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? «, t00=0x001b, t01=0x0080}
0x2ae4…2b14 Head {h00=0x002c, h01=0x0050, text=» ABL(E) MKBEND YES ! COMPLETE REQUEST ! «, t00=0x001b, t01=0x00bc}
0x2b14…2b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ec}
0x2b1e…2b3a Head {h00=0x0018, h01=0x0050, text=»* CLEAR ECB-BUFFER«, t00=0x001b, t01=0x00f6}
0x2b3a…2b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0112}
0x2b44…2b6a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x011c}
0x2b6a…2b7c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001b, t01=0x0142}
0x2b7c…2ba4 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 ADD REQUESTED LENGTH «, t00=0x001b, t01=0x0154}
0x2ba4…2bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017c}
0x2bae…2bea Head {h00=0x0038, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH«, t00=0x001b, t01=0x0186}
0x2bea…2bfe Head {h00=0x0010, h01=0x0050, text=» SUK A1,1 «, t00=0x001c, t01=0x0032}
0x2bfe…2c10 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0046}
0x2c10…2c34 Head {h00=0x0020, h01=0x0050, text=» RB(NE) AKB230 NOT READY YET«, t00=0x001c, t01=0x0058}
0x2c34…2c42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x007c}
0x2c42…2c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008a}
0x2c4c…2c78 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001c, t01=0x0094}
0x2c78…2c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c0}
0x2c82…2c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ca}
0x2c8c…2c9e Head {h00=0x000e, h01=0x0050, text=»* M K B «, t00=0x001c, t01=0x00d4}
0x2c9e…2cc6 Head {h00=0x0024, h01=0x0050, text=»* MAIN PART OF KEYBOARD DRIVER«, t00=0x001c, t01=0x00e6}
0x2cc6…2cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010e}
0x2cd0…2cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0118}
0x2cda…2d08 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x001c, t01=0x0122}
0x2d08…2d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0150}
0x2d12…2d4a Head {h00=0x0034, h01=0x0050, text=»* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS «, t00=0x001c, t01=0x015a}
0x2d4a…2d80 (29, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS AND NO OVERFLOW HAS OCCURRED, A«, t00=0x001d, t01=0x0004}
0x2d80…2da8 Head {h00=0x0024, h01=0x0050, text=»* CHARACTER WILL BE PUT IN A2 «, t00=0x001d, t01=0x003a}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0062}
0x2db2…2dc6 Head {h00=0x0010, h01=0x0050, text=»MKB100 EQU *«, t00=0x001d, t01=0x006c}
0x2dc6…2dd2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001d, t01=0x0080}
0x2dd2…2e08 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM«, t00=0x001d, t01=0x008c}
0x2e08…2e2e Head {h00=0x0022, h01=0x0050, text=» LCR A2,A1 CIRCULAR BUFFER END«, t00=0x001d, t01=0x00c2}
0x2e2e…2e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e8}
0x2e38…2e4a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001d, t01=0x00f2}
0x2e4a…2e68 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x001d, t01=0x0104}
0x2e68…2e84 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB130 NO ! «, t00=0x001d, t01=0x0122}
0x2e84…2e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8e…2ea6 Head {h00=0x0014, h01=0x0050, text=» SCR A4,A1 YES !«, t00=0x001d, t01=0x0148}
0x2ea6…2eb2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001d, t01=0x0160}
0x2eb2…2eda Head {h00=0x0024, h01=0x0050, text=» LDK A1,OVMASK SET OVERFLOW BIT «, t00=0x001d, t01=0x016c}
0x2eda…2efe (30, 0, 398) Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x001e, t01=0x0004}
0x2efe…2f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0028}
0x2f08…2f42 Head {h00=0x0036, h01=0x0050, text=»MKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ?«, t00=0x001e, t01=0x0032}
0x2f42…2f5c Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB140 NO !«, t00=0x001e, t01=0x006c}
0x2f5c…2f86 Head {h00=0x0026, h01=0x0050, text=» CF A15,EOQUEU YES ! MOVE POINTER «, t00=0x001e, t01=0x0086}
0x2f86…2fb8 Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER «, t00=0x001e, t01=0x00b0}
0x2fb8…2fc6 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x001e, t01=0x00e2}
0x2fc6…2fdc Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001e, t01=0x00f0}
0x2fdc…2fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0106}
0x2fe6…302a Head {h00=0x0040, h01=0x0050, text=»* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER «, t00=0x001e, t01=0x0110}
0x302a…3034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0154}
0x3034…306c Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT «, t00=0x001e, t01=0x015e}
0x306c…309c Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ?«, t00=0x001f, t01=0x0008}
0x309c…30b6 Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB135 NO !«, t00=0x001f, t01=0x0038}
0x30b6…30d0 Head {h00=0x0016, h01=0x0050, text=» ORS A4,DWTDEV,A6 «, t00=0x001f, t01=0x0052}
0x30d0…30dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006c}
0x30dc…30ee Head {h00=0x000e, h01=0x0050, text=»MKB133 ENB«, t00=0x001f, t01=0x0078}
0x30ee…3100 Head {h00=0x000e, h01=0x0050, text=» RF MKB150«, t00=0x001f, t01=0x008a}
0x3100…310a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009c}
0x310a…3120 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001f, t01=0x00a6}
0x3120…3138 Head {h00=0x0014, h01=0x0050, text=»MKB135 C1R A4,A4«, t00=0x001f, t01=0x00bc}
0x3138…3174 Head {h00=0x0038, h01=0x0050, text=» ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION«, t00=0x001f, t01=0x00d4}
0x3174…3186 Head {h00=0x000e, h01=0x0050, text=» RB MKB133«, t00=0x001f, t01=0x0110}
0x3186…3192 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0122}
0x3192…31a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x012e}
0x31a0…31aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31aa…31d4 Head {h00=0x0026, h01=0x0050, text=»* READ A CHARACTER FROM KEYBOARD«, t00=0x001f, t01=0x0146}
0x31d4…31de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0170}
0x31de…31f2 Head {h00=0x0010, h01=0x0050, text=»MKB140 EQU *«, t00=0x001f, t01=0x017a}
0x31f2…3216 Head {h00=0x0020, h01=0x0050, text=» CF A5,INPUT READ CHARACTER «, t00=0x001f, t01=0x018e}
0x3216…3222 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0020, t01=0x0022}
0x3222…322c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002e}
0x322c…3256 Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0020, t01=0x0038}
0x3256…3260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0062}
0x3260…3276 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x0020, t01=0x006c}
0x3276…32b0 Head {h00=0x0036, h01=0x0050, text=»* SET "MORE CHARACTERS" INDICATION BIT IF THERE «, t00=0x0020, t01=0x0082}
0x32b0…32d0 Head {h00=0x001c, h01=0x0050, text=»* ARE MORE CHARACTERS «, t00=0x0020, t01=0x00bc}
0x32d0…32da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00dc}
0x32da…3306 Head {h00=0x0028, h01=0x0050, text=» ANK A1,/1 MASK NOT SIGNIFICANT BITS«, t00=0x0020, t01=0x00e6}
0x3306…3318 Head {h00=0x000e, h01=0x0050, text=» SRC A1,5 «, t00=0x0020, t01=0x0112}
0x3318…3332 Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0020, t01=0x0124}
0x3332…333c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013e}
0x333c…3348 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0148}
0x3348…335e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0020, t01=0x0154}
0x335e…338a Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0020, t01=0x016a}
0x338a…3396 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0008}
0x3396…33a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0014}
0x33a0…33b4 Head {h00=0x0010, h01=0x0050, text=»MKB150 EQU *«, t00=0x0021, t01=0x001e}
0x33b4…33d2 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0021, t01=0x0032}
0x33d2…33dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0050}
0x33dc…340a Head {h00=0x002a, h01=0x0050, text=»* CHECK WHICH KEYBOARD THAT IS USED «, t00=0x0021, t01=0x005a}
0x340a…3414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0088}
0x3414…343a Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 KEYBOARD WITH«, t00=0x0021, t01=0x0092}
0x343a…3466 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 SPECIAL CONVERSION ? «, t00=0x0021, t01=0x00b8}
0x3466…3486 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MKB290 PERHAPS ! «, t00=0x0021, t01=0x00e4}
0x3486…3492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0104}
0x3492…34aa Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0021, t01=0x0110}
0x34aa…34b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0128}
0x34b4…34d6 Head {h00=0x001e, h01=0x0050, text=»* KB 6236/71/72 IS USED «, t00=0x0021, t01=0x0132}
0x34d6…34fa Head {h00=0x0020, h01=0x0050, text=»* CHECK INCOMING CHARACTER«, t00=0x0021, t01=0x0154}
0x34fa…3504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3504…3516 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0182}
0x3516…3546 (34, 0, 400) Head {h00=0x002c, h01=0x0050, text=» SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? «, t00=0x0022, t01=0x0004}
0x3546…3574 Head {h00=0x002a, h01=0x0050, text=» RB(Z) MKB100 YES, READ NEXT CHARACTER«, t00=0x0022, t01=0x0034}
0x3574…3594 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/8 CTRL/SHIFT ? «, t00=0x0022, t01=0x0062}
0x3594…35b0 Head {h00=0x0018, h01=0x0050, text=» RF(NN) MKB220 YES !«, t00=0x0022, t01=0x0082}
0x35b0…35d6 Head {h00=0x0022, h01=0x0050, text=» ADK A4,/8 NORMAL CHARACTER ? «, t00=0x0022, t01=0x009e}
0x35d6…35f2 Head {h00=0x0018, h01=0x0050, text=» RF(N) MKB300 YES ! «, t00=0x0022, t01=0x00c4}
0x35f2…3600 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00e0}
0x3600…360a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ee}
0x360a…364c Head {h00=0x003e, h01=0x0050, text=»* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT.«, t00=0x0022, t01=0x00f8}
0x364c…368a Head {h00=0x003a, h01=0x0050, text=»* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE«, t00=0x0022, t01=0x013a}
0x368a…36ca Head {h00=0x003c, h01=0x0050, text=»* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC-«, t00=0x0022, t01=0x0178}
0x36ca…36ec Head {h00=0x001e, h01=0x0050, text=»* TER SHOULD BE IGNORED.«, t00=0x0023, t01=0x0028}
0x36ec…36f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004a}
0x36f6…3712 Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 "FLAG BIT"«, t00=0x0023, t01=0x0054}
0x3712…3738 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 KEYLOCK CHAR. - /70«, t00=0x0023, t01=0x0070}
0x3738…3760 Head {h00=0x0024, h01=0x0050, text=»MKB160 RF(Z) MKB170 KEYLOCK ON !«, t00=0x0023, t01=0x0096}
0x3760…3772 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x00be}
0x3772…3796 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB180 KEYLOCK OFF ! «, t00=0x0023, t01=0x00d0}
0x3796…37be Head {h00=0x0024, h01=0x0050, text=» SLC A1,1 SHIFT "FLAG BIT" LEFT «, t00=0x0023, t01=0x00f4}
0x37be…37d0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x011c}
0x37d0…37fa Head {h00=0x0026, h01=0x0050, text=» RB MKB160 NEXT KEYLOCK, PERHAPS ?«, t00=0x0023, t01=0x012e}
0x37fa…3804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0158}
0x3804…3818 Head {h00=0x0010, h01=0x0050, text=»MKB170 EQU *«, t00=0x0023, t01=0x0162}
0x3818…3852 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED«, t00=0x0023, t01=0x0176}
0x3852…3864 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0024, t01=0x0020}
0x3864…3896 Head {h00=0x002e, h01=0x0050, text=» RB(NE) MKB100 NO CHANGE, READ A NEW CHAR.«, t00=0x0024, t01=0x0032}
0x3896…38c6 Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" «, t00=0x0024, t01=0x0064}
0x38c6…38d8 Head {h00=0x000e, h01=0x0050, text=» RF MKB190«, t00=0x0024, t01=0x0094}
0x38d8…38ec Head {h00=0x0010, h01=0x0050, text=»MKB180 EQU *«, t00=0x0024, t01=0x00a6}
0x38ec…3924 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED «, t00=0x0024, t01=0x00ba}
0x3924…3936 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0024, t01=0x00f2}
0x3936…3956 Head {h00=0x001c, h01=0x0050, text=» RB(Z) MKB100 NO CHANGE «, t00=0x0024, t01=0x0104}
0x3956…3984 Head {h00=0x002a, h01=0x0050, text=» C1R A1,A1 COMPLEMENT FOR AND-FUNCTION«, t00=0x0024, t01=0x0124}
0x3984…39b6 Head {h00=0x002e, h01=0x0050, text=» ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" «, t00=0x0024, t01=0x0152}
0x39b6…39ca Head {h00=0x0010, h01=0x0050, text=»MKB190 EQU *«, t00=0x0024, t01=0x0184}
0x39ca…39fe Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE KEYLOCK CHARACTER IN ECB«, t00=0x0025, t01=0x0008}
0x39fe…3a20 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x0025, t01=0x003c}
0x3a20…3a32 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0025, t01=0x005e}
0x3a32…3a52 Head {h00=0x001c, h01=0x0050, text=» RF(N) MKB325 ORDER 1 ! «, t00=0x0025, t01=0x0070}
0x3a52…3a60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0090}
0x3a60…3a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009e}
0x3a6a…3a9e Head {h00=0x0030, h01=0x0050, text=»* KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE«, t00=0x0025, t01=0x00a8}
0x3a9e…3ad8 Head {h00=0x0036, h01=0x0050, text=»* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST«, t00=0x0025, t01=0x00dc}
0x3ad8…3ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0116}
0x3ae2…3af6 Head {h00=0x0010, h01=0x0050, text=»MKB200 EQU *«, t00=0x0025, t01=0x0120}
0x3af6…3b18 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 LOAD CHARACTER «, t00=0x0025, t01=0x0134}
0x3b18…3b2c Head {h00=0x0010, h01=0x0050, text=» SUK A4,/70 «, t00=0x0025, t01=0x0156}
0x3b2c…3b56 Head {h00=0x0026, h01=0x0050, text=» SRC A4,1 SHIFT TO GET KEY NUMBER «, t00=0x0025, t01=0x016a}
0x3b56…3b78 (38, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(N) MKB210 ON OR OFF ? «, t00=0x0026, t01=0x0004}
0x3b78…3b90 Head {h00=0x0014, h01=0x0050, text=» ADK A4,/4 ON ! «, t00=0x0026, t01=0x0026}
0x3b90…3bb8 Head {h00=0x0024, h01=0x0050, text=»MKB210 SLL A4,1 MAKE WORD POSI- «, t00=0x0026, t01=0x003e}
0x3bb8…3bd4 Head {h00=0x0018, h01=0x0050, text=» SRL A4,1 TIVE AGAIN«, t00=0x0026, t01=0x0066}
0x3bd4…3c04 Head {h00=0x002c, h01=0x0050, text=» C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA «, t00=0x0026, t01=0x0082}
0x3c04…3c2e Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBCW,A8 STORE CODE IN ECB «, t00=0x0026, t01=0x00b2}
0x3c2e…3c5e Head {h00=0x002c, h01=0x0050, text=» RF MKB335 SET RC=0 AND COMPLETE REQUEST«, t00=0x0026, t01=0x00dc}
0x3c5e…3c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c68…3ca0 Head {h00=0x0034, h01=0x0050, text=»* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED)«, t00=0x0026, t01=0x0116}
0x3ca0…3caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014e}
0x3caa…3cbe Head {h00=0x0010, h01=0x0050, text=»MKB220 EQU *«, t00=0x0026, t01=0x0158}
0x3cbe…3cd4 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0026, t01=0x016c}
0x3cd4…3d02 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x0026, t01=0x0182}
0x3d02…3d32 Head {h00=0x002c, h01=0x0050, text=» RB(Z) MKB100 YES ! READ A NEW CHARACTER«, t00=0x0027, t01=0x0020}
0x3d32…3d3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0050}
0x3d3e…3d56 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0027, t01=0x005c}
0x3d56…3d6c Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0027, t01=0x0074}
0x3d6c…3d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008a}
0x3d76…3dac Head {h00=0x0032, h01=0x0050, text=»* MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS«, t00=0x0027, t01=0x0094}
0x3dac…3de2 Head {h00=0x0032, h01=0x0050, text=»* DEPRESSED, AND SKIP THE INCOMING CHARACTER«, t00=0x0027, t01=0x00ca}
0x3de2…3e00 Head {h00=0x001a, h01=0x0050, text=»* IF IT IS RELEASED.«, t00=0x0027, t01=0x0100}
0x3e00…3e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011e}
0x3e0a…3e2c Head {h00=0x001e, h01=0x0050, text=» CCK A2,/7C00 DEPRESSED ? «, t00=0x0027, t01=0x0128}
0x3e2c…3e48 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB230 NO ! «, t00=0x0027, t01=0x014a}
0x3e48…3e70 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/00 YES ! LOAD CHARACTER«, t00=0x0027, t01=0x0166}
0x3e70…3e82 Head {h00=0x000e, h01=0x0050, text=» RF MKB300«, t00=0x0027, t01=0x018e}
0x3e82…3e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0010}
0x3e8c…3eb2 Head {h00=0x0022, h01=0x0050, text=»MKB230 CCK A2,/7D00 RELEASED ?«, t00=0x0028, t01=0x001a}
0x3eb2…3edc Head {h00=0x0026, h01=0x0050, text=» RB(E) MKB100 YES ! SKIP CHARACTER«, t00=0x0028, t01=0x0040}
0x3edc…3ee8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006a}
0x3ee8…3f00 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0028, t01=0x0076}
0x3f00…3f22 Head {h00=0x001e, h01=0x0050, text=»MKB250 LDK A1,/2 SHIFT BIT«, t00=0x0028, t01=0x008e}
0x3f22…3f40 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A4 SHIFT ON ? «, t00=0x0028, t01=0x00b0}
0x3f40…3f5c Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x00ce}
0x3f5c…3f7a Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 SHIFT OFF ? «, t00=0x0028, t01=0x00ea}
0x3f7a…3f96 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0028, t01=0x0108}
0x3f96…3fb4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/4 CONTROL BIT«, t00=0x0028, t01=0x0124}
0x3fb4…3fd2 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 CONTROL ON ?«, t00=0x0028, t01=0x0142}
0x3fd2…3fee Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x0160}
0x3fee…400e Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 CONTROL OFF ? «, t00=0x0028, t01=0x017c}
0x400e…402a Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0029, t01=0x000c}
0x402a…404c Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NUMERIC SHIFT ? «, t00=0x0029, t01=0x0028}
0x404c…4064 Head {h00=0x0014, h01=0x0050, text=» RB MKB250 YES !«, t00=0x0029, t01=0x004a}
0x4064…406e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x406e…4098 Head {h00=0x0026, h01=0x0050, text=»MKB260 ORS A1,DWTDEV+DWTCS,A6 SET «, t00=0x0029, t01=0x006c}
0x4098…40aa Head {h00=0x000e, h01=0x0050, text=» RF MKB280«, t00=0x0029, t01=0x0096}
0x40aa…40ce Head {h00=0x0020, h01=0x0050, text=»MKB270 C1R A1,A1 COMPLEMENT «, t00=0x0029, t01=0x00a8}
0x40ce…40f4 Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTDEV+DWTCS,A6 CLEAR «, t00=0x0029, t01=0x00cc}
0x40f4…40fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f2}
0x40fe…4126 Head {h00=0x0024, h01=0x0050, text=»MKB280 ABL MKB100 NEXT CHARACTER«, t00=0x0029, t01=0x00fc}
0x4126…4132 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0124}
0x4132…414a Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0029, t01=0x0130}
0x414a…4158 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0148}
0x4158…4162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0156}
0x4162…4194 Head {h00=0x002e, h01=0x0050, text=»* SPECIAL CONVERSION OF CHARACTERS FROM «, t00=0x0029, t01=0x0160}
0x4194…41b6 (42, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* NUMERIC PART OF 6234. «, t00=0x002a, t01=0x0004}
0x41b6…41c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0026}
0x41c0…41d4 Head {h00=0x0010, h01=0x0050, text=»MKB290 EQU *«, t00=0x002a, t01=0x0030}
0x41d4…41fc Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 IF THE DWT-ADDRESS IS«, t00=0x002a, t01=0x0044}
0x41fc…422c Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 ODD, SHOULD SPECIAL CONVERSION«, t00=0x002a, t01=0x006c}
0x422c…424a Head {h00=0x001a, h01=0x0050, text=» RF(NZ) MKB295 BE USED«, t00=0x002a, t01=0x009c}
0x424a…4276 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 IF BIT 8 IN CHARACTER IS «, t00=0x002a, t01=0x00ba}
0x4276…42aa Head {h00=0x0030, h01=0x0050, text=» ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED«, t00=0x002a, t01=0x00e6}
0x42aa…42d6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) MKB310 NO SPECIAL CONVERSION «, t00=0x002a, t01=0x011a}
0x42d6…42fa Head {h00=0x0020, h01=0x0050, text=» ANK A2,/7F MASK AWAY BIT 8 «, t00=0x002a, t01=0x0146}
0x42fa…4304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4304…432e Head {h00=0x0026, h01=0x0050, text=»* INDICATE SPECIAL CONVERSION ! «, t00=0x002a, t01=0x0174}
0x432e…4338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000e}
0x4338…436e Head {h00=0x0032, h01=0x0050, text=»MKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN«, t00=0x002b, t01=0x0018}
0x436e…4392 Head {h00=0x0020, h01=0x0050, text=» LDK A4,/8 LOAD SPECIAL BIT «, t00=0x002b, t01=0x004e}
0x4392…43b0 Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTDEV+DWTCS,A6«, t00=0x002b, t01=0x0072}
0x43b0…43c2 Head {h00=0x000e, h01=0x0050, text=» RF MKB310«, t00=0x002b, t01=0x0090}
0x43c2…43ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00a2}
0x43ce…43dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00ae}
0x43dc…43e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00bc}
0x43e6…4404 Head {h00=0x001a, h01=0x0050, text=»* NORMAL CONVERSION «, t00=0x002b, t01=0x00c6}
0x4404…440e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e4}
0x440e…4422 Head {h00=0x0010, h01=0x0050, text=»MKB300 EQU *«, t00=0x002b, t01=0x00ee}
0x4422…442c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x442c…4442 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x002b, t01=0x010c}
0x4442…4470 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x002b, t01=0x0122}
0x4470…44a2 Head {h00=0x002e, h01=0x0050, text=» ABL(Z) MKB100 YES ! READ A NEW CHARACTER «, t00=0x002b, t01=0x0150}
0x44a2…44ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0182}
0x44ae…44b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018e}
0x44b8…44cc Head {h00=0x0010, h01=0x0050, text=»MKB310 EQU *«, t00=0x002c, t01=0x0008}
0x44cc…44fc Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS«, t00=0x002c, t01=0x001c}
0x44fc…4520 Head {h00=0x0020, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION «, t00=0x002c, t01=0x004c}
0x4520…455c Head {h00=0x0038, h01=0x0050, text=» AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE «, t00=0x002c, t01=0x0070}
0x455c…4570 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x002c, t01=0x00ac}
0x4570…459a Head {h00=0x0026, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION TABLE «, t00=0x002c, t01=0x00c0}
0x459a…45ac Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x00ea}
0x45ac…45c8 Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x002c, t01=0x00fc}
0x45c8…45da Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x002c, t01=0x0118}
0x45da…4602 Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 COLUMN TABLE ADDRESS«, t00=0x002c, t01=0x012a}
0x4602…4622 Head {h00=0x001c, h01=0x0050, text=» RF(E) MKB320 NO COLUMN «, t00=0x002c, t01=0x0152}
0x4622…4634 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x0172}
0x4634…4646 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002c, t01=0x0184}
0x4646…4666 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A4 ADD ROW INDEX«, t00=0x002d, t01=0x0008}
0x4666…4688 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A1 LOAD CHARACTER «, t00=0x002d, t01=0x0028}
0x4688…4692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004a}
0x4692…46a6 Head {h00=0x0010, h01=0x0050, text=»MKB320 EQU *«, t00=0x002d, t01=0x0054}
0x46a6…46be Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x002d, t01=0x0068}
0x46be…46e2 Head {h00=0x0020, h01=0x0050, text=» LDK A4,/7 RESET SPECIAL BIT«, t00=0x002d, t01=0x0080}
0x46e2…4702 Head {h00=0x001c, h01=0x0050, text=» ANS A4,DWTDEV+DWTCS,A6 «, t00=0x002d, t01=0x00a4}
0x4702…470e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00c4}
0x470e…471c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00d0}
0x471c…4726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00de}
0x4726…4756 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF BASIC READ OR ORDER 2 OR 3 «, t00=0x002d, t01=0x00e8}
0x4756…4760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0118}
0x4760…4782 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x002d, t01=0x0122}
0x4782…4794 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002d, t01=0x0144}
0x4794…47ba Head {h00=0x0022, h01=0x0050, text=» RF(NN) MKB330 ORDER 2 OR 3 ! «, t00=0x002d, t01=0x0156}
0x47ba…47c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47c4…47e4 Head {h00=0x001c, h01=0x0050, text=»* ORDER 1, BASIC READ «, t00=0x002d, t01=0x0186}
0x47e4…47ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0016}
0x47ee…481e Head {h00=0x002c, h01=0x0050, text=» CF A5,STOECH STORE CHAR. IN ECB-BUFFER «, t00=0x002e, t01=0x0020}
0x481e…486a Head {h00=0x0048, h01=0x0050, text=»* AND SEND IT TO ECHO-DEVICE «, t00=0x002e, t01=0x0050}
0x486a…48aa Head {h00=0x003c, h01=0x0050, text=»* IF ECHO WANTED «, t00=0x002e, t01=0x009c}
0x48aa…48b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00dc}
0x48b4…48c8 Head {h00=0x0010, h01=0x0050, text=»MKB325 EQU *«, t00=0x002e, t01=0x00e6}
0x48c8…48fc Head {h00=0x0030, h01=0x0050, text=» CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? «, t00=0x002e, t01=0x00fa}
0x48fc…492e Head {h00=0x002e, h01=0x0050, text=» ABL(NE) MKB100 NO ! READ A NEW CHARACTER «, t00=0x002e, t01=0x012e}
0x492e…4938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0160}
0x4938…4964 Head {h00=0x0028, h01=0x0050, text=» RF MKB335 YES ! SET RETURN CODE = 0«, t00=0x002e, t01=0x016a}
0x4964…4972 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0008}
0x4972…497c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0016}
0x497c…49ae Head {h00=0x002e, h01=0x0050, text=»* ORDER 2 OR 3, STANDARD OR NUMERIC READ«, t00=0x002f, t01=0x0020}
0x49ae…49b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49b8…49cc Head {h00=0x0010, h01=0x0050, text=»MKB330 EQU *«, t00=0x002f, t01=0x005c}
0x49cc…49d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0070}
0x49d6…4a06 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF IT IS AN END-OF-RECORD-KEY «, t00=0x002f, t01=0x007a}
0x4a06…4a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00aa}
0x4a10…4a3a Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBCW,A8 KEY-TABLE ADDRESS «, t00=0x002f, t01=0x00b4}
0x4a3a…4a5e Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB360 NO KEYTABLE ! «, t00=0x002f, t01=0x00de}
0x4a5e…4a84 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x002f, t01=0x0102}
0x4a84…4a98 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x002f, t01=0x0128}
0x4a98…4acc Head {h00=0x0030, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE«, t00=0x002f, t01=0x013c}
0x4acc…4ade Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002f, t01=0x0170}
0x4ade…4af6 Head {h00=0x0014, h01=0x0050, text=»MKB340 SUK A4,1 «, t00=0x002f, t01=0x0182}
0x4af6…4b26 Head {h00=0x002c, h01=0x0050, text=» RF(N) MKB360 KEY NOT FOUND IN KEYTABLE «, t00=0x0030, t01=0x000a}
0x4b26…4b40 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0030, t01=0x003a}
0x4b40…4b62 Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER ?«, t00=0x0030, t01=0x0054}
0x4b62…4b96 Head {h00=0x0030, h01=0x0050, text=» RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE«, t00=0x0030, t01=0x0076}
0x4b96…4ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00aa}
0x4ba0…4bcc Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 YES ! MAKE KEYTABLE INDEX «, t00=0x0030, t01=0x00b4}
0x4bcc…4be0 Head {h00=0x0010, h01=0x0050, text=»MKB350 EQU *«, t00=0x0030, t01=0x00e0}
0x4be0…4c14 Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD «, t00=0x0030, t01=0x00f4}
0x4c14…4c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0128}
0x4c1e…4c52 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0030, t01=0x0132}
0x4c52…4c66 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0030, t01=0x0166}
0x4c66…4c90 Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR CHARACTER«, t00=0x0030, t01=0x017a}
0x4c90…4cb4 Head {h00=0x0020, h01=0x0050, text=» CF A5,EORECH ECHO CHARACTER«, t00=0x0031, t01=0x0014}
0x4cb4…4cc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0038}
0x4cc0…4cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0044}
0x4cca…4cde Head {h00=0x0010, h01=0x0050, text=»MKB335 EQU *«, t00=0x0031, t01=0x004e}
0x4cde…4d04 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SET RETURN CODE = 0 «, t00=0x0031, t01=0x0062}
0x4d04…4d2c Head {h00=0x0024, h01=0x0050, text=» RF MKBEND AND COMPLETE REQUEST «, t00=0x0031, t01=0x0088}
0x4d2c…4d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d36…4d44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00ba}
0x4d44…4d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c8}
0x4d4e…4d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d2}
0x4d58…4d74 Head {h00=0x0018, h01=0x0050, text=»* CHARACTER CHECK «, t00=0x0031, t01=0x00dc}
0x4d74…4d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f8}
0x4d7e…4d92 Head {h00=0x0010, h01=0x0050, text=»MKB360 EQU *«, t00=0x0031, t01=0x0102}
0x4d92…4dbe Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 SAVE CHARACTER ON STACK «, t00=0x0031, t01=0x0116}
0x4dbe…4dd6 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTDEV,A6«, t00=0x0031, t01=0x0142}
0x4dd6…4df8 Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 STANDARD READ ? «, t00=0x0031, t01=0x015a}
0x4df8…4e14 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB380 NO ! «, t00=0x0031, t01=0x017c}
0x4e14…4e34 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x0008}
0x4e34…4e50 Head {h00=0x0018, h01=0x0050, text=» SLC A1,2 /20-/7F ? «, t00=0x0032, t01=0x0028}
0x4e50…4e70 Head {h00=0x001c, h01=0x0050, text=» RF(NN) MKB370 YES ! =4 «, t00=0x0032, t01=0x0044}
0x4e70…4e94 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/5F NO ! UPPER LIMIT«, t00=0x0032, t01=0x0064}
0x4e94…4ea6 Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0032, t01=0x0088}
0x4ea6…4eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4eb0…4ed6 Head {h00=0x0022, h01=0x0050, text=»MKB370 LDK A1,/7F UPPER LIMIT «, t00=0x0032, t01=0x00a4}
0x4ed6…4ee8 Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0032, t01=0x00ca}
0x4ee8…4ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00dc}
0x4ef2…4f1e Head {h00=0x0028, h01=0x0050, text=»MKB380 SLC A1,1 /30-/39 & /70-/79 ? «, t00=0x0032, t01=0x00e6}
0x4f1e…4f3c Head {h00=0x001a, h01=0x0050, text=» RF(N) MKB390 NO ! =4 «, t00=0x0032, t01=0x0112}
0x4f3c…4f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0130}
0x4f46…4f66 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x013a}
0x4f66…4f8c Head {h00=0x0022, h01=0x0050, text=»MKB390 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x015a}
0x4f8c…4fac Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x0180}
0x4fac…4fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0010}
0x4fb6…4fce Head {h00=0x0014, h01=0x0050, text=»MKB400 SUR A1,A2«, t00=0x0033, t01=0x001a}
0x4fce…4ff6 Head {h00=0x0024, h01=0x0050, text=» RF(N) MKB420 NOT WITHIN LIMITS «, t00=0x0033, t01=0x0032}
0x4ff6…5008 Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0033, t01=0x005a}
0x5008…5030 Head {h00=0x0024, h01=0x0050, text=» RF(P) MKB420 NOT WITHIN LIMITS «, t00=0x0033, t01=0x006c}
0x5030…5050 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 DUMMY LOAD «, t00=0x0033, t01=0x0094}
0x5050…505e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00b4}
0x505e…5068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c2}
0x5068…5090 Head {h00=0x0024, h01=0x0050, text=»* IT IS A "NORMAL" CHARACTER !«, t00=0x0033, t01=0x00cc}
0x5090…509a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x509a…50ae Head {h00=0x0010, h01=0x0050, text=»MKB405 EQU *«, t00=0x0033, t01=0x00fe}
0x50ae…50dc Head {h00=0x002a, h01=0x0050, text=» CF A5,STOECH STORE AND ECHO CHARACTER«, t00=0x0033, t01=0x0112}
0x50dc…50e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0140}
0x50e6…5110 Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 LENGTH OVERFLOW ? «, t00=0x0033, t01=0x014a}
0x5110…5140 Head {h00=0x002c, h01=0x0050, text=» ABL(L) MKB100 NO ! TAKE NEXT CHARACTER «, t00=0x0033, t01=0x0174}
0x5140…514a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0014}
0x514a…5176 Head {h00=0x0028, h01=0x0050, text=»MKB410 LDK A1,8 YES ! SET ERROR CODE«, t00=0x0034, t01=0x001e}
0x5176…5188 Head {h00=0x000e, h01=0x0050, text=» RF MKBEND«, t00=0x0034, t01=0x004a}
0x5188…5192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005c}
0x5192…51ce Head {h00=0x0038, h01=0x0050, text=»* CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, «, t00=0x0034, t01=0x0066}
0x51ce…5202 Head {h00=0x0030, h01=0x0050, text=»* STANDARD EOR, SKIP OR UNKNOWN CHARACTER «, t00=0x0034, t01=0x00a2}
0x5202…520c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d6}
0x520c…5238 Head {h00=0x0028, h01=0x0050, text=»MKB420 LDR* A2,A15 RELOAD CHARACTER «, t00=0x0034, t01=0x00e0}
0x5238…524a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0034, t01=0x010c}
0x524a…525e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0034, t01=0x011e}
0x525e…5276 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBCW,A8 «, t00=0x0034, t01=0x0132}
0x5276…52a4 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) MKB440 STANDARD EOR NOT USED !«, t00=0x0034, t01=0x014a}
0x52a4…52de Head {h00=0x0036, h01=0x0050, text=» LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR «, t00=0x0034, t01=0x0178}
0x52de…5302 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/0D00 STANDARD EOR ?«, t00=0x0035, t01=0x0022}
0x5302…531e Head {h00=0x0018, h01=0x0050, text=» RB(E) MKB350 YES ! «, t00=0x0035, t01=0x0046}
0x531e…5332 Head {h00=0x0010, h01=0x0050, text=»MKB440 EQU *«, t00=0x0035, t01=0x0062}
0x5332…535a Head {h00=0x0024, h01=0x0050, text=» SUK A1,/1B TRIPLE ZERO ? (/1B) «, t00=0x0035, t01=0x0076}
0x535a…5374 Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ30 YES !«, t00=0x0035, t01=0x009e}
0x5374…537e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b8}
0x537e…53a4 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/13 BACKSPACE ? (/08) «, t00=0x0035, t01=0x00c2}
0x53a4…53c0 Head {h00=0x0018, h01=0x0050, text=» ABL(E) BACKSP YES !«, t00=0x0035, t01=0x00e8}
0x53c0…53ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0104}
0x53ca…53ec Head {h00=0x001e, h01=0x0050, text=» SUK A1,/10 CLEAR ? (/18) «, t00=0x0035, t01=0x010e}
0x53ec…5408 Head {h00=0x0018, h01=0x0050, text=» ABL(E) CLEAR YES ! «, t00=0x0035, t01=0x0130}
0x5408…5412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014c}
0x5412…5438 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/2 DOUBLE ZERO ? (/1A)«, t00=0x0035, t01=0x0156}
0x5438…5452 Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ20 YES !«, t00=0x0035, t01=0x017c}
0x5452…545c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0008}
0x545c…5484 Head {h00=0x0024, h01=0x0050, text=» SUK A1,/E5 SKIP CHARACTER (/FF)«, t00=0x0036, t01=0x0012}
0x5484…54a0 Head {h00=0x0018, h01=0x0050, text=» ABL(E) MKB100 YES !«, t00=0x0036, t01=0x003a}
0x54a0…54ba Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0036, t01=0x0056}
0x54ba…54e2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 CHECK IF CHARACTER IS«, t00=0x0036, t01=0x0070}
0x54e2…550c Head {h00=0x0026, h01=0x0050, text=» SUK A1,/B0 WITHIN LIMITS FOR THE «, t00=0x0036, t01=0x0098}
0x550c…5536 Head {h00=0x0026, h01=0x0050, text=» RF(N) MKB460 GREEK CHARACTER SET «, t00=0x0036, t01=0x00c2}
0x5536…5548 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/9«, t00=0x0036, t01=0x00ec}
0x5548…556c Head {h00=0x0020, h01=0x0050, text=» RB(NP) MKB405 YES IT IS OK «, t00=0x0036, t01=0x00fe}
0x556c…5580 Head {h00=0x0010, h01=0x0050, text=»MKB460 EQU *«, t00=0x0036, t01=0x0122}
0x5580…558c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0136}
0x558c…5596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0142}
0x5596…55c6 Head {h00=0x002c, h01=0x0050, text=»* SET ERROR CODE FOR UNKNOWN CHARACTER«, t00=0x0036, t01=0x014c}
0x55c6…55d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017c}
0x55d0…5604 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0036, t01=0x0186}
0x5604…5616 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0037, t01=0x002a}
0x5616…5620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003c}
0x5620…562e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0046}
0x562e…565e Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0037, t01=0x0054}
0x565e…5668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x5668…5672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008e}
0x5672…5688 Head {h00=0x0012, h01=0x0050, text=»* COMMON END«, t00=0x0037, t01=0x0098}
0x5688…5692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ae}
0x5692…569c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b8}
0x569c…56ca Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0037, t01=0x00c2}
0x56ca…56de Head {h00=0x0010, h01=0x0050, text=»MKBEND EQU *«, t00=0x0037, t01=0x00f0}
0x56de…56e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56e8…56fe Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0037, t01=0x010e}
0x56fe…571c Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0037, t01=0x0124}
0x571c…573e Head {h00=0x001e, h01=0x0050, text=» RF(E) MKBE10 NO TIMING ! «, t00=0x0037, t01=0x0142}
0x573e…5768 Head {h00=0x0026, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6 SCRATCH TIMER«, t00=0x0037, t01=0x0164}
0x5768…5784 Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0037, t01=0x018e}
0x5784…5790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x001a}
0x5790…579a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0026}
0x579a…57ae Head {h00=0x0010, h01=0x0050, text=»MKBE10 EQU *«, t00=0x0038, t01=0x0030}
0x57ae…57dc Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0038, t01=0x0044}
0x57dc…57e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0072}
0x57e6…57fa Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0038, t01=0x007c}
0x57fa…5814 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0038, t01=0x0090}
0x5814…5838 Head {h00=0x0020, h01=0x0050, text=» CF A5,ECHEND END OF ECHOING«, t00=0x0038, t01=0x00aa}
0x5838…584a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x00ce}
0x584a…5856 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00e0}
0x5856…5860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ec}
0x5860…5890 Head {h00=0x002c, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND DIPATCH «, t00=0x0038, t01=0x00f6}
0x5890…589e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0126}
0x589e…58cc Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0038, t01=0x0134}
0x58cc…58d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0162}
0x58d6…58e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016c}
0x58e0…58fe Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0038, t01=0x0176}
0x58fe…5908 (57, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0004}
0x5908…5912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000e}
0x5912…5940 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0039, t01=0x0018}
0x5940…5952 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0039, t01=0x0046}
0x5952…597c Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0039, t01=0x0058}
0x597c…5992 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0039, t01=0x0082}
0x5992…59be Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0039, t01=0x0098}
0x59be…59ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00c4}
0x59ca…59d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d0}
0x59d4…5a0c Head {h00=0x0034, h01=0x0050, text=»* STORE INCOMING CHARACTER IN CIRCULAR BUFFER «, t00=0x0039, t01=0x00da}
0x5a0c…5a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a16…5a2e Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0039, t01=0x011c}
0x5a2e…5a56 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 SPECIAL CONVERSION ? «, t00=0x0039, t01=0x0134}
0x5a56…5a68 Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0039, t01=0x015c}
0x5a68…5a82 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHKB02 NO !«, t00=0x0039, t01=0x016e}
0x5a82…5ab4 Head {h00=0x002e, h01=0x0050, text=» ORK A2,/80 YES INDICATE BY SETTING BIT 8 «, t00=0x0039, t01=0x0188}
0x5ab4…5ade Head {h00=0x0026, h01=0x0050, text=» SUK A6,1 MAKE DWT-ADDRESS EVEN =3«, t00=0x003a, t01=0x002a}
0x5ade…5aea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0054}
0x5aea…5b10 Head {h00=0x0022, h01=0x0050, text=»IHKB02 LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003a, t01=0x0060}
0x5b10…5b22 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x003a, t01=0x0086}
0x5b22…5b48 Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x003a, t01=0x0098}
0x5b48…5b64 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB05 YES ! «, t00=0x003a, t01=0x00be}
0x5b64…5b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00da}
0x5b6e…5b80 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003a, t01=0x00e4}
0x5b80…5bb8 Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x003a, t01=0x00f6}
0x5bb8…5bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x012e}
0x5bc2…5bec Head {h00=0x0026, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ?«, t00=0x003a, t01=0x0138}
0x5bec…5c08 Head {h00=0x0018, h01=0x0050, text=» RF(NE) IHKB20 NO ! «, t00=0x003a, t01=0x0162}
0x5c08…5c30 Head {h00=0x0024, h01=0x0050, text=» LDK A1,/FF OVERFLOW INDICATION «, t00=0x003a, t01=0x017e}
0x5c30…5c5c Head {h00=0x0028, h01=0x0050, text=» SCR A1,A4 SET OVFL. IND. IN BUFFER «, t00=0x003b, t01=0x0016}
0x5c5c…5c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0042}
0x5c66…5c7a Head {h00=0x0010, h01=0x0050, text=»IHKB05 EQU *«, t00=0x003b, t01=0x004c}
0x5c7a…5c98 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x003b, t01=0x0060}
0x5c98…5cc0 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV,A6 6236, 71, 72 ? «, t00=0x003b, t01=0x007e}
0x5cc0…5cd6 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x003b, t01=0x00a6}
0x5cd6…5cee Head {h00=0x0014, h01=0x0050, text=» RF(Z) EXIT NO !«, t00=0x003b, t01=0x00bc}
0x5cee…5cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d4}
0x5cf8…5d04 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00de}
0x5d04…5d1c Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x003b, t01=0x00ea}
0x5d1c…5d46 Head {h00=0x0026, h01=0x0050, text=» SUK A2,/70 KEYLOCK, SHIFT, CTRL ?«, t00=0x003b, t01=0x0102}
0x5d46…5d5e Head {h00=0x0014, h01=0x0050, text=» RF(N) EXIT NO !«, t00=0x003b, t01=0x012c}
0x5d5e…5d78 Head {h00=0x0016, h01=0x0050, text=» ADK A2,/70 YES ! «, t00=0x003b, t01=0x0144}
0x5d78…5d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015e}
0x5d82…5d94 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003b, t01=0x0168}
0x5d94…5dae Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTDEV+1,A6«, t00=0x003b, t01=0x017a}
0x5dae…5dce (60, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003c, t01=0x0004}
0x5dce…5de0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003c, t01=0x0024}
0x5de0…5df6 Head {h00=0x0012, h01=0x0050, text=» CF A15,EOQUEU«, t00=0x003c, t01=0x0036}
0x5df6…5e26 Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? «, t00=0x003c, t01=0x004c}
0x5e26…5e42 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB07 YES ! «, t00=0x003c, t01=0x007c}
0x5e42…5e68 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A4 STORE NEW CHARACTER«, t00=0x003c, t01=0x0098}
0x5e68…5e94 Head {h00=0x0028, h01=0x0050, text=» LDK A2,/FF MOVE OVERFLOW INDICATION«, t00=0x003c, t01=0x00be}
0x5e94…5eb8 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 FORWARD IN BUFFER«, t00=0x003c, t01=0x00ea}
0x5eb8…5eca Head {h00=0x000e, h01=0x0050, text=» RF IHKB20«, t00=0x003c, t01=0x010e}
0x5eca…5ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0120}
0x5ed4…5eec Head {h00=0x0014, h01=0x0050, text=»* CHECK BUFFER«, t00=0x003c, t01=0x012a}
0x5eec…5ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0142}
0x5ef6…5f38 Head {h00=0x003e, h01=0x0050, text=»IHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. «, t00=0x003c, t01=0x014c}
0x5f38…5f4c Head {h00=0x0010, h01=0x0050, text=»IHKB10 EQU *«, t00=0x003c, t01=0x018e}
0x5f4c…5f7a Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ?«, t00=0x003d, t01=0x0012}
0x5f7a…5f96 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB19 YES ! «, t00=0x003d, t01=0x0040}
0x5f96…5fc2 Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x003d, t01=0x005c}
0x5fc2…5fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0088}
0x5fcc…5fec Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003d, t01=0x0092}
0x5fec…6000 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x003d, t01=0x00b2}
0x6000…6014 Head {h00=0x0010, h01=0x0050, text=» XRR A4,A2 «, t00=0x003d, t01=0x00c6}
0x6014…603a Head {h00=0x0022, h01=0x0050, text=» RF(Z) EXIT EQUAL CHARACTER ! «, t00=0x003d, t01=0x00da}
0x603a…605c Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 INVERTED CHAR. ?«, t00=0x003d, t01=0x0100}
0x605c…6078 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHKB17 NO ! «, t00=0x003d, t01=0x0122}
0x6078…60ae Head {h00=0x0032, h01=0x0050, text=» LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF «, t00=0x003d, t01=0x013e}
0x60ae…60c0 Head {h00=0x000e, h01=0x0050, text=» RF IHKB18«, t00=0x003d, t01=0x0174}
0x60c0…60ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0186}
0x60ca…60de Head {h00=0x0010, h01=0x0050, text=»IHKB17 EQU *«, t00=0x003d, t01=0x0190}
0x60de…6108 Head {h00=0x0026, h01=0x0050, text=» SUK A4,/F CTRL, SHIFT, KEYLOCK ? «, t00=0x003e, t01=0x0014}
0x6108…6124 Head {h00=0x0018, h01=0x0050, text=» RB(N) IHKB10 YES ! «, t00=0x003e, t01=0x003e}
0x6124…612e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x005a}
0x612e…6160 Head {h00=0x002e, h01=0x0050, text=»IHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER«, t00=0x003e, t01=0x0064}
0x6160…6170 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x003e, t01=0x0096}
0x6170…617a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a6}
0x617a…61a6 Head {h00=0x0028, h01=0x0050, text=»* CHECK BUFFER AGAIN AND SORT OUT «, t00=0x003e, t01=0x00b0}
0x61a6…61cc Head {h00=0x0022, h01=0x0050, text=»* EQUAL AND INV. CHARACTERS «, t00=0x003e, t01=0x00dc}
0x61cc…61d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0102}
0x61d6…6214 Head {h00=0x003a, h01=0x0050, text=»IHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR «, t00=0x003e, t01=0x010c}
0x6214…6228 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x014a}
0x6228…6248 Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003e, t01=0x015e}
0x6248…6264 Head {h00=0x0018, h01=0x0050, text=»IHKB21 CF A15,SOQUEU«, t00=0x003e, t01=0x017e}
0x6264…6276 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003f, t01=0x000a}
0x6276…628c Head {h00=0x0012, h01=0x0050, text=» RB(NN) IHKB21«, t00=0x003f, t01=0x001c}
0x628c…62a2 Head {h00=0x0012, h01=0x0050, text=» IM DWTDEV,A6 «, t00=0x003f, t01=0x0032}
0x62a2…62ce Head {h00=0x0028, h01=0x0050, text=» LCR A4,A1 GET OLD CHAR FROM BUFFER «, t00=0x003f, t01=0x0048}
0x62ce…62f4 Head {h00=0x0022, h01=0x0050, text=» CCK A4,/FF00 END OF BUFFER ? «, t00=0x003f, t01=0x0074}
0x62f4…630e Head {h00=0x0016, h01=0x0050, text=» RF(E) EXIT YES ! «, t00=0x003f, t01=0x009a}
0x630e…6332 Head {h00=0x0020, h01=0x0050, text=» SCR A2,A1 STORE THE NEW ONE«, t00=0x003f, t01=0x00b4}
0x6332…6354 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 PUT CHAR IN A2 «, t00=0x003f, t01=0x00d8}
0x6354…6368 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x00fa}
0x6368…637a Head {h00=0x000e, h01=0x0050, text=» RB IHKB07«, t00=0x003f, t01=0x010e}
0x637a…6386 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0120}
0x6386…6390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012c}
0x6390…63cc Head {h00=0x0038, h01=0x0050, text=»IHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER «, t00=0x003f, t01=0x0136}
0x63cc…6404 Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER«, t00=0x003f, t01=0x0172}
0x6404…640e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001a}
0x640e…6430 Head {h00=0x001e, h01=0x0050, text=»EXIT ABL LDISP DISPATCH ! «, t00=0x0040, t01=0x0024}
0x6430…643e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0046}
0x643e…6448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0054}
0x6448…6472 Head {h00=0x0026, h01=0x0050, text=»* STORING (&ECHOING) SUBROUTINE «, t00=0x0040, t01=0x005e}
0x6472…64a4 Head {h00=0x002e, h01=0x0050, text=»* SKIPS OTHER CHARACTERS THAN DIGITS IF «, t00=0x0040, t01=0x0088}
0x64a4…64bc Head {h00=0x0014, h01=0x0050, text=»* NUMERIC READ«, t00=0x0040, t01=0x00ba}
0x64bc…64c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x64c6…64da Head {h00=0x0010, h01=0x0050, text=»STOECH EQU *«, t00=0x0040, t01=0x00dc}
0x64da…650a Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHAR. IN ECB-BUFFER «, t00=0x0040, t01=0x00f0}
0x650a…6514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0120}
0x6514…6528 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x012a}
0x6528…6542 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0040, t01=0x013e}
0x6542…6560 Head {h00=0x001a, h01=0x0050, text=» RF EORECH DO NOT MASK«, t00=0x0040, t01=0x0158}
0x6560…656c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0176}
0x656c…6580 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x0182}
0x6580…65b0 Head {h00=0x002c, h01=0x0050, text=»ECHSUB ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0041, t01=0x0008}
0x65b0…65c4 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU *«, t00=0x0041, t01=0x0038}
0x65c4…65da Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x0041, t01=0x004c}
0x65da…6618 Head {h00=0x003a, h01=0x0050, text=» LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT «, t00=0x0041, t01=0x0062}
0x6618…662e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0800«, t00=0x0041, t01=0x00a0}
0x662e…665c Head {h00=0x002a, h01=0x0050, text=» XRS A1,DWTDEV,A6 RESET INDICATION BIT«, t00=0x0041, t01=0x00b6}
0x665c…666e Head {h00=0x000e, h01=0x0050, text=» SLC A1,5 «, t00=0x0041, t01=0x00e4}
0x666e…667a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00f6}
0x667a…668e Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0041, t01=0x0102}
0x668e…66b0 Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x0041, t01=0x0116}
0x66b0…66bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0138}
0x66bc…66c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0144}
0x66c6…66d6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0041, t01=0x014e}
0x66d6…66e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x015e}
0x66e0…66ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0168}
0x66ee…6704 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0041, t01=0x0176}
0x6704…670e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018c}
0x670e…6736 Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE TIMEOUT ROUTINE «, t00=0x0042, t01=0x0008}
0x6736…6740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0030}
0x6740…6754 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x0042, t01=0x003a}
0x6754…6778 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 LOAD DWT-ADDRESS «, t00=0x0042, t01=0x004e}
0x6778…6794 Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0042, t01=0x0072}
0x6794…67ac Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0042, t01=0x008e}
0x67ac…67dc Head {h00=0x002c, h01=0x0050, text=» ABL(N) LDISP DISPATCH IF NO REQUEST ON «, t00=0x0042, t01=0x00a6}
0x67dc…67e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d6}
0x67e6…6816 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0042, t01=0x00e0}
0x6816…6844 Head {h00=0x002a, h01=0x0050, text=» LDR A5,A6 INITIATE DWT-STACK POINTER «, t00=0x0042, t01=0x0110}
0x6844…685c Head {h00=0x0014, h01=0x0050, text=» ADKL A5,DWTSB2 «, t00=0x0042, t01=0x013e}
0x685c…6894 Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT«, t00=0x0042, t01=0x0156}
0x6894…68c0 Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 RELOAD ECB-ADDRESS «, t00=0x0042, t01=0x018e}
0x68c0…68e4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x0043, t01=0x002a}
0x68e4…6908 Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x0043, t01=0x004e}
0x6908…6912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0072}
0x6912…6934 Head {h00=0x001e, h01=0x0050, text=»* RESTART TIMEOUT TIMER «, t00=0x0043, t01=0x007c}
0x6934…693e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009e}
0x693e…6952 Head {h00=0x0010, h01=0x0050, text=»RESTRT EQU *«, t00=0x0043, t01=0x00a8}
0x6952…6970 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0043, t01=0x00bc}
0x6970…6990 Head {h00=0x001c, h01=0x0050, text=» RF(E) NOTIME NO TIMING «, t00=0x0043, t01=0x00da}
0x6990…69b4 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,-TIME RESTART TIMER«, t00=0x0043, t01=0x00fa}
0x69b4…69d4 Head {h00=0x001c, h01=0x0050, text=» ST* A4,DWTTP+DWTDEV,A6 «, t00=0x0043, t01=0x011e}
0x69d4…69ea Head {h00=0x0012, h01=0x0050, text=»NOTIME RTN A15«, t00=0x0043, t01=0x013e}
0x69ea…69f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0154}
0x69f6…6a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0160}
0x6a04…6a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x016e}
0x6a0e…6a42 Head {h00=0x0030, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER «, t00=0x0043, t01=0x0178}
0x6a42…6a76 Head {h00=0x0030, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0044, t01=0x001c}
0x6a76…6a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0050}
0x6a80…6ab0 Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A2 = CHARACTER TO STORE«, t00=0x0044, t01=0x005a}
0x6ab0…6ada Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0044, t01=0x008a}
0x6ada…6ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b4}
0x6ae4…6af8 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0044, t01=0x00be}
0x6af8…6b1e Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x0044, t01=0x00d2}
0x6b1e…6b42 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 ADD BUFFER INDEX «, t00=0x0044, t01=0x00f8}
0x6b42…6b6e Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x011c}
0x6b6e…6b96 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0044, t01=0x0148}
0x6b96…6ba6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0044, t01=0x0170}
0x6ba6…6bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0180}
0x6bb0…6bea Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER «, t00=0x0044, t01=0x018a}
0x6bea…6bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0034}
0x6bf4…6c20 Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0045, t01=0x003e}
0x6c20…6c4a Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0045, t01=0x006a}
0x6c4a…6c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0094}
0x6c54…6c68 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0045, t01=0x009e}
0x6c68…6c7a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0045, t01=0x00b2}
0x6c7a…6c8c Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0045, t01=0x00c4}
0x6c8c…6cb8 Head {h00=0x0028, h01=0x0050, text=» CWK A1,DWTDEV+DWTEQ END OF QUEUE ? «, t00=0x0045, t01=0x00d6}
0x6cb8…6cce Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0045, t01=0x0102}
0x6cce…6d04 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS «, t00=0x0045, t01=0x0118}
0x6d04…6d1c Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0045, t01=0x014e}
0x6d1c…6d2c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0045, t01=0x0166}
0x6d2c…6d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0176}
0x6d36…6d74 Head {h00=0x003a, h01=0x0050, text=»* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER«, t00=0x0045, t01=0x0180}
0x6d74…6d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x002e}
0x6d7e…6daa Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0046, t01=0x0038}
0x6daa…6dd4 Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0046, t01=0x0064}
0x6dd4…6dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008e}
0x6dde…6df2 Head {h00=0x0010, h01=0x0050, text=»SOQUEU EQU *«, t00=0x0046, t01=0x0098}
0x6df2…6e04 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0046, t01=0x00ac}
0x6e04…6e36 Head {h00=0x002e, h01=0x0050, text=» CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? «, t00=0x0046, t01=0x00be}
0x6e36…6e50 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SOQ10 NO !«, t00=0x0046, t01=0x00f0}
0x6e50…6e84 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE «, t00=0x0046, t01=0x010a}
0x6e84…6e9c Head {h00=0x0014, h01=0x0050, text=»SOQ10 ADR A1,A6 «, t00=0x0046, t01=0x013e}
0x6e9c…6ec8 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 GET PREVIOUS POINTER POS. «, t00=0x0046, t01=0x0156}
0x6ec8…6ed8 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0046, t01=0x0182}
0x6ed8…6ee6 (71, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0004}
0x6ee6…6ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0012}
0x6ef0…6f06 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE «, t00=0x0047, t01=0x001c}
0x6f06…6f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0032}
0x6f10…6f24 Head {h00=0x0010, h01=0x0050, text=»BACKSP EQU *«, t00=0x0047, t01=0x003c}
0x6f24…6f36 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0047, t01=0x0050}
0x6f36…6f5c Head {h00=0x0022, h01=0x0050, text=» RF(Z) KBBSPA ECB-BUFFER EMPTY«, t00=0x0047, t01=0x0062}
0x6f5c…6f80 Head {h00=0x0020, h01=0x0050, text=» SUK A3,1 ONE STEP BACKWARDS«, t00=0x0047, t01=0x0088}
0x6f80…6f9c Head {h00=0x0018, h01=0x0050, text=» SUR A2,A2 CLEAR A2 «, t00=0x0047, t01=0x00ac}
0x6f9c…6fd4 Head {h00=0x0034, h01=0x0050, text=» CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR«, t00=0x0047, t01=0x00c8}
0x6fd4…6ffa Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 STEP BACKWARDS AGAIN«, t00=0x0047, t01=0x0100}
0x6ffa…7004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0126}
0x7004…7018 Head {h00=0x0010, h01=0x0050, text=»KBBSPA EQU *«, t00=0x0047, t01=0x0130}
0x7018…702c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0047, t01=0x0144}
0x702c…7056 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/8 BACKSPACE TO ECHODEVICE«, t00=0x0047, t01=0x0158}
0x7056…7062 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0182}
0x7062…7076 Head {h00=0x0010, h01=0x0050, text=»KBBSP2 EQU *«, t00=0x0047, t01=0x018e}
0x7076…708a Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0048, t01=0x0012}
0x708a…70b0 Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHSUB ECHSUB CHARACTER«, t00=0x0048, t01=0x0026}
0x70b0…70bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x004c}
0x70bc…70de Head {h00=0x001e, h01=0x0050, text=» ABL MKB100 NEXT CHARACTER«, t00=0x0048, t01=0x0058}
0x70de…70e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x007a}
0x70e8…70fa Head {h00=0x000e, h01=0x0050, text=»* CLEAR «, t00=0x0048, t01=0x0084}
0x70fa…7104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0096}
0x7104…7118 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0048, t01=0x00a0}
0x7118…713a Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 RESET ECB-BUFFER«, t00=0x0048, t01=0x00b4}
0x713a…715c Head {h00=0x001e, h01=0x0050, text=» RB KBBSP2 NEXT CHARACTER «, t00=0x0048, t01=0x00d6}
0x715c…716a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x00f8}
0x716a…7174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0106}
0x7174…718e Head {h00=0x0016, h01=0x0050, text=»* MULTIPLE ZERO «, t00=0x0048, t01=0x0110}
0x718e…7198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x012a}
0x7198…71b6 Head {h00=0x001a, h01=0x0050, text=»MZ20 EQU * DOUBLE ZERO«, t00=0x0048, t01=0x0134}
0x71b6…71c8 Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0048, t01=0x0152}
0x71c8…71d8 Head {h00=0x000c, h01=0x0050, text=» RF MZ50«, t00=0x0048, t01=0x0164}
0x71d8…71e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0174}
0x71e2…7200 Head {h00=0x001a, h01=0x0050, text=»MZ30 EQU * TRIPLE ZERO«, t00=0x0048, t01=0x017e}
0x7200…7212 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0049, t01=0x000c}
0x7212…721c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001e}
0x721c…722e Head {h00=0x000e, h01=0x0050, text=»MZ50 EQU *«, t00=0x0049, t01=0x0028}
0x722e…7252 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES ? «, t00=0x0049, t01=0x003a}
0x7252…727c Head {h00=0x0026, h01=0x0050, text=» ABL(L) MKB100 NO, NEXT CHARACTER «, t00=0x0049, t01=0x005e}
0x727c…7286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0088}
0x7286…7294 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0092}
0x7294…72a0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0049, t01=0x00a0}
0x72a0…72d4 Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER«, t00=0x0049, t01=0x00ac}
0x72d4…7300 Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x0049, t01=0x00e0}
0x7300…730a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010c}
0x730a…733a Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ?«, t00=0x0049, t01=0x0116}
0x733a…7352 Head {h00=0x0014, h01=0x0050, text=» RF(E) MZ90 NO !«, t00=0x0049, t01=0x0146}
0x7352…7364 Head {h00=0x000e, h01=0x0050, text=»MZ75 EQU *«, t00=0x0049, t01=0x015e}
0x7364…739e Head {h00=0x0036, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER«, t00=0x0049, t01=0x0170}
0x739e…73ce Head {h00=0x002c, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRCULAR BUFF.«, t00=0x004a, t01=0x001a}
0x73ce…73e0 Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x004a, t01=0x004a}
0x73e0…73f0 Head {h00=0x000c, h01=0x0050, text=» RB MZ50«, t00=0x004a, t01=0x005c}
0x73f0…73fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x006c}
0x73fa…740c Head {h00=0x000e, h01=0x0050, text=»MZ80 EQU *«, t00=0x004a, t01=0x0076}
0x740c…7438 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OVERFLOW«, t00=0x004a, t01=0x0088}
0x7438…744a Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x004a, t01=0x00b4}
0x744a…747a Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER «, t00=0x004a, t01=0x00c6}
0x747a…74b0 Head {h00=0x0032, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND«, t00=0x004a, t01=0x00f6}
0x74b0…74d0 Head {h00=0x001c, h01=0x0050, text=» ENB THROUGHPUT ERRORS «, t00=0x004a, t01=0x012c}
0x74d0…74da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014c}
0x74da…74ee Head {h00=0x0010, h01=0x0050, text=» ABL MKBEND «, t00=0x004a, t01=0x0156}
0x74ee…74f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x016a}
0x74f8…750a Head {h00=0x000e, h01=0x0050, text=»MZ90 EQU *«, t00=0x004a, t01=0x0174}
0x750a…752a Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 ALL ZEROES ? «, t00=0x004a, t01=0x0186}
0x752a…7542 Head {h00=0x0014, h01=0x0050, text=» RB(E) MZ80 YES «, t00=0x004b, t01=0x0016}
0x7542…756c Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FFFF NO, MOVE IN-POINTER«, t00=0x004b, t01=0x002e}
0x756c…758c Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTDEV+DWTINQ,A6«, t00=0x004b, t01=0x0058}
0x758c…759c Head {h00=0x000c, h01=0x0050, text=» RB MZ75«, t00=0x004b, t01=0x0078}
0x759c…75aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0088}
0x75aa…75b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0096}
0x75b4…75e4 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004b, t01=0x00a0}
0x75e4…75ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d0}
0x75ee…7608 Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x004b, t01=0x00da}
0x7608…7612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f4}
0x7612…7642 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004b, t01=0x00fe}
0x7642…764c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012e}
0x764c…765e Head {h00=0x000e, h01=0x0050, text=»ABKB EQU *«, t00=0x004b, t01=0x0138}
0x765e…7688 Head {h00=0x0026, h01=0x0050, text=» CF A15,ABORT ABORT INPUT REQUEST «, t00=0x004b, t01=0x014a}
0x7688…769e Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x004b, t01=0x0174}
0x769e…76bc Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x004b, t01=0x018a}
0x76bc…76dc Head {h00=0x001c, h01=0x0050, text=» RF(Z) ABKB05 NO TIMER !«, t00=0x004c, t01=0x0018}
0x76dc…76f8 Head {h00=0x0018, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6«, t00=0x004c, t01=0x0038}
0x76f8…7720 Head {h00=0x0024, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x004c, t01=0x0054}
0x7720…7734 Head {h00=0x0010, h01=0x0050, text=»ABKB05 EQU *«, t00=0x004c, t01=0x007c}
0x7734…7740 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x0090}
0x7740…774a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x009c}
0x774a…7772 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x004c, t01=0x00a6}
0x7772…779c Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO END I/O ON KEYBOARD«, t00=0x004c, t01=0x00ce}
0x779c…77ca Head {h00=0x002a, h01=0x0050, text=» SLC A4,2 GET ECHO-MODE INDICATION BIT«, t00=0x004c, t01=0x00f8}
0x77ca…77de Head {h00=0x0010, h01=0x0050, text=»ABKB10 EQU *«, t00=0x004c, t01=0x0126}
0x77de…7808 Head {h00=0x0026, h01=0x0050, text=» ABL(NN) LDISP NOT AN ECHO REQUEST«, t00=0x004c, t01=0x013a}
0x7808…7812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0164}
0x7812…784a Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE «, t00=0x004c, t01=0x016e}
0x784a…7874 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTADR,A4 GET ADDRESS BLOCK«, t00=0x004d, t01=0x0016}
0x7874…78ae Head {h00=0x0036, h01=0x0050, text=» LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE «, t00=0x004d, t01=0x0040}
0x78ae…78e0 Head {h00=0x002e, h01=0x0050, text=» RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT«, t00=0x004d, t01=0x007a}
0x78e0…78ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ac}
0x78ea…7920 Head {h00=0x0032, h01=0x0050, text=» LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE «, t00=0x004d, t01=0x00b6}
0x7920…7952 Head {h00=0x002e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT «, t00=0x004d, t01=0x00ec}
0x7952…7974 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 ADD DWT-ADDRESS«, t00=0x004d, t01=0x011e}
0x7974…797e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0140}
0x797e…79b2 Head {h00=0x0030, h01=0x0050, text=» ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE«, t00=0x004d, t01=0x014a}
0x79b2…79be Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004d, t01=0x017e}
0x79be…79c2 Head {h00=0x4004, h01=0x0000}
0x79c2…79c6 00 4d 01 8a ┆ M ┆
0x79c6…79ce (78, 1, 8) 20 04 00 00 00 4e 00 04 ┆ N ┆
0x79ce…7a1e (79, 0, 400) 5c 44 41 54 41 5c 5a 45 52 4f 3a 33 00 4e 01 90 00 10 00 50 5c 44 41 54 41 5c 4e 55 4d 43 4f 4d 00 4f 00 14 00 0e 00 50 5c 44 41 54 41 5c 43 4f 50 59 00 4f 00 28 00 10 00 50 5c 44 41 54 41 5c 49 44 45 4e 54 20 00 4f 00 3a 00 12 00 50 5c 49 ┆ DATA ZERO:3 N P DATA NUMCOM O P DATA COPY O ( P DATA IDENT O : P I┆
0x7a1e…7a6e 46 54 5c 4b 45 59 4c 53 54 3d 31 20 00 4f 00 4e 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 64 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 76 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 88 00 0e 00 50 5c 44 41 54 41 5c ┆FT KEYLST=1 O N P DATA KEYL O d P DATA KEYL O v P DATA KEYL O P DATA ┆
0x7a6e…7abe 4b 45 59 4c 00 4f 00 9a 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 ac 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 be 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 d0 00 0e 00 50 5c 44 41 54 41 5c 4b 45 59 4c 00 4f 00 e2 ┆KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O P DATA KEYL O ┆
0x7abe…7b0e 00 08 00 50 5c 58 49 46 00 4f 00 f4 00 12 00 50 5c 49 46 46 5c 4b 45 59 4c 53 54 3d 31 20 00 4f 01 00 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 16 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 2a 00 10 00 50 5c 44 ┆ P XIF O P IFF KEYLST=1 O P DATA RETURN O P DATA RETURN O * P D┆
0x7b0e…7b5e 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 3e 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 52 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 66 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 7a 00 10 00 50 5c 44 ┆ATA RETURN O > P DATA RETURN O R P DATA RETURN O f P DATA RETURN O z P D┆
0x7b5e…7bae (80, 0, 400) 41 54 41 5c 52 45 54 55 52 4e 00 4f 01 8e 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 50 00 12 00 08 00 50 5c 58 49 46 00 50 00 26 00 38 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 5c 46 52 45 45 20 4c 41 42 45 4c 20 46 4f 52 20 4e 45 ┆ATA RETURN O P DATA RETURN P P XIF P & 8 P DATA RETURN FREE LABEL FOR NE┆
0x7bae…7bfe 57 20 4b 45 59 20 28 4e 4f 54 20 50 2e 20 41 2e 20 4b 45 59 29 20 00 50 00 32 00 38 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 5c 46 52 45 45 20 4c 41 42 45 4c 20 46 4f 52 20 4e 45 57 20 4b 45 59 20 28 4e 4f 54 20 50 2e 20 41 2e 20 4b 45 59 ┆W KEY (NOT P. A. KEY) P 2 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY┆
0x7bfe…7c4e 29 20 00 50 00 6e 00 38 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 5c 46 52 45 45 20 4c 41 42 45 4c 20 46 4f 52 20 4e 45 57 20 4b 45 59 20 28 4e 4f 54 20 50 2e 20 41 2e 20 4b 45 59 29 20 00 50 00 aa 00 14 00 50 2a 46 49 52 53 54 20 50 2e 20 ┆) P n 8 P DATA RETURN FREE LABEL FOR NEW KEY (NOT P. A. KEY) P P*FIRST P. ┆
0x7c4e…7c9e 41 2e 20 4b 45 59 00 50 00 e6 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 50 00 fe 00 10 00 50 5c 44 41 54 41 5c 4f 46 4c 49 4e 45 00 50 01 12 00 08 00 50 5c 58 49 46 00 50 01 26 00 10 00 50 5c 49 46 46 5c 4f 46 4c 49 4e 3d 31 00 50 ┆A. KEY P P IFT OFLIN=1 P P DATA OFLINE P P XIF P & P IFF OFLIN=1 P┆
0x7c9e…7cee 01 32 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 50 01 46 00 08 00 50 5c 58 49 46 00 50 01 5a 00 08 00 50 2a 41 30 20 00 50 01 66 00 10 00 50 5c 44 41 54 41 5c 45 4e 54 45 52 20 00 50 01 72 00 0e 00 50 5c 49 46 54 5c 53 4e 41 3d 31 ┆ 2 P DATA RETURN P F P XIF P Z P*A0 P f P DATA ENTER P r P IFT SNA=1┆
0x7cee…7d3e (81, 0, 400) 00 50 01 86 00 10 00 50 5c 44 41 54 41 5c 53 59 53 52 45 51 00 51 00 08 00 10 00 50 5c 44 41 54 41 5c 43 4c 45 41 52 20 00 51 00 1c 00 0e 00 50 5c 44 41 54 41 5c 41 54 54 4e 00 51 00 30 00 08 00 50 5c 58 49 46 00 51 00 42 00 0e 00 50 5c 49 ┆ P P DATA SYSREQ Q P DATA CLEAR Q P DATA ATTN Q 0 P XIF Q B P I┆
0x7d3e…7d8e 46 46 5c 53 4e 41 3d 31 00 51 00 4e 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 51 00 60 00 10 00 50 5c 44 41 54 41 5c 43 4c 45 41 52 20 00 51 00 74 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 51 00 88 00 08 00 50 5c 58 49 46 ┆FF SNA=1 Q N P DATA RETURN Q ` P DATA CLEAR Q t P DATA RETURN Q P XIF┆
0x7d8e…7dde 00 51 00 9c 00 12 00 50 5c 49 46 54 5c 4e 42 52 4c 49 4e 3d 32 20 00 51 00 a8 00 10 00 50 5c 44 41 54 41 5c 4d 46 43 48 47 45 00 51 00 be 00 08 00 50 5c 58 49 46 00 51 00 d2 00 12 00 50 5c 49 46 46 5c 4e 42 52 4c 49 4e 3d 32 20 00 51 00 de ┆ Q P IFT NBRLIN=2 Q P DATA MFCHGE Q P XIF Q P IFF NBRLIN=2 Q ┆
0x7dde…7e2e 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 51 00 f4 00 08 00 50 5c 58 49 46 00 51 01 08 00 0e 00 50 5c 49 46 54 5c 50 41 58 3d 31 00 51 01 14 00 0e 00 50 5c 44 41 54 41 5c 50 41 45 58 00 51 01 26 00 08 00 50 5c 58 49 46 00 51 01 38 ┆ P DATA RETURN Q P XIF Q P IFT PAX=1 Q P DATA PAEX Q & P XIF Q 8┆
0x7e2e…7e7e 00 0e 00 50 5c 49 46 46 5c 50 41 58 3d 31 00 51 01 44 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 51 01 56 00 08 00 50 5c 58 49 46 00 51 01 6a 00 0e 00 50 5c 44 41 54 41 5c 50 41 31 20 00 51 01 76 00 0e 00 50 5c 44 41 54 41 5c 50 41 ┆ P IFF PAX=1 Q D P DATA RETURN Q V P XIF Q j P DATA PA1 Q v P DATA PA┆
0x7e7e…7ece (82, 0, 398) 32 20 00 51 01 88 00 0e 00 50 5c 44 41 54 41 5c 50 41 33 20 00 52 00 0a 00 24 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 5c 50 41 34 2d 50 41 31 30 20 28 41 4c 46 41 53 4b 4f 50 29 00 52 00 1c 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 ┆2 Q P DATA PA3 R $ P DATA PAALFA PA4-PA10 (ALFASKOP) R P DATA PAALFA┆
0x7ece…7f1e 00 52 00 44 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 00 52 00 58 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 00 52 00 6c 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 00 52 00 80 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 ┆ R D P DATA PAALFA R X P DATA PAALFA R l P DATA PAALFA R P DATA PAALFA┆
0x7f1e…7f6e 00 52 00 94 00 10 00 50 5c 44 41 54 41 5c 50 41 41 4c 46 41 00 52 00 a8 00 08 00 50 2a 42 30 20 00 52 00 bc 00 0e 00 50 5c 49 46 54 5c 50 46 58 3d 31 00 52 00 c8 00 0e 00 50 5c 44 41 54 41 5c 50 46 45 58 00 52 00 da 00 08 00 50 5c 58 49 46 ┆ R P DATA PAALFA R P*B0 R P IFT PFX=1 R P DATA PFEX R P XIF┆
0x7f6e…7fbe 00 52 00 ec 00 0e 00 50 5c 49 46 46 5c 50 46 58 3d 31 00 52 00 f8 00 10 00 50 5c 44 41 54 41 5c 52 45 54 55 52 4e 00 52 01 0a 00 08 00 50 5c 58 49 46 00 52 01 1e 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 31 00 52 01 2a 00 0e 00 50 5c 44 41 54 ┆ R P IFF PFX=1 R P DATA RETURN R P XIF R P DATA PF 1 R * P DAT┆
0x7fbe…800c 41 5c 50 46 5c 32 00 52 01 3c 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 33 00 52 01 4e 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 34 00 52 01 60 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 35 00 52 01 72 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 36 ┆A PF 2 R < P DATA PF 3 R N P DATA PF 4 R ` P DATA PF 5 R r P DATA PF 6┆
0x800c…805c (83, 0, 400) 00 52 01 84 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 37 00 53 00 08 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 38 00 53 00 1a 00 0e 00 50 5c 44 41 54 41 5c 50 46 5c 39 00 53 00 2c 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 30 20 00 53 00 3e 00 10 ┆ R P DATA PF 7 S P DATA PF 8 S P DATA PF 9 S , P DATA PF 10 S > ┆
0x805c…80ac 00 50 5c 44 41 54 41 5c 50 46 5c 31 31 20 00 53 00 52 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 32 20 00 53 00 66 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 33 20 00 53 00 7a 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 34 20 00 53 00 8e 00 10 ┆ P DATA PF 11 S R P DATA PF 12 S f P DATA PF 13 S z P DATA PF 14 S ┆
0x80ac…80fc 00 50 5c 44 41 54 41 5c 50 46 5c 31 35 20 00 53 00 a2 00 08 00 50 2a 43 30 20 00 53 00 b6 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 36 20 00 53 00 c2 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 37 20 00 53 00 d6 00 10 00 50 5c 44 41 54 41 5c ┆ P DATA PF 15 S P*C0 S P DATA PF 16 S P DATA PF 17 S P DATA ┆
0x80fc…814c 50 46 5c 31 38 20 00 53 00 ea 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 31 39 20 00 53 00 fe 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 32 30 20 00 53 01 12 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 32 31 20 00 53 01 26 00 10 00 50 5c 44 41 54 41 5c ┆PF 18 S P DATA PF 19 S P DATA PF 20 S P DATA PF 21 S & P DATA ┆
0x814c…819c 50 46 5c 32 32 20 00 53 01 3a 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 32 33 20 00 53 01 4e 00 10 00 50 5c 44 41 54 41 5c 50 46 5c 32 34 20 00 53 01 62 00 10 00 50 5c 49 46 46 5c 54 45 53 54 3d 31 20 00 53 01 76 00 10 00 50 5c 44 41 54 41 5c ┆PF 22 S : P DATA PF 23 S N P DATA PF 24 S b P IFF TEST=1 S v P DATA ┆
0x819c…81ec (84, 0, 400) 52 45 54 55 52 4e 00 53 01 8a 00 08 00 50 5c 58 49 46 00 54 00 0e 00 10 00 50 5c 49 46 54 5c 54 45 53 54 3d 31 20 00 54 00 1a 00 10 00 50 5c 44 41 54 41 5c 54 45 53 54 4d 20 00 54 00 2e 00 08 00 50 5c 58 49 46 00 54 00 42 00 0a 00 50 5c 45 ┆RETURN S P XIF T P IFT TEST=1 T P DATA TESTM T . P XIF T B P E┆
0x81ec…823c 4a 45 43 54 00 54 00 4e 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 54 00 5c 00 44 ┆JECT T N B P************************************************************** T D┆
0x823c…828c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 54 00 a2 00 42 00 50 2a 20 20 20 20 20 ┆ P* * T B P* ┆
0x828c…82dc 20 20 20 43 48 41 52 20 20 20 20 20 20 20 41 4c 50 48 41 42 45 54 49 43 20 41 4e 44 20 53 50 45 43 2e 20 43 48 41 52 20 55 50 44 41 54 2e 20 44 49 53 50 4c 2e 20 20 2a 00 54 00 ea 00 42 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHAR ALPHABETIC AND SPEC. CHAR UPDAT. DISPL. * T B P* ┆
0x82dc…832c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 54 01 30 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * T 0 B P**************************┆