|
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: 49190 (0xc026)
Notes: pts_type(SC)
Names: »DRDY02.SC«
└─⟦7b35573c9⟧ Bits:30009690 Philips computer tape "600402"
└─⟦this⟧ »M:AF/DRDY02.SC«
IDENT DRDY02 REL 11.0 81-09-30 870105041100 =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05 CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387 REL 11.0 81-09-17 = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31 REL 11.0 81-09-17 = 7 FUNCTIONS FOR VD87 IMPLEMENTED REL 11.0 81-06-30 = 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE REL 11.0 81-06-24 = 5 SUPPRESSION OF TABULATION CORRECTED REL 11.0 81-05-24 = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS REL 11.0 81-04-06 = 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 REL 11.0 81-02-17 = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED REL 11.0 81-02-13 = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE REL 11.0 81-02-03 * ************************************************************ * * * * PHILIPS TERMINAL SYSTEM P T S * DRDY02 = DRIVER VIDEO DISPLAY * * * ************************************************************ * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO * DISPLAYS PTS 6342, 6344, 6346 AND TO THE * DISPLAYS PTS 6351, 6385 AND 6386. * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- * FUNCTIONS WHICH MAKES IT POSSIBLE TO USE * THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- * BOARD. * * * THE FOLLOWING ORDERS ARE TREATED : * * ORDER 00 TEST STATUS * 05 BASIC WRITE * 06 STANDARD WRITE * 0B SET CURSOR AND WRITE * 31 ERASE * * * NORMAL REGISTER USAGE : * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORKING REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * ENTRIES * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK * * * EXTERNALS * * * TOSS ROUTINES * EXTRN LENDER I/O-REQUEST ERROR EXTRN LENDIS END I/O-REQUEST EXTRN STABLK START OF BLOCK EXTRN OUTPUT SEND EXTRN ENDBLK END OF BLOCK EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER EXTRN ECHRTN RETURN TO KEYBOARD EXTRN TENDIO END OF I/O * * DWT DISPLACEMENTS * EXTRN DWTDEV TERMINAL DEVICE STATUS EXTRN DWTST DEVICE STATUS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD * ************************************************************ * * CONSTANTS * ************************************************************ * * DWT DISPLACEMENTS * DWTAP EQU /2 HEAD POSITION POINTER DWTBC EQU /1 POSITION COUNTER DWTLIN EQU /4 LINES DWTPOS EQU /5 POSITIONS DWTBLC EQU /6 CHARACTERS IN BLOCK * * CHARACTERS * DUMMY EQU /3 DUMMY CHARACTER BACKSP EQU /08 NON-DESTRUCTIVE BACKSPACE LF EQU /0A LINE FEED HOME EQU /0B CURSOR HOME CLEHOM EQU /0C CLEAR AND CURSOR HOME CR EQU /0D CARRIAGE RETURN CURRIG EQU /10 CURSOR RIGHT SCADD EQU /11 SET CURSOR ADDRESS ULSTOP EQU /13 UNDERLINE STOP FASOUT EQU /14 FAST OUTPUT STILL EQU /18 CURSOR STEADY CTYCOD EQU /1B SET COUNTRY CODE LISTOP EQU /1F LOW INTENSITY STOP SPACE EQU /20 SPACE * * RETURN CODES * CCERR EQU /4 CODE CHECK ERROR * * OTHER * MINBLK EQU 6 BLOCK SIZE FASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT * ************************************************************ * * ADDRESS BLOCK * ************************************************************ DATA DVBLEN BUFFER LENGTH DATA 2 DEVICE INDEX DYAD EQU * DATA ACDY DRIVER ACTIVATION ADDRESS DATA ABDY ABORT ROUTINE DATA 0 NO INTERRUPT HANDLER DATA RCDY RECOVERY ROUTINE DATA ECHODY ECHO ROUTINE * ************************************************************ * * CONDITIONAL ASSEMBLY * ************************************************************ * * IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT * WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") * OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE * FOUND EQUAL. * X:A EQU 0 FASTO EQU 1 * * * BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 * 6346, 6385 AND 6386. * X:B EQU 0 WHATDY EQU 0 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 1 LOWCHA EQU 0 * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU 0 * * BY SETTING THE CONSTANT TRASPA = 1 IT IS
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY02 REL 11.0 81-09-30 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0078 Head {h00=0x0036, h01=0x0050, text=» =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05«, t00=0x0000, t01=0x0042}
0x0078…00b6 Head {h00=0x003a, h01=0x0050, text=» CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387«, t00=0x0000, t01=0x007c}
0x00b6…00d2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-09-17«, t00=0x0000, t01=0x00ba}
0x00d2…0108 Head {h00=0x0032, h01=0x0050, text=» = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31 «, t00=0x0000, t01=0x00d6}
0x0108…0124 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-09-17«, t00=0x0000, t01=0x010c}
0x0124…0152 Head {h00=0x002a, h01=0x0050, text=» = 7 FUNCTIONS FOR VD87 IMPLEMENTED «, t00=0x0000, t01=0x0128}
0x0152…016e Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-30«, t00=0x0000, t01=0x0156}
0x016e…01b6 Head {h00=0x0044, h01=0x0050, text=» = 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE«, t00=0x0000, t01=0x0172}
0x01b6…01d2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-24«, t00=0x0001, t01=0x002a}
0x01d2…0204 Head {h00=0x002e, h01=0x0050, text=» = 5 SUPPRESSION OF TABULATION CORRECTED«, t00=0x0001, t01=0x0046}
0x0204…0220 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-24«, t00=0x0001, t01=0x0078}
0x0220…025c Head {h00=0x0038, h01=0x0050, text=» = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS«, t00=0x0001, t01=0x0094}
0x025c…0278 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-06«, t00=0x0001, t01=0x00d0}
0x0278…02b4 Head {h00=0x0038, h01=0x0050, text=» = 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 «, t00=0x0001, t01=0x00ec}
0x02b4…02d0 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-17«, t00=0x0001, t01=0x0128}
0x02d0…0308 Head {h00=0x0034, h01=0x0050, text=» = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED «, t00=0x0001, t01=0x0144}
0x0308…0324 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-13«, t00=0x0001, t01=0x017c}
0x0324…0358 Head {h00=0x0030, h01=0x0050, text=» = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE «, t00=0x0002, t01=0x0008}
0x0358…0374 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-03«, t00=0x0002, t01=0x003c}
0x0374…037e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0058}
0x037e…03c2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0002, t01=0x0062}
0x03c2…03cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a6}
0x03cc…03d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…040a Head {h00=0x0026, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM P T S «, t00=0x0002, t01=0x00c4}
0x040a…0434 Head {h00=0x0026, h01=0x0050, text=»* DRDY02 = DRIVER VIDEO DISPLAY «, t00=0x0002, t01=0x00ee}
0x0434…043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x043e…0448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…0496 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0002, t01=0x0136}
0x0496…04a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017a}
0x04a0…04d4 Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO «, t00=0x0002, t01=0x0184}
0x04d4…0508 Head {h00=0x0030, h01=0x0050, text=»* DISPLAYS PTS 6342, 6344, 6346 AND TO THE«, t00=0x0003, t01=0x0028}
0x0508…0536 Head {h00=0x002a, h01=0x0050, text=»* DISPLAYS PTS 6351, 6385 AND 6386. «, t00=0x0003, t01=0x005c}
0x0536…056c Head {h00=0x0032, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-«, t00=0x0003, t01=0x008a}
0x056c…05a0 Head {h00=0x0030, h01=0x0050, text=»* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE«, t00=0x0003, t01=0x00c0}
0x05a0…05d6 Head {h00=0x0032, h01=0x0050, text=»* THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- «, t00=0x0003, t01=0x00f4}
0x05d6…05e8 Head {h00=0x000e, h01=0x0050, text=»* BOARD.«, t00=0x0003, t01=0x012a}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f2…05fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0146}
0x05fc…062a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0003, t01=0x0150}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017e}
0x0634…0658 Head {h00=0x0020, h01=0x0050, text=»* ORDER 00 TEST STATUS «, t00=0x0003, t01=0x0188}
0x0658…067c Head {h00=0x0020, h01=0x0050, text=»* 05 BASIC WRITE «, t00=0x0004, t01=0x001c}
0x067c…06a2 Head {h00=0x0022, h01=0x0050, text=»* 06 STANDARD WRITE«, t00=0x0004, t01=0x0040}
0x06a2…06ce Head {h00=0x0028, h01=0x0050, text=»* 0B SET CURSOR AND WRITE«, t00=0x0004, t01=0x0066}
0x06ce…06ec Head {h00=0x001a, h01=0x0050, text=»* 31 ERASE «, t00=0x0004, t01=0x0092}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b0}
0x06f6…0700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ba}
0x0700…0724 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE : «, t00=0x0004, t01=0x00c4}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072e…0756 Head {h00=0x0024, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x00f2}
0x0756…0784 Head {h00=0x002a, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x011a}
0x0784…07ae Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0004, t01=0x0148}
0x07ae…07dc Head {h00=0x002a, h01=0x0050, text=»* A4 = WORKING REGISTER «, t00=0x0004, t01=0x0172}
0x07dc…0804 Head {h00=0x0024, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x0010}
0x0804…082c Head {h00=0x0024, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0038}
0x082c…084e Head {h00=0x001e, h01=0x0050, text=»* A7 = ORDER«, t00=0x0005, t01=0x0060}
0x084e…0876 Head {h00=0x0024, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0005, t01=0x0082}
0x0876…0880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…089e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0005, t01=0x00be}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b2…08de Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0005, t01=0x00e6}
0x08de…08e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f2…0908 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0005, t01=0x0126}
0x0908…0912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x0912…091c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091c…0936 Head {h00=0x0016, h01=0x0050, text=»* TOSS ROUTINES «, t00=0x0005, t01=0x0150}
0x0936…0940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016a}
0x0940…0968 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER I/O-REQUEST ERROR «, t00=0x0005, t01=0x0174}
0x0968…098e Head {h00=0x0022, h01=0x0050, text=» EXTRN LENDIS END I/O-REQUEST «, t00=0x0006, t01=0x000c}
0x098e…09b2 Head {h00=0x0020, h01=0x0050, text=» EXTRN STABLK START OF BLOCK«, t00=0x0006, t01=0x0032}
0x09b2…09cc Head {h00=0x0016, h01=0x0050, text=» EXTRN OUTPUT SEND«, t00=0x0006, t01=0x0056}
0x09cc…09ee Head {h00=0x001e, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0006, t01=0x0070}
0x09ee…0a24 Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER «, t00=0x0006, t01=0x0092}
0x0a24…0a4c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD«, t00=0x0006, t01=0x00c8}
0x0a4c…0a6c Head {h00=0x001c, h01=0x0050, text=» EXTRN TENDIO END OF I/O«, t00=0x0006, t01=0x00f0}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0110}
0x0a76…0a94 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0006, t01=0x011a}
0x0a94…0a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9e…0aca Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTDEV TERMINAL DEVICE STATUS«, t00=0x0006, t01=0x0142}
0x0aca…0aec Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST DEVICE STATUS«, t00=0x0006, t01=0x016e}
0x0aec…0b06 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0006, t01=0x0190}
0x0b06…0b26 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0007, t01=0x001a}
0x0b26…0b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b30…0b4e Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x0007, t01=0x0044}
0x0b4e…0b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b58…0b7c Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0007, t01=0x006c}
0x0b7c…0ba2 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0007, t01=0x0090}
0x0ba2…0bc8 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0007, t01=0x00b6}
0x0bc8…0be8 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0007, t01=0x00dc}
0x0be8…0c0a Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0007, t01=0x00fc}
0x0c0a…0c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011e}
0x0c14…0c58 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0007, t01=0x0128}
0x0c58…0c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c62…0c78 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x0007, t01=0x0176}
0x0c78…0c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c82…0cc6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0008, t01=0x0008}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004c}
0x0cd0…0cee Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0008, t01=0x0056}
0x0cee…0cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0074}
0x0cf8…0d22 Head {h00=0x0026, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITION POINTER«, t00=0x0008, t01=0x007e}
0x0d22…0d48 Head {h00=0x0022, h01=0x0050, text=»DWTBC EQU /1 POSITION COUNTER «, t00=0x0008, t01=0x00a8}
0x0d48…0d64 Head {h00=0x0018, h01=0x0050, text=»DWTLIN EQU /4 LINES «, t00=0x0008, t01=0x00ce}
0x0d64…0d84 Head {h00=0x001c, h01=0x0050, text=»DWTPOS EQU /5 POSITIONS «, t00=0x0008, t01=0x00ea}
0x0d84…0dae Head {h00=0x0026, h01=0x0050, text=»DWTBLC EQU /6 CHARACTERS IN BLOCK «, t00=0x0008, t01=0x010a}
0x0dae…0db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0134}
0x0db8…0dce Head {h00=0x0012, h01=0x0050, text=»* CHARACTERS«, t00=0x0008, t01=0x013e}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0dfc Head {h00=0x0020, h01=0x0050, text=»DUMMY EQU /3 DUMMY CHARACTER«, t00=0x0008, t01=0x015e}
0x0dfc…0e2c Head {h00=0x002c, h01=0x0050, text=»BACKSP EQU /08 NON-DESTRUCTIVE BACKSPACE«, t00=0x0008, t01=0x0182}
0x0e2c…0e48 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0009, t01=0x0022}
0x0e48…0e68 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x0009, t01=0x003e}
0x0e68…0e94 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x0009, t01=0x005e}
0x0e94…0eb6 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0009, t01=0x008a}
0x0eb6…0eda Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x0009, t01=0x00ac}
0x0eda…0f02 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x0009, t01=0x00d0}
0x0f02…0f28 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x0009, t01=0x00f8}
0x0f28…0f4a Head {h00=0x001e, h01=0x0050, text=»FASOUT EQU /14 FAST OUTPUT«, t00=0x0009, t01=0x011e}
0x0f4a…0f6e Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x0009, t01=0x0140}
0x0f6e…0f96 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x0009, t01=0x0164}
0x0f96…0fc0 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x0009, t01=0x018c}
0x0fc0…0fdc Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000a, t01=0x0026}
0x0fdc…0fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe6…0ffe Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES«, t00=0x000a, t01=0x004c}
0x0ffe…1008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0064}
0x1008…102e Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000a, t01=0x006e}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0094}
0x1038…104a Head {h00=0x000e, h01=0x0050, text=»* OTHER «, t00=0x000a, t01=0x009e}
0x104a…1054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1054…1074 Head {h00=0x001c, h01=0x0050, text=»MINBLK EQU 6 BLOCK SIZE «, t00=0x000a, t01=0x00ba}
0x1074…10b8 Head {h00=0x0040, h01=0x0050, text=»FASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT «, t00=0x000a, t01=0x00da}
0x10b8…10c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c2…1106 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000a, t01=0x0128}
0x1106…1110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016c}
0x1110…112a Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x000a, t01=0x0176}
0x112a…1134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1134…1178 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000b, t01=0x000a}
0x1178…119a Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x000b, t01=0x004e}
0x119a…11b6 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x000b, t01=0x0070}
0x11b6…11c8 Head {h00=0x000e, h01=0x0050, text=»DYAD EQU *«, t00=0x000b, t01=0x008c}
0x11c8…11f4 Head {h00=0x0028, h01=0x0050, text=» DATA ACDY DRIVER ACTIVATION ADDRESS«, t00=0x000b, t01=0x009e}
0x11f4…1214 Head {h00=0x001c, h01=0x0050, text=» DATA ABDY ABORT ROUTINE«, t00=0x000b, t01=0x00ca}
0x1214…1238 Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x000b, t01=0x00ea}
0x1238…125c Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x000b, t01=0x010e}
0x125c…127e Head {h00=0x001e, h01=0x0050, text=» DATA ECHODY ECHO ROUTINE «, t00=0x000b, t01=0x0132}
0x127e…1288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0154}
0x1288…12cc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000b, t01=0x015e}
0x12cc…12d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d6…12f6 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000c, t01=0x001c}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x1300…1344 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000c, t01=0x0046}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134e…1386 Head {h00=0x0034, h01=0x0050, text=»* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT«, t00=0x000c, t01=0x0094}
0x1386…13c6 Head {h00=0x003c, h01=0x0050, text=»* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")«, t00=0x000c, t01=0x00cc}
0x13c6…1402 Head {h00=0x0038, h01=0x0050, text=»* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE «, t00=0x000c, t01=0x010c}
0x1402…141a Head {h00=0x0014, h01=0x0050, text=»* FOUND EQUAL.«, t00=0x000c, t01=0x0148}
0x141a…1424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0160}
0x1424…1436 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000c, t01=0x016a}
0x1436…144a Head {h00=0x0010, h01=0x0050, text=»FASTO EQU 1 «, t00=0x000c, t01=0x017c}
0x144a…1454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x145e…14aa Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344«, t00=0x000d, t01=0x0014}
0x14aa…14ca Head {h00=0x001c, h01=0x0050, text=»* 6346, 6385 AND 6386.«, t00=0x000d, t01=0x0060}
0x14ca…14d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0080}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x008a}
0x14e6…14fa Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 0«, t00=0x000d, t01=0x009c}
0x14fa…1504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b0}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ba}
0x150e…154a Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000d, t01=0x00c4}
0x154a…1574 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000d, t01=0x0100}
0x1574…1586 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000d, t01=0x012a}
0x1586…159a Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000d, t01=0x013c}
0x159a…15a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a4…15ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15ae…15ea Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000d, t01=0x0164}
0x15ea…1626 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0010}
0x1626…1662 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x004c}
0x1662…166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0088}
0x166c…167e Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000e, t01=0x0092}
0x167e…1692 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000e, t01=0x00a4}
0x1692…169c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169c…16d0 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000e, t01=0x00c2}
0x16d0…16d4 Head {h00=0x0054, h01=0x0050}
0x16d4…16d8 Head {h00=0x2a20, h01=0x2020}
0x16d8…1720 50 4f 53 53 49 42 4c 45 20 54 4f 20 53 55 50 50 52 45 53 53 20 54 52 41 49 4c 49 4e 47 20 42 4c 41 4e 4b 53 2c 20 54 41 42 55 4c 41 54 49 4f 4e 53 2c 20 2f 31 45 20 41 4e 44 20 2f 31 46 2e 20 28 4e 4f 54 20 42 41 53 ┆POSSIBLE TO SUPPRESS TRAILING BLANKS, TABULATIONS, /1E AND /1F. (NOT BAS┆
0x1720…176e 49 43 20 57 00 0e 00 f6 00 06 00 50 2a 20 00 0e 01 4e 00 0e 00 50 58 3a 45 5c 45 51 55 5c 30 20 00 0e 01 58 00 10 00 50 54 52 41 53 50 41 5c 45 51 55 5c 31 00 0e 01 6a 00 06 00 50 2a 20 00 0e 01 7e 00 32 00 50 2a 20 20 20 42 59 20 53 ┆IC W P* N PX:E EQU 0 X PTRASPA EQU 1 j P* ~ 2 P* BY S┆
0x176e…17be (15, 0, 400) 45 54 54 49 4e 47 20 58 3a 46 20 3d 20 31 2c 20 43 55 52 53 4f 52 20 57 49 4c 4c 20 42 45 20 53 54 45 41 44 59 20 00 0e 01 88 00 1c 00 50 2a 20 20 20 49 4e 53 54 45 41 44 20 4f 46 20 42 4c 49 4e 4b 49 4e 47 2e 00 0f 00 2e 00 06 00 50 2a 20 ┆ETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING. . P* ┆
0x17be…180e 00 0f 00 4e 00 0e 00 50 58 3a 46 5c 45 51 55 5c 31 20 00 0f 00 58 00 10 00 50 53 54 45 41 44 59 5c 45 51 55 5c 31 00 0f 00 6a 00 06 00 50 2a 20 00 0f 00 7e 00 34 00 50 2a 20 20 20 42 59 20 4d 45 41 4e 53 20 4f 46 20 43 4f 4e 44 49 54 49 4f ┆ N PX:F EQU 1 X PSTEADY EQU 1 j P* ~ 4 P* BY MEANS OF CONDITIO┆
0x180e…185e 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 49 54 20 49 53 20 50 4f 53 2d 20 00 0f 00 88 00 2e 00 50 2a 20 20 20 53 49 42 4c 45 20 54 4f 20 43 48 4f 4f 53 45 20 42 45 54 57 45 45 4e 20 54 45 4e 20 44 49 46 46 45 52 45 4e 54 20 00 0f 00 c0 00 2c ┆NAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT ,┆
0x185e…18ae 00 50 2a 20 20 20 43 48 41 52 41 43 54 45 52 20 53 45 54 53 2c 20 49 46 20 50 54 53 20 36 33 38 35 20 49 53 20 55 53 45 44 2e 00 0f 00 f2 00 06 00 50 2a 20 00 0f 01 22 00 12 00 50 2a 5c 43 4f 44 45 5c 43 4f 55 4e 54 52 59 00 0f 01 2c 00 10 ┆ P* CHARACTER SETS, IF PTS 6385 IS USED. P* " P* CODE COUNTRY , ┆
0x18ae…18fe 00 50 2a 5c 30 5c 47 42 2f 4e 4c 2f 42 20 00 0f 01 42 00 10 00 50 2a 5c 31 5c 44 2f 41 2f 4c 2f 43 48 00 0f 01 56 00 10 00 50 2a 5c 32 5c 46 2f 43 48 2f 42 2f 4c 00 0f 01 6a 00 0a 00 50 2a 5c 33 5c 45 20 00 0f 01 7e 00 0c 00 50 2a 5c 34 5c ┆ P* 0 GB/NL/B B P* 1 D/A/L/CH V P* 2 F/CH/B/L j P* 3 E ~ P* 4 ┆
0x18fe…194e (16, 0, 400) 49 2f 43 48 00 0f 01 8c 00 0c 00 50 2a 5c 35 5c 53 2f 53 46 00 10 00 0c 00 0c 00 50 2a 5c 36 5c 44 4b 2f 4e 00 10 00 1c 00 0a 00 50 2a 5c 37 5c 50 20 00 10 00 2c 00 0a 00 50 2a 5c 38 5c 59 55 00 10 00 3a 00 0a 00 50 2a 5c 39 5c 55 53 00 10 ┆I/CH P* 5 S/SF P* 6 DK/N P* 7 P , P* 8 YU : P* 9 US ┆
0x194e…199e 00 48 00 0e 00 50 58 3a 47 5c 45 51 55 5c 30 20 00 10 00 56 00 12 00 50 43 4f 55 4e 54 52 59 5c 45 51 55 5c 36 20 00 10 00 68 00 06 00 50 2a 20 00 10 00 7e 00 26 00 50 2a 20 20 20 4d 45 4d 4f 52 59 20 4d 41 4e 41 47 45 4d 45 4e 54 20 42 55 ┆ H PX:G EQU 0 V PCOUNTRY EQU 6 h P* ~ & P* MEMORY MANAGEMENT BU┆
0x199e…19ee 46 46 45 52 20 53 49 5a 45 20 00 10 00 88 00 06 00 50 2a 20 00 10 00 b2 00 0e 00 50 58 3a 48 5c 45 51 55 5c 38 32 00 10 00 bc 00 12 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 31 32 38 00 10 00 ce 00 06 00 50 2a 20 00 10 00 e4 00 1a 00 50 2a 20 ┆FFER SIZE P* PX:H EQU 82 PDVBLEN EQU 128 P* P* ┆
0x19ee…1a3e 20 20 4d 41 58 49 4d 55 4d 20 42 4c 4f 43 4b 20 53 49 5a 45 00 10 00 ee 00 06 00 50 2a 20 00 10 01 0c 00 10 00 50 58 3a 4a 5c 45 51 55 5c 31 34 30 20 00 10 01 16 00 12 00 50 4d 41 58 42 4c 4b 5c 45 51 55 5c 58 3a 4a 00 10 01 2a 00 06 00 50 ┆ MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J * P┆
0x1a3e…1a8e 2a 20 00 10 01 40 00 4c 00 50 2a 20 20 20 58 3a 49 20 53 48 4f 55 4c 44 20 42 45 20 53 45 54 20 54 4f 20 31 20 49 46 20 41 20 50 54 53 20 36 33 38 35 20 4f 52 20 38 36 20 49 53 20 49 4e 43 4c 55 44 45 44 20 49 4e 20 53 59 53 54 45 4d 5c 3d ┆* @ L P* X:I SHOULD BE SET TO 1 IF A PTS 6385 OR 86 IS INCLUDED IN SYSTEM =┆
0x1a8e…1ade (17, 0, 400) 34 20 00 10 01 4a 00 06 00 50 2a 20 00 11 00 0a 00 0e 00 50 58 3a 49 5c 45 51 55 5c 30 20 00 11 00 14 00 10 00 50 50 4c 41 53 4d 5c 45 51 55 5c 30 20 00 11 00 26 00 06 00 50 2a 20 00 11 00 3a 00 32 00 50 2a 20 20 20 49 46 20 58 3a 4b 20 3d ┆4 J P* PX:I EQU 0 PPLASM EQU 0 & P* : 2 P* IF X:K =┆
0x1ade…1b2e 20 31 20 49 54 20 49 53 20 50 4f 53 53 49 42 4c 45 20 54 4f 20 55 53 45 20 47 52 45 45 4b 5c 5c 3d 34 00 11 00 44 00 1a 00 50 2a 20 20 20 43 48 41 52 41 43 54 45 52 20 53 45 54 5c 5c 3d 34 20 00 11 00 7a 00 06 00 50 2a 20 00 11 00 98 00 12 ┆ 1 IT IS POSSIBLE TO USE GREEK =4 D P* CHARACTER SET =4 z P* ┆
0x1b2e…1b7e 00 50 58 3a 4b 5c 45 51 55 5c 30 5c 5c 3d 34 20 00 11 00 a2 00 16 00 50 47 52 45 45 43 45 5c 45 51 55 5c 58 3a 4b 5c 5c 3d 34 00 11 00 b8 00 06 00 50 2a 20 00 11 00 d2 00 34 00 50 2a 20 20 20 49 46 20 44 49 53 50 4c 41 59 20 56 44 20 38 37 ┆ PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* IF DISPLAY VD 87┆
0x1b7e…1bce 20 49 53 20 55 53 45 44 2c 20 58 3a 4c 20 53 48 4f 55 4c 44 20 42 45 20 31 5c 3d 37 00 11 00 dc 00 06 00 50 2a 20 00 11 01 14 00 0e 00 50 58 3a 4c 5c 45 51 55 5c 30 20 00 11 01 1e 00 10 00 50 56 44 38 37 5c 45 51 55 5c 58 3a 4c 00 11 01 30 ┆ IS USED, X:L SHOULD BE 1 =7 P* PX:L EQU 0 PVD87 EQU X:L 0┆
0x1bce…1c1e 00 06 00 50 2a 20 00 11 01 44 00 0a 00 50 5c 45 4a 45 43 54 00 11 01 4e 00 06 00 50 2a 20 00 11 01 5c 00 3a 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 ┆ P* D P EJECT N P* : P******************************************┆
0x1c1e…1c6e (18, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 11 01 66 00 06 00 50 2a 20 00 12 00 14 00 26 00 50 2a 20 20 20 41 20 43 20 54 20 49 20 56 20 41 20 54 20 49 20 4f 20 4e 20 20 20 50 20 41 20 52 20 54 20 00 12 00 1e 00 06 00 50 2a 20 00 12 00 48 00 34 ┆*********** f P* & P* A C T I V A T I O N P A R T P* H 4┆
0x1c6e…1cbe 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 4d 41 4b 45 53 20 41 20 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 2c 20 43 48 45 43 4b 53 20 54 48 45 00 12 00 52 00 38 00 50 2a 20 20 20 52 45 51 55 45 53 54 45 44 20 4f 52 44 45 52 20 41 4e ┆ P* THIS PART MAKES A START OF BLOCK, CHECKS THE R 8 P* REQUESTED ORDER AN┆
0x1cbe…1d0e 44 20 42 52 41 4e 43 48 45 53 20 54 4f 20 54 48 45 20 41 50 50 52 4f 50 52 49 41 54 45 20 00 12 00 8a 00 1c 00 50 2a 20 20 20 50 41 52 54 20 4f 46 20 54 48 45 20 44 52 49 56 45 52 2e 20 00 12 00 c6 00 06 00 50 2a 20 00 12 00 e6 00 3c 00 50 ┆D BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. P* < P┆
0x1d0e…1d5e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 12 00 f0 00 06 00 50 2a 20 00 12 01 30 00 0e 00 50 41 43 44 59 5c 45 ┆******************************************************* P* 0 PACDY E┆
0x1d5e…1dae 51 55 5c 2a 00 12 01 3a 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 52 45 53 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 12 01 4c 00 30 00 50 5c 43 4d 5c 44 57 54 42 4c 43 2b 44 57 54 44 45 56 2c 41 36 5c 43 4c 45 41 52 20 43 48 41 52 41 ┆QU * : P LDK A3,0 RESET BUFFER INDEX L 0 P CM DWTBLC+DWTDEV,A6 CLEAR CHARA┆
0x1dae…1dfe (19, 0, 400) 43 54 45 52 20 43 4f 55 4e 54 45 52 00 12 01 70 00 24 00 50 5c 4c 44 4b 4c 5c 41 32 2c 4d 41 58 42 4c 4b 5c 4d 41 58 2e 20 42 4c 4f 43 4b 20 53 49 5a 45 20 00 13 00 14 00 20 00 50 5c 43 46 5c 41 35 2c 53 54 41 42 4c 4b 5c 53 54 41 52 54 20 ┆CTER COUNTER p $ P LDKL A2,MAXBLK MAX. BLOCK SIZE P CF A5,STABLK START ┆
0x1dfe…1e4e 4f 46 20 42 4c 4f 43 4b 00 13 00 3c 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 13 00 60 00 06 00 50 2a 20 00 13 00 76 00 12 00 50 2a 20 20 20 54 45 53 54 20 4f 52 44 45 52 00 13 00 80 00 06 00 50 2a 20 00 13 00 96 00 18 00 50 ┆OF BLOCK < P RF(NZ) DYER10 ` P* v P* TEST ORDER P* P┆
0x1e4e…1e9e 5c 4c 44 52 5c 41 37 2c 41 37 5c 47 45 54 20 4f 52 44 45 52 00 13 00 a0 00 26 00 50 5c 52 46 28 5a 29 5c 44 59 31 30 30 5c 4f 52 44 45 52 20 30 30 2c 20 54 45 53 54 20 53 54 41 54 55 53 00 13 00 bc 00 06 00 50 2a 20 00 13 00 e6 00 0e 00 50 ┆ LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS P* P┆
0x1e9e…1eee 5c 53 55 4b 5c 41 37 2c 2f 35 00 13 00 f0 00 26 00 50 5c 52 46 28 5a 29 5c 44 59 32 30 30 5c 4f 52 44 45 52 20 30 35 2c 20 42 41 53 49 43 20 57 52 49 54 45 00 13 01 02 00 06 00 50 2a 20 00 13 01 2c 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 20 ┆ SUK A7,/5 & P RF(Z) DY200 ORDER 05, BASIC WRITE P* , P SUK A7,1 ┆
0x1eee…1f3e 00 13 01 36 00 28 00 50 5c 52 46 28 5a 29 5c 44 59 33 30 30 5c 4f 52 44 45 52 20 30 36 2c 53 54 41 4e 44 41 52 44 20 57 52 49 54 45 00 13 01 48 00 06 00 50 2a 20 00 13 01 74 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 2f 35 00 13 01 7e 00 30 00 50 ┆ 6 ( P RF(Z) DY300 ORDER 06,STANDARD WRITE H P* t P SUK A7,/5 ~ 0 P┆
0x1f3e…1f8e (20, 0, 398) 5c 41 42 4c 28 5a 29 5c 44 59 36 30 30 5c 4f 52 44 45 52 20 30 42 2c 20 53 45 54 20 43 55 52 53 4f 52 20 41 4e 44 20 57 52 49 54 45 00 13 01 90 00 06 00 50 2a 20 00 14 00 34 00 10 00 50 5c 53 55 4b 5c 41 37 2c 2f 32 36 20 00 14 00 3e 00 22 ┆ ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* 4 P SUK A7,/26 > "┆
0x1f8e…1fde 00 50 5c 41 42 4c 28 5a 29 5c 44 59 37 30 30 5c 4f 52 44 45 52 20 33 31 2c 20 45 52 41 53 45 20 00 14 00 52 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 14 00 78 00 0e 00 50 5c 41 44 4b 5c 41 37 2c 2f 41 00 14 00 90 00 30 ┆ P ABL(Z) DY700 ORDER 31, ERASE R P IFT VD87=1 =7 x P ADK A7,/A 0┆
0x1fde…202e 00 50 5c 41 42 4c 28 5a 29 5c 4f 52 44 32 37 5c 4f 52 44 45 52 20 2f 32 37 2c 20 54 52 41 4e 53 46 45 52 20 50 41 52 41 4d 45 54 45 52 53 00 14 00 a2 00 08 00 50 5c 58 49 46 00 14 00 d6 00 06 00 50 2a 20 00 14 00 e2 00 1a 00 50 2a 20 20 20 ┆ P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF P* P* ┆
0x202e…207e 49 2f 4f 2d 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 14 00 ec 00 06 00 50 2a 20 00 14 01 0a 00 10 00 50 52 45 51 45 52 52 5c 45 51 55 5c 2a 00 14 01 14 00 1e 00 50 5c 43 46 5c 41 35 2c 45 4e 44 42 4c 4b 5c 45 4e 44 20 4f 46 20 42 4c 4f ┆I/O-REQUEST ERROR P* PREQERR EQU * P CF A5,ENDBLK END OF BLO┆
0x207e…20cc 43 4b 00 14 01 28 00 2c 00 50 5c 41 42 4c 5c 4c 45 4e 44 45 52 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 41 4e 44 20 45 4e 44 20 49 2f 4f 20 00 14 01 4a 00 0a 00 50 5c 45 4a 45 43 54 00 14 01 7a 00 06 00 50 2a 20 00 14 01 88 ┆CK ( , P ABL LENDER SET RETURN CODE AND END I/O J P EJECT z P* ┆
0x20cc…211c (21, 0, 400) 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 15 00 04 00 06 00 50 2a 20 00 15 00 48 00 1e ┆ @ P************************************************************ P* H ┆
0x211c…216c 00 50 2a 20 20 20 4f 52 44 45 52 20 30 30 2c 20 54 45 53 54 20 53 54 41 54 55 53 2e 00 15 00 52 00 38 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 53 45 4e 44 53 20 41 20 44 55 4d 4d 59 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 54 48 45 ┆ P* ORDER 00, TEST STATUS. R 8 P* THIS PART SENDS A DUMMY CHARACTER TO THE┆
0x216c…21bc 20 44 49 53 50 4c 41 59 00 15 00 74 00 3a 00 50 2a 20 20 20 41 4e 44 20 53 45 54 53 20 42 49 54 20 31 35 20 49 4e 20 54 48 45 20 52 45 54 55 52 4e 20 43 4f 44 45 20 49 46 20 54 48 45 20 44 49 53 50 4c 41 59 20 00 15 00 b0 00 18 00 50 2a 20 ┆ DISPLAY t : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY P* ┆
0x21bc…220c 20 20 49 53 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 2e 00 15 00 ee 00 3a 00 50 2a 20 20 20 54 48 45 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 20 49 53 20 52 45 54 55 52 4e 45 44 20 49 4e 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 4f 46 ┆ IS NOT OPERABLE. : P* THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF┆
0x220c…225c 00 15 01 0a 00 38 00 50 2a 20 20 20 45 43 42 2c 20 57 49 54 48 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 49 4e 20 4c 45 46 54 20 42 59 54 45 20 41 4e 44 20 43 4f 4c 55 4d 4e 20 49 4e 00 15 01 48 00 12 00 50 2a 20 20 20 54 48 45 20 52 49 47 48 ┆ 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN H P* THE RIGH┆
0x225c…22ac (22, 0, 400) 54 2e 00 15 01 84 00 06 00 50 2a 20 00 16 00 0a 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆T. P* @ P************************************************************┆
0x22ac…22fc 00 16 00 14 00 06 00 50 2a 20 00 16 00 58 00 10 00 50 44 59 31 30 30 5c 45 51 55 5c 2a 20 00 16 00 62 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 44 55 4d 4d 59 20 00 16 00 76 00 1c 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 44 ┆ P* X PDY100 EQU * b P LDK A2,DUMMY v P CF A5,OUTPUT SEND D┆
0x22fc…234c 55 4d 4d 59 00 16 00 8c 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 16 00 ac 00 06 00 50 2a 20 00 16 00 c2 00 2e 00 50 5c 4c 44 5c 41 34 2c 44 57 54 41 50 2b 44 57 54 44 45 56 2c 41 36 5c 47 45 54 20 43 55 52 53 4f 52 20 50 4f ┆UMMY P RF(NZ) DYER10 P* . P LD A4,DWTAP+DWTDEV,A6 GET CURSOR PO┆
0x234c…239c 53 49 54 49 4f 4e 00 16 00 cc 00 30 00 50 5c 53 54 5c 41 34 2c 45 43 42 43 57 2c 41 38 5c 53 41 56 45 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 20 49 4e 20 45 43 42 20 00 16 00 fe 00 06 00 50 2a 20 00 16 01 32 00 0e 00 50 5c 41 42 4c ┆SITION 0 P ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB P* 2 P ABL┆
0x239c…23ec 5c 45 4e 44 49 4f 00 16 01 3c 00 0a 00 50 5c 45 4a 45 43 54 00 16 01 4e 00 06 00 50 2a 20 00 16 01 5c 00 40 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 ┆ ENDIO < P EJECT N P* @ P******************************************┆
0x23ec…243c (23, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 16 01 66 00 06 00 50 2a 20 00 17 00 1a 00 1e 00 50 2a 20 20 20 4f 52 44 45 52 20 30 35 2c 20 42 41 53 49 43 20 57 52 49 54 45 2e 00 17 00 24 00 30 00 50 2a 20 20 20 54 48 49 53 20 4f ┆****************** f P* P* ORDER 05, BASIC WRITE. $ 0 P* THIS O┆
0x243c…248c 52 44 45 52 20 53 45 4e 44 53 20 54 48 45 20 52 45 51 55 45 53 54 45 44 20 4e 55 4d 42 45 52 20 4f 46 00 17 00 46 00 2e 00 50 2a 20 20 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 54 48 45 20 44 49 53 50 4c 41 59 20 41 4e 44 20 53 45 54 53 ┆RDER SENDS THE REQUESTED NUMBER OF F . P* CHARACTERS TO THE DISPLAY AND SETS┆
0x248c…24dc 20 54 48 45 00 17 00 7a 00 30 00 50 2a 20 20 20 49 4e 54 45 52 4e 41 4c 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 20 54 4f 20 48 4f 4d 45 00 17 00 ac 00 1a 00 50 2a 20 20 20 50 4f 53 49 54 49 4f 4e 2e 20 28 2f ┆ THE z 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* POSITION. (/┆
0x24dc…252c 30 31 30 31 29 20 00 17 00 e0 00 06 00 50 2a 20 00 17 00 fe 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0101) P* @ P********************************************************┆
0x252c…257c 2a 2a 2a 2a 00 17 01 08 00 06 00 50 2a 20 00 17 01 4c 00 10 00 50 44 59 32 30 30 5c 45 51 55 5c 2a 20 00 17 01 56 00 32 00 50 5c 43 46 5c 41 31 35 2c 47 45 54 43 48 52 5c 46 45 54 43 48 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 45 43 ┆**** P* L PDY200 EQU * V 2 P CF A15,GETCHR FETCH CHARACTER FROM EC┆
0x257c…2580 (24, 0, 400) 42 2d 42 55 ┆B-BU┆
0x2580…25d0 46 46 45 52 00 17 01 6a 00 30 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 49 53 20 54 48 45 52 45 20 41 4e 59 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 53 45 4e 44 20 3f 20 00 18 00 10 00 14 00 50 5c 52 46 28 4e 50 29 5c 44 59 32 31 30 5c 4e 4f ┆FFER j 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P RF(NP) DY210 NO┆
0x25d0…2620 00 18 00 44 00 16 00 50 5c 49 46 54 5c 47 52 45 45 43 45 3d 31 5c 5c 3d 34 20 00 18 00 5c 00 16 00 50 5c 43 46 5c 41 31 35 2c 47 52 43 48 41 52 5c 5c 3d 34 00 18 00 76 00 08 00 50 5c 58 49 46 00 18 00 90 00 06 00 50 2a 20 00 18 00 9c 00 26 ┆ D P IFT GREECE=1 =4 P CF A15,GRCHAR =4 v P XIF P* &┆
0x2620…2670 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 59 45 53 20 21 20 53 45 4e 44 20 43 48 41 52 41 43 54 45 52 00 18 00 a6 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 30 35 00 18 00 d0 00 06 00 50 2a 20 00 18 00 e6 00 2a 00 50 5c 43 46 5c ┆ P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 P* * P CF ┆
0x2670…26c0 41 31 35 2c 50 4f 53 55 50 44 5c 55 50 44 41 54 45 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 00 18 00 f0 00 06 00 50 2a 20 00 18 01 1e 00 34 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 4d 41 58 2e 20 42 4c 4f 43 4b 53 49 5a 45 20 ┆A15,POSUPD UPDATE POSITION COUNTER P* 4 P* CHECK IF MAX. BLOCKSIZE ┆
0x26c0…26d8 49 53 20 52 45 41 43 48 45 44 2e 20 53 54 41 52 54 20 41 20 00 18 01 28 ┆IS REACHED. START A (┆
0x26d8…b026 […elided…]
0xb026…b040 21 20 00 70 01 2c 00 06 00 50 2a 20 00 70 01 4e 00 28 00 50 5c 53 4c 4c 5c 41 ┆! p , P* p N ( P SLL A┆
0xb040…b072 34 2c 34 5c 47 45 54 20 42 49 54 20 46 4f 52 20 42 41 43 4b 47 52 2e 20 43 4f 4c 4f 55 52 00 70 01 58 00 32 00 50 5c 4c 43 4b 5c 41 34 2c 2f 33 30 30 ┆4,4 GET BIT FOR BACKGR. COLOUR p X 2 P LCK A4,/300┆
0xb072…b0c2 (113, 0, 400) 30 5c 43 4f 4e 54 52 2e 20 43 48 41 52 2e 20 46 4f 52 20 42 41 43 4b 47 52 2e 20 43 4f 4c 4f 55 52 20 00 70 01 84 00 22 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 31 5c 53 45 4e 44 20 50 41 52 41 4d 45 54 45 52 53 20 00 71 00 2a 00 06 00 50 ┆0 CONTR. CHAR. FOR BACKGR. COLOUR p " P CF A5,PSEND1 SEND PARAMETERS q * P┆
0xb0c2…b112 2a 20 00 71 00 50 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 00 71 00 5a 00 28 00 50 5c 4c 43 4b 5c 41 34 2c 2f 33 32 30 30 5c 43 4f 4e 54 52 2e 20 43 48 41 52 2e 20 46 4f 52 20 57 49 44 54 48 00 71 00 6c 00 12 00 50 5c 43 46 5c 41 35 2c 50 ┆* q P P SLL A4,1 q Z ( P LCK A4,/3200 CONTR. CHAR. FOR WIDTH q l P CF A5,P┆
0xb112…b162 53 45 4e 44 31 20 00 71 00 98 00 06 00 50 2a 20 00 71 00 ae 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 00 71 00 b8 00 34 00 50 5c 4c 43 4b 5c 41 34 2c 2f 33 36 30 30 5c 43 4f 4e 54 52 2e 20 43 48 41 52 2e 20 46 4f 52 20 53 43 52 45 45 4e 20 ┆SEND1 q P* q P SLL A4,1 q 4 P LCK A4,/3600 CONTR. CHAR. FOR SCREEN ┆
0xb162…b1b2 49 4e 54 45 4e 53 49 54 59 20 00 71 00 ca 00 12 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 31 20 00 71 01 02 00 06 00 50 2a 20 00 71 01 18 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 00 71 01 22 00 2a 00 50 5c 4c 43 4b 5c 41 34 2c 2f 31 35 30 ┆INTENSITY q P CF A5,PSEND1 q P* q P SLL A4,1 q " * P LCK A4,/150┆
0xb1b2…b202 30 5c 43 4f 4e 54 52 2e 20 43 48 41 52 2e 20 46 4f 52 20 43 55 52 53 4f 52 20 00 71 01 34 00 12 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 32 20 00 71 01 62 00 10 00 50 52 43 44 59 30 35 5c 45 51 55 5c 2a 00 71 01 78 00 08 00 50 5c 58 49 46 ┆0 CONTR. CHAR. FOR CURSOR q 4 P CF A5,PSEND2 q b PRCDY05 EQU * q x P XIF┆
0xb202…b252 (114, 0, 398) 00 71 01 8c 00 16 00 50 5c 49 46 46 5c 53 54 45 41 44 59 2b 56 44 38 37 3d 30 00 72 00 08 00 26 00 50 5c 4c 44 5c 41 32 2c 44 57 54 44 45 56 2c 41 36 5c 47 45 54 20 44 45 56 49 43 45 20 53 54 41 54 55 53 00 72 00 22 00 26 00 50 5c 41 4e 4b ┆ q P IFF STEADY+VD87=0 r & P LD A2,DWTDEV,A6 GET DEVICE STATUS r " & P ANK┆
0xb252…b2a2 4c 5c 41 32 2c 2f 32 30 30 30 5c 50 54 53 20 36 33 38 35 20 4f 52 20 36 33 38 36 20 3f 20 00 72 00 4c 00 16 00 50 5c 52 46 28 5a 29 5c 52 43 44 59 32 30 5c 4e 4f 20 21 00 72 00 76 00 28 00 50 5c 4c 44 4b 5c 41 33 2c 2f 34 30 5c 53 45 54 20 ┆L A2,/2000 PTS 6385 OR 6386 ? r L P RF(Z) RCDY20 NO ! r v ( P LDK A3,/40 SET ┆
0xb2a2…b2f2 55 50 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 20 00 72 00 90 00 06 00 50 2a 20 00 72 00 bc 00 30 00 50 52 43 44 59 31 30 5c 4c 44 4b 5c 41 32 2c 53 54 49 4c 4c 2d 31 5c 53 45 54 20 55 50 20 43 55 52 53 4f 52 20 42 4c 49 4e 4b 49 ┆UP TRANSFER COUNTER r P* r 0 PRCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKI┆
0xb2f2…b342 4e 47 00 72 00 c6 00 2a 00 50 5c 41 44 4b 5c 41 32 2c 53 54 45 41 44 59 5c 41 44 4a 55 53 54 20 54 4f 20 53 54 45 41 44 59 20 49 46 20 53 4f 20 00 72 00 fa 00 2a 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 55 52 53 4f ┆NG r * P ADK A2,STEADY ADJUST TO STEADY IF SO r * P CF A5,OUTPUT SEND CURSO┆
0xb342…b390 52 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 00 72 01 28 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 72 01 56 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 ┆R INFORMATION r ( P RB(NZ) RCER r V ( P SUK A3,1 DECREMENT TRANSFER COUNTER┆
0xb390…b3e0 (115, 0, 400) 00 72 01 6a 00 26 00 50 5c 52 42 28 50 29 5c 52 43 44 59 31 30 5c 4e 4f 54 20 45 4e 4f 55 47 48 20 54 52 41 4e 53 46 45 52 53 00 73 00 08 00 08 00 50 5c 58 49 46 00 73 00 32 00 12 00 50 5c 49 46 46 5c 43 4f 55 4e 54 52 59 3d 30 00 73 00 3e ┆ r j & P RB(P) RCDY10 NOT ENOUGH TRANSFERS s P XIF s 2 P IFF COUNTRY=0 s >┆
0xb3e0…b430 00 2a 00 50 5c 4c 44 4b 5c 41 32 2c 43 54 59 43 4f 44 5c 53 45 4e 44 20 22 53 45 54 20 43 4f 55 4e 54 52 59 20 43 4f 44 45 22 00 73 00 54 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 73 00 82 00 10 00 50 5c 52 42 28 4e 5a 29 5c ┆ * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" s T P CF A5,OUTPUT s P RB(NZ) ┆
0xb430…b480 52 43 45 52 00 73 00 98 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 73 00 ac 00 06 00 50 2a 20 00 73 00 c4 00 44 00 50 2a 20 20 20 53 45 4e 44 20 41 4e 20 45 58 54 52 41 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 ┆RCER s P IFT VD87=1 =7 s P* s D P* SEND AN EXTRA CONTROL CHARACTE┆
0xb480…b4d0 52 20 54 4f 20 56 44 38 37 20 42 45 46 4f 52 45 20 43 4f 55 4e 54 52 59 20 43 4f 44 45 20 00 73 00 ce 00 06 00 50 2a 20 00 73 01 16 00 1c 00 50 5c 4c 44 5c 41 34 2c 44 57 54 44 45 56 2c 41 36 5c 56 44 38 37 20 3f 20 00 73 01 20 00 16 00 50 ┆R TO VD87 BEFORE COUNTRY CODE s P* s P LD A4,DWTDEV,A6 VD87 ? s P┆
0xb4d0…b520 5c 52 46 28 4e 4e 29 5c 4e 4f 54 38 37 5c 4e 4f 20 21 00 73 01 40 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 38 20 00 73 01 5a 00 1c 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 2e 43 2e 20 00 73 01 6e 00 1a 00 50 5c 52 ┆ RF(NN) NOT87 NO ! s @ P LDK A2,/28 s Z P CF A5,OUTPUT SEND C.C. s n P R┆
0xb520…b570 (116, 0, 400) 42 28 4e 5a 29 5c 52 43 45 52 5c 4e 4f 54 20 4f 4b 20 21 20 00 73 01 8e 00 10 00 50 4e 4f 54 38 37 5c 45 51 55 5c 2a 20 00 74 00 1c 00 08 00 50 5c 58 49 46 00 74 00 30 00 12 00 50 5c 49 46 46 5c 43 4f 55 4e 54 52 59 3d 30 00 74 00 3c 00 28 ┆B(NZ) RCER NOT OK ! s PNOT87 EQU * t P XIF t 0 P IFF COUNTRY=0 t < (┆
0xb570…b5c0 00 50 5c 4c 44 4b 5c 41 32 2c 43 4f 55 4e 54 52 59 5c 53 45 4e 44 20 22 43 4f 55 4e 54 52 59 20 43 4f 44 45 22 20 00 74 00 52 00 20 00 50 5c 4f 52 4b 5c 41 32 2c 2f 33 30 5c 4d 41 4b 45 20 41 53 43 49 49 20 44 49 47 49 54 00 74 00 7e 00 12 ┆ P LDK A2,COUNTRY SEND "COUNTRY CODE" t R P ORK A2,/30 MAKE ASCII DIGIT t ~ ┆
0xb5c0…b610 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 74 00 a2 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 74 00 b8 00 08 00 50 5c 58 49 46 00 74 00 cc 00 10 00 50 52 43 44 59 32 30 5c 45 51 55 5c 2a 00 74 00 d8 00 06 00 50 2a 20 00 74 ┆ P CF A5,OUTPUT t P RB(NZ) RCER t P XIF t PRCDY20 EQU * t P* t┆
0xb610…b660 00 ec 00 28 00 50 5c 4c 44 4b 5c 41 32 2c 43 4c 45 48 4f 4d 5c 43 4c 45 41 52 20 41 4e 44 20 43 55 52 53 4f 52 20 48 4f 4d 45 00 74 00 f6 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 74 01 22 00 10 00 50 5c 52 42 28 ┆ ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME t P CF A5,OUTPUT SEND t " P RB(┆
0xb660…b6b0 4e 5a 29 5c 52 43 45 52 00 74 01 3c 00 06 00 50 2a 20 00 74 01 50 00 20 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 30 31 30 31 5c 48 4f 4d 45 20 50 4f 53 49 54 49 4f 4e 00 74 01 5a 00 34 00 50 5c 53 54 5c 41 32 2c 44 57 54 41 50 2b 44 57 54 44 45 ┆NZ) RCER t < P* t P P LDKL A2,/0101 HOME POSITION t Z 4 P ST A2,DWTAP+DWTDE┆
0xb6b0…b700 (117, 0, 398) 56 2c 41 36 5c 53 45 54 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 00 74 01 7e 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 75 00 26 00 3a 00 50 5c 53 43 5c 41 32 2c 44 57 54 42 43 2b 44 57 54 44 45 56 2c 41 36 5c 52 ┆V,A6 SET HEAD POSITION COUNTER t ~ P LDK A2,0 u & : P SC A2,DWTBC+DWTDEV,A6 R┆
0xb700…b750 45 53 45 54 20 43 55 52 52 45 4e 54 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 20 00 75 00 38 00 06 00 50 2a 20 00 75 00 76 00 0e 00 50 5c 41 42 4c 5c 45 4e 44 49 4f 00 75 00 80 00 06 00 50 2a 20 00 75 00 92 00 2c 00 50 2a 2a 2a 2a ┆ESET CURRENT POSITION COUNTER u 8 P* u v P ABL ENDIO u P* u , P****┆
0xb750…b7a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 75 00 9c 00 06 00 50 2a 20 00 75 00 cc 00 16 00 50 2a 20 20 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 00 75 00 d6 00 06 00 50 ┆************************************ u P* u P* ABORT ROUTINE u P┆
0xb7a0…b7f0 2a 20 00 75 00 f0 00 2c 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 00 75 00 fa 00 06 00 50 2a 20 00 75 01 2a 00 0e 00 50 41 42 44 59 5c 45 51 55 5c 2a 00 75 ┆* u , P**************************************** u P* u * PABDY EQU * u┆
0xb7f0…b83e 01 34 00 2c 00 50 5c 43 46 5c 41 31 35 2c 55 50 44 41 50 50 5c 55 50 44 41 54 45 20 48 45 41 44 20 50 4f 53 2e 20 50 4f 49 4e 54 45 52 20 00 75 01 46 00 18 00 50 5c 41 42 4c 5c 4c 45 4e 44 49 53 5c 45 4e 44 20 49 2f 4f 20 00 75 01 76 ┆ 4 , P CF A15,UPDAPP UPDATE HEAD POS. POINTER u F P ABL LENDIS END I/O u v┆
0xb83e…b852 (118, 2, 20) 00 08 00 50 5c 45 4e 44 00 76 00 04 40 04 00 00 00 76 00 10 ┆ P END v @ v ┆
0xb852…b85a (119, 1, 8) 20 04 00 00 00 77 00 04 ┆ w ┆
0xb85a…b8aa (120, 0, 400) 30 5c 55 4e 44 45 46 49 4e 45 44 20 49 4e 54 45 52 52 55 50 54 20 00 7f 01 84 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 80 00 1e 00 1c 00 50 5c 43 57 4b 5c 41 36 2c 31 5c 53 59 4e 43 20 41 4e 53 57 45 52 20 3f 20 00 80 00 34 ┆0 UNDEFINED INTERRUPT P IFF RECHAN=0 P CWK A6,1 SYNC ANSWER ? 4┆
0xb8aa…b8fa 00 16 00 50 5c 52 46 28 45 29 5c 51 55 45 55 33 30 5c 59 45 53 20 00 80 00 54 00 0c 00 50 5c 5c 5c 55 5c 3d 34 20 00 80 00 6e 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 80 00 7e 00 0e 00 50 5c 58 49 46 5c 5c 55 5c 3d 34 00 80 00 90 00 10 ┆ P RF(E) QUEU30 YES T P U =4 n P LDK A1,0 ~ P XIF U =4 ┆
0xb8fa…b94a 00 50 5c 41 42 4c 5c 52 54 4e 41 31 35 20 00 80 00 a2 00 16 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 5c 55 5c 3d 34 00 80 00 b6 00 1c 00 50 51 55 45 55 31 30 5c 4c 44 52 5c 41 31 2c 41 31 5c 52 45 41 44 59 20 3f 00 80 00 d0 00 12 00 50 ┆ P ABL RTNA15 P IFF RECHAN=0 U =4 PQUEU10 LDR A1,A1 READY ? P┆
0xb94a…b99a 5c 52 42 28 45 29 5c 51 55 45 55 30 35 20 00 80 00 f0 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 80 01 06 00 0c 00 50 5c 5c 5c 55 5c 3d 34 20 00 80 01 18 00 22 00 50 5c 43 57 52 5c 41 37 2c 41 35 5c 54 45 52 4d 49 4e 41 4c 20 32 20 52 45 ┆ RB(E) QUEU05 P LDK A1,0 P U =4 " P CWR A7,A5 TERMINAL 2 RE┆
0xb99a…b9ea 4d 4f 54 45 20 3f 00 80 01 28 00 14 00 50 5c 52 42 28 45 29 5c 51 55 45 55 30 31 5c 4e 4f 00 80 01 4e 00 26 00 50 51 55 45 55 32 30 5c 4c 44 4b 4c 5c 41 38 2c 43 57 54 45 51 2b 32 5c 4e 45 58 54 20 51 55 45 55 45 20 00 80 01 66 00 0e 00 50 ┆MOTE ? ( P RB(E) QUEU01 NO N & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE f P┆
0xb9ea…ba3a (121, 0, 400) 5c 52 42 5c 51 55 45 55 30 33 00 80 01 90 00 08 00 50 5c 58 49 46 00 81 00 12 00 16 00 50 51 55 45 55 33 30 5c 41 44 4b 4c 5c 41 31 35 2c 34 20 00 81 00 1e 00 0e 00 50 5c 52 46 5c 4c 54 44 49 53 50 00 81 00 38 00 12 00 50 5c 49 46 46 5c 52 ┆ RB QUEU03 P XIF PQUEU30 ADKL A15,4 P RF LTDISP 8 P IFF R┆
0xba3a…ba8a 45 43 48 41 4e 3d 30 20 00 81 00 4a 00 0a 00 50 5c 45 4a 45 43 54 00 81 00 60 00 06 00 50 2a 20 00 81 00 6e 00 06 00 50 2a 20 00 81 00 78 00 30 00 50 2a 20 20 20 20 52 45 53 54 53 59 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 54 ┆ECHAN=0 J P EJECT ` P* n P* x 0 P* RESTSY = SUBROUTINE TO ST┆
0xba8a…bada 41 52 54 20 4f 52 20 52 45 53 54 41 52 54 00 81 00 82 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 20 54 49 4d 45 52 20 46 4f 52 20 53 59 4e 43 2d 53 45 4e 44 49 4e 47 00 81 00 b6 00 06 00 50 2a 20 00 81 00 e4 00 10 00 50 52 45 ┆ART OR RESTART * P* A TIMER FOR SYNC-SENDING P* PRE┆
0xbada…bb2a 53 54 53 59 5c 45 51 55 5c 2a 00 81 00 ee 00 10 00 50 5c 53 54 52 5c 41 34 2c 41 31 35 20 00 81 01 02 00 28 00 50 5c 4c 44 5c 41 34 2c 43 57 54 54 50 2c 41 35 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 5a 45 52 4f 3f 20 00 81 01 16 00 12 ┆STSY EQU * P STR A4,A15 ( P LD A4,CWTTP,A5 TIMER POINTER ZERO? ┆
0xbb2a…bb7a 00 50 5c 52 46 28 4e 45 29 5c 52 45 53 59 32 30 00 81 01 42 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 35 00 81 01 58 00 20 00 50 5c 4c 44 4b 5c 41 34 2c 43 57 54 54 50 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 81 01 6a 00 1e 00 50 5c 41 ┆ P RF(NE) RESY20 B P LDR A1,A5 X P LDK A4,CWTTP TIMER POINTER j P A┆
0xbb7a…bbca (122, 0, 400) 44 52 5c 41 34 2c 41 35 5c 41 44 44 20 43 57 54 2d 41 44 44 52 45 53 53 00 81 01 8e 00 1c 00 50 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 50 5c 53 45 54 20 54 49 4d 45 52 00 82 00 20 00 16 00 50 5c 44 41 54 41 5c 53 59 4e 43 55 54 2c 54 49 4d ┆DR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIM┆
0xbbca…bc1a 45 20 00 82 00 40 00 0e 00 50 5c 52 46 5c 52 45 53 59 33 30 00 82 00 5a 00 18 00 50 52 45 53 59 32 30 5c 4c 44 4b 4c 5c 41 34 2c 2d 54 49 4d 45 00 82 00 6c 00 22 00 50 5c 53 54 2a 5c 41 34 2c 43 57 54 54 50 2c 41 35 5c 52 45 53 54 41 52 54 ┆E @ P RF RESY30 Z PRESY20 LDKL A4,-TIME l " P ST* A4,CWTTP,A5 RESTART┆
0xbc1a…bc6a 20 54 49 4d 45 20 00 82 00 88 00 20 00 50 52 45 53 59 33 30 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 52 45 4c 4f 41 44 20 41 34 00 82 00 ae 00 10 00 50 5c 41 44 4b 4c 5c 41 31 35 2c 32 20 00 82 00 d2 00 10 00 50 5c 4c 44 52 2a 5c 50 2c 41 31 ┆ TIME PRESY30 LDR* A4,A15 RELOAD A4 P ADKL A15,2 P LDR* P,A1┆
0xbc6a…bcba 35 20 00 82 00 e6 00 0a 00 50 5c 45 4a 45 43 54 00 82 00 fa 00 06 00 50 2a 20 00 82 01 08 00 06 00 50 2a 20 00 82 01 12 00 2a 00 50 2a 20 20 20 20 54 49 4d 45 2d 4f 55 54 20 52 4f 55 54 49 4e 45 20 46 4f 52 20 53 59 4e 43 2d 53 45 4e 44 49 ┆5 P EJECT P* P* * P* TIME-OUT ROUTINE FOR SYNC-SENDI┆
0xbcba…bd0a 4e 47 00 82 01 1c 00 30 00 50 2a 20 20 20 20 49 46 20 4e 4f 54 48 49 4e 47 20 48 41 50 50 45 4e 53 20 4f 4e 20 41 20 4c 49 4e 45 20 49 4e 20 35 30 30 20 4d 53 20 00 82 01 4a 00 20 00 50 2a 20 20 20 20 53 59 4e 43 2d 43 48 41 52 41 43 54 45 ┆NG 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS J P* SYNC-CHARACTE┆
0xbd0a…bd5a (123, 0, 398) 52 20 49 53 20 53 45 4e 54 2e 00 82 01 7e 00 06 00 50 2a 20 00 83 00 12 00 10 00 50 53 59 4e 43 55 54 5c 45 51 55 5c 2a 00 83 00 1c 00 24 00 50 5c 43 4d 5c 43 57 54 54 50 2c 41 31 5c 52 45 53 45 54 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 ┆R IS SENT. ~ P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER┆
0xbd5a…bdaa 00 83 00 30 00 0e 00 50 5c 4c 44 52 5c 41 35 2c 41 31 00 83 00 58 00 28 00 50 5c 4c 44 5c 41 32 2c 43 57 53 59 4e 43 2c 41 31 5c 47 45 54 20 53 59 4e 43 20 43 48 41 52 41 43 54 45 52 20 00 83 00 6a 00 28 00 50 5c 58 52 4b 4c 5c 41 32 2c 2f ┆ 0 P LDR A5,A1 X ( P LD A2,CWSYNC,A1 GET SYNC CHARACTER j ( P XRKL A2,/┆
0xbdaa…bdfa 38 30 30 5c 43 48 41 4e 47 45 20 54 45 52 4d 49 4e 41 4c 20 4e 55 4d 42 45 52 00 83 00 96 00 1a 00 50 5c 53 54 5c 41 32 2c 43 57 53 59 4e 43 2c 41 31 5c 53 54 4f 52 45 00 83 00 c2 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 31 20 00 83 00 e0 00 1e ┆800 CHANGE TERMINAL NUMBER P ST A2,CWSYNC,A1 STORE P LDK A6,1 ┆
0xbdfa…be4a 00 50 53 59 4e 43 30 32 5c 45 58 5c 43 57 54 4f 54 52 2c 41 31 5c 4f 55 54 50 55 54 00 83 00 f2 00 1a 00 50 5c 52 46 28 41 29 5c 53 59 4e 43 30 34 5c 41 43 43 45 50 54 45 44 00 83 01 14 00 10 00 50 5c 52 46 28 55 29 5c 45 58 49 54 41 00 83 ┆ PSYNC02 EX CWTOTR,A1 OUTPUT P RF(A) SYNC04 ACCEPTED P RF(U) EXITA ┆
0xbe4a…be98 01 32 00 26 00 50 5c 43 46 5c 41 31 35 2c 52 45 53 54 53 59 5c 52 45 53 54 41 52 54 20 53 59 4e 43 20 54 49 4d 45 52 20 00 83 01 46 00 0e 00 50 5c 52 46 5c 45 58 49 54 41 20 00 83 01 70 00 10 00 50 53 59 4e 43 30 34 5c 45 51 55 5c 2a ┆ 2 & P CF A15,RESTSY RESTART SYNC TIMER F P RF EXITA p PSYNC04 EQU *┆
0xbe98…bee8 (124, 0, 398) 00 83 01 82 00 2c 00 50 5c 53 54 52 5c 41 36 2c 41 31 5c 53 54 4f 52 45 20 22 31 22 20 41 53 20 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 84 00 08 00 06 00 50 2a 20 00 84 00 38 00 12 00 50 5c 49 46 54 5c 4c 4f 47 49 4e 47 3d 31 20 ┆ , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT P* 8 P IFT LOGING=1 ┆
0xbee8…bf38 00 84 00 42 00 06 00 50 2a 20 00 84 00 58 00 2a 00 50 5c 43 46 5c 41 31 35 2c 4c 4f 47 47 5c 4c 4f 47 47 20 4f 46 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 00 84 00 62 00 08 00 50 5c 58 49 46 00 84 00 90 00 06 00 50 2a 20 00 84 ┆ B P* X * P CF A15,LOGG LOGG OF OUTPUT CHARACTER b P XIF P* ┆
0xbf38…bf88 00 9c 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 84 00 a6 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 84 00 bc 00 0e 00 50 5c 53 4c 4c 5c 41 33 2c 34 20 00 84 00 ce 00 12 00 50 5c 52 46 28 4e 4e 29 5c 53 59 4e 43 30 35 00 84 ┆ P IFF RECHAN=0 P LDR A3,A2 P SLL A3,4 P RF(NN) SYNC05 ┆
0xbf88…bfd8 00 e0 00 0e 00 50 5c 41 44 4b 5c 41 35 2c 32 20 00 84 00 f6 00 10 00 50 53 59 4e 43 30 35 5c 45 51 55 5c 2a 00 84 01 08 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 46 20 00 84 01 1c 00 2c 00 50 5c 58 52 53 5c 41 32 2c 4c 52 43 41 43 4b 2c 41 ┆ P ADK A5,2 PSYNC05 EQU * P ANK A2,/FF , P XRS A2,LRCACK,A┆
0xbfd8…c026 35 5c 55 50 44 41 54 45 20 4c 52 43 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 84 01 30 00 20 00 50 5c 4c 44 5c 41 34 2c 43 57 54 52 53 54 2c 41 31 5c 4c 4f 4f 50 20 4d 4f 44 45 20 3f 00 84 01 60 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 34 ┆5 UPDATE LRC-ACKUMULATOR 0 P LD A4,CWTRST,A1 LOOP MODE ? ` P LDR A3,A4┆