|
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: 7850 (0x1eaa)
Notes: pts_type(SC)
Names: »DRDN01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRDN01.SC«
IDENT DRDN01 REL 8.2 78-09-15 870105040820 * *************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRDN01 = DRIVER NUMERIC DISPLAY * * * * * * *************************************************** * * * THIS DRIVER HANDLES THE NUMERIC DISPLAY * ON INDICATOR UNIT PTS 6241 CONNECTED TO * THE SYSTEM VIA CHLT OR CHRT. * * THE DISPLAY MAY BE USED AS AN ORDINARY * OUTPUT DEVICE WHERE NUMERIC INFORMATION * ARE DISPLAYED FROM THE USER PROGRAM. IT * MAY ALSO BE USED AS AN ECHO-DEVICE TO * ANY KEYBOARD THAT WORKS UNDER THE GENERAL * KEYBOARD DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C D N ACTIVATION PART * * I H D N INTERRUPT HANDLER * * R C D N RECOVERY ROUTINE * * E C H O D N ECHO FUNCTIONS * * EJECT * * * THE FOLLOWING ORDERS ARE THREATED: * * ORDER 05: ERASE NUMERIC DISPLAY * 06: WRITE NUMERIC DISPLAY * * * NORMAL REGISTER USAGE: * * REGISTER: A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * SYSTEM ADAPTATION * * BY MEANS OF CONDITIONAL ASSEMBLY ORDER 06 * WRITE NUMERIC DISPLAY MAY BE EXCLUDED. * TO BE USED IN SYSTEMS WHERE THE DISPLAY * FIGURES ONLY AS AN ECHO-DEVICE. * * * EJECT *********** * ENTRIES * *********** * * ENTRY DNAD ADDRESS TO ADDRESS-BLOCK * * * ******************************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************************** * * EXTRN TDISP DISPATCHER EXTRN GETCHR GET CHARACTER FROM ECB EXTRN DISIOE I/O REQUEST ERROR EXTRN TENDIO END I/O EXTRN OUTPUT SEND CHARACTER EXTRN LDREG RESTORE REGISTERS A4,A3,A5,A7,A8 AND RETURN EXTRN SAVE8 SAVE REGISTERS A1-A8 EXTRN ECHRTN RETURN FROM ECHOING * **************************** * DWT PARAMETERS * **************************** * EXTRN DWTST STATUS EXTRN DWTECB * * EJECT * ************************** * CONDITIONAL ASSEMBLY * ************************** * * BY SETTING X:A = 0 THIS DRIVER HANDLES * ONLY ORDER 05 ERASE NUMERIC DISPLAY * X:A EQU 1 DNWRIT EQU X:A ORDER 6 * ** * THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS * BY SETTING CREDIT = 1 * ORDER 05 IS THEN REPLACED BY ORDER /31 ** CREDIT EQU 0 ***************** * CONSTANTS * ***************** * CCERR EQU /4 CODE CHECK ERROR * * * DISPLACMENT IN DWT * * DWTBC EQU /3 BYTE COUNTER EJECT *************** * TABLES * ************** * * DNAD EQU * ADDRESS BLOCK DATA ACDN ACTIVATION PART DATA IHDN INTERRUPT HANDLER DATA RCDN RECOVERY ROUTINE DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE EJECT * * A C D N * * ACDN = ACTIVATION DRIVER NUMERIC DISPLAY * * THE FOLLOWING ORDERS ARE THREATED: * * ORDER 05: ERASE NUMERIC DISPLAY * ORDER 06: WRITE ON NUMERIC DISPLAY * * IF ORDER 5 ERASE CHARACTER /40 IS SENT TO DISPLAY. * IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY * ACDN EQU * IFT CREDIT=0 SUK A7,5 ORDER 5? RF(E) ADN010 XIF IFT CREDIT=1 SUK A7,/31 RF(Z) ADN010 ADK A7,/2C XIF * IFT DNWRIT=1 * SUK A7,1 ORDER 6? RF(E) ADN015 * XIF * ABL DISIOE I/O REQUEST ERROR * * ORDER 05 * ADN010 EQU * LDK A2,/40 ERASE DISPLAY CF A5,OUTPUT SEND CHARACTER RF ENDIO EJECT * * ORDER 06 * * IFT DNWRIT=1 * ADN015 LDK A3,0 RESET BUFFER INDEX ADN020 CF A15,GETCHR GET CHARACTER LDR A1,A1 FOUND? RF(NP) ENDIO NO, READY ! * * CHECK CHARACTER * LDR A4,A2 SUK A4,/3F BLANK? RF(E) ADN025 ADK A4,6 KEY > /39? RF(P) ADN030 ADK A4,9 KEY < /30 RF(N) ADN030 ADN025 EQU * CF A5,OUTPUT SEND CHARACTER RB ADN020 ADN030 LDK A1,CCERR INDICATE CODE CHECK ERROR ORS A1,8,A8 RETURN CODE RB ADN020 * XIF * ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP EJECT * * I H D N * * INTERRUPT * IHDN EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT SLL A4,2 ECHO MODE ? RF(N) IHDN10 LDR A1,A1 RETURN CODE FROM CHLT? RB(NE) ENDIO IHDN10 EQU * ABL LDREG EJECT * * R C D N * * RECOVERY * RCDN EQU * CF A15,SAVE8 SAVE REGISTERS A1-A8 LDKL A2,/7FFF ANS A2,DWTST,A6 SET DEVICE BUSY LDK A2,/40 ERASE CHARACTER CF A5,OUTPUT SEND ERASE LD A8,DWTECB,A6 RB(E) ENDIO RB ACDN RETURN TO ACTIVATINO PARTONI EJECT * * E C H O D N * * ECHO-ROUTINE * ECHODN EQU * LDR A7,A7 EOR? RF(N) ECH050 LDR A3,A2 SUK A3,/8 BACKSPACE? RF(E) ECH050 SUK A3,/10 CLEAR? RF(NE) ECH040 NO LDK A2,/40 ERASE DISPLAY ECH040 CF A5,OUTPUT SEND CHARACTER ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDN01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x004c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0092}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00ec Head {h00=0x0028, h01=0x0050, text=»* DRDN01 = DRIVER NUMERIC DISPLAY «, t00=0x0000, t01=0x00c4}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0164 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0000, t01=0x012c}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01ac Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES THE NUMERIC DISPLAY«, t00=0x0000, t01=0x017c}
0x01ac…01e0 Head {h00=0x0030, h01=0x0050, text=»* ON INDICATOR UNIT PTS 6241 CONNECTED TO«, t00=0x0001, t01=0x0020}
0x01e0…020a Head {h00=0x0026, h01=0x0050, text=»* THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0054}
0x020a…0214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007e}
0x0214…0248 Head {h00=0x0030, h01=0x0050, text=»* THE DISPLAY MAY BE USED AS AN ORDINARY «, t00=0x0001, t01=0x0088}
0x0248…027c Head {h00=0x0030, h01=0x0050, text=»* OUTPUT DEVICE WHERE NUMERIC INFORMATION«, t00=0x0001, t01=0x00bc}
0x027c…02b0 Head {h00=0x0030, h01=0x0050, text=»* ARE DISPLAYED FROM THE USER PROGRAM. IT«, t00=0x0001, t01=0x00f0}
0x02b0…02e2 Head {h00=0x002e, h01=0x0050, text=»* MAY ALSO BE USED AS AN ECHO-DEVICE TO«, t00=0x0001, t01=0x0124}
0x02e2…0318 Head {h00=0x0032, h01=0x0050, text=»* ANY KEYBOARD THAT WORKS UNDER THE GENERAL«, t00=0x0001, t01=0x0156}
0x0318…033c Head {h00=0x0020, h01=0x0050, text=»* KEYBOARD DRIVER DRKB01.«, t00=0x0001, t01=0x018c}
0x033c…0346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0020}
0x0346…0350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x0350…0384 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0034}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038e…03b8 Head {h00=0x0026, h01=0x0050, text=»* A C D N ACTIVATION PART«, t00=0x0002, t01=0x0072}
0x03b8…03c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03ee Head {h00=0x0028, h01=0x0050, text=»* I H D N INTERRUPT HANDLER«, t00=0x0002, t01=0x00a6}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f8…0424 Head {h00=0x0028, h01=0x0050, text=»* R C D N RECOVERY ROUTINE «, t00=0x0002, t01=0x00dc}
0x0424…042e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0108}
0x042e…0458 Head {h00=0x0026, h01=0x0050, text=»* E C H O D N ECHO FUNCTIONS «, t00=0x0002, t01=0x0112}
0x0458…0462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013c}
0x0462…046c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0146}
0x046c…047a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0150}
0x047a…0484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x0484…048e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0168}
0x048e…04be Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x0002, t01=0x0172}
0x04be…04c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0012}
0x04c8…04f4 Head {h00=0x0028, h01=0x0050, text=»* ORDER 05: ERASE NUMERIC DISPLAY«, t00=0x0003, t01=0x001c}
0x04f4…0520 Head {h00=0x0028, h01=0x0050, text=»* 06: WRITE NUMERIC DISPLAY«, t00=0x0003, t01=0x0048}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0074}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…0558 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE: «, t00=0x0003, t01=0x0088}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0562…058a Head {h00=0x0024, h01=0x0050, text=»* REGISTER: A1 = RETURN CODE «, t00=0x0003, t01=0x00b6}
0x058a…05b6 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER«, t00=0x0003, t01=0x00de}
0x05b6…05de Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0003, t01=0x010a}
0x05de…0608 Head {h00=0x0026, h01=0x0050, text=»* A4 = WORK REGISTER «, t00=0x0003, t01=0x0132}
0x0608…062e Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE«, t00=0x0003, t01=0x015c}
0x062e…0656 Head {h00=0x0024, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0003, t01=0x0182}
0x0656…0678 Head {h00=0x001e, h01=0x0050, text=»* A7 = ORDER «, t00=0x0004, t01=0x001a}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0004, t01=0x003c}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06aa…06b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006e}
0x06b4…06d2 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x0078}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06dc…0712 Head {h00=0x0032, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY ORDER 06«, t00=0x0004, t01=0x00a0}
0x0712…0746 Head {h00=0x0030, h01=0x0050, text=»* WRITE NUMERIC DISPLAY MAY BE EXCLUDED. «, t00=0x0004, t01=0x00d6}
0x0746…077a Head {h00=0x0030, h01=0x0050, text=»* TO BE USED IN SYSTEMS WHERE THE DISPLAY«, t00=0x0004, t01=0x010a}
0x077a…07a6 Head {h00=0x0028, h01=0x0050, text=»* FIGURES ONLY AS AN ECHO-DEVICE.«, t00=0x0004, t01=0x013e}
0x07a6…07b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016a}
0x07b0…07ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0174}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c4…07d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0188}
0x07d2…07e6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0008}
0x07e6…07fa Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x001c}
0x07fa…080e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0030}
0x080e…0818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0044}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004e}
0x0822…084e Head {h00=0x0028, h01=0x0050, text=» ENTRY DNAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0005, t01=0x0058}
0x084e…0858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0084}
0x0858…0862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008e}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086c…08a0 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x00a2}
0x08a0…08d4 Head {h00=0x0030, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0005, t01=0x00d6}
0x08d4…0908 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0005, t01=0x010a}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013e}
0x0912…091c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0148}
0x091c…093c Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x0152}
0x093c…0968 Head {h00=0x0028, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB«, t00=0x0005, t01=0x0172}
0x0968…0990 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0006, t01=0x000e}
0x0990…09ae Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0006, t01=0x0036}
0x09ae…09d2 Head {h00=0x0020, h01=0x0050, text=» EXTRN OUTPUT SEND CHARACTER«, t00=0x0006, t01=0x0054}
0x09d2…0a12 Head {h00=0x003c, h01=0x0050, text=» EXTRN LDREG RESTORE REGISTERS A4,A3,A5,A7,A8 AND RETURN«, t00=0x0006, t01=0x0078}
0x0a12…0a3c Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 «, t00=0x0006, t01=0x00b8}
0x0a3c…0a66 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECHRTN RETURN FROM ECHOING «, t00=0x0006, t01=0x00e2}
0x0a66…0a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010c}
0x0a70…0a94 Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0006, t01=0x0116}
0x0a94…0ab8 Head {h00=0x0020, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0006, t01=0x013a}
0x0ab8…0adc Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0006, t01=0x015e}
0x0adc…0ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0182}
0x0ae6…0b02 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0006, t01=0x018c}
0x0b02…0b18 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x0007, t01=0x0018}
0x0b18…0b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x002e}
0x0b22…0b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2c…0b3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0042}
0x0b3a…0b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b44…0b66 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x005a}
0x0b66…0b88 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x007c}
0x0b88…0baa Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x009e}
0x0baa…0bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb4…0be8 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING X:A = 0 THIS DRIVER HANDLES «, t00=0x0007, t01=0x00ca}
0x0be8…0c18 Head {h00=0x002c, h01=0x0050, text=»* ONLY ORDER 05 ERASE NUMERIC DISPLAY«, t00=0x0007, t01=0x00fe}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c22…0c34 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0138}
0x0c34…0c52 Head {h00=0x001a, h01=0x0050, text=»DNWRIT EQU X:A ORDER 6«, t00=0x0007, t01=0x014a}
0x0c52…0c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0168}
0x0c5c…0c66 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0007, t01=0x0172}
0x0c66…0ca2 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0007, t01=0x017c}
0x0ca2…0cc4 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0008, t01=0x0028}
0x0cc4…0cf6 Head {h00=0x002e, h01=0x0050, text=»* ORDER 05 IS THEN REPLACED BY ORDER /31«, t00=0x0008, t01=0x004a}
0x0cf6…0d00 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x007c}
0x0d00…0d08 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0086}
0x0d08…0d1c Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0008, t01=0x008e}
0x0d1c…0d36 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0008, t01=0x00a2}
0x0d36…0d50 Head {h00=0x0016, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x00bc}
0x0d50…0d6a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0008, t01=0x00d6}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d74…0d9a Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0008, t01=0x00fa}
0x0d9a…0da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0dae…0dce Head {h00=0x001c, h01=0x0050, text=»* DISPLACMENT IN DWT «, t00=0x0008, t01=0x0134}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de2…0e04 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0008, t01=0x0168}
0x0e04…0e12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x018a}
0x0e12…0e2a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0009, t01=0x0008}
0x0e2a…0e40 Head {h00=0x0012, h01=0x0050, text=»* TABLES *«, t00=0x0009, t01=0x0020}
0x0e40…0e56 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0009, t01=0x0036}
0x0e56…0e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e60…0e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0056}
0x0e6a…0e8a Head {h00=0x001c, h01=0x0050, text=»DNAD EQU * ADDRESS BLOCK«, t00=0x0009, t01=0x0060}
0x0e8a…0eac Head {h00=0x001e, h01=0x0050, text=» DATA ACDN ACTIVATION PART«, t00=0x0009, t01=0x0080}
0x0eac…0ed0 Head {h00=0x0020, h01=0x0050, text=» DATA IHDN INTERRUPT HANDLER«, t00=0x0009, t01=0x00a2}
0x0ed0…0ef4 Head {h00=0x0020, h01=0x0050, text=» DATA RCDN RECOVERY ROUTINE «, t00=0x0009, t01=0x00c6}
0x0ef4…0f2a Head {h00=0x0032, h01=0x0050, text=» DATA ECHODN DEVICE-DEPENDENT ECHO-SUBROUTINE «, t00=0x0009, t01=0x00ea}
0x0f2a…0f38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0120}
0x0f38…0f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012e}
0x0f42…0f56 Head {h00=0x0010, h01=0x0050, text=»* A C D N«, t00=0x0009, t01=0x0138}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014c}
0x0f60…0f96 Head {h00=0x0032, h01=0x0050, text=»* ACDN = ACTIVATION DRIVER NUMERIC DISPLAY «, t00=0x0009, t01=0x0156}
0x0f96…0fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x018c}
0x0fa0…0fd0 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE THREATED: «, t00=0x000a, t01=0x0008}
0x0fd0…0fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0038}
0x0fda…1006 Head {h00=0x0028, h01=0x0050, text=»* ORDER 05: ERASE NUMERIC DISPLAY«, t00=0x000a, t01=0x0042}
0x1006…1036 Head {h00=0x002c, h01=0x0050, text=»* ORDER 06: WRITE ON NUMERIC DISPLAY «, t00=0x000a, t01=0x006e}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1040…1080 Head {h00=0x003c, h01=0x0050, text=»* IF ORDER 5 ERASE CHARACTER /40 IS SENT TO DISPLAY. «, t00=0x000a, t01=0x00a8}
0x1080…10c4 Head {h00=0x0040, h01=0x0050, text=»* IF ORDER 6 CHARACTERS IN ECB-BUFFER ARE SENT TO DISPLAY«, t00=0x000a, t01=0x00e8}
0x10c4…10ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10ce…10e0 Head {h00=0x000e, h01=0x0050, text=»ACDN EQU *«, t00=0x000a, t01=0x0136}
0x10e0…10f6 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000a, t01=0x0148}
0x10f6…1110 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x000a, t01=0x015e}
0x1110…1126 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN010 «, t00=0x000a, t01=0x0178}
0x1126…1132 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x018e}
0x1132…1148 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000b, t01=0x000a}
0x1148…115c Head {h00=0x0010, h01=0x0050, text=» SUK A7,/31 «, t00=0x000b, t01=0x0020}
0x115c…1172 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ADN010 «, t00=0x000b, t01=0x0034}
0x1172…1186 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/2C «, t00=0x000b, t01=0x004a}
0x1186…1192 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x005e}
0x1192…119c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006a}
0x119c…11b2 Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000b, t01=0x0074}
0x11b2…11bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008a}
0x11bc…11d6 Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 ORDER 6?«, t00=0x000b, t01=0x0094}
0x11d6…11ec Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN015 «, t00=0x000b, t01=0x00ae}
0x11ec…11f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c4}
0x11f6…1202 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00ce}
0x1202…120c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x120c…1232 Head {h00=0x0022, h01=0x0050, text=» ABL DISIOE I/O REQUEST ERROR «, t00=0x000b, t01=0x00e4}
0x1232…123c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010a}
0x123c…1252 Head {h00=0x0012, h01=0x0050, text=»* ORDER 05 «, t00=0x000b, t01=0x0114}
0x1252…125c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x125c…1270 Head {h00=0x0010, h01=0x0050, text=»ADN010 EQU *«, t00=0x000b, t01=0x0134}
0x1270…1292 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 ERASE DISPLAY «, t00=0x000b, t01=0x0148}
0x1292…12b6 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000b, t01=0x016a}
0x12b6…12c8 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x000b, t01=0x018e}
0x12c8…12d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0010}
0x12d6…12e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12e0…12f6 Head {h00=0x0012, h01=0x0050, text=»* ORDER 06 «, t00=0x000c, t01=0x0028}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1300…130a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0048}
0x130a…1320 Head {h00=0x0012, h01=0x0050, text=» IFT DNWRIT=1 «, t00=0x000c, t01=0x0052}
0x1320…132a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0068}
0x132a…1354 Head {h00=0x0026, h01=0x0050, text=»ADN015 LDK A3,0 RESET BUFFER INDEX«, t00=0x000c, t01=0x0072}
0x1354…137e Head {h00=0x0026, h01=0x0050, text=»ADN020 CF A15,GETCHR GET CHARACTER«, t00=0x000c, t01=0x009c}
0x137e…1398 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 FOUND? «, t00=0x000c, t01=0x00c6}
0x1398…13ba Head {h00=0x001e, h01=0x0050, text=» RF(NP) ENDIO NO, READY ! «, t00=0x000c, t01=0x00e0}
0x13ba…13c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0102}
0x13c4…13e0 Head {h00=0x0018, h01=0x0050, text=»* CHECK CHARACTER«, t00=0x000c, t01=0x010c}
0x13e0…13ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ea…13fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x000c, t01=0x0132}
0x13fc…1416 Head {h00=0x0016, h01=0x0050, text=» SUK A4,/3F BLANK?«, t00=0x000c, t01=0x0144}
0x1416…142c Head {h00=0x0012, h01=0x0050, text=» RF(E) ADN025 «, t00=0x000c, t01=0x015e}
0x142c…1448 Head {h00=0x0018, h01=0x0050, text=» ADK A4,6 KEY > /39?«, t00=0x000c, t01=0x0174}
0x1448…145e Head {h00=0x0012, h01=0x0050, text=» RF(P) ADN030 «, t00=0x000c, t01=0x0190}
0x145e…147a Head {h00=0x0018, h01=0x0050, text=» ADK A4,9 KEY < /30 «, t00=0x000d, t01=0x0016}
0x147a…1490 Head {h00=0x0012, h01=0x0050, text=» RF(N) ADN030 «, t00=0x000d, t01=0x0032}
0x1490…14a4 Head {h00=0x0010, h01=0x0050, text=»ADN025 EQU *«, t00=0x000d, t01=0x0048}
0x14a4…14c8 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x000d, t01=0x005c}
0x14c8…14da Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000d, t01=0x0080}
0x14da…1510 Head {h00=0x0032, h01=0x0050, text=»ADN030 LDK A1,CCERR INDICATE CODE CHECK ERROR «, t00=0x000d, t01=0x0092}
0x1510…1530 Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x000d, t01=0x00c8}
0x1530…1542 Head {h00=0x000e, h01=0x0050, text=» RB ADN020«, t00=0x000d, t01=0x00e8}
0x1542…154c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x154c…1558 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0104}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0110}
0x1562…1586 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x000d, t01=0x011a}
0x1586…159c Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000d, t01=0x013e}
0x159c…15aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0154}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b4…15c8 Head {h00=0x0010, h01=0x0050, text=»* I H D N«, t00=0x000d, t01=0x016c}
0x15c8…15d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15d2…15e8 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x000d, t01=0x018a}
0x15e8…15f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f2…1604 Head {h00=0x000e, h01=0x0050, text=»IHDN EQU *«, t00=0x000e, t01=0x001a}
0x1604…1622 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x000e, t01=0x002c}
0x1622…1636 Head {h00=0x0010, h01=0x0050, text=» RB(N) EXIT «, t00=0x000e, t01=0x004a}
0x1636…1654 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x000e, t01=0x005e}
0x1654…166a Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDN10 «, t00=0x000e, t01=0x007c}
0x166a…1694 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHLT? «, t00=0x000e, t01=0x0092}
0x1694…16aa Head {h00=0x0012, h01=0x0050, text=» RB(NE) ENDIO «, t00=0x000e, t01=0x00bc}
0x16aa…16be Head {h00=0x0010, h01=0x0050, text=»IHDN10 EQU *«, t00=0x000e, t01=0x00d2}
0x16be…16d0 Head {h00=0x000e, h01=0x0050, text=» ABL LDREG«, t00=0x000e, t01=0x00e6}
0x16d0…16de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00f8}
0x16de…16e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0106}
0x16e8…16fc Head {h00=0x0010, h01=0x0050, text=»* R C D N«, t00=0x000e, t01=0x0110}
0x16fc…1706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0124}
0x1706…171c Head {h00=0x0012, h01=0x0050, text=»* RECOVERY «, t00=0x000e, t01=0x012e}
0x171c…1726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x1726…1738 Head {h00=0x000e, h01=0x0050, text=»RCDN EQU *«, t00=0x000e, t01=0x014e}
0x1738…1762 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS A1-A8«, t00=0x000e, t01=0x0160}
0x1762…177a Head {h00=0x0014, h01=0x0050, text=» LDKL A2,/7FFF «, t00=0x000e, t01=0x018a}
0x177a…17a2 Head {h00=0x0024, h01=0x0050, text=» ANS A2,DWTST,A6 SET DEVICE BUSY«, t00=0x000f, t01=0x0012}
0x17a2…17c6 Head {h00=0x0020, h01=0x0050, text=» LDK A2,/40 ERASE CHARACTER «, t00=0x000f, t01=0x003a}
0x17c6…17e6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND ERASE«, t00=0x000f, t01=0x005e}
0x17e6…17fe Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x000f, t01=0x007e}
0x17fe…1812 Head {h00=0x0010, h01=0x0050, text=» RB(E) ENDIO«, t00=0x000f, t01=0x0096}
0x1812…1840 Head {h00=0x002a, h01=0x0050, text=» RB ACDN RETURN TO ACTIVATINO PARTONI «, t00=0x000f, t01=0x00aa}
0x1840…184e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00d8}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x1858…1870 Head {h00=0x0014, h01=0x0050, text=»* E C H O D N«, t00=0x000f, t01=0x00f0}
0x1870…187a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x187a…1894 Head {h00=0x0016, h01=0x0050, text=»* ECHO-ROUTINE «, t00=0x000f, t01=0x0112}
0x1894…189e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x189e…18b2 Head {h00=0x0010, h01=0x0050, text=»ECHODN EQU *«, t00=0x000f, t01=0x0136}
0x18b2…18ca Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x000f, t01=0x014a}
0x18ca…18e0 Head {h00=0x0012, h01=0x0050, text=» RF(N) ECH050 «, t00=0x000f, t01=0x0162}
0x18e0…18f2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x000f, t01=0x0178}
0x18f2…1910 Head {h00=0x001a, h01=0x0050, text=» SUK A3,/8 BACKSPACE? «, t00=0x000f, t01=0x018a}
0x1910…1926 Head {h00=0x0012, h01=0x0050, text=» RF(E) ECH050 «, t00=0x0010, t01=0x0018}
0x1926…1940 Head {h00=0x0016, h01=0x0050, text=» SUK A3,/10 CLEAR?«, t00=0x0010, t01=0x002e}
0x1940…195a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ECH040 NO «, t00=0x0010, t01=0x0048}
0x195a…197c Head {h00=0x001e, h01=0x0050, text=» LDK A2,/40 ERASE DISPLAY «, t00=0x0010, t01=0x0062}
0x197c…19a6 Head {h00=0x0026, h01=0x0050, text=»ECH040 CF A5,OUTPUT SEND CHARACTER«, t00=0x0010, t01=0x0084}
0x19a6…19da Head {h00=0x0030, h01=0x0050, text=»ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER «, t00=0x0010, t01=0x00ae}
0x19da…19e6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0010, t01=0x00e2}
0x19e6…19ee Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00ee}
0x19ee…19f2 Head {h00=0x4004, h01=0x0000}
0x19f2…19f6 00 10 00 f6 ┆ ┆
0x19f6…19fe (17, 1, 8) 20 04 00 00 00 11 00 04 ┆ ┆
0x19fe…1a4e (18, 0, 398) 2a 20 00 49 01 90 00 2e 00 50 2a 20 20 20 20 50 41 52 54 20 54 57 4f 3a 20 45 43 48 4f 20 4f 4e 45 20 4f 52 20 4d 4f 52 45 20 43 48 41 52 41 43 54 45 52 53 00 4a 00 0a 00 32 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 52 52 45 ┆* I . P* PART TWO: ECHO ONE OR MORE CHARACTERS J 2 P* CORRE┆
0x1a4e…1a9e 53 50 4f 4e 44 49 4e 47 20 54 4f 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 00 4a 00 3c 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 4f 20 42 45 20 53 54 4f 52 45 44 20 49 4e 20 49 4e 50 55 54 20 45 43 42 2d 42 55 46 46 45 ┆SPONDING TO ONE CHARACTER J < 4 P* TO BE STORED IN INPUT ECB-BUFFE┆
0x1a9e…1aee 52 20 00 4a 00 72 00 06 00 50 2a 20 00 4a 00 aa 00 06 00 50 2a 20 00 4a 00 b4 00 34 00 50 2a 20 20 20 20 50 41 52 54 20 4f 4e 45 20 46 4f 4c 4c 4f 57 53 20 41 4e 44 20 50 41 52 54 20 54 57 4f 20 43 41 4e 20 42 45 20 46 4f 55 4e 44 20 00 4a ┆R J r P* J P* J 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND J┆
0x1aee…1b3e 00 be 00 34 00 50 2a 20 20 20 20 49 4e 20 54 48 45 20 44 52 49 56 45 52 20 4d 4f 44 55 4c 45 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 54 4f 20 45 43 48 4f 20 00 4a 00 f6 00 16 00 50 2a 20 20 20 20 4f 55 54 50 55 54 20 44 45 56 49 43 45 ┆ 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO J P* OUTPUT DEVICE┆
0x1b3e…1b8c 00 4a 01 2e 00 06 00 50 2a 20 00 4a 01 48 00 36 00 50 2a 20 20 20 20 52 45 53 54 52 49 43 54 49 4f 4e 53 20 49 4e 20 44 45 56 49 43 45 20 44 45 50 45 4e 44 45 4e 54 20 45 43 48 4f 20 44 52 49 56 45 52 20 00 4a 01 52 00 06 00 50 2a 20 ┆ J . P* J H 6 P* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER J R P* ┆
0x1b8c…1bdc (19, 0, 400) 00 4a 01 8c 00 22 00 50 2a 20 20 20 20 41 37 20 4d 55 53 54 20 4e 4f 54 20 42 45 20 44 45 53 54 52 4f 59 45 44 20 00 4b 00 08 00 36 00 50 2a 20 20 20 20 54 48 45 20 45 43 48 4f 2d 52 4f 55 54 49 4e 45 20 53 48 4f 55 4c 44 20 42 45 20 54 45 ┆ J " P* A7 MUST NOT BE DESTROYED K 6 P* THE ECHO-ROUTINE SHOULD BE TE┆
0x1bdc…1c2c 52 4d 49 4e 41 54 45 44 20 57 49 54 48 20 41 20 00 4b 00 2e 00 1a 00 50 2a 20 20 20 20 4a 55 4d 50 20 54 4f 20 27 45 43 48 52 54 4e 27 2e 00 4b 00 68 00 06 00 50 2a 20 00 4b 00 86 00 10 00 50 45 43 48 45 4e 44 5c 45 51 55 5c 2a 00 4b 00 90 ┆RMINATED WITH A K . P* JUMP TO 'ECHRTN'. K h P* K PECHEND EQU * K ┆
0x1c2c…1c7c 00 06 00 50 2a 20 00 4b 00 a4 00 10 00 50 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 4b 00 ae 00 06 00 50 2a 20 00 4b 00 c2 00 24 00 50 5c 4c 44 4b 4c 5c 41 37 2c 2f 38 30 30 30 5c 49 4e 44 49 43 41 54 45 20 45 4e 44 20 49 2f 4f 20 00 4b 00 cc ┆ P* K P IFT CECHO=1 K P* K $ P LDKL A7,/8000 INDICATE END I/O K ┆
0x1c7c…1ccc 00 08 00 50 5c 58 49 46 00 4b 00 f4 00 0e 00 50 45 43 48 4f 5c 45 51 55 5c 2a 00 4b 01 00 00 10 00 50 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 4b 01 12 00 26 00 50 5c 53 54 5c 41 33 2c 44 57 54 41 33 2c 41 36 5c 53 41 56 45 20 41 33 2d 41 35 ┆ P XIF K PECHO EQU * K P IFT CECHO=1 K & P ST A3,DWTA3,A6 SAVE A3-A5┆
0x1ccc…1d1c 20 49 4e 20 44 57 54 20 00 4b 01 26 00 14 00 50 5c 53 54 5c 41 34 2c 44 57 54 41 34 2c 41 36 20 00 4b 01 50 00 14 00 50 5c 53 54 5c 41 35 2c 44 57 54 41 35 2c 41 36 20 00 4b 01 68 00 1a 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 54 2c 41 36 5c ┆ IN DWT K & P ST A4,DWTA4,A6 K P P ST A5,DWTA5,A6 K h P LD A1,DWTST,A6 ┆
0x1d1c…1d6c (20, 0, 398) 53 54 41 54 55 53 00 4b 01 80 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 32 20 00 4c 00 0e 00 24 00 50 5c 52 46 28 4e 4e 29 5c 52 45 54 55 52 5c 4e 4f 20 45 43 48 4f 20 52 45 51 55 45 53 54 45 44 20 00 4c 00 20 00 30 00 50 5c 4c 44 52 5c 41 34 2c ┆STATUS K P SLL A1,2 L $ P RF(NN) RETUR NO ECHO REQUESTED L 0 P LDR A4,┆
0x1d6c…1dbc 41 36 5c 53 41 56 45 20 44 57 54 2d 41 44 44 52 45 53 53 20 4f 46 20 49 4e 50 55 54 20 44 45 56 49 43 45 20 00 4c 00 48 00 32 00 50 5c 4c 44 5c 41 36 2c 44 57 54 45 43 48 2c 41 36 5c 44 57 54 2d 41 44 44 52 45 53 53 20 4f 46 20 4f 55 54 50 ┆A6 SAVE DWT-ADDRESS OF INPUT DEVICE L H 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTP┆
0x1dbc…1e0c 55 54 20 44 45 56 49 43 45 20 00 4c 00 7c 00 36 00 50 5c 53 54 5c 41 34 2c 44 57 54 57 41 54 2c 41 36 5c 53 41 56 45 20 44 57 54 2d 41 44 44 52 45 53 53 20 4f 46 20 49 4e 50 55 54 20 44 45 56 49 43 45 20 00 4c 00 b2 00 14 00 50 5c 4c 44 4b ┆UT DEVICE L | 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE L P LDK┆
0x1e0c…1e5c 4c 5c 41 35 2c 44 57 54 53 42 32 20 00 4c 00 ec 00 26 00 50 5c 41 44 52 5c 41 35 2c 41 36 5c 53 54 41 43 4b 42 41 53 45 2d 41 44 44 52 45 53 53 20 49 4e 20 41 35 00 4c 01 04 00 2e 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 44 52 2c 41 36 5c 41 ┆L A5,DWTSB2 L & P ADR A5,A6 STACKBASE-ADDRESS IN A5 L . P LD A1,DWTADR,A6 A┆
0x1e5c…1eaa 44 44 52 45 53 53 20 54 4f 20 41 44 44 52 45 53 53 2d 42 4c 4f 43 4b 20 00 4c 01 2e 00 32 00 50 5c 41 42 49 5c 36 2c 41 31 5c 47 4f 20 54 4f 20 45 43 48 4f 2d 52 4f 55 54 49 4e 45 20 44 45 56 49 43 45 2d 44 45 50 45 4e 44 45 4e 54 20 ┆DDRESS TO ADDRESS-BLOCK L . 2 P ABI 6,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT ┆