|
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: 17262 (0x436e)
Notes: pts_type(SC)
Names: »DRGP01.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRGP01.SC«
IDENT DRGP01 REL 8.2 78-09-15 870105040820 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRGP01 = DRIVER GENERAL PRINTER * * * * * * ************************************************* * * * THIS DRIVER HANDLES GENERAL TERMINAL PRINTER * PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. * * THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO * FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE * GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- * BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD * DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C G P ACTIVATION PART * * I H G P INTERRUPT HANDLER * * R C G P RECOVERY ROUTINE * * E C H O G P ECHO FUNCTIONS * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00: TEST STATUS * 05: BASIC WRITE * 06: STANDARD WRITE * * NORMAL REGISTER USAGE * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * SYSTEM ADAPTATION * * THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR * (GPCLR) KEYS SHOULD BE DEFINED. * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS * ADAPTED TO HANDLE FOLLOWING FUNCTIONS. * --ROOMLESS POINT * --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH * * --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER * --SUPPRESS ECHOING OF END OF RECORD CHARACTER ** --SUPPRESION OF TRAILING BLANKS * --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE * * THE CHARACTER CODES FOR ROOMLESS POINT DIGITS * IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET EJECT * * * * *********** * ENTRIES * *********** * * * ENTRY GPAD ADDRESS TO ADDRESSBLOCK ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE * * * * ***************************************** * EXTERNAL TOSS MODULE ENTRIES * ***************************************** * * EXTRN DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTOR ORDER * ******************************** * DWT-DISPLACEMENT * ******************************** * DWTA3 EQU /12 SAVE AREA FOR A3 DWTBC EQU /3 BYTE COUNTER DWTAP EQU /22 HEAD POSITION POINTER * EJECT * * ************* * CONSTANTS * ************* * * SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY CR EQU /0D CARRIAGE RETURN LF EQU /0A LINE FEED FFED EQU /0C FORM FEED SPACE EQU /20 SPACE PROUT EQU /04 PAPER OUT OR READY SWITCH OFF EJECT ************************************** * CONDITIONAL ASSEMBLY * ************************************** * * IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT * FUNCTION BY SETTING X:A = 0 * X:A EQU 1 CROOM EQU 1 * * ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:B=1 * X:B EQU 0 TRETON EQU 0 * * ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:C=1 * X:C EQU 0 FJOTON EQU 0 * * IT IS POSSIBLE TO EXCLUDE ECHOING OF * AN EXTRA SPACE AFTER EACH CHARACTER * BY SETTING X:D=0 * X:D EQU 0 COSPAC EQU 0 * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. * X:E EQU 0 EORECH EQU 0 * * SUPPRESSING OF SPACES IN RIGHT HAND OF LINE * BY SETTING X:F=1 * X:F EQU 0 SUPSPA EQU 1 * * END OF REQUEST IN SITUATIONS WHERE * THE SELECTOR UNIT OR PRINTER HARDWARE * IS INACTIVE CAN BE CHOSEN BY SETTING * THE CONSTANT RECEND = 1 X:G EQU 0 RECEND EQU 0 EJECT ************************************** * SPECIAL KEYS FOR ECHO FUNCTION * ************************************** * GPBSP EQU /2D BACK SPACE GPCLR EQU /3F CLEAR * ******************** * RETURN CODES * ******************** * PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF CCERR EQU /4 CODE CHECK ERROR TPERR EQU /2 THROUGHPUT ERROR OPERR EQU /1 NOT OPERABLE, POWER OFF * EJECT * * ********** * TABLES * ********** * * IFT CROOM=1 * ROMTAB EQU * TABLE FOR ROOMLESS POINT CHARACTERS DATA /2122,/2426,/3B3C,/3E40,/5E5F * XIF * * * GPAD EQU * ADDRESS BLOCK DATA ACGP ACTIVATION DRIVER DATA IHGP INTERRUPT HANDLER DATA RCGP RECOVERY ROUTINE DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE EJECT * * A C G P * * ACGP = ACTIVATION DRIVER GENERAL PRINTER * * ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE * IS SET IF PAPER OUT OR READY SWITCH OFF. * RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM * CHANNEL UNIT. * * ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER * FROM ECB-BUFFER * * ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM * ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. * ACGP EQU * LDK A2,STX START OF MESSAGE LDK A3,0 RESET BUFFER INDEX LDK A4,0 LDR A7,A7 ORDER 0? RF(E) AGP410 SUK A7,5 ORDER 5? RF(E) ACGP05 SUK A7,1 ORDER 6? ABL(NE) DISIOE I/O REQUEST ERROR LD A1,4,A8 GET REQUESTED LENGTH RF(E) ACGP02 LD A3,2,A8 GET BUFFER ADDRESS LC A3,1,A3 GET CONTROL CHARACTER ANK A3,/FF ACGP02 EQU * SUK A3,/2B POSITIONING BEFORE WRITE? RF(E) ACGP12 LDK A4,2 INDICATE CR AND LF/FFED TO SEND EJECT * * SEND DUMMY AND, IF CONTROL CHARACTER * # 2B, SEND CARRIAGE RETURN AND LINE FEED * ACGP05 EQU * CF A5,OUTPUT SEND CHARACTER SUK A4,1 RF(N) ACGP19 START SECTION ENDED? RF(P) ACGP15 STX * * SEND LINE FEED OR FORM FEED * SUK A3,5 CONTROL CHARACTER /30 ? RF(NE) ACGP07 ADK A4,1 YES EXTRA LINE FEED TO SEND ACGP07 EQU * LDK A2,LF ACGP12 LDK A3,2 START BUFFER INDEX RB ACGP05 ACGP15 ST A4,DWTAP,A6 RESET HEAD POSITION POINTER LDK A2,CR CARRIAGE RETURN RB ACGP05 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACGP17 CF A5,OUTPUT ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING ACGP19 EQU * LDKL A4,/400 INDICATE LINE FEED DONE ORS A4,DWTST,A6 IFT SUPSPA=1 CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER XIF LDK A4,0 ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER? RF(NP) AGP400 LDR A1,A2 SUK A7,5 ORDER 5? RF(E) ACGP24 BASIC WRITE SUK A1,9 HARDWARE TABULATION ? RF(NE) ACGP22 ST A4,DWTAP,A6 RESET HEAD POSITION POINTER RB ACGP17 ACGP22 SUK A1,8 TABULATION CHARACTER ? RF(E) ACGP40 * IFT TRETON=0 IFT FJOTON=0 * SUK A1,/F LESS THAN /20 ? * XIF * IFT TRETON=0 IFT FJOTON=1 * SUK A1,3 /14? RB(E) ACGP17 SUK A1,/C LESS THAN /20 ? * XIF * * IFT TRETON=1 IFT FJOTON=0 * SUK A1,2 /13 ? RB(E) ACGP17 SUK A1,/D LESS THAN /20 ? XIF * * IFT TRETON=1 IFT FJOTON=1 * SUK A1,2 /13? RB(E) ACGP17 SUK A1,1 /14? RB(E) ACGP17 SUK A1,/C LESS THAN /20 ? * XIF * RF(N) ACGP30 CODE CHECK ERROR SUK A1,/8E ROOMLESS POINT? (AE) RF(E) AGP100 ADK A1,/4F GREATER THAN /5F RB(NP) ACGP17 SUK A1,/20 RF(NN) ACGP30 SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F TO CHARACTER BETWEEN /40 TO /5F RB ACGP17 ACGP24 EQU * SUK A1,/D RF(NZ) ACGP26 NOT CR CM DWTST,A6 SET POS LTR.TO 0 CM DWTAP,A6 RESET HEAD POS.POIINTER ACGP26 ADK A1,3 RB(NZ) ACGP17 NOT LINE FEED SUK A1,1 ADS A1,DWTST,A6 DECREMENT POS COUNTER RB ACGP17 EJECT * * CODE CHECK ERROR * ACGP30 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ACGP20 EJECT * * TABULATION * ACGP40 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ACGP44 ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ACGP43 ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(NP) ACGP20 LDR A4,A2 ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE ACGP46 CF A5,OUTPUT IM DWTST,A6 INCREMENT BUFFER INDEX SUK A4,1 RB(P) ACGP45 LDR A3,A3 RECOVERY? RB(NE) ACGP20 SC A4,DWTBC,A6 RESET POSITION POINTER LDK A3,2 START BUFFER INDEX RB ACGP19 EJECT * * ROOMLESS POINT * AGP100 EQU * * IFT CROOM=1 * CF A15,GETCHR GET CHARACTER TO SEND ANK A2,/F LC A2,ROMTAB,A2 TRANSFORM * XIF * * IFF CROOM=1 * ANK A2,/7F * XIF * RB ACGP17 EJECT * * * SEND LAST DUMMY , LOAD A1 WITH * RETURN CODE AND END I/O * AGP400 EQU * LDK A2,ETB END OF MESSAGE CF A5,OUTPUT SEND AGP410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND AGP420 EQU * CF A15,UPDAPP UPDATE HEAD POSITION COUNTER ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER AGP430 EQU * LD A3,DWTA3,A6 ST A3,6,A8 EFF. LENGTH RB AGP420 EJECT * * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RTN A15 IFT SUPSPA=1 EJECT * * * SKIPSP = SUBROTINE TO SKIP SPACES * IN END OF ECB-BUFFER. * REQUESTED LENGTH IN ECB IS UPDATED. * A1,A2,A4 - WORK REG * SKIPSP EQU * LD A1,2,A8 GET BUFFER ADDRESS (BA) LD A2,4,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET ADD END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR CCK A4,/2020 SPACE ? RF(NE) SKIP20 NO SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP20 CWK A2,4 RF(NG) SKIP30 RL < 5 LC A4,-2,A1 GET CHAR CCK A4,/1111 TABULATION CHAR ? RF(NE) SKIP30 NO SUK A1,2 DECR BA SUK A2,2 DECR RL RB SKIP07 GET NEXT * SKIP30 ST A2,4,A8 STORE NEW RL RTN A15 XIF EJECT * * I H G P * * INTERRUPT * IHGP EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHGP10 LDR A7,A7 ORDER 0? RB(Z) AGP430 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? IFT RECEND=0 RB(NZ) EXIT XIF IFT RECEND=1 RB(NZ) AGP430 XIF IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 EJECT * * E C H O G P * * ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE * ECHOGP EQU * LDK A4,COSPAC LDR A7,A7 EOR? RF(N) ECGP17 YES * IFT EORECH=0 * SUK A2,/80 EOR-CHARACTER RF(NN) ECGP20 YES ADK A2,/80 * XIF * LDR A1,A2 ANK A1,/7F SUK A1,/8 RF(E) ECGP40 BACKSPACE SUK A1,/10 RF(E) ECGP50 CLEAR SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F RF(N) ECGP20 SUK A1,/5F-/20 RF(P) ECGP20 ECGP10 CF A5,OUTPUT SEND CHARACTER IM DWTST,A6 UPDATE POSITION COUNTER SUK A4,1 READY ? RF(N) ECGP20 YES RF(P) ECGP60 NO, GO TO CLEAR SECTION * IFT COSPAC=1 * LDK A2,SPACE NO SEND SPACE RB ECGP10 * XIF * ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER ECGP20 ABL ECHRTN RETURN TO KEYBOARD EJECT * * BACKSPACE * ECGP40 EQU * LDK A2,GPBSP BACKSPACE CHARACTER RB ECGP10 * * CANCEL * ECGP50 EQU * LDK A2,GPCLR CLEAR CHARACTER LDK A4,3 RB ECGP10 ECGP60 LDK A2,LF LINE FEED LC A3,DWTBC,A6 ANK A3,/FF ECGP70 CF A5,OUTPUT SEND CHAR. LDK A2,/08 BACKSPACE SUK A3,1 RB(NN) ECGP70 LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RB ECGP20 EJECT * * R C G P * * RCGP = RECOVERY ROUTINE GENERAL PRINTER * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * ON ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCGP EQU * CF A15,SAVE8 SAVE 8 REGISTERS ON STACK LD A2,DWTST,A6 BUSY ? RB(N) EXIT NO LDK A2,SOH RESET PRINT BUFFER CODE CF A5,OUTPUT SEND IT CWK A7,5 RF(E) RCGP10 CWK A7,6 ORDER 6? RF(E) RCGP05 YES CWK A7,0 ORDER 0? RB(E) ENDIO RB EXIT RCGP05 EQU * LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD ANK A2,/4 LINE FEED DONE ? ABL(E) ACGP NO LDK A2,SPACE CF A5,OUTPUT SEND SPACE LDK A2,STX CF A5,OUTPUT SEND STX LDK A2,CR CARRIAGE RETURN LDK A3,0 LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND ABL ACGP46 RCGP10 LDK A1,TPERR SET RETURN CODE ABL AGP430 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00ea Head {h00=0x0028, h01=0x0050, text=»* DRGP01 = DRIVER GENERAL PRINTER «, t00=0x0000, t01=0x00c2}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0160 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x012a}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01ae Head {h00=0x0036, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER «, t00=0x0000, t01=0x0178}
0x01ae…01ee Head {h00=0x003c, h01=0x0050, text=»* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0001, t01=0x0022}
0x01ee…01f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0062}
0x01f8…0234 Head {h00=0x0038, h01=0x0050, text=»* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO «, t00=0x0001, t01=0x006c}
0x0234…026e Head {h00=0x0036, h01=0x0050, text=»* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE«, t00=0x0001, t01=0x00a8}
0x026e…02a8 Head {h00=0x0036, h01=0x0050, text=»* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-«, t00=0x0001, t01=0x00e2}
0x02a8…02e0 Head {h00=0x0034, h01=0x0050, text=»* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD«, t00=0x0001, t01=0x011c}
0x02e0…02fc Head {h00=0x0018, h01=0x0050, text=»* DRIVER DRKB01. «, t00=0x0001, t01=0x0154}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x0310…0344 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0001, t01=0x0184}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x034e…0378 Head {h00=0x0026, h01=0x0050, text=»* A C G P ACTIVATION PART«, t00=0x0002, t01=0x0032}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03ae Head {h00=0x0028, h01=0x0050, text=»* I H G P INTERRUPT HANDLER«, t00=0x0002, t01=0x0066}
0x03ae…03b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0092}
0x03b8…03e4 Head {h00=0x0028, h01=0x0050, text=»* R C G P RECOVERY ROUTINE «, t00=0x0002, t01=0x009c}
0x03e4…03ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ee…0418 Head {h00=0x0026, h01=0x0050, text=»* E C H O G P ECHO FUNCTIONS «, t00=0x0002, t01=0x00d2}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…045a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0002, t01=0x0110}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…0486 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0002, t01=0x0148}
0x0486…04a8 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0002, t01=0x016a}
0x04a8…04ce Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0002, t01=0x018c}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d8…04fa Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0003, t01=0x002c}
0x04fa…0504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004e}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0003, t01=0x0058}
0x052a…0556 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0003, t01=0x007e}
0x0556…057e Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0003, t01=0x00aa}
0x057e…05a6 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0003, t01=0x00d2}
0x05a6…05cc Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0003, t01=0x00fa}
0x05cc…05f2 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0003, t01=0x0120}
0x05f2…0612 Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0003, t01=0x0146}
0x0612…0638 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0003, t01=0x0166}
0x0638…0642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018c}
0x0642…064c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064c…066a Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0004, t01=0x0012}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0030}
0x0674…06b2 Head {h00=0x003a, h01=0x0050, text=»* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR«, t00=0x0004, t01=0x003a}
0x06b2…06de Head {h00=0x0028, h01=0x0050, text=»* (GPCLR) KEYS SHOULD BE DEFINED.«, t00=0x0004, t01=0x0078}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06e8…0724 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS «, t00=0x0004, t01=0x00ae}
0x0724…0758 Head {h00=0x0030, h01=0x0050, text=»* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. «, t00=0x0004, t01=0x00ea}
0x0758…0776 Head {h00=0x001a, h01=0x0050, text=»* --ROOMLESS POINT «, t00=0x0004, t01=0x011e}
0x0776…07b4 Head {h00=0x003a, h01=0x0050, text=»* --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH«, t00=0x0004, t01=0x013c}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07be…0806 Head {h00=0x0044, h01=0x0050, text=»* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER «, t00=0x0004, t01=0x0184}
0x0806…0840 Head {h00=0x0036, h01=0x0050, text=»* --SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0005, t01=0x003c}
0x0840…086e Head {h00=0x002a, h01=0x0050, text=»** --SUPPRESION OF TRAILING BLANKS «, t00=0x0005, t01=0x0076}
0x086e…08b2 Head {h00=0x0040, h01=0x0050, text=»* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE«, t00=0x0005, t01=0x00a4}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e8}
0x08bc…08f6 Head {h00=0x0036, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS«, t00=0x0005, t01=0x00f2}
0x08f6…0940 Head {h00=0x0046, h01=0x0050, text=»* IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET «, t00=0x0005, t01=0x012c}
0x0940…094e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0176}
0x094e…0958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x0958…0962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018e}
0x0962…096c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096c…0976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0012}
0x0976…098a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0006, t01=0x001c}
0x098a…099e Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0006, t01=0x0030}
0x099e…09b2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0006, t01=0x0044}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0062}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d0…09fc Head {h00=0x0028, h01=0x0050, text=» ENTRY GPAD ADDRESS TO ADDRESSBLOCK «, t00=0x0006, t01=0x0076}
0x09fc…0a30 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0006, t01=0x00a2}
0x0a30…0a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d6}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e0}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f4}
0x0a58…0a8a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x00fe}
0x0a8a…0abc Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0006, t01=0x0130}
0x0abc…0aee Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0162}
0x0aee…0af8 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b02…0b2a Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0007, t01=0x0018}
0x0b2a…0b5c Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0007, t01=0x0040}
0x0b5c…0b7c Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0007, t01=0x0072}
0x0b7c…0bbe Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0007, t01=0x0092}
0x0bbe…0bdc Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0007, t01=0x00d4}
0x0bdc…0c0e Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0007, t01=0x00f2}
0x0c0e…0c42 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0007, t01=0x0124}
0x0c42…0c76 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0007, t01=0x0158}
0x0c76…0c84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x018c}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000a}
0x0c8e…0cae Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0014}
0x0cae…0cce Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0008, t01=0x0034}
0x0cce…0cee Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0054}
0x0cee…0cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0074}
0x0cf8…0d14 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0008, t01=0x007e}
0x0d14…0d2e Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0008, t01=0x009a}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b4}
0x0d38…0d60 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x00be}
0x0d60…0d88 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0008, t01=0x00e6}
0x0d88…0db0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x010e}
0x0db0…0dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0136}
0x0dba…0de0 Head {h00=0x0022, h01=0x0050, text=»DWTA3 EQU /12 SAVE AREA FOR A3«, t00=0x0008, t01=0x0140}
0x0de0…0e02 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0008, t01=0x0166}
0x0e02…0e2e Head {h00=0x0028, h01=0x0050, text=»DWTAP EQU /22 HEAD POSITION POINTER «, t00=0x0008, t01=0x0188}
0x0e2e…0e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0024}
0x0e38…0e46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x002e}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e50…0e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0046}
0x0e5a…0e70 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0050}
0x0e70…0e86 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x0066}
0x0e86…0e9c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x007c}
0x0e9c…0ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0092}
0x0ea6…0eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eb0…0eee Head {h00=0x003a, h01=0x0050, text=»SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x0009, t01=0x00a6}
0x0eee…0f12 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x0009, t01=0x00e4}
0x0f12…0f34 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x0009, t01=0x0108}
0x0f34…0f52 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x0009, t01=0x012a}
0x0f52…0f74 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0009, t01=0x0148}
0x0f74…0f90 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0009, t01=0x016a}
0x0f90…0fae Head {h00=0x001a, h01=0x0050, text=»FFED EQU /0C FORM FEED«, t00=0x0009, t01=0x0186}
0x0fae…0fca Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000a, t01=0x0014}
0x0fca…0ffe Head {h00=0x0030, h01=0x0050, text=»PROUT EQU /04 PAPER OUT OR READY SWITCH OFF «, t00=0x000a, t01=0x0030}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0064}
0x100c…103a Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x0072}
0x103a…1068 Head {h00=0x002a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000a, t01=0x00a0}
0x1068…1096 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000a, t01=0x00ce}
0x1096…10a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fc}
0x10a0…10d6 Head {h00=0x0032, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT «, t00=0x000a, t01=0x0106}
0x10d6…10fe Head {h00=0x0024, h01=0x0050, text=»* FUNCTION BY SETTING X:A = 0«, t00=0x000a, t01=0x013c}
0x10fe…1108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0164}
0x1108…111a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000a, t01=0x016e}
0x111a…112e Head {h00=0x0010, h01=0x0050, text=»CROOM EQU 1 «, t00=0x000a, t01=0x0180}
0x112e…1138 (11, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0004}
0x1138…1170 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000b, t01=0x000e}
0x1170…11a4 Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000b, t01=0x0046}
0x11a4…11ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007a}
0x11ae…11c0 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000b, t01=0x0084}
0x11c0…11d4 Head {h00=0x0010, h01=0x0050, text=»TRETON EQU 0«, t00=0x000b, t01=0x0096}
0x11d4…11de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00aa}
0x11de…1216 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000b, t01=0x00b4}
0x1216…124a Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000b, t01=0x00ec}
0x124a…1254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0120}
0x1254…1266 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000b, t01=0x012a}
0x1266…127a Head {h00=0x0010, h01=0x0050, text=»FJOTON EQU 0«, t00=0x000b, t01=0x013c}
0x127a…1284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0150}
0x1284…12b6 Head {h00=0x002e, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000b, t01=0x015a}
0x12b6…12e6 Head {h00=0x002c, h01=0x0050, text=»* AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000b, t01=0x018c}
0x12e6…1302 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:D=0«, t00=0x000c, t01=0x002c}
0x1302…130c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0048}
0x130c…131e Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x0052}
0x131e…1332 Head {h00=0x0010, h01=0x0050, text=»COSPAC EQU 0«, t00=0x000c, t01=0x0064}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0078}
0x133c…1378 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000c, t01=0x0082}
0x1378…13b4 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000c, t01=0x00be}
0x13b4…13f0 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.«, t00=0x000c, t01=0x00fa}
0x13f0…13fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0136}
0x13fa…140c Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000c, t01=0x0140}
0x140c…1420 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000c, t01=0x0152}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x142a…1462 Head {h00=0x0034, h01=0x0050, text=»* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000c, t01=0x0170}
0x1462…1480 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:F=1 «, t00=0x000d, t01=0x0018}
0x1480…148a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x148a…149c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000d, t01=0x0040}
0x149c…14b0 Head {h00=0x0010, h01=0x0050, text=»SUPSPA EQU 1«, t00=0x000d, t01=0x0052}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x14ba…14e6 Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000d, t01=0x0070}
0x14e6…1516 Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000d, t01=0x009c}
0x1516…1544 Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000d, t01=0x00cc}
0x1544…1566 Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x000d, t01=0x00fa}
0x1566…1578 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000d, t01=0x011c}
0x1578…158c Head {h00=0x0010, h01=0x0050, text=»RECEND EQU 0«, t00=0x000d, t01=0x012e}
0x158c…159a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0142}
0x159a…15c8 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000d, t01=0x0150}
0x15c8…15f8 Head {h00=0x002c, h01=0x0050, text=»* SPECIAL KEYS FOR ECHO FUNCTION * «, t00=0x000d, t01=0x017e}
0x15f8…1626 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000e, t01=0x001e}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1630…1650 Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x000e, t01=0x0056}
0x1650…166c Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x000e, t01=0x0076}
0x166c…1676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0092}
0x1676…1692 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x009c}
0x1692…16ae Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000e, t01=0x00b8}
0x16ae…16ca Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000e, t01=0x00d4}
0x16ca…16d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d4…1708 Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x000e, t01=0x00fa}
0x1708…172e Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000e, t01=0x012e}
0x172e…1754 Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x000e, t01=0x0154}
0x1754…1780 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000e, t01=0x017a}
0x1780…178a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178a…1798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0020}
0x1798…17a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002e}
0x17a2…17ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0038}
0x17ac…17be Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0042}
0x17be…17d0 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x0054}
0x17d0…17e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0066}
0x17e2…17ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0078}
0x17ec…17f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0082}
0x17f6…180a Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x000f, t01=0x008c}
0x180a…1814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x1814…1828 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x000f, t01=0x00aa}
0x1828…1856 Head {h00=0x002a, h01=0x0050, text=» TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x000f, t01=0x00be}
0x1856…1882 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x000f, t01=0x00ec}
0x1882…188c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0118}
0x188c…1898 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0122}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012e}
0x18a2…18ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0138}
0x18ac…18b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0142}
0x18b6…18d6 Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x000f, t01=0x014c}
0x18d6…18fa Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x000f, t01=0x016c}
0x18fa…191e Head {h00=0x0020, h01=0x0050, text=» DATA IHGP INTERRUPT HANDLER«, t00=0x000f, t01=0x0190}
0x191e…1942 Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0010, t01=0x0024}
0x1942…1974 Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0010, t01=0x0048}
0x1974…1982 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x007a}
0x1982…198c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0088}
0x198c…19a0 Head {h00=0x0010, h01=0x0050, text=»* A C G P«, t00=0x0010, t01=0x0092}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a6}
0x19aa…19e0 Head {h00=0x0032, h01=0x0050, text=»* ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0010, t01=0x00b0}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e6}
0x19ea…1a36 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0010, t01=0x00f0}
0x1a36…1a76 Head {h00=0x003c, h01=0x0050, text=»* IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0010, t01=0x013c}
0x1a76…1ac2 Head {h00=0x0048, h01=0x0050, text=»* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0010, t01=0x017c}
0x1ac2…1ae6 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT.«, t00=0x0011, t01=0x0038}
0x1ae6…1af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005c}
0x1af0…1b32 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0011, t01=0x0066}
0x1b32…1b58 Head {h00=0x0022, h01=0x0050, text=»* FROM ECB-BUFFER«, t00=0x0011, t01=0x00a8}
0x1b58…1b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ce}
0x1b62…1bac Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0011, t01=0x00d8}
0x1bac…1bec Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0011, t01=0x0122}
0x1bec…1bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0162}
0x1bf6…1c08 Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0011, t01=0x016c}
0x1c08…1c2c Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0011, t01=0x017e}
0x1c2c…1c50 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0012, t01=0x0012}
0x1c50…1c62 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0012, t01=0x0036}
0x1c62…1c7e Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0012, t01=0x0048}
0x1c7e…1c94 Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP410 «, t00=0x0012, t01=0x0064}
0x1c94…1cae Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0012, t01=0x007a}
0x1cae…1cc4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP05 «, t00=0x0012, t01=0x0094}
0x1cc4…1cde Head {h00=0x0016, h01=0x0050, text=» SUK A7,1 ORDER 6?«, t00=0x0012, t01=0x00aa}
0x1cde…1d08 Head {h00=0x0026, h01=0x0050, text=» ABL(NE) DISIOE I/O REQUEST ERROR «, t00=0x0012, t01=0x00c4}
0x1d08…1d30 Head {h00=0x0024, h01=0x0050, text=» LD A1,4,A8 GET REQUESTED LENGTH«, t00=0x0012, t01=0x00ee}
0x1d30…1d46 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP02 «, t00=0x0012, t01=0x0116}
0x1d46…1d6c Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x012c}
0x1d6c…1d96 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER «, t00=0x0012, t01=0x0152}
0x1d96…1daa Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0012, t01=0x017c}
0x1daa…1dbe Head {h00=0x0010, h01=0x0050, text=»ACGP02 EQU *«, t00=0x0012, t01=0x0190}
0x1dbe…1dec Head {h00=0x002a, h01=0x0050, text=» SUK A3,/2B POSITIONING BEFORE WRITE? «, t00=0x0013, t01=0x0014}
0x1dec…1e02 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP12 «, t00=0x0013, t01=0x0042}
0x1e02…1e34 Head {h00=0x002e, h01=0x0050, text=» LDK A4,2 INDICATE CR AND LF/FFED TO SEND «, t00=0x0013, t01=0x0058}
0x1e34…1e42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x008a}
0x1e42…1e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0098}
0x1e4c…1e7e Head {h00=0x002e, h01=0x0050, text=»* SEND DUMMY AND, IF CONTROL CHARACTER «, t00=0x0013, t01=0x00a2}
0x1e7e…1eb4 Head {h00=0x0032, h01=0x0050, text=»* # 2B, SEND CARRIAGE RETURN AND LINE FEED «, t00=0x0013, t01=0x00d4}
0x1eb4…1ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010a}
0x1ebe…1ed2 Head {h00=0x0010, h01=0x0050, text=»ACGP05 EQU *«, t00=0x0013, t01=0x0114}
0x1ed2…1ef6 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0013, t01=0x0128}
0x1ef6…1f08 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0013, t01=0x014c}
0x1f08…1f32 Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP19 START SECTION ENDED?«, t00=0x0013, t01=0x015e}
0x1f32…1f4c Head {h00=0x0016, h01=0x0050, text=» RF(P) ACGP15 STX «, t00=0x0013, t01=0x0188}
0x1f4c…1f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0012}
0x1f56…1f7e Head {h00=0x0024, h01=0x0050, text=»* SEND LINE FEED OR FORM FEED«, t00=0x0014, t01=0x001c}
0x1f7e…1f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0044}
0x1f88…1fb2 Head {h00=0x0026, h01=0x0050, text=» SUK A3,5 CONTROL CHARACTER /30 ? «, t00=0x0014, t01=0x004e}
0x1fb2…1fc8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP07«, t00=0x0014, t01=0x0078}
0x1fc8…1ff6 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 YES EXTRA LINE FEED TO SEND «, t00=0x0014, t01=0x008e}
0x1ff6…200a Head {h00=0x0010, h01=0x0050, text=»ACGP07 EQU *«, t00=0x0014, t01=0x00bc}
0x200a…201c Head {h00=0x000e, h01=0x0050, text=» LDK A2,LF«, t00=0x0014, t01=0x00d0}
0x201c…2046 Head {h00=0x0026, h01=0x0050, text=»ACGP12 LDK A3,2 START BUFFER INDEX«, t00=0x0014, t01=0x00e2}
0x2046…2058 Head {h00=0x000e, h01=0x0050, text=» RB ACGP05«, t00=0x0014, t01=0x010c}
0x2058…2092 Head {h00=0x0036, h01=0x0050, text=»ACGP15 ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x0014, t01=0x011e}
0x2092…20b4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0014, t01=0x0158}
0x20b4…20c6 Head {h00=0x000e, h01=0x0050, text=» RB ACGP05«, t00=0x0014, t01=0x017a}
0x20c6…20d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x018c}
0x20d4…20de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20de…2108 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x0015, t01=0x0014}
0x2108…212a Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x0015, t01=0x003e}
0x212a…2134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0060}
0x2134…2150 Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x0015, t01=0x006a}
0x2150…2184 Head {h00=0x0030, h01=0x0050, text=»ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING«, t00=0x0015, t01=0x0086}
0x2184…2198 Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x0015, t01=0x00ba}
0x2198…21c6 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x0015, t01=0x00ce}
0x21c6…21de Head {h00=0x0014, h01=0x0050, text=» ORS A4,DWTST,A6«, t00=0x0015, t01=0x00fc}
0x21de…21f4 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0015, t01=0x0114}
0x21f4…222c Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x0015, t01=0x012a}
0x222c…2238 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0162}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0015, t01=0x016e}
0x224a…2284 Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0015, t01=0x0180}
0x2284…22a6 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0016, t01=0x002a}
0x22a6…22bc Head {h00=0x0012, h01=0x0050, text=» RF(NP) AGP400«, t00=0x0016, t01=0x004c}
0x22bc…22ce Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0016, t01=0x0062}
0x22ce…22e8 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0016, t01=0x0074}
0x22e8…230a Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x0016, t01=0x008e}
0x230a…2332 Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x0016, t01=0x00b0}
0x2332…2348 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x0016, t01=0x00d8}
0x2348…237c Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x0016, t01=0x00ee}
0x237c…238e Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0016, t01=0x0122}
0x238e…23bc Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x0016, t01=0x0134}
0x23bc…23d2 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x0016, t01=0x0162}
0x23d2…23dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0178}
0x23dc…23f2 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x0016, t01=0x0182}
0x23f2…2408 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x0017, t01=0x0008}
0x2408…2412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001e}
0x2412…2434 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0017, t01=0x0028}
0x2434…243e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x243e…244a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0054}
0x244a…2454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0060}
0x2454…246a Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x0017, t01=0x006a}
0x246a…2480 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x0017, t01=0x0080}
0x2480…248a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0096}
0x248a…24a0 Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x0017, t01=0x00a0}
0x24a0…24b6 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0017, t01=0x00b6}
0x24b6…24d8 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x0017, t01=0x00cc}
0x24d8…24e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ee}
0x24e2…24ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00f8}
0x24ee…24f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24f8…2502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010e}
0x2502…2518 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x0017, t01=0x0118}
0x2518…252e Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x0017, t01=0x012e}
0x252e…2538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0144}
0x2538…2550 Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x0017, t01=0x014e}
0x2550…2566 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0017, t01=0x0166}
0x2566…2588 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x0017, t01=0x017c}
0x2588…2594 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x000e}
0x2594…259e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001a}
0x259e…25a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0024}
0x25a8…25be Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x0018, t01=0x002e}
0x25be…25d4 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x0018, t01=0x0044}
0x25d4…25de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005a}
0x25de…25f4 Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x0018, t01=0x0064}
0x25f4…260a Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0018, t01=0x007a}
0x260a…2620 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x0018, t01=0x0090}
0x2620…2636 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x0018, t01=0x00a6}
0x2636…2658 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x0018, t01=0x00bc}
0x2658…2662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x2662…266e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00e8}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f4}
0x2678…269e Head {h00=0x0022, h01=0x0050, text=» RF(N) ACGP30 CODE CHECK ERROR«, t00=0x0018, t01=0x00fe}
0x269e…26c8 Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT? (AE) «, t00=0x0018, t01=0x0124}
0x26c8…26de Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x0018, t01=0x014e}
0x26de…2702 Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x0018, t01=0x0164}
0x2702…2718 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP17«, t00=0x0018, t01=0x0188}
0x2718…272c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x0019, t01=0x000e}
0x272c…2742 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x0019, t01=0x0022}
0x2742…277c Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0019, t01=0x0038}
0x277c…27a6 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0019, t01=0x0072}
0x27a6…27b8 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0019, t01=0x009c}
0x27b8…27cc Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x0019, t01=0x00ae}
0x27cc…27de Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0019, t01=0x00c2}
0x27de…27fc Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x0019, t01=0x00d4}
0x27fc…2822 Head {h00=0x0022, h01=0x0050, text=» CM DWTST,A6 SET POS LTR.TO 0 «, t00=0x0019, t01=0x00f2}
0x2822…284e Head {h00=0x0028, h01=0x0050, text=» CM DWTAP,A6 RESET HEAD POS.POIINTER«, t00=0x0019, t01=0x0118}
0x284e…2866 Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x0019, t01=0x0144}
0x2866…288a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x0019, t01=0x015c}
0x288a…289c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0019, t01=0x0180}
0x289c…28ca (26, 0, 400) Head {h00=0x002a, h01=0x0050, text=» ADS A1,DWTST,A6 DECREMENT POS COUNTER«, t00=0x001a, t01=0x0004}
0x28ca…28dc Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001a, t01=0x0032}
0x28dc…28ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0044}
0x28ea…28f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28f4…2912 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x001a, t01=0x005c}
0x2912…291c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007a}
0x291c…2930 Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x001a, t01=0x0084}
0x2930…2946 Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x001a, t01=0x0098}
0x2946…2966 Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x001a, t01=0x00ae}
0x2966…2978 Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x001a, t01=0x00ce}
0x2978…2986 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00e0}
0x2986…2990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ee}
0x2990…29a8 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x001a, t01=0x00f8}
0x29a8…29b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0110}
0x29b2…29c6 Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x001a, t01=0x011a}
0x29c6…29f6 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x001a, t01=0x012e}
0x29f6…2a08 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001a, t01=0x015e}
0x2a08…2a3a Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x001a, t01=0x0170}
0x2a3a…2a4c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001b, t01=0x0012}
0x2a4c…2a5e Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x001b, t01=0x0024}
0x2a5e…2a74 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x001b, t01=0x0036}
0x2a74…2aa8 Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x001b, t01=0x004c}
0x2aa8…2aba Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001b, t01=0x0080}
0x2aba…2ad0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x001b, t01=0x0092}
0x2ad0…2b0c Head {h00=0x0038, h01=0x0050, text=»ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER«, t00=0x001b, t01=0x00a8}
0x2b0c…2b24 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x001b, t01=0x00e4}
0x2b24…2b54 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x001b, t01=0x00fc}
0x2b54…2b7e Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x001b, t01=0x012c}
0x2b7e…2b94 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x001b, t01=0x0156}
0x2b94…2ba6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001b, t01=0x016c}
0x2ba6…2be4 Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x001b, t01=0x017e}
0x2be4…2c00 Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x001c, t01=0x002c}
0x2c00…2c2c Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BUFFER INDEX «, t00=0x001c, t01=0x0048}
0x2c2c…2c3e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001c, t01=0x0074}
0x2c3e…2c54 Head {h00=0x0012, h01=0x0050, text=» RB(P) ACGP45 «, t00=0x001c, t01=0x0086}
0x2c54…2c70 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x001c, t01=0x009c}
0x2c70…2c86 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP20«, t00=0x001c, t01=0x00b8}
0x2c86…2cb4 Head {h00=0x002a, h01=0x0050, text=» SC A4,DWTBC,A6 RESET POSITION POINTER«, t00=0x001c, t01=0x00ce}
0x2cb4…2cd8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x00fc}
0x2cd8…2cea Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x001c, t01=0x0120}
0x2cea…2cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0132}
0x2cf8…2d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2d02…2d1e Head {h00=0x0018, h01=0x0050, text=»* ROOMLESS POINT «, t00=0x001c, t01=0x014a}
0x2d1e…2d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0166}
0x2d28…2d3c Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x001c, t01=0x0170}
0x2d3c…2d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d46…2d5a Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x001c, t01=0x018e}
0x2d5a…2d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0012}
0x2d64…2d90 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x001d, t01=0x001c}
0x2d90…2da2 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001d, t01=0x0048}
0x2da2…2dc4 Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x001d, t01=0x005a}
0x2dc4…2dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dce…2dda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0086}
0x2dda…2de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0092}
0x2de4…2dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009c}
0x2dee…2e02 Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x001d, t01=0x00a6}
0x2e02…2e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ba}
0x2e0c…2e20 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001d, t01=0x00c4}
0x2e20…2e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d8}
0x2e2a…2e36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00e2}
0x2e36…2e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ee}
0x2e40…2e52 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x00f8}
0x2e52…2e60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x010a}
0x2e60…2e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0118}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0122}
0x2e74…2ea0 Head {h00=0x0028, h01=0x0050, text=»* SEND LAST DUMMY , LOAD A1 WITH «, t00=0x001d, t01=0x012c}
0x2ea0…2ec4 Head {h00=0x0020, h01=0x0050, text=»* RETURN CODE AND END I/O«, t00=0x001d, t01=0x0158}
0x2ec4…2ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x017c}
0x2ece…2ee2 Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x001d, t01=0x0186}
0x2ee2…2f04 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ETB END OF MESSAGE«, t00=0x001e, t01=0x000a}
0x2f04…2f1e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x002c}
0x2f1e…2f42 Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x001e, t01=0x0046}
0x2f42…2f5c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x006a}
0x2f5c…2f70 Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x001e, t01=0x0084}
0x2f70…2fa4 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x001e, t01=0x0098}
0x2fa4…2fc8 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x001e, t01=0x00cc}
0x2fc8…2ff0 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x001e, t01=0x00f0}
0x2ff0…3004 Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x001e, t01=0x0118}
0x3004…301c Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x001e, t01=0x012c}
0x301c…303c Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x001e, t01=0x0144}
0x303c…304e Head {h00=0x000e, h01=0x0050, text=» RB AGP420«, t00=0x001e, t01=0x0164}
0x304e…305c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0176}
0x305c…3066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0184}
0x3066…3070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018e}
0x3070…30a0 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x001f, t01=0x0008}
0x30a0…30d0 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x001f, t01=0x0038}
0x30d0…30fc Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x001f, t01=0x0068}
0x30fc…3110 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x001f, t01=0x0094}
0x3110…313c Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x001f, t01=0x00a8}
0x313c…3172 Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x001f, t01=0x00d4}
0x3172…3184 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001f, t01=0x010a}
0x3184…31b4 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x001f, t01=0x011c}
0x31b4…31c4 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001f, t01=0x014c}
0x31c4…31da Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x001f, t01=0x015c}
0x31da…31e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0172}
0x31e8…31f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0180}
0x31f2…31fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018a}
0x31fc…322a (32, 0, 398) Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0020, t01=0x0004}
0x322a…3256 Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0020, t01=0x0032}
0x3256…3290 Head {h00=0x0036, h01=0x0050, text=»* REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0020, t01=0x005e}
0x3290…32ba Head {h00=0x0026, h01=0x0050, text=»* A1,A2,A4 - WORK REG «, t00=0x0020, t01=0x0098}
0x32ba…32c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c2}
0x32c4…32d8 Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0020, t01=0x00cc}
0x32d8…3304 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x00e0}
0x3304…3330 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x010c}
0x3330…3358 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x0138}
0x3358…3370 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x0160}
0x3370…338e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x0178}
0x338e…33a8 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0021, t01=0x0008}
0x33a8…33c4 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0021, t01=0x0022}
0x33c4…33e2 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0021, t01=0x003e}
0x33e2…33fc Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0021, t01=0x005c}
0x33fc…341c Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x0076}
0x341c…3438 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x0096}
0x3438…3450 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x00b2}
0x3450…346e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x00ca}
0x346e…348c Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x00e8}
0x348c…34b4 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x0106}
0x34b4…34ce Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0021, t01=0x012e}
0x34ce…34e8 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x0148}
0x34e8…3502 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x0162}
0x3502…351e Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x017c}
0x351e…3528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x3528…354e Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x0012}
0x354e…355e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0022, t01=0x0038}
0x355e…356a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0048}
0x356a…3578 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0054}
0x3578…3582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0062}
0x3582…3596 Head {h00=0x0010, h01=0x0050, text=»* I H G P«, t00=0x0022, t01=0x006c}
0x3596…35a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0080}
0x35a0…35b6 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x0022, t01=0x008a}
0x35b6…35c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a0}
0x35c0…35d2 Head {h00=0x000e, h01=0x0050, text=»IHGP EQU *«, t00=0x0022, t01=0x00aa}
0x35d2…35f0 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0022, t01=0x00bc}
0x35f0…3606 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0022, t01=0x00da}
0x3606…3624 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0022, t01=0x00f0}
0x3624…363a Head {h00=0x0012, h01=0x0050, text=» RF(N) IHGP10 «, t00=0x0022, t01=0x010e}
0x363a…3656 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0022, t01=0x0124}
0x3656…366c Head {h00=0x0012, h01=0x0050, text=» RB(Z) AGP430 «, t00=0x0022, t01=0x0140}
0x366c…369e Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x0022, t01=0x0156}
0x369e…36b4 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x0022, t01=0x0188}
0x36b4…36c8 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) EXIT«, t00=0x0023, t01=0x000e}
0x36c8…36d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0022}
0x36d4…36ea Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x0023, t01=0x002e}
0x36ea…3700 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AGP430«, t00=0x0023, t01=0x0044}
0x3700…370c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x005a}
0x370c…3714 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0066}
0x3714…374c Head {h00=0x0034, h01=0x0050, text=»IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0023, t01=0x006e}
0x374c…375a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00a6}
0x375a…3764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b4}
0x3764…377c Head {h00=0x0014, h01=0x0050, text=»* E C H O G P«, t00=0x0023, t01=0x00be}
0x377c…3786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d6}
0x3786…37ba Head {h00=0x0030, h01=0x0050, text=»* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0023, t01=0x00e0}
0x37ba…37c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0114}
0x37c4…37d8 Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x0023, t01=0x011e}
0x37d8…37ee Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x0023, t01=0x0132}
0x37ee…3806 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0023, t01=0x0148}
0x3806…3820 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x0023, t01=0x0160}
0x3820…382a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x382a…3840 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0023, t01=0x0184}
0x3840…384a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x384a…386c Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x0024, t01=0x0014}
0x386c…3886 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x0024, t01=0x0036}
0x3886…389a Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0024, t01=0x0050}
0x389a…38a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0064}
0x38a4…38b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x006e}
0x38b0…38ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007a}
0x38ba…38cc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x0084}
0x38cc…38e0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0024, t01=0x0096}
0x38e0…38f2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x0024, t01=0x00aa}
0x38f2…3912 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x0024, t01=0x00bc}
0x3912…3926 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/10 «, t00=0x0024, t01=0x00dc}
0x3926…3942 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x0024, t01=0x00f0}
0x3942…397e Head {h00=0x0038, h01=0x0050, text=» SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F«, t00=0x0024, t01=0x010c}
0x397e…3994 Head {h00=0x0012, h01=0x0050, text=» RF(N) ECGP20 «, t00=0x0024, t01=0x0148}
0x3994…39ac Head {h00=0x0014, h01=0x0050, text=» SUK A1,/5F-/20 «, t00=0x0024, t01=0x015e}
0x39ac…39c2 Head {h00=0x0012, h01=0x0050, text=» RF(P) ECGP20 «, t00=0x0024, t01=0x0176}
0x39c2…39ec Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0024, t01=0x018c}
0x39ec…3a18 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0025, t01=0x0026}
0x3a18…3a32 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x0025, t01=0x0052}
0x3a32…3a4c Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP20 YES «, t00=0x0025, t01=0x006c}
0x3a4c…3a7a Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x0025, t01=0x0086}
0x3a7a…3a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b4}
0x3a84…3a9a Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x0025, t01=0x00be}
0x3a9a…3aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d4}
0x3aa4…3ac8 Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x0025, t01=0x00de}
0x3ac8…3ada Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0025, t01=0x0102}
0x3ada…3ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0114}
0x3ae4…3af0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x011e}
0x3af0…3afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012a}
0x3afa…3b34 Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x0025, t01=0x0134}
0x3b34…3b60 Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0025, t01=0x016e}
0x3b60…3b6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x000a}
0x3b6e…3b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0018}
0x3b78…3b8e Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0026, t01=0x0022}
0x3b8e…3b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0038}
0x3b98…3bac Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x0026, t01=0x0042}
0x3bac…3bd6 Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x0026, t01=0x0056}
0x3bd6…3be8 Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0026, t01=0x0080}
0x3be8…3bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0092}
0x3bf2…3c06 Head {h00=0x0010, h01=0x0050, text=»* CANCEL «, t00=0x0026, t01=0x009c}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b0}
0x3c10…3c24 Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x0026, t01=0x00ba}
0x3c24…3c4a Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x0026, t01=0x00ce}
0x3c4a…3c5c Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0026, t01=0x00f4}
0x3c5c…3c6e Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0026, t01=0x0106}
0x3c6e…3c90 Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x0026, t01=0x0118}
0x3c90…3ca8 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTBC,A6 «, t00=0x0026, t01=0x013a}
0x3ca8…3cbc Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0026, t01=0x0152}
0x3cbc…3ce2 Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x0026, t01=0x0166}
0x3ce2…3d00 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x0026, t01=0x018c}
0x3d00…3d12 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0027, t01=0x001a}
0x3d12…3d28 Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x0027, t01=0x002c}
0x3d28…3d3a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x0042}
0x3d3a…3d68 Head {h00=0x002a, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0027, t01=0x0054}
0x3d68…3d7a Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x0027, t01=0x0082}
0x3d7a…3d88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0094}
0x3d88…3d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a2}
0x3d92…3da6 Head {h00=0x0010, h01=0x0050, text=»* R C G P«, t00=0x0027, t01=0x00ac}
0x3da6…3db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c0}
0x3db0…3de4 Head {h00=0x0030, h01=0x0050, text=»* RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x0027, t01=0x00ca}
0x3de4…3dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fe}
0x3dee…3df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0108}
0x3df8…3e24 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x0027, t01=0x0112}
0x3e24…3e44 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x0027, t01=0x013e}
0x3e44…3e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015e}
0x3e4e…3e64 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0027, t01=0x0168}
0x3e64…3e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e6e…3e8c Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0027, t01=0x0188}
0x3e8c…3ea4 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x0028, t01=0x0016}
0x3ea4…3ec2 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0028, t01=0x002e}
0x3ec2…3ed4 Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x0028, t01=0x004c}
0x3ed4…3f04 Head {h00=0x002c, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x0028, t01=0x005e}
0x3f04…3f22 Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTST,A6 BUSY ?«, t00=0x0028, t01=0x008e}
0x3f22…3f38 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0028, t01=0x00ac}
0x3f38…3f64 Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x0028, t01=0x00c2}
0x3f64…3f82 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0028, t01=0x00ee}
0x3f82…3f94 Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0028, t01=0x010c}
0x3f94…3faa Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x0028, t01=0x011e}
0x3faa…3fc4 Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x0028, t01=0x0134}
0x3fc4…3fde Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x0028, t01=0x014e}
0x3fde…3ff8 Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x0028, t01=0x0168}
0x3ff8…400c Head {h00=0x0010, h01=0x0050, text=» RB(E) ENDIO«, t00=0x0028, t01=0x0182}
0x400c…401c Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x0029, t01=0x0008}
0x401c…4030 Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x0029, t01=0x0018}
0x4030…4064 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD«, t00=0x0029, t01=0x002c}
0x4064…4088 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x0029, t01=0x0060}
0x4088…40a0 Head {h00=0x0014, h01=0x0050, text=» ABL(E) ACGP NO «, t00=0x0029, t01=0x0084}
0x40a0…40b6 Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x0029, t01=0x009c}
0x40b6…40d6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x0029, t01=0x00b2}
0x40d6…40ea Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x0029, t01=0x00d2}
0x40ea…4108 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND STX«, t00=0x0029, t01=0x00e6}
0x4108…412a Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0029, t01=0x0104}
0x412a…413c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0029, t01=0x0126}
0x413c…4170 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND«, t00=0x0029, t01=0x0138}
0x4170…4184 Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x0029, t01=0x016c}
0x4184…41b0 Head {h00=0x0028, h01=0x0050, text=»RCGP10 LDK A1,TPERR SET RETURN CODE «, t00=0x0029, t01=0x0180}
0x41b0…41c4 Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x002a, t01=0x001c}
0x41c4…41d0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x0030}
0x41d0…41d4 Head {h00=0x4004, h01=0x0000}
0x41d4…41d8 00 2a 00 3c ┆ * <┆
0x41d8…41e0 (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x41e0…4230 (44, 0, 398) 00 10 00 50 5c 49 46 54 5c 43 4f 4d 50 4c 3d 31 00 24 00 04 00 32 00 50 5c 52 42 28 4e 5a 29 5c 54 50 36 31 30 5c 59 45 53 3a 20 43 48 45 43 4b 20 49 46 20 4c 49 46 54 20 49 53 20 50 4f 53 49 54 49 4f 4e 45 44 00 24 00 18 00 24 00 50 54 50 ┆ P IFT COMPL=1 $ 2 P RB(NZ) TP610 YES: CHECK IF LIFT IS POSITIONED $ $ PTP┆
0x4230…4280 36 34 35 5c 4c 44 4b 5c 41 31 2c 50 52 4f 55 54 5c 27 56 4f 55 43 48 45 52 20 4f 55 54 27 00 24 00 4e 00 2c 00 50 5c 4f 52 53 5c 41 31 2c 45 43 42 52 43 2c 41 38 5c 49 4e 44 49 43 41 54 45 20 49 4e 20 52 45 54 55 52 4e 20 43 4f 44 45 00 24 ┆645 LDK A1,PROUT 'VOUCHER OUT' $ N , P ORS A1,ECBRC,A8 INDICATE IN RETURN CODE $┆
0x4280…42d0 00 76 00 0e 00 50 5c 52 42 5c 54 50 44 55 4d 59 00 24 00 a6 00 08 00 50 5c 58 49 46 00 24 00 b8 00 0a 00 50 5c 45 4a 45 43 54 00 24 00 c4 00 06 00 50 2a 20 00 24 00 d2 00 06 00 50 2a 20 00 24 00 dc 00 2c 00 50 2a 20 20 20 4f 52 44 45 52 20 ┆ v P RB TPDUMY $ P XIF $ P EJECT $ P* $ P* $ , P* ORDER ┆
0x42d0…4320 30 36 20 41 4e 44 20 30 42 3a 20 4c 49 46 54 20 49 53 20 50 4f 53 49 54 49 4f 4e 45 44 20 00 24 00 e6 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 54 54 41 43 48 20 41 4e 44 20 50 52 49 4e 54 20 00 24 01 16 ┆06 AND 0B: LIFT IS POSITIONED $ * P* ATTACH AND PRINT $ ┆
0x4320…436e 00 06 00 50 2a 20 00 24 01 44 00 06 00 50 2a 20 00 24 01 4e 00 10 00 50 54 50 36 35 30 5c 45 51 55 5c 2a 20 00 24 01 58 00 26 00 50 5c 4c 44 4b 4c 5c 41 33 2c 42 55 46 32 5c 53 45 4e 44 20 43 52 32 20 41 4e 44 20 41 54 54 41 43 48 20 ┆ P* $ D P* $ N PTP650 EQU * $ X & P LDKL A3,BUF2 SEND CR2 AND ATTACH ┆