|
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: 26820 (0x68c4)
Notes: pts_type(SC)
Names: »DRKB01.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/DRKB01.SC«
IDENT DRKB01 9.2DK 1 79-11-16 870105040920 =DK1, TIME OUT =2400 80-03-11 * * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRKB01 = DRIVER KEYBOARD * * * * * * ******************************************* * * * THIS DRIVER HANDLES INPUT FROM NUMERIC * AND ALPHANUMERIC KEYBOARDS PTS 6231, * 6232, 6233, 6234, 6331,AND 6342 * CONNECTED TO CPU VIA CHLT OR CHRT. * * ONLY INPUT DATA FROM DEPRESSED KEYS * ARE HANDLED BY THE DRIVER. * * AN ECHO-DEVICE CAN BE ATTACHED TO EVERY * KEYBOARD WHERE RECEIVED CHARACTERS ARE * ECHOED. * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C K B : ACTIVATION PART * * I H K B : INTERRUPT HANDLER * * E C H O : ECHO HANDLER * * R C K B : RECOVERY ROUTINE * EJECT * * * THE FOLLOWING ORDERS ARE THREATED: * * ORDER 01: BASIC READ * ORDER 02: STANDARD READ * ORDER 03: NUMERIC READ * ORDER 04: RESET INPUT BUFFER * * * NORMAL REGISTER USAGE : * * REGISTER A1 : RETURN CODE * A2 : INPUT CHARACTER * A3 : BUFFER INDEX * A4 : WORK REGISTER * A5 : STACK BASE * A6 : DWT-ADDRESS * A7 : ORDER * A8 : ECB-ADDRESS * EJECT * * * SYSTEM ADAPTATION * * KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD * IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ * AND BIT 11 FOR NUMERIC READ. * * BIT 10 = 0 FOR PTS 6231, 6233, 6234 * BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 * BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 * BIT 11 = 1 FOR PTS 6234,6342 * * CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, * MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED * IN DWT. * * DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE * DEFINED IN DWT. * * IF TIMING IS WANTED, TIMER POINTER * IN DWT MUST BE SET UNEQUAL TO ZERO. * STANDARD VALUE FOR TIME-OUT IS 30 SECONDS * SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * IS WANTED FOR A SYSTEM, INDICATOR * IN DRIVER MUST BE CHANGED. * * THE LENGTH OF THE CIRCULAR INPUT BUFFER IS * DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS * NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL * DWT:S IN SYSTEM EJECT * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: * * -----ECHO-FUNCTION * -----STANDARD READ * -----TIME-OUT-FUNCTION * -----CODE CONVERSION VIA "8-BIT" SETTING * AND CONVERSION TABLES * BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO * POSSIBLE TO GIVE A KEY THE MEANING OF TWO, * THREE OR MORE ZEROES. * * THE DRIVER IS PREPARED TO HANDLE THE SPECIAL * NORWAY-PROBLEM, WITH BETWEEN THEMSELVES * DEPENDENT KEYBOARDS CONNECTED TO THE SAME * SELECTOR UNIT. * BY ASSEMBLING THE DRIVER CONDITIONALLY THIS * FUNCTION IS INCLUDED. EJECT * * ************** * ENTRIES * ************** * ENTRY KBAD ADDRESS-BLOCK ENTRY EOQUEU QUEUE POINTER ROUTINE ENTRY DWTINQ,DWTUTQ QUEUE POINTERS * * * ********************************************** * EXTERNAL TOSS MODULE ENTRIES * ********************************************** * EXTRN DISIOE I/0 REQUEST ERROR EXTRN DISEND END I/O AND GO TO DISPATCHER EXTRN TENDIO END I/O EXTRN TDISP DISPATCHER ENTRY EXTRN LDREG LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER EXTRN LDREGE RETURN FROM ECHO HANDLING EXTRN LDREGF EXTRN SETIME SET TIME EXTRN SETIMP SET TIME EXTRN SAVE8 SAVE 8 REGISTERS EXTRN ECHRTN RETURN FROM ECHO EXTRN ECHO ECHO ROUTINE EXTRN ECHEND END OF ECHO * EJECT * ************************* * DWT PARAMETERS * ************************* * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTADR DRIVER ADDRESS BLOCK EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN DWTTP TIMER POINTER EXTRN DWTWAT SAVE INPUT DWT * *************** * CONSTANTS * *************** * OVMASK EQU /2 OVERFLOW IN INPUT BUFFER * X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER DWTLNG EQU 10 NUMBER OF BYTES IN DECIMAL FORM * * TIME BEFORE TIME-OUT * TIME EQU 2400 TIME OUT CONSTANT (FROM 300) DK1 * EJECT * * **************************************** * CONDITIONAL ASSEMBLY * **************************************** * * TIME OUT FUNCTION MAY BE EXCLUDED BY * SETTING X:A = 0. * X:A EQU 0 CTIMUT EQU 0 * * ECHO FUNCTION MAY BE EXCLUDED BY * SETTING X:B = 0. * X:B EQU 1 CECHO EQU 1 * * STANDARD READ MAY BE EXCLUDED BY * SETTING X:C = 0. * X:C EQU 1 CSTAND EQU 1 * * DOUBLE ZERO MAY BE INCLUDED IN SYSTEM * BY SETTING X:D = 2. SETTING X:D * = 3 GIVES A THREE ZERO FUNCTION AND * X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON * X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION * X:D EQU 2 CMULTZ EQU 2 * EJECT * * BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION * CAN BE INCLUDED IN THE DRIVER. * IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 * SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG * IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO * BE COMPLETED WITH CONTROL WORD SET TO -2. * X:E EQU 0 POWOFF EQU 0 ** ** * BY SETTING X:G TO 1 THE CODE CONVERSION VIA * "8-BIT" SETTING AND CONVERSION TABLES IS * INCLUDED IN THE DRIVER. ** X:G EQU 0 CONVER EQU 1 * * * THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS * BY SETTING CREDIT = 1 * ORDER /04 IS THEN REPLACED BY ORDER /31 * BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS * IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE * IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 * AND SO ON. (INDEX= 1,2,3,4,... ) * CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2 * * CREDIT EQU 1 * * BY SETTING NOLJE=1 THIS DRIVER IS PREPARED * TO HANDLE THE NORWAY-CASE WITH BETWEEN * THEMSELVES DEPENDENT KEYBOARDS ON THE * SAME SELECTOR UNIT. * NOLJE EQU 0 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * MMU BUFFER SIZE * * X:J EQU 10 DVBLEN EQU 000 * * * MMU KEY TABLE SIZE * * X:K EQU 10 DVBKTB EQU 00 * EJECT * * *************************** * DWT-DISPLACEMENT * *************************** * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTCON EQU START+/00 CONVERSION TABLE DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE DWTSQ EQU START+/1C START OF QUEUE DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE * ***************************************** * SPECIAL KEYS DEFINED IN DWT * ***************************************** * KBBSP EQU START+/14 BACK-SPACE CHARACTER KBCLR EQU START+/15 CLEAR CHARACTER KBEOF EQU START+/16 EOR-CHARACTER KBMZ EQU START+/17 DOUBLE ZERO CHARACTER * EJECT * * ************** * TABLES * ************** * DATA DVBKTB KEY TABLE SIZE DATA DVBLEN MMU BUFFER SIZE DATA 6 DEVICE INDEX KBAD EQU * DATA ACKB ACTIVATION DRIVER DATA 0 ABORT ROUTINE ADDRESS DATA IHKB INTERRUPT HANDLER * IFF POWOFF=1 * DATA 0 NO RECOVERY * XIF * * IFT POWOFF=1 * DATA RCKB RECOVERY ROUTINE EJECT * * * R C K B * * THIS IS THE RECOVERY ROUTINE FOR KEYBOARD * ENTERED FROM CHLT/CHRT DRIVER * RCKB EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * IFT POWOFF=1 LD A3,DWTST,A6 BUSY ? RF(NN) RCKB10 LDKL A1,/200 ORS A1,DWTST,A6 INDICATE POWER OFF OCCURED ABL TDISP RCKB10 CF A5,LDREGE LOAD REGISTERS RF AKB202 * XIF * EJECT * * * A C K B * * ACTIVATION PART: * * CHECKS VALIDITY OF ORDERS AND EXAMINES * INPUT BUFFER TO SEE IF SOME QUEUED * TO THREAT. * * ACKB EQU * LDKL A1,/FEFF ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG LDK A1,0 LDK A3,0 START BUFFER INDEX LDR A4,A7 RF(NG) AKB100 ILLEGEAL ORDER IFT NOLJE=1 CWK A7,/37 SELECT KEYBOARD RF(E) AKBSEL XIF IFT CSTAND=0 SUK A4,2 RF(Z) AKB100 STANDARD READ NOT ALLOWED ADK A4,2 XIF SUK A4,4 IFT CREDIT=1 SUK A4,/2D RF(Z) CRE:10 SKIP INPUT BUFFER ADK A4,/2D CRE:10 EQU * XIF RF(Z) AKB110 ORDER 4 RF(N) AKB200 ORDER 1,2 OR 3 AKB100 ORKL A1,/8000 I/O REQUEST ERROR ABL ENDI10 EJECT * * * ORDER 4 RESET INPUT BUFFER * AKB110 LD A2,DWTINQ,A6 ORDER 4 SCR A1,A2 RESET OVERFLOW IF OCCURED ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE ABL ENDI05 END I/O IFT NOLJE=1 * * * ORDER 37 SELECT KEYBOARD * AKBSEL LDKL A2,/FF7F ANRS A2,A6 RESET ALLOW BITS IN DWTCHP ABL ENDI10 XIF EJECT * * * ORDER 1 2 3 * * AKB200 EQU * * IFT POWOFF=1 * LD A2,DWTST,A6 ANKL A2,/200 POWER OFF ? RF(E) AKB205 XRS A2,DWTST,A6 RESET BIT XIF AKB202 EQU * IFT CREDIT-POWOFF=-1 LDKL A1,-2 INDICATE POWER ON ST A1,10,A8 XIF IFT CREDIT+POWOFF=2 CM 10,A8 INDICATE POWER ON XIF IFT POWOFF=1 ABL AKB380 * XIF * AKB205 EQU * * IFT CTIMUT=1 * LDR* A1,A6 ANK A1,/40 TIMING ? RF(E) AKB210 NO TIMING FOR THIS DEVICE LD A4,DWTTP,A6 RF(E) AKBTIM LDKL A4,-TIME ST* A4,DWTTP,A6 RF AKB210 AKBTIM EQU * LDKL A4,DWTTP TIMER POINTER ADR A4,A6 ADD DWT-ADDRESS LDR A1,A6 CF A15,SETIMP SET TIME DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT * XIF * AKB210 LD A2,4,A8 REQUESTED LENGTH AKB220 RF(E) AKB380 RESET A1 AND END I/O LDR A3,A3 FIRST TIME ? RF(NE) AKB240 NO LD A1,2,A8 BUFFER ADDRESS SUK A1,1 ADR A1,A2 ADDRESS IN BUFFER AKB230 SCR A3,A1 STORE CHARACTER SUK A1,1 NEXT CHAR. POSITION SUK A2,1 LAST ? RB(NE) AKB230 NO EJECT * * READ CHARACTER FROM INPUT BUFFER OR * WAIT FOR KEY-BOARD INTERRUPT * AKB240 EQU * LD A1,DWTUTQ,A6 LCR A2,A1 CHAR. TO A2 LDR A4,A2 XRK A4,/FF OVERFLOW ? RF(NE) AKB250 SCR A4,A1 RESET OVERFLOW MARK LDK A1,OVMASK OVERFLOW SET RF ENDIO AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? RF(NE) AKB260 CF A5,STREG NOTHING IN QUEUE IFT CTIMUT=1 LDR A1,A1 CHECK TIME OUT RETURN CODE RF(Z) AKB270 NO TIME-OUT RF ENDI05 END I/O AT TIME OUT XIF IFT CTIMUT=0 RF AKB270 XIF AKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER ST A1,DWTUTQ,A6 STORE NEW POINTER AKB270 LDR A4,A7 SUK A4,2 RF(NN) AKB310 ORDER 2 OR 3 EJECT * * * ORDER 1 BASIC READ * CF A15,STORE STORE CHARACTER IN ECB-BUFFER IFT CECHO=1 CF A5,ECHO ECHO INPUTTED CHARACTER XIF CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? RB AKB220 EJECT * * * ORDER 2 OR 3 STANDARD AND NUMERIC READ * * CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE * * AKB310 LD A1,10,A8 KEY-TABLE ADDRESS RF(Z) AKB359 NO KEYTABLE LCR A4,A1 TABLE LENGTH IN A4 ANK A4,/FF ADR A1,A4 LAST PLACE IN KEY-TABLE ADK A1,1 AKB355 SUK A4,1 RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE SUK A1,1 NEXT KEY CCR A2,A1 EOR-CHARACTER? RB(NE) AKB355 NO IFT CREDIT=0 ADR A4,A4 YES DOUBLE INDEX XIF IFT CREDIT=1 ADK A4,1 INDEX STARTS AT ONE,INCR=1 XIF ST A4,10,A8 STORE INDEX IN CONTROLWORD AKB358 CF A15,STORE STORE CHARACTER RF AKB370 * * AKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY RB(E) AKB358 YES EJECT * * CHARACTER NOT FOUND IN KEY-TABLE. * CHECK CHARACTER CODE. * AKB360 EQU * CF A5,CHEK CHECK CHARACTER LDR* A4,A6 GET CHANNEL PARAMETER ANK A4,/20 SHIFT BIT 9 ? RF(E) AKB361 YES LDR A4,A2 CHARACTER RF AKB363 AKB361 EQU * LDR* A4,A6 ANK A4,/10 PTS 6234 ? RF(E) AKB362 LDR A4,A2 ANK A4,/80 RF(NE) AKB362 LDR A4,A2 RF AKB363 AKB362 EQU * LDR A4,A2 CHARACTER ANK A4,/BF RESET BIT 9 AKB363 EQU * IFF CMULTZ=0 CC A4,KBMZ,A6 MULTIPLE ZERO ? RF(E) KBMZ10 YES! XIF CC A4,KBCLR,A6 CLEAR? RF(E) KBCL10 CC A4,KBBSP,A6 BACKSPACE? RF(E) KBSP10 LDR A1,A1 RETURN CODE? RF(NE) AKB369 YES,STORE AND END I/O CF A15,STORE AKB365 EQU * IFT CECHO=1 CF A5,ECHO ECHOCHARACTER XIF CW A3,4,A8 LENGTH OVERFLOW? RB(L) AKB210 NO AKB368 LDK A1,8 SET RETURN CODE RF ENDIO AND END I/O AKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER RF ENDIO END I/O REQUEST EJECT * * * CHECK CODE OF END OF RECORD KEY * * AKB370 EQU * IFT CECHO=1 CF A5,CHEK CHECK CHARACTER ORK A2,/80 INDICATE END OF RECORD LDR A1,A1 RETURN CODE? RF(NE) AKB380 CF A5,ECHO ECHO CHARACTER * XIF * AKB380 LDK A1,0 RETURN CODE EJECT * * * THIS IS A COMMON END OF THE DRIVER * * SET EFFECTIVE LENGTH AND PERFORM END I/O * ON KEYBOARD AND ECHO-DEVICE * * ENDIO EQU * * IFT CTIMUT=1 INH LD A4,DWTTP,A6 RF(E) ENDI05 NO TIMING ON THIS DEVICE CM* DWTTP,A6 RESET TIMER CM DWTTP,A6 XIF * ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ENDI10 EQU * * IFT CECHO=1 LDR A4,A1 SAVE A1 CF A5,ECHEND END I/O ON ECHO DEVICE LDR A1,A4 RESTORE A1 XIF * ABL DISEND END I/O ON KEYBOARD AND DISPATCH EJECT * * MULTIPLE ZERO * IFF CMULTZ=0 KBMZ10 EQU * LDK A4,CMULTZ LOAD NUMBER OF ZEROES KBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO SUK A4,1 RB(L) AKB240 ALL DONE LDR A1,A4 SAVE A4 CF A15,STORE STORE ZOERO IN ECB-BUFFER LDR A4,A1 RESTORE A4 * IFT CECHO=1 * CF A5,ECHO ECHO ZERO XIF * * IFF CMULTZ=0 * CW A3,4,A8 LENGTH OVERFLOW ? RB(L) KBMZ20 NO KBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? RB(L) AKB368 NO INH LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER SUR A1,A6 CWK A1,DWTSQ FIRST POSITION ? RF(NE) KBMZ30 NO LDK A1,DWTEQ GET LAST POSITION IN QUEUE ADR A1,A6 SUK A1,1 RF KBMZ40 KBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION SUK A1,1 KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? RF(E) KBMZ90 NO NOT REALY. ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER LDK A2,/30 STORE ZERO IN CIRKULAR SCR A2,A1 INPUT BUFFER RB KBMZ25 ONCE MORE TIME !! KBMZ90 EQU * LDK A4,/FF INDICATE BUFFER OWERFLOW SCR A4,A1 ST A1,DWTUTQ,A6 UPPDATE POINTER LDK A1,/A SET RETURN CODE FOR BOTH RB ENDIO LENGTH AND THRUGHPUT ERRORS XIF * * CLEAR * KBCL10 LDK A3,0 RESET BUFFER INDEX LDK A2,/18 CHANGE CHARACTER-CODE RB AKB365 * * BACKSPACE * KBSP10 LDR A3,A3 FIRST CHARACTER? RF(Z) KBSP15 SUK A3,1 DECREMENT BUFFER INDEX LDK A2,/00 CLEAR ECB-BUFFER CF A15,STORE SUK A3,1 DECREMENT INDEX KBSP15 LDK A2,/8 CHANGE CHARACTER-CODE RB AKB365 EJECT * * C H E K * * * SUBROUTINE TO CHECK INPUT CHARACTER * * ON ENTRY: * * A2 = CHARACTER * A3 = BUFFER INDEX * A6 = DWT-ADDRESS * A7 = ORDER * * * ON EXIT: * * A1 = RETURN CODE * CHEK EQU * STR A2,A15 SAVE A2 ON STACK ANK A2,/FF LDR* A1,A6 CHANNEL PARAMETER * IFT CSTAND=1 * CWK A7,2 ORDER 2? RF(NE) CHEK05 NO ANK A1,/20 ORK A1,/5F 5F OR 7F AS UPPER LIMIT LDK A4,/20 LOWER LIMIT RF CHEK08 * XIF * CHEK05 ANK A1,/10 RF(NE) CHEK06 ANK A2,/3F RESET BIT 9 CHEK06 LDK A1,/39 UPPER LIMIT LDK A4,/30 LOWER LIMIT CHEK08 SUR A1,A2 RF(N) CHERRO CODE CHECK ERROR SUR A4,A2 RF(P) CHERRO CODE CHECK ERROR LDR* A1,A15 CHEK10 LDK A1,0 RETURN CODE CHEK20 RTN A5 * * * CODE CHECK ERROR * CHERRO LDK A1,4 SET RETURN CODE AND RETURN LDR* A2,A15 RELOAD CHARACTER RB CHEK20 EJECT * * * I H K B * * THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER * * IHKB EQU * IFT NOLJE=1 LDR* A3,A6 GET ALLOW BITS ANK A3,/C0 RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS LDK A4,1 ANK A3,/80 RF(E) IHNOL1 LDK A4,5 IHNOL1 LDR A3,A2 SRL A3,12 CWR A3,A4 RF(NE) EXIT IHNOL2 EQU * XIF * IFT CONVER=1 * LDR A4,A2 INPUT WORD SRL A4,11 DEVICE ADDRESS * 2 ANK A4,/E CC A4,DWTBC,A6 8-BIT SETTING ? RF(NE) IHKB03 LDR A3,A2 ANK A3,/3F SUK A3,/30 RF(N) IHKB01 SUK A3,/A RF(N) IHKB02 IHKB01 ORK A2,/80 RF IHKB04 IHKB02 ANKL A2,/FF3F RF IHKB04 IHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS RF(E) IHKB04 LDR A4,A2 ANK A4,/FF SRL A4,3 LINE INDEX ADR A3,A4 LDR* A3,A3 COLUMN TABLE ADDRESS RF(E) IHKB04 LDR A4,A2 ANK A4,/F ADR A3,A4 ADD ROW INDEX LCR A2,A3 GET CHARACTER IHKB04 EQU * * XIF * * IFT NOLJE=1 * LDR A3,A2 ANK A3,/3F SUK A3,/22 RF(Z) IHNOL6 SUK A3,1 RF(NZ) IHNOL8 RF IHNOL7 IHNOL6 ADK A2,7 IHNOL7 ANKL A2,/FF3F IHNOL8 EQU * * XIF * LD A3,DWTST,A6 I/O REQUEST? RF(N) IHKB10 SLL A3,7 INTERRUPTS ALLOWED? RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER * IFT CTIMUT=1 * LD A3,DWTTP,A6 RF(E) IHKB05 NO TIMING ON THIS DEVICE LDKL A3,-TIME RESTART TIME ST* A3,DWTTP,A6 * XIF * IHKB05 ABL LDREG RETURN TO READ ROUTINE IHKB10 LD A1,DWTINQ,A6 LCR A4,A1 XRK A4,/FF ALREADY OVERFLOW ? RF(E) EXIT YES LDR A3,A1 CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS CW A1,DWTUTQ,A6 OVERFLOW? RF(NE) IHKB20 NO! ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER RF IHKB30 IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER IHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER EXIT ABL TDISP IFT NOLJE=1 IHNOL3 LDR A3,A2 SRL A3,12 LDK A4,/40 SUK A3,1 RF(E) IHNOL4 LDK A4,/80 SUK A3,4 RB(NE) IHNOL2 IHNOL4 ORRS A4,A6 SET ALLOW BIT RB IHNOL2 XIF EJECT * * * A K B T U T * * THIS IS THE TIME-OUT ROUTINE * * IFT CTIMUT=1 * AKBTUT EQU * LDR A6,A1 GET DWT-ADDRESS CM DWTTP,A6 LD A1,DWTST,A6 RB(N) EXIT LDK A1,/40 SET RETURN CODE RB IHKB05 RESTORE REGISTERS AND END I/O * XIF EJECT * * STORE = SUBROUTINE TO STORE A CHARACTER IN * ECB-BUFFER AND INCREMENT BUFFER INDEX * * ON ENTRY: * * A2 = CHARACTER TO STORE * A3 = BUFFER INDEX * * STORE EQU * LD A4,2,A8 BUFFER ADDRESS ADR A4,A3 ADD BUFFER INDEX SCR A2,A4 STORE CHARACTER IN BUFFER ADK A3,1 INCREMENT BUFFER INDEX ANK A2,/7F RF EOQU20 RTN A15 AND ENB EJECT * * * EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER * * ON ENTRY: * * A1 = QUEUE POINTER * A6 = DWT-ADDRESS * * ON EXIT: * * A1 = NEW QUEUE POINTER EOQUEU EQU * INH ADK A1,1 SUR A1,A6 CWK A1,DWTEQ END OF QUEUE? RF(NE) EOQU10 LDK A1,DWTSQ SET QUEUE START ADDRESS EOQU10 ADR A1,A6 EOQU20 ADKL A15,2 RETURN AND ENABLE ENB LDR* P,A15 * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRKB01 9.2DK 1 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» =DK1, TIME OUT =2400 «, t00=0x0000, t01=0x0042}
0x005e…0072 Head {h00=0x0010, h01=0x0050, text=» 80-03-11 «, t00=0x0000, t01=0x0062}
0x0072…007a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0076}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00c2 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0092}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00f4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00d0}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0122 Head {h00=0x0020, h01=0x0050, text=»* DRKB01 = DRIVER KEYBOARD«, t00=0x0000, t01=0x0102}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0192 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x0162}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a6…01da Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT FROM NUMERIC «, t00=0x0001, t01=0x001c}
0x01da…020c Head {h00=0x002e, h01=0x0050, text=»* AND ALPHANUMERIC KEYBOARDS PTS 6231, «, t00=0x0001, t01=0x0050}
0x020c…0238 Head {h00=0x0028, h01=0x0050, text=»* 6232, 6233, 6234, 6331,AND 6342«, t00=0x0001, t01=0x0082}
0x0238…0268 Head {h00=0x002c, h01=0x0050, text=»* CONNECTED TO CPU VIA CHLT OR CHRT. «, t00=0x0001, t01=0x00ae}
0x0268…0272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0272…02a2 Head {h00=0x002c, h01=0x0050, text=»* ONLY INPUT DATA FROM DEPRESSED KEYS«, t00=0x0001, t01=0x00e8}
0x02a2…02ca Head {h00=0x0024, h01=0x0050, text=»* ARE HANDLED BY THE DRIVER. «, t00=0x0001, t01=0x0118}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d4…0308 Head {h00=0x0030, h01=0x0050, text=»* AN ECHO-DEVICE CAN BE ATTACHED TO EVERY«, t00=0x0001, t01=0x014a}
0x0308…033c Head {h00=0x0030, h01=0x0050, text=»* KEYBOARD WHERE RECEIVED CHARACTERS ARE «, t00=0x0001, t01=0x017e}
0x033c…0350 Head {h00=0x0010, h01=0x0050, text=»* ECHOED.«, t00=0x0002, t01=0x0022}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0036}
0x035a…038e Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0040}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x0398…03be Head {h00=0x0022, h01=0x0050, text=»* A C K B : ACTIVATION PART«, t00=0x0002, t01=0x007e}
0x03be…03c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03c8…03f0 Head {h00=0x0024, h01=0x0050, text=»* I H K B : INTERRUPT HANDLER«, t00=0x0002, t01=0x00ae}
0x03f0…03fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fa…041e Head {h00=0x0020, h01=0x0050, text=»* E C H O : ECHO HANDLER «, t00=0x0002, t01=0x00e0}
0x041e…0428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0104}
0x0428…0450 Head {h00=0x0024, h01=0x0050, text=»* R C K B : RECOVERY ROUTINE «, t00=0x0002, t01=0x010e}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045a…0468 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0140}
0x0468…0472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0472…047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0158}
0x047c…04ac Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0162}
0x04ac…04b6 (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04b6…04d8 Head {h00=0x001e, h01=0x0050, text=»* ORDER 01: BASIC READ «, t00=0x0003, t01=0x000e}
0x04d8…04fc Head {h00=0x0020, h01=0x0050, text=»* ORDER 02: STANDARD READ«, t00=0x0003, t01=0x0030}
0x04fc…0520 Head {h00=0x0020, h01=0x0050, text=»* ORDER 03: NUMERIC READ «, t00=0x0003, t01=0x0054}
0x0520…054a Head {h00=0x0026, h01=0x0050, text=»* ORDER 04: RESET INPUT BUFFER «, t00=0x0003, t01=0x0078}
0x054a…0554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x055e…0582 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE :«, t00=0x0003, t01=0x00b6}
0x0582…058c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00da}
0x058c…05b2 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 : RETURN CODE«, t00=0x0003, t01=0x00e4}
0x05b2…05dc Head {h00=0x0026, h01=0x0050, text=»* A2 : INPUT CHARACTER«, t00=0x0003, t01=0x010a}
0x05dc…0604 Head {h00=0x0024, h01=0x0050, text=»* A3 : BUFFER INDEX «, t00=0x0003, t01=0x0134}
0x0604…062c Head {h00=0x0024, h01=0x0050, text=»* A4 : WORK REGISTER«, t00=0x0003, t01=0x015c}
0x062c…0652 Head {h00=0x0022, h01=0x0050, text=»* A5 : STACK BASE «, t00=0x0003, t01=0x0184}
0x0652…0678 Head {h00=0x0022, h01=0x0050, text=»* A6 : DWT-ADDRESS«, t00=0x0004, t01=0x001a}
0x0678…0698 Head {h00=0x001c, h01=0x0050, text=»* A7 : ORDER«, t00=0x0004, t01=0x0040}
0x0698…06be Head {h00=0x0022, h01=0x0050, text=»* A8 : ECB-ADDRESS«, t00=0x0004, t01=0x0060}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0086}
0x06c8…06d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0090}
0x06d6…06e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ea…0708 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x00b2}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0712…074a Head {h00=0x0034, h01=0x0050, text=»* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD«, t00=0x0004, t01=0x00da}
0x074a…0788 Head {h00=0x003a, h01=0x0050, text=»* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC READ «, t00=0x0004, t01=0x0112}
0x0788…07b2 Head {h00=0x0026, h01=0x0050, text=»* AND BIT 11 FOR NUMERIC READ. «, t00=0x0004, t01=0x0150}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07bc…07ec Head {h00=0x002c, h01=0x0050, text=»* BIT 10 = 0 FOR PTS 6231, 6233, 6234«, t00=0x0004, t01=0x0184}
0x07ec…0820 Head {h00=0x0030, h01=0x0050, text=»* BIT 10 = 1 FOR PTS 6232, 6331 AND 6342 «, t00=0x0005, t01=0x0024}
0x0820…0860 Head {h00=0x003c, h01=0x0050, text=»* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 «, t00=0x0005, t01=0x0058}
0x0860…088a Head {h00=0x0026, h01=0x0050, text=»* BIT 11 = 1 FOR PTS 6234,6342 «, t00=0x0005, t01=0x0098}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c2}
0x0894…08d0 Head {h00=0x0038, h01=0x0050, text=»* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, «, t00=0x0005, t01=0x00cc}
0x08d0…090c Head {h00=0x0038, h01=0x0050, text=»* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED «, t00=0x0005, t01=0x0108}
0x090c…0920 Head {h00=0x0010, h01=0x0050, text=»* IN DWT.«, t00=0x0005, t01=0x0144}
0x0920…092a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092a…0960 Head {h00=0x0032, h01=0x0050, text=»* DWT-ADDRESS OF ECHO-OUTPUT-DEVICE MUST BE«, t00=0x0005, t01=0x0162}
0x0960…097c Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DWT.«, t00=0x0006, t01=0x0008}
0x097c…0986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0024}
0x0986…09b6 Head {h00=0x002c, h01=0x0050, text=»* IF TIMING IS WANTED, TIMER POINTER «, t00=0x0006, t01=0x002e}
0x09b6…09e6 Head {h00=0x002c, h01=0x0050, text=»* IN DWT MUST BE SET UNEQUAL TO ZERO.«, t00=0x0006, t01=0x005e}
0x09e6…0a1c Head {h00=0x0032, h01=0x0050, text=»* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS«, t00=0x0006, t01=0x008e}
0x0a1c…0a54 Head {h00=0x0034, h01=0x0050, text=»* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE «, t00=0x0006, t01=0x00c4}
0x0a54…0a82 Head {h00=0x002a, h01=0x0050, text=»* IS WANTED FOR A SYSTEM, INDICATOR«, t00=0x0006, t01=0x00fc}
0x0a82…0aaa Head {h00=0x0024, h01=0x0050, text=»* IN DRIVER MUST BE CHANGED. «, t00=0x0006, t01=0x012a}
0x0aaa…0ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab4…0aec Head {h00=0x0034, h01=0x0050, text=»* THE LENGTH OF THE CIRCULAR INPUT BUFFER IS «, t00=0x0006, t01=0x015c}
0x0aec…0b28 (7, 0, 398) Head {h00=0x0038, h01=0x0050, text=»* DEFINED IN DWT. STANDARD VALUE IS 7 CHARACTERS «, t00=0x0007, t01=0x0004}
0x0b28…0b64 Head {h00=0x0038, h01=0x0050, text=»* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL «, t00=0x0007, t01=0x0040}
0x0b64…0b80 Head {h00=0x0018, h01=0x0050, text=»* DWT:S IN SYSTEM«, t00=0x0007, t01=0x007c}
0x0b80…0b8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0098}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b98…0bd4 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x0007, t01=0x00b0}
0x0bd4…0c10 Head {h00=0x0038, h01=0x0050, text=»* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS:«, t00=0x0007, t01=0x00ec}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0128}
0x0c1a…0c3a Head {h00=0x001c, h01=0x0050, text=»* -----ECHO-FUNCTION «, t00=0x0007, t01=0x0132}
0x0c3a…0c5a Head {h00=0x001c, h01=0x0050, text=»* -----STANDARD READ «, t00=0x0007, t01=0x0152}
0x0c5a…0c7e Head {h00=0x0020, h01=0x0050, text=»* -----TIME-OUT-FUNCTION «, t00=0x0007, t01=0x0172}
0x0c7e…0cb4 Head {h00=0x0032, h01=0x0050, text=»* -----CODE CONVERSION VIA "8-BIT" SETTING «, t00=0x0008, t01=0x0008}
0x0cb4…0cdc Head {h00=0x0024, h01=0x0050, text=»* AND CONVERSION TABLES «, t00=0x0008, t01=0x003e}
0x0cdc…0d14 Head {h00=0x0034, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO«, t00=0x0008, t01=0x0066}
0x0d14…0d4c Head {h00=0x0034, h01=0x0050, text=»* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, «, t00=0x0008, t01=0x009e}
0x0d4c…0d6e Head {h00=0x001e, h01=0x0050, text=»* THREE OR MORE ZEROES.«, t00=0x0008, t01=0x00d6}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d78…0db2 Head {h00=0x0036, h01=0x0050, text=»* THE DRIVER IS PREPARED TO HANDLE THE SPECIAL «, t00=0x0008, t01=0x0102}
0x0db2…0de6 Head {h00=0x0030, h01=0x0050, text=»* NORWAY-PROBLEM, WITH BETWEEN THEMSELVES«, t00=0x0008, t01=0x013c}
0x0de6…0e1c Head {h00=0x0032, h01=0x0050, text=»* DEPENDENT KEYBOARDS CONNECTED TO THE SAME«, t00=0x0008, t01=0x0170}
0x0e1c…0e38 Head {h00=0x0018, h01=0x0050, text=»* SELECTOR UNIT. «, t00=0x0009, t01=0x0016}
0x0e38…0e70 Head {h00=0x0034, h01=0x0050, text=»* BY ASSEMBLING THE DRIVER CONDITIONALLY THIS«, t00=0x0009, t01=0x0032}
0x0e70…0e92 Head {h00=0x001e, h01=0x0050, text=»* FUNCTION IS INCLUDED.«, t00=0x0009, t01=0x006a}
0x0e92…0ea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x008c}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eaa…0eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb4…0eca Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x00ae}
0x0eca…0ee0 Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0009, t01=0x00c4}
0x0ee0…0ef6 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x00da}
0x0ef6…0f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f0}
0x0f00…0f22 Head {h00=0x001e, h01=0x0050, text=» ENTRY KBAD ADDRESS-BLOCK «, t00=0x0009, t01=0x00fa}
0x0f22…0f4e Head {h00=0x0028, h01=0x0050, text=» ENTRY EOQUEU QUEUE POINTER ROUTINE «, t00=0x0009, t01=0x011c}
0x0f4e…0f7a Head {h00=0x0028, h01=0x0050, text=» ENTRY DWTINQ,DWTUTQ QUEUE POINTERS «, t00=0x0009, t01=0x0148}
0x0f7a…0f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0174}
0x0f84…0f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f8e…0f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f98…0fce (10, 0, 400) Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0004}
0x0fce…1004 Head {h00=0x0032, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x000a, t01=0x003a}
0x1004…103a Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x000a, t01=0x0070}
0x103a…1044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1044…106c Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/0 REQUEST ERROR «, t00=0x000a, t01=0x00b0}
0x106c…109e Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND END I/O AND GO TO DISPATCHER«, t00=0x000a, t01=0x00d8}
0x109e…10bc Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x000a, t01=0x010a}
0x10bc…10e2 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x000a, t01=0x0128}
0x10e2…1120 Head {h00=0x003a, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A2,A3,A5,A7,A8 AND RETURN «, t00=0x000a, t01=0x014e}
0x1120…115a Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x000a, t01=0x018c}
0x115a…118a Head {h00=0x002c, h01=0x0050, text=» EXTRN LDREGE RETURN FROM ECHO HANDLING «, t00=0x000b, t01=0x0036}
0x118a…11a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN LDREGF «, t00=0x000b, t01=0x0066}
0x11a0…11be Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIME SET TIME«, t00=0x000b, t01=0x007c}
0x11be…11dc Head {h00=0x001a, h01=0x0050, text=» EXTRN SETIMP SET TIME«, t00=0x000b, t01=0x009a}
0x11dc…1202 Head {h00=0x0022, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS «, t00=0x000b, t01=0x00b8}
0x1202…1228 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHO«, t00=0x000b, t01=0x00de}
0x1228…1248 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECHO ECHO ROUTINE«, t00=0x000b, t01=0x0104}
0x1248…126a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECHEND END OF ECHO «, t00=0x000b, t01=0x0124}
0x126a…1274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x1274…1282 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0150}
0x1282…128c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x128c…12ae Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000b, t01=0x0168}
0x12ae…12d0 Head {h00=0x001e, h01=0x0050, text=»* DWT PARAMETERS * «, t00=0x000b, t01=0x018a}
0x12d0…12f2 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000c, t01=0x001c}
0x12f2…12fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x12fc…1318 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000c, t01=0x0048}
0x1318…133a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000c, t01=0x0064}
0x133a…1364 Head {h00=0x0026, h01=0x0022, text=» EXTRN DWTADR DRIVER ADDRESS BLOCK«, t00=0x000c, t01=0x0086}
0x1364…1386 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000c, t01=0x00b0}
0x1386…13a8 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x000c, t01=0x00d2}
0x13a8…13ca Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x000c, t01=0x00f4}
0x13ca…13f4 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x000c, t01=0x0116}
0x13f4…1416 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x000c, t01=0x0140}
0x1416…143a Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTWAT SAVE INPUT DWT«, t00=0x000c, t01=0x0162}
0x143a…1444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x1444…145c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0190}
0x145c…1474 Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS * «, t00=0x000d, t01=0x0018}
0x1474…148c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000d, t01=0x0030}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x1496…14c4 Head {h00=0x002a, h01=0x0050, text=»OVMASK EQU /2 OVERFLOW IN INPUT BUFFER«, t00=0x000d, t01=0x0052}
0x14c4…14ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14ce…1500 Head {h00=0x002e, h01=0x0050, text=»X:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER «, t00=0x000d, t01=0x008a}
0x1500…1536 Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU 10 NUMBER OF BYTES IN DECIMAL FORM «, t00=0x000d, t01=0x00bc}
0x1536…1540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f2}
0x1540…1562 Head {h00=0x001e, h01=0x0050, text=»* TIME BEFORE TIME-OUT «, t00=0x000d, t01=0x00fc}
0x1562…156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x156c…15a2 Head {h00=0x0032, h01=0x0050, text=»TIME EQU 2400 TIME OUT CONSTANT (FROM 300) DK1«, t00=0x000d, t01=0x0128}
0x15a2…15ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15ac…15ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0168}
0x15ba…15c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0176}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15ce…15fe Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000d, t01=0x018a}
0x15fe…162e Head {h00=0x002c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000e, t01=0x002a}
0x162e…165e Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000e, t01=0x005a}
0x165e…1668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008a}
0x1668…169a Head {h00=0x002e, h01=0x0050, text=»* TIME OUT FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x0094}
0x169a…16b8 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:A = 0. «, t00=0x000e, t01=0x00c6}
0x16b8…16c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c2…16d4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x00ee}
0x16d4…16e8 Head {h00=0x0010, h01=0x0050, text=»CTIMUT EQU 0«, t00=0x000e, t01=0x0100}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0114}
0x16f2…1720 Head {h00=0x002a, h01=0x0050, text=»* ECHO FUNCTION MAY BE EXCLUDED BY «, t00=0x000e, t01=0x011e}
0x1720…173e Head {h00=0x001a, h01=0x0050, text=»* SETTING X:B = 0. «, t00=0x000e, t01=0x014c}
0x173e…1748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016a}
0x1748…175a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0174}
0x175a…176e Head {h00=0x0010, h01=0x0050, text=»CECHO EQU 1 «, t00=0x000e, t01=0x0186}
0x176e…1778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x1778…17a6 Head {h00=0x002a, h01=0x0050, text=»* STANDARD READ MAY BE EXCLUDED BY «, t00=0x000f, t01=0x0014}
0x17a6…17c4 Head {h00=0x001a, h01=0x0050, text=»* SETTING X:C = 0. «, t00=0x000f, t01=0x0042}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17ce…17e0 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000f, t01=0x006a}
0x17e0…17f4 Head {h00=0x0010, h01=0x0050, text=»CSTAND EQU 1«, t00=0x000f, t01=0x007c}
0x17f4…17fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x17fe…1830 Head {h00=0x002e, h01=0x0050, text=»* DOUBLE ZERO MAY BE INCLUDED IN SYSTEM«, t00=0x000f, t01=0x009a}
0x1830…185c Head {h00=0x0028, h01=0x0050, text=»* BY SETTING X:D = 2. SETTING X:D«, t00=0x000f, t01=0x00cc}
0x185c…188c Head {h00=0x002c, h01=0x0050, text=»* = 3 GIVES A THREE ZERO FUNCTION AND«, t00=0x000f, t01=0x00f8}
0x188c…18c4 Head {h00=0x0034, h01=0x0050, text=»* X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON «, t00=0x000f, t01=0x0128}
0x18c4…18fc Head {h00=0x0034, h01=0x0050, text=»* X:D = 0 EXCLUDES THE MULTIPLE ZERO FUNCTION«, t00=0x000f, t01=0x0160}
0x18fc…1906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1906…1918 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x0010, t01=0x0012}
0x1918…192c Head {h00=0x0010, h01=0x0050, text=»CMULTZ EQU 2«, t00=0x0010, t01=0x0024}
0x192c…1936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x1936…1944 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0042}
0x1944…194e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0050}
0x194e…198a Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION«, t00=0x0010, t01=0x005a}
0x198a…19b6 Head {h00=0x0028, h01=0x0050, text=»* CAN BE INCLUDED IN THE DRIVER. «, t00=0x0010, t01=0x0096}
0x19b6…19f8 Head {h00=0x003e, h01=0x0050, text=»* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2«, t00=0x0010, t01=0x00c2}
0x19f8…1a3c Head {h00=0x0040, h01=0x0050, text=»* SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG«, t00=0x0010, t01=0x0104}
0x1a3c…1a82 Head {h00=0x0042, h01=0x0050, text=»* IS SET, CAUSING THE FIRST READ REQUEST AFTER POWER ON TO «, t00=0x0010, t01=0x0148}
0x1a82…1ab8 Head {h00=0x0032, h01=0x0050, text=»* BE COMPLETED WITH CONTROL WORD SET TO -2.«, t00=0x0010, t01=0x018e}
0x1ab8…1ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0034}
0x1ac2…1ad4 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0011, t01=0x003e}
0x1ad4…1ae8 Head {h00=0x0010, h01=0x0050, text=»POWOFF EQU 0«, t00=0x0011, t01=0x0050}
0x1ae8…1af2 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x0064}
0x1af2…1afc Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x006e}
0x1afc…1b34 Head {h00=0x0034, h01=0x0050, text=»* BY SETTING X:G TO 1 THE CODE CONVERSION VIA«, t00=0x0011, t01=0x0078}
0x1b34…1b6a Head {h00=0x0032, h01=0x0050, text=»* "8-BIT" SETTING AND CONVERSION TABLES IS «, t00=0x0011, t01=0x00b0}
0x1b6a…1b8e Head {h00=0x0020, h01=0x0050, text=»* INCLUDED IN THE DRIVER.«, t00=0x0011, t01=0x00e6}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0011, t01=0x010a}
0x1b98…1baa Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x0114}
0x1baa…1bbe Head {h00=0x0010, h01=0x0050, text=»CONVER EQU 1«, t00=0x0011, t01=0x0126}
0x1bbe…1bc6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x013a}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0142}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014c}
0x1bda…1c16 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0011, t01=0x0156}
0x1c16…1c38 (18, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0012, t01=0x0004}
0x1c38…1c6c Head {h00=0x0030, h01=0x0050, text=»* ORDER /04 IS THEN REPLACED BY ORDER /31 «, t00=0x0012, t01=0x0026}
0x1c6c…1cac Head {h00=0x003c, h01=0x0050, text=»* BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS «, t00=0x0012, t01=0x005a}
0x1cac…1cf2 Head {h00=0x0042, h01=0x0050, text=»* IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE «, t00=0x0012, t01=0x009a}
0x1cf2…1d36 Head {h00=0x0040, h01=0x0050, text=»* IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 «, t00=0x0012, t01=0x00e0}
0x1d36…1d66 Head {h00=0x002c, h01=0x0050, text=»* AND SO ON. (INDEX= 1,2,3,4,... ) «, t00=0x0012, t01=0x0124}
0x1d66…1da2 Head {h00=0x0038, h01=0x0050, text=»* CONTROL WORD OF ECB IS SET TO ZERO INSTED OF -2«, t00=0x0012, t01=0x0154}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1dac…1db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000a}
0x1db6…1dbe Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0014}
0x1dbe…1dd2 Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x0013, t01=0x001c}
0x1dd2…1ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1ddc…1e14 Head {h00=0x0034, h01=0x0050, text=»* BY SETTING NOLJE=1 THIS DRIVER IS PREPARED «, t00=0x0013, t01=0x003a}
0x1e14…1e48 Head {h00=0x0030, h01=0x0050, text=»* TO HANDLE THE NORWAY-CASE WITH BETWEEN «, t00=0x0013, t01=0x0072}
0x1e48…1e7a Head {h00=0x002e, h01=0x0050, text=»* THEMSELVES DEPENDENT KEYBOARDS ON THE«, t00=0x0013, t01=0x00a6}
0x1e7a…1e9a Head {h00=0x001c, h01=0x0050, text=»* SAME SELECTOR UNIT.«, t00=0x0013, t01=0x00d8}
0x1e9a…1ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f8}
0x1ea4…1eb8 Head {h00=0x0010, h01=0x0050, text=»NOLJE EQU 0 «, t00=0x0013, t01=0x0102}
0x1eb8…1ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1ec2…1ef4 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0013, t01=0x0120}
0x1ef4…1f22 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0013, t01=0x0152}
0x1f22…1f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f2c…1f40 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0013, t01=0x018a}
0x1f40…1f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f4a…1f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f54…1f8e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0014, t01=0x0022}
0x1f8e…1fc0 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0014, t01=0x005c}
0x1fc0…1fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008e}
0x1fca…1fde Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0014, t01=0x0098}
0x1fde…1fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ac}
0x1fe8…1ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b6}
0x1ff2…200e Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0014, t01=0x00c0}
0x200e…2018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x2018…2022 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e6}
0x2022…2034 Head {h00=0x000e, h01=0x0050, text=»X:J EQU 10«, t00=0x0014, t01=0x00f0}
0x2034…204a Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 000«, t00=0x0014, t01=0x0102}
0x204a…2054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0118}
0x2054…205e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0122}
0x205e…207c Head {h00=0x001a, h01=0x0050, text=»* MMU KEY TABLE SIZE«, t00=0x0014, t01=0x012c}
0x207c…2086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014a}
0x2086…2090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0154}
0x2090…20a2 Head {h00=0x000e, h01=0x0050, text=»X:K EQU 10«, t00=0x0014, t01=0x015e}
0x20a2…20b8 Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU 00 «, t00=0x0014, t01=0x0170}
0x20b8…20c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0186}
0x20c2…20d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0190}
0x20d0…20da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20da…20e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20e4…2108 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x0022}
0x2108…212c Head {h00=0x0020, h01=0x0050, text=»* DWT-DISPLACEMENT * «, t00=0x0015, t01=0x0046}
0x212c…2150 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0015, t01=0x006a}
0x2150…215a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008e}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0098}
0x2164…2198 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0015, t01=0x00a2}
0x2198…21a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21a2…21b8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x00e0}
0x21b8…21d0 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0015, t01=0x00f6}
0x21d0…21dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x010e}
0x21dc…21e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x011a}
0x21e6…21fc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x0124}
0x21fc…2216 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0015, t01=0x013a}
0x2216…2222 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0154}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x222c…225a Head {h00=0x002a, h01=0x0050, text=»DWTCON EQU START+/00 CONVERSION TABLE «, t00=0x0015, t01=0x016a}
0x225a…2296 Head {h00=0x0038, h01=0x0050, text=»DWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE«, t00=0x0016, t01=0x0008}
0x2296…22d2 Head {h00=0x0038, h01=0x0050, text=»DWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE «, t00=0x0016, t01=0x0044}
0x22d2…22fc Head {h00=0x0026, h01=0x0050, text=»DWTSQ EQU START+/1C START OF QUEUE«, t00=0x0016, t01=0x0080}
0x22fc…2328 Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF QUEUE «, t00=0x0016, t01=0x00aa}
0x2328…2332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x2332…2364 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x00e0}
0x2364…2396 Head {h00=0x002e, h01=0x0050, text=»* SPECIAL KEYS DEFINED IN DWT * «, t00=0x0016, t01=0x0112}
0x2396…23c8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0016, t01=0x0144}
0x23c8…23d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0176}
0x23d2…2402 Head {h00=0x002c, h01=0x0050, text=»KBBSP EQU START+/14 BACK-SPACE CHARACTER«, t00=0x0016, t01=0x0180}
0x2402…242e Head {h00=0x0028, h01=0x0050, text=»KBCLR EQU START+/15 CLEAR CHARACTER «, t00=0x0017, t01=0x0020}
0x242e…2458 Head {h00=0x0026, h01=0x0050, text=»KBEOF EQU START+/16 EOR-CHARACTER «, t00=0x0017, t01=0x004c}
0x2458…2488 Head {h00=0x002c, h01=0x0050, text=»KBMZ EQU START+/17 DOUBLE ZERO CHARACTER«, t00=0x0017, t01=0x0076}
0x2488…2492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a6}
0x2492…24a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00b0}
0x24a0…24aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00be}
0x24aa…24b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c8}
0x24b4…24ca Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x00d2}
0x24ca…24e0 Head {h00=0x0012, h01=0x0050, text=»* TABLES *«, t00=0x0017, t01=0x00e8}
0x24e0…24f6 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0017, t01=0x00fe}
0x24f6…2500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0114}
0x2500…2524 Head {h00=0x0020, h01=0x0050, text=» DATA DVBKTB KEY TABLE SIZE «, t00=0x0017, t01=0x011e}
0x2524…2548 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x0017, t01=0x0142}
0x2548…2564 Head {h00=0x0018, h01=0x0050, text=» DATA 6 DEVICE INDEX«, t00=0x0017, t01=0x0166}
0x2564…2576 Head {h00=0x000e, h01=0x0050, text=»KBAD EQU *«, t00=0x0017, t01=0x0182}
0x2576…259a (24, 0, 400) Head {h00=0x0020, h01=0x0050, text=» DATA ACKB ACTIVATION DRIVER«, t00=0x0018, t01=0x0004}
0x259a…25c0 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0018, t01=0x0028}
0x25c0…25e4 Head {h00=0x0020, h01=0x0050, text=» DATA IHKB INTERRUPT HANDLER«, t00=0x0018, t01=0x004e}
0x25e4…25ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25ee…2604 Head {h00=0x0012, h01=0x0050, text=» IFF POWOFF=1 «, t00=0x0018, t01=0x007c}
0x2604…260e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0092}
0x260e…262a Head {h00=0x0018, h01=0x0050, text=» DATA 0 NO RECOVERY «, t00=0x0018, t01=0x009c}
0x262a…2634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b8}
0x2634…2640 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00c2}
0x2640…264a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x264a…2654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x2654…266a Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0018, t01=0x00e2}
0x266a…2674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f8}
0x2674…2698 Head {h00=0x0020, h01=0x0050, text=» DATA RCKB RECOVERY ROUTINE «, t00=0x0018, t01=0x0102}
0x2698…26a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0126}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0134}
0x26b0…26ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013e}
0x26ba…26ce Head {h00=0x0010, h01=0x0050, text=»* R C K B«, t00=0x0018, t01=0x0148}
0x26ce…26d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26d8…270e Head {h00=0x0032, h01=0x0050, text=»* THIS IS THE RECOVERY ROUTINE FOR KEYBOARD«, t00=0x0018, t01=0x0166}
0x270e…2738 Head {h00=0x0026, h01=0x0050, text=»* ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0019, t01=0x000c}
0x2738…2742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0036}
0x2742…2754 Head {h00=0x000e, h01=0x0050, text=»RCKB EQU *«, t00=0x0019, t01=0x0040}
0x2754…276a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0019, t01=0x0052}
0x276a…2794 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0019, t01=0x0068}
0x2794…27a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0092}
0x27a0…27aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009e}
0x27aa…27c0 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x00a8}
0x27c0…27d6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0019, t01=0x00be}
0x27d6…27fc Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0019, t01=0x00d4}
0x27fc…2808 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00fa}
0x2808…2812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0106}
0x2812…2828 Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x0019, t01=0x0110}
0x2828…2846 Head {h00=0x001a, h01=0x0050, text=» LD A3,DWTST,A6 BUSY ?«, t00=0x0019, t01=0x0126}
0x2846…285c Head {h00=0x0012, h01=0x0050, text=» RF(NN) RCKB10«, t00=0x0019, t01=0x0144}
0x285c…2872 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x0019, t01=0x015a}
0x2872…28a6 Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER OFF OCCURED «, t00=0x0019, t01=0x0170}
0x28a6…28b8 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x001a, t01=0x0014}
0x28b8…28e2 Head {h00=0x0026, h01=0x0050, text=»RCKB10 CF A5,LDREGE LOAD REGISTERS«, t00=0x001a, t01=0x0026}
0x28e2…28f4 Head {h00=0x000e, h01=0x0050, text=» RF AKB202«, t00=0x001a, t01=0x0050}
0x28f4…28fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0062}
0x28fe…290a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x006c}
0x290a…2914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0078}
0x2914…2922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0082}
0x2922…292c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0090}
0x292c…2936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009a}
0x2936…294a Head {h00=0x0010, h01=0x0050, text=»* A C K B«, t00=0x001a, t01=0x00a4}
0x294a…2954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b8}
0x2954…2972 Head {h00=0x001a, h01=0x0050, text=»* ACTIVATION PART: «, t00=0x001a, t01=0x00c2}
0x2972…297c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e0}
0x297c…29b0 Head {h00=0x0030, h01=0x0050, text=»* CHECKS VALIDITY OF ORDERS AND EXAMINES «, t00=0x001a, t01=0x00ea}
0x29b0…29e0 Head {h00=0x002c, h01=0x0050, text=»* INPUT BUFFER TO SEE IF SOME QUEUED «, t00=0x001a, t01=0x011e}
0x29e0…29f8 Head {h00=0x0014, h01=0x0050, text=»* TO THREAT. «, t00=0x001a, t01=0x014e}
0x29f8…2a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0166}
0x2a02…2a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0170}
0x2a0c…2a1e Head {h00=0x000e, h01=0x0050, text=»ACKB EQU *«, t00=0x001a, t01=0x017a}
0x2a1e…2a34 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/FEFF«, t00=0x001a, t01=0x018c}
0x2a34…2a6a Head {h00=0x0032, h01=0x0050, text=» ANS A1,DWTST,A6 RESET INTERRUPTS ALLOWED FLAG«, t00=0x001b, t01=0x0012}
0x2a6a…2a7c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001b, t01=0x0048}
0x2a7c…2aa0 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x001b, t01=0x005a}
0x2aa0…2ab2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x001b, t01=0x007e}
0x2ab2…2ad8 Head {h00=0x0022, h01=0x0050, text=» RF(NG) AKB100 ILLEGEAL ORDER «, t00=0x001b, t01=0x0090}
0x2ad8…2aec Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001b, t01=0x00b6}
0x2aec…2b10 Head {h00=0x0020, h01=0x0050, text=» CWK A7,/37 SELECT KEYBOARD «, t00=0x001b, t01=0x00ca}
0x2b10…2b26 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBSEL «, t00=0x001b, t01=0x00ee}
0x2b26…2b32 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0104}
0x2b32…2b48 Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=0 «, t00=0x001b, t01=0x0110}
0x2b48…2b5a Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x001b, t01=0x0126}
0x2b5a…2b8a Head {h00=0x002c, h01=0x0050, text=» RF(Z) AKB100 STANDARD READ NOT ALLOWED «, t00=0x001b, t01=0x0138}
0x2b8a…2b9c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x001b, t01=0x0168}
0x2b9c…2ba8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x017a}
0x2ba8…2bb0 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0186}
0x2bb0…2bc2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x001b, t01=0x018e}
0x2bc2…2bca Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0010}
0x2bca…2be0 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x001c, t01=0x0018}
0x2be0…2bf4 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/2D «, t00=0x001c, t01=0x002e}
0x2bf4…2c1c Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRE:10 SKIP INPUT BUFFER «, t00=0x001c, t01=0x0042}
0x2c1c…2c30 Head {h00=0x0010, h01=0x0050, text=» ADK A4,/2D «, t00=0x001c, t01=0x006a}
0x2c30…2c44 Head {h00=0x0010, h01=0x0050, text=»CRE:10 EQU *«, t00=0x001c, t01=0x007e}
0x2c44…2c50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0092}
0x2c50…2c6e Head {h00=0x001a, h01=0x0050, text=» RF(Z) AKB110 ORDER 4 «, t00=0x001c, t01=0x009e}
0x2c6e…2c92 Head {h00=0x0020, h01=0x0050, text=» RF(N) AKB200 ORDER 1,2 OR 3«, t00=0x001c, t01=0x00bc}
0x2c92…2cc0 Head {h00=0x002a, h01=0x0050, text=»AKB100 ORKL A1,/8000 I/O REQUEST ERROR«, t00=0x001c, t01=0x00e0}
0x2cc0…2cd4 Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001c, t01=0x010e}
0x2cd4…2ce2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0122}
0x2ce2…2cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0130}
0x2cec…2cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013a}
0x2cf6…2d1e Head {h00=0x0024, h01=0x0050, text=»* ORDER 4 RESET INPUT BUFFER «, t00=0x001c, t01=0x0144}
0x2d1e…2d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016c}
0x2d28…2d4e Head {h00=0x0022, h01=0x0050, text=»AKB110 LD A2,DWTINQ,A6 ORDER 4«, t00=0x001c, t01=0x0176}
0x2d4e…2d7a Head {h00=0x0028, h01=0x0050, text=» SCR A1,A2 RESET OVERFLOW IF OCCURED«, t00=0x001d, t01=0x000c}
0x2d7a…2da6 Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTUTQ,A6 RESET OUTPUT QUEUE «, t00=0x001d, t01=0x0038}
0x2da6…2dc2 Head {h00=0x0018, h01=0x0050, text=» ABL ENDI05 END I/O «, t00=0x001d, t01=0x0064}
0x2dc2…2dd6 Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x001d, t01=0x0080}
0x2dd6…2de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0094}
0x2de0…2dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2dea…2e10 Head {h00=0x0022, h01=0x0050, text=»* ORDER 37 SELECT KEYBOARD«, t00=0x001d, t01=0x00a8}
0x2e10…2e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ce}
0x2e1a…2e36 Head {h00=0x0018, h01=0x0050, text=»AKBSEL LDKL A2,/FF7F«, t00=0x001d, t01=0x00d8}
0x2e36…2e64 Head {h00=0x002a, h01=0x0050, text=» ANRS A2,A6 RESET ALLOW BITS IN DWTCHP«, t00=0x001d, t01=0x00f4}
0x2e64…2e78 Head {h00=0x0010, h01=0x0050, text=» ABL ENDI10 «, t00=0x001d, t01=0x0122}
0x2e78…2e84 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0136}
0x2e84…2e92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0142}
0x2e92…2e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0150}
0x2e9c…2ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2ea6…2ec2 Head {h00=0x0018, h01=0x0050, text=»* ORDER 1 2 3«, t00=0x001d, t01=0x0164}
0x2ec2…2ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0180}
0x2ecc…2ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018a}
0x2ed6…2eea (30, 0, 400) Head {h00=0x0010, h01=0x0050, text=»AKB200 EQU *«, t00=0x001e, t01=0x0004}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2ef4…2f0a Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001e, t01=0x0022}
0x2f0a…2f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f14…2f2c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x001e, t01=0x0042}
0x2f2c…2f4e Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/200 POWER OFF ? «, t00=0x001e, t01=0x005a}
0x2f4e…2f64 Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB205 «, t00=0x001e, t01=0x007c}
0x2f64…2f86 Head {h00=0x001e, h01=0x0050, text=» XRS A2,DWTST,A6 RESET BIT«, t00=0x001e, t01=0x0092}
0x2f86…2f92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00b4}
0x2f92…2fa6 Head {h00=0x0010, h01=0x0050, text=»AKB202 EQU *«, t00=0x001e, t01=0x00c0}
0x2fa6…2fc4 Head {h00=0x001a, h01=0x0050, text=» IFT CREDIT-POWOFF=-1 «, t00=0x001e, t01=0x00d4}
0x2fc4…2fea Head {h00=0x0022, h01=0x0050, text=» LDKL A1,-2 INDICATE POWER ON «, t00=0x001e, t01=0x00f2}
0x2fea…2ffe Head {h00=0x0010, h01=0x0050, text=» ST A1,10,A8«, t00=0x001e, t01=0x0118}
0x2ffe…300a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x012c}
0x300a…3026 Head {h00=0x0018, h01=0x0050, text=» IFT CREDIT+POWOFF=2«, t00=0x001e, t01=0x0138}
0x3026…304a Head {h00=0x0020, h01=0x0050, text=» CM 10,A8 INDICATE POWER ON «, t00=0x001e, t01=0x0154}
0x304a…3056 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0178}
0x3056…306c Head {h00=0x0012, h01=0x0050, text=» IFT POWOFF=1 «, t00=0x001e, t01=0x0184}
0x306c…3080 Head {h00=0x0010, h01=0x0050, text=» ABL AKB380 «, t00=0x001f, t01=0x000a}
0x3080…308a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001e}
0x308a…3096 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0028}
0x3096…30a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30a0…30b4 Head {h00=0x0010, h01=0x0050, text=»AKB205 EQU *«, t00=0x001f, t01=0x003e}
0x30b4…30be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30be…30d4 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x001f, t01=0x005c}
0x30d4…30de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0072}
0x30de…30f2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x001f, t01=0x007c}
0x30f2…310e Head {h00=0x0018, h01=0x0050, text=» ANK A1,/40 TIMING ?«, t00=0x001f, t01=0x0090}
0x310e…313e Head {h00=0x002c, h01=0x0050, text=» RF(E) AKB210 NO TIMING FOR THIS DEVICE «, t00=0x001f, t01=0x00ac}
0x313e…3156 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x001f, t01=0x00dc}
0x3156…316c Head {h00=0x0012, h01=0x0050, text=» RF(E) AKBTIM «, t00=0x001f, t01=0x00f4}
0x316c…3182 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x001f, t01=0x010a}
0x3182…319a Head {h00=0x0014, h01=0x0050, text=» ST* A4,DWTTP,A6«, t00=0x001f, t01=0x0120}
0x319a…31ac Head {h00=0x000e, h01=0x0050, text=» RF AKB210«, t00=0x001f, t01=0x0138}
0x31ac…31c0 Head {h00=0x0010, h01=0x0050, text=»AKBTIM EQU *«, t00=0x001f, t01=0x014a}
0x31c0…31e4 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTTP TIMER POINTER«, t00=0x001f, t01=0x015e}
0x31e4…3206 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x001f, t01=0x0182}
0x3206…3218 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x0020, t01=0x0014}
0x3218…3238 Head {h00=0x001c, h01=0x0050, text=» CF A15,SETIMP SET TIME «, t00=0x0020, t01=0x0026}
0x3238…326c Head {h00=0x0030, h01=0x0050, text=» DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME «, t00=0x0020, t01=0x0046}
0x326c…329e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT«, t00=0x0020, t01=0x007a}
0x329e…32a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ac}
0x32a8…32b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00b6}
0x32b4…32be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c2}
0x32be…32e8 Head {h00=0x0026, h01=0x0050, text=»AKB210 LD A2,4,A8 REQUESTED LENGTH«, t00=0x0020, t01=0x00cc}
0x32e8…3318 Head {h00=0x002c, h01=0x0050, text=»AKB220 RF(E) AKB380 RESET A1 AND END I/O«, t00=0x0020, t01=0x00f6}
0x3318…3338 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 FIRST TIME ? «, t00=0x0020, t01=0x0126}
0x3338…3352 Head {h00=0x0016, h01=0x0050, text=» RF(NE) AKB240 NO «, t00=0x0020, t01=0x0146}
0x3352…3374 Head {h00=0x001e, h01=0x0050, text=» LD A1,2,A8 BUFFER ADDRESS«, t00=0x0020, t01=0x0160}
0x3374…3386 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0182}
0x3386…33aa (33, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 ADDRESS IN BUFFER«, t00=0x0021, t01=0x0004}
0x33aa…33d2 Head {h00=0x0024, h01=0x0050, text=»AKB230 SCR A3,A1 STORE CHARACTER«, t00=0x0021, t01=0x0028}
0x33d2…33f8 Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 NEXT CHAR. POSITION «, t00=0x0021, t01=0x0050}
0x33f8…3410 Head {h00=0x0014, h01=0x0050, text=» SUK A2,1 LAST ?«, t00=0x0021, t01=0x0076}
0x3410…342a Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB230 NO «, t00=0x0021, t01=0x008e}
0x342a…3438 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00a8}
0x3438…3442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b6}
0x3442…3472 Head {h00=0x002c, h01=0x0050, text=»* READ CHARACTER FROM INPUT BUFFER OR«, t00=0x0021, t01=0x00c0}
0x3472…349c Head {h00=0x0026, h01=0x0050, text=»* WAIT FOR KEY-BOARD INTERRUPT «, t00=0x0021, t01=0x00f0}
0x349c…34a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x011a}
0x34a6…34ba Head {h00=0x0010, h01=0x0050, text=»AKB240 EQU *«, t00=0x0021, t01=0x0124}
0x34ba…34d2 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTUTQ,A6«, t00=0x0021, t01=0x0138}
0x34d2…34f0 Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0021, t01=0x0150}
0x34f0…3502 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x016e}
0x3502…3520 Head {h00=0x001a, h01=0x0050, text=» XRK A4,/FF OVERFLOW ?«, t00=0x0021, t01=0x0180}
0x3520…3536 Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB250«, t00=0x0022, t01=0x000e}
0x3536…355c Head {h00=0x0022, h01=0x0050, text=» SCR A4,A1 RESET OVERFLOW MARK«, t00=0x0022, t01=0x0024}
0x355c…3580 Head {h00=0x0020, h01=0x0050, text=» LDK A1,OVMASK OVERFLOW SET «, t00=0x0022, t01=0x004a}
0x3580…3592 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0022, t01=0x006e}
0x3592…35c4 Head {h00=0x002e, h01=0x0050, text=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE?«, t00=0x0022, t01=0x0080}
0x35c4…35da Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB260«, t00=0x0022, t01=0x00b2}
0x35da…3600 Head {h00=0x0022, h01=0x0050, text=» CF A5,STREG NOTHING IN QUEUE «, t00=0x0022, t01=0x00c8}
0x3600…3616 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0022, t01=0x00ee}
0x3616…3644 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 CHECK TIME OUT RETURN CODE «, t00=0x0022, t01=0x0104}
0x3644…3666 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB270 NO TIME-OUT «, t00=0x0022, t01=0x0132}
0x3666…368c Head {h00=0x0022, h01=0x0050, text=» RF ENDI05 END I/O AT TIME OUT«, t00=0x0022, t01=0x0154}
0x368c…3698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x017a}
0x3698…36ae Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=0 «, t00=0x0022, t01=0x0186}
0x36ae…36c0 Head {h00=0x000e, h01=0x0050, text=» RF AKB270«, t00=0x0023, t01=0x000c}
0x36c0…36cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x001e}
0x36cc…3700 Head {h00=0x0030, h01=0x0050, text=»AKB260 CF A15,EOQUEU NEXT OUT QUEUE POINTER «, t00=0x0023, t01=0x002a}
0x3700…372a Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW POINTER«, t00=0x0023, t01=0x005e}
0x372a…3742 Head {h00=0x0014, h01=0x0050, text=»AKB270 LDR A4,A7«, t00=0x0023, t01=0x0088}
0x3742…3754 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0023, t01=0x00a0}
0x3754…3778 Head {h00=0x0020, h01=0x0050, text=» RF(NN) AKB310 ORDER 2 OR 3 «, t00=0x0023, t01=0x00b2}
0x3778…3786 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00d6}
0x3786…3790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e4}
0x3790…379a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ee}
0x379a…37ba Head {h00=0x001c, h01=0x0050, text=»* ORDER 1 BASIC READ«, t00=0x0023, t01=0x00f8}
0x37ba…37c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0118}
0x37c4…37f8 Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB-BUFFER «, t00=0x0023, t01=0x0122}
0x37f8…380c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0023, t01=0x0156}
0x380c…3838 Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHO ECHO INPUTTED CHARACTER «, t00=0x0023, t01=0x016a}
0x3838…3844 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0008}
0x3844…3878 Head {h00=0x0030, h01=0x0050, text=» CW A3,4,A8 EFFECTIVE LENGTH = REQ. LENGTH? «, t00=0x0024, t01=0x0014}
0x3878…388a Head {h00=0x000e, h01=0x0050, text=» RB AKB220«, t00=0x0024, t01=0x0048}
0x388a…3898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x005a}
0x3898…38a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0068}
0x38a2…38ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0072}
0x38ac…38e2 Head {h00=0x0032, h01=0x0050, text=»* ORDER 2 OR 3 STANDARD AND NUMERIC READ «, t00=0x0024, t01=0x007c}
0x38e2…38ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38ec…3926 Head {h00=0x0036, h01=0x0050, text=»* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE«, t00=0x0024, t01=0x00bc}
0x3926…3930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f6}
0x3930…393a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0100}
0x393a…3966 Head {h00=0x0028, h01=0x0050, text=»AKB310 LD A1,10,A8 KEY-TABLE ADDRESS«, t00=0x0024, t01=0x010a}
0x3966…3988 Head {h00=0x001e, h01=0x0050, text=» RF(Z) AKB359 NO KEYTABLE «, t00=0x0024, t01=0x0136}
0x3988…39ae Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 TABLE LENGTH IN A4 «, t00=0x0024, t01=0x0158}
0x39ae…39c2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0024, t01=0x017e}
0x39c2…39ec (37, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY-TABLE«, t00=0x0025, t01=0x0004}
0x39ec…39fe Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0025, t01=0x002e}
0x39fe…3a16 Head {h00=0x0014, h01=0x0050, text=»AKB355 SUK A4,1 «, t00=0x0025, t01=0x0040}
0x3a16…3a46 Head {h00=0x002c, h01=0x0050, text=» RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE«, t00=0x0025, t01=0x0058}
0x3a46…3a60 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0025, t01=0x0088}
0x3a60…3a82 Head {h00=0x001e, h01=0x0050, text=» CCR A2,A1 EOR-CHARACTER? «, t00=0x0025, t01=0x00a2}
0x3a82…3a9c Head {h00=0x0016, h01=0x0050, text=» RB(NE) AKB355 NO «, t00=0x0025, t01=0x00c4}
0x3a9c…3ab2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x0025, t01=0x00de}
0x3ab2…3ad6 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A4 YES DOUBLE INDEX «, t00=0x0025, t01=0x00f4}
0x3ad6…3ae2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0118}
0x3ae2…3af8 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0025, t01=0x0124}
0x3af8…3b24 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDEX STARTS AT ONE,INCR=1«, t00=0x0025, t01=0x013a}
0x3b24…3b30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0166}
0x3b30…3b60 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROLWORD «, t00=0x0025, t01=0x0172}
0x3b60…3b8c Head {h00=0x0028, h01=0x0050, text=»AKB358 CF A15,STORE STORE CHARACTER «, t00=0x0026, t01=0x0012}
0x3b8c…3b9e Head {h00=0x000e, h01=0x0050, text=» RF AKB370«, t00=0x0026, t01=0x003e}
0x3b9e…3ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3ba8…3bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bb2…3bea Head {h00=0x0034, h01=0x0050, text=»AKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY«, t00=0x0026, t01=0x0064}
0x3bea…3c04 Head {h00=0x0016, h01=0x0050, text=» RB(E) AKB358 YES «, t00=0x0026, t01=0x009c}
0x3c04…3c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b6}
0x3c12…3c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c4}
0x3c1c…3c4a Head {h00=0x002a, h01=0x0050, text=»* CHARACTER NOT FOUND IN KEY-TABLE.«, t00=0x0026, t01=0x00ce}
0x3c4a…3c6c Head {h00=0x001e, h01=0x0050, text=»* CHECK CHARACTER CODE.«, t00=0x0026, t01=0x00fc}
0x3c6c…3c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x011e}
0x3c76…3c8a Head {h00=0x0010, h01=0x0050, text=»AKB360 EQU *«, t00=0x0026, t01=0x0128}
0x3c8a…3cae Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0026, t01=0x013c}
0x3cae…3cd8 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x0026, t01=0x0160}
0x3cd8…3cfa Head {h00=0x001e, h01=0x0050, text=» ANK A4,/20 SHIFT BIT 9 ? «, t00=0x0026, t01=0x018a}
0x3cfa…3d14 Head {h00=0x0016, h01=0x0050, text=» RF(E) AKB361 YES «, t00=0x0027, t01=0x001c}
0x3d14…3d30 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x0036}
0x3d30…3d42 Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x0052}
0x3d42…3d56 Head {h00=0x0010, h01=0x0050, text=»AKB361 EQU *«, t00=0x0027, t01=0x0064}
0x3d56…3d6a Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A6 «, t00=0x0027, t01=0x0078}
0x3d6a…3d88 Head {h00=0x001a, h01=0x0050, text=» ANK A4,/10 PTS 6234 ?«, t00=0x0027, t01=0x008c}
0x3d88…3d9e Head {h00=0x0012, h01=0x0050, text=» RF(E) AKB362 «, t00=0x0027, t01=0x00aa}
0x3d9e…3db0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x00c0}
0x3db0…3dc4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/80 «, t00=0x0027, t01=0x00d2}
0x3dc4…3dda Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB362«, t00=0x0027, t01=0x00e6}
0x3dda…3dec Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x00fc}
0x3dec…3dfe Head {h00=0x000e, h01=0x0050, text=» RF AKB363«, t00=0x0027, t01=0x010e}
0x3dfe…3e12 Head {h00=0x0010, h01=0x0050, text=»AKB362 EQU *«, t00=0x0027, t01=0x0120}
0x3e12…3e2e Head {h00=0x0018, h01=0x0050, text=» LDR A4,A2 CHARACTER«, t00=0x0027, t01=0x0134}
0x3e2e…3e4e Head {h00=0x001c, h01=0x0050, text=» ANK A4,/BF RESET BIT 9 «, t00=0x0027, t01=0x0150}
0x3e4e…3e62 Head {h00=0x0010, h01=0x0050, text=»AKB363 EQU *«, t00=0x0027, t01=0x0170}
0x3e62…3e78 Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x0027, t01=0x0184}
0x3e78…3e9e Head {h00=0x0022, h01=0x0050, text=» CC A4,KBMZ,A6 MULTIPLE ZERO ?«, t00=0x0028, t01=0x000a}
0x3e9e…3eb8 Head {h00=0x0016, h01=0x0050, text=» RF(E) KBMZ10 YES!«, t00=0x0028, t01=0x0030}
0x3eb8…3ec4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x004a}
0x3ec4…3ee2 Head {h00=0x001a, h01=0x0050, text=» CC A4,KBCLR,A6 CLEAR?«, t00=0x0028, t01=0x0056}
0x3ee2…3ef8 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBCL10 «, t00=0x0028, t01=0x0074}
0x3ef8…3f1a Head {h00=0x001e, h01=0x0050, text=» CC A4,KBBSP,A6 BACKSPACE?«, t00=0x0028, t01=0x008a}
0x3f1a…3f30 Head {h00=0x0012, h01=0x0050, text=» RF(E) KBSP10 «, t00=0x0028, t01=0x00ac}
0x3f30…3f50 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x0028, t01=0x00c2}
0x3f50…3f7c Head {h00=0x0028, h01=0x0050, text=» RF(NE) AKB369 YES,STORE AND END I/O«, t00=0x0028, t01=0x00e2}
0x3f7c…3f92 Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0028, t01=0x010e}
0x3f92…3fa6 Head {h00=0x0010, h01=0x0050, text=»AKB365 EQU *«, t00=0x0028, t01=0x0124}
0x3fa6…3fba Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0028, t01=0x0138}
0x3fba…3fdc Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHOCHARACTER «, t00=0x0028, t01=0x014c}
0x3fdc…3fe8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x016e}
0x3fe8…400c Head {h00=0x0020, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW?«, t00=0x0028, t01=0x017a}
0x400c…4024 Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB210 NO«, t00=0x0029, t01=0x000e}
0x4024…404c Head {h00=0x0024, h01=0x0050, text=»AKB368 LDK A1,8 SET RETURN CODE «, t00=0x0029, t01=0x0026}
0x404c…406a Head {h00=0x001a, h01=0x0050, text=» RF ENDIO AND END I/O «, t00=0x0029, t01=0x004e}
0x406a…40a4 Head {h00=0x0036, h01=0x0050, text=»AKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0029, t01=0x006c}
0x40a4…40c6 Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0029, t01=0x00a6}
0x40c6…40d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00c8}
0x40d4…40de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d6}
0x40de…40e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e0}
0x40e8…4114 Head {h00=0x0028, h01=0x0050, text=»* CHECK CODE OF END OF RECORD KEY«, t00=0x0029, t01=0x00ea}
0x4114…411e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0116}
0x411e…4128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0120}
0x4128…413c Head {h00=0x0010, h01=0x0050, text=»AKB370 EQU *«, t00=0x0029, t01=0x012a}
0x413c…4150 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0029, t01=0x013e}
0x4150…4174 Head {h00=0x0020, h01=0x0050, text=» CF A5,CHEK CHECK CHARACTER «, t00=0x0029, t01=0x0152}
0x4174…419e Head {h00=0x0026, h01=0x0050, text=» ORK A2,/80 INDICATE END OF RECORD«, t00=0x0029, t01=0x0176}
0x419e…41be Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 RETURN CODE? «, t00=0x002a, t01=0x0010}
0x41be…41d4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) AKB380«, t00=0x002a, t01=0x0030}
0x41d4…41f6 Head {h00=0x001e, h01=0x0050, text=» CF A5,ECHO ECHO CHARACTER«, t00=0x002a, t01=0x0046}
0x41f6…4200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4200…420c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0072}
0x420c…4216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007e}
0x4216…423a Head {h00=0x0020, h01=0x0050, text=»AKB380 LDK A1,0 RETURN CODE «, t00=0x002a, t01=0x0088}
0x423a…4248 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00ac}
0x4248…4252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ba}
0x4252…425c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425c…428c Head {h00=0x002c, h01=0x0050, text=»* THIS IS A COMMON END OF THE DRIVER «, t00=0x002a, t01=0x00ce}
0x428c…4296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fe}
0x4296…42cc Head {h00=0x0032, h01=0x0050, text=»* SET EFFECTIVE LENGTH AND PERFORM END I/O «, t00=0x002a, t01=0x0108}
0x42cc…42f4 Head {h00=0x0024, h01=0x0050, text=»* ON KEYBOARD AND ECHO-DEVICE«, t00=0x002a, t01=0x013e}
0x42f4…42fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0166}
0x42fe…4308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0170}
0x4308…431c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x002a, t01=0x017a}
0x431c…4326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018e}
0x4326…433c Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x002b, t01=0x0008}
0x433c…4348 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002b, t01=0x001e}
0x4348…4360 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x002b, t01=0x002a}
0x4360…438e Head {h00=0x002a, h01=0x0050, text=» RF(E) ENDI05 NO TIMING ON THIS DEVICE«, t00=0x002b, t01=0x0042}
0x438e…43b0 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x002b, t01=0x0070}
0x43b0…43c4 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x002b, t01=0x0092}
0x43c4…43d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00a6}
0x43d0…43da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b2}
0x43da…440a Head {h00=0x002c, h01=0x0050, text=»ENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x002b, t01=0x00bc}
0x440a…441e Head {h00=0x0010, h01=0x0050, text=»ENDI10 EQU *«, t00=0x002b, t01=0x00ec}
0x441e…4428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0100}
0x4428…443c Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002b, t01=0x010a}
0x443c…4456 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A1 SAVE A1«, t00=0x002b, t01=0x011e}
0x4456…4482 Head {h00=0x0028, h01=0x0050, text=» CF A5,ECHEND END I/O ON ECHO DEVICE«, t00=0x002b, t01=0x0138}
0x4482…44a0 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RESTORE A1 «, t00=0x002b, t01=0x0164}
0x44a0…44ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0182}
0x44ac…44b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018e}
0x44b6…44ea Head {h00=0x0030, h01=0x0050, text=» ABL DISEND END I/O ON KEYBOARD AND DISPATCH«, t00=0x002c, t01=0x0008}
0x44ea…44f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x003c}
0x44f8…4502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004a}
0x4502…451c Head {h00=0x0016, h01=0x0050, text=»* MULTIPLE ZERO«, t00=0x002c, t01=0x0054}
0x451c…4526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006e}
0x4526…453c Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002c, t01=0x0078}
0x453c…4550 Head {h00=0x0010, h01=0x0050, text=»KBMZ10 EQU *«, t00=0x002c, t01=0x008e}
0x4550…457c Head {h00=0x0028, h01=0x0050, text=» LDK A4,CMULTZ LOAD NUMBER OF ZEROES«, t00=0x002c, t01=0x00a2}
0x457c…45ac Head {h00=0x002c, h01=0x0050, text=»KBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO«, t00=0x002c, t01=0x00ce}
0x45ac…45be Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002c, t01=0x00fe}
0x45be…45dc Head {h00=0x001a, h01=0x0050, text=» RB(L) AKB240 ALL DONE«, t00=0x002c, t01=0x0110}
0x45dc…45f6 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A4 SAVE A4«, t00=0x002c, t01=0x012e}
0x45f6…4626 Head {h00=0x002c, h01=0x0050, text=» CF A15,STORE STORE ZOERO IN ECB-BUFFER «, t00=0x002c, t01=0x0148}
0x4626…4644 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 RESTORE A4 «, t00=0x002c, t01=0x0178}
0x4644…464e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x464e…4662 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x002d, t01=0x0012}
0x4662…466c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0026}
0x466c…468a Head {h00=0x001a, h01=0x0050, text=» CF A5,ECHO ECHO ZERO «, t00=0x002d, t01=0x0030}
0x468a…4696 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x004e}
0x4696…46a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005a}
0x46a0…46aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0064}
0x46aa…46c0 Head {h00=0x0012, h01=0x0050, text=» IFF CMULTZ=0 «, t00=0x002d, t01=0x006e}
0x46c0…46ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0084}
0x46ca…46f0 Head {h00=0x0022, h01=0x0050, text=» CW A3,4,A8 LENGTH OVERFLOW ? «, t00=0x002d, t01=0x008e}
0x46f0…4708 Head {h00=0x0014, h01=0x0050, text=» RB(L) KBMZ20 NO«, t00=0x002d, t01=0x00b4}
0x4708…473a Head {h00=0x002e, h01=0x0050, text=»KBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ?«, t00=0x002d, t01=0x00cc}
0x473a…4752 Head {h00=0x0014, h01=0x0050, text=» RB(L) AKB368 NO«, t00=0x002d, t01=0x00fe}
0x4752…475e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x0116}
0x475e…478c Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER «, t00=0x002d, t01=0x0122}
0x478c…479e Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x002d, t01=0x0150}
0x479e…47c4 Head {h00=0x0022, h01=0x0050, text=» CWK A1,DWTSQ FIRST POSITION ?«, t00=0x002d, t01=0x0162}
0x47c4…47de Head {h00=0x0016, h01=0x0050, text=» RF(NE) KBMZ30 NO «, t00=0x002d, t01=0x0188}
0x47de…480e Head {h00=0x002c, h01=0x0050, text=» LDK A1,DWTEQ GET LAST POSITION IN QUEUE«, t00=0x002e, t01=0x0012}
0x480e…4820 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x002e, t01=0x0042}
0x4820…4832 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x0054}
0x4832…4844 Head {h00=0x000e, h01=0x0050, text=» RF KBMZ40«, t00=0x002e, t01=0x0066}
0x4844…487a Head {h00=0x0032, h01=0x0050, text=»KBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION «, t00=0x002e, t01=0x0078}
0x487a…488c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002e, t01=0x00ae}
0x488c…48bc Head {h00=0x002c, h01=0x0050, text=»KBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? «, t00=0x002e, t01=0x00c0}
0x48bc…48e0 Head {h00=0x0020, h01=0x0050, text=» RF(E) KBMZ90 NO NOT REALY. «, t00=0x002e, t01=0x00f0}
0x48e0…4914 Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER «, t00=0x002e, t01=0x0114}
0x4914…493e Head {h00=0x0026, h01=0x0050, text=» LDK A2,/30 STORE ZERO IN CIRKULAR«, t00=0x002e, t01=0x0148}
0x493e…495e Head {h00=0x001c, h01=0x0050, text=» SCR A2,A1 INPUT BUFFER «, t00=0x002e, t01=0x0172}
0x495e…4982 (47, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RB KBMZ25 ONCE MORE TIME !!«, t00=0x002f, t01=0x0004}
0x4982…4996 Head {h00=0x0010, h01=0x0050, text=»KBMZ90 EQU *«, t00=0x002f, t01=0x0028}
0x4996…49c2 Head {h00=0x0028, h01=0x0050, text=» LDK A4,/FF INDICATE BUFFER OWERFLOW«, t00=0x002f, t01=0x003c}
0x49c2…49d4 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A1«, t00=0x002f, t01=0x0068}
0x49d4…49fc Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTUTQ,A6 UPPDATE POINTER«, t00=0x002f, t01=0x007a}
0x49fc…4a28 Head {h00=0x0028, h01=0x0050, text=» LDK A1,/A SET RETURN CODE FOR BOTH «, t00=0x002f, t01=0x00a2}
0x4a28…4a56 Head {h00=0x002a, h01=0x0050, text=» RB ENDIO LENGTH AND THRUGHPUT ERRORS «, t00=0x002f, t01=0x00ce}
0x4a56…4a62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00fc}
0x4a62…4a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0108}
0x4a6c…4a7e Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x002f, t01=0x0112}
0x4a7e…4a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0124}
0x4a88…4ab2 Head {h00=0x0026, h01=0x0050, text=»KBCL10 LDK A3,0 RESET BUFFER INDEX«, t00=0x002f, t01=0x012e}
0x4ab2…4adc Head {h00=0x0026, h01=0x0050, text=» LDK A2,/18 CHANGE CHARACTER-CODE «, t00=0x002f, t01=0x0158}
0x4adc…4aee Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x002f, t01=0x0182}
0x4aee…4af8 (48, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4af8…4b0e Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0030, t01=0x000e}
0x4b0e…4b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0024}
0x4b18…4b42 Head {h00=0x0026, h01=0x0050, text=»KBSP10 LDR A3,A3 FIRST CHARACTER? «, t00=0x0030, t01=0x002e}
0x4b42…4b58 Head {h00=0x0012, h01=0x0050, text=» RF(Z) KBSP15 «, t00=0x0030, t01=0x0058}
0x4b58…4b80 Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT BUFFER INDEX«, t00=0x0030, t01=0x006e}
0x4b80…4ba4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/00 CLEAR ECB-BUFFER«, t00=0x0030, t01=0x0096}
0x4ba4…4bba Head {h00=0x0012, h01=0x0050, text=» CF A15,STORE «, t00=0x0030, t01=0x00ba}
0x4bba…4bdc Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DECREMENT INDEX «, t00=0x0030, t01=0x00d0}
0x4bdc…4c0a Head {h00=0x002a, h01=0x0050, text=»KBSP15 LDK A2,/8 CHANGE CHARACTER-CODE«, t00=0x0030, t01=0x00f2}
0x4c0a…4c1c Head {h00=0x000e, h01=0x0050, text=» RB AKB365«, t00=0x0030, t01=0x0120}
0x4c1c…4c2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0132}
0x4c2a…4c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0140}
0x4c34…4c48 Head {h00=0x0010, h01=0x0050, text=»* C H E K«, t00=0x0030, t01=0x014a}
0x4c48…4c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c52…4c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0168}
0x4c5c…4c8c Head {h00=0x002c, h01=0x0050, text=»* SUBROUTINE TO CHECK INPUT CHARACTER«, t00=0x0030, t01=0x0172}
0x4c8c…4c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0012}
0x4c96…4cac Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0031, t01=0x001c}
0x4cac…4cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0032}
0x4cb6…4cd2 Head {h00=0x0018, h01=0x0050, text=»* A2 = CHARACTER «, t00=0x0031, t01=0x003c}
0x4cd2…4cf0 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0031, t01=0x0058}
0x4cf0…4d0e Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0031, t01=0x0076}
0x4d0e…4d26 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x0031, t01=0x0094}
0x4d26…4d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ac}
0x4d30…4d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b6}
0x4d3a…4d50 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0031, t01=0x00c0}
0x4d50…4d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d6}
0x4d5a…4d78 Head {h00=0x001a, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0031, t01=0x00e0}
0x4d78…4d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00fe}
0x4d82…4d94 Head {h00=0x000e, h01=0x0050, text=»CHEK EQU *«, t00=0x0031, t01=0x0108}
0x4d94…4db8 Head {h00=0x0020, h01=0x0050, text=» STR A2,A15 SAVE A2 ON STACK«, t00=0x0031, t01=0x011a}
0x4db8…4dcc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0031, t01=0x013e}
0x4dcc…4df2 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0031, t01=0x0152}
0x4df2…4dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0178}
0x4dfc…4e12 Head {h00=0x0012, h01=0x0050, text=» IFT CSTAND=1 «, t00=0x0031, t01=0x0182}
0x4e12…4e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0008}
0x4e1c…4e36 Head {h00=0x0016, h01=0x0050, text=» CWK A7,2 ORDER 2?«, t00=0x0032, t01=0x0012}
0x4e36…4e50 Head {h00=0x0016, h01=0x0050, text=» RF(NE) CHEK05 NO «, t00=0x0032, t01=0x002c}
0x4e50…4e64 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/20 «, t00=0x0032, t01=0x0046}
0x4e64…4e90 Head {h00=0x0028, h01=0x0050, text=» ORK A1,/5F 5F OR 7F AS UPPER LIMIT «, t00=0x0032, t01=0x005a}
0x4e90…4eb0 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/20 LOWER LIMIT «, t00=0x0032, t01=0x0086}
0x4eb0…4ec2 Head {h00=0x000e, h01=0x0050, text=» RF CHEK08«, t00=0x0032, t01=0x00a6}
0x4ec2…4ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b8}
0x4ecc…4ed8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00c2}
0x4ed8…4ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ce}
0x4ee2…4efc Head {h00=0x0016, h01=0x0050, text=»CHEK05 ANK A1,/10 «, t00=0x0032, t01=0x00d8}
0x4efc…4f12 Head {h00=0x0012, h01=0x0050, text=» RF(NE) CHEK06«, t00=0x0032, t01=0x00f2}
0x4f12…4f32 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F RESET BIT 9 «, t00=0x0032, t01=0x0108}
0x4f32…4f58 Head {h00=0x0022, h01=0x0050, text=»CHEK06 LDK A1,/39 UPPER LIMIT «, t00=0x0032, t01=0x0128}
0x4f58…4f78 Head {h00=0x001c, h01=0x0050, text=» LDK A4,/30 LOWER LIMIT «, t00=0x0032, t01=0x014e}
0x4f78…4f90 Head {h00=0x0014, h01=0x0050, text=»CHEK08 SUR A1,A2«, t00=0x0032, t01=0x016e}
0x4f90…4fb6 Head {h00=0x0022, h01=0x0050, text=» RF(N) CHERRO CODE CHECK ERROR«, t00=0x0032, t01=0x0186}
0x4fb6…4fc8 Head {h00=0x000e, h01=0x0050, text=» SUR A4,A2«, t00=0x0033, t01=0x001c}
0x4fc8…4fee Head {h00=0x0022, h01=0x0050, text=» RF(P) CHERRO CODE CHECK ERROR«, t00=0x0033, t01=0x002e}
0x4fee…5002 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0033, t01=0x0054}
0x5002…5026 Head {h00=0x0020, h01=0x0050, text=»CHEK10 LDK A1,0 RETURN CODE «, t00=0x0033, t01=0x0068}
0x5026…503c Head {h00=0x0012, h01=0x0050, text=»CHEK20 RTN A5 «, t00=0x0033, t01=0x008c}
0x503c…5046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a2}
0x5046…5050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ac}
0x5050…506e Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0033, t01=0x00b6}
0x506e…5078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d4}
0x5078…50aa Head {h00=0x002e, h01=0x0050, text=»CHERRO LDK A1,4 SET RETURN CODE AND RETURN«, t00=0x0033, t01=0x00de}
0x50aa…50d0 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A15 RELOAD CHARACTER «, t00=0x0033, t01=0x0110}
0x50d0…50e2 Head {h00=0x000e, h01=0x0050, text=» RB CHEK20«, t00=0x0033, t01=0x0136}
0x50e2…50f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0148}
0x50f0…50fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0156}
0x50fa…5104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0160}
0x5104…5118 Head {h00=0x0010, h01=0x0050, text=»* I H K B«, t00=0x0033, t01=0x016a}
0x5118…5122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017e}
0x5122…516a Head {h00=0x0044, h01=0x0050, text=»* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER«, t00=0x0033, t01=0x0188}
0x516a…5174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x5174…517e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x004a}
0x517e…5190 Head {h00=0x000e, h01=0x0050, text=»IHKB EQU *«, t00=0x0034, t01=0x0054}
0x5190…51a4 Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0034, t01=0x0066}
0x51a4…51c6 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET ALLOW BITS«, t00=0x0034, t01=0x007a}
0x51c6…51da Head {h00=0x0010, h01=0x0050, text=» ANK A3,/C0 «, t00=0x0034, t01=0x009c}
0x51da…5212 Head {h00=0x0034, h01=0x0050, text=» RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS «, t00=0x0034, t01=0x00b0}
0x5212…5224 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0034, t01=0x00e8}
0x5224…5238 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/80 «, t00=0x0034, t01=0x00fa}
0x5238…524e Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL1 «, t00=0x0034, t01=0x010e}
0x524e…5260 Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0034, t01=0x0124}
0x5260…5278 Head {h00=0x0014, h01=0x0050, text=»IHNOL1 LDR A3,A2«, t00=0x0034, t01=0x0136}
0x5278…528a Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0034, t01=0x014e}
0x528a…529c Head {h00=0x000e, h01=0x0050, text=» CWR A3,A4«, t00=0x0034, t01=0x0160}
0x529c…52b0 Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0034, t01=0x0172}
0x52b0…52c4 Head {h00=0x0010, h01=0x0050, text=»IHNOL2 EQU *«, t00=0x0034, t01=0x0186}
0x52c4…52d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x000a}
0x52d0…52da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0016}
0x52da…52f0 Head {h00=0x0012, h01=0x0050, text=» IFT CONVER=1 «, t00=0x0035, t01=0x0020}
0x52f0…52fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0036}
0x52fa…5318 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 INPUT WORD «, t00=0x0035, t01=0x0040}
0x5318…533e Head {h00=0x0022, h01=0x0050, text=» SRL A4,11 DEVICE ADDRESS * 2 «, t00=0x0035, t01=0x005e}
0x533e…5350 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/E«, t00=0x0035, t01=0x0084}
0x5350…5378 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTBC,A6 8-BIT SETTING ? «, t00=0x0035, t01=0x0096}
0x5378…538e Head {h00=0x0012, h01=0x0050, text=» RF(NE) IHKB03«, t00=0x0035, t01=0x00be}
0x538e…53a0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x00d4}
0x53a0…53b4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0035, t01=0x00e6}
0x53b4…53c8 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/30 «, t00=0x0035, t01=0x00fa}
0x53c8…53de Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB01 «, t00=0x0035, t01=0x010e}
0x53de…53f0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/A«, t00=0x0035, t01=0x0124}
0x53f0…5406 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB02 «, t00=0x0035, t01=0x0136}
0x5406…5420 Head {h00=0x0016, h01=0x0050, text=»IHKB01 ORK A2,/80 «, t00=0x0035, t01=0x014c}
0x5420…5432 Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0035, t01=0x0166}
0x5432…544e Head {h00=0x0018, h01=0x0050, text=»IHKB02 ANKL A2,/FF3F«, t00=0x0035, t01=0x0178}
0x544e…5460 (54, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF IHKB04«, t00=0x0036, t01=0x0004}
0x5460…5498 Head {h00=0x0034, h01=0x0050, text=»IHKB03 LD A3,DWTCON,A6 CONVERSION TABLE ADDRESS «, t00=0x0036, t01=0x0016}
0x5498…54ae Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x004e}
0x54ae…54c0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x0064}
0x54c0…54d4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0036, t01=0x0076}
0x54d4…54f0 Head {h00=0x0018, h01=0x0050, text=» SRL A4,3 LINE INDEX«, t00=0x0036, t01=0x008a}
0x54f0…5502 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0036, t01=0x00a6}
0x5502…552a Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A3 COLUMN TABLE ADDRESS«, t00=0x0036, t01=0x00b8}
0x552a…5540 Head {h00=0x0012, h01=0x0050, text=» RF(E) IHKB04 «, t00=0x0036, t01=0x00e0}
0x5540…5552 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x00f6}
0x5552…5564 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0036, t01=0x0108}
0x5564…5584 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 ADD ROW INDEX«, t00=0x0036, t01=0x011a}
0x5584…55a4 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A3 GET CHARACTER«, t00=0x0036, t01=0x013a}
0x55a4…55b8 Head {h00=0x0010, h01=0x0050, text=»IHKB04 EQU *«, t00=0x0036, t01=0x015a}
0x55b8…55c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016e}
0x55c2…55ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0178}
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…55f6 Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0037, t01=0x0008}
0x55f6…5600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001c}
0x5600…5612 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0037, t01=0x0026}
0x5612…5626 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/3F «, t00=0x0037, t01=0x0038}
0x5626…563a Head {h00=0x0010, h01=0x0050, text=» SUK A3,/22 «, t00=0x0037, t01=0x004c}
0x563a…5650 Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHNOL6 «, t00=0x0037, t01=0x0060}
0x5650…5662 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x0076}
0x5662…5678 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) IHNOL8«, t00=0x0037, t01=0x0088}
0x5678…568a Head {h00=0x000e, h01=0x0050, text=» RF IHNOL7«, t00=0x0037, t01=0x009e}
0x568a…56a2 Head {h00=0x0014, h01=0x0050, text=»IHNOL6 ADK A2,7 «, t00=0x0037, t01=0x00b0}
0x56a2…56be Head {h00=0x0018, h01=0x0050, text=»IHNOL7 ANKL A2,/FF3F«, t00=0x0037, t01=0x00c8}
0x56be…56d2 Head {h00=0x0010, h01=0x0050, text=»IHNOL8 EQU *«, t00=0x0037, t01=0x00e4}
0x56d2…56dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f8}
0x56dc…56e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0102}
0x56e8…56f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010e}
0x56f2…5716 Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTST,A6 I/O REQUEST?«, t00=0x0037, t01=0x0118}
0x5716…572c Head {h00=0x0012, h01=0x0050, text=» RF(N) IHKB10 «, t00=0x0037, t01=0x013c}
0x572c…5752 Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 INTERRUPTS ALLOWED? «, t00=0x0037, t01=0x0152}
0x5752…578a Head {h00=0x0034, h01=0x0050, text=» RF(NN) IHKB10 NO,STORE CHARACTER IN DWT-BUFFER «, t00=0x0037, t01=0x0178}
0x578a…5794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0020}
0x5794…57aa Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x0038, t01=0x002a}
0x57aa…57b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0040}
0x57b4…57cc Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTP,A6 «, t00=0x0038, t01=0x004a}
0x57cc…57fa Head {h00=0x002a, h01=0x0050, text=» RF(E) IHKB05 NO TIMING ON THIS DEVICE«, t00=0x0038, t01=0x0062}
0x57fa…581e Head {h00=0x0020, h01=0x0050, text=» LDKL A3,-TIME RESTART TIME «, t00=0x0038, t01=0x0090}
0x581e…5836 Head {h00=0x0014, h01=0x0050, text=» ST* A3,DWTTP,A6«, t00=0x0038, t01=0x00b4}
0x5836…5840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00cc}
0x5840…584c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d6}
0x584c…5856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e2}
0x5856…5886 Head {h00=0x002c, h01=0x0050, text=»IHKB05 ABL LDREG RETURN TO READ ROUTINE «, t00=0x0038, t01=0x00ec}
0x5886…58a4 Head {h00=0x001a, h01=0x0050, text=»IHKB10 LD A1,DWTINQ,A6«, t00=0x0038, t01=0x011c}
0x58a4…58b6 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0038, t01=0x013a}
0x58b6…58dc Head {h00=0x0022, h01=0x0050, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0038, t01=0x014c}
0x58dc…58f4 Head {h00=0x0014, h01=0x0050, text=» RF(E) EXIT YES «, t00=0x0038, t01=0x0172}
0x58f4…5906 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0038, t01=0x018a}
0x5906…593c Head {h00=0x0032, h01=0x0050, text=» CF A15,EOQUEU GET NEXT QUEUE POINTER ADDRESS «, t00=0x0039, t01=0x000c}
0x593c…595e Head {h00=0x001e, h01=0x0050, text=» CW A1,DWTUTQ,A6 OVERFLOW?«, t00=0x0039, t01=0x0042}
0x595e…5978 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IHKB20 NO!«, t00=0x0039, t01=0x0064}
0x5978…59ac Head {h00=0x0030, h01=0x0050, text=» ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER«, t00=0x0039, t01=0x007e}
0x59ac…59be Head {h00=0x000e, h01=0x0050, text=» RF IHKB30«, t00=0x0039, t01=0x00b2}
0x59be…59f2 Head {h00=0x0030, h01=0x0050, text=»IHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER«, t00=0x0039, t01=0x00c4}
0x59f2…5a2a Head {h00=0x0034, h01=0x0050, text=»IHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER«, t00=0x0039, t01=0x00f8}
0x5a2a…5a40 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0039, t01=0x0130}
0x5a40…5a54 Head {h00=0x0010, h01=0x0050, text=» IFT NOLJE=1«, t00=0x0039, t01=0x0146}
0x5a54…5a6c Head {h00=0x0014, h01=0x0050, text=»IHNOL3 LDR A3,A2«, t00=0x0039, t01=0x015a}
0x5a6c…5a7e Head {h00=0x000e, h01=0x0050, text=» SRL A3,12«, t00=0x0039, t01=0x0172}
0x5a7e…5a92 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x0039, t01=0x0184}
0x5a92…5aa4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x003a, t01=0x0008}
0x5aa4…5aba Head {h00=0x0012, h01=0x0050, text=» RF(E) IHNOL4 «, t00=0x003a, t01=0x001a}
0x5aba…5ace Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x003a, t01=0x0030}
0x5ace…5ae0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x003a, t01=0x0044}
0x5ae0…5af6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) IHNOL2«, t00=0x003a, t01=0x0056}
0x5af6…5b1e Head {h00=0x0024, h01=0x0050, text=»IHNOL4 ORRS A4,A6 SET ALLOW BIT «, t00=0x003a, t01=0x006c}
0x5b1e…5b30 Head {h00=0x000e, h01=0x0050, text=» RB IHNOL2«, t00=0x003a, t01=0x0094}
0x5b30…5b3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00a6}
0x5b3c…5b4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00b2}
0x5b4a…5b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c0}
0x5b54…5b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ca}
0x5b5e…5b76 Head {h00=0x0014, h01=0x0050, text=»* A K B T U T«, t00=0x003a, t01=0x00d4}
0x5b76…5b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ec}
0x5b80…5baa Head {h00=0x0026, h01=0x0050, text=»* THIS IS THE TIME-OUT ROUTINE «, t00=0x003a, t01=0x00f6}
0x5baa…5bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0120}
0x5bb4…5bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x012a}
0x5bbe…5bd4 Head {h00=0x0012, h01=0x0050, text=» IFT CTIMUT=1 «, t00=0x003a, t01=0x0134}
0x5bd4…5bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x014a}
0x5bde…5bf2 Head {h00=0x0010, h01=0x0050, text=»AKBTUT EQU *«, t00=0x003a, t01=0x0154}
0x5bf2…5c14 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x003a, t01=0x0168}
0x5c14…5c28 Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x003a, t01=0x018a}
0x5c28…5c40 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x003b, t01=0x000e}
0x5c40…5c54 Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x003b, t01=0x0026}
0x5c54…5c78 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 SET RETURN CODE «, t00=0x003b, t01=0x003a}
0x5c78…5ca8 Head {h00=0x002c, h01=0x0050, text=» RB IHKB05 RESTORE REGISTERS AND END I/O«, t00=0x003b, t01=0x005e}
0x5ca8…5cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x008e}
0x5cb2…5cbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0098}
0x5cbe…5ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00a4}
0x5ccc…5cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b2}
0x5cd6…5d0e Head {h00=0x0034, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE A CHARACTER IN «, t00=0x003b, t01=0x00bc}
0x5d0e…5d48 Head {h00=0x0036, h01=0x0050, text=»* ECB-BUFFER AND INCREMENT BUFFER INDEX«, t00=0x003b, t01=0x00f4}
0x5d48…5d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x012e}
0x5d52…5d68 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x003b, t01=0x0138}
0x5d68…5d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x014e}
0x5d72…5d96 Head {h00=0x0020, h01=0x0050, text=»* A2 = CHARACTER TO STORE«, t00=0x003b, t01=0x0158}
0x5d96…5db4 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x003b, t01=0x017c}
0x5db4…5dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000a}
0x5dbe…5dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0014}
0x5dc8…5ddc Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x003c, t01=0x001e}
0x5ddc…5dfe Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x003c, t01=0x0032}
0x5dfe…5e22 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 ADD BUFFER INDEX «, t00=0x003c, t01=0x0054}
0x5e22…5e4e Head {h00=0x0028, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN BUFFER«, t00=0x003c, t01=0x0078}
0x5e4e…5e76 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x003c, t01=0x00a4}
0x5e76…5e8a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x003c, t01=0x00cc}
0x5e8a…5eac Head {h00=0x001e, h01=0x0050, text=» RF EOQU20 RTN A15 AND ENB«, t00=0x003c, t01=0x00e0}
0x5eac…5eba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0102}
0x5eba…5ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0110}
0x5ec4…5ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x011a}
0x5ece…5f08 Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x003c, t01=0x0124}
0x5f08…5f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x015e}
0x5f12…5f28 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x003c, t01=0x0168}
0x5f28…5f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x017e}
0x5f32…5f52 Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x003c, t01=0x0188}
0x5f52…5f70 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003d, t01=0x0018}
0x5f70…5f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0036}
0x5f7a…5f90 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x003d, t01=0x0040}
0x5f90…5f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0056}
0x5f9a…5fbe Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x003d, t01=0x0060}
0x5fbe…5fd2 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x003d, t01=0x0084}
0x5fd2…5fde Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x0098}
0x5fde…5ff0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x003d, t01=0x00a4}
0x5ff0…6002 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x003d, t01=0x00b6}
0x6002…6026 Head {h00=0x0020, h01=0x0050, text=» CWK A1,DWTEQ END OF QUEUE? «, t00=0x003d, t01=0x00c8}
0x6026…603c Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x003d, t01=0x00ec}
0x603c…606a Head {h00=0x002a, h01=0x0050, text=» LDK A1,DWTSQ SET QUEUE START ADDRESS «, t00=0x003d, t01=0x0102}
0x606a…6082 Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x003d, t01=0x0130}
0x6082…60ae Head {h00=0x0028, h01=0x0050, text=»EOQU20 ADKL A15,2 RETURN AND ENABLE «, t00=0x003d, t01=0x0148}
0x60ae…60ba Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003d, t01=0x0174}
0x60ba…60ce Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x003d, t01=0x0180}
0x60ce…60d8 (62, 2, 30) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x60d8…60e4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003e, t01=0x000e}
0x60e4…60e8 Head {h00=0x4004, h01=0x0000}
0x60e8…60ec 00 3e 00 1a ┆ > ┆
0x60ec…60f4 (63, 1, 8) 20 04 00 00 00 3f 00 04 ┆ ? ┆
0x60f4…6144 (64, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 01 0f 01 74 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ** t 8 P************************************************┆
0x6144…6194 2a 2a 2a 2a 01 10 00 20 00 08 00 50 5c 5c 5c 20 01 10 00 5c 00 10 00 50 47 45 54 4e 55 4d 5c 45 51 55 5c 2a 01 10 00 68 00 20 00 50 5c 4c 44 4b 5c 41 34 2c 31 30 30 5c 46 49 52 53 54 20 49 4e 43 52 45 4d 45 4e 54 20 01 10 00 7c 00 1e 00 50 ┆**** P PGETNUM EQU * h P LDK A4,100 FIRST INCREMENT | P┆
0x6194…61e4 5c 4c 44 4b 5c 41 35 2c 30 5c 43 4c 45 41 52 20 52 45 53 55 4c 54 20 52 45 47 01 10 00 a0 00 1a 00 50 5c 53 55 4b 5c 41 36 2c 31 5c 49 4e 49 54 20 50 4f 49 4e 54 45 52 01 10 00 c2 00 1e 00 50 47 45 54 30 33 30 5c 41 44 4b 5c 41 36 2c 31 5c ┆ LDK A5,0 CLEAR RESULT REG P SUK A6,1 INIT POINTER PGET030 ADK A6,1 ┆
0x61e4…6234 4e 45 58 54 20 44 49 47 49 54 01 10 00 e0 00 18 00 50 5c 4c 43 52 5c 41 32 2c 41 36 5c 47 45 54 20 43 48 41 52 20 01 10 01 02 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 01 10 01 1e 00 14 00 50 47 45 54 30 35 30 5c 53 55 4b 5c 41 32 2c 31 20 ┆NEXT DIGIT P LCR A2,A6 GET CHAR P ANK A2,/F PGET050 SUK A2,1 ┆
0x6234…6284 01 10 01 30 00 22 00 50 5c 52 46 28 4e 29 5c 47 45 54 31 30 30 5c 54 48 49 53 20 44 49 47 49 54 20 52 45 41 44 59 01 10 01 48 00 1a 00 50 5c 41 44 52 5c 41 35 2c 41 34 5c 41 43 43 55 4d 55 4c 41 54 45 20 01 10 01 6e 00 0e 00 50 5c 52 42 5c ┆ 0 " P RF(N) GET100 THIS DIGIT READY H P ADR A5,A4 ACCUMULATE n P RB ┆
0x6284…62d4 (65, 0, 400) 47 45 54 30 35 30 01 10 01 8c 00 2c 00 50 47 45 54 31 30 30 5c 53 55 4b 5c 41 34 2c 39 30 5c 4e 45 58 54 20 49 4e 43 52 45 4d 45 4e 54 20 28 54 45 4e 27 53 29 20 01 11 00 0e 00 12 00 50 5c 52 42 28 50 29 5c 47 45 54 30 33 30 20 01 11 00 3e ┆GET050 , PGET100 SUK A4,90 NEXT INCREMENT (TEN'S) P RB(P) GET030 >┆
0x62d4…6324 00 26 00 50 5c 41 44 4b 5c 41 34 2c 38 31 5c 4e 45 58 54 20 49 4e 43 52 45 4d 45 4e 54 20 28 4f 4e 45 27 53 29 20 01 11 00 54 00 1e 00 50 5c 52 42 28 50 29 5c 47 45 54 30 33 30 5c 54 48 49 52 44 20 44 49 47 49 54 20 01 11 00 7e 00 0c 00 50 ┆ & P ADK A4,81 NEXT INCREMENT (ONE'S) T P RB(P) GET030 THIRD DIGIT ~ P┆
0x6324…6374 5c 52 54 4e 5c 41 31 34 01 11 00 a0 00 0a 00 50 5c 45 4a 45 43 54 01 11 00 b0 00 04 00 50 01 11 00 be 00 20 00 50 2a 20 53 54 41 52 54 20 4f 46 20 50 52 4f 47 52 41 4d 20 50 41 52 54 20 31 20 2a 20 01 11 00 c6 00 04 00 50 01 11 00 ea 00 34 ┆ RTN A14 P EJECT P P* START OF PROGRAM PART 1 * P 4┆
0x6374…63c4 00 50 2a 20 53 41 56 45 30 32 3d 50 4f 49 4e 54 45 52 20 54 4f 20 31 3a 53 54 20 55 53 45 52 20 54 41 53 4b 20 54 54 41 42 2d 41 44 44 52 45 53 53 20 01 11 00 f2 00 24 00 50 2a 20 53 41 56 45 30 39 3d 45 58 45 43 55 54 49 4f 4e 20 53 54 41 ┆ P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS $ P* SAVE09=EXECUTION STA┆
0x63c4…6414 52 54 20 41 44 44 52 45 53 53 01 11 01 2a 00 08 00 50 5c 5c 5c 20 01 11 01 52 00 22 00 50 53 59 53 4c 44 41 5c 45 51 55 5c 2a 2d 52 45 4c 5c 50 52 4f 47 52 41 4d 20 53 54 41 52 54 01 11 01 5e 00 06 00 50 2a 20 01 11 01 84 00 16 00 50 2a 20 ┆RT ADDRESS * P R " PSYSLDA EQU *-REL PROGRAM START ^ P* P* ┆
0x6414…6464 (66, 0, 400) 20 49 4e 49 54 20 41 31 35 20 53 54 41 43 4b 20 01 11 01 8e 00 06 00 50 2a 20 01 12 00 18 00 12 00 50 5c 4c 44 5c 41 31 35 2c 53 43 54 53 54 42 01 12 00 22 00 10 00 50 5c 53 55 4b 4c 5c 41 31 35 2c 34 20 01 12 00 38 00 04 00 50 01 12 00 4c ┆ INIT A15 STACK P* P LD A15,SCTSTB " P SUKL A15,4 8 P L┆
0x6464…64b4 00 26 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4c 41 43 5c 47 45 54 20 53 3a 47 54 41 42 20 28 49 46 20 41 4e 59 29 20 01 12 00 54 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 30 20 01 12 00 7e 00 2e 00 50 5c 4c 44 5c 41 32 2c 43 52 45 49 44 ┆ & P LD A2,SCTLAC GET S:GTAB (IF ANY) T P IFT MMUPAG=0 ~ . P LD A2,CREID┆
0x64b4…6504 2c 41 32 5c 47 45 54 20 43 52 45 44 49 54 20 49 44 45 4e 54 49 46 49 43 41 54 49 4f 4e 20 01 12 00 94 00 08 00 50 5c 58 49 46 01 12 00 c6 00 12 00 50 5c 49 46 54 20 4d 4d 55 50 41 47 3d 31 20 01 12 00 d2 00 16 00 50 5c 54 4c 5c 4d 4d 54 41 ┆,A2 GET CREDIT IDENTIFICATION P XIF P IFT MMUPAG=1 P TL MMTA┆
0x6504…6554 42 2c 41 31 33 5c 25 25 23 23 01 12 00 e8 00 14 00 50 5c 45 4c 5c 41 32 2c 43 52 45 49 44 2c 41 32 20 01 12 01 02 00 08 00 50 5c 58 49 46 01 12 01 1a 00 32 00 50 5c 43 4d 5c 53 57 49 54 43 48 2c 41 31 33 5c 52 45 53 45 54 20 53 41 56 45 2d ┆B,A13 %%## P EL A2,CREID,A2 P XIF 2 P CM SWITCH,A13 RESET SAVE-┆
0x6554…65a4 41 52 45 41 53 20 55 53 45 44 20 49 4e 20 53 59 53 4c 44 4d 01 12 01 26 00 10 00 50 5c 43 4d 5c 46 4c 41 47 2c 41 31 33 01 12 01 5c 00 24 00 50 5c 43 57 4b 5c 41 32 2c 27 43 52 27 5c 43 52 45 44 49 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 3f ┆AREAS USED IN SYSLDM & P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION?┆
0x65a4…65f4 (67, 0, 400) 01 12 01 70 00 28 00 50 5c 52 46 28 45 29 5c 53 59 41 31 30 30 5c 59 45 53 21 20 53 54 41 52 54 20 43 4f 4e 46 49 47 55 52 41 54 45 01 13 00 08 00 12 00 50 5c 49 46 46 5c 43 52 45 44 49 54 3d 31 20 01 13 00 34 00 04 00 50 01 13 00 4a 00 1c ┆ p ( P RF(E) SYA100 YES! START CONFIGURATE P IFF CREDIT=1 4 P J ┆
0x65f4…6644 00 50 2a 20 41 53 53 45 4d 42 4c 45 52 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 01 13 00 52 00 04 00 50 01 13 00 72 00 1c 00 50 2a 20 53 57 49 54 43 48 20 54 4f 20 4c 45 56 45 4c 20 30 20 45 4e 42 20 01 13 00 7a 00 04 00 50 01 13 00 9a 00 28 ┆ P* ASSEMBLER APPLICATION R P r P* SWITCH TO LEVEL 0 ENB z P (┆
0x6644…6694 00 50 5c 4c 44 4b 4c 5c 41 34 2c 53 59 41 31 30 33 5c 43 4f 4e 54 49 4e 55 41 54 49 4f 4e 20 41 44 44 52 45 53 53 01 13 00 a2 00 18 00 50 5c 41 44 52 5c 41 34 2c 41 31 33 5c 52 45 4c 4f 43 41 54 45 01 13 00 ce 00 1c 00 50 5c 53 54 52 5c 41 ┆ P LDKL A4,SYA103 CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A┆
0x6694…66e4 34 2c 41 31 35 5c 50 55 54 20 4f 4e 20 53 54 41 43 4b 01 13 00 ea 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2f 30 30 43 30 01 13 01 0a 00 20 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 5c 50 55 54 20 50 53 57 20 4f 4e 20 53 54 41 43 4b 01 13 01 20 ┆4,A15 PUT ON STACK P LDKL A4,/00C0 P STR A4,A15 PUT PSW ON STACK ┆
0x66e4…6734 00 0c 00 50 5c 52 54 4e 5c 41 31 35 01 13 01 44 00 14 00 50 53 59 41 31 30 33 5c 45 51 55 5c 2a 2d 52 45 4c 01 13 01 54 00 08 00 50 5c 58 49 46 01 13 01 6c 00 18 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2d 43 52 45 44 49 54 3d 31 01 13 01 78 ┆ P RTN A15 D PSYA103 EQU *-REL T P XIF l P IFT MMUPAG-CREDIT=1 x┆
0x6734…6784 (68, 0, 400) 00 28 00 50 5c 4c 44 4b 4c 5c 41 34 2c 4d 4d 54 41 42 5c 47 45 54 20 4d 4d 2d 54 41 42 4c 45 20 41 44 44 52 45 53 53 20 01 14 00 04 00 18 00 50 5c 41 44 52 5c 41 34 2c 41 31 33 5c 52 45 4c 4f 43 41 54 45 01 14 00 30 00 1a 00 50 5c 53 54 5c ┆ ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS P ADR A4,A13 RELOCATE 0 P ST ┆
0x6784…67d4 41 34 2c 4d 4d 46 52 4f 4d 2c 41 31 33 5c 53 41 56 45 01 14 00 4c 00 28 00 50 2a 20 46 49 4c 4c 20 4d 4d 2d 54 41 42 4c 45 53 20 49 4e 20 55 53 45 52 20 54 41 53 4b 20 54 54 41 42 27 53 01 14 00 6a 00 04 00 50 01 14 00 96 00 28 00 50 5c 4c ┆A4,MMFROM,A13 SAVE L ( P* FILL MM-TABLES IN USER TASK TTAB'S j P ( P L┆
0x67d4…6824 44 2a 5c 41 35 2c 53 43 54 54 43 54 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 54 43 3a 54 41 42 20 01 14 00 9e 00 24 00 50 5c 4c 44 5c 41 36 2c 53 41 56 45 30 32 2c 41 31 33 5c 31 3a 53 54 20 55 53 45 52 20 54 41 53 4b 01 14 00 ca 00 14 ┆D* A5,SCTTCT GET LENGTH OF TC:TAB $ P LD A6,SAVE02,A13 1:ST USER TASK ┆
0x6824…6874 00 50 5c 4c 44 52 5c 41 33 2c 41 36 5c 53 41 56 45 20 01 14 00 f2 00 30 00 50 5c 53 55 5c 41 33 2c 53 43 54 54 43 54 5c 47 45 54 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 54 4f 20 31 3a 53 54 20 55 53 45 52 20 01 14 01 0a 00 2a 00 50 5c 53 ┆ P LDR A3,A6 SAVE 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER * P S┆
0x6874…68c4 55 52 5c 41 35 2c 41 33 5c 3d 3e 20 4c 45 4e 47 54 48 20 4f 46 20 54 43 3a 54 41 42 20 54 4f 20 53 43 41 4e 01 14 01 3e 00 06 00 50 2a 20 01 14 01 6c 00 1e 00 50 2a 20 20 49 4e 49 54 20 55 4e 55 53 45 44 20 4d 4d 55 20 45 4e 54 52 49 45 53 ┆UR A5,A3 => LENGTH OF TC:TAB TO SCAN > P* l P* INIT UNUSED MMU ENTRIES┆