|
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: 48476 (0xbd5c)
Notes: pts_type(SC)
Names: »DRDY02.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »UPD5.1/DRDY02.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/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 X:A * * * BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 * 6346, 6385 AND 6386. * X:B EQU 0 WHATDY EQU X:B * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 1 LOWCHA EQU X:C * * * 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 X:D * * 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…144c Head {h00=0x0012, h01=0x0050, text=»FASTO EQU X:A «, t00=0x000c, t01=0x017c}
0x144c…1456 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1456…1460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000e}
0x1460…14ac Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344«, t00=0x000d, t01=0x0018}
0x14ac…14cc Head {h00=0x001c, h01=0x0050, text=»* 6346, 6385 AND 6386.«, t00=0x000d, t01=0x0064}
0x14cc…14d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0084}
0x14d6…14e8 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x008e}
0x14e8…14fe Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000d, t01=0x00a0}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b6}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…154e Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000d, t01=0x00ca}
0x154e…1578 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000d, t01=0x0106}
0x1578…158a Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000d, t01=0x0130}
0x158a…15a0 Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000d, t01=0x0142}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b4…15f0 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000d, t01=0x016c}
0x15f0…162c Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0018}
0x162c…1668 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x0054}
0x1668…1672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0090}
0x1672…1684 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000e, t01=0x009a}
0x1684…169a Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000e, t01=0x00ac}
0x169a…16a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a4…16d8 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000e, t01=0x00cc}
0x16d8…16dc Head {h00=0x0054, h01=0x0050}
0x16dc…16e0 Head {h00=0x2a20, h01=0x2020}
0x16e0…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 ┆POSSIBLE TO SUPPRESS TRAILING BLANKS, TABULATIONS, /1E AND /1F. ┆
0x1720…176c 28 4e 4f 54 20 42 41 53 49 43 20 57 00 0e 01 00 00 06 00 50 2a 20 00 0e 01 58 00 0e 00 50 58 3a 45 5c 45 51 55 5c 30 20 00 0e 01 62 00 12 00 50 54 52 41 53 50 41 5c 45 51 55 5c 58 3a 45 00 0e 01 74 00 06 00 50 2a 20 00 0e 01 8a ┆(NOT BASIC W P* X PX:E EQU 0 b PTRASPA EQU X:E t P* ┆
0x176c…17bc (15, 0, 400) 00 32 00 50 2a 20 20 20 42 59 20 53 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 0f 00 04 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 ┆ 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKIN┆
0x17bc…180c 47 2e 00 0f 00 3a 00 06 00 50 2a 20 00 0f 00 5a 00 0e 00 50 58 3a 46 5c 45 51 55 5c 31 20 00 0f 00 64 00 12 00 50 53 54 45 41 44 59 5c 45 51 55 5c 58 3a 46 00 0f 00 76 00 06 00 50 2a 20 00 0f 00 8c 00 34 00 50 2a 20 20 20 42 59 20 4d 45 41 ┆G. : P* Z PX:F EQU 1 d PSTEADY EQU X:F v P* 4 P* BY MEA┆
0x180c…185c 4e 53 20 4f 46 20 43 4f 4e 44 49 54 49 4f 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 96 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 ┆NS OF CONDITIONAL ASSEMBLY IT IS POS- . P* SIBLE TO CHOOSE BETWEEN TEN DI┆
0x185c…18ac 46 46 45 52 45 4e 54 20 00 0f 00 ce 00 2c 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 01 00 00 06 00 50 2a 20 00 0f 01 30 00 12 00 50 2a 5c 43 4f 44 45 ┆FFERENT , P* CHARACTER SETS, IF PTS 6385 IS USED. P* 0 P* CODE┆
0x18ac…18fc 5c 43 4f 55 4e 54 52 59 00 0f 01 3a 00 10 00 50 2a 5c 30 5c 47 42 2f 4e 4c 2f 42 20 00 0f 01 50 00 10 00 50 2a 5c 31 5c 44 2f 41 2f 4c 2f 43 48 00 0f 01 64 00 10 00 50 2a 5c 32 5c 46 2f 43 48 2f 42 2f 4c 00 0f 01 78 00 0a 00 50 2a 5c 33 5c ┆ COUNTRY : P* 0 GB/NL/B P P* 1 D/A/L/CH d P* 2 F/CH/B/L x P* 3 ┆
0x18fc…194c (16, 0, 400) 45 20 00 0f 01 8c 00 0c 00 50 2a 5c 34 5c 49 2f 43 48 00 10 00 0a 00 0c 00 50 2a 5c 35 5c 53 2f 53 46 00 10 00 1a 00 0c 00 50 2a 5c 36 5c 44 4b 2f 4e 00 10 00 2a 00 0a 00 50 2a 5c 37 5c 50 20 00 10 00 3a 00 0a 00 50 2a 5c 38 5c 59 55 00 10 ┆E P* 4 I/CH P* 5 S/SF P* 6 DK/N * P* 7 P : P* 8 YU ┆
0x194c…199c 00 48 00 0a 00 50 2a 5c 39 5c 55 53 00 10 00 56 00 0e 00 50 58 3a 47 5c 45 51 55 5c 30 20 00 10 00 64 00 14 00 50 43 4f 55 4e 54 52 59 5c 45 51 55 5c 58 3a 47 20 00 10 00 76 00 06 00 50 2a 20 00 10 00 8e 00 26 00 50 2a 20 20 20 4d 45 4d 4f ┆ H P* 9 US V PX:G EQU 0 d PCOUNTRY EQU X:G v P* & P* MEMO┆
0x199c…19ec 52 59 20 4d 41 4e 41 47 45 4d 45 4e 54 20 42 55 46 46 45 52 20 53 49 5a 45 20 00 10 00 98 00 06 00 50 2a 20 00 10 00 c2 00 0e 00 50 58 3a 48 5c 45 51 55 5c 38 32 00 10 00 cc 00 12 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 58 3a 48 00 10 00 de ┆RY MANAGEMENT BUFFER SIZE P* PX:H EQU 82 PDVBLEN EQU X:H ┆
0x19ec…1a3c 00 06 00 50 2a 20 00 10 00 f4 00 1a 00 50 2a 20 20 20 4d 41 58 49 4d 55 4d 20 42 4c 4f 43 4b 20 53 49 5a 45 00 10 00 fe 00 06 00 50 2a 20 00 10 01 1c 00 10 00 50 58 3a 4a 5c 45 51 55 5c 31 34 30 20 00 10 01 26 00 12 00 50 4d 41 58 42 4c 4b ┆ P* P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 & PMAXBLK┆
0x1a3c…1a8c 5c 45 51 55 5c 58 3a 4a 00 10 01 3a 00 06 00 50 2a 20 00 10 01 50 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 ┆ EQU X:J : P* P L P* X:I SHOULD BE SET TO 1 IF A PTS 6385 OR 86 IS INCL┆
0x1a8c…1adc (17, 0, 400) 55 44 45 44 20 49 4e 20 53 59 53 54 45 4d 5c 3d 34 20 00 10 01 5a 00 06 00 50 2a 20 00 11 00 1a 00 0e 00 50 58 3a 49 5c 45 51 55 5c 30 20 00 11 00 24 00 12 00 50 50 4c 41 53 4d 5c 45 51 55 5c 58 3a 49 20 00 11 00 36 00 06 00 50 2a 20 00 11 ┆UDED IN SYSTEM =4 Z P* PX:I EQU 0 $ PPLASM EQU X:I 6 P* ┆
0x1adc…1b2c 00 4c 00 32 00 50 2a 20 20 20 49 46 20 58 3a 4b 20 3d 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 56 00 1a 00 50 2a 20 20 20 43 48 41 52 41 43 54 45 52 20 53 45 54 5c 5c 3d ┆ L 2 P* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 V P* CHARACTER SET =┆
0x1b2c…1b7c 34 20 00 11 00 8c 00 06 00 50 2a 20 00 11 00 aa 00 12 00 50 58 3a 4b 5c 45 51 55 5c 30 5c 5c 3d 34 20 00 11 00 b4 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 ca 00 06 00 50 2a 20 00 11 00 e4 00 34 00 50 2a 20 ┆4 P* PX:K EQU 0 =4 PGREECE EQU X:K =4 P* 4 P* ┆
0x1b7c…1bcc 20 20 49 46 20 44 49 53 50 4c 41 59 20 56 44 20 38 37 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 ee 00 06 00 50 2a 20 00 11 01 26 00 0e 00 50 58 3a 4c 5c 45 51 55 5c 30 20 00 11 01 30 00 10 ┆ IF DISPLAY VD 87 IS USED, X:L SHOULD BE 1 =7 P* & PX:L EQU 0 0 ┆
0x1bcc…1c1c 00 50 56 44 38 37 5c 45 51 55 5c 58 3a 4c 00 11 01 42 00 06 00 50 2a 20 00 11 01 56 00 0a 00 50 5c 45 4a 45 43 54 00 11 01 60 00 06 00 50 2a 20 00 11 01 6e 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 ┆ PVD87 EQU X:L B P* V P EJECT ` P* n : P************************┆
0x1c1c…1c6c (18, 0, 400) 2a 2a 2a 2a 2a 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 11 01 78 00 06 00 50 2a 20 00 12 00 26 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 ┆***************************** x P* & & P* A C T I V A T I O N P A R ┆
0x1c6c…1cbc 54 20 00 12 00 30 00 06 00 50 2a 20 00 12 00 5a 00 34 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 64 00 38 00 50 2a 20 20 20 ┆T 0 P* Z 4 P* THIS PART MAKES A START OF BLOCK, CHECKS THE d 8 P* ┆
0x1cbc…1d0c 52 45 51 55 45 53 54 45 44 20 4f 52 44 45 52 20 41 4e 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 9c 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 ┆REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* PART OF THE DRIVER. ┆
0x1d0c…1d5c 00 12 00 d8 00 06 00 50 2a 20 00 12 00 f8 00 3c 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 20 00 12 01 02 00 06 ┆ P* < P******************************************************* ┆
0x1d5c…1dac 00 50 2a 20 00 12 01 42 00 0e 00 50 41 43 44 59 5c 45 51 55 5c 2a 00 12 01 4c 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 5e 00 30 00 50 5c 43 4d 5c 44 57 54 42 4c 43 2b 44 57 54 ┆ P* B PACDY EQU * L P LDK A3,0 RESET BUFFER INDEX ^ 0 P CM DWTBLC+DWT┆
0x1dac…1dfc (19, 0, 400) 44 45 56 2c 41 36 5c 43 4c 45 41 52 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 00 12 01 82 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 26 00 20 00 50 5c 43 ┆DEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. BLOCK SIZE & P C┆
0x1dfc…1e4c 46 5c 41 35 2c 53 54 41 42 4c 4b 5c 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 00 13 00 4e 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 13 00 72 00 06 00 50 2a 20 00 13 00 88 00 12 00 50 2a 20 20 20 54 45 53 54 20 4f 52 44 45 52 ┆F A5,STABLK START OF BLOCK N P RF(NZ) DYER10 r P* P* TEST ORDER┆
0x1e4c…1e9c 00 13 00 92 00 06 00 50 2a 20 00 13 00 a8 00 18 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 47 45 54 20 4f 52 44 45 52 00 13 00 b2 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 ┆ P* P LDR A7,A7 GET ORDER & P RF(Z) DY100 ORDER 00, TEST STATUS┆
0x1e9c…1eec 00 13 00 ce 00 06 00 50 2a 20 00 13 00 f8 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 2f 35 00 13 01 02 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 14 00 06 00 50 2a 20 ┆ P* P SUK A7,/5 & P RF(Z) DY200 ORDER 05, BASIC WRITE P* ┆
0x1eec…1f3c 00 13 01 3e 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 20 00 13 01 48 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 5a 00 06 00 50 2a 20 00 13 01 86 00 0e 00 50 ┆ > P SUK A7,1 H ( P RF(Z) DY300 ORDER 06,STANDARD WRITE Z P* P┆
0x1f3c…1f8c (20, 0, 400) 5c 53 55 4b 5c 41 37 2c 2f 35 00 13 01 90 00 30 00 50 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 14 00 12 00 06 00 50 2a 20 00 14 00 46 00 10 00 50 ┆ SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE P* F P┆
0x1f8c…1fdc 5c 53 55 4b 5c 41 37 2c 2f 32 36 20 00 14 00 50 00 22 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 64 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 14 00 8a 00 0e ┆ SUK A7,/26 P " P ABL(Z) DY700 ORDER 31, ERASE d P IFT VD87=1 =7 ┆
0x1fdc…202c 00 50 5c 41 44 4b 5c 41 37 2c 2f 41 00 14 00 a2 00 30 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 b4 00 08 00 50 5c 58 49 46 00 14 00 e8 ┆ P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARAMETERS P XIF ┆
0x202c…207c 00 06 00 50 2a 20 00 14 00 f4 00 1a 00 50 2a 20 20 20 49 2f 4f 2d 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 14 00 fe 00 06 00 50 2a 20 00 14 01 1c 00 10 00 50 52 45 51 45 52 52 5c 45 51 55 5c 2a 00 14 01 26 00 1e 00 50 5c 43 46 5c 41 35 ┆ P* P* I/O-REQUEST ERROR P* PREQERR EQU * & P CF A5┆
0x207c…20cc 2c 45 4e 44 42 4c 4b 5c 45 4e 44 20 4f 46 20 42 4c 4f 43 4b 00 14 01 3a 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 5c 00 0a 00 50 5c 45 4a 45 ┆,ENDBLK END OF BLOCK : , P ABL LENDER SET RETURN CODE AND END I/O P EJE┆
0x20cc…211c (21, 0, 400) 43 54 00 14 01 8c 00 06 00 50 2a 20 00 15 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 ┆CT P* @ P************************************************************┆
0x211c…216c 00 15 00 14 00 06 00 50 2a 20 00 15 00 58 00 1e 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 62 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 ┆ P* X P* ORDER 00, TEST STATUS. b 8 P* THIS PART SENDS A DUMMY ┆
0x216c…21bc 43 48 41 52 41 43 54 45 52 20 54 4f 20 54 48 45 20 44 49 53 50 4c 41 59 00 15 00 84 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 ┆CHARACTER TO THE DISPLAY : P* AND SETS BIT 15 IN THE RETURN CODE IF THE DI┆
0x21bc…220c 53 50 4c 41 59 20 00 15 00 c0 00 18 00 50 2a 20 20 20 49 53 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 2e 00 15 00 fe 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 ┆SPLAY P* IS NOT OPERABLE. : P* THE CURSOR POSITION IS RETURNED IN┆
0x220c…225c 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 4f 46 00 15 01 1a 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 58 ┆ CONTROL WORD OF 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN X┆
0x225c…22ac (22, 0, 400) 00 12 00 50 2a 20 20 20 54 48 45 20 52 49 47 48 54 2e 00 16 00 04 00 06 00 50 2a 20 00 16 00 1a 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 ┆ P* THE RIGHT. P* @ P********************************************┆
0x22ac…22fc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 16 00 24 00 06 00 50 2a 20 00 16 00 68 00 10 00 50 44 59 31 30 30 5c 45 51 55 5c 2a 20 00 16 00 72 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 44 55 4d 4d 59 20 00 16 00 86 00 1c 00 50 5c 43 46 5c ┆**************** $ P* h PDY100 EQU * r P LDK A2,DUMMY P CF ┆
0x22fc…234c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 44 55 4d 4d 59 00 16 00 9c 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 16 00 bc 00 06 00 50 2a 20 00 16 00 d2 00 2e 00 50 5c 4c 44 5c 41 34 2c 44 57 54 41 50 2b 44 57 54 44 45 56 2c ┆A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* . P LD A4,DWTAP+DWTDEV,┆
0x234c…239c 41 36 5c 47 45 54 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 00 16 00 dc 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 01 0e 00 06 ┆A6 GET CURSOR POSITION 0 P ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB ┆
0x239c…23ec 00 50 2a 20 00 16 01 42 00 0e 00 50 5c 41 42 4c 5c 45 4e 44 49 4f 00 16 01 4c 00 0a 00 50 5c 45 4a 45 43 54 00 16 01 5e 00 06 00 50 2a 20 00 16 01 6c 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 ┆ P* B P ABL ENDIO L P EJECT ^ P* l @ P**************************┆
0x23ec…243c (23, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 16 01 76 00 06 00 50 2a 20 00 17 00 2a 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 ┆********************************** v P* * P* ORDER 05, BASIC WRITE. ┆
0x243c…248c 00 34 00 30 00 50 2a 20 20 20 54 48 49 53 20 4f 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 56 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 ┆ 4 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF V . P* CHARACTERS TO THE ┆
0x248c…24dc 44 49 53 50 4c 41 59 20 41 4e 44 20 53 45 54 53 20 54 48 45 00 17 00 8a 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 bc 00 1a 00 50 ┆DISPLAY AND SETS THE 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P┆
0x24dc…252c 2a 20 20 20 50 4f 53 49 54 49 4f 4e 2e 20 28 2f 30 31 30 31 29 20 00 17 00 f0 00 06 00 50 2a 20 00 17 01 0e 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 ┆* POSITION. (/0101) P* @ P****************************************┆
0x252c…257c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 17 01 18 00 06 00 50 2a 20 00 17 01 5c 00 10 00 50 44 59 32 30 30 5c 45 51 55 5c 2a 20 00 17 01 66 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 ┆******************** P* PDY200 EQU * f 2 P CF A15,GETCHR FETCH C┆
0x257c…2580 (24, 0, 400) 48 41 52 41 ┆HARA┆
0x2580…25d0 43 54 45 52 20 46 52 4f 4d 20 45 43 42 2d 42 55 46 46 45 52 00 17 01 7a 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 20 00 14 00 50 ┆CTER FROM ECB-BUFFER z 0 P LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? P┆
0x25d0…2620 5c 52 46 28 4e 50 29 5c 44 59 32 31 30 5c 4e 4f 00 18 00 54 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 6c 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 86 00 08 00 50 5c 58 49 46 ┆ RF(NP) DY210 NO T P IFT GREECE=1 =4 l P CF A15,GRCHAR =4 P XIF┆
0x2620…2670 00 18 00 a0 00 06 00 50 2a 20 00 18 00 ac 00 26 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 b6 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 30 35 00 18 00 e0 00 06 ┆ P* & P CF A5,OUTPUT YES ! SEND CHARACTER P RF(NZ) DYER05 ┆
0x2670…26c0 00 50 2a 20 00 18 00 f6 00 2a 00 50 5c 43 46 5c 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 01 00 00 06 00 50 2a 20 00 18 01 2e 00 34 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 ┆ P* * P CF A15,POSUPD UPDATE POSITION COUNTER P* . 4 P* CHECK IF┆
0x26c0…26e0 20 4d 41 58 2e 20 42 4c 4f 43 4b 53 49 5a 45 20 49 53 20 52 45 41 43 48 45 44 2e 20 53 54 41 52 ┆ MAX. BLOCKSIZE IS REACHED. STAR┆
0x26e0…ad5c […elided…]
0xad5c…ad70 01 70 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 6f 00 12 ┆ p P LDR A4,A2 o ┆
0xad70…adc0 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 6f 00 24 00 08 00 50 5c 58 49 46 00 6f 00 34 00 0a 00 50 5c 45 4a 45 43 54 00 6f 00 40 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 ┆ P RTN A15 o $ P XIF o 4 P EJECT o @ @ P**********************************┆
0xadc0…ae10 2a 2a 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 6f 00 4e 00 06 00 50 2a 20 00 6f 00 92 00 20 00 50 2a 20 20 20 52 43 44 59 20 3d 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 20 00 6f 00 9c 00 36 00 50 ┆************************** o N P* o P* RCDY = RECOVERY ROUTINE o 6 P┆
0xae10…ae60 2a 20 20 20 43 4c 45 41 52 53 20 44 49 53 50 4c 41 59 20 41 4e 44 20 53 45 54 53 20 43 55 52 53 4f 52 20 26 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 00 6f 00 c0 00 2c 00 50 2a 20 20 20 43 4f 55 4e 54 45 52 20 54 4f 20 48 4f 4d 45 20 50 4f ┆* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION o , P* COUNTER TO HOME PO┆
0xae60…aeb0 53 49 54 49 4f 4e 20 28 20 2f 30 31 30 31 20 29 2e 20 00 6f 00 fa 00 06 00 50 2a 20 00 6f 01 2a 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 ┆SITION ( /0101 ). o P* o * @ P********************************************┆
0xaeb0…aee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 6f 01 34 00 06 00 50 2a 20 00 6f 01 78 00 0e 00 50 52 43 44 59 5c 45 51 55 5c 2a 00 6f 01 82 ┆**************** o 4 P* o x PRCDY EQU * o ┆
0xaee0…af30 (112, 0, 398) 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 37 46 46 46 00 70 00 04 00 22 00 50 5c 41 4e 53 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 42 55 53 59 00 70 00 1a 00 06 00 50 2a 20 00 70 00 40 00 24 00 50 5c 4c 44 4b 4c 5c ┆ P LDKL A2,/7FFF p " P ANS A2,DWTST,A6 INDICATE BUSY p P* p @ $ P LDKL ┆
0xaf30…af80 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 70 00 4a 00 20 00 50 5c 43 46 5c 41 35 2c 53 54 41 42 4c 4b 5c 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 00 70 00 72 00 18 00 50 52 43 45 52 5c 41 42 4c 28 4e ┆A2,MAXBLK MAX. BLOCK SIZE p J P CF A5,STABLK START OF BLOCK p r PRCER ABL(N┆
0xaf80…afd0 5a 29 5c 44 59 45 52 35 30 20 00 70 00 96 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 70 00 b2 00 06 00 50 2a 20 00 70 00 ca 00 32 00 50 2a 20 20 20 54 48 49 53 20 50 41 52 54 20 49 53 20 4f 4e 4c 59 20 55 53 45 44 20 42 ┆Z) DYER50 p P IFT VD87=1 =7 p P* p 2 P* THIS PART IS ONLY USED B┆
0xafd0…b020 59 20 54 48 45 20 56 44 38 37 20 44 49 53 50 4c 41 59 00 70 00 d4 00 06 00 50 2a 20 00 70 01 0a 00 26 00 50 5c 4c 44 5c 41 34 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 70 01 14 00 1e 00 50 5c 52 ┆Y THE VD87 DISPLAY p P* p & P LD A4,DWTDEV,A6 GET DEVICE STATUS p P R┆
0xb020…b06e 46 28 4e 4e 29 5c 52 43 44 59 30 35 5c 4e 4f 54 20 56 44 38 37 20 21 20 00 70 01 3e 00 06 00 50 2a 20 00 70 01 60 00 28 00 50 5c 53 4c 4c 5c 41 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 ┆F(NN) RCDY05 NOT VD87 ! p > P* p ` ( P SLL A4,4 GET BIT FOR BACKGR. COLOUR┆
0xb06e…b0be (113, 0, 400) 00 70 01 6a 00 32 00 50 5c 4c 43 4b 5c 41 34 2c 2f 33 30 30 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 71 00 08 00 22 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 31 5c 53 45 4e 44 ┆ p j 2 P LCK A4,/3000 CONTR. CHAR. FOR BACKGR. COLOUR q " P CF A5,PSEND1 SEND┆
0xb0be…b10e 20 50 41 52 41 4d 45 54 45 52 53 20 00 71 00 3e 00 06 00 50 2a 20 00 71 00 64 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 00 71 00 6e 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 ┆ PARAMETERS q > P* q d P SLL A4,1 q n ( P LCK A4,/3200 CONTR. CHAR. FOR W┆
0xb10e…b15e 49 44 54 48 00 71 00 80 00 12 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 31 20 00 71 00 ac 00 06 00 50 2a 20 00 71 00 c2 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 00 71 00 cc 00 34 00 50 5c 4c 43 4b 5c 41 34 2c 2f 33 36 30 30 5c 43 4f 4e 54 ┆IDTH q P CF A5,PSEND1 q P* q P SLL A4,1 q 4 P LCK A4,/3600 CONT┆
0xb15e…b1ae 52 2e 20 43 48 41 52 2e 20 46 4f 52 20 53 43 52 45 45 4e 20 49 4e 54 45 4e 53 49 54 59 20 00 71 00 de 00 12 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 31 20 00 71 01 16 00 06 00 50 2a 20 00 71 01 2c 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 31 20 ┆R. CHAR. FOR SCREEN INTENSITY q P CF A5,PSEND1 q P* q , P SLL A4,1 ┆
0xb1ae…b1fe 00 71 01 36 00 2a 00 50 5c 4c 43 4b 5c 41 34 2c 2f 31 35 30 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 48 00 12 00 50 5c 43 46 5c 41 35 2c 50 53 45 4e 44 32 20 00 71 01 76 00 10 00 50 52 43 44 59 ┆ q 6 * P LCK A4,/1500 CONTR. CHAR. FOR CURSOR q H P CF A5,PSEND2 q v PRCDY┆
0xb1fe…b24e (114, 0, 400) 30 35 5c 45 51 55 5c 2a 00 71 01 8c 00 08 00 50 5c 58 49 46 00 72 00 10 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 1c 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 ┆05 EQU * q P XIF r P IFF STEADY+VD87=0 r & P LD A2,DWTDEV,A6 GET DEVIC┆
0xb24e…b29e 45 20 53 54 41 54 55 53 00 72 00 36 00 26 00 50 5c 41 4e 4b 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 60 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 8a ┆E STATUS r 6 & P ANKL A2,/2000 PTS 6385 OR 6386 ? r ` P RF(Z) RCDY20 NO ! r ┆
0xb29e…b2ee 00 28 00 50 5c 4c 44 4b 5c 41 33 2c 2f 34 30 5c 53 45 54 20 55 50 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 20 00 72 00 a4 00 06 00 50 2a 20 00 72 00 d0 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 ┆ ( P LDK A3,/40 SET UP TRANSFER COUNTER r P* r 0 PRCDY10 LDK A2,STILL-1 ┆
0xb2ee…b33e 53 45 54 20 55 50 20 43 55 52 53 4f 52 20 42 4c 49 4e 4b 49 4e 47 00 72 00 da 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 01 0e 00 2a 00 50 5c 43 46 5c ┆SET UP CURSOR BLINKING r * P ADK A2,STEADY ADJUST TO STEADY IF SO r * P CF ┆
0xb33e…b38e 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 55 52 53 4f 52 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 00 72 01 3c 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 72 01 6a 00 28 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e ┆A5,OUTPUT SEND CURSOR INFORMATION r < P RB(NZ) RCER r j ( P SUK A3,1 DECREMEN┆
0xb38e…b3de (115, 0, 400) 54 20 54 52 41 4e 53 46 45 52 20 43 4f 55 4e 54 45 52 00 72 01 7e 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 1a 00 08 00 50 5c 58 49 46 00 73 00 44 00 12 00 50 ┆T TRANSFER COUNTER r ~ & P RB(P) RCDY10 NOT ENOUGH TRANSFERS s P XIF s D P┆
0xb3de…b42e 5c 49 46 46 5c 43 4f 55 4e 54 52 59 3d 30 00 73 00 50 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 66 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 ┆ IFF COUNTRY=0 s P * P LDK A2,CTYCOD SEND "SET COUNTRY CODE" s f P CF A5,OUTPU┆
0xb42e…b47e 54 20 00 73 00 94 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 73 00 aa 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 73 00 be 00 06 00 50 2a 20 00 73 00 d6 00 44 00 50 2a 20 20 20 53 45 4e 44 20 41 4e 20 45 58 54 52 ┆T s P RB(NZ) RCER s P IFT VD87=1 =7 s P* s D P* SEND AN EXTR┆
0xb47e…b4ce 41 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 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 e0 00 06 00 50 2a 20 00 73 01 28 00 1c 00 50 5c 4c 44 5c 41 34 2c 44 57 54 44 45 56 2c ┆A CONTROL CHARACTER TO VD87 BEFORE COUNTRY CODE s P* s ( P LD A4,DWTDEV,┆
0xb4ce…b51e 41 36 5c 56 44 38 37 20 3f 20 00 73 01 32 00 16 00 50 5c 52 46 28 4e 4e 29 5c 4e 4f 54 38 37 5c 4e 4f 20 21 00 73 01 52 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 38 20 00 73 01 6c 00 1c 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 ┆A6 VD87 ? s 2 P RF(NN) NOT87 NO ! s R P LDK A2,/28 s l P CF A5,OUTPUT SE┆
0xb51e…b56e (116, 0, 400) 4e 44 20 43 2e 43 2e 20 00 73 01 80 00 1a 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 5c 4e 4f 54 20 4f 4b 20 21 20 00 74 00 10 00 10 00 50 4e 4f 54 38 37 5c 45 51 55 5c 2a 20 00 74 00 2e 00 08 00 50 5c 58 49 46 00 74 00 42 00 12 00 50 5c 49 ┆ND C.C. s P RB(NZ) RCER NOT OK ! t PNOT87 EQU * t . P XIF t B P I┆
0xb56e…b5be 46 46 5c 43 4f 55 4e 54 52 59 3d 30 00 74 00 4e 00 28 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 64 00 20 00 50 5c 4f 52 4b 5c 41 32 2c 2f 33 30 5c 4d 41 4b 45 ┆FF COUNTRY=0 t N ( P LDK A2,COUNTRY SEND "COUNTRY CODE" t d P ORK A2,/30 MAKE┆
0xb5be…b60e 20 41 53 43 49 49 20 44 49 47 49 54 00 74 00 90 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 74 00 b4 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 74 00 ca 00 08 00 50 5c 58 49 46 00 74 00 de 00 10 00 50 52 43 44 59 32 30 ┆ ASCII DIGIT t P CF A5,OUTPUT t P RB(NZ) RCER t P XIF t PRCDY20┆
0xb60e…b65e 5c 45 51 55 5c 2a 00 74 00 ea 00 06 00 50 2a 20 00 74 00 fe 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 01 08 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 ┆ EQU * t P* t ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME t P CF A5,OUTPU┆
0xb65e…b6ae 54 5c 53 45 4e 44 00 74 01 34 00 10 00 50 5c 52 42 28 4e 5a 29 5c 52 43 45 52 00 74 01 4e 00 06 00 50 2a 20 00 74 01 62 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 6c 00 34 00 50 ┆T SEND t 4 P RB(NZ) RCER t N P* t b P LDKL A2,/0101 HOME POSITION t l 4 P┆
0xb6ae…b6fe (117, 0, 400) 5c 53 54 5c 41 32 2c 44 57 54 41 50 2b 44 57 54 44 45 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 90 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 75 00 38 00 3a 00 50 5c 53 43 5c 41 32 ┆ ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER t P LDK A2,0 u 8 : P SC A2┆
0xb6fe…b74e 2c 44 57 54 42 43 2b 44 57 54 44 45 56 2c 41 36 5c 52 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 4a 00 06 00 50 2a 20 00 75 00 88 00 0e 00 50 5c 41 42 4c 5c 45 4e 44 49 4f 00 75 00 92 ┆,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER u J P* u P ABL ENDIO u ┆
0xb74e…b79e 00 06 00 50 2a 20 00 75 00 a4 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 ae 00 06 00 50 2a 20 00 75 00 de 00 16 00 50 2a 20 20 20 41 42 4f 52 ┆ P* u , P**************************************** u P* u P* ABOR┆
0xb79e…b7ee 54 20 52 4f 55 54 49 4e 45 20 00 75 00 e8 00 06 00 50 2a 20 00 75 01 02 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 01 0c 00 06 00 50 2a 20 00 75 ┆T ROUTINE u P* u , P**************************************** u P* u┆
0xb7ee…b83e 01 3c 00 0e 00 50 41 42 44 59 5c 45 51 55 5c 2a 00 75 01 46 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 58 00 18 00 50 5c 41 42 4c 5c 4c 45 4e ┆ < PABDY EQU * u F , P CF A15,UPDAPP UPDATE HEAD POS. POINTER u X P ABL LEN┆
0xb83e…b862 (118, 2, 36) 44 49 53 5c 45 4e 44 20 49 2f 4f 20 00 75 01 88 00 08 00 50 5c 45 4e 44 00 76 00 14 40 04 00 00 00 76 00 20 ┆DIS END I/O u P END v @ v ┆
0xb862…b86a (119, 1, 8) 20 04 00 00 00 77 00 04 ┆ w ┆
0xb86a…b8ba (120, 0, 400) 20 57 52 49 54 45 20 54 4f 20 54 48 45 20 41 50 50 4c 49 43 41 54 49 4f 4e 3b 00 0f 01 8a 00 0c 00 50 24 46 52 41 4d 45 3b 20 00 10 00 22 00 04 00 50 00 10 00 32 00 04 00 50 00 10 00 3a 00 2a 00 50 5c 4c 44 5c 41 31 34 2c 54 43 3a 53 54 4b ┆ WRITE TO THE APPLICATION; P$FRAME; " P 2 P : * P LD A14,TC:STK┆
0xb8ba…b90a 2c 41 31 33 5c 52 45 53 45 54 20 53 54 41 43 4b 20 50 4f 49 4e 54 45 52 00 10 00 42 00 1e 00 50 5c 4c 44 52 5c 41 38 2c 41 31 33 5c 41 38 20 2d 3e 20 57 53 4d 2d 54 43 41 20 00 10 00 70 00 20 00 50 5c 41 44 4b 4c 5c 41 38 2c 54 43 3a 49 43 ┆,A13 RESET STACK POINTER B P LDR A8,A13 A8 -> WSM-TCA p P ADKL A8,TC:IC┆
0xb90a…b95a 5c 41 38 20 2d 3e 20 49 54 43 2d 45 43 42 00 10 00 92 00 28 00 50 5c 4c 44 5c 41 31 2c 57 3a 49 43 46 43 5c 4c 4f 41 44 20 4f 55 54 50 55 54 20 46 49 4c 45 20 43 4f 44 45 20 00 10 00 b6 00 24 00 50 5c 53 43 5c 41 31 2c 45 43 42 3a 46 43 2b ┆ A8 -> ITC-ECB ( P LD A1,W:ICFC LOAD OUTPUT FILE CODE $ P SC A1,ECB:FC+┆
0xb95a…b9aa 31 2c 41 38 5c 53 54 4f 52 45 20 49 4e 20 45 43 42 20 00 10 00 e2 00 2e 00 50 5c 4c 44 5c 41 31 2c 50 42 3a 45 42 4c 2c 41 31 33 5c 41 31 20 3a 3d 20 45 46 46 2e 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 00 10 01 0a 00 38 00 50 5c 41 44 4b ┆1,A8 STORE IN ECB . P LD A1,PB:EBL,A13 A1 := EFF. BUFFER LENGTH 8 P ADK┆
0xb9aa…b9fa 5c 41 31 2c 50 42 3a 42 55 46 2d 50 42 3a 46 43 5c 41 31 20 3a 3d 20 45 46 46 2e 20 42 55 46 46 45 52 20 2b 20 50 41 52 2e 20 42 4c 4f 43 4b 20 00 10 01 3c 00 2a 00 50 5c 53 54 5c 41 31 2c 45 43 42 3a 52 4c 2c 41 38 5c 53 45 54 20 52 45 51 ┆ A1,PB:BUF-PB:FC A1 := EFF. BUFFER + PAR. BLOCK < * P ST A1,ECB:RL,A8 SET REQ┆
0xb9fa…ba4a (121, 0, 398) 55 45 53 54 45 44 20 4c 45 4e 47 54 48 20 00 10 01 78 00 2e 00 50 5c 4c 44 4b 5c 41 37 2c 57 52 49 54 45 5c 53 45 54 20 4f 52 44 45 52 20 3d 20 57 52 49 54 45 20 57 49 54 48 20 57 41 49 54 20 00 11 00 16 00 04 00 50 00 11 00 48 00 10 00 50 ┆UESTED LENGTH x . P LDK A7,WRITE SET ORDER = WRITE WITH WAIT P H P┆
0xba4a…ba9a 53 54 52 35 30 30 5c 45 51 55 5c 2a 00 11 00 50 00 08 00 50 5c 4c 4b 4d 00 11 00 64 00 0c 00 50 5c 44 41 54 41 5c 31 20 00 11 00 70 00 04 00 50 00 11 00 80 00 26 00 50 5c 4c 44 5c 41 31 2c 45 43 42 3a 52 43 2c 41 38 5c 4c 4f 41 44 20 52 45 ┆STR500 EQU * P P LKM d P DATA 1 p P & P LD A1,ECB:RC,A8 LOAD RE┆
0xba9a…baea 54 55 52 4e 2d 43 4f 44 45 20 00 11 00 88 00 1a 00 50 5c 41 4e 4b 5c 41 31 2c 2f 34 30 5c 54 49 4d 45 20 4f 55 54 20 3f 00 11 00 b2 00 24 00 50 5c 52 42 28 4e 5a 29 5c 53 54 52 35 30 30 5c 2d 59 45 53 2c 20 54 52 59 20 41 47 41 49 4e 20 21 ┆TURN-CODE P ANK A1,/40 TIME OUT ? $ P RB(NZ) STR500 -YES, TRY AGAIN !┆
0xbaea…bb3a 00 11 00 d0 00 04 00 50 00 11 00 f8 00 34 00 50 5c 4c 43 5c 41 31 2c 50 42 3a 46 43 2c 41 31 33 5c 41 31 20 3a 3d 20 46 55 4e 43 54 49 4f 4e 20 43 4f 44 45 2c 20 4c 45 46 54 20 42 59 54 45 20 00 11 01 00 00 24 00 50 5c 43 43 4b 5c 41 31 2c ┆ P 4 P LC A1,PB:FC,A13 A1 := FUNCTION CODE, LEFT BYTE $ P CCK A1,┆
0xbb3a…bb88 57 43 4c 4f 53 45 5c 43 4c 4f 53 45 20 46 55 4e 43 54 49 4f 4e 20 3f 20 00 11 01 38 00 2e 00 50 5c 52 42 28 45 29 5c 53 54 52 30 31 30 5c 2d 59 45 53 2c 20 47 4f 20 54 4f 20 4e 4f 54 2d 41 44 44 52 20 52 45 41 44 20 21 20 00 11 01 60 ┆WCLOSE CLOSE FUNCTION ? 8 . P RB(E) STR010 -YES, GO TO NOT-ADDR READ ! `┆
0xbb88…bbc6 (122, 2, 62) 00 26 00 50 5c 52 42 5c 53 54 52 30 32 30 5c 2d 4e 4f 2c 20 47 4f 20 54 4f 20 41 44 44 52 20 52 45 41 44 20 21 20 00 12 00 04 00 08 00 50 5c 45 4e 44 00 12 00 2e 40 04 00 00 00 12 00 3a ┆ & P RB STR020 -NO, GO TO ADDR READ ! P END .@ :┆
0xbbc6…bbce (123, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0xbbce…bc1e (124, 0, 398) 00 10 00 50 44 4f 54 45 4e 44 5c 45 51 55 5c 2a 00 14 00 04 00 0a 00 50 5c 45 4a 45 43 54 00 14 00 18 00 04 00 50 00 14 00 26 00 0c 00 50 24 46 52 41 4d 45 3b 20 00 14 00 2e 00 1e 00 50 24 43 20 50 52 45 50 41 52 45 20 49 4e 50 55 54 20 42 ┆ PDOTEND EQU * P EJECT P & P$FRAME; . P$C PREPARE INPUT B┆
0xbc1e…bc6e 55 46 46 45 52 20 3b 20 00 14 00 3e 00 0c 00 50 24 46 52 41 4d 45 3b 20 00 14 00 60 00 04 00 50 00 14 00 70 00 24 00 50 5c 4c 44 5c 41 34 2c 54 43 3a 43 46 44 2c 41 31 33 5c 41 34 20 2d 3e 20 44 46 20 44 41 54 41 20 00 14 00 78 00 32 00 50 ┆UFFER ; > P$FRAME; ` P p $ P LD A4,TC:CFD,A13 A4 -> DF DATA x 2 P┆
0xbc6e…bcbe 5c 41 44 4b 5c 41 34 2c 31 5c 41 34 20 2d 3e 20 44 46 20 44 41 54 41 20 41 46 54 45 52 20 44 45 43 4f 52 41 54 49 4f 4e 20 42 59 54 45 20 00 14 00 a0 00 0e 00 50 5c 4c 43 52 5c 41 33 2c 41 34 00 14 00 d6 00 32 00 50 5c 43 46 5c 41 31 34 2c ┆ ADK A4,1 A4 -> DF DATA AFTER DECORATION BYTE P LCR A3,A4 2 P CF A14,┆
0xbcbe…bd0e 57 3a 50 49 42 5c 4d 4f 56 45 20 43 4f 4d 50 52 45 53 53 45 44 20 54 4f 20 49 4e 50 55 54 20 42 55 46 46 45 52 20 00 14 00 e8 00 28 00 50 24 52 55 54 20 44 46 49 4e 2c 49 4e 50 55 54 20 54 4f 20 41 20 44 59 4e 41 4d 49 43 20 46 49 45 4c 44 ┆W:PIB MOVE COMPRESSED TO INPUT BUFFER ( P$RUT DFIN,INPUT TO A DYNAMIC FIELD┆
0xbd0e…bd5c 2e 3b 00 14 01 1e 00 08 00 50 24 43 3b 20 00 14 01 4a 00 0c 00 50 24 46 52 41 4d 45 3b 20 00 14 01 56 00 04 00 50 00 14 01 66 00 24 00 50 5c 4c 44 5c 41 37 2c 54 43 3a 43 46 44 2c 41 31 33 5c 20 2d 3e 20 41 37 20 44 46 20 44 41 54 41 ┆.; P$C; J P$FRAME; V P f $ P LD A7,TC:CFD,A13 -> A7 DF DATA┆