|
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: 33350 (0x8246)
Notes: pts_type(SC)
Names: »DRKB04.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/DRKB04.SC«
IDENT DRKB04 REL 11.0 81-05-25 870105041100 =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 0 * * ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0 * X:B EQU 1 CECHO EQU 1 * * COMPLETION OF READ REQUEST AT POWER ON MAY BE * INCLUDED BY SETTING X:C =1 * X:C EQU 0 RECOV EQU 0 * * THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED * IN X:D, NUMBER OF BYTES IN DECIMAL FORM. * X:D EQU 8 DWTLNG EQU 032 * * 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 0 * * 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 250 * * MMU KEY TABLE SIZE * X:I EQU 10 DVBKTB EQU 50 * * 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 1 * * 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 0 * * X:L SHOULD BE SET TO 1 IF PLC IS USED =2 * X:L EQU 1 PLC EQU 00 * * 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(Z) MKB370 YES ! 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(NZ) MKB390 NO ! * 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 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-05-25 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0072 Head {h00=0x0030, h01=0x0050, text=» =2 GREEK CHARACTER SET & NEW CONDITIONS «, t00=0x0000, t01=0x0042}
0x0072…0090 Head {h00=0x001a, h01=0x0050, text=» REL 11.0 81-03-27 «, t00=0x0000, t01=0x0076}
0x0090…00c8 Head {h00=0x0034, h01=0x0050, text=» = 1 /00 SKIPPED IF IT CAME FROM SECOND DEVICE«, t00=0x0000, t01=0x0094}
0x00c8…00f8 Head {h00=0x002c, h01=0x0050, text=» ADDRESS VIA CIRCULAR INPUT BUFFER«, t00=0x0000, t01=0x00cc}
0x00f8…0114 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x00fc}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0150 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0000, t01=0x0122}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…01a2 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=0x0000, t01=0x0168}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01d0 Head {h00=0x0020, h01=0x0050, text=»* DRKB04 = DRIVER KEYBOARD«, t00=0x0001, t01=0x0020}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…020c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0001, t01=0x004e}
0x020c…0216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0080}
0x0216…024e Head {h00=0x0034, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT FROM THE KEYBOARDS«, t00=0x0001, t01=0x008a}
0x024e…0278 Head {h00=0x0026, h01=0x0050, text=»* PTS 6231, -32, -33, -34, -36, «, t00=0x0001, t01=0x00c2}
0x0278…02ae Head {h00=0x0032, h01=0x0050, text=»* -71, -72, 6331, 6342 AND BADGE CARD READER«, t00=0x0001, t01=0x00ec}
0x02ae…02e6 Head {h00=0x0034, h01=0x0050, text=»* PTS 6261 WITH CONNECTED PIN (PERSONAL IDEN- «, t00=0x0001, t01=0x0122}
0x02e6…0310 Head {h00=0x0026, h01=0x0050, text=»* TIFICATION NUMBER -KEYBOARD). «, t00=0x0001, t01=0x015a}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0352 Head {h00=0x0034, h01=0x0050, text=»* ONLY INPUT DATA ARE HANDLED BY THIS DRIVER. «, t00=0x0001, t01=0x018e}
0x0352…035c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035c…0390 Head {h00=0x0030, h01=0x0050, text=»* AN ECHO DEVICE CAN BE ATTACHED TO EVERY «, t00=0x0002, t01=0x0040}
0x0390…03c4 Head {h00=0x0030, h01=0x0050, text=»* KEYBOARD, WHERE RECEIVED CHARACTERS ARE «, t00=0x0002, t01=0x0074}
0x03c4…03d8 Head {h00=0x0010, h01=0x0050, text=»* ECHOED. «, t00=0x0002, t01=0x00a8}
0x03d8…03e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00bc}
0x03e2…0416 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x00c6}
0x0416…043c Head {h00=0x0022, h01=0x0050, text=»* R C K B = RECOVERY ROUTINE«, t00=0x0002, t01=0x00fa}
0x043c…0462 Head {h00=0x0022, h01=0x0050, text=»* A C K B = ACTIVATION PART «, t00=0x0002, t01=0x0120}
0x0462…0482 Head {h00=0x001c, h01=0x0050, text=»* M A K B = MAIN PART «, t00=0x0002, t01=0x0146}
0x0482…04aa Head {h00=0x0024, h01=0x0050, text=»* I H K B = INTERRUPT HANDLER «, t00=0x0002, t01=0x0166}
0x04aa…04b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04e2 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x0008}
0x04e2…0506 Head {h00=0x0020, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0003, t01=0x0036}
0x0506…052c Head {h00=0x0022, h01=0x0050, text=»* 02: STANDARD READ«, t00=0x0003, t01=0x005a}
0x052c…0552 Head {h00=0x0022, h01=0x0050, text=»* 03: NUMERIC READ «, t00=0x0003, t01=0x0080}
0x0552…057e Head {h00=0x0028, h01=0x0050, text=»* 31: RESET INPUT BUFFER «, t00=0x0003, t01=0x00a6}
0x057e…0588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d2}
0x0588…0596 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00dc}
0x0596…05b8 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0003, t01=0x00ea}
0x05b8…05e0 Head {h00=0x0024, h01=0x0050, text=»* REGISTER A1: RETURN CODE «, t00=0x0003, t01=0x010c}
0x05e0…060c Head {h00=0x0028, h01=0x0050, text=»* A2: INPUT CHARACTER «, t00=0x0003, t01=0x0134}
0x060c…0634 Head {h00=0x0024, h01=0x0050, text=»* A3: BUFFER INDEX«, t00=0x0003, t01=0x0160}
0x0634…065e Head {h00=0x0026, h01=0x0050, text=»* A4: WORK REGISTER «, t00=0x0003, t01=0x0188}
0x065e…0684 Head {h00=0x0022, h01=0x0050, text=»* A5: STACK BASE«, t00=0x0004, t01=0x0022}
0x0684…06ac Head {h00=0x0024, h01=0x0050, text=»* A6: DWT-ADDRESS «, t00=0x0004, t01=0x0048}
0x06ac…06ce Head {h00=0x001e, h01=0x0050, text=»* A7: ORDER «, t00=0x0004, t01=0x0070}
0x06ce…06f6 Head {h00=0x0024, h01=0x0050, text=»* A8: ECB-ADDRESS «, t00=0x0004, t01=0x0092}
0x06f6…0700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ba}
0x0700…071c Head {h00=0x0018, h01=0x0050, text=»* SYSTEM ADAPTION «, t00=0x0004, t01=0x00c4}
0x071c…0726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…075c Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE «, t00=0x0004, t01=0x00ea}
0x075c…0778 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT. «, t00=0x0004, t01=0x0120}
0x0778…0782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x013c}
0x0782…07b8 Head {h00=0x0032, h01=0x0050, text=»* IF TIMING IS WANTED, BIT 0 IN DWTDEV MUST «, t00=0x0004, t01=0x0146}
0x07b8…07f4 Head {h00=0x0038, h01=0x0050, text=»* BE SET UNEQUAL TO ZERO. STANDARD VALUE FOR TIME-«, t00=0x0004, t01=0x017c}
0x07f4…082e Head {h00=0x0036, h01=0x0050, text=»* OUT IS 30 SECONDS SINCE LAST DEPRESSED KEY. IF«, t00=0x0005, t01=0x0028}
0x082e…086a Head {h00=0x0038, h01=0x0050, text=»* ANOTHER VALUE IS WANTED FOR A SYSTEM, INDICATOR «, t00=0x0005, t01=0x0062}
0x086a…0890 Head {h00=0x0022, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED.«, t00=0x0005, t01=0x009e}
0x0890…089a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x089a…08a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ce}
0x08a4…08e4 Head {h00=0x003c, h01=0x0050, text=»* BIT 1 IN DWTDEV IS SET TO ZERO IF CHARACTERS WITHIN «, t00=0x0005, t01=0x00d8}
0x08e4…0922 Head {h00=0x003a, h01=0x0050, text=»* /30-/39 AND /70-/79 ARE ACCEPTED FOR NUMERIC READ.«, t00=0x0005, t01=0x0118}
0x0922…095e Head {h00=0x0038, h01=0x0050, text=»* IF IT IS SET TO ONE, ONLY /30-/39 ARE ACCEPTED. «, t00=0x0005, t01=0x0156}
0x095e…0968 (6, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x0968…09aa Head {h00=0x003e, h01=0x0050, text=»* BIT 2 IN DWTDEV IS SET TO ZERO IF /20-/5F ARE ACCEPTED«, t00=0x0006, t01=0x000e}
0x09aa…09ea Head {h00=0x003c, h01=0x0050, text=»* FOR STANDARD READ. IF IT IS SET TO ONE, /20-/7F ARE «, t00=0x0006, t01=0x0050}
0x09ea…0a00 Head {h00=0x0012, h01=0x0050, text=»* ACCEPTED. «, t00=0x0006, t01=0x0090}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0a…0a46 Head {h00=0x0038, h01=0x0050, text=»* KEYBOARD TYPE MUST ALSO BE DEFINED IN DWT. BIT 3«, t00=0x0006, t01=0x00b0}
0x0a46…0a82 Head {h00=0x0038, h01=0x0050, text=»* IN DWTDEV MUST BE SET IF PTS 6236/71/72 IS USED.«, t00=0x0006, t01=0x00ec}
0x0a82…0a8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0128}
0x0a8c…0acc Head {h00=0x003c, h01=0x0050, text=»* BIT 4 IN DWTDEV IS USED BY THE DRIVER TO INDICATE IF«, t00=0x0006, t01=0x0132}
0x0acc…0afa Head {h00=0x002a, h01=0x0050, text=»* MORE CHARACTERS ARE TO BE ECHOED. «, t00=0x0006, t01=0x0172}
0x0afa…0b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b04…0b48 Head {h00=0x0040, h01=0x0050, text=»* SPACE FOR THE CIRCULAR INPUT BUFFER IS RESERVED IN DWT. «, t00=0x0007, t01=0x001a}
0x0b48…0b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b52…0b8e Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0007, t01=0x0068}
0x0b8e…0bba Head {h00=0x0028, h01=0x0050, text=»* TO EXCLUDE FOLLOWING FUNCTIONS: «, t00=0x0007, t01=0x00a4}
0x0bba…0bd8 Head {h00=0x001a, h01=0x0050, text=»* ---- ECHO FUNCTION«, t00=0x0007, t01=0x00d0}
0x0bd8…0bfa Head {h00=0x001e, h01=0x0050, text=»* ---- TIME OUT FUNCTION«, t00=0x0007, t01=0x00ee}
0x0bfa…0c2c Head {h00=0x002e, h01=0x0050, text=»* ---- KEYBOARD LOCKED IF NO KEYLOCK ON «, t00=0x0007, t01=0x0110}
0x0c2c…0c64 Head {h00=0x0034, h01=0x0050, text=»* ---- COMPLETION OF READ REQUEST AT POWER-ON «, t00=0x0007, t01=0x0142}
0x0c64…0caa Head {h00=0x0042, h01=0x0050, text=»* ---- SHIFT KEY ON NUMERIC PART OF 6272 USED AS NORMAL KEY «, t00=0x0007, t01=0x017a}
0x0caa…0cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0030}
0x0cb4…0cc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x003a}
0x0cc2…0cd6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0008, t01=0x0048}
0x0cd6…0ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005c}
0x0ce0…0d02 Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD4 ADDRESSBLOCK «, t00=0x0008, t01=0x0066}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d34 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES«, t00=0x0008, t01=0x0092}
0x0d34…0d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ba}
0x0d3e…0d6c Head {h00=0x002a, h01=0x0050, text=» EXTRN LENDER END REQUEST AND DISPATCH«, t00=0x0008, t01=0x00c4}
0x0d6c…0d92 Head {h00=0x0022, h01=0x0050, text=» EXTRN INPUT READ A CHARACTER «, t00=0x0008, t01=0x00f2}
0x0d92…0daa Head {h00=0x0014, h01=0x0050, text=» EXTRN ECHO ECHO«, t00=0x0008, t01=0x0118}
0x0daa…0dcc Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x0008, t01=0x0130}
0x0dcc…0dea Head {h00=0x001a, h01=0x0050, text=» EXTRN LDISP DISPATCH «, t00=0x0008, t01=0x0152}
0x0dea…0e0a Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SETS TIME «, t00=0x0008, t01=0x0170}
0x0e0a…0e34 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDIS END I/O AND DISPATCH«, t00=0x0008, t01=0x0190}
0x0e34…0e58 Head {h00=0x0020, h01=0x0050, text=» EXTRN ABORT ABORT REQUESTS «, t00=0x0009, t01=0x002a}
0x0e58…0e7c Head {h00=0x0020, h01=0x0050, text=» EXTRN ABTADR ABORT-ADDRESS «, t00=0x0009, t01=0x004e}
0x0e7c…0e92 Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0009, t01=0x0072}
0x0e92…0ea6 Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0009, t01=0x0088}
0x0ea6…0eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eb0…0eca Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS«, t00=0x0009, t01=0x00a6}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed4…0eea Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTDEV «, t00=0x0009, t01=0x00ca}
0x0eea…0efe Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTST«, t00=0x0009, t01=0x00e0}
0x0efe…0f12 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTA3«, t00=0x0009, t01=0x00f4}
0x0f12…0f26 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTA5«, t00=0x0009, t01=0x0108}
0x0f26…0f3c Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTADR «, t00=0x0009, t01=0x011c}
0x0f3c…0f52 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECH «, t00=0x0009, t01=0x0132}
0x0f52…0f68 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTSB2 «, t00=0x0009, t01=0x0148}
0x0f68…0f7e Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x0009, t01=0x015e}
0x0f7e…0f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0174}
0x0f88…0fa2 Head {h00=0x0016, h01=0x0050, text=»* ECB PARAMETERS«, t00=0x0009, t01=0x017e}
0x0fa2…0fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0fac…0fd0 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x000a, t01=0x0012}
0x0fd0…0ff6 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x000a, t01=0x0036}
0x0ff6…101c Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x000a, t01=0x005c}
0x101c…103e Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x000a, t01=0x0082}
0x103e…1048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x1048…105e Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x000a, t01=0x00ae}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x1068…1096 Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000a, t01=0x00ce}
0x1096…10bc Head {h00=0x0022, h01=0x0050, text=»TIME EQU 300 TIMEOUT CONSTANT «, t00=0x000a, t01=0x00fc}
0x10bc…10ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0122}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0130}
0x10d4…1100 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000a, t01=0x013a}
0x1100…110a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x110a…112a Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000a, t01=0x0170}
0x112a…1134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1134…1160 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000b, t01=0x000a}
0x1160…116a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x116a…11aa Head {h00=0x003c, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE INCLUDED BY SETTING X:A = 1«, t00=0x000b, t01=0x0040}
0x11aa…11b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0080}
0x11b4…11c6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x008a}
0x11c6…11da Head {h00=0x0010, h01=0x0050, text=»CTIMUT EQU 0«, t00=0x000b, t01=0x009c}
0x11da…11e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b0}
0x11e4…1220 Head {h00=0x0038, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY SETTING X:B = 0«, t00=0x000b, t01=0x00ba}
0x1220…122a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f6}
0x122a…123c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000b, t01=0x0100}
0x123c…1250 Head {h00=0x0010, h01=0x0050, text=»CECHO EQU 1 «, t00=0x000b, t01=0x0112}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0126}
0x125a…1294 Head {h00=0x0036, h01=0x0050, text=»* COMPLETION OF READ REQUEST AT POWER ON MAY BE «, t00=0x000b, t01=0x0130}
0x1294…12ba Head {h00=0x0022, h01=0x0050, text=»* INCLUDED BY SETTING X:C =1«, t00=0x000b, t01=0x016a}
0x12ba…12c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c4…12d6 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x000a}
0x12d6…12ea Head {h00=0x0010, h01=0x0050, text=»RECOV EQU 0 «, t00=0x000c, t01=0x001c}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…1332 Head {h00=0x003a, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS DEFINED«, t00=0x000c, t01=0x003a}
0x1332…1366 Head {h00=0x0030, h01=0x0050, text=»* IN X:D, NUMBER OF BYTES IN DECIMAL FORM.«, t00=0x000c, t01=0x0078}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ac}
0x1370…1382 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 8 «, t00=0x000c, t01=0x00b6}
0x1382…1398 Head {h00=0x0012, h01=0x0050, text=»DWTLNG EQU 032«, t00=0x000c, t01=0x00c8}
0x1398…13a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a2…13c4 Head {h00=0x001e, h01=0x0050, text=»* CODE CONVERSION DUMMY «, t00=0x000c, t01=0x00e8}
0x13c4…13ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x0114}
0x13e0…13ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13ea…13f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0130}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1402…1446 Head {h00=0x0040, h01=0x0050, text=»* BY SETTING X:F=0 THE KEY A15 ON KB 71/72 GIVES THE CODE «, t00=0x000c, t01=0x0148}
0x1446…1472 Head {h00=0x0028, h01=0x0050, text=»* /00 INSTEAD OF BEING A SHIFT KEY«, t00=0x000c, t01=0x018c}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x147c…148e Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000d, t01=0x0032}
0x148e…14a2 Head {h00=0x0010, h01=0x0050, text=»NSHIFT EQU 0«, t00=0x000d, t01=0x0044}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ac…14d6 Head {h00=0x0026, h01=0x0050, text=»* BY SETTING X:G = 1 KEYBOARD IS«, t00=0x000d, t01=0x0062}
0x14d6…14fa Head {h00=0x0020, h01=0x0050, text=»* LOCKED IF NO KEYLOCK ON «, t00=0x000d, t01=0x008c}
0x14fa…1504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b0}
0x1504…1516 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000d, t01=0x00ba}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=»KBLOCK EQU 1«, t00=0x000d, t01=0x00cc}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e0}
0x1534…1550 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x00ea}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x155a…156c Head {h00=0x000e, h01=0x0050, text=»X:H EQU 10«, t00=0x000d, t01=0x0110}
0x156c…1582 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 250«, t00=0x000d, t01=0x0122}
0x1582…158c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0138}
0x158c…15aa Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x000d, t01=0x0142}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b4…15c6 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 10«, t00=0x000d, t01=0x016a}
0x15c6…15dc Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU 50 «, t00=0x000d, t01=0x017c}
0x15dc…15e6 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e6…1620 Head {h00=0x0036, h01=0x0050, text=»* X:J SHOULD BE SET TO 1 IF KB 6236, 71 OR 72 =2«, t00=0x000e, t01=0x000e}
0x1620…1646 Head {h00=0x0022, h01=0x0050, text=»* IS INCLUDED IN SYSTEM =2 «, t00=0x000e, t01=0x0048}
0x1646…1650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x1650…1662 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 1 «, t00=0x000e, t01=0x0078}
0x1662…1676 Head {h00=0x0010, h01=0x0050, text=»NEWKB EQU 1 «, t00=0x000e, t01=0x008a}
0x1676…1680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009e}
0x1680…16bc Head {h00=0x0038, h01=0x0050, text=»* X:K SHOULD BE SET TO 1 IF OTHER KB THAN 6236 =2 «, t00=0x000e, t01=0x00a8}
0x16bc…16ea Head {h00=0x002a, h01=0x0050, text=»* 71 OR 72 IS INCLUDED IN SYSTEM =2«, t00=0x000e, t01=0x00e4}
0x16ea…16f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0112}
0x16f4…1706 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 1 «, t00=0x000e, t01=0x011c}
0x1706…171a Head {h00=0x0010, h01=0x0050, text=»OLDKB EQU 0 «, t00=0x000e, t01=0x012e}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0142}
0x1724…175a Head {h00=0x0032, h01=0x0050, text=»* X:L SHOULD BE SET TO 1 IF PLC IS USED =2 «, t00=0x000e, t01=0x014c}
0x175a…1764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0182}
0x1764…1776 Head {h00=0x000e, h01=0x0050, text=»X:L EQU 1 «, t00=0x000e, t01=0x018c}
0x1776…1788 Head {h00=0x000e, h01=0x0050, text=»PLC EQU 00«, t00=0x000f, t01=0x000e}
0x1788…1792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0020}
0x1792…17c2 Head {h00=0x002c, h01=0x0050, text=»* IF X:M = 1 IT IS POSSIBLE TO USE =2«, t00=0x000f, t01=0x002a}
0x17c2…17e6 Head {h00=0x0020, h01=0x0050, text=»* GREEK CHARACTER SET =2 «, t00=0x000f, t01=0x005a}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007e}
0x17f0…1802 Head {h00=0x000e, h01=0x0050, text=»X:M EQU 0 «, t00=0x000f, t01=0x0088}
0x1802…1818 Head {h00=0x0012, h01=0x0050, text=»GREECE EQU X:M«, t00=0x000f, t01=0x009a}
0x1818…184e Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU-PAGING IS«, t00=0x000f, t01=0x00b0}
0x184e…187c Head {h00=0x002a, h01=0x0050, text=»* OBTAINED BY SETTING MMUPAG EQU 1. «, t00=0x000f, t01=0x00e6}
0x187c…1886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0114}
0x1886…189a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000f, t01=0x011e}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a4…18b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x013c}
0x18b2…18bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18bc…18d8 Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT«, t00=0x000f, t01=0x0154}
0x18d8…18e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0170}
0x18e2…1908 Head {h00=0x0022, h01=0x0050, text=»DWTKEY EQU /04 KEYLOCK MEMORY «, t00=0x000f, t01=0x017a}
0x1908…1930 Head {h00=0x0024, h01=0x0050, text=»DWTCS EQU /06 CRTL-SHIFT MEMORY «, t00=0x0010, t01=0x0010}
0x1930…1962 Head {h00=0x002e, h01=0x0050, text=»DWTCTB EQU /08 CONVERSION POINTERS ADDRESS«, t00=0x0010, t01=0x0038}
0x1962…1986 Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /0A TIMER POINTER «, t00=0x0010, t01=0x006a}
0x1986…1990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008e}
0x1990…19b2 Head {h00=0x001e, h01=0x0050, text=»* CIRCULAR INPUT BUFFER «, t00=0x0010, t01=0x0098}
0x19b2…19bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19bc…19ea Head {h00=0x002a, h01=0x0050, text=»DWTINQ EQU /0C POINTER TO FIRST PLACE «, t00=0x0010, t01=0x00c4}
0x19ea…1a16 Head {h00=0x0028, h01=0x0050, text=»DWTUTQ EQU /0E POINTER TO LAST PLACE«, t00=0x0010, t01=0x00f2}
0x1a16…1a3c Head {h00=0x0022, h01=0x0050, text=»DWTSQ EQU /10 START OF BUFFER «, t00=0x0010, t01=0x011e}
0x1a3c…1a68 Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER«, t00=0x0010, t01=0x0144}
0x1a68…1a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a72…1a8c Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0010, t01=0x017a}
0x1a8c…1a96 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a96…1ab8 Head {h00=0x001e, h01=0x0050, text=» DATA DVBKTB MMU KEY TABLE«, t00=0x0011, t01=0x000e}
0x1ab8…1adc Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0011, t01=0x0030}
0x1adc…1af8 Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0011, t01=0x0054}
0x1af8…1b0c Head {h00=0x0010, h01=0x0050, text=»KBAD4 EQU * «, t00=0x0011, t01=0x0070}
0x1b0c…1b2e Head {h00=0x001e, h01=0x0050, text=» DATA ACKB ACTIVATION PART«, t00=0x0011, t01=0x0084}
0x1b2e…1b4e Head {h00=0x001c, h01=0x0050, text=» DATA ABKB ABORT ROUTINE«, t00=0x0011, t01=0x00a6}
0x1b4e…1b72 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0011, t01=0x00c6}
0x1b72…1b86 Head {h00=0x0010, h01=0x0050, text=» IFF RECOV=1«, t00=0x0011, t01=0x00ea}
0x1b86…1baa Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO RECOVERY ROUTINE «, t00=0x0011, t01=0x00fe}
0x1baa…1bb6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0122}
0x1bb6…1bca Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0011, t01=0x012e}
0x1bca…1bee Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0011, t01=0x0142}
0x1bee…1bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0166}
0x1bfc…1c28 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0011, t01=0x0174}
0x1c28…1c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0010}
0x1c32…1c4e Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x0012, t01=0x001a}
0x1c4e…1c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c58…1c86 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0012, t01=0x0040}
0x1c86…1ca4 Head {h00=0x001a, h01=0x0050, text=»RCKB LDR A8,A8 BUSY ? «, t00=0x0012, t01=0x006e}
0x1ca4…1cbe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC10 YES !«, t00=0x0012, t01=0x008c}
0x1cbe…1cd8 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/400 NO !«, t00=0x0012, t01=0x00a6}
0x1cd8…1d04 Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTDEV,A6 INDICATE POWER OFF«, t00=0x0012, t01=0x00c0}
0x1d04…1d22 Head {h00=0x001a, h01=0x0050, text=» ABL LENDIS DISPATCH !«, t00=0x0012, t01=0x00ec}
0x1d22…1d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d2c…1d4e Head {h00=0x001e, h01=0x0050, text=»RC10 CWK A7,1 BASIC READ ?«, t00=0x0012, t01=0x0114}
0x1d4e…1d6a Head {h00=0x0018, h01=0x0050, text=» ABL(E) LDISP YES ! «, t00=0x0012, t01=0x0136}
0x1d6a…1d7a Head {h00=0x000c, h01=0x0050, text=»* NO ! «, t00=0x0012, t01=0x0152}
0x1d7a…1daa Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0012, t01=0x0162}
0x1daa…1dda (19, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH «, t00=0x0013, t01=0x0004}
0x1dda…1e04 Head {h00=0x0026, h01=0x0050, text=»RC15 CM ECBCW,A8 COMPLETE REQUEST «, t00=0x0013, t01=0x0034}
0x1e04…1e2e Head {h00=0x0026, h01=0x0050, text=» ABL MKB335 AND SET RETURN CODE =0«, t00=0x0013, t01=0x005e}
0x1e2e…1e3a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0088}
0x1e3a…1e48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0094}
0x1e48…1e74 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x00a2}
0x1e74…1e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e7e…1e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e88…1e9c Head {h00=0x0010, h01=0x0050, text=»* A C K B «, t00=0x0013, t01=0x00e2}
0x1e9c…1eb8 Head {h00=0x0018, h01=0x0050, text=»* ACTIVATION PART «, t00=0x0013, t01=0x00f6}
0x1eb8…1ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0112}
0x1ec2…1ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011c}
0x1ecc…1ef8 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x0126}
0x1ef8…1f0a Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x0013, t01=0x0152}
0x1f0a…1f16 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0013, t01=0x0164}
0x1f16…1f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0170}
0x1f20…1f42 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 RESET REGISTERS «, t00=0x0013, t01=0x017a}
0x1f42…1f54 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0014, t01=0x000c}
0x1f54…1f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001e}
0x1f5e…1f76 Head {h00=0x0014, h01=0x0050, text=»* CHECK ORDER «, t00=0x0014, t01=0x0028}
0x1f76…1f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f80…1f92 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0014, t01=0x004a}
0x1f92…1fb6 Head {h00=0x0020, h01=0x0050, text=» RF(NG) AKB100 ILLEGAL ORDER«, t00=0x0014, t01=0x005c}
0x1fb6…1fc8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0014, t01=0x0080}
0x1fc8…1fee Head {h00=0x0022, h01=0x0050, text=» RF(N) AKB200 ORDER 1, 2 OR 3 «, t00=0x0014, t01=0x0092}
0x1fee…2004 Head {h00=0x0012, h01=0x0050, text=» SUK A4,/2D «, t00=0x0014, t01=0x00b8}
0x2004…2022 Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 31«, t00=0x0014, t01=0x00ce}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x202c…2046 Head {h00=0x0016, h01=0x0050, text=»* ILLEGAL ORDER «, t00=0x0014, t01=0x00f6}
0x2046…2050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x2050…2064 Head {h00=0x0010, h01=0x0050, text=»AKB100 EQU *«, t00=0x0014, t01=0x011a}
0x2064…2088 Head {h00=0x0020, h01=0x0050, text=» ABL LENDER COMPLETE REQUEST«, t00=0x0014, t01=0x012e}
0x2088…2096 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0152}
0x2096…20a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0160}
0x20a0…20ca Head {h00=0x0026, h01=0x0050, text=»* ORDER 31. RESET INPUT BUFFER. «, t00=0x0014, t01=0x016a}
0x20ca…20d4 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d4…20e8 Head {h00=0x0010, h01=0x0050, text=»AKB110 EQU *«, t00=0x0015, t01=0x000e}
0x20e8…20f4 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0015, t01=0x0022}
0x20f4…211c Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 BUF END «, t00=0x0015, t01=0x002e}
0x211c…214a Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 BUFFER EMPTY ?«, t00=0x0015, t01=0x0056}
0x214a…2166 Head {h00=0x0018, h01=0x0050, text=» RF(E) AKB119 YES ! «, t00=0x0015, t01=0x0084}
0x2166…2170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2170…2182 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0015, t01=0x00aa}
0x2182…21a0 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0015, t01=0x00bc}
0x21a0…21b8 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTDEV,A6«, t00=0x0015, t01=0x00da}
0x21b8…21e4 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 PTS 6236, -71, -72 ? «, t00=0x0015, t01=0x00f2}
0x21e4…21fe Head {h00=0x0016, h01=0x0050, text=» RF(Z) AKB118 NO !«, t00=0x0015, t01=0x011e}
0x21fe…220a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0138}
0x220a…2222 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0015, t01=0x0144}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015c}
0x222c…226a Head {h00=0x003a, h01=0x0050, text=»* SHIFT, CTRL AND KEYLOCK CHARACTERS ARE NOT REMOVED«, t00=0x0015, t01=0x0166}
0x226a…229c Head {h00=0x002e, h01=0x0050, text=»* FROM BUFFER WHEN KB 6236/71/72 IS USED«, t00=0x0016, t01=0x0014}
0x229c…22a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0046}
0x22a6…22cc Head {h00=0x0022, h01=0x0050, text=»AKB112 LCR A4,A1 GET CHARACTER«, t00=0x0016, t01=0x0050}
0x22cc…22e0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0016, t01=0x0076}
0x22e0…22f6 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0016, t01=0x008a}
0x22f6…2320 Head {h00=0x0026, h01=0x0050, text=» CCK A4,/7C00 NUMSHIFT DEPRESSED ?«, t00=0x0016, t01=0x00a0}
0x2320…234a Head {h00=0x0026, h01=0x0050, text=» RF(E) AKB113 YES ! SKIP CHARACTER«, t00=0x0016, t01=0x00ca}
0x234a…2356 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00f4}
0x2356…236e Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0016, t01=0x0100}
0x236e…2392 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/80 SKIP CHARACTER ?«, t00=0x0016, t01=0x0118}
0x2392…23ae Head {h00=0x0018, h01=0x0050, text=» RF(Z) AKB113 YES ! «, t00=0x0016, t01=0x013c}
0x23ae…23d8 Head {h00=0x0026, h01=0x0050, text=» ADK A4,/10 SHIFT, CTRL, KEYLOCK ?«, t00=0x0016, t01=0x0158}
0x23d8…23f4 Head {h00=0x0018, h01=0x0050, text=» RF(NN) AKB120 YES !«, t00=0x0016, t01=0x0182}
0x23f4…23fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000e}
0x23fe…242c Head {h00=0x002a, h01=0x0050, text=»AKB113 CF A15,EOQUEU GET NEXT POINTER «, t00=0x0017, t01=0x0018}
0x242c…2458 Head {h00=0x0028, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 END OF BUF ?«, t00=0x0017, t01=0x0046}
0x2458…247e Head {h00=0x0022, h01=0x0050, text=» RB(NE) AKB112 NO ! CHECK NEXT«, t00=0x0017, t01=0x0072}
0x247e…2488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0098}
0x2488…2494 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00a2}
0x2494…24ac Head {h00=0x0014, h01=0x0050, text=»AKB118 SCR A3,A1«, t00=0x0017, t01=0x00ae}
0x24ac…24d0 Head {h00=0x0020, h01=0x0050, text=» ST A2,DWTDEV+DWTINQ,A6 YES!«, t00=0x0017, t01=0x00c6}
0x24d0…24e2 Head {h00=0x000e, h01=0x0050, text=»AKB119 ENB«, t00=0x0017, t01=0x00ea}
0x24e2…2514 Head {h00=0x002e, h01=0x0050, text=» ABL MKB335 SET RC=0 AND COMPLETE REQUEST «, t00=0x0017, t01=0x00fc}
0x2514…251e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012e}
0x251e…2536 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0017, t01=0x0138}
0x2536…255e Head {h00=0x0024, h01=0x0050, text=»AKB120 ADK A4,/70 RESTORE CHAR. «, t00=0x0017, t01=0x0150}
0x255e…257e Head {h00=0x001c, h01=0x0050, text=» SCR A4,A2 STORE IN BUF.«, t00=0x0017, t01=0x0178}
0x257e…25a4 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A1 EXCHANGE REGISTERS «, t00=0x0018, t01=0x0008}
0x25a4…25b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0018, t01=0x002e}
0x25b6…25de Head {h00=0x0024, h01=0x0050, text=» CF A15,EOQUEU GET NEXT POINTER «, t00=0x0018, t01=0x0040}
0x25de…25f0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x0068}
0x25f0…2602 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0018, t01=0x007a}
0x2602…2614 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0018, t01=0x008c}
0x2614…2626 Head {h00=0x000e, h01=0x0050, text=» RB AKB113«, t00=0x0018, t01=0x009e}
0x2626…2630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b0}
0x2630…263c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00ba}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x0018, t01=0x00c6}
0x2650…2664 Head {h00=0x0010, h01=0x0050, text=» IFT RECOV=1«, t00=0x0018, t01=0x00da}
0x2664…266e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ee}
0x266e…2688 Head {h00=0x0016, h01=0x0050, text=»* POWER OFF TEST«, t00=0x0018, t01=0x00f8}
0x2688…2692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x2692…26b6 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTDEV,A6 POWER OFF ?«, t00=0x0018, t01=0x011c}
0x26b6…26cc Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/400 «, t00=0x0018, t01=0x0140}
0x26cc…26e6 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB205 NO !«, t00=0x0018, t01=0x0156}
0x26e6…2714 Head {h00=0x002a, h01=0x0050, text=» XRS A2,DWTDEV,A6 RESET POWER OFF BIT «, t00=0x0018, t01=0x0170}
0x2714…2732 Head {h00=0x001a, h01=0x0050, text=» CWK A7,1 BASIC READ ?«, t00=0x0019, t01=0x000e}
0x2732…275e Head {h00=0x0028, h01=0x0050, text=» RB(NE) RC15 NO ! COMPLETE REQUEST !«, t00=0x0019, t01=0x002c}
0x275e…276a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0058}
0x276a…277e Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x0019, t01=0x0064}
0x277e…2794 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0019, t01=0x0078}
0x2794…27a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x008e}
0x27a2…27ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009c}
0x27ac…27d0 Head {h00=0x0020, h01=0x0050, text=»* INITIATE TIMING ROUTINE «, t00=0x0019, t01=0x00a6}
0x27d0…27da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ca}
0x27da…27fc Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTDEV,A6 TIMING ? «, t00=0x0019, t01=0x00d4}
0x27fc…2816 Head {h00=0x0016, h01=0x0050, text=» RF(NN) AKB210 NO!«, t00=0x0019, t01=0x00f6}
0x2816…2820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0110}
0x2820…2864 Head {h00=0x0040, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6 YES ! IS THERE AN EXISTING POINTER ? «, t00=0x0019, t01=0x011a}
0x2864…287e Head {h00=0x0016, h01=0x0050, text=» RF(E) AKBTIM NO! «, t00=0x0019, t01=0x015e}
0x287e…2888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x2888…28b2 Head {h00=0x0026, h01=0x0050, text=» CF A15,RESTRT YES ! RESTART TIMER«, t00=0x0019, t01=0x0182}
0x28b2…28c4 Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001a, t01=0x001c}
0x28c4…28ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x002e}
0x28ce…28e2 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001a, t01=0x0038}
0x28e2…2906 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DWT-ADDRESS IN A1«, t00=0x001a, t01=0x004c}
0x2906…2910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0070}
0x2910…2930 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIME SET TIME «, t00=0x001a, t01=0x007a}
0x2930…2960 Head {h00=0x002c, h01=0x0050, text=» DATA AKBTUT,TIME TIMEOUT ROUTINE & TIME«, t00=0x001a, t01=0x009a}
0x2960…296a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x296a…29a4 Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6 STORE TIMER ADDRESS IN DWT «, t00=0x001a, t01=0x00d4}
0x29a4…29b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x010e}
0x29b0…29be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x011a}
0x29be…29c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0128}
0x29c8…29ea Head {h00=0x001e, h01=0x0050, text=»* REQUESTED LENGTH OK ? «, t00=0x001a, t01=0x0132}
0x29ea…29f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0154}
0x29f4…2a30 Head {h00=0x0038, h01=0x0050, text=»AKB210 LD A2,ECBRL,A8 REQUESTED LENGTH IN ECB = 0 ? «, t00=0x001a, t01=0x015e}
0x2a30…2a60 Head {h00=0x002c, h01=0x0050, text=» ABL(E) MKBEND YES ! COMPLETE REQUEST ! «, t00=0x001b, t01=0x000a}
0x2a60…2a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003a}
0x2a6a…2a86 Head {h00=0x0018, h01=0x0050, text=»* CLEAR ECB-BUFFER«, t00=0x001b, t01=0x0044}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0060}
0x2a90…2ab6 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x001b, t01=0x006a}
0x2ab6…2ac8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001b, t01=0x0090}
0x2ac8…2af0 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 ADD REQUESTED LENGTH «, t00=0x001b, t01=0x00a2}
0x2af0…2afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ca}
0x2afa…2b36 Head {h00=0x0038, h01=0x0050, text=»AKB230 SCR A3,A1 CLEAR BUFFER UNTIL REQUESTED LENGTH«, t00=0x001b, t01=0x00d4}
0x2b36…2b4a Head {h00=0x0010, h01=0x0050, text=» SUK A1,1 «, t00=0x001b, t01=0x0110}
0x2b4a…2b5c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001b, t01=0x0124}
0x2b5c…2b80 Head {h00=0x0020, h01=0x0050, text=» RB(NE) AKB230 NOT READY YET«, t00=0x001b, t01=0x0136}
0x2b80…2b8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x015a}
0x2b8e…2b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0168}
0x2b98…2bc4 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x001b, t01=0x0172}
0x2bc4…2bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bce…2bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bd8…2bea Head {h00=0x000e, h01=0x0050, text=»* M K B «, t00=0x001c, t01=0x0022}
0x2bea…2c12 Head {h00=0x0024, h01=0x0050, text=»* MAIN PART OF KEYBOARD DRIVER«, t00=0x001c, t01=0x0034}
0x2c12…2c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005c}
0x2c1c…2c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0066}
0x2c26…2c54 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x001c, t01=0x0070}
0x2c54…2c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x2c5e…2c96 Head {h00=0x0034, h01=0x0050, text=»* CHECK CIRCULAR INPUT BUFFER. IF IT CONTAINS «, t00=0x001c, t01=0x00a8}
0x2c96…2ccc Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS AND NO OVERFLOW HAS OCCURRED, A«, t00=0x001c, t01=0x00e0}
0x2ccc…2cf4 Head {h00=0x0024, h01=0x0050, text=»* CHARACTER WILL BE PUT IN A2 «, t00=0x001c, t01=0x0116}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013e}
0x2cfe…2d12 Head {h00=0x0010, h01=0x0050, text=»MKB100 EQU *«, t00=0x001c, t01=0x0148}
0x2d12…2d1e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x015c}
0x2d1e…2d54 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 FETCH A CHARACTER FROM«, t00=0x001c, t01=0x0168}
0x2d54…2d7a Head {h00=0x0022, h01=0x0050, text=» LCR A2,A1 CIRCULAR BUFFER END«, t00=0x001d, t01=0x000e}
0x2d7a…2d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001d, t01=0x003e}
0x2d96…2db4 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x001d, t01=0x0050}
0x2db4…2dd0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB130 NO ! «, t00=0x001d, t01=0x006e}
0x2dd0…2dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2dda…2df2 Head {h00=0x0014, h01=0x0050, text=» SCR A4,A1 YES !«, t00=0x001d, t01=0x0094}
0x2df2…2dfe Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001d, t01=0x00ac}
0x2dfe…2e26 Head {h00=0x0024, h01=0x0050, text=» LDK A1,OVMASK SET OVERFLOW BIT «, t00=0x001d, t01=0x00b8}
0x2e26…2e4a Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x001d, t01=0x00e0}
0x2e4a…2e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0104}
0x2e54…2e8e Head {h00=0x0036, h01=0x0050, text=»MKB130 CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN BUFFER ?«, t00=0x001d, t01=0x010e}
0x2e8e…2ea8 Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB140 NO !«, t00=0x001d, t01=0x0148}
0x2ea8…2ed2 Head {h00=0x0026, h01=0x0050, text=» CF A15,EOQUEU YES ! MOVE POINTER «, t00=0x001d, t01=0x0162}
0x2ed2…2f04 Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW POINTER «, t00=0x001d, t01=0x018c}
0x2f04…2f12 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x001e, t01=0x002e}
0x2f12…2f28 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001e, t01=0x003c}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0052}
0x2f32…2f76 Head {h00=0x0040, h01=0x0050, text=»* TEST IF THERE ARE MORE CHARACTERS IN CIRC. INPUT BUFFER «, t00=0x001e, t01=0x005c}
0x2f76…2f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a0}
0x2f80…2fb8 Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/0800 "MORE CHARACTERS" INDICATION BIT «, t00=0x001e, t01=0x00aa}
0x2fb8…2fe8 Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 MORE IN BUFFER ?«, t00=0x001e, t01=0x00e2}
0x2fe8…3002 Head {h00=0x0016, h01=0x0050, text=» RF(E) MKB135 NO !«, t00=0x001e, t01=0x0112}
0x3002…301c Head {h00=0x0016, h01=0x0050, text=» ORS A4,DWTDEV,A6 «, t00=0x001e, t01=0x012c}
0x301c…3028 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0146}
0x3028…303a Head {h00=0x000e, h01=0x0050, text=»MKB133 ENB«, t00=0x001e, t01=0x0152}
0x303a…304c Head {h00=0x000e, h01=0x0050, text=» RF MKB150«, t00=0x001e, t01=0x0164}
0x304c…3056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0176}
0x3056…306c Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001e, t01=0x0180}
0x306c…3084 Head {h00=0x0014, h01=0x0050, text=»MKB135 C1R A4,A4«, t00=0x001f, t01=0x0008}
0x3084…30c0 Head {h00=0x0038, h01=0x0050, text=» ANS A4,DWTDEV,A6 CLEAR "MORE CHARACTERS" INDICATION«, t00=0x001f, t01=0x0020}
0x30c0…30d2 Head {h00=0x000e, h01=0x0050, text=» RB MKB133«, t00=0x001f, t01=0x005c}
0x30d2…30de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006e}
0x30de…30ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x007a}
0x30ec…30f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0088}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=»* READ A CHARACTER FROM KEYBOARD«, t00=0x001f, t01=0x0092}
0x3120…312a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x312a…313e Head {h00=0x0010, h01=0x0050, text=»MKB140 EQU *«, t00=0x001f, t01=0x00c6}
0x313e…3162 Head {h00=0x0020, h01=0x0050, text=» CF A5,INPUT READ CHARACTER «, t00=0x001f, t01=0x00da}
0x3162…316e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001f, t01=0x00fe}
0x316e…3178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010a}
0x3178…31a2 Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x001f, t01=0x0114}
0x31a2…31ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31ac…31c2 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x001f, t01=0x0148}
0x31c2…31fc Head {h00=0x0036, h01=0x0050, text=»* SET "MORE CHARACTERS" INDICATION BIT IF THERE «, t00=0x001f, t01=0x015e}
0x31fc…321c Head {h00=0x001c, h01=0x0050, text=»* ARE MORE CHARACTERS «, t00=0x0020, t01=0x0008}
0x321c…3226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0028}
0x3226…3252 Head {h00=0x0028, h01=0x0050, text=» ANK A1,/1 MASK NOT SIGNIFICANT BITS«, t00=0x0020, t01=0x0032}
0x3252…3264 Head {h00=0x000e, h01=0x0050, text=» SRC A1,5 «, t00=0x0020, t01=0x005e}
0x3264…327e Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTDEV,A6 «, t00=0x0020, t01=0x0070}
0x327e…3288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008a}
0x3288…3294 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0094}
0x3294…32aa Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0020, t01=0x00a0}
0x32aa…32d6 Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0020, t01=0x00b6}
0x32d6…32e2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e2}
0x32e2…32ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ee}
0x32ec…3300 Head {h00=0x0010, h01=0x0050, text=»MKB150 EQU *«, t00=0x0020, t01=0x00f8}
0x3300…331e Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x0020, t01=0x010c}
0x331e…3328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012a}
0x3328…3356 Head {h00=0x002a, h01=0x0050, text=»* CHECK WHICH KEYBOARD THAT IS USED «, t00=0x0020, t01=0x0134}
0x3356…3360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0162}
0x3360…3386 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTDEV,A6 KEYBOARD WITH«, t00=0x0020, t01=0x016c}
0x3386…33b2 (33, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 SPECIAL CONVERSION ? «, t00=0x0021, t01=0x0004}
0x33b2…33d2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) MKB290 PERHAPS ! «, t00=0x0021, t01=0x0030}
0x33d2…33de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0050}
0x33de…33f6 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0021, t01=0x005c}
0x33f6…3400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0074}
0x3400…3422 Head {h00=0x001e, h01=0x0050, text=»* KB 6236/71/72 IS USED «, t00=0x0021, t01=0x007e}
0x3422…3446 Head {h00=0x0020, h01=0x0050, text=»* CHECK INCOMING CHARACTER«, t00=0x0021, t01=0x00a0}
0x3446…3450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c4}
0x3450…3462 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x00ce}
0x3462…3492 Head {h00=0x002c, h01=0x0050, text=» SUK A4,/80 SKIP CHAR. FROM CIRC. BUF.? «, t00=0x0021, t01=0x00e0}
0x3492…34c0 Head {h00=0x002a, h01=0x0050, text=» RB(Z) MKB100 YES, READ NEXT CHARACTER«, t00=0x0021, t01=0x0110}
0x34c0…34e0 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/8 CTRL/SHIFT ? «, t00=0x0021, t01=0x013e}
0x34e0…34fc Head {h00=0x0018, h01=0x0050, text=» RF(NN) MKB220 YES !«, t00=0x0021, t01=0x015e}
0x34fc…3522 Head {h00=0x0022, h01=0x0050, text=» ADK A4,/8 NORMAL CHARACTER ? «, t00=0x0021, t01=0x017a}
0x3522…353e Head {h00=0x0018, h01=0x0050, text=» RF(N) MKB300 YES ! «, t00=0x0022, t01=0x0010}
0x353e…354c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x002c}
0x354c…3556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003a}
0x3556…3598 Head {h00=0x003e, h01=0x0050, text=»* KEYLOCK IS TURNED. SET/CLEAR CORRESPONDING BIT IN DWT.«, t00=0x0022, t01=0x0044}
0x3598…35d6 Head {h00=0x003a, h01=0x0050, text=»* IF THE KEYLOCK ISN'T CHANGED, WHICH MEANS THAT THE«, t00=0x0022, t01=0x0086}
0x35d6…3616 Head {h00=0x003c, h01=0x0050, text=»* CHARACTER IS COMING BECAUSE OF POWER UP, THE CHARAC-«, t00=0x0022, t01=0x00c4}
0x3616…3638 Head {h00=0x001e, h01=0x0050, text=»* TER SHOULD BE IGNORED.«, t00=0x0022, t01=0x0104}
0x3638…3642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0126}
0x3642…365e Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 "FLAG BIT"«, t00=0x0022, t01=0x0130}
0x365e…3684 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A4 KEYLOCK CHAR. - /70«, t00=0x0022, t01=0x014c}
0x3684…36ac Head {h00=0x0024, h01=0x0050, text=»MKB160 RF(Z) MKB170 KEYLOCK ON !«, t00=0x0022, t01=0x0172}
0x36ac…36be Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x000a}
0x36be…36e2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB180 KEYLOCK OFF ! «, t00=0x0023, t01=0x001c}
0x36e2…370a Head {h00=0x0024, h01=0x0050, text=» SLC A1,1 SHIFT "FLAG BIT" LEFT «, t00=0x0023, t01=0x0040}
0x370a…371c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x0068}
0x371c…3746 Head {h00=0x0026, h01=0x0050, text=» RB MKB160 NEXT KEYLOCK, PERHAPS ?«, t00=0x0023, t01=0x007a}
0x3746…3750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a4}
0x3750…3764 Head {h00=0x0010, h01=0x0050, text=»MKB170 EQU *«, t00=0x0023, t01=0x00ae}
0x3764…379e Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK IS CHANGED«, t00=0x0023, t01=0x00c2}
0x379e…37b0 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0023, t01=0x00fc}
0x37b0…37e2 Head {h00=0x002e, h01=0x0050, text=» RB(NE) MKB100 NO CHANGE, READ A NEW CHAR.«, t00=0x0023, t01=0x010e}
0x37e2…3812 Head {h00=0x002c, h01=0x0050, text=» ORS A1,DWTDEV+DWTKEY,A6 SET "FLAG BIT" «, t00=0x0023, t01=0x0140}
0x3812…3824 Head {h00=0x000e, h01=0x0050, text=» RF MKB190«, t00=0x0023, t01=0x0170}
0x3824…3838 Head {h00=0x0010, h01=0x0050, text=»MKB180 EQU *«, t00=0x0023, t01=0x0182}
0x3838…3870 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTDEV+DWTKEY,A6 TEST IF KEYLOCK CHANGED «, t00=0x0024, t01=0x0008}
0x3870…3882 Head {h00=0x000e, h01=0x0050, text=» TM A4,A1 «, t00=0x0024, t01=0x0040}
0x3882…38a2 Head {h00=0x001c, h01=0x0050, text=» RB(Z) MKB100 NO CHANGE «, t00=0x0024, t01=0x0052}
0x38a2…38d0 Head {h00=0x002a, h01=0x0050, text=» C1R A1,A1 COMPLEMENT FOR AND-FUNCTION«, t00=0x0024, t01=0x0072}
0x38d0…3902 Head {h00=0x002e, h01=0x0050, text=» ANS A1,DWTDEV+DWTKEY,A6 CLEAR "FLAG BIT" «, t00=0x0024, t01=0x00a0}
0x3902…3916 Head {h00=0x0010, h01=0x0050, text=»MKB190 EQU *«, t00=0x0024, t01=0x00d2}
0x3916…394a Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE KEYLOCK CHARACTER IN ECB«, t00=0x0024, t01=0x00e6}
0x394a…396c Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x0024, t01=0x011a}
0x396c…397e Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0024, t01=0x013c}
0x397e…399e Head {h00=0x001c, h01=0x0050, text=» RF(N) MKB325 ORDER 1 ! «, t00=0x0024, t01=0x014e}
0x399e…39ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x016e}
0x39ac…39b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x017c}
0x39b6…39ea Head {h00=0x0030, h01=0x0050, text=»* KEYLOCK IS TURNED ! MAKE A NEGATIVE CODE«, t00=0x0024, t01=0x0186}
0x39ea…3a24 Head {h00=0x0036, h01=0x0050, text=»* TO THE CONTROLWORD IN ECB AND COMPLETE REQUEST«, t00=0x0025, t01=0x002a}
0x3a24…3a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0064}
0x3a2e…3a42 Head {h00=0x0010, h01=0x0050, text=»MKB200 EQU *«, t00=0x0025, t01=0x006e}
0x3a42…3a64 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 LOAD CHARACTER «, t00=0x0025, t01=0x0082}
0x3a64…3a78 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/70 «, t00=0x0025, t01=0x00a4}
0x3a78…3aa2 Head {h00=0x0026, h01=0x0050, text=» SRC A4,1 SHIFT TO GET KEY NUMBER «, t00=0x0025, t01=0x00b8}
0x3aa2…3ac4 Head {h00=0x001e, h01=0x0050, text=» RF(N) MKB210 ON OR OFF ? «, t00=0x0025, t01=0x00e2}
0x3ac4…3adc Head {h00=0x0014, h01=0x0050, text=» ADK A4,/4 ON ! «, t00=0x0025, t01=0x0104}
0x3adc…3b04 Head {h00=0x0024, h01=0x0050, text=»MKB210 SLL A4,1 MAKE WORD POSI- «, t00=0x0025, t01=0x011c}
0x3b04…3b20 Head {h00=0x0018, h01=0x0050, text=» SRL A4,1 TIVE AGAIN«, t00=0x0025, t01=0x0144}
0x3b20…3b50 Head {h00=0x002c, h01=0x0050, text=» C1R A4,A4 CHANGE 0 TO 1 AND VICE VERSA «, t00=0x0025, t01=0x0160}
0x3b50…3b7a Head {h00=0x0026, h01=0x0050, text=» ST A4,ECBCW,A8 STORE CODE IN ECB «, t00=0x0025, t01=0x0190}
0x3b7a…3baa Head {h00=0x002c, h01=0x0050, text=» RF MKB335 SET RC=0 AND COMPLETE REQUEST«, t00=0x0026, t01=0x002a}
0x3baa…3bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bb4…3bec Head {h00=0x0034, h01=0x0050, text=»* CTRL OR (NUM.) SHIFT IS DEPRESSED (RELEASED)«, t00=0x0026, t01=0x0064}
0x3bec…3bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x009c}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=»MKB220 EQU *«, t00=0x0026, t01=0x00a6}
0x3c0a…3c20 Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x0026, t01=0x00ba}
0x3c20…3c4e Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x0026, t01=0x00d0}
0x3c4e…3c7e Head {h00=0x002c, h01=0x0050, text=» RB(Z) MKB100 YES ! READ A NEW CHARACTER«, t00=0x0026, t01=0x00fe}
0x3c7e…3c8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x012e}
0x3c8a…3ca2 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0026, t01=0x013a}
0x3ca2…3cb8 Head {h00=0x0012, h01=0x0050, text=» IFT NSHIFT=0 «, t00=0x0026, t01=0x0152}
0x3cb8…3cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0168}
0x3cc2…3cf8 Head {h00=0x0032, h01=0x0050, text=»* MAKE CHARACTER /00 IF NUMERIC SHIFT KEY IS«, t00=0x0026, t01=0x0172}
0x3cf8…3d2e Head {h00=0x0032, h01=0x0050, text=»* DEPRESSED, AND SKIP THE INCOMING CHARACTER«, t00=0x0027, t01=0x0018}
0x3d2e…3d4c Head {h00=0x001a, h01=0x0050, text=»* IF IT IS RELEASED.«, t00=0x0027, t01=0x004e}
0x3d4c…3d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006c}
0x3d56…3d78 Head {h00=0x001e, h01=0x0050, text=» CCK A2,/7C00 DEPRESSED ? «, t00=0x0027, t01=0x0076}
0x3d78…3d94 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB230 NO ! «, t00=0x0027, t01=0x0098}
0x3d94…3dbc Head {h00=0x0024, h01=0x0050, text=» LDK A2,/00 YES ! LOAD CHARACTER«, t00=0x0027, t01=0x00b4}
0x3dbc…3dce Head {h00=0x000e, h01=0x0050, text=» RF MKB300«, t00=0x0027, t01=0x00dc}
0x3dce…3dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ee}
0x3dd8…3dfe Head {h00=0x0022, h01=0x0050, text=»MKB230 CCK A2,/7D00 RELEASED ?«, t00=0x0027, t01=0x00f8}
0x3dfe…3e28 Head {h00=0x0026, h01=0x0050, text=» RB(E) MKB100 YES ! SKIP CHARACTER«, t00=0x0027, t01=0x011e}
0x3e28…3e34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0148}
0x3e34…3e4c Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x0027, t01=0x0154}
0x3e4c…3e6e Head {h00=0x001e, h01=0x0050, text=»MKB250 LDK A1,/2 SHIFT BIT«, t00=0x0027, t01=0x016c}
0x3e6e…3e8c Head {h00=0x001a, h01=0x0050, text=» LDR A4,A4 SHIFT ON ? «, t00=0x0027, t01=0x018e}
0x3e8c…3ea8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x001c}
0x3ea8…3ec6 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 SHIFT OFF ? «, t00=0x0028, t01=0x0038}
0x3ec6…3ee2 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0028, t01=0x0056}
0x3ee2…3f00 Head {h00=0x001a, h01=0x0050, text=» LDK A1,/4 CONTROL BIT«, t00=0x0028, t01=0x0072}
0x3f00…3f1e Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 CONTROL ON ?«, t00=0x0028, t01=0x0090}
0x3f1e…3f3a Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB260 YES ! «, t00=0x0028, t01=0x00ae}
0x3f3a…3f5a Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 CONTROL OFF ? «, t00=0x0028, t01=0x00ca}
0x3f5a…3f76 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB270 YES ! «, t00=0x0028, t01=0x00ea}
0x3f76…3f98 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NUMERIC SHIFT ? «, t00=0x0028, t01=0x0106}
0x3f98…3fb0 Head {h00=0x0014, h01=0x0050, text=» RB MKB250 YES !«, t00=0x0028, t01=0x0128}
0x3fb0…3fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0140}
0x3fba…3fe4 Head {h00=0x0026, h01=0x0050, text=»MKB260 ORS A1,DWTDEV+DWTCS,A6 SET «, t00=0x0028, t01=0x014a}
0x3fe4…3ff6 Head {h00=0x000e, h01=0x0050, text=» RF MKB280«, t00=0x0028, t01=0x0174}
0x3ff6…401a Head {h00=0x0020, h01=0x0050, text=»MKB270 C1R A1,A1 COMPLEMENT «, t00=0x0028, t01=0x0186}
0x401a…4040 Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTDEV+DWTCS,A6 CLEAR «, t00=0x0029, t01=0x001a}
0x4040…404a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0040}
0x404a…4072 Head {h00=0x0024, h01=0x0050, text=»MKB280 ABL MKB100 NEXT CHARACTER«, t00=0x0029, t01=0x004a}
0x4072…407e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0072}
0x407e…4096 Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0029, t01=0x007e}
0x4096…40a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0096}
0x40a4…40ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a4}
0x40ae…40e0 Head {h00=0x002e, h01=0x0050, text=»* SPECIAL CONVERSION OF CHARACTERS FROM «, t00=0x0029, t01=0x00ae}
0x40e0…4102 Head {h00=0x001e, h01=0x0050, text=»* NUMERIC PART OF 6234. «, t00=0x0029, t01=0x00e0}
0x4102…410c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0102}
0x410c…4120 Head {h00=0x0010, h01=0x0050, text=»MKB290 EQU *«, t00=0x0029, t01=0x010c}
0x4120…4148 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 IF THE DWT-ADDRESS IS«, t00=0x0029, t01=0x0120}
0x4148…4178 Head {h00=0x002c, h01=0x0050, text=» ANK A1,1 ODD, SHOULD SPECIAL CONVERSION«, t00=0x0029, t01=0x0148}
0x4178…4196 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) MKB295 BE USED«, t00=0x0029, t01=0x0178}
0x4196…41c2 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 IF BIT 8 IN CHARACTER IS «, t00=0x002a, t01=0x0008}
0x41c2…41f6 Head {h00=0x0030, h01=0x0050, text=» ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED«, t00=0x002a, t01=0x0034}
0x41f6…4222 Head {h00=0x0028, h01=0x0050, text=» RF(Z) MKB310 NO SPECIAL CONVERSION «, t00=0x002a, t01=0x0068}
0x4222…4246 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/7F MASK AWAY BIT 8 «, t00=0x002a, t01=0x0094}
0x4246…4250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b8}
0x4250…427a Head {h00=0x0026, h01=0x0050, text=»* INDICATE SPECIAL CONVERSION ! «, t00=0x002a, t01=0x00c2}
0x427a…4284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ec}
0x4284…42ba Head {h00=0x0032, h01=0x0050, text=»MKB295 ANKL A6,/FFFE MAKE THE DWT-ADDRESS EVEN«, t00=0x002a, t01=0x00f6}
0x42ba…42de Head {h00=0x0020, h01=0x0050, text=» LDK A4,/8 LOAD SPECIAL BIT «, t00=0x002a, t01=0x012c}
0x42de…42fc Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTDEV+DWTCS,A6«, t00=0x002a, t01=0x0150}
0x42fc…430e Head {h00=0x000e, h01=0x0050, text=» RF MKB310«, t00=0x002a, t01=0x016e}
0x430e…431a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0180}
0x431a…4328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x018c}
0x4328…4332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000a}
0x4332…4350 Head {h00=0x001a, h01=0x0050, text=»* NORMAL CONVERSION «, t00=0x002b, t01=0x0014}
0x4350…435a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0032}
0x435a…436e Head {h00=0x0010, h01=0x0050, text=»MKB300 EQU *«, t00=0x002b, t01=0x003c}
0x436e…4378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0050}
0x4378…438e Head {h00=0x0012, h01=0x0050, text=» IFT KBLOCK=1 «, t00=0x002b, t01=0x005a}
0x438e…43bc Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV+DWTKEY,A6 IS KB LOCKED ?«, t00=0x002b, t01=0x0070}
0x43bc…43ee Head {h00=0x002e, h01=0x0050, text=» ABL(Z) MKB100 YES ! READ A NEW CHARACTER «, t00=0x002b, t01=0x009e}
0x43ee…43fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00d0}
0x43fa…4404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00dc}
0x4404…4418 Head {h00=0x0010, h01=0x0050, text=»MKB310 EQU *«, t00=0x002b, t01=0x00e6}
0x4418…4448 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTDEV+DWTCTB,A6 GET CTAB ADDRESS«, t00=0x002b, t01=0x00fa}
0x4448…446c Head {h00=0x0020, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION «, t00=0x002b, t01=0x012a}
0x446c…44a8 Head {h00=0x0038, h01=0x0050, text=» AD A1,DWTDEV+DWTCS,A6 GET CURRENT CONVERSION TABLE «, t00=0x002b, t01=0x014e}
0x44a8…44bc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x002b, t01=0x018a}
0x44bc…44e6 Head {h00=0x0026, h01=0x0050, text=» RF(E) MKB320 NO CONVERSION TABLE «, t00=0x002c, t01=0x000e}
0x44e6…44f8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x0038}
0x44f8…4514 Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x002c, t01=0x004a}
0x4514…4526 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x002c, t01=0x0066}
0x4526…454e Head {h00=0x0024, h01=0x0050, text=» LDR* A1,A1 COLUMN TABLE ADDRESS«, t00=0x002c, t01=0x0078}
0x454e…456e Head {h00=0x001c, h01=0x0050, text=» RF(E) MKB320 NO COLUMN «, t00=0x002c, t01=0x00a0}
0x456e…4580 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x00c0}
0x4580…4592 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002c, t01=0x00d2}
0x4592…45b2 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A4 ADD ROW INDEX«, t00=0x002c, t01=0x00e4}
0x45b2…45d4 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A1 LOAD CHARACTER «, t00=0x002c, t01=0x0104}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0126}
0x45de…45f2 Head {h00=0x0010, h01=0x0050, text=»MKB320 EQU *«, t00=0x002c, t01=0x0130}
0x45f2…460a Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x002c, t01=0x0144}
0x460a…462e Head {h00=0x0020, h01=0x0050, text=» LDK A4,/7 RESET SPECIAL BIT«, t00=0x002c, t01=0x015c}
0x462e…464e Head {h00=0x001c, h01=0x0050, text=» ANS A4,DWTDEV+DWTCS,A6 «, t00=0x002c, t01=0x0180}
0x464e…465a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0010}
0x465a…4668 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x001c}
0x4668…4672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002a}
0x4672…46a2 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF BASIC READ OR ORDER 2 OR 3 «, t00=0x002d, t01=0x0034}
0x46a2…46ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0064}
0x46ac…46ce Head {h00=0x001e, h01=0x0050, text=» LDR A4,A7 LOAD ORDER CODE«, t00=0x002d, t01=0x006e}
0x46ce…46e0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002d, t01=0x0090}
0x46e0…4706 Head {h00=0x0022, h01=0x0050, text=» RF(NN) MKB330 ORDER 2 OR 3 ! «, t00=0x002d, t01=0x00a2}
0x4706…4710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c8}
0x4710…4730 Head {h00=0x001c, h01=0x0050, text=»* ORDER 1, BASIC READ «, t00=0x002d, t01=0x00d2}
0x4730…473a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f2}
0x473a…476a Head {h00=0x002c, h01=0x0050, text=» CF A5,STOECH STORE CHAR. IN ECB-BUFFER «, t00=0x002d, t01=0x00fc}
0x476a…47b6 Head {h00=0x0048, h01=0x0050, text=»* AND SEND IT TO ECHO-DEVICE «, t00=0x002d, t01=0x012c}
0x47b6…47f6 Head {h00=0x003c, h01=0x0050, text=»* IF ECHO WANTED «, t00=0x002d, t01=0x0178}
0x47f6…4800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0028}
0x4800…4814 Head {h00=0x0010, h01=0x0050, text=»MKB325 EQU *«, t00=0x002e, t01=0x0032}
0x4814…4848 Head {h00=0x0030, h01=0x0050, text=» CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? «, t00=0x002e, t01=0x0046}
0x4848…487a Head {h00=0x002e, h01=0x0050, text=» ABL(NE) MKB100 NO ! READ A NEW CHARACTER «, t00=0x002e, t01=0x007a}
0x487a…4884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ac}
0x4884…48b0 Head {h00=0x0028, h01=0x0050, text=» RF MKB335 YES ! SET RETURN CODE = 0«, t00=0x002e, t01=0x00b6}
0x48b0…48be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00e2}
0x48be…48c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f0}
0x48c8…48fa Head {h00=0x002e, h01=0x0050, text=»* ORDER 2 OR 3, STANDARD OR NUMERIC READ«, t00=0x002e, t01=0x00fa}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012c}
0x4904…4918 Head {h00=0x0010, h01=0x0050, text=»MKB330 EQU *«, t00=0x002e, t01=0x0136}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4922…4952 Head {h00=0x002c, h01=0x0050, text=»* CHECK IF IT IS AN END-OF-RECORD-KEY «, t00=0x002e, t01=0x0154}
0x4952…495c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x495c…4986 Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBCW,A8 KEY-TABLE ADDRESS «, t00=0x002e, t01=0x018e}
0x4986…49aa Head {h00=0x0020, h01=0x0050, text=» RF(Z) MKB360 NO KEYTABLE ! «, t00=0x002f, t01=0x0028}
0x49aa…49d0 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x002f, t01=0x004c}
0x49d0…49e4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x002f, t01=0x0072}
0x49e4…4a18 Head {h00=0x0030, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE«, t00=0x002f, t01=0x0086}
0x4a18…4a2a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x002f, t01=0x00ba}
0x4a2a…4a42 Head {h00=0x0014, h01=0x0050, text=»MKB340 SUK A4,1 «, t00=0x002f, t01=0x00cc}
0x4a42…4a72 Head {h00=0x002c, h01=0x0050, text=» RF(N) MKB360 KEY NOT FOUND IN KEYTABLE «, t00=0x002f, t01=0x00e4}
0x4a72…4a8c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x002f, t01=0x0114}
0x4a8c…4aae Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER ?«, t00=0x002f, t01=0x012e}
0x4aae…4ae2 Head {h00=0x0030, h01=0x0050, text=» RB(NE) MKB340 NO ! TRY NEXT KEY IN KEYTABLE«, t00=0x002f, t01=0x0150}
0x4ae2…4aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0184}
0x4aec…4b18 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 YES ! MAKE KEYTABLE INDEX «, t00=0x002f, t01=0x018e}
0x4b18…4b2c Head {h00=0x0010, h01=0x0050, text=»MKB350 EQU *«, t00=0x0030, t01=0x002a}
0x4b2c…4b60 Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD «, t00=0x0030, t01=0x003e}
0x4b60…4b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0072}
0x4b6a…4b9e Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0030, t01=0x007c}
0x4b9e…4bb2 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0030, t01=0x00b0}
0x4bb2…4bdc Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE EOR CHARACTER«, t00=0x0030, t01=0x00c4}
0x4bdc…4c00 Head {h00=0x0020, h01=0x0050, text=» CF A5,EORECH ECHO CHARACTER«, t00=0x0030, t01=0x00ee}
0x4c00…4c0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0112}
0x4c0c…4c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011e}
0x4c16…4c2a Head {h00=0x0010, h01=0x0050, text=»MKB335 EQU *«, t00=0x0030, t01=0x0128}
0x4c2a…4c50 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SET RETURN CODE = 0 «, t00=0x0030, t01=0x013c}
0x4c50…4c78 Head {h00=0x0024, h01=0x0050, text=» RF MKBEND AND COMPLETE REQUEST «, t00=0x0030, t01=0x0162}
0x4c78…4c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018a}
0x4c82…4c90 (49, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0004}
0x4c90…4c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0012}
0x4c9a…4ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x001c}
0x4ca4…4cc0 Head {h00=0x0018, h01=0x0050, text=»* CHARACTER CHECK «, t00=0x0031, t01=0x0026}
0x4cc0…4cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0042}
0x4cca…4cde Head {h00=0x0010, h01=0x0050, text=»MKB360 EQU *«, t00=0x0031, t01=0x004c}
0x4cde…4d0a Head {h00=0x0028, h01=0x0050, text=» STR A2,A15 SAVE CHARACTER ON STACK «, t00=0x0031, t01=0x0060}
0x4d0a…4d22 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTDEV,A6«, t00=0x0031, t01=0x008c}
0x4d22…4d44 Head {h00=0x001e, h01=0x0050, text=» CWK A7,2 STANDARD READ ? «, t00=0x0031, t01=0x00a4}
0x4d44…4d60 Head {h00=0x0018, h01=0x0050, text=» RF(NE) MKB380 NO ! «, t00=0x0031, t01=0x00c6}
0x4d60…4d80 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0031, t01=0x00e2}
0x4d80…4d9c Head {h00=0x0018, h01=0x0050, text=» SLC A1,2 /20-/7F ? «, t00=0x0031, t01=0x0102}
0x4d9c…4db8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) MKB370 YES ! «, t00=0x0031, t01=0x011e}
0x4db8…4ddc Head {h00=0x0020, h01=0x0050, text=» LDK A1,/5F NO ! UPPER LIMIT«, t00=0x0031, t01=0x013a}
0x4ddc…4dee Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0031, t01=0x015e}
0x4dee…4df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0170}
0x4df8…4e1e Head {h00=0x0022, h01=0x0050, text=»MKB370 LDK A1,/7F UPPER LIMIT «, t00=0x0031, t01=0x017a}
0x4e1e…4e30 Head {h00=0x000e, h01=0x0050, text=» RF MKB400«, t00=0x0032, t01=0x0010}
0x4e30…4e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0022}
0x4e3a…4e66 Head {h00=0x0028, h01=0x0050, text=»MKB380 SLC A1,1 /30-/39 & /70-/79 ? «, t00=0x0032, t01=0x002c}
0x4e66…4e82 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) MKB390 NO ! «, t00=0x0032, t01=0x0058}
0x4e82…4e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0074}
0x4e8c…4eac Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x007e}
0x4eac…4ed2 Head {h00=0x0022, h01=0x0050, text=»MKB390 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x009e}
0x4ed2…4ef2 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x00c4}
0x4ef2…4efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e4}
0x4efc…4f14 Head {h00=0x0014, h01=0x0050, text=»MKB400 SUR A1,A2«, t00=0x0032, t01=0x00ee}
0x4f14…4f3c Head {h00=0x0024, h01=0x0050, text=» RF(N) MKB420 NOT WITHIN LIMITS «, t00=0x0032, t01=0x0106}
0x4f3c…4f4e Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0032, t01=0x012e}
0x4f4e…4f76 Head {h00=0x0024, h01=0x0050, text=» RF(P) MKB420 NOT WITHIN LIMITS «, t00=0x0032, t01=0x0140}
0x4f76…4f96 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A15 DUMMY LOAD «, t00=0x0032, t01=0x0168}
0x4f96…4fa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0188}
0x4fa4…4fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0008}
0x4fae…4fd6 Head {h00=0x0024, h01=0x0050, text=»* IT IS A "NORMAL" CHARACTER !«, t00=0x0033, t01=0x0012}
0x4fd6…4fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x003a}
0x4fe0…4ff4 Head {h00=0x0010, h01=0x0050, text=»MKB405 EQU *«, t00=0x0033, t01=0x0044}
0x4ff4…5022 Head {h00=0x002a, h01=0x0050, text=» CF A5,STOECH STORE AND ECHO CHARACTER«, t00=0x0033, t01=0x0058}
0x5022…502c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0086}
0x502c…5056 Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 LENGTH OVERFLOW ? «, t00=0x0033, t01=0x0090}
0x5056…5086 Head {h00=0x002c, h01=0x0050, text=» ABL(L) MKB100 NO ! TAKE NEXT CHARACTER «, t00=0x0033, t01=0x00ba}
0x5086…5090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ea}
0x5090…50bc Head {h00=0x0028, h01=0x0050, text=»MKB410 LDK A1,8 YES ! SET ERROR CODE«, t00=0x0033, t01=0x00f4}
0x50bc…50ce Head {h00=0x000e, h01=0x0050, text=» RF MKBEND«, t00=0x0033, t01=0x0120}
0x50ce…50d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0132}
0x50d8…5114 Head {h00=0x0038, h01=0x0050, text=»* CHECK IF IT IS BACKSPACE, CLEAR, MULTIPLE ZERO, «, t00=0x0033, t01=0x013c}
0x5114…5148 Head {h00=0x0030, h01=0x0050, text=»* STANDARD EOR, SKIP OR UNKNOWN CHARACTER «, t00=0x0033, t01=0x0178}
0x5148…5152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001c}
0x5152…517e Head {h00=0x0028, h01=0x0050, text=»MKB420 LDR* A2,A15 RELOAD CHARACTER «, t00=0x0034, t01=0x0026}
0x517e…5190 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0034, t01=0x0052}
0x5190…51a4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0034, t01=0x0064}
0x51a4…51bc Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBCW,A8 «, t00=0x0034, t01=0x0078}
0x51bc…51ea Head {h00=0x002a, h01=0x0050, text=» RF(NZ) MKB440 STANDARD EOR NOT USED !«, t00=0x0034, t01=0x0090}
0x51ea…5224 Head {h00=0x0036, h01=0x0050, text=» LDK A4,1 INDEX TO STORE IN ECBCW IF STANDARD EOR «, t00=0x0034, t01=0x00be}
0x5224…5248 Head {h00=0x0020, h01=0x0050, text=» CCK A1,/0D00 STANDARD EOR ?«, t00=0x0034, t01=0x00f8}
0x5248…5264 Head {h00=0x0018, h01=0x0050, text=» RB(E) MKB350 YES ! «, t00=0x0034, t01=0x011c}
0x5264…5278 Head {h00=0x0010, h01=0x0050, text=»MKB440 EQU *«, t00=0x0034, t01=0x0138}
0x5278…52a0 Head {h00=0x0024, h01=0x0050, text=» SUK A1,/1B TRIPLE ZERO ? (/1B) «, t00=0x0034, t01=0x014c}
0x52a0…52ba Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ30 YES !«, t00=0x0034, t01=0x0174}
0x52ba…52c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018e}
0x52c4…52ea Head {h00=0x0022, h01=0x0050, text=» ADK A1,/13 BACKSPACE ? (/08) «, t00=0x0035, t01=0x0008}
0x52ea…5306 Head {h00=0x0018, h01=0x0050, text=» ABL(E) BACKSP YES !«, t00=0x0035, t01=0x002e}
0x5306…5310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004a}
0x5310…5332 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/10 CLEAR ? (/18) «, t00=0x0035, t01=0x0054}
0x5332…534e Head {h00=0x0018, h01=0x0050, text=» ABL(E) CLEAR YES ! «, t00=0x0035, t01=0x0076}
0x534e…5358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0092}
0x5358…537e Head {h00=0x0022, h01=0x0050, text=» SUK A1,/2 DOUBLE ZERO ? (/1A)«, t00=0x0035, t01=0x009c}
0x537e…5398 Head {h00=0x0016, h01=0x0050, text=» ABL(E) MZ20 YES !«, t00=0x0035, t01=0x00c2}
0x5398…53a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00dc}
0x53a2…53ca Head {h00=0x0024, h01=0x0050, text=» SUK A1,/E5 SKIP CHARACTER (/FF)«, t00=0x0035, t01=0x00e6}
0x53ca…53e6 Head {h00=0x0018, h01=0x0050, text=» ABL(E) MKB100 YES !«, t00=0x0035, t01=0x010e}
0x53e6…5400 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0035, t01=0x012a}
0x5400…5428 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 CHECK IF CHARACTER IS«, t00=0x0035, t01=0x0144}
0x5428…5452 Head {h00=0x0026, h01=0x0050, text=» SUK A1,/B0 WITHIN LIMITS FOR THE «, t00=0x0035, t01=0x016c}
0x5452…547c Head {h00=0x0026, h01=0x0050, text=» RF(N) MKB460 GREEK CHARACTER SET «, t00=0x0036, t01=0x0008}
0x547c…548e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/9«, t00=0x0036, t01=0x0032}
0x548e…54b2 Head {h00=0x0020, h01=0x0050, text=» RB(NP) MKB405 YES IT IS OK «, t00=0x0036, t01=0x0044}
0x54b2…54c6 Head {h00=0x0010, h01=0x0050, text=»MKB460 EQU *«, t00=0x0036, t01=0x0068}
0x54c6…54d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x007c}
0x54d2…54dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x54dc…550c Head {h00=0x002c, h01=0x0050, text=»* SET ERROR CODE FOR UNKNOWN CHARACTER«, t00=0x0036, t01=0x0092}
0x550c…5516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c2}
0x5516…554a Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0036, t01=0x00cc}
0x554a…555c Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0036, t01=0x0100}
0x555c…5566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0112}
0x5566…5574 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x011c}
0x5574…55a4 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0036, t01=0x012a}
0x55a4…55ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015a}
0x55ae…55b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0164}
0x55b8…55ce Head {h00=0x0012, h01=0x0050, text=»* COMMON END«, t00=0x0036, t01=0x016e}
0x55ce…55d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0184}
0x55d8…55e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018e}
0x55e2…5610 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0037, t01=0x0008}
0x5610…5624 Head {h00=0x0010, h01=0x0050, text=»MKBEND EQU *«, t00=0x0037, t01=0x0036}
0x5624…562e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004a}
0x562e…5644 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0037, t01=0x0054}
0x5644…5662 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0037, t01=0x006a}
0x5662…5684 Head {h00=0x001e, h01=0x0050, text=» RF(E) MKBE10 NO TIMING ! «, t00=0x0037, t01=0x0088}
0x5684…56ae Head {h00=0x0026, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6 SCRATCH TIMER«, t00=0x0037, t01=0x00aa}
0x56ae…56ca Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0037, t01=0x00d4}
0x56ca…56d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00f0}
0x56d6…56e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fc}
0x56e0…56f4 Head {h00=0x0010, h01=0x0050, text=»MKBE10 EQU *«, t00=0x0037, t01=0x0106}
0x56f4…5722 Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0037, t01=0x011a}
0x5722…572c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0148}
0x572c…5740 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0037, t01=0x0152}
0x5740…575a Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x0037, t01=0x0166}
0x575a…577e Head {h00=0x0020, h01=0x0050, text=» CF A5,ECHEND END OF ECHOING«, t00=0x0037, t01=0x0180}
0x577e…5790 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x0014}
0x5790…579c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0026}
0x579c…57a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0032}
0x57a6…57d6 Head {h00=0x002c, h01=0x0050, text=» ABL LENDIS PERFORM END I/O AND DIPATCH «, t00=0x0038, t01=0x003c}
0x57d6…57e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x006c}
0x57e4…5812 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0038, t01=0x007a}
0x5812…581c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a8}
0x581c…5826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b2}
0x5826…5844 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0038, t01=0x00bc}
0x5844…584e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00da}
0x584e…5858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x5858…5886 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0038, t01=0x00ee}
0x5886…5898 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0038, t01=0x011c}
0x5898…58c2 Head {h00=0x0026, h01=0x0050, text=» ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0038, t01=0x012e}
0x58c2…58d8 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0038, t01=0x0158}
0x58d8…5904 Head {h00=0x0028, h01=0x0050, text=» CF A15,RESTRT RESTART TIMEOUT TIMER«, t00=0x0038, t01=0x016e}
0x5904…5910 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x000a}
0x5910…591a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0016}
0x591a…5952 Head {h00=0x0034, h01=0x0050, text=»* STORE INCOMING CHARACTER IN CIRCULAR BUFFER «, t00=0x0039, t01=0x0020}
0x5952…595c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0058}
0x595c…5974 Head {h00=0x0014, h01=0x0050, text=» IFT OLDKB=1 =2«, t00=0x0039, t01=0x0062}
0x5974…599c Head {h00=0x0024, h01=0x0050, text=» LDR A1,A6 SPECIAL CONVERSION ? «, t00=0x0039, t01=0x007a}
0x599c…59ae Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0039, t01=0x00a2}
0x59ae…59c8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHKB02 NO !«, t00=0x0039, t01=0x00b4}
0x59c8…59fa Head {h00=0x002e, h01=0x0050, text=» ORK A2,/80 YES INDICATE BY SETTING BIT 8 «, t00=0x0039, t01=0x00ce}
0x59fa…5a06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0100}
0x5a06…5a2c Head {h00=0x0022, h01=0x0050, text=»IHKB02 LD A1,DWTDEV+DWTINQ,A6 «, t00=0x0039, t01=0x010c}
0x5a2c…5a3e Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0039, t01=0x0132}
0x5a3e…5a64 Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0039, t01=0x0144}
0x5a64…5a80 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB05 YES ! «, t00=0x0039, t01=0x016a}
0x5a80…5a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0186}
0x5a8a…5a9c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0039, t01=0x0190}
0x5a9c…5ad4 Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x003a, t01=0x0012}
0x5ad4…5ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004a}
0x5ade…5b08 Head {h00=0x0026, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ?«, t00=0x003a, t01=0x0054}
0x5b08…5b24 Head {h00=0x0018, h01=0x0050, text=» RF(NE) IHKB20 NO ! «, t00=0x003a, t01=0x007e}
0x5b24…5b4c Head {h00=0x0024, h01=0x0050, text=» LDK A1,/FF OVERFLOW INDICATION «, t00=0x003a, t01=0x009a}
0x5b4c…5b78 Head {h00=0x0028, h01=0x0050, text=» SCR A1,A4 SET OVFL. IND. IN BUFFER «, t00=0x003a, t01=0x00c2}
0x5b78…5b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ee}
0x5b82…5b96 Head {h00=0x0010, h01=0x0050, text=»IHKB05 EQU *«, t00=0x003a, t01=0x00f8}
0x5b96…5bb4 Head {h00=0x001a, h01=0x0050, text=» IFT NEWKB+OLDKB=2 =2«, t00=0x003a, t01=0x010c}
0x5bb4…5bdc Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV,A6 6236, 71, 72 ? «, t00=0x003a, t01=0x012a}
0x5bdc…5bf2 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x003a, t01=0x0152}
0x5bf2…5c0a Head {h00=0x0014, h01=0x0050, text=» RF(Z) EXIT NO !«, t00=0x003a, t01=0x0168}
0x5c0a…5c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0180}
0x5c14…5c20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x018a}
0x5c20…5c38 Head {h00=0x0014, h01=0x0050, text=» IFT NEWKB=1 =2«, t00=0x003b, t01=0x0008}
0x5c38…5c62 Head {h00=0x0026, h01=0x0050, text=» SUK A2,/70 KEYLOCK, SHIFT, CTRL ?«, t00=0x003b, t01=0x0020}
0x5c62…5c7a Head {h00=0x0014, h01=0x0050, text=» RF(N) EXIT NO !«, t00=0x003b, t01=0x004a}
0x5c7a…5c94 Head {h00=0x0016, h01=0x0050, text=» ADK A2,/70 YES ! «, t00=0x003b, t01=0x0062}
0x5c94…5c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x007c}
0x5c9e…5cb0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003b, t01=0x0086}
0x5cb0…5cca Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTDEV+1,A6«, t00=0x003b, t01=0x0098}
0x5cca…5cea Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003b, t01=0x00b2}
0x5cea…5cfc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x003b, t01=0x00d2}
0x5cfc…5d12 Head {h00=0x0012, h01=0x0050, text=» CF A15,EOQUEU«, t00=0x003b, t01=0x00e4}
0x5d12…5d42 Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 BUFFER FILLED ? «, t00=0x003b, t01=0x00fa}
0x5d42…5d5e Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB07 YES ! «, t00=0x003b, t01=0x012a}
0x5d5e…5d84 Head {h00=0x0022, h01=0x0050, text=» SCR A2,A4 STORE NEW CHARACTER«, t00=0x003b, t01=0x0146}
0x5d84…5db0 Head {h00=0x0028, h01=0x0050, text=» LDK A2,/FF MOVE OVERFLOW INDICATION«, t00=0x003b, t01=0x016c}
0x5db0…5dd4 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 FORWARD IN BUFFER«, t00=0x003c, t01=0x0008}
0x5dd4…5de6 Head {h00=0x000e, h01=0x0050, text=» RF IHKB20«, t00=0x003c, t01=0x002c}
0x5de6…5df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003e}
0x5df0…5e08 Head {h00=0x0014, h01=0x0050, text=»* CHECK BUFFER«, t00=0x003c, t01=0x0048}
0x5e08…5e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0060}
0x5e12…5e54 Head {h00=0x003e, h01=0x0050, text=»IHKB07 LD A1,DWTDEV+DWTINQ,A6 POINTER TO LAST POS IN BUF. «, t00=0x003c, t01=0x006a}
0x5e54…5e68 Head {h00=0x0010, h01=0x0050, text=»IHKB10 EQU *«, t00=0x003c, t01=0x00ac}
0x5e68…5e96 Head {h00=0x002a, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 END OF QUEUE ?«, t00=0x003c, t01=0x00c0}
0x5e96…5eb2 Head {h00=0x0018, h01=0x0050, text=» RF(E) IHKB19 YES ! «, t00=0x003c, t01=0x00ee}
0x5eb2…5ede Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x003c, t01=0x010a}
0x5ede…5ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0136}
0x5ee8…5f08 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A1 GET CHARACTER«, t00=0x003c, t01=0x0140}
0x5f08…5f1c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x003c, t01=0x0160}
0x5f1c…5f30 Head {h00=0x0010, h01=0x0050, text=» XRR A4,A2 «, t00=0x003c, t01=0x0174}
0x5f30…5f56 Head {h00=0x0022, h01=0x0050, text=» RF(Z) EXIT EQUAL CHARACTER ! «, t00=0x003c, t01=0x0188}
0x5f56…5f78 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 INVERTED CHAR. ?«, t00=0x003d, t01=0x001e}
0x5f78…5f94 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHKB17 NO ! «, t00=0x003d, t01=0x0040}
0x5f94…5fca Head {h00=0x0032, h01=0x0050, text=» LDK A2,/80 YES ! LOAD SKIP CHAR FOR CIRC BUF «, t00=0x003d, t01=0x005c}
0x5fca…5fdc Head {h00=0x000e, h01=0x0050, text=» RF IHKB18«, t00=0x003d, t01=0x0092}
0x5fdc…5fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a4}
0x5fe6…5ffa Head {h00=0x0010, h01=0x0050, text=»IHKB17 EQU *«, t00=0x003d, t01=0x00ae}
0x5ffa…6024 Head {h00=0x0026, h01=0x0050, text=» SUK A4,/F CTRL, SHIFT, KEYLOCK ? «, t00=0x003d, t01=0x00c2}
0x6024…6040 Head {h00=0x0018, h01=0x0050, text=» RB(N) IHKB10 YES ! «, t00=0x003d, t01=0x00ec}
0x6040…604a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0108}
0x604a…607c Head {h00=0x002e, h01=0x0050, text=»IHKB18 SCR A2,A1 NO ! STORE CHAR IN BUFFER«, t00=0x003d, t01=0x0112}
0x607c…608c Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x003d, t01=0x0144}
0x608c…6096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0154}
0x6096…60c2 Head {h00=0x0028, h01=0x0050, text=»* CHECK BUFFER AGAIN AND SORT OUT «, t00=0x003d, t01=0x015e}
0x60c2…60e8 Head {h00=0x0022, h01=0x0050, text=»* EQUAL AND INV. CHARACTERS «, t00=0x003d, t01=0x018a}
0x60e8…60f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0020}
0x60f2…6130 Head {h00=0x003a, h01=0x0050, text=»IHKB19 LC A4,DWTDEV+1,A6 SORT OUT EQUAL AND INV. CHAR «, t00=0x003e, t01=0x002a}
0x6130…6144 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x0068}
0x6144…6164 Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x003e, t01=0x007c}
0x6164…6180 Head {h00=0x0018, h01=0x0050, text=»IHKB21 CF A15,SOQUEU«, t00=0x003e, t01=0x009c}
0x6180…6192 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003e, t01=0x00b8}
0x6192…61a8 Head {h00=0x0012, h01=0x0050, text=» RB(NN) IHKB21«, t00=0x003e, t01=0x00ca}
0x61a8…61be Head {h00=0x0012, h01=0x0050, text=» IM DWTDEV,A6 «, t00=0x003e, t01=0x00e0}
0x61be…61ea Head {h00=0x0028, h01=0x0050, text=» LCR A4,A1 GET OLD CHAR FROM BUFFER «, t00=0x003e, t01=0x00f6}
0x61ea…6210 Head {h00=0x0022, h01=0x0050, text=» CCK A4,/FF00 END OF BUFFER ? «, t00=0x003e, t01=0x0122}
0x6210…622a Head {h00=0x0016, h01=0x0050, text=» RF(E) EXIT YES ! «, t00=0x003e, t01=0x0148}
0x622a…624e Head {h00=0x0020, h01=0x0050, text=» SCR A2,A1 STORE THE NEW ONE«, t00=0x003e, t01=0x0162}
0x624e…6270 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 PUT CHAR IN A2 «, t00=0x003e, t01=0x0186}
0x6270…6284 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003f, t01=0x0018}
0x6284…6296 Head {h00=0x000e, h01=0x0050, text=» RB IHKB07«, t00=0x003f, t01=0x002c}
0x6296…62a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x003e}
0x62a2…62ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x004a}
0x62ac…62e8 Head {h00=0x0038, h01=0x0050, text=»IHKB20 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER «, t00=0x003f, t01=0x0054}
0x62e8…6320 Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER«, t00=0x003f, t01=0x0090}
0x6320…632a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c8}
0x632a…634c Head {h00=0x001e, h01=0x0050, text=»EXIT ABL LDISP DISPATCH ! «, t00=0x003f, t01=0x00d2}
0x634c…635a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x00f4}
0x635a…6364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0102}
0x6364…638e Head {h00=0x0026, h01=0x0050, text=»* STORING (&ECHOING) SUBROUTINE «, t00=0x003f, t01=0x010c}
0x638e…63c0 Head {h00=0x002e, h01=0x0050, text=»* SKIPS OTHER CHARACTERS THAN DIGITS IF «, t00=0x003f, t01=0x0136}
0x63c0…63d8 Head {h00=0x0014, h01=0x0050, text=»* NUMERIC READ«, t00=0x003f, t01=0x0168}
0x63d8…63e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0180}
0x63e2…63f6 Head {h00=0x0010, h01=0x0050, text=»STOECH EQU *«, t00=0x003f, t01=0x018a}
0x63f6…6426 Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE CHAR. IN ECB-BUFFER «, t00=0x0040, t01=0x000e}
0x6426…6430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x003e}
0x6430…6444 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x0048}
0x6444…645e Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =2 «, t00=0x0040, t01=0x005c}
0x645e…647c Head {h00=0x001a, h01=0x0050, text=» RF EORECH DO NOT MASK«, t00=0x0040, t01=0x0076}
0x647c…6488 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0094}
0x6488…649c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0040, t01=0x00a0}
0x649c…64cc Head {h00=0x002c, h01=0x0050, text=»ECHSUB ANK A2,/7F MASK TO GET CHARACTER «, t00=0x0040, t01=0x00b4}
0x64cc…64e0 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU *«, t00=0x0040, t01=0x00e4}
0x64e0…64f6 Head {h00=0x0012, h01=0x0050, text=» IFT PLC=1 =2«, t00=0x0040, t01=0x00f8}
0x64f6…6534 Head {h00=0x003a, h01=0x0050, text=» LD A1,DWTDEV,A6 GET "MORE CHARACTERS" INDICATION BIT «, t00=0x0040, t01=0x010e}
0x6534…654a Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0800«, t00=0x0040, t01=0x014c}
0x654a…6578 Head {h00=0x002a, h01=0x0050, text=» XRS A1,DWTDEV,A6 RESET INDICATION BIT«, t00=0x0040, t01=0x0162}
0x6578…658a Head {h00=0x000e, h01=0x0050, text=» SLC A1,5 «, t00=0x0040, t01=0x0190}
0x658a…6596 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0012}
0x6596…65aa Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0041, t01=0x001e}
0x65aa…65cc Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x0041, t01=0x0032}
0x65cc…65d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0054}
0x65d8…65e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0060}
0x65e2…65f2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0041, t01=0x006a}
0x65f2…65fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x007a}
0x65fc…660a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0084}
0x660a…6620 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0041, t01=0x0092}
0x6620…662a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a8}
0x662a…6652 Head {h00=0x0024, h01=0x0050, text=»* THIS IS THE TIMEOUT ROUTINE «, t00=0x0041, t01=0x00b2}
0x6652…665c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00da}
0x665c…6670 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x0041, t01=0x00e4}
0x6670…6694 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 LOAD DWT-ADDRESS «, t00=0x0041, t01=0x00f8}
0x6694…66b0 Head {h00=0x0018, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 «, t00=0x0041, t01=0x011c}
0x66b0…66c8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0041, t01=0x0138}
0x66c8…66f8 Head {h00=0x002c, h01=0x0050, text=» ABL(N) LDISP DISPATCH IF NO REQUEST ON «, t00=0x0041, t01=0x0150}
0x66f8…6702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0180}
0x6702…6732 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0041, t01=0x018a}
0x6732…6760 Head {h00=0x002a, h01=0x0050, text=» LDR A5,A6 INITIATE DWT-STACK POINTER «, t00=0x0042, t01=0x002a}
0x6760…6778 Head {h00=0x0014, h01=0x0050, text=» ADKL A5,DWTSB2 «, t00=0x0042, t01=0x0058}
0x6778…67b0 Head {h00=0x0034, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD EFFECTIVE LENGTH FROM DWT«, t00=0x0042, t01=0x0070}
0x67b0…67dc Head {h00=0x0028, h01=0x0050, text=» LD A8,DWTECB,A6 RELOAD ECB-ADDRESS «, t00=0x0042, t01=0x00a8}
0x67dc…6800 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x0042, t01=0x00d4}
0x6800…6824 Head {h00=0x0020, h01=0x0050, text=» ABL MKBEND COMPLETE REQUEST«, t00=0x0042, t01=0x00f8}
0x6824…682e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x011c}
0x682e…6850 Head {h00=0x001e, h01=0x0050, text=»* RESTART TIMEOUT TIMER «, t00=0x0042, t01=0x0126}
0x6850…685a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0148}
0x685a…686e Head {h00=0x0010, h01=0x0050, text=»RESTRT EQU *«, t00=0x0042, t01=0x0152}
0x686e…688c Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x0042, t01=0x0166}
0x688c…68ac Head {h00=0x001c, h01=0x0050, text=» RF(E) NOTIME NO TIMING «, t00=0x0042, t01=0x0184}
0x68ac…68d0 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,-TIME RESTART TIMER«, t00=0x0043, t01=0x0014}
0x68d0…68f0 Head {h00=0x001c, h01=0x0050, text=» ST* A4,DWTTP+DWTDEV,A6 «, t00=0x0043, t01=0x0038}
0x68f0…6906 Head {h00=0x0012, h01=0x0050, text=»NOTIME RTN A15«, t00=0x0043, t01=0x0058}
0x6906…6912 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x006e}
0x6912…6920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x007a}
0x6920…692a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0088}
0x692a…695e Head {h00=0x0030, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER «, t00=0x0043, t01=0x0092}
0x695e…6992 Head {h00=0x0030, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x0043, t01=0x00c6}
0x6992…699c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00fa}
0x699c…69cc Head {h00=0x002c, h01=0x0050, text=»* ON ENTRY: A2 = CHARACTER TO STORE«, t00=0x0043, t01=0x0104}
0x69cc…69f6 Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0043, t01=0x0134}
0x69f6…6a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x015e}
0x6a00…6a14 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0043, t01=0x0168}
0x6a14…6a3a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADDRESS«, t00=0x0043, t01=0x017c}
0x6a3a…6a5e Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 ADD BUFFER INDEX «, t00=0x0044, t01=0x0012}
0x6a5e…6a8a Head {h00=0x0028, h01=0x0050, text=» SCR A2,A1 STORE CHARACTER IN BUFFER«, t00=0x0044, t01=0x0036}
0x6a8a…6ab2 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0044, t01=0x0062}
0x6ab2…6ac2 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0044, t01=0x008a}
0x6ac2…6acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x009a}
0x6acc…6b06 Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER «, t00=0x0044, t01=0x00a4}
0x6b06…6b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00de}
0x6b10…6b3c Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0044, t01=0x00e8}
0x6b3c…6b66 Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0044, t01=0x0114}
0x6b66…6b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x013e}
0x6b70…6b84 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0044, t01=0x0148}
0x6b84…6b96 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0044, t01=0x015c}
0x6b96…6ba8 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0044, t01=0x016e}
0x6ba8…6bd4 Head {h00=0x0028, h01=0x0050, text=» CWK A1,DWTDEV+DWTEQ END OF QUEUE ? «, t00=0x0044, t01=0x0180}
0x6bd4…6bea Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0045, t01=0x001c}
0x6bea…6c20 Head {h00=0x0032, h01=0x0050, text=» LDKL A1,DWTDEV+DWTSQ SET QUEUE START ADDRESS «, t00=0x0045, t01=0x0032}
0x6c20…6c38 Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0045, t01=0x0068}
0x6c38…6c48 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0045, t01=0x0080}
0x6c48…6c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0090}
0x6c52…6c90 Head {h00=0x003a, h01=0x0050, text=»* SOQUEUE = SUBROUTINE TO GET PREVIOUS QUEUE POINTER«, t00=0x0045, t01=0x009a}
0x6c90…6c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d8}
0x6c9a…6cc6 Head {h00=0x0028, h01=0x0050, text=»* ON ENTRY: A1 = QUEUE POINTER «, t00=0x0045, t01=0x00e2}
0x6cc6…6cf0 Head {h00=0x0026, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0045, t01=0x010e}
0x6cf0…6cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0138}
0x6cfa…6d0e Head {h00=0x0010, h01=0x0050, text=»SOQUEU EQU *«, t00=0x0045, t01=0x0142}
0x6d0e…6d20 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0045, t01=0x0156}
0x6d20…6d52 Head {h00=0x002e, h01=0x0050, text=» CWK A1,DWTDEV+DWTSQ FIRST POS IN QUEUE ? «, t00=0x0045, t01=0x0168}
0x6d52…6d6c Head {h00=0x0016, h01=0x0050, text=» RF(NE) SOQ10 NO !«, t00=0x0046, t01=0x000a}
0x6d6c…6da0 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,DWTDEV+DWTEQ GET LAST POS IN QUEUE «, t00=0x0046, t01=0x0024}
0x6da0…6db8 Head {h00=0x0014, h01=0x0050, text=»SOQ10 ADR A1,A6 «, t00=0x0046, t01=0x0058}
0x6db8…6de4 Head {h00=0x0028, h01=0x0050, text=» SUK A1,1 GET PREVIOUS POINTER POS. «, t00=0x0046, t01=0x0070}
0x6de4…6df4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0046, t01=0x009c}
0x6df4…6e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00ac}
0x6e02…6e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ba}
0x6e0c…6e22 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE «, t00=0x0046, t01=0x00c4}
0x6e22…6e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00da}
0x6e2c…6e40 Head {h00=0x0010, h01=0x0050, text=»BACKSP EQU *«, t00=0x0046, t01=0x00e4}
0x6e40…6e52 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0046, t01=0x00f8}
0x6e52…6e78 Head {h00=0x0022, h01=0x0050, text=» RF(Z) KBBSPA ECB-BUFFER EMPTY«, t00=0x0046, t01=0x010a}
0x6e78…6e9c Head {h00=0x0020, h01=0x0050, text=» SUK A3,1 ONE STEP BACKWARDS«, t00=0x0046, t01=0x0130}
0x6e9c…6eb8 Head {h00=0x0018, h01=0x0050, text=» SUR A2,A2 CLEAR A2 «, t00=0x0046, t01=0x0154}
0x6eb8…6ef0 Head {h00=0x0034, h01=0x0050, text=» CF A15,STORE STORE A BLANK INSTEAD OF LAST CHAR«, t00=0x0046, t01=0x0170}
0x6ef0…6f16 Head {h00=0x0022, h01=0x0050, text=» SUK A3,1 STEP BACKWARDS AGAIN«, t00=0x0047, t01=0x0018}
0x6f16…6f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x003e}
0x6f20…6f34 Head {h00=0x0010, h01=0x0050, text=»KBBSPA EQU *«, t00=0x0047, t01=0x0048}
0x6f34…6f48 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0047, t01=0x005c}
0x6f48…6f72 Head {h00=0x0026, h01=0x0050, text=» LDK A2,/8 BACKSPACE TO ECHODEVICE«, t00=0x0047, t01=0x0070}
0x6f72…6f7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x009a}
0x6f7e…6f92 Head {h00=0x0010, h01=0x0050, text=»KBBSP2 EQU *«, t00=0x0047, t01=0x00a6}
0x6f92…6fa6 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0047, t01=0x00ba}
0x6fa6…6fcc Head {h00=0x0022, h01=0x0050, text=» CF A5,ECHSUB ECHSUB CHARACTER«, t00=0x0047, t01=0x00ce}
0x6fcc…6fd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00f4}
0x6fd8…6ffa Head {h00=0x001e, h01=0x0050, text=» ABL MKB100 NEXT CHARACTER«, t00=0x0047, t01=0x0100}
0x6ffa…7004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0122}
0x7004…7016 Head {h00=0x000e, h01=0x0050, text=»* CLEAR «, t00=0x0047, t01=0x012c}
0x7016…7020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x013e}
0x7020…7034 Head {h00=0x0010, h01=0x0050, text=»CLEAR EQU * «, t00=0x0047, t01=0x0148}
0x7034…7056 Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 RESET ECB-BUFFER«, t00=0x0047, t01=0x015c}
0x7056…7078 Head {h00=0x001e, h01=0x0050, text=» RB KBBSP2 NEXT CHARACTER «, t00=0x0047, t01=0x017e}
0x7078…7086 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0010}
0x7086…7090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x001e}
0x7090…70aa Head {h00=0x0016, h01=0x0050, text=»* MULTIPLE ZERO «, t00=0x0048, t01=0x0028}
0x70aa…70b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0042}
0x70b4…70d2 Head {h00=0x001a, h01=0x0050, text=»MZ20 EQU * DOUBLE ZERO«, t00=0x0048, t01=0x004c}
0x70d2…70e4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0048, t01=0x006a}
0x70e4…70f4 Head {h00=0x000c, h01=0x0050, text=» RF MZ50«, t00=0x0048, t01=0x007c}
0x70f4…70fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x008c}
0x70fe…711c Head {h00=0x001a, h01=0x0050, text=»MZ30 EQU * TRIPLE ZERO«, t00=0x0048, t01=0x0096}
0x711c…712e Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0048, t01=0x00b4}
0x712e…7138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c6}
0x7138…714a Head {h00=0x000e, h01=0x0050, text=»MZ50 EQU *«, t00=0x0048, t01=0x00d0}
0x714a…716e Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 ANY MORE ZEROES ? «, t00=0x0048, t01=0x00e2}
0x716e…7198 Head {h00=0x0026, h01=0x0050, text=» ABL(L) MKB100 NO, NEXT CHARACTER «, t00=0x0048, t01=0x0106}
0x7198…71a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0130}
0x71a2…71b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x013a}
0x71b0…71bc Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0048, t01=0x0148}
0x71bc…71f0 Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 GET OUTQUEUE POINTER«, t00=0x0048, t01=0x0154}
0x71f0…721c Head {h00=0x0028, h01=0x0050, text=» CF A15,SOQUEU GET PREVIOUS POINTER «, t00=0x0048, t01=0x0188}
0x721c…7226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0024}
0x7226…7256 Head {h00=0x002c, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 ANY SPACE LEFT ?«, t00=0x0049, t01=0x002e}
0x7256…726e Head {h00=0x0014, h01=0x0050, text=» RF(E) MZ90 NO !«, t00=0x0049, t01=0x005e}
0x726e…7280 Head {h00=0x000e, h01=0x0050, text=»MZ75 EQU *«, t00=0x0049, t01=0x0076}
0x7280…72ba Head {h00=0x0036, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 STORE NEW OUTQUEUE POINTER«, t00=0x0049, t01=0x0088}
0x72ba…72ea Head {h00=0x002c, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRCULAR BUFF.«, t00=0x0049, t01=0x00c2}
0x72ea…72fc Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0049, t01=0x00f2}
0x72fc…730c Head {h00=0x000c, h01=0x0050, text=» RB MZ50«, t00=0x0049, t01=0x0104}
0x730c…7316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0114}
0x7316…7328 Head {h00=0x000e, h01=0x0050, text=»MZ80 EQU *«, t00=0x0049, t01=0x011e}
0x7328…7354 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OVERFLOW«, t00=0x0049, t01=0x0130}
0x7354…7366 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x0049, t01=0x015c}
0x7366…7396 Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 UPPDATE POINTER «, t00=0x0049, t01=0x016e}
0x7396…73cc Head {h00=0x0032, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH LENGTH AND«, t00=0x004a, t01=0x000e}
0x73cc…73ec Head {h00=0x001c, h01=0x0050, text=» ENB THROUGHPUT ERRORS «, t00=0x004a, t01=0x0044}
0x73ec…73f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0064}
0x73f6…740a Head {h00=0x0010, h01=0x0050, text=» ABL MKBEND «, t00=0x004a, t01=0x006e}
0x740a…7414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0082}
0x7414…7426 Head {h00=0x000e, h01=0x0050, text=»MZ90 EQU *«, t00=0x004a, t01=0x008c}
0x7426…7446 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 ALL ZEROES ? «, t00=0x004a, t01=0x009e}
0x7446…745e Head {h00=0x0014, h01=0x0050, text=» RB(E) MZ80 YES «, t00=0x004a, t01=0x00be}
0x745e…7488 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FFFF NO, MOVE IN-POINTER«, t00=0x004a, t01=0x00d6}
0x7488…74a8 Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTDEV+DWTINQ,A6«, t00=0x004a, t01=0x0100}
0x74a8…74b8 Head {h00=0x000c, h01=0x0050, text=» RB MZ75«, t00=0x004a, t01=0x0120}
0x74b8…74c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0130}
0x74c6…74d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x013e}
0x74d0…7500 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004a, t01=0x0148}
0x7500…750a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0178}
0x750a…7524 Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x004a, t01=0x0182}
0x7524…752e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x000c}
0x752e…755e Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x004b, t01=0x0016}
0x755e…7568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0046}
0x7568…757a Head {h00=0x000e, h01=0x0050, text=»ABKB EQU *«, t00=0x004b, t01=0x0050}
0x757a…75a4 Head {h00=0x0026, h01=0x0050, text=» CF A15,ABORT ABORT INPUT REQUEST «, t00=0x004b, t01=0x0062}
0x75a4…75ba Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x004b, t01=0x008c}
0x75ba…75d8 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTTP+DWTDEV,A6«, t00=0x004b, t01=0x00a2}
0x75d8…75f8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ABKB05 NO TIMER !«, t00=0x004b, t01=0x00c0}
0x75f8…7614 Head {h00=0x0018, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6«, t00=0x004b, t01=0x00e0}
0x7614…763c Head {h00=0x0024, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x004b, t01=0x00fc}
0x763c…7650 Head {h00=0x0010, h01=0x0050, text=»ABKB05 EQU *«, t00=0x004b, t01=0x0124}
0x7650…765c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0138}
0x765c…7666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0144}
0x7666…768e Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS WORD «, t00=0x004b, t01=0x014e}
0x768e…76b8 Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO END I/O ON KEYBOARD«, t00=0x004b, t01=0x0176}
0x76b8…76e6 Head {h00=0x002a, h01=0x0050, text=» SLC A4,2 GET ECHO-MODE INDICATION BIT«, t00=0x004c, t01=0x0010}
0x76e6…76fa Head {h00=0x0010, h01=0x0050, text=»ABKB10 EQU *«, t00=0x004c, t01=0x003e}
0x76fa…7724 Head {h00=0x0026, h01=0x0050, text=» ABL(NN) LDISP NOT AN ECHO REQUEST«, t00=0x004c, t01=0x0052}
0x7724…772e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x007c}
0x772e…7766 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTECH,A6 GET DWT-ADDRESS OF ECHO DEVICE «, t00=0x004c, t01=0x0086}
0x7766…7790 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTADR,A4 GET ADDRESS BLOCK«, t00=0x004c, t01=0x00be}
0x7790…77ca Head {h00=0x0036, h01=0x0050, text=» LD A3,ABTADR,A3 GET ABORT-ADDRESS OF ECHO DEVICE «, t00=0x004c, t01=0x00e8}
0x77ca…77fc Head {h00=0x002e, h01=0x0050, text=» RB(Z) ABKB10 ABORT-ADDRESS = 0 ! NO ABORT«, t00=0x004c, t01=0x0122}
0x77fc…7806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0154}
0x7806…783c Head {h00=0x0032, h01=0x0050, text=» LDR A6,A4 RESTORE DWT-ADDRESS OF ECHO DEVICE «, t00=0x004c, t01=0x015e}
0x783c…786e (77, 2, 166) Head {h00=0x002e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE 2 DISPLACEMENT «, t00=0x004d, t01=0x0004}
0x786e…7890 Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 ADD DWT-ADDRESS«, t00=0x004d, t01=0x0036}
0x7890…789a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0058}
0x789a…78ce Head {h00=0x0030, h01=0x0050, text=» ABR A3 JUMP TO ABORT ROUTINE OF ECHO DEVICE«, t00=0x004d, t01=0x0062}
0x78ce…78da Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004d, t01=0x0096}
0x78da…78de Head {h00=0x4004, h01=0x0000}
0x78de…78e2 00 4d 00 a2 ┆ M ┆
0x78e2…78ea (78, 1, 8) 20 04 00 00 00 4e 00 04 ┆ N ┆
0x78ea…793a (79, 0, 400) 43 5c 41 35 2c 31 2c 41 34 5c 47 45 54 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 00 9e 01 8e 00 22 00 50 5c 43 43 4b 5c 41 35 2c 27 3b 3b 27 5c 54 57 4f 20 53 45 4d 49 2d 43 4f 4c 4f 4e 53 3f 20 00 9f 00 24 00 16 00 50 5c 52 46 28 4e 45 ┆C A5,1,A4 GET NEXT CHARACTER " P CCK A5,';;' TWO SEMI-COLONS? $ P RF(NE┆
0x793a…798a 29 5c 43 4f 4e 3a 37 35 5c 4e 4f 21 00 9f 00 4a 00 2a 00 50 5c 43 57 4b 5c 41 33 2c 4e 43 48 54 49 44 5c 43 48 45 43 4b 20 49 46 20 45 4e 44 20 4f 46 20 52 45 43 4f 52 44 20 00 9f 00 64 00 34 00 50 5c 52 42 28 45 29 5c 43 4f 4e 3a 36 35 5c ┆) CON:75 NO! J * P CWK A3,NCHTID CHECK IF END OF RECORD d 4 P RB(E) CON:65 ┆
0x798a…79da 4e 4f 3a 20 53 45 4d 49 2d 43 4f 4c 4f 4e 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 52 45 43 4f 52 44 00 9f 00 92 00 10 00 50 43 4f 4e 3a 37 35 5c 45 51 55 5c 2a 00 9f 00 ca 00 32 00 50 5c 53 54 5c 41 31 2c 45 49 4e 50 42 46 2b 53 54 4b 45 ┆NO: SEMI-COLON CHARACTER IN RECORD PCON:75 EQU * 2 P ST A1,EINPBF+STKE┆
0x79da…7a2a 4e 44 5c 53 41 56 45 20 43 55 52 52 45 4e 54 20 44 45 53 54 49 4e 41 54 49 4f 4e 20 00 9f 00 de 00 22 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 9f 01 14 00 0e 00 50 5c 43 41 4c 4c 5c ┆ND SAVE CURRENT DESTINATION " P LDR A1,A9 GET START OF BUFFER P CALL ┆
0x7a2a…7a7a 4d 4f 56 45 00 9f 01 3a 00 0e 00 50 5c 52 42 5c 43 4f 4e 3a 34 30 00 9f 01 4c 00 10 00 50 43 4f 4e 45 58 5c 45 51 55 5c 2a 20 00 9f 01 5e 00 06 00 50 2a 20 00 9f 01 72 00 3e 00 50 2a 20 20 55 4e 4c 4f 41 44 20 43 41 53 53 45 54 54 45 20 49 ┆MOVE : P RB CON:40 L PCONEX EQU * ^ P* r > P* UNLOAD CASSETTE I┆
0x7a7a…7aca (80, 0, 400) 46 20 4e 4f 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 44 41 54 41 20 4f 4e 20 53 41 4d 45 20 43 41 53 53 45 54 54 45 00 9f 01 7c 00 06 00 50 2a 20 00 a0 00 2e 00 22 00 50 5c 43 46 5c 41 31 34 2c 52 44 42 4c 4b 5c 52 45 41 44 20 4e 45 58 54 20 ┆F NO APPLICATION DATA ON SAME CASSETTE | P* . " P CF A14,RDBLK READ NEXT ┆
0x7aca…7b1a 42 4c 4f 43 4b 20 00 a0 00 38 00 20 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 44 41 54 41 3f 00 a0 00 5e 00 16 00 50 5c 52 46 28 4e 5a 29 5c 43 4f 4e 3a 38 30 5c 4e 4f 21 00 a0 00 82 00 0e 00 50 5c 4c 44 4b ┆BLOCK 8 P LDR A1,A1 APPLICATION DATA? ^ P RF(NZ) CON:80 NO! P LDK┆
0x7b1a…7b6a 5c 41 31 2c 2f 44 00 a0 00 9c 00 2a 00 50 5c 43 46 5c 41 31 34 2c 43 48 43 52 49 4f 5c 53 45 41 52 43 48 20 54 41 50 45 4d 41 52 4b 20 52 45 56 45 52 53 45 00 a0 00 ae 00 22 00 50 5c 43 46 5c 41 31 34 2c 52 44 42 4c 4b 5c 42 59 50 41 53 53 ┆ A1,/D * P CF A14,CHCRIO SEARCH TAPEMARK REVERSE " P CF A14,RDBLK BYPASS┆
0x7b6a…7bba 20 54 41 50 45 4d 41 52 4b 20 00 a0 00 dc 00 0e 00 50 5c 52 46 5c 43 4f 4e 3a 39 30 00 a0 01 02 00 10 00 50 43 4f 4e 3a 38 30 5c 45 51 55 5c 2a 00 a0 01 14 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 2f 46 00 a0 01 28 00 22 00 50 5c 43 46 5c 41 31 ┆ TAPEMARK P RF CON:90 PCON:80 EQU * P LDK A1,/F ( " P CF A1┆
0x7bba…7c0a 34 2c 43 48 43 52 49 4f 5c 55 4e 4c 4f 41 44 20 43 41 53 53 45 54 54 45 00 a0 01 3a 00 10 00 50 43 4f 4e 3a 39 30 5c 45 51 55 5c 2a 00 a0 01 60 00 10 00 50 5c 41 42 4c 5c 43 4f 4e 4d 4f 56 20 00 a0 01 74 00 08 00 50 5c 58 49 46 00 a0 01 88 ┆4,CHCRIO UNLOAD CASSETTE : PCON:90 EQU * ` P ABL CONMOV t P XIF ┆
0x7c0a…7c5a (81, 0, 398) 00 10 00 50 43 4f 4e 45 52 52 5c 45 51 55 5c 2a 00 a1 00 04 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 34 20 00 a1 00 18 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 a1 00 2e 00 12 00 50 5c 49 46 46 5c 43 46 54 45 53 54 3d 31 20 ┆ PCONERR EQU * P LDKL A1,LMP4 P CALL ERROR . P IFF CFTEST=1 ┆
0x7c5a…7caa 00 a1 00 42 00 10 00 50 4d 45 4d 4f 46 4c 5c 45 51 55 5c 2a 00 a1 00 58 00 2a 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 00 a1 00 6c 00 10 00 50 5c 43 41 4c 4c 5c ┆ B PMEMOFL EQU * X * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ┆
0x7caa…7cfa 45 52 52 4f 52 20 00 a1 00 9a 00 0a 00 50 5c 45 4a 45 43 54 00 a1 00 ae 00 10 00 50 43 4f 4e 52 41 44 5c 45 51 55 5c 2a 00 a1 00 bc 00 06 00 50 2a 20 00 a1 00 d0 00 36 00 50 2a 20 20 4c 4f 41 44 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 ┆ERROR P EJECT PCONRAD EQU * P* 6 P* LOAD CONFIGURATION ┆
0x7cfa…7d4a 44 41 54 41 20 46 52 4f 4d 20 44 49 53 43 2f 46 4c 45 58 49 42 4c 45 20 44 49 53 43 00 a1 00 da 00 06 00 50 2a 20 00 a1 01 14 00 38 00 50 5c 4c 44 5c 41 31 2c 43 4f 4e 44 45 56 2b 53 54 4b 45 4e 44 5c 47 45 54 20 4c 4f 41 44 20 44 45 56 49 ┆DATA FROM DISC/FLEXIBLE DISC P* 8 P LD A1,CONDEV+STKEND GET LOAD DEVI┆
0x7d4a…7d98 43 45 20 46 4f 52 20 43 4f 4e 46 2e 20 44 41 54 41 20 00 a1 01 1e 00 2a 00 50 5c 52 46 28 5a 29 5c 43 4f 4e 52 41 30 5c 53 41 4d 45 20 41 53 20 50 47 4d 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 a1 01 5a 00 06 00 50 2a 20 00 a1 01 88 ┆CE FOR CONF. DATA * P RF(Z) CONRA0 SAME AS PGM LOAD DEVICE Z P* ┆
0x7d98…7de8 (82, 0, 400) 00 30 00 50 5c 43 46 5c 41 31 34 2c 43 4f 4e 46 4c 44 5c 49 4e 49 54 49 41 54 45 20 43 4f 4e 46 2e 20 44 41 54 41 20 4c 4f 41 44 20 44 45 56 2e 00 a2 00 04 00 10 00 50 43 4f 4e 52 41 30 5c 45 51 55 5c 2a 00 a2 00 38 00 2a 00 50 5c 4c 44 5c ┆ 0 P CF A14,CONFLD INITIATE CONF. DATA LOAD DEV. PCONRA0 EQU * 8 * P LD ┆
0x7de8…7e38 41 31 31 2c 43 4f 4e 44 41 44 2b 53 54 4b 45 4e 44 5c 47 45 54 20 53 54 41 52 54 20 53 45 43 54 4f 52 00 a2 00 4c 00 32 00 50 5c 4c 44 5c 41 31 32 2c 43 4f 4e 44 41 44 2b 32 2b 53 54 4b 45 4e 44 5c 4d 4f 53 54 20 53 49 47 4e 49 46 49 43 41 ┆A11,CONDAD+STKEND GET START SECTOR L 2 P LD A12,CONDAD+2+STKEND MOST SIGNIFICA┆
0x7e38…7e88 4e 54 20 50 41 52 54 20 00 a2 00 7a 00 22 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 a2 00 b0 00 24 00 50 5c 41 44 4b 4c 5c 41 31 2c 42 55 46 4c 45 4e 2d 36 5c 45 4e 44 20 4f 46 20 42 ┆NT PART z " P LDR A1,A9 GET START OF BUFFER $ P ADKL A1,BUFLEN-6 END OF B┆
0x7e88…7ed8 55 46 46 45 52 20 00 a2 00 d6 00 2c 00 50 5c 53 54 5c 41 31 2c 50 4c 44 41 44 52 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 45 4e 44 20 4f 46 20 42 55 46 46 45 52 20 00 a2 00 fe 00 22 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 47 45 54 20 53 54 41 ┆UFFER , P ST A1,PLDADR+STKEND SAVE END OF BUFFER " P LDR A1,A9 GET STA┆
0x7ed8…7f28 52 54 20 4f 46 20 42 55 46 46 45 52 00 a2 01 2e 00 26 00 50 5c 41 44 5c 41 31 2c 53 41 56 43 4f 4e 5c 53 54 41 52 54 20 4f 46 20 53 41 56 45 20 42 55 46 46 45 52 00 a2 01 54 00 20 00 50 5c 53 54 5c 41 31 2c 45 49 4e 50 42 46 2b 53 54 4b 45 ┆RT OF BUFFER . & P AD A1,SAVCON START OF SAVE BUFFER T P ST A1,EINPBF+STKE┆
0x7f28…7f78 (83, 0, 398) 4e 44 5c 53 41 56 45 5c 3d 32 00 a2 01 7e 00 18 00 50 5c 53 54 5c 41 31 2c 43 4f 4e 53 54 41 2b 53 54 4b 43 4f 4d 00 a3 00 12 00 24 00 50 5c 4c 44 4b 4c 5c 41 31 30 2c 30 5c 52 45 53 45 54 20 52 45 43 4f 52 44 20 43 4f 55 4e 54 45 52 00 a3 ┆ND SAVE =2 ~ P ST A1,CONSTA+STKCOM $ P LDKL A10,0 RESET RECORD COUNTER ┆
0x7f78…7fc8 00 2e 00 10 00 50 43 4f 52 3a 31 30 5c 45 51 55 5c 2a 00 a3 00 56 00 06 00 50 2a 20 00 a3 00 6a 00 30 00 50 2a 20 20 52 45 41 44 20 4f 4e 45 20 53 45 43 54 4f 52 20 46 52 4f 4d 20 52 41 4e 44 4f 4d 20 41 43 43 45 53 53 20 44 45 56 49 43 45 ┆ . PCOR:10 EQU * V P* j 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE┆
0x7fc8…8018 00 a3 00 74 00 06 00 50 2a 20 00 a3 00 a8 00 1e 00 50 5c 43 46 5c 41 31 34 2c 52 44 53 45 43 5c 52 45 41 44 20 53 45 43 54 4f 52 20 00 a3 00 b2 00 22 00 50 5c 4c 44 52 5c 41 38 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 ┆ t P* P CF A14,RDSEC READ SECTOR " P LDR A8,A9 GET START OF BUFF┆
0x8018…8068 45 52 00 a3 00 d4 00 10 00 50 43 4f 52 3a 32 30 5c 45 51 55 5c 2a 00 a3 00 fa 00 06 00 50 2a 20 00 a3 01 0e 00 32 00 50 2a 20 20 43 4f 4d 50 55 54 45 20 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 49 4e 20 54 48 49 53 20 ┆ER PCOR:20 EQU * P* 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS ┆
0x8068…80b6 52 45 43 4f 52 44 00 a3 01 18 00 06 00 50 2a 20 00 a3 01 4e 00 36 00 50 5c 4c 44 5c 41 31 2c 45 49 4e 50 42 46 2b 53 54 4b 45 4e 44 5c 47 45 54 20 43 55 52 52 45 4e 54 20 50 4f 49 4e 54 45 52 20 49 4e 20 42 55 46 46 45 52 00 a3 01 58 ┆RECORD P* N 6 P LD A1,EINPBF+STKEND GET CURRENT POINTER IN BUFFER X┆
0x80b6…8106 (84, 0, 400) 00 14 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 53 41 56 45 20 00 a4 00 04 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 52 45 53 45 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 20 00 a4 00 1c 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 38 ┆ P LDR A2,A1 SAVE & P LDK A3,0 RESET CHARACTER COUNTER P LDR A4,A8┆
0x8106…8156 5c 53 54 41 52 54 20 4f 46 20 52 45 43 4f 52 44 00 a4 00 46 00 06 00 50 2a 20 00 a4 00 68 00 1a 00 50 2a 20 20 4c 4f 4f 4b 20 49 46 20 57 45 20 48 41 56 45 20 41 4e 20 00 a4 00 72 00 20 00 50 2a 20 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 43 ┆ START OF RECORD F P* h P* LOOK IF WE HAVE AN r P* APPLICATION C┆
0x8156…81a6 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 00 a4 00 90 00 06 00 50 2a 20 00 a4 00 b4 00 26 00 50 5c 4c 44 52 2a 5c 41 35 2c 41 34 5c 47 45 54 20 31 53 54 20 57 4f 52 44 20 49 4e 20 42 55 46 46 45 52 00 a4 00 be 00 30 00 50 5c 43 57 4b 5c 41 35 2c ┆ONTROL BLOCK P* & P LDR* A5,A4 GET 1ST WORD IN BUFFER 0 P CWK A5,┆
0x81a6…81f6 27 44 3b 27 5c 44 41 54 41 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 44 45 46 2e 20 42 4c 4f 43 4b 3f 20 00 a4 00 e8 00 16 00 50 5c 52 46 28 45 29 5c 43 4f 52 3a 32 35 5c 59 45 53 21 00 a4 01 1c 00 06 00 50 2a 20 00 a4 01 36 00 28 00 50 ┆'D;' DATA COMMUNICATION DEF. BLOCK? P RF(E) COR:25 YES! P* 6 ( P┆
0x81f6…8246 5c 43 57 4b 5c 41 35 2c 27 41 3b 27 5c 41 4e 44 20 4c 4f 4f 4b 20 49 46 20 49 54 20 49 53 20 27 41 3b 27 20 00 a4 01 40 00 16 00 50 5c 52 46 28 4e 45 29 5c 43 4f 52 3a 33 30 5c 4e 4f 21 00 a4 01 6c 00 06 00 50 2a 20 00 a4 01 86 00 2a 00 50 ┆ CWK A5,'A;' AND LOOK IF IT IS 'A;' @ P RF(NE) COR:30 NO! l P* * P┆