|
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: 52402 (0xccb2)
Notes: pts_type(SC)
Names: »DRDY02.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PTMON/DRDY02.SC«
IDENT DRDY02 REL 11.1 82-08-20 870105041110 =14,BLOCKING OF REQUESTS,CW NOT CLEARED IF ERR. =14,REL 11.1 82-04-06 =13 ERRORCHECK IN ECHO AND END OF ECHOING CORRECTED REL 11.1 82-02-12 =12 A5 DESTROYED BY TIMER, CHANGE IN RECOVERY REL 11.0 81-12-23 =11 TIMING PROBLEM IN RECOVERY FOR PLASMA DISPLAYS RECOVERY IN ECHO MODE IMPLEMENTED REL 11.0 81-12-09 =10 ECBRL DESTROYED BY ORDER 05 IF X:E=1 REL 11.0 81-09-30 =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 * 3D START WRITE * 3E STOP WRITE * * * 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 EXTRN SETIME TIMER ROUTINE EXTRN LDISP DISPATCH * * DWT DISPLACEMENTS * EXTRN DWTCHP CHANNEL PARAMETER WORD =14 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 DWTTP EQU /8 TIMER POINTER * * 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 TIME EQU 1 * ************************************************************ * * 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 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.1 82-08-20 870105041110 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0078 Head {h00=0x0036, h01=0x0050, text=» =14,BLOCKING OF REQUESTS,CW NOT CLEARED IF ERR.«, t00=0x0000, t01=0x0042}
0x0078…0098 Head {h00=0x001c, h01=0x0050, text=» =14,REL 11.1 82-04-06«, t00=0x0000, t01=0x007c}
0x0098…00d6 Head {h00=0x003a, h01=0x0050, text=» =13 ERRORCHECK IN ECHO AND END OF ECHOING CORRECTED«, t00=0x0000, t01=0x009c}
0x00d6…00f2 Head {h00=0x0018, h01=0x0050, text=» REL 11.1 82-02-12«, t00=0x0000, t01=0x00da}
0x00f2…012a Head {h00=0x0034, h01=0x0050, text=» =12 A5 DESTROYED BY TIMER, CHANGE IN RECOVERY«, t00=0x0000, t01=0x00f6}
0x012a…0146 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-12-23«, t00=0x0000, t01=0x012e}
0x0146…0184 Head {h00=0x003a, h01=0x0050, text=» =11 TIMING PROBLEM IN RECOVERY FOR PLASMA DISPLAYS «, t00=0x0000, t01=0x014a}
0x0184…01b4 Head {h00=0x002c, h01=0x0050, text=» RECOVERY IN ECHO MODE IMPLEMENTED«, t00=0x0000, t01=0x0188}
0x01b4…01d0 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-12-09«, t00=0x0001, t01=0x0028}
0x01d0…0204 Head {h00=0x0030, h01=0x0050, text=» =10 ECBRL DESTROYED BY ORDER 05 IF X:E=1 «, t00=0x0001, t01=0x0044}
0x0204…0220 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-09-30«, t00=0x0001, t01=0x0078}
0x0220…025a Head {h00=0x0036, h01=0x0050, text=» =9 ERR. FOR 6342/51 AND EMPTY BLOCK IN ORD. /05«, t00=0x0001, t01=0x0094}
0x025a…0298 Head {h00=0x003a, h01=0x0050, text=» CHAR. CHECK AT FAST OUTPUT. ULINE&LOWINT ON 6387«, t00=0x0001, t01=0x00ce}
0x0298…02b4 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-09-17«, t00=0x0001, t01=0x010c}
0x02b4…02ea Head {h00=0x0032, h01=0x0050, text=» = 8 ERROR FOR 6342 & 6351 IN ORDER 0B & 31 «, t00=0x0001, t01=0x0128}
0x02ea…0306 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-09-17«, t00=0x0001, t01=0x015e}
0x0306…0334 Head {h00=0x002a, h01=0x0050, text=» = 7 FUNCTIONS FOR VD87 IMPLEMENTED «, t00=0x0001, t01=0x017a}
0x0334…0350 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-30«, t00=0x0002, t01=0x0018}
0x0350…0398 Head {h00=0x0044, h01=0x0050, text=» = 6 "SUPPRESSION OF TRAILING BLANKS" REMOVED FROM BASIC WRITE«, t00=0x0002, t01=0x0034}
0x0398…03b4 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-06-24«, t00=0x0002, t01=0x007c}
0x03b4…03e6 Head {h00=0x002e, h01=0x0050, text=» = 5 SUPPRESSION OF TABULATION CORRECTED«, t00=0x0002, t01=0x0098}
0x03e6…0402 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-24«, t00=0x0002, t01=0x00ca}
0x0402…043e Head {h00=0x0038, h01=0x0050, text=» = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS«, t00=0x0002, t01=0x00e6}
0x043e…045a Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-06«, t00=0x0002, t01=0x0122}
0x045a…0496 Head {h00=0x0038, h01=0x0050, text=» = 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 «, t00=0x0002, t01=0x013e}
0x0496…04b2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-17«, t00=0x0002, t01=0x017a}
0x04b2…04ea Head {h00=0x0034, h01=0x0050, text=» = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED «, t00=0x0003, t01=0x0008}
0x04ea…0506 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-13«, t00=0x0003, t01=0x0040}
0x0506…053a Head {h00=0x0030, h01=0x0050, text=» = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE «, t00=0x0003, t01=0x005c}
0x053a…0556 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-03«, t00=0x0003, t01=0x0090}
0x0556…0560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0560…05a4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0003, t01=0x00b6}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05b8…05c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010e}
0x05c2…05ec Head {h00=0x0026, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM P T S «, t00=0x0003, t01=0x0118}
0x05ec…0616 Head {h00=0x0026, h01=0x0050, text=»* DRDY02 = DRIVER VIDEO DISPLAY «, t00=0x0003, t01=0x0142}
0x0616…0620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0620…062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0176}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0634…0678 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0003, t01=0x018a}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0682…06b6 Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO «, t00=0x0004, t01=0x0048}
0x06b6…06ea Head {h00=0x0030, h01=0x0050, text=»* DISPLAYS PTS 6342, 6344, 6346 AND TO THE«, t00=0x0004, t01=0x007c}
0x06ea…0718 Head {h00=0x002a, h01=0x0050, text=»* DISPLAYS PTS 6351, 6385 AND 6386. «, t00=0x0004, t01=0x00b0}
0x0718…074e Head {h00=0x0032, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-«, t00=0x0004, t01=0x00de}
0x074e…0782 Head {h00=0x0030, h01=0x0050, text=»* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE«, t00=0x0004, t01=0x0114}
0x0782…07b8 Head {h00=0x0032, h01=0x0050, text=»* THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- «, t00=0x0004, t01=0x0148}
0x07b8…07ca Head {h00=0x000e, h01=0x0050, text=»* BOARD.«, t00=0x0004, t01=0x017e}
0x07ca…07d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0190}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07de…080c Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0005, t01=0x0014}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0042}
0x0816…083a Head {h00=0x0020, h01=0x0050, text=»* ORDER 00 TEST STATUS «, t00=0x0005, t01=0x004c}
0x083a…085e Head {h00=0x0020, h01=0x0050, text=»* 05 BASIC WRITE «, t00=0x0005, t01=0x0070}
0x085e…0884 Head {h00=0x0022, h01=0x0050, text=»* 06 STANDARD WRITE«, t00=0x0005, t01=0x0094}
0x0884…08b0 Head {h00=0x0028, h01=0x0050, text=»* 0B SET CURSOR AND WRITE«, t00=0x0005, t01=0x00ba}
0x08b0…08ce Head {h00=0x001a, h01=0x0050, text=»* 31 ERASE «, t00=0x0005, t01=0x00e6}
0x08ce…08f2 Head {h00=0x0020, h01=0x0050, text=»* 3D START WRITE «, t00=0x0005, t01=0x0104}
0x08f2…0914 Head {h00=0x001e, h01=0x0050, text=»* 3E STOP WRITE«, t00=0x0005, t01=0x0128}
0x0914…091e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014a}
0x091e…0928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0154}
0x0928…094c Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE : «, t00=0x0005, t01=0x015e}
0x094c…0956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0182}
0x0956…097e Head {h00=0x0024, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x018c}
0x097e…09ac Head {h00=0x002a, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0006, t01=0x0024}
0x09ac…09d6 Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0006, t01=0x0052}
0x09d6…0a04 Head {h00=0x002a, h01=0x0050, text=»* A4 = WORKING REGISTER «, t00=0x0006, t01=0x007c}
0x0a04…0a2c Head {h00=0x0024, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0006, t01=0x00aa}
0x0a2c…0a54 Head {h00=0x0024, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0006, t01=0x00d2}
0x0a54…0a76 Head {h00=0x001e, h01=0x0050, text=»* A7 = ORDER«, t00=0x0006, t01=0x00fa}
0x0a76…0a9e Head {h00=0x0024, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0006, t01=0x011c}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0144}
0x0aa8…0ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x0ab2…0ac6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0006, t01=0x0158}
0x0ac6…0ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016c}
0x0ad0…0ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0ada…0b06 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0006, t01=0x0180}
0x0b06…0b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b10…0b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1a…0b30 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0007, t01=0x0030}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0050}
0x0b44…0b5e Head {h00=0x0016, h01=0x0050, text=»* TOSS ROUTINES «, t00=0x0007, t01=0x005a}
0x0b5e…0b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b68…0b90 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER I/O-REQUEST ERROR «, t00=0x0007, t01=0x007e}
0x0b90…0bb6 Head {h00=0x0022, h01=0x0050, text=» EXTRN LENDIS END I/O-REQUEST «, t00=0x0007, t01=0x00a6}
0x0bb6…0bda Head {h00=0x0020, h01=0x0050, text=» EXTRN STABLK START OF BLOCK«, t00=0x0007, t01=0x00cc}
0x0bda…0bf4 Head {h00=0x0016, h01=0x0050, text=» EXTRN OUTPUT SEND«, t00=0x0007, t01=0x00f0}
0x0bf4…0c16 Head {h00=0x001e, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0007, t01=0x010a}
0x0c16…0c4c Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER «, t00=0x0007, t01=0x012c}
0x0c4c…0c74 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD«, t00=0x0007, t01=0x0162}
0x0c74…0c94 Head {h00=0x001c, h01=0x0050, text=» EXTRN TENDIO END OF I/O«, t00=0x0007, t01=0x018a}
0x0c94…0cb8 Head {h00=0x0020, h01=0x0050, text=» EXTRN SETIME TIMER ROUTINE «, t00=0x0008, t01=0x001a}
0x0cb8…0cd6 Head {h00=0x001a, h01=0x0050, text=» EXTRN LDISP DISPATCH «, t00=0x0008, t01=0x003e}
0x0cd6…0ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005c}
0x0ce0…0cfe Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0008, t01=0x0066}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d08…0d38 Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTCHP CHANNEL PARAMETER WORD =14«, t00=0x0008, t01=0x008e}
0x0d38…0d64 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTDEV TERMINAL DEVICE STATUS«, t00=0x0008, t01=0x00be}
0x0d64…0d86 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST DEVICE STATUS«, t00=0x0008, t01=0x00ea}
0x0d86…0da0 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0008, t01=0x010c}
0x0da0…0dc0 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0008, t01=0x0126}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0146}
0x0dca…0de8 Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x0008, t01=0x0150}
0x0de8…0df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016e}
0x0df2…0e16 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0008, t01=0x0178}
0x0e16…0e3c Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0009, t01=0x000c}
0x0e3c…0e62 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0009, t01=0x0032}
0x0e62…0e82 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0009, t01=0x0058}
0x0e82…0ea4 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0009, t01=0x0078}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009a}
0x0eae…0ef2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0009, t01=0x00a4}
0x0ef2…0efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efc…0f12 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x0009, t01=0x00f2}
0x0f12…0f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1c…0f60 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0009, t01=0x0112}
0x0f60…0f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0156}
0x0f6a…0f88 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0009, t01=0x0160}
0x0f88…0f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f92…0fbc Head {h00=0x0026, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITION POINTER«, t00=0x0009, t01=0x0188}
0x0fbc…0fe2 Head {h00=0x0022, h01=0x0050, text=»DWTBC EQU /1 POSITION COUNTER «, t00=0x000a, t01=0x0022}
0x0fe2…0ffe Head {h00=0x0018, h01=0x0050, text=»DWTLIN EQU /4 LINES «, t00=0x000a, t01=0x0048}
0x0ffe…101e Head {h00=0x001c, h01=0x0050, text=»DWTPOS EQU /5 POSITIONS «, t00=0x000a, t01=0x0064}
0x101e…1048 Head {h00=0x0026, h01=0x0050, text=»DWTBLC EQU /6 CHARACTERS IN BLOCK «, t00=0x000a, t01=0x0084}
0x1048…106a Head {h00=0x001e, h01=0x0050, text=»DWTTP EQU /8 TIMER POINTER«, t00=0x000a, t01=0x00ae}
0x106a…1074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d0}
0x1074…108a Head {h00=0x0012, h01=0x0050, text=»* CHARACTERS«, t00=0x000a, t01=0x00da}
0x108a…1094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1094…10b8 Head {h00=0x0020, h01=0x0050, text=»DUMMY EQU /3 DUMMY CHARACTER«, t00=0x000a, t01=0x00fa}
0x10b8…10e8 Head {h00=0x002c, h01=0x0050, text=»BACKSP EQU /08 NON-DESTRUCTIVE BACKSPACE«, t00=0x000a, t01=0x011e}
0x10e8…1104 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000a, t01=0x014e}
0x1104…1124 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000a, t01=0x016a}
0x1124…1150 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000a, t01=0x018a}
0x1150…1172 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0026}
0x1172…1196 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x0048}
0x1196…11be Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000b, t01=0x006c}
0x11be…11e4 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000b, t01=0x0094}
0x11e4…1206 Head {h00=0x001e, h01=0x0050, text=»FASOUT EQU /14 FAST OUTPUT«, t00=0x000b, t01=0x00ba}
0x1206…122a Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000b, t01=0x00dc}
0x122a…1252 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000b, t01=0x0100}
0x1252…127c Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x0128}
0x127c…1298 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x0152}
0x1298…12a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016e}
0x12a2…12ba Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES«, t00=0x000b, t01=0x0178}
0x12ba…12c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0190}
0x12c4…12ea Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x000a}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…1306 Head {h00=0x000e, h01=0x0050, text=»* OTHER «, t00=0x000c, t01=0x003a}
0x1306…1310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004c}
0x1310…1330 Head {h00=0x001c, h01=0x0050, text=»MINBLK EQU 6 BLOCK SIZE «, t00=0x000c, t01=0x0056}
0x1330…1374 Head {h00=0x0040, h01=0x0050, text=»FASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT «, t00=0x000c, t01=0x0076}
0x1374…1386 Head {h00=0x000e, h01=0x0050, text=»TIME EQU 1«, t00=0x000c, t01=0x00ba}
0x1386…1390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00cc}
0x1390…13d4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000c, t01=0x00d6}
0x13d4…13de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13de…13f8 Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x000c, t01=0x0124}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1402…1446 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000c, t01=0x0148}
0x1446…1468 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x000c, t01=0x018c}
0x1468…1484 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x000d, t01=0x001e}
0x1484…1496 Head {h00=0x000e, h01=0x0050, text=»DYAD EQU *«, t00=0x000d, t01=0x003a}
0x1496…14c2 Head {h00=0x0028, h01=0x0050, text=» DATA ACDY DRIVER ACTIVATION ADDRESS«, t00=0x000d, t01=0x004c}
0x14c2…14e2 Head {h00=0x001c, h01=0x0050, text=» DATA ABDY ABORT ROUTINE«, t00=0x000d, t01=0x0078}
0x14e2…1506 Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x000d, t01=0x0098}
0x1506…152a Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x000d, t01=0x00bc}
0x152a…154c Head {h00=0x001e, h01=0x0050, text=» DATA ECHODY ECHO ROUTINE «, t00=0x000d, t01=0x00e0}
0x154c…1556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0102}
0x1556…159a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000d, t01=0x010c}
0x159a…15a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a4…15c4 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000d, t01=0x015a}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15ce…1612 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000d, t01=0x0184}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0038}
0x161c…1654 Head {h00=0x0034, h01=0x0050, text=»* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT«, t00=0x000e, t01=0x0042}
0x1654…1694 Head {h00=0x003c, h01=0x0050, text=»* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")«, t00=0x000e, t01=0x007a}
0x1694…16d0 Head {h00=0x0038, h01=0x0050, text=»* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE «, t00=0x000e, t01=0x00ba}
0x16d0…16e8 Head {h00=0x0014, h01=0x0050, text=»* FOUND EQUAL.«, t00=0x000e, t01=0x00f6}
0x16e8…16f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16f2…1704 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x0118}
0x1704…1718 Head {h00=0x0010, h01=0x0050, text=»FASTO EQU 1 «, t00=0x000e, t01=0x012a}
0x1718…1722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013e}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172c…1778 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344«, t00=0x000e, t01=0x0152}
0x1778…1798 Head {h00=0x001c, h01=0x0050, text=»* 6346, 6385 AND 6386.«, t00=0x000f, t01=0x000e}
0x1798…17a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002e}
0x17a2…17b4 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000f, t01=0x0038}
0x17b4…17ca Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000f, t01=0x004a}
0x17ca…17d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d4…17de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006a}
0x17de…181a Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000f, t01=0x0074}
0x181a…1844 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000f, t01=0x00b0}
0x1844…1856 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000f, t01=0x00da}
0x1856…186c Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000f, t01=0x00ec}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1876…1880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x1880…18bc Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000f, t01=0x0116}
0x18bc…18f8 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000f, t01=0x0152}
0x18f8…1934 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x018e}
0x1934…193e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x193e…1950 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0010, t01=0x0044}
0x1950…1966 Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x0010, t01=0x0056}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x1970…19a4 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x0010, t01=0x0076}
0x19a4…19a8 Head {h00=0x0054, h01=0x0050}
0x19a8…19ac Head {h00=0x2a20, h01=0x2020}
0x19ac…19f0 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 ┆POSSIBLE TO SUPPRESS TRAILING BLANKS, TABULATIONS, /1E AND /1F. (NOT┆
0x19f0…1a40 20 42 41 53 49 43 20 57 00 10 00 aa 00 06 00 50 2a 20 00 10 01 02 00 0e 00 50 58 3a 45 5c 45 51 55 5c 30 20 00 10 01 0c 00 12 00 50 54 52 41 53 50 41 5c 45 51 55 5c 58 3a 45 00 10 01 1e 00 06 00 50 2a 20 00 10 01 34 00 32 00 50 2a 20 20 20 ┆ BASIC W P* PX:E EQU 0 PTRASPA EQU X:E P* 4 2 P* ┆
0x1a40…1a8e 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 10 01 3e 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 10 01 74 ┆BY SETTING X:F = 1, CURSOR WILL BE STEADY > P* INSTEAD OF BLINKING. t┆
0x1a8e…1ade (17, 0, 400) 00 06 00 50 2a 20 00 11 00 04 00 0e 00 50 58 3a 46 5c 45 51 55 5c 31 20 00 11 00 0e 00 12 00 50 53 54 45 41 44 59 5c 45 51 55 5c 58 3a 46 00 11 00 20 00 06 00 50 2a 20 00 11 00 36 00 34 00 50 2a 20 20 20 42 59 20 4d 45 41 4e 53 20 4f 46 20 ┆ P* PX:F EQU 1 PSTEADY EQU X:F P* 6 4 P* BY MEANS OF ┆
0x1ade…1b2e 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 11 00 40 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 ┆CONDITIONAL ASSEMBLY IT IS POS- @ . P* SIBLE TO CHOOSE BETWEEN TEN DIFFEREN┆
0x1b2e…1b7e 54 20 00 11 00 78 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 11 00 aa 00 06 00 50 2a 20 00 11 00 da 00 12 00 50 2a 5c 43 4f 44 45 5c 43 4f 55 4e 54 ┆T x , P* CHARACTER SETS, IF PTS 6385 IS USED. P* P* CODE COUNT┆
0x1b7e…1bce 52 59 00 11 00 e4 00 10 00 50 2a 5c 30 5c 47 42 2f 4e 4c 2f 42 20 00 11 00 fa 00 10 00 50 2a 5c 31 5c 44 2f 41 2f 4c 2f 43 48 00 11 01 0e 00 10 00 50 2a 5c 32 5c 46 2f 43 48 2f 42 2f 4c 00 11 01 22 00 0a 00 50 2a 5c 33 5c 45 20 00 11 01 36 ┆RY P* 0 GB/NL/B P* 1 D/A/L/CH P* 2 F/CH/B/L " P* 3 E 6┆
0x1bce…1c1e 00 0c 00 50 2a 5c 34 5c 49 2f 43 48 00 11 01 44 00 0c 00 50 2a 5c 35 5c 53 2f 53 46 00 11 01 54 00 0c 00 50 2a 5c 36 5c 44 4b 2f 4e 00 11 01 64 00 0a 00 50 2a 5c 37 5c 50 20 00 11 01 74 00 0a 00 50 2a 5c 38 5c 59 55 00 11 01 82 00 0a 00 50 ┆ P* 4 I/CH D P* 5 S/SF T P* 6 DK/N d P* 7 P t P* 8 YU P┆
0x1c1e…1c6e (18, 0, 400) 2a 5c 39 5c 55 53 00 11 01 90 00 0e 00 50 58 3a 47 5c 45 51 55 5c 30 20 00 12 00 0e 00 12 00 50 43 4f 55 4e 54 52 59 5c 45 51 55 5c 36 20 00 12 00 20 00 06 00 50 2a 20 00 12 00 36 00 26 00 50 2a 20 20 20 4d 45 4d 4f 52 59 20 4d 41 4e 41 47 ┆* 9 US PX:G EQU 0 PCOUNTRY EQU 6 P* 6 & P* MEMORY MANAG┆
0x1c6e…1cbe 45 4d 45 4e 54 20 42 55 46 46 45 52 20 53 49 5a 45 20 00 12 00 40 00 06 00 50 2a 20 00 12 00 6a 00 0e 00 50 58 3a 48 5c 45 51 55 5c 38 32 00 12 00 74 00 12 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 31 36 32 00 12 00 86 00 06 00 50 2a 20 00 12 ┆EMENT BUFFER SIZE @ P* j PX:H EQU 82 t PDVBLEN EQU 162 P* ┆
0x1cbe…1d0e 00 9c 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 12 00 a6 00 06 00 50 2a 20 00 12 00 c4 00 10 00 50 58 3a 4a 5c 45 51 55 5c 31 34 30 20 00 12 00 ce 00 12 00 50 4d 41 58 42 4c 4b 5c 45 51 55 5c 58 3a 4a ┆ P* MAXIMUM BLOCK SIZE P* PX:J EQU 140 PMAXBLK EQU X:J┆
0x1d0e…1d5e 00 12 00 e2 00 06 00 50 2a 20 00 12 00 f8 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 ┆ P* L P* X:I SHOULD BE SET TO 1 IF A PTS 6385 OR 86 IS INCLUDED IN ┆
0x1d5e…1dae 53 59 53 54 45 4d 5c 3d 34 20 00 12 01 02 00 06 00 50 2a 20 00 12 01 52 00 0e 00 50 58 3a 49 5c 45 51 55 5c 30 20 00 12 01 5c 00 12 00 50 50 4c 41 53 4d 5c 45 51 55 5c 58 3a 49 20 00 12 01 6e 00 06 00 50 2a 20 00 12 01 84 00 32 00 50 2a 20 ┆SYSTEM =4 P* R PX:I EQU 0 PPLASM EQU X:I n P* 2 P* ┆
0x1dae…1dfe (19, 0, 400) 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 12 01 8e 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 13 00 34 00 06 ┆ IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 P* CHARACTER SET =4 4 ┆
0x1dfe…1e4e 00 50 2a 20 00 13 00 52 00 12 00 50 58 3a 4b 5c 45 51 55 5c 30 5c 5c 3d 34 20 00 13 00 5c 00 16 00 50 47 52 45 45 43 45 5c 45 51 55 5c 58 3a 4b 5c 5c 3d 34 00 13 00 72 00 06 00 50 2a 20 00 13 00 8c 00 34 00 50 2a 20 20 20 49 46 20 44 49 53 ┆ P* R PX:K EQU 0 =4 PGREECE EQU X:K =4 r P* 4 P* IF DIS┆
0x1e4e…1e9e 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 13 00 96 00 38 00 50 2a 20 20 20 54 48 45 20 57 4f 52 44 20 44 57 54 44 45 56 20 49 4e 20 54 48 45 20 44 49 53 50 4c 41 59 ┆PLAY VD 87 IS USED, X:L SHOULD BE 1 =7 8 P* THE WORD DWTDEV IN THE DISPLAY┆
0x1e9e…1eee 2d 44 57 54 20 53 48 4f 55 4c 44 20 42 45 20 53 45 54 00 13 00 ce 00 2e 00 50 2a 20 20 20 54 4f 20 2f 41 45 30 30 20 54 4f 20 49 4e 44 49 43 41 54 45 20 54 48 41 54 20 56 44 38 37 20 49 53 20 55 53 45 44 00 13 01 0a 00 06 00 50 2a 20 00 13 ┆-DWT SHOULD BE SET . P* TO /AE00 TO INDICATE THAT VD87 IS USED P* ┆
0x1eee…1f3e 01 3c 00 0e 00 50 58 3a 4c 5c 45 51 55 5c 30 20 00 13 01 46 00 10 00 50 56 44 38 37 5c 45 51 55 5c 58 3a 4c 00 13 01 58 00 06 00 50 2a 20 00 13 01 6c 00 0a 00 50 5c 45 4a 45 43 54 00 13 01 76 00 06 00 50 2a 20 00 13 01 84 00 3a 00 50 2a 2a ┆ < PX:L EQU 0 F PVD87 EQU X:L X P* l P EJECT v P* : P**┆
0x1f3e…1f8e (20, 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 13 01 8e 00 06 00 50 2a 20 00 14 00 3c 00 26 00 50 2a 20 20 20 41 20 43 20 54 20 ┆*************************************************** P* < & P* A C T ┆
0x1f8e…1fde 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 14 00 46 00 06 00 50 2a 20 00 14 00 70 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 ┆I V A T I O N P A R T F P* p 4 P* THIS PART MAKES A START OF BLOCK, ┆
0x1fde…202e 43 48 45 43 4b 53 20 54 48 45 00 14 00 7a 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 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 14 00 b2 00 1c 00 50 2a 20 ┆CHECKS THE z 8 P* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE P* ┆
0x202e…207e 20 20 50 41 52 54 20 4f 46 20 54 48 45 20 44 52 49 56 45 52 2e 20 00 14 00 ee 00 06 00 50 2a 20 00 14 01 0e 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 ┆ PART OF THE DRIVER. P* < P****************************************┆
0x207e…20ce 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 14 01 18 00 06 00 50 2a 20 00 14 01 58 00 0e 00 50 41 43 44 59 5c 45 51 55 5c 2a 00 14 01 62 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 ┆*************** P* X PACDY EQU * b P LDK A3,0 RESET BUFFER INDEX┆
0x20ce…211e (21, 0, 398) 00 14 01 74 00 06 00 50 2a 20 00 15 00 08 00 24 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 42 4c 4f 43 4b 49 4e 47 20 4f 52 44 45 52 5c 3d 31 34 20 00 15 00 12 00 06 00 50 2a 20 00 15 00 3a 00 1c 00 50 5c 4c 44 52 5c 41 32 2c 41 37 5c 47 ┆ t P* $ P* CHECK IF BLOCKING ORDER =14 P* : P LDR A2,A7 G┆
0x211e…216e 45 54 20 4f 52 44 45 52 5c 3d 31 34 00 15 00 44 00 22 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 44 5c 53 54 41 52 54 20 57 52 49 54 45 20 3f 5c 3d 31 34 20 00 15 00 64 00 1c 00 50 5c 41 42 4c 28 5a 29 5c 44 59 37 36 30 5c 59 45 53 20 21 5c 3d 31 ┆ET ORDER =14 D " P SUK A2,/3D START WRITE ? =14 d P ABL(Z) DY760 YES ! =1┆
0x216e…21be 34 20 00 15 00 8a 00 1e 00 50 5c 53 55 4b 5c 41 32 2c 31 5c 53 54 4f 50 20 57 52 49 54 45 20 3f 5c 3d 31 34 00 15 00 aa 00 1c 00 50 5c 41 42 4c 28 5a 29 5c 44 59 37 38 30 5c 59 45 53 20 21 5c 3d 31 34 20 00 15 00 cc 00 06 00 50 2a 20 00 15 ┆4 P SUK A2,1 STOP WRITE ? =14 P ABL(Z) DY780 YES ! =14 P* ┆
0x21be…220e 00 ec 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 43 54 45 52 20 43 4f 55 4e 54 45 52 00 15 00 f6 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 ┆ 0 P CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER $ P LDKL A2,MAXBLK MAX. B┆
0x220e…225c 4c 4f 43 4b 20 53 49 5a 45 20 00 15 01 2a 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 15 01 52 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 15 01 76 00 06 00 50 2a 20 ┆LOCK SIZE * P CF A5,STABLK START OF BLOCK R P RF(NZ) DYER10 v P* ┆
0x225c…22ac (22, 0, 400) 00 15 01 8c 00 12 00 50 2a 20 20 20 54 45 53 54 20 4f 52 44 45 52 00 16 00 08 00 06 00 50 2a 20 00 16 00 1e 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 16 00 28 00 26 00 50 5c 52 46 28 5a 29 5c 44 59 31 30 30 ┆ P* TEST ORDER P* P LDR A7,A7 GET ORDER ( & P RF(Z) DY100┆
0x22ac…22fc 5c 4f 52 44 45 52 20 30 30 2c 20 54 45 53 54 20 53 54 41 54 55 53 00 16 00 44 00 06 00 50 2a 20 00 16 00 6e 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 2f 35 00 16 00 78 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 ┆ ORDER 00, TEST STATUS D P* n P SUK A7,/5 x & P RF(Z) DY200 ORDER 05,┆
0x22fc…234c 20 42 41 53 49 43 20 57 52 49 54 45 00 16 00 8a 00 06 00 50 2a 20 00 16 00 b4 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 31 20 00 16 00 be 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 ┆ BASIC WRITE P* P SUK A7,1 ( P RF(Z) DY300 ORDER 06,STANDARD W┆
0x234c…239c 52 49 54 45 00 16 00 d0 00 06 00 50 2a 20 00 16 00 fc 00 0e 00 50 5c 53 55 4b 5c 41 37 2c 2f 35 00 16 01 06 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 ┆RITE P* P SUK A7,/5 0 P ABL(Z) DY600 ORDER 0B, SET CURSOR AND W┆
0x239c…23ec 52 49 54 45 00 16 01 18 00 06 00 50 2a 20 00 16 01 4c 00 10 00 50 5c 53 55 4b 5c 41 37 2c 2f 32 36 20 00 16 01 56 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 16 01 6a 00 14 00 50 ┆RITE P* L P SUK A7,/26 V " P ABL(Z) DY700 ORDER 31, ERASE j P┆
0x23ec…243c (23, 0, 400) 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 37 20 00 16 01 90 00 0e 00 50 5c 41 44 4b 5c 41 37 2c 2f 41 00 17 00 18 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 ┆ IFT VD87=1 =7 P ADK A7,/A 0 P ABL(Z) ORD27 ORDER /27, TRANSFER PARA┆
0x243c…248c 4d 45 54 45 52 53 00 17 00 2a 00 08 00 50 5c 58 49 46 00 17 00 5e 00 06 00 50 2a 20 00 17 00 6a 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 17 00 74 00 06 00 50 2a 20 00 17 00 92 00 1e 00 50 5c 43 46 5c ┆METERS * P XIF ^ P* j P* I/O-REQUEST ERROR t P* P CF ┆
0x248c…24dc 41 35 2c 45 4e 44 42 4c 4b 5c 45 4e 44 20 4f 46 20 42 4c 4f 43 4b 00 17 00 9c 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 17 00 be 00 0a 00 50 5c 45 ┆A5,ENDBLK END OF BLOCK , P ABL LENDER SET RETURN CODE AND END I/O P E┆
0x24dc…252c 4a 45 43 54 00 17 00 ee 00 06 00 50 2a 20 00 17 00 fc 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 ┆JECT P* @ P**********************************************************┆
0x252c…257c 2a 2a 00 17 01 06 00 06 00 50 2a 20 00 17 01 4a 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 17 01 54 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 ┆** P* J P* ORDER 00, TEST STATUS. T 8 P* THIS PART SENDS A DUMM┆
0x257c…25cc (24, 0, 400) 59 20 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 17 01 76 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 ┆Y CHARACTER TO THE DISPLAY v : P* AND SETS BIT 15 IN THE RETURN CODE IF THE ┆
0x25cc…261c 44 49 53 50 4c 41 59 20 00 18 00 22 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 18 00 60 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 ┆DISPLAY " P* IS NOT OPERABLE. ` : P* THE CURSOR POSITION IS RETURNED ┆
0x261c…266c 49 4e 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 4f 46 00 18 00 7c 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 18 ┆IN CONTROL WORD OF | 8 P* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN ┆
0x266c…26bc 00 ba 00 12 00 50 2a 20 20 20 54 48 45 20 52 49 47 48 54 2e 00 18 00 f6 00 06 00 50 2a 20 00 18 01 0c 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 ┆ P* THE RIGHT. P* @ P******************************************┆
0x26bc…270c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 18 01 16 00 06 00 50 2a 20 00 18 01 5a 00 10 00 50 44 59 31 30 30 5c 45 51 55 5c 2a 20 00 18 01 64 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 44 55 4d 4d 59 20 00 18 01 78 00 1c 00 50 5c 43 ┆****************** P* Z PDY100 EQU * d P LDK A2,DUMMY x P C┆
0x270c…275c (25, 0, 400) 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 44 55 4d 4d 59 00 18 01 8e 00 12 00 50 5c 52 46 28 4e 5a 29 5c 44 59 45 52 31 30 00 19 00 1e 00 06 00 50 2a 20 00 19 00 34 00 2e 00 50 5c 4c 44 5c 41 34 2c 44 57 54 41 50 2b 44 57 54 44 45 ┆F A5,OUTPUT SEND DUMMY P RF(NZ) DYER10 P* 4 . P LD A4,DWTAP+DWTDE┆
0x275c…27ac 56 2c 41 36 5c 47 45 54 20 43 55 52 53 4f 52 20 50 4f 53 49 54 49 4f 4e 00 19 00 3e 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 19 00 70 ┆V,A6 GET CURSOR POSITION > 0 P ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB p┆
0x27ac…27fc 00 06 00 50 2a 20 00 19 00 a4 00 0e 00 50 5c 41 42 4c 5c 45 4e 44 49 4f 00 19 00 ae 00 0a 00 50 5c 45 4a 45 43 54 00 19 00 c0 00 06 00 50 2a 20 00 19 00 ce 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 ┆ P* P ABL ENDIO P EJECT P* @ P************************┆
0x27fc…284c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 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 19 00 d8 00 06 00 50 2a 20 00 19 01 1c 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 ┆************************************ P* P* ORDER 05, BASIC WRITE.┆
0x284c…289c 00 19 01 26 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 19 01 48 00 2e 00 50 2a 20 20 20 43 48 41 52 41 43 54 45 52 53 20 54 4f 20 54 48 ┆ & 0 P* THIS ORDER SENDS THE REQUESTED NUMBER OF H . P* CHARACTERS TO TH┆
0x289c…28a0 (26, 0, 398) 45 20 44 49 ┆E DI┆
0x28a0…28f0 53 50 4c 41 59 20 41 4e 44 20 53 45 54 53 20 54 48 45 00 19 01 7c 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 1a 00 1e 00 1a 00 50 2a 20 ┆SPLAY AND SETS THE | 0 P* INTERNAL CURSOR POSITION COUNTER TO HOME P* ┆
0x28f0…2940 20 20 50 4f 53 49 54 49 4f 4e 2e 20 28 2f 30 31 30 31 29 20 00 1a 00 52 00 06 00 50 2a 20 00 1a 00 70 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 ┆ POSITION. (/0101) R P* p @ P******************************************┆
0x2940…2990 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a 00 7a 00 06 00 50 2a 20 00 1a 00 be 00 10 00 50 44 59 32 30 30 5c 45 51 55 5c 2a 20 00 1a 00 c8 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 ┆****************** z P* PDY200 EQU * 2 P CF A15,GETCHR FETCH CHA┆
0x2990…29ac 52 41 43 54 45 52 20 46 52 4f 4d 20 45 43 42 2d 42 55 46 46 45 52 00 1a 00 dc 00 30 ┆RACTER FROM ECB-BUFFER 0┆
0x29ac…bcb2 […elided…]
0xbcb2…bcc0 4e 4f 54 38 37 5c 4e 4f 20 21 00 78 01 3c ┆NOT87 NO ! x <┆
0xbcc0…bcfe 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 38 20 00 78 01 56 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 78 01 6a 00 10 00 50 4e 4f 54 38 37 5c ┆ P LDK A2,/28 x V P CF A5,OUTPUT SEND C.C. x j PNOT87 ┆
0xbcfe…bd4e (121, 0, 400) 45 51 55 5c 2a 20 00 78 01 8a 00 08 00 50 5c 58 49 46 00 79 00 0e 00 12 00 50 5c 49 46 46 5c 43 4f 55 4e 54 52 59 3d 30 00 79 00 1a 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 ┆EQU * x P XIF y P IFF COUNTRY=0 y ( P LDK A2,COUNTRY SEND "COUNTRY CO┆
0xbd4e…bd9e 44 45 22 20 00 79 00 30 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 79 00 5c 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 79 00 80 00 08 00 50 5c 58 49 46 00 79 00 96 00 10 ┆DE" y 0 P ORK A2,/30 MAKE ASCII DIGIT y P CF A5,OUTPUT y P XIF y ┆
0xbd9e…bdee 00 50 52 43 44 59 32 30 5c 45 51 55 5c 2a 00 79 00 a2 00 06 00 50 2a 20 00 79 00 b6 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 79 00 c0 00 16 00 50 5c 43 46 5c ┆ PRCDY20 EQU * y P* y ( P LDK A2,CLEHOM CLEAR AND CURSOR HOME y P CF ┆
0xbdee…be3e 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 79 00 ec 00 16 00 50 5c 43 46 5c 41 35 2c 45 4e 44 42 4c 4b 5c 5c 3d 31 31 00 79 01 06 00 06 00 50 2a 20 00 79 01 20 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 ┆A5,OUTPUT SEND y P CF A5,ENDBLK =11 y P* y P LDKL A2,/0101 HOME PO┆
0xbe3e…be8e 53 49 54 49 4f 4e 00 79 01 2a 00 34 00 50 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 79 01 4e 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 ┆SITION y * 4 P ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER y N P LDK A2,0 ┆
0xbe8e…bede (122, 0, 400) 00 79 01 86 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 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 7a 00 08 00 06 00 50 2a 20 00 7a 00 46 00 2c 00 50 ┆ y : P SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER z P* z F , P┆
0xbede…bf2e 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 49 46 5c 3d 31 31 20 00 7a 00 50 00 2a 00 50 5c 53 4c 43 5c 41 32 2c 32 5c 44 49 53 50 4c 41 59 20 49 53 20 49 4e 20 45 43 48 4f 20 4d 4f 44 ┆ LD A2,DWTST,A6 GO TO DISPATCHER IF =11 z P * P SLC A2,2 DISPLAY IS IN ECHO MOD┆
0xbf2e…bf7e 45 5c 3d 31 31 20 00 7a 00 80 00 16 00 50 5c 41 42 4c 28 4e 29 5c 4c 44 49 53 50 5c 5c 3d 31 31 00 7a 00 ae 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d 31 5c 5c 3d 31 32 00 7a 00 c8 00 20 00 50 5c 4c 44 52 5c 41 38 2c 41 38 5c 52 45 51 55 45 ┆E =11 z P ABL(N) LDISP =11 z P IFT VD87=1 =12 z P LDR A8,A8 REQUE┆
0xbf7e…bfce 53 54 20 4f 4e 20 3f 5c 3d 31 32 20 00 7a 00 e0 00 18 00 50 5c 52 46 28 5a 29 5c 52 43 44 59 33 30 5c 4e 4f 5c 3d 31 32 00 7a 01 04 00 22 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 5c 4f 52 44 45 52 20 32 37 20 3f 5c 3d 31 32 00 7a ┆ST ON ? =12 z P RF(Z) RCDY30 NO =12 z " P LD A7,DWTOR,A6 ORDER 27 ? =12 z┆
0xbfce…c01e 01 20 00 16 00 50 5c 43 43 4b 5c 41 37 2c 2f 32 37 32 37 5c 5c 3d 31 32 00 7a 01 46 00 24 00 50 5c 41 42 4c 28 45 29 5c 41 43 44 59 5c 59 45 53 2c 20 52 45 50 45 41 54 20 49 54 5c 3d 31 32 20 00 7a 01 60 00 16 00 50 52 43 44 59 33 30 5c 45 ┆ P CCK A7,/2727 =12 z F $ P ABL(E) ACDY YES, REPEAT IT =12 z ` PRCDY30 E┆
0xc01e…c06e (123, 0, 398) 51 55 5c 2a 5c 5c 3d 31 32 20 00 7a 01 88 00 0e 00 50 5c 58 49 46 5c 5c 5c 3d 31 32 00 7b 00 12 00 14 00 50 5c 41 42 4c 5c 4c 45 4e 44 49 53 5c 5c 3d 31 31 00 7b 00 24 00 06 00 50 2a 20 00 7b 00 3c 00 14 00 50 5c 49 46 54 5c 56 44 38 37 3d ┆QU * =12 z P XIF =12 { P ABL LENDIS =11 { $ P* { < P IFT VD87=┆
0xc06e…c0be 31 5c 5c 3d 31 31 00 7b 00 46 00 06 00 50 2a 20 00 7b 00 5e 00 26 00 50 2a 20 20 20 52 45 43 4f 56 45 52 59 20 53 55 42 52 4f 55 54 49 4e 45 53 20 46 4f 52 20 56 44 38 37 20 00 7b 00 68 00 06 00 50 2a 20 00 7b 00 92 00 16 00 50 52 53 45 4e ┆1 =11 { F P* { ^ & P* RECOVERY SUBROUTINES FOR VD87 { h P* { PRSEN┆
0xc0be…c10e 44 31 5c 45 51 55 5c 2a 5c 5c 3d 31 31 20 00 7b 00 9c 00 2a 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 42 5c 53 45 4e 44 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 5c 3d 31 31 00 7b 00 b6 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 ┆D1 EQU * =11 { * P LDK A2,/1B SEND CONTROL CHARACTER =11 { P CF A5,OUTPU┆
0xc10e…c15e 54 5c 5c 3d 31 31 00 7b 00 e4 00 06 00 50 2a 20 00 7b 00 fe 00 16 00 50 52 53 45 4e 44 32 5c 45 51 55 5c 2a 5c 5c 3d 31 31 20 00 7b 01 08 00 20 00 50 5c 4c 44 52 5c 41 32 2c 41 34 5c 46 49 52 53 54 20 54 59 50 45 20 3f 5c 3d 31 31 20 00 7b ┆T =11 { P* { PRSEND2 EQU * =11 { P LDR A2,A4 FIRST TYPE ? =11 {┆
0xc15e…c1ac 01 22 00 1a 00 50 5c 52 46 28 4e 4e 29 5c 52 53 31 30 5c 59 45 53 20 21 5c 3d 31 31 00 7b 01 46 00 2e 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 4e 4f 2c 20 43 48 41 4e 47 45 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 5c 3d 31 31 ┆ " P RF(NN) RS10 YES ! =11 { F . P ADK A2,1 NO, CHANGE CONTROL CHARACTER =11┆
0xc1ac…c1fc (124, 0, 400) 00 7b 01 64 00 14 00 50 52 53 31 30 5c 45 51 55 5c 2a 5c 5c 3d 31 31 20 00 7c 00 08 00 2c 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 5c 3d 31 31 00 7c 00 20 00 16 00 50 ┆ { d PRS10 EQU * =11 | , P CF A5,OUTPUT SEND CONTROL CHARACTER =11 | P┆
0xc1fc…c24c 5c 52 54 4e 5c 41 35 5c 52 45 54 55 52 4e 5c 3d 31 31 00 7c 00 50 00 06 00 50 2a 20 00 7c 00 6a 00 08 00 50 5c 58 49 46 00 7c 00 74 00 0a 00 50 5c 45 4a 45 43 54 00 7c 00 80 00 06 00 50 2a 20 00 7c 00 8e 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆ RTN A5 RETURN =11 | P P* | j P XIF | t P EJECT | P* | , P********┆
0xc24c…c29c 2a 2a 2a 2a 2a 2a 2a 2a 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 7c 00 98 00 06 00 50 2a 20 00 7c 00 c8 00 16 00 50 2a 20 20 20 41 42 4f 52 54 20 52 4f 55 54 49 4e 45 20 00 7c 00 d2 00 06 00 50 2a 20 00 7c ┆******************************** | P* | P* ABORT ROUTINE | P* |┆
0xc29c…c2ec 00 ec 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 7c 00 f6 00 06 00 50 2a 20 00 7c 01 26 00 0e 00 50 41 42 44 59 5c 45 51 55 5c 2a 00 7c 01 30 00 2c ┆ , P**************************************** | P* | & PABDY EQU * | 0 ,┆
0xc2ec…c33c 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 7c 01 42 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 7c 01 72 00 08 00 50 5c 45 ┆ P CF A15,UPDAPP UPDATE HEAD POS. POINTER | B P ABL LENDIS END I/O | r P E┆
0xc33c…c34a (125, 2, 14) 4e 44 00 7c 01 8e 40 04 00 00 00 7d 00 0a ┆ND | @ } ┆
0xc34a…c352 (126, 1, 8) 20 04 00 00 00 7e 00 04 ┆ ~ ┆
0xc352…c3a2 (127, 0, 400) 00 0e 01 84 00 12 00 50 50 4c 43 4e 52 4c 5c 45 51 55 5c 58 3a 41 00 0f 00 08 00 06 00 50 2a 20 00 0f 00 1e 00 44 00 50 2a 5c 50 4c 43 4e 52 52 20 44 45 46 49 4e 45 53 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 52 45 4d 4f 54 45 20 50 4c ┆ PPLCNRL EQU X:A P* D P* PLCNRR DEFINES THE NUMBER OF REMOTE PL┆
0xc3a2…c3f2 43 3a 53 20 41 43 54 55 41 4c 4c 59 20 43 4f 4e 4e 2e 20 28 30 2d 34 29 00 0f 00 28 00 06 00 50 2a 20 00 0f 00 70 00 0e 00 50 58 3a 42 5c 45 51 55 5c 30 20 00 0f 00 7a 00 12 00 50 50 4c 43 4e 52 52 5c 45 51 55 5c 58 3a 42 00 0f 00 8c 00 06 ┆C:S ACTUALLY CONN. (0-4) ( P* p PX:B EQU 0 z PPLCNRR EQU X:B ┆
0xc3f2…c442 00 50 2a 20 00 0f 00 a2 00 06 00 50 2a 20 00 0f 00 ac 00 0a 00 50 5c 45 4a 45 43 54 00 0f 00 b6 00 06 00 50 2a 20 00 0f 00 c4 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0f 00 ce 00 12 00 50 2a 20 43 4f 4e 53 54 41 4e 54 53 20 ┆ P* P* P EJECT P* P************* P* CONSTANTS ┆
0xc442…c492 2a 20 00 0f 00 e4 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0f 00 fa 00 06 00 50 2a 20 00 0f 01 10 00 24 00 50 2a 20 20 20 20 53 59 53 54 45 4d 20 50 41 52 41 4d 45 54 45 52 20 44 45 46 49 4e 49 54 49 4f 4e 00 0f 01 1a 00 06 ┆* P************* P* $ P* SYSTEM PARAMETER DEFINITION ┆
0xc492…c4e2 00 50 2a 20 00 0f 01 42 00 2c 00 50 2a 5c 4c 45 56 45 4c 20 33 20 46 4c 4f 57 20 43 4f 4e 54 52 4f 4c 20 57 49 4e 44 4f 57 20 53 49 5a 45 20 28 31 2d 37 29 00 0f 01 4c 00 10 00 50 57 49 4e 44 4f 57 5c 45 51 55 5c 32 00 0f 01 7c 00 06 00 50 ┆ P* B , P* LEVEL 3 FLOW CONTROL WINDOW SIZE (1-7) L PWINDOW EQU 2 | P┆
0xc4e2…c532 (128, 0, 400) 2a 20 00 0f 01 90 00 34 00 50 2a 5c 4d 41 58 49 4d 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 57 4f 52 4b 20 53 54 41 54 49 4f 4e 53 20 50 45 52 20 50 4c 43 20 28 31 2d 33 32 29 00 10 00 0a 00 10 00 50 4d 41 58 57 53 5c 45 51 55 5c 33 32 00 10 ┆* 4 P* MAXIMAL NUMBER OF WORK STATIONS PER PLC (1-32) PMAXWS EQU 32 ┆
0xc532…c582 00 42 00 06 00 50 2a 20 00 10 00 56 00 3e 00 50 2a 5c 44 45 4c 41 59 20 42 45 46 4f 52 45 20 45 58 45 43 55 54 49 4e 47 20 22 54 45 53 54 20 43 55 22 20 41 54 20 52 45 53 54 41 52 54 2e 20 28 49 4e 20 31 30 30 20 4d 53 29 00 10 00 60 00 1e ┆ B P* V > P* DELAY BEFORE EXECUTING "TEST CU" AT RESTART. (IN 100 MS) ` ┆
0xc582…c5d2 00 50 53 54 41 44 4c 59 5c 45 51 55 5c 31 30 30 5c 31 30 20 53 45 43 4f 4e 44 53 20 00 10 00 a2 00 06 00 50 2a 20 00 10 00 c4 00 42 00 50 2a 5c 4c 45 4e 47 54 48 20 4f 46 20 55 53 45 52 20 50 41 52 54 20 4f 46 20 53 48 4f 52 54 20 4f 55 54 ┆ PSTADLY EQU 100 10 SECONDS P* B P* LENGTH OF USER PART OF SHORT OUT┆
0xc5d2…c622 50 55 54 20 42 55 46 46 45 52 20 49 4e 20 57 4f 52 44 53 20 28 31 2d 31 32 38 29 20 00 10 00 ce 00 10 00 50 53 4f 42 55 46 55 5c 45 51 55 5c 33 00 10 01 14 00 06 00 50 2a 20 00 10 01 28 00 42 00 50 2a 5c 4c 45 4e 47 54 48 20 4f 46 20 55 53 ┆PUT BUFFER IN WORDS (1-128) PSOBUFU EQU 3 P* ( B P* LENGTH OF US┆
0xc622…c672 45 52 20 50 41 52 54 20 4f 46 20 47 45 4e 45 52 41 4c 20 52 45 41 44 20 42 55 46 46 45 52 20 49 4e 20 57 4f 52 44 53 20 28 31 2d 31 32 38 29 20 00 10 01 32 00 12 00 50 47 52 42 55 46 55 5c 45 51 55 5c 37 30 20 00 10 01 78 00 06 00 50 2a 20 ┆ER PART OF GENERAL READ BUFFER IN WORDS (1-128) 2 PGRBUFU EQU 70 x P* ┆
0xc672…c6c2 (129, 0, 400) 00 10 01 8e 00 28 00 50 2a 20 20 20 20 20 20 20 20 49 4e 41 43 54 49 56 49 54 59 20 54 49 4d 45 52 20 28 4d 49 4e 55 54 45 53 29 20 00 11 00 08 00 10 00 50 54 49 4d 41 43 54 5c 45 51 55 5c 35 00 11 00 34 00 06 00 50 2a 20 00 11 00 48 00 3c ┆ ( P* INACTIVITY TIMER (MINUTES) PTIMACT EQU 5 4 P* H <┆
0xc6c2…c712 00 50 2a 5c 49 46 20 50 4c 43 54 53 54 20 49 53 20 31 20 54 48 45 20 50 4c 43 20 44 49 41 47 4e 4f 53 54 49 43 20 43 4f 4d 4d 41 4e 44 53 20 41 52 45 20 48 41 4e 44 4c 45 44 00 11 00 52 00 16 00 50 2a 5c 42 59 20 54 48 49 53 20 44 52 49 56 ┆ P* IF PLCTST IS 1 THE PLC DIAGNOSTIC COMMANDS ARE HANDLED R P* BY THIS DRIV┆
0xc712…c762 45 52 2e 20 00 11 00 92 00 06 00 50 2a 20 00 11 00 ac 00 10 00 50 50 4c 43 54 53 54 5c 45 51 55 5c 30 00 11 00 b6 00 06 00 50 2a 20 00 11 00 ca 00 06 00 50 2a 20 00 11 00 d4 00 44 00 50 2a 5c 41 20 54 45 53 54 20 56 45 52 53 49 4f 4e 20 4f ┆ER. P* PPLCTST EQU 0 P* P* D P* A TEST VERSION O┆
0xc762…c7b2 46 20 54 48 45 20 44 52 49 56 45 52 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 55 54 54 45 53 54 3e 3c 30 20 00 11 00 de 00 40 00 50 2a 5c 49 46 20 55 54 54 45 53 54 3d 31 20 54 48 45 20 54 45 53 54 20 43 4f 44 ┆F THE DRIVER IS OBTAINED BY SETTING UTTEST><0 @ P* IF UTTEST=1 THE TEST COD┆
0xc7b2…c802 45 20 49 53 20 49 4e 43 4c 55 44 55 44 20 42 55 54 20 54 52 41 50 20 49 53 20 4e 4f 54 20 55 53 45 44 00 11 01 26 00 3c 00 50 2a 5c 49 46 20 55 54 54 45 53 54 3d 32 20 54 48 45 20 54 45 53 54 20 43 4f 44 45 20 49 53 20 49 4e 43 4c 55 44 45 ┆E IS INCLUDUD BUT TRAP IS NOT USED & < P* IF UTTEST=2 THE TEST CODE IS INCLUDE┆
0xc802…c852 (130, 0, 400) 44 20 41 4e 44 20 54 52 41 50 20 49 53 20 55 53 45 44 00 11 01 6a 00 06 00 50 2a 20 00 12 00 1a 00 10 00 50 55 54 54 45 53 54 5c 45 51 55 5c 30 00 12 00 24 00 06 00 50 2a 20 00 12 00 38 00 06 00 50 2a 20 00 12 00 42 00 36 00 50 2a 5c 4c 4f ┆D AND TRAP IS USED j P* PUTTEST EQU 0 $ P* 8 P* B 6 P* LO┆
0xc852…c8a2 42 55 46 4e 20 49 53 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 4c 4f 4e 47 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 53 20 55 53 45 44 00 12 00 4c 00 18 00 50 2a 5c 46 4f 52 20 45 41 43 48 20 50 4c 43 20 28 31 2d 36 29 00 12 00 86 00 06 ┆BUFN IS THE NUMBER OF LONG OUTPUT BUFFERS USED L P* FOR EACH PLC (1-6) ┆
0xc8a2…c8f2 00 50 2a 20 00 12 00 a2 00 10 00 50 4c 4f 42 55 46 4e 5c 45 51 55 5c 33 00 12 00 ac 00 06 00 50 2a 20 00 12 00 c0 00 06 00 50 2a 20 00 12 00 ca 00 36 00 50 2a 5c 4c 4f 42 55 46 55 20 49 53 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 20 54 48 ┆ P* PLOBUFN EQU 3 P* P* 6 P* LOBUFU IS THE LENGTH OF TH┆
0xc8f2…c942 45 20 55 53 45 52 20 50 41 52 54 20 4f 46 20 41 20 4c 4f 4e 47 20 00 12 00 d4 00 24 00 50 2a 5c 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 49 4e 20 57 4f 52 44 53 20 28 31 2d 31 32 38 29 00 12 01 0e 00 06 00 50 2a 20 00 12 01 36 00 16 00 50 ┆E USER PART OF A LONG $ P* OUTPUT BUFFER IN WORDS (1-128) P* 6 P┆
0xc942…c992 4c 4f 42 55 46 55 5c 45 51 55 5c 37 32 5c 55 5c 3d 36 00 12 01 40 00 06 00 50 2a 20 00 12 01 5a 00 0a 00 50 5c 45 4a 45 43 54 00 12 01 64 00 06 00 50 2a 20 00 12 01 72 00 22 00 50 2a 20 20 20 20 48 41 52 44 57 41 52 45 20 49 4e 54 45 52 52 ┆LOBUFU EQU 72 U =6 @ P* Z P EJECT d P* r " P* HARDWARE INTERR┆
0xc992…c9e2 (131, 0, 400) 55 50 54 20 4c 45 56 45 4c 53 00 12 01 7c 00 30 00 50 2a 5c 54 48 45 53 45 20 4c 45 56 45 4c 53 20 4d 55 53 54 20 43 4f 52 52 45 53 50 4f 4e 44 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 00 13 00 12 00 16 00 50 2a 5c 56 45 43 54 4f 52 20 49 ┆UPT LEVELS | 0 P* THESE LEVELS MUST CORRESPOND TO INTERRUPT P* VECTOR I┆
0xc9e2…ca32 4e 20 53 59 53 54 41 42 00 13 00 46 00 06 00 50 2a 20 00 13 00 60 00 1e 00 50 49 4e 54 4c 56 30 5c 45 51 55 5c 32 36 5c 50 4c 43 20 4e 55 4d 42 45 52 20 31 00 13 00 6a 00 1e 00 50 49 4e 54 4c 56 31 5c 45 51 55 5c 32 37 5c 50 4c 43 20 4e 55 ┆N SYSTAB F P* ` PINTLV0 EQU 26 PLC NUMBER 1 j PINTLV1 EQU 27 PLC NU┆
0xca32…ca82 4d 42 45 52 20 32 00 13 00 8c 00 1e 00 50 49 4e 54 4c 56 32 5c 45 51 55 5c 32 34 5c 50 4c 43 20 4e 55 4d 42 45 52 20 33 00 13 00 ae 00 1e 00 50 49 4e 54 4c 56 33 5c 45 51 55 5c 32 35 5c 50 4c 43 20 4e 55 4d 42 45 52 20 34 00 13 00 d0 00 26 ┆MBER 2 PINTLV2 EQU 24 PLC NUMBER 3 PINTLV3 EQU 25 PLC NUMBER 4 &┆
0xca82…cad2 00 50 49 4e 54 52 56 30 5c 45 51 55 5c 31 38 5c 50 4c 43 20 4e 55 4d 42 45 52 20 35 2c 20 52 45 4d 4f 54 45 00 13 00 f2 00 26 00 50 49 4e 54 52 56 31 5c 45 51 55 5c 31 39 5c 20 20 20 20 20 20 20 20 20 20 20 36 2c 20 52 45 4d 4f 54 45 00 13 ┆ PINTRV0 EQU 18 PLC NUMBER 5, REMOTE & PINTRV1 EQU 19 6, REMOTE ┆
0xcad2…cb22 01 1c 00 26 00 50 49 4e 54 52 56 32 5c 45 51 55 5c 32 30 5c 20 20 20 20 20 20 20 20 20 20 20 37 2c 20 52 45 4d 4f 54 45 00 13 01 46 00 26 00 50 49 4e 54 52 56 33 5c 45 51 55 5c 32 31 5c 20 20 20 20 20 20 20 20 20 20 20 38 2c 20 52 45 4d 4f ┆ & PINTRV2 EQU 20 7, REMOTE F & PINTRV3 EQU 21 8, REMO┆
0xcb22…cb72 (132, 0, 400) 54 45 00 13 01 70 00 06 00 50 2a 20 00 14 00 0a 00 26 00 50 2a 20 20 20 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 45 53 00 14 00 14 00 06 00 50 2a 20 00 14 00 3e 00 18 00 50 50 4c 43 44 41 30 5c 45 ┆TE p P* & P* CHANNEL UNIT DEVICE ADDRESSES P* > PPLCDA0 E┆
0xcb72…cbc2 51 55 5c 2f 30 36 5c 50 4c 43 20 31 00 14 00 48 00 18 00 50 50 4c 43 44 41 31 5c 45 51 55 5c 2f 30 37 5c 50 4c 43 20 32 00 14 00 64 00 18 00 50 50 4c 43 44 41 32 5c 45 51 55 5c 2f 32 36 5c 50 4c 43 20 33 00 14 00 80 00 18 00 50 50 4c 43 44 ┆QU /06 PLC 1 H PPLCDA1 EQU /07 PLC 2 d PPLCDA2 EQU /26 PLC 3 PPLCD┆
0xcbc2…cc12 41 33 5c 45 51 55 5c 2f 32 37 5c 50 4c 43 20 34 00 14 00 9c 00 18 00 50 50 4c 43 44 41 34 5c 45 51 55 5c 2f 33 41 5c 50 4c 43 20 35 00 14 00 b8 00 18 00 50 50 4c 43 44 41 35 5c 45 51 55 5c 2f 33 42 5c 50 4c 43 20 36 00 14 00 d4 00 18 00 50 ┆A3 EQU /27 PLC 4 PPLCDA4 EQU /3A PLC 5 PPLCDA5 EQU /3B PLC 6 P┆
0xcc12…cc62 50 4c 43 44 41 36 5c 45 51 55 5c 2f 32 41 5c 50 4c 43 20 37 00 14 00 f0 00 18 00 50 50 4c 43 44 41 37 5c 45 51 55 5c 2f 32 42 5c 50 4c 43 20 38 00 14 01 0c 00 06 00 50 2a 20 00 14 01 28 00 0a 00 50 5c 45 4a 45 43 54 00 14 01 32 00 06 00 50 ┆PLCDA6 EQU /2A PLC 7 PPLCDA7 EQU /2B PLC 8 P* ( P EJECT 2 P┆
0xcc62…ccb2 2a 20 00 14 01 40 00 2a 00 50 2a 20 20 20 20 42 55 46 46 45 52 20 41 52 45 41 20 50 41 52 41 4d 45 54 45 52 20 44 45 46 49 4e 49 54 49 4f 4e 20 00 14 01 4a 00 06 00 50 2a 20 00 14 01 78 00 2e 00 50 48 45 41 44 4c 57 5c 45 51 55 5c 34 5c 42 ┆* @ * P* BUFFER AREA PARAMETER DEFINITION J P* x . PHEADLW EQU 4 B┆