|
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: 23962 (0x5d9a)
Notes: pts_type(SC)
Names: »DRGP01.SC«
└─⟦a16d9b08d⟧ Bits:30009712 Philips computer tape "TOSS11"
└─⟦this⟧ »UPD3/DRGP01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRGP01.SC«
IDENT DRGP01 REL 11.0 81-08-31 870105041100 =13,CHARACTER BLOCKING CHANGED REL 11.0 81-05-25 =12,COND. ASS. FOR ECHO REL 11.0 81-01-26 =11,BRANCH ADDR. OVERFLOW PRR 11.0 80-11-19 =10,IMPROV. FOR REMOTE (RT) PRR 11.0 80-09-18 =9,CHANGE IN ERROR ROUTINE PRR 11.0 80-09-16 =8,ABORT ROUTINE IMPLEMENTED PRR 11.0 80-07-28 =7,BRANCH ADDR. OVERFL. PRR 11.0 80-04-29 =6,IMPROV. OF ERROR HANDLING PRR 11.0 80-03-18 =5,TENDIO AT ECHO END PRR 11.0 80-03-13 =4,CORRECTION OF MMU BUFFER EQUATE PRR 11.0 80-02-05 =3,ADAPTED TO NEW INTERFACE REL 9.1 79-04-06 =1-2,GEN UPDATE TO 8.2+ STATUS REL 8.2 79-03-16 =2,IMPROV. OF TEST ORDER REL 8.2 78-11-19 =1,ECHO OF LF AND CR, ABIS REL 8.2 78-09-15 * * ************************************************** * * 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 DRKB04. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C G P ACTIVATION PART * * A B G P ABORT ROUTINE * * R C G P RECOVERY ROUTINE * * E C H O G P ECHO FUNCTIONS * EJECT * * 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 LENDER I/O REQUEST ERROR =3 EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN LDISP DISPATCHER =3 EXTRN TENDIO END I/O EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EXTRN STABLK START OF BLOCK =3 EXTRN ENDBLK END OF BLOCK =3 EJECT * * ************************ * DWT PARAMETERS * ************************ * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTA3 SAVE AREA A3 EXTRN DWTDEV START OF DRIVER DEFINED PART =3 * 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 * BLKMAX EQU 140 MAX BLOCK LENGTH =3 EJECT * * ************************************** * CONDITIONAL ASSEMBLY * ************************************** * * IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT * FUNCTION BY SETTING X:A = 0 * X:A EQU 1 CROOM EQU X:A * * ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:B=1 * X:B EQU 0 TRETON EQU X:B * * ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:C=1 * X:C EQU 0 FJOTON EQU X:C * * ECHO HANDLING IS INCLUDED IF ECHO = 1 * X:D EQU 1 U =12 ECHO EQU X:D U =12 * * IT IS POSSIBLE TO EXCLUDE ECHOING OF * AN EXTRA SPACE AFTER EACH CHARACTER * BY SETTING X:E=0 * X:E EQU 0 COSPAC EQU X:E EJECT * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0. * X:F EQU 0 EORECH EQU X:F * * SUPPRESSING OF SPACES IN RIGHT HAND OF LINE * BY SETTING X:G=1 * X:G EQU 0 SUPSPA EQU X:G * * END OF REQUEST IN SITUATIONS WHERE * THE SELECTOR UNIT OR PRINTER HARDWARE * IS INACTIVE CAN BE CHOSEN BY SETTING * THE CONSTANT RECEND = 1 X:H EQU 0 RECEND EQU X:H * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:I EQU 120 =4 DVBLEN EQU X:I =4 * =1 * SPECIAL CONDITION FOR ABIS PRINTER =1 ABIS EQU 0 =1 EJECT * * ******************************** * DWT-DISPLACEMENT * ******************************** * * =3 DWTAP EQU /2 HEAD POSITON POINTER =3 DWTPOC EQU /4 POSITON COUNTER =3 DWTBC EQU /5 BYTE COUNTER =3 * ************************************** * 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 * * * DATA DVBLEN MMU BUFFER LENGTH DATA 2 DEVICE INDEX GPAD EQU * ADDRESS BLOCK DATA ACGP ACTIVATION DRIVER DATA ABGP ABORT ROUTINE ADDRESS =8 DATA 0 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 * =3 LDR A3,A7 =1 RF(Z) ACGP10 ORDER 0 =2 LDK A2,BLKMAX BLOCK LENGTH =3 CF A5,STABLK START OF BLOCK =3 RF(NZ) ERGP1 ERROR =3 SUK A3,5 =1 RF(E) ACGP19 ORDER 5 =3(=1) SUK A3,1 =1 =3 RF(E) ACGP00 ORDER 6 =3 CF A5,ENDBLK END OF BLOCK =3 ABL LENDER I/O REQUEST ERROR =3 ACGP00 EQU * =3 LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 RF(Z) ACGP01 =1 LD A3,2,A8 GET BUFFER ADDRESS =1 LC A3,1,A3 GET CONTROL CHARACTER =1 ANK A3,/FF =1 ACGP01 SUK A3,/2B =1 =3 RF(NE) ACGP02 NOT CONTROL CHAR 2B =3 LDK A3,2 START BUFFER INDEX =3 RF ACGP19 =3 ACGP02 EQU * =3 LDK A2,CR =1 CF A5,OUTPUT =1 RF(NZ) ERGP1 ERROR =3 IFT ABIS=1 =1 LDK A2,FFED =1 CWK A3,/31-/2B =1 RF(E) ACGP03 CONTROL CHAR 31 =1 XIF =1 LDK A2,LF =1 SUK A3,/30-/2B =1 RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 CF A5,OUTPUT =1 RF(NZ) ERGP1 ERROR =3 LDK A2,LF =1 ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 ST A1,DWTAP+DWTDEV,A6 =3(=1) ACGP06 LDK A3,2 START BUFFER INDEX =1 ACGP09 CF A5,OUTPUT =1 ERGP1 RF(NZ) ERGP2 ERROR =3 LDK A2,ETX DUMMY =10 CF A5,OUTPUT WAIT UNTIL PRINTBUFFER EMPTY =10 RF(NZ) ERGP2 ERROR =10 RF ACGP19 =1 EJECT =2 * =2 * ORDER 00: TEST =2 * IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 * =2 ACGP10 EQU * LDK A2,2 BLOCK LENGTH =10(=3) CF A5,STABLK START OF BLOCK =3 RF(NZ) ERGP2 ERROR =3 LDK A2,2 SEND CHAR /02 =2 CF A5,OUTPUT =2 RF(NZ) ERGP2 ERROR =3 LDK A2,0 SEND CHAR /00=END OF TEST =2 CF A5,OUTPUT =2 RF(NZ) ERGP2 ERROR =3 RF AGP400 =10(=2) EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACGP17 CF A5,OUTPUT RF(NZ) ERGP2 ERROR =3 ACGP18 IM DWTPOC+DWTDEV,A6 POSITION COUNTER UPDATING =3 ACGP19 EQU * LDKL A4,/400 INDICATE LINE FEED DONE ORS A4,DWTDEV,A6 =3 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 YES LDR A1,A2 CWK A7,5 ORDER 5? =3 RF(E) ACGP24 BASIC WRITE SUK A1,9 HARDWARE TABULATION ? RF(NE) ACGP22 ST A4,DWTAP+DWTDEV,A6 RESET HEAD POSITION POINTER =3 RB ACGP17 ACGP22 SUK A1,8 TABULATION CHARACTER ? RF(E) ACGP40 IFT ABIS=1 =1 CWK A2,/07 BELL ? =1 RB(E) ACGP09 =1 XIF =1 * 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 YES,CODE CHECK ERROR SUK A1,/8E ROOMLESS POINT? (AE) RF(E) AGP100 ADK A1,/4F GREATER THAN /5F RB(NP) ACGP17 NO 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 DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3 CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 ACGP26 ADK A1,3 RB(NZ) ACGP17 NOT LINE FEED SUK A1,1 ADS A1,DWTPOC+DWTDEV,A6 DECREMENT POS COUNTER =3 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+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3 LC A4,DWTBC+DWTDEV,A6 =3 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 ERGP2 RF(NZ) ERGP ERROR =3 IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3 SUK A4,1 RB(P) ACGP45 LDR A3,A3 RECOVERY? RB(NE) ACGP20 NO SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER =3 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 * =3 =13(=10) AGP410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND RF(NZ) ERGP ERROR =6 CF A5,ENDBLK END OF BLOCK =6 RF(NZ) ERGP ERROR =6 AGP415 EQU * =1 IFT ABIS=1 =1 ANK A2,/4 PAPER IN ? =1 RF(NZ) AGP420 YES =1 LDK A1,/20 SET RETURN CODE =1 XIF =1 AGP420 EQU * CF A15,UPDAPP UPDATE HEAD POSITION COUNTER LDKL A4,/FBFF =3 ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3 ENDIO EQU * =6(=3) CF A15,TENDIO END I/O EXIT ABL LDISP GO TO DISPATCHER =3 AGP430 EQU * LD A3,DWTA3,A6 ST A3,6,A8 EFF. LENGTH RB AGP415 =1 EJECT * * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER =3 ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER =3 LDK A3,0 SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3 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 * * E R G P * * ERROR ROUTINE * * ERGP EQU * =3 LDR A2,A1 SAVE RETURN CODE =10 ANK A1,/12 OUTPUT ERROR OR LRC-ERROR ? =10(=9) RF(NZ) RCGP YES, EXECUTE RECOVERY =9 LDR A7,A7 ORDER 0 ? =3 =6(=3) RF(NZ) ERGP10 NO =6 LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 RB ENDIO END I/O =6 * ERGP10 EQU * =6 ANK A2,/08 SOFTWARE TIME-OUT ? =10 RF(NZ) RCGP YES,EXECUTE RECOVERY =10 =9(=6) =9(=6) IFT RECEND=0 =3 RB EXIT =3 XIF =3 IFT RECEND=1 =3 LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 RB AGP430 =3 XIF =3 EJECT * * E C H O G P * * ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE * ECHOGP EQU * IFT ECHO=1 U =12 LDK A4,COSPAC LDR A7,A7 END OF ECHO ? RF(N) ECGP17 YES * IFT EORECH=0 * SUK A2,/80 EOR-CHARACTER RF(NN) ECGP20 YES ADK A2,/80 * XIF IFT ECHO=1 U =12 * LDR A1,A2 ANK A1,/7F SUK A1,/8 RF(E) ECGP40 BACKSPACE SUK A1,/2 LINE FEED =1 RF(E) ECGP05 YES =3(=1) SUK A1,/3 CR =1 RF(E) ECGP05 YES =3(=1) SUK A1,/B =1 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 ECGP05 EQU * =3 LDR A3,A2 SAVE CHARACTER =3 LDK A2,COSPAC+1 BLOCK LENGTH =3 CF A5,STABLK START OF BLOCK =3 RF(NZ) ECGP20 ERROR =6 LDR A2,A3 GET CHARACTER =3 ECGP10 CF A5,OUTPUT SEND CHARACTER RF(NZ) ECGP20 ERROR =6 IM DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =3 SUK A4,1 READY ? RF(N) ECGP80 YES =3 RF(P) ECGP60 NO, GO TO CLEAR SECTION * IFT COSPAC=1 * LDK A2,SPACE NO SEND SPACE RB ECGP10 * XIF * IFT ECHO=1 U =12 ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER XIF U =12 CF A15,TENDIO SET GP DWT FREE =5 ECGP20 ABL ECHRTN RETURN TO KEYBOARD IFT ECHO=1 U =12 EJECT * * BACKSPACE * ECGP40 EQU * LDK A2,GPBSP BACKSPACE CHARACTER RB ECGP05 =3 * * CANCEL * ECGP50 EQU * LC A3,DWTBC+DWTDEV,A6 BYTE COUNTER =3 ANK A3,/FF CLEAN =3 ADK A3,1 ADD FOR CLEAR CHAR. =10 LDR A2,A3 NUMBER OF BACKSPACE CHARACTERS =3 ADK A2,2 ADD TO BLOCK LENGTH =3 CF A5,STABLK START OF BLOCK =3 RB(NZ) ECGP20 ERROR =6 LDK A2,GPCLR CLEAR CHARACTER LDK A4,3 RB ECGP10 ECGP60 LDK A2,LF LINE FEED =3 ECGP70 CF A5,OUTPUT SEND CHAR. RB(NZ) ECGP20 ERROR =6 LDK A2,/08 BACKSPACE SUK A3,1 RB(NN) ECGP70 LDK A3,0 SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3 ECGP80 EQU * =3 CF A5,ENDBLK END OF BLOCK =3 RB ECGP20 XIF U =12 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 * =3 =6 LDR A8,A8 BUSY ? =6 ABL(Z) ENDIO NO =11(=6) LDK A2,1 BLOCK LENGTH =10(=3) CF A5,STABLK START OF BLOCK =3 RB(NZ) ERGP ERROR =3 LDK A2,SOH RESET PRINT BUFFER CODE CF A5,OUTPUT SEND IT RB(NZ) ERGP ERROR =3 CF A5,ENDBLK END OF BLOCK =10 RB(NZ) ERGP ERROR =10 CWK A7,5 RF(E) RCGP10 CWK A7,6 ORDER 6? RF(E) RCGP05 YES =10(=6) =10(=6) CWK A7,0 ORDER 0? ABL(E) ENDIO U =7 =6(=3) ABL EXIT U =7 RCGP05 EQU * LC A2,DWTDEV,A6 GET LEFT BYTE OF STATUS WORD =3 ANK A2,/4 LINE FEED DONE ? ABL(E) ACGP NO =3(=10) LDK A2,BLKMAX BLOCK LENGTH =10 CF A5,STABLK START OF BLOCK =10 RB(NZ) ERGP ERROR =10 LDK A2,SPACE CF A5,OUTPUT SEND SPACE RB(NZ) ERGP ERROR =3 =3 LDK A2,CR CARRIAGE RETURN LDK A3,0 LD A4,DWTAP+DWTDEV,A6 GET NUMBER OF SPACES TO SEND =3 ABL ACGP46 =6 RCGP10 EQU * =6 =10(=6) =10(=6) LDK A1,TPERR SET RETURN CODE =6 ABL AGP430 * * * A B G P * * ABORT ROUTINE * ABGP EQU * U =8 CF A15,UPDAPP UPDATE HEAD POSITION POINTER =8 ABL ENDIO END I/O AND DISPATCH =8 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP01 REL 11.0 81-08-31 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0068 Head {h00=0x0026, h01=0x0050, text=» =13,CHARACTER BLOCKING CHANGED «, t00=0x0000, t01=0x0042}
0x0068…0084 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-05-25«, t00=0x0000, t01=0x006c}
0x0084…00a6 Head {h00=0x001e, h01=0x0050, text=» =12,COND. ASS. FOR ECHO«, t00=0x0000, t01=0x0088}
0x00a6…00c2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x00aa}
0x00c2…00e6 Head {h00=0x0020, h01=0x0050, text=» =11,BRANCH ADDR. OVERFLOW«, t00=0x0000, t01=0x00c6}
0x00e6…0102 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-11-19«, t00=0x0000, t01=0x00ea}
0x0102…0128 Head {h00=0x0022, h01=0x0050, text=» =10,IMPROV. FOR REMOTE (RT)«, t00=0x0000, t01=0x0106}
0x0128…0144 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-09-18«, t00=0x0000, t01=0x012c}
0x0144…016a Head {h00=0x0022, h01=0x0050, text=» =9,CHANGE IN ERROR ROUTINE «, t00=0x0000, t01=0x0148}
0x016a…0186 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-09-16«, t00=0x0000, t01=0x016e}
0x0186…01ae Head {h00=0x0024, h01=0x0050, text=» =8,ABORT ROUTINE IMPLEMENTED «, t00=0x0000, t01=0x018a}
0x01ae…01ca Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-07-28«, t00=0x0001, t01=0x0022}
0x01ca…01ec Head {h00=0x001e, h01=0x0050, text=» =7,BRANCH ADDR. OVERFL.«, t00=0x0001, t01=0x003e}
0x01ec…0208 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-04-29«, t00=0x0001, t01=0x0060}
0x0208…0230 Head {h00=0x0024, h01=0x0050, text=» =6,IMPROV. OF ERROR HANDLING «, t00=0x0001, t01=0x007c}
0x0230…024c Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-03-18«, t00=0x0001, t01=0x00a4}
0x024c…026c Head {h00=0x001c, h01=0x0050, text=» =5,TENDIO AT ECHO END«, t00=0x0001, t01=0x00c0}
0x026c…0288 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-03-13«, t00=0x0001, t01=0x00e0}
0x0288…02b6 Head {h00=0x002a, h01=0x0050, text=» =4,CORRECTION OF MMU BUFFER EQUATE «, t00=0x0001, t01=0x00fc}
0x02b6…02d2 Head {h00=0x0018, h01=0x0050, text=» PRR 11.0 80-02-05«, t00=0x0001, t01=0x012a}
0x02d2…02f8 Head {h00=0x0022, h01=0x0050, text=» =3,ADAPTED TO NEW INTERFACE«, t00=0x0001, t01=0x0146}
0x02f8…0314 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0001, t01=0x016c}
0x0314…033e Head {h00=0x0026, h01=0x0050, text=» =1-2,GEN UPDATE TO 8.2+ STATUS «, t00=0x0001, t01=0x0188}
0x033e…035a Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0002, t01=0x0022}
0x035a…037e Head {h00=0x0020, h01=0x0050, text=» =2,IMPROV. OF TEST ORDER «, t00=0x0002, t01=0x003e}
0x037e…039a Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-11-19 «, t00=0x0002, t01=0x0062}
0x039a…03c0 Head {h00=0x0022, h01=0x0050, text=» =1,ECHO OF LF AND CR, ABIS «, t00=0x0002, t01=0x007e}
0x03c0…03dc Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0002, t01=0x00a4}
0x03dc…03e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c0}
0x03e6…03f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ca}
0x03f0…042a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00d4}
0x042a…0434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0434…045c Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0002, t01=0x0118}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…0492 Head {h00=0x0028, h01=0x0050, text=»* DRGP01 = DRIVER GENERAL PRINTER «, t00=0x0002, t01=0x014a}
0x0492…049c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0176}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x04a6…04b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04ba (3, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…0508 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0003, t01=0x0022}
0x0508…0512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005c}
0x0512…051c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051c…0556 Head {h00=0x0036, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER «, t00=0x0003, t01=0x0070}
0x0556…0596 Head {h00=0x003c, h01=0x0050, text=»* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0003, t01=0x00aa}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05dc Head {h00=0x0038, h01=0x0050, text=»* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO «, t00=0x0003, t01=0x00f4}
0x05dc…0616 Head {h00=0x0036, h01=0x0050, text=»* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE«, t00=0x0003, t01=0x0130}
0x0616…0650 Head {h00=0x0036, h01=0x0050, text=»* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-«, t00=0x0003, t01=0x016a}
0x0650…0688 Head {h00=0x0034, h01=0x0050, text=»* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD«, t00=0x0004, t01=0x0014}
0x0688…06a4 Head {h00=0x0018, h01=0x0050, text=»* DRIVER DRKB04. «, t00=0x0004, t01=0x004c}
0x06a4…06ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ae…06b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b8…06ec Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0004, t01=0x007c}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b0}
0x06f6…0720 Head {h00=0x0026, h01=0x0050, text=»* A C G P ACTIVATION PART«, t00=0x0004, t01=0x00ba}
0x0720…072a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e4}
0x072a…0752 Head {h00=0x0024, h01=0x0050, text=»* A B G P ABORT ROUTINE«, t00=0x0004, t01=0x00ee}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0788 Head {h00=0x0028, h01=0x0050, text=»* R C G P RECOVERY ROUTINE «, t00=0x0004, t01=0x0120}
0x0788…0792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014c}
0x0792…07bc Head {h00=0x0026, h01=0x0050, text=»* E C H O G P ECHO FUNCTIONS «, t00=0x0004, t01=0x0156}
0x07bc…07c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07c6…07d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x018a}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…080c Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0005, t01=0x0012}
0x080c…0816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0816…0838 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0005, t01=0x004a}
0x0838…085a Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0005, t01=0x006c}
0x085a…0880 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0005, t01=0x008e}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…08ac Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0005, t01=0x00be}
0x08ac…08b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e0}
0x08b6…08dc Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x00ea}
0x08dc…0908 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0005, t01=0x0110}
0x0908…0930 Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0005, t01=0x013c}
0x0930…0958 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x0164}
0x0958…097e Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x018c}
0x097e…09a4 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0006, t01=0x0022}
0x09a4…09c4 Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0006, t01=0x0048}
0x09c4…09ea Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0006, t01=0x0068}
0x09ea…09f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x008e}
0x09f4…09fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0098}
0x09fe…0a1c Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0006, t01=0x00a2}
0x0a1c…0a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c0}
0x0a26…0a64 Head {h00=0x003a, h01=0x0050, text=»* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR«, t00=0x0006, t01=0x00ca}
0x0a64…0a90 Head {h00=0x0028, h01=0x0050, text=»* (GPCLR) KEYS SHOULD BE DEFINED.«, t00=0x0006, t01=0x0108}
0x0a90…0a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a9a…0ad6 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS «, t00=0x0006, t01=0x013e}
0x0ad6…0b0a Head {h00=0x0030, h01=0x0050, text=»* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. «, t00=0x0006, t01=0x017a}
0x0b0a…0b28 Head {h00=0x001a, h01=0x0050, text=»* --ROOMLESS POINT «, t00=0x0007, t01=0x001e}
0x0b28…0b66 Head {h00=0x003a, h01=0x0050, text=»* --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH«, t00=0x0007, t01=0x003c}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007a}
0x0b70…0bb8 Head {h00=0x0044, h01=0x0050, text=»* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER «, t00=0x0007, t01=0x0084}
0x0bb8…0bf2 Head {h00=0x0036, h01=0x0050, text=»* --SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x00cc}
0x0bf2…0c20 Head {h00=0x002a, h01=0x0050, text=»** --SUPPRESION OF TRAILING BLANKS «, t00=0x0007, t01=0x0106}
0x0c20…0c64 Head {h00=0x0040, h01=0x0050, text=»* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE«, t00=0x0007, t01=0x0134}
0x0c64…0c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6e…0ca8 Head {h00=0x0036, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS«, t00=0x0007, t01=0x0182}
0x0ca8…0cf2 Head {h00=0x0046, h01=0x0050, text=»* IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET «, t00=0x0008, t01=0x002c}
0x0cf2…0d00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0076}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d14…0d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1e…0d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d28…0d3c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x00ac}
0x0d3c…0d50 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x00c0}
0x0d50…0d64 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x00d4}
0x0d64…0d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e8}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x0d78…0d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00fc}
0x0d82…0dae Head {h00=0x0028, h01=0x0050, text=» ENTRY GPAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x0106}
0x0dae…0de2 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x0132}
0x0de2…0dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0dec…0df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0170}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017a}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0184}
0x0e0a…0e3c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x018e}
0x0e3c…0e6e Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0009, t01=0x0030}
0x0e6e…0ea0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x0062}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0eaa…0eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb4…0ede Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR =3«, t00=0x0009, t01=0x00a8}
0x0ede…0f10 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0009, t01=0x00d2}
0x0f10…0f32 Head {h00=0x001e, h01=0x0050, text=» EXTRN LDISP DISPATCHER =3«, t00=0x0009, t01=0x0104}
0x0f32…0f50 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x0126}
0x0f50…0f84 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x0144}
0x0f84…0fb8 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0178}
0x0fb8…0fe0 Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK START OF BLOCK =3 «, t00=0x000a, t01=0x001c}
0x0fe0…1006 Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK =3 «, t00=0x000a, t01=0x0044}
0x1006…1014 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x006a}
0x1014…101e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101e…1028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0082}
0x1028…1048 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x008c}
0x1048…1068 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x00ac}
0x1068…1088 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00cc}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x1092…109c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f6}
0x109c…10b8 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x0100}
0x10b8…10d2 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x011c}
0x10d2…10f4 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x000a, t01=0x0136}
0x10f4…112a Head {h00=0x0032, h01=0x0050, text=» EXTRN DWTDEV START OF DRIVER DEFINED PART =3 «, t00=0x000a, t01=0x0158}
0x112a…1134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018e}
0x1134…1142 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0008}
0x1142…114c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114c…1156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0020}
0x1156…116c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x002a}
0x116c…1182 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0040}
0x1182…1198 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0056}
0x1198…11a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006c}
0x11a2…11ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11ac…11ea Head {h00=0x003a, h01=0x0050, text=»SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x000b, t01=0x0080}
0x11ea…120e Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x00be}
0x120e…1230 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x00e2}
0x1230…124e Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x0104}
0x124e…1270 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0122}
0x1270…128c Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x0144}
0x128c…12aa Head {h00=0x001a, h01=0x0050, text=»FFED EQU /0C FORM FEED«, t00=0x000b, t01=0x0160}
0x12aa…12c6 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x017e}
0x12c6…12fa Head {h00=0x0030, h01=0x0050, text=»PROUT EQU /04 PAPER OUT OR READY SWITCH OFF «, t00=0x000c, t01=0x000a}
0x12fa…1304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003e}
0x1304…132e Head {h00=0x0026, h01=0x0050, text=»BLKMAX EQU 140 MAX BLOCK LENGTH =3«, t00=0x000c, t01=0x0048}
0x132e…133c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0072}
0x133c…1346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1346…1350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x1350…137e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000c, t01=0x0094}
0x137e…13ac Head {h00=0x002a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000c, t01=0x00c2}
0x13ac…13da Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000c, t01=0x00f0}
0x13da…13e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011e}
0x13e4…141a Head {h00=0x0032, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT «, t00=0x000c, t01=0x0128}
0x141a…1442 Head {h00=0x0024, h01=0x0050, text=»* FUNCTION BY SETTING X:A = 0«, t00=0x000c, t01=0x015e}
0x1442…144c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x144c…145e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0190}
0x145e…1474 Head {h00=0x0012, h01=0x0050, text=»CROOM EQU X:A «, t00=0x000d, t01=0x0012}
0x1474…147e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x147e…14b6 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000d, t01=0x0032}
0x14b6…14ea Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000d, t01=0x006a}
0x14ea…14f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14f4…1506 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x00a8}
0x1506…151c Head {h00=0x0012, h01=0x0050, text=»TRETON EQU X:B«, t00=0x000d, t01=0x00ba}
0x151c…1526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d0}
0x1526…155e Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000d, t01=0x00da}
0x155e…1592 Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000d, t01=0x0112}
0x1592…159c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x159c…15ae Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000d, t01=0x0150}
0x15ae…15c4 Head {h00=0x0012, h01=0x0050, text=»FJOTON EQU X:C«, t00=0x000d, t01=0x0162}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15ce…1600 Head {h00=0x002e, h01=0x0050, text=»* ECHO HANDLING IS INCLUDED IF ECHO = 1«, t00=0x000d, t01=0x0182}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x160a…1622 Head {h00=0x0014, h01=0x0050, text=»X:D EQU 1 U =12 «, t00=0x000e, t01=0x002e}
0x1622…163c Head {h00=0x0016, h01=0x0050, text=»ECHO EQU X:D U =12«, t00=0x000e, t01=0x0046}
0x163c…1646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1646…1678 Head {h00=0x002e, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000e, t01=0x006a}
0x1678…16a8 Head {h00=0x002c, h01=0x0050, text=»* AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000e, t01=0x009c}
0x16a8…16c4 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:E=0«, t00=0x000e, t01=0x00cc}
0x16c4…16ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16ce…16e0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000e, t01=0x00f2}
0x16e0…16f6 Head {h00=0x0012, h01=0x0050, text=»COSPAC EQU X:E«, t00=0x000e, t01=0x0104}
0x16f6…1704 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x011a}
0x1704…170e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0128}
0x170e…1718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1718…1754 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x013c}
0x1754…1790 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0178}
0x1790…17cc Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:F=0.«, t00=0x000f, t01=0x0024}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d6…17e8 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x006a}
0x17e8…17fe Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:F«, t00=0x000f, t01=0x007c}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1808…1840 Head {h00=0x0034, h01=0x0050, text=»* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000f, t01=0x009c}
0x1840…185e Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:G=1 «, t00=0x000f, t01=0x00d4}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f2}
0x1868…187a Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000f, t01=0x00fc}
0x187a…1890 Head {h00=0x0012, h01=0x0050, text=»SUPSPA EQU X:G«, t00=0x000f, t01=0x010e}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0124}
0x189a…18c6 Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000f, t01=0x012e}
0x18c6…18f6 Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000f, t01=0x015a}
0x18f6…1924 Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000f, t01=0x018a}
0x1924…1946 Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x0010, t01=0x0028}
0x1946…1958 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 0 «, t00=0x0010, t01=0x004a}
0x1958…196e Head {h00=0x0012, h01=0x0050, text=»RECEND EQU X:H«, t00=0x0010, t01=0x005c}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1978…1982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007c}
0x1982…19bc Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0086}
0x19bc…19ee Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x00c0}
0x19ee…19f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f2}
0x19f8…1a0c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x00fc}
0x1a0c…1a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a16…1a32 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0010, t01=0x011a}
0x1a32…1a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0136}
0x1a3c…1a54 Head {h00=0x0014, h01=0x0050, text=»X:I EQU 120 =4 «, t00=0x0010, t01=0x0140}
0x1a54…1a6e Head {h00=0x0016, h01=0x0050, text=»DVBLEN EQU X:I =4«, t00=0x0010, t01=0x0158}
0x1a6e…1a7e Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0010, t01=0x0172}
0x1a7e…1aae Head {h00=0x002c, h01=0x0050, text=»* SPECIAL CONDITION FOR ABIS PRINTER =1«, t00=0x0010, t01=0x0182}
0x1aae…1ac4 Head {h00=0x0012, h01=0x0050, text=»ABIS EQU 0 =1«, t00=0x0011, t01=0x0022}
0x1ac4…1ad2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0038}
0x1ad2…1adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0046}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0050}
0x1ae6…1b0e Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0011, t01=0x005a}
0x1b0e…1b36 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0011, t01=0x0082}
0x1b36…1b5e Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0011, t01=0x00aa}
0x1b5e…1b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b68…1b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b72…1b80 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0011, t01=0x00e6}
0x1b80…1bac Head {h00=0x0028, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITON POINTER =3«, t00=0x0011, t01=0x00f4}
0x1bac…1bd4 Head {h00=0x0024, h01=0x0050, text=»DWTPOC EQU /4 POSITON COUNTER =3«, t00=0x0011, t01=0x0120}
0x1bd4…1bf8 Head {h00=0x0020, h01=0x0050, text=»DWTBC EQU /5 BYTE COUNTER =3«, t00=0x0011, t01=0x0148}
0x1bf8…1c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016c}
0x1c02…1c30 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0011, t01=0x0176}
0x1c30…1c60 Head {h00=0x002c, h01=0x0050, text=»* SPECIAL KEYS FOR ECHO FUNCTION * «, t00=0x0012, t01=0x0014}
0x1c60…1c8e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0012, t01=0x0044}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c98…1cb8 Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x0012, t01=0x007c}
0x1cb8…1cd4 Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x0012, t01=0x009c}
0x1cd4…1cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b8}
0x1cde…1cfa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00c2}
0x1cfa…1d16 Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x0012, t01=0x00de}
0x1d16…1d32 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0012, t01=0x00fa}
0x1d32…1d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d3c…1d70 Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x0012, t01=0x0120}
0x1d70…1d96 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0012, t01=0x0154}
0x1d96…1dbc Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0012, t01=0x017a}
0x1dbc…1de8 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x0013, t01=0x0010}
0x1de8…1df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1df2…1e00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0046}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0054}
0x1e0a…1e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005e}
0x1e14…1e26 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0068}
0x1e26…1e38 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x007a}
0x1e38…1e4a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x008c}
0x1e4a…1e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009e}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e5e…1e72 Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0013, t01=0x00b2}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c6}
0x1e7c…1e90 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0013, t01=0x00d0}
0x1e90…1ebe Head {h00=0x002a, h01=0x0050, text=» TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x0013, t01=0x00e4}
0x1ebe…1eea Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0013, t01=0x0112}
0x1eea…1ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013e}
0x1ef4…1f00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0148}
0x1f00…1f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0154}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015e}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0168}
0x1f1e…1f44 Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN MMU BUFFER LENGTH«, t00=0x0013, t01=0x0172}
0x1f44…1f60 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x0008}
0x1f60…1f80 Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x0024}
0x1f80…1fa4 Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x0014, t01=0x0044}
0x1fa4…1fd0 Head {h00=0x0028, h01=0x0050, text=» DATA ABGP ABORT ROUTINE ADDRESS =8 «, t00=0x0014, t01=0x0068}
0x1fd0…1ff2 Head {h00=0x001e, h01=0x0050, text=» DATA 0 INTERRUPT HANDLER «, t00=0x0014, t01=0x0094}
0x1ff2…2016 Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0014, t01=0x00b6}
0x2016…2048 Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x00da}
0x2048…2056 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x010c}
0x2056…2060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011a}
0x2060…2074 Head {h00=0x0010, h01=0x0050, text=»* A C G P«, t00=0x0014, t01=0x0124}
0x2074…207e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0138}
0x207e…20b4 Head {h00=0x0032, h01=0x0050, text=»* ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0014, t01=0x0142}
0x20b4…20be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0178}
0x20be…210a Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0014, t01=0x0182}
0x210a…214a Head {h00=0x003c, h01=0x0050, text=»* IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0015, t01=0x003e}
0x214a…2196 Head {h00=0x0048, h01=0x0050, text=»* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0015, t01=0x007e}
0x2196…21ba Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT.«, t00=0x0015, t01=0x00ca}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ee}
0x21c4…2206 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0015, t01=0x00f8}
0x2206…222c Head {h00=0x0022, h01=0x0050, text=»* FROM ECB-BUFFER«, t00=0x0015, t01=0x013a}
0x222c…2236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x2236…2280 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0015, t01=0x016a}
0x2280…22c0 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0016, t01=0x0024}
0x22c0…22ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22ca…22dc Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0016, t01=0x006e}
0x22dc…22ea Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0016, t01=0x0080}
0x22ea…2300 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A7 =1«, t00=0x0016, t01=0x008e}
0x2300…2320 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ACGP10 ORDER 0 =2«, t00=0x0016, t01=0x00a4}
0x2320…2346 Head {h00=0x0022, h01=0x0050, text=» LDK A2,BLKMAX BLOCK LENGTH =3«, t00=0x0016, t01=0x00c4}
0x2346…236e Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0016, t01=0x00ea}
0x236e…238c Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0016, t01=0x0112}
0x238c…23a2 Head {h00=0x0012, h01=0x0050, text=» SUK A3,5 =1 «, t00=0x0016, t01=0x0130}
0x23a2…23c6 Head {h00=0x0020, h01=0x0050, text=» RF(E) ACGP19 ORDER 5 =3(=1)«, t00=0x0016, t01=0x0146}
0x23c6…23dc Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 =1 «, t00=0x0016, t01=0x016a}
0x23dc…23ea Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0016, t01=0x0180}
0x23ea…240a Head {h00=0x001c, h01=0x0050, text=» RF(E) ACGP00 ORDER 6 =3«, t00=0x0016, t01=0x018e}
0x240a…2430 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x0017, t01=0x001e}
0x2430…2458 Head {h00=0x0024, h01=0x0050, text=» ABL LENDER I/O REQUEST ERROR =3«, t00=0x0017, t01=0x0044}
0x2458…2470 Head {h00=0x0014, h01=0x0050, text=»ACGP00 EQU * =3«, t00=0x0017, t01=0x006c}
0x2470…249e Head {h00=0x002a, h01=0x0050, text=» LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 «, t00=0x0017, t01=0x0084}
0x249e…24b8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACGP01 =1 «, t00=0x0017, t01=0x00b2}
0x24b8…24e2 Head {h00=0x0026, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS =1 «, t00=0x0017, t01=0x00cc}
0x24e2…250e Head {h00=0x0028, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER =1«, t00=0x0017, t01=0x00f6}
0x250e…2526 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =1 «, t00=0x0017, t01=0x0122}
0x2526…2544 Head {h00=0x001a, h01=0x0050, text=»ACGP01 SUK A3,/2B =1 «, t00=0x0017, t01=0x013a}
0x2544…2552 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0017, t01=0x0158}
0x2552…2580 Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP02 NOT CONTROL CHAR 2B =3 «, t00=0x0017, t01=0x0166}
0x2580…25a8 (24, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX =3 «, t00=0x0018, t01=0x0004}
0x25a8…25be Head {h00=0x0012, h01=0x0050, text=» RF ACGP19 =3«, t00=0x0018, t01=0x002c}
0x25be…25d6 Head {h00=0x0014, h01=0x0050, text=»ACGP02 EQU * =3«, t00=0x0018, t01=0x0042}
0x25d6…25ec Head {h00=0x0012, h01=0x0050, text=» LDK A2,CR =1«, t00=0x0018, t01=0x005a}
0x25ec…2606 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0018, t01=0x0070}
0x2606…2624 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0018, t01=0x008a}
0x2624…263c Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0018, t01=0x00a8}
0x263c…2654 Head {h00=0x0014, h01=0x0050, text=» LDK A2,FFED =1«, t00=0x0018, t01=0x00c0}
0x2654…2670 Head {h00=0x0018, h01=0x0050, text=» CWK A3,/31-/2B =1 «, t00=0x0018, t01=0x00d8}
0x2670…2698 Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP03 CONTROL CHAR 31 =1«, t00=0x0018, t01=0x00f4}
0x2698…26aa Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0018, t01=0x011c}
0x26aa…26c0 Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0018, t01=0x012e}
0x26c0…26dc Head {h00=0x0018, h01=0x0050, text=» SUK A3,/30-/2B =1 «, t00=0x0018, t01=0x0144}
0x26dc…270a Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 «, t00=0x0018, t01=0x0160}
0x270a…2724 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0018, t01=0x018e}
0x2724…2742 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP1 ERROR =3«, t00=0x0019, t01=0x0018}
0x2742…2758 Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0019, t01=0x0036}
0x2758…2788 Head {h00=0x002c, h01=0x0050, text=»ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1«, t00=0x0019, t01=0x004c}
0x2788…27ae Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTAP+DWTDEV,A6 =3(=1)«, t00=0x0019, t01=0x007c}
0x27ae…27dc Head {h00=0x002a, h01=0x0050, text=»ACGP06 LDK A3,2 START BUFFER INDEX =1 «, t00=0x0019, t01=0x00a2}
0x27dc…27fc Head {h00=0x001c, h01=0x0050, text=»ACGP09 CF A5,OUTPUT =1 «, t00=0x0019, t01=0x00d0}
0x27fc…2820 Head {h00=0x0020, h01=0x0050, text=»ERGP1 RF(NZ) ERGP2 ERROR =3 «, t00=0x0019, t01=0x00f0}
0x2820…283e Head {h00=0x001a, h01=0x0050, text=» LDK A2,ETX DUMMY =10 «, t00=0x0019, t01=0x0114}
0x283e…2874 Head {h00=0x0032, h01=0x0050, text=» CF A5,OUTPUT WAIT UNTIL PRINTBUFFER EMPTY =10«, t00=0x0019, t01=0x0132}
0x2874…2894 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =10 «, t00=0x0019, t01=0x0168}
0x2894…28aa Head {h00=0x0012, h01=0x0050, text=» RF ACGP19 =1«, t00=0x0019, t01=0x0188}
0x28aa…28be Head {h00=0x0010, h01=0x0050, text=» EJECT =2 «, t00=0x001a, t01=0x000e}
0x28be…28ce Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x001a, t01=0x0022}
0x28ce…28ec Head {h00=0x001a, h01=0x0050, text=»* ORDER 00: TEST =2«, t00=0x001a, t01=0x0032}
0x28ec…293e Head {h00=0x004e, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 «, t00=0x001a, t01=0x0050}
0x293e…294e Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x001a, t01=0x00a2}
0x294e…2962 Head {h00=0x0010, h01=0x0050, text=»ACGP10 EQU *«, t00=0x001a, t01=0x00b2}
0x2962…2988 Head {h00=0x0022, h01=0x0050, text=» LDK A2,2 BLOCK LENGTH =10(=3)«, t00=0x001a, t01=0x00c6}
0x2988…29b0 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x001a, t01=0x00ec}
0x29b0…29ce Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001a, t01=0x0114}
0x29ce…29f0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,2 SEND CHAR /02 =2«, t00=0x001a, t01=0x0132}
0x29f0…2a0a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001a, t01=0x0154}
0x2a0a…2a28 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001a, t01=0x016e}
0x2a28…2a56 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =2«, t00=0x001a, t01=0x018c}
0x2a56…2a70 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x001b, t01=0x002a}
0x2a70…2a8e Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001b, t01=0x0044}
0x2a8e…2aaa Head {h00=0x0018, h01=0x0050, text=» RF AGP400 =10(=2) «, t00=0x001b, t01=0x0062}
0x2aaa…2ab8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x007e}
0x2ab8…2ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x008c}
0x2ac2…2aec Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001b, t01=0x0096}
0x2aec…2b0e Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001b, t01=0x00c0}
0x2b0e…2b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e2}
0x2b18…2b34 Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x001b, t01=0x00ec}
0x2b34…2b52 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP2 ERROR =3«, t00=0x001b, t01=0x0108}
0x2b52…2b92 Head {h00=0x003c, h01=0x0050, text=»ACGP18 IM DWTPOC+DWTDEV,A6 POSITION COUNTER UPDATING =3 «, t00=0x001b, t01=0x0126}
0x2b92…2ba6 Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x001b, t01=0x0166}
0x2ba6…2bd4 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x001b, t01=0x017a}
0x2bd4…2bf2 Head {h00=0x001a, h01=0x0050, text=» ORS A4,DWTDEV,A6 =3 «, t00=0x001c, t01=0x0018}
0x2bf2…2c08 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x001c, t01=0x0036}
0x2c08…2c40 Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x001c, t01=0x004c}
0x2c40…2c4c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0084}
0x2c4c…2c5e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001c, t01=0x0090}
0x2c5e…2c98 Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x001c, t01=0x00a2}
0x2c98…2cba Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x001c, t01=0x00dc}
0x2cba…2cd4 Head {h00=0x0016, h01=0x0050, text=» RF(NP) AGP400 YES«, t00=0x001c, t01=0x00fe}
0x2cd4…2ce6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001c, t01=0x0118}
0x2ce6…2d04 Head {h00=0x001a, h01=0x0050, text=» CWK A7,5 ORDER 5? =3 «, t00=0x001c, t01=0x012a}
0x2d04…2d26 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x001c, t01=0x0148}
0x2d26…2d4e Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x001c, t01=0x016a}
0x2d4e…2d64 (29, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x001d, t01=0x0004}
0x2d64…2da2 Head {h00=0x003a, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 RESET HEAD POSITION POINTER =3 «, t00=0x001d, t01=0x001a}
0x2da2…2db4 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x0058}
0x2db4…2de2 Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x001d, t01=0x006a}
0x2de2…2df8 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x001d, t01=0x0098}
0x2df8…2e10 Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x001d, t01=0x00ae}
0x2e10…2e2e Head {h00=0x001a, h01=0x0050, text=» CWK A2,/07 BELL ? =1 «, t00=0x001d, t01=0x00c6}
0x2e2e…2e48 Head {h00=0x0016, h01=0x0050, text=» RB(E) ACGP09 =1 «, t00=0x001d, t01=0x00e4}
0x2e48…2e5a Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x001d, t01=0x00fe}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0110}
0x2e64…2e7a Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001d, t01=0x011a}
0x2e7a…2e90 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001d, t01=0x0130}
0x2e90…2e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0146}
0x2e9a…2ebc Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x001d, t01=0x0150}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ec6…2ed2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x017c}
0x2ed2…2edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2edc…2ef2 (30, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001e, t01=0x0004}
0x2ef2…2f08 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001e, t01=0x001a}
0x2f08…2f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0030}
0x2f12…2f28 Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x001e, t01=0x003a}
0x2f28…2f3e Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001e, t01=0x0050}
0x2f3e…2f60 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001e, t01=0x0066}
0x2f60…2f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0088}
0x2f6a…2f76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0092}
0x2f76…2f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009e}
0x2f80…2f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a8}
0x2f8a…2fa0 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001e, t01=0x00b2}
0x2fa0…2fb6 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001e, t01=0x00c8}
0x2fb6…2fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00de}
0x2fc0…2fd8 Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x001e, t01=0x00e8}
0x2fd8…2fee Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001e, t01=0x0100}
0x2fee…3010 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x001e, t01=0x0116}
0x3010…301c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0138}
0x301c…3026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0144}
0x3026…3030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x3030…3046 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001e, t01=0x0158}
0x3046…305c Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001e, t01=0x016e}
0x305c…3066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0184}
0x3066…307c Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x001e, t01=0x018e}
0x307c…3092 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001f, t01=0x0014}
0x3092…30a8 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x001f, t01=0x002a}
0x30a8…30be Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001f, t01=0x0040}
0x30be…30e0 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001f, t01=0x0056}
0x30e0…30ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0078}
0x30ea…30f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0082}
0x30f6…3100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008e}
0x3100…312a Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP30 YES,CODE CHECK ERROR«, t00=0x001f, t01=0x0098}
0x312a…3154 Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT? (AE) «, t00=0x001f, t01=0x00c2}
0x3154…316a Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x001f, t01=0x00ec}
0x316a…318e Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x001f, t01=0x0102}
0x318e…31a8 Head {h00=0x0016, h01=0x0050, text=» RB(NP) ACGP17 NO «, t00=0x001f, t01=0x0126}
0x31a8…31bc Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x001f, t01=0x0140}
0x31bc…31d2 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x001f, t01=0x0154}
0x31d2…320c Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x001f, t01=0x016a}
0x320c…3236 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0020, t01=0x0014}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0020, t01=0x003e}
0x3248…325c Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x0020, t01=0x0050}
0x325c…326e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x0020, t01=0x0064}
0x326e…328c Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x0020, t01=0x0076}
0x328c…32c2 Head {h00=0x0032, h01=0x0050, text=» CM DWTPOC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0020, t01=0x0094}
0x32c2…32f8 Head {h00=0x0032, h01=0x0050, text=» CM DWTAP+DWTDEV,A6 RESET HEAD POS.POINTER =3 «, t00=0x0020, t01=0x00ca}
0x32f8…3310 Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x0020, t01=0x0100}
0x3310…3334 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x0020, t01=0x0118}
0x3334…3346 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x013c}
0x3346…3380 Head {h00=0x0036, h01=0x0050, text=» ADS A1,DWTPOC+DWTDEV,A6 DECREMENT POS COUNTER =3 «, t00=0x0020, t01=0x014e}
0x3380…3392 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0020, t01=0x0188}
0x3392…33a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x000a}
0x33a0…33aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0018}
0x33aa…33c8 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0021, t01=0x0022}
0x33c8…33d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33d2…33e6 Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x0021, t01=0x004a}
0x33e6…33fc Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0021, t01=0x005e}
0x33fc…341c Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0021, t01=0x0074}
0x341c…342e Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x0021, t01=0x0094}
0x342e…343c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00a6}
0x343c…3446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b4}
0x3446…345e Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0021, t01=0x00be}
0x345e…3468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d6}
0x3468…347c Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x0021, t01=0x00e0}
0x347c…34ac Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0021, t01=0x00f4}
0x34ac…34be Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0124}
0x34be…34f0 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0021, t01=0x0136}
0x34f0…3502 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0021, t01=0x0168}
0x3502…3514 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0021, t01=0x017a}
0x3514…352a Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x0021, t01=0x018c}
0x352a…355e Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x0022, t01=0x0012}
0x355e…3570 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x0046}
0x3570…3586 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x0022, t01=0x0058}
0x3586…35cc Head {h00=0x0042, h01=0x0050, text=»ACGP44 SU A2,DWTAP+DWTDEV,A6 SUBTRACT HEAD POSITION POINTER =3«, t00=0x0022, t01=0x006e}
0x35cc…35ee Head {h00=0x001e, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 =3«, t00=0x0022, t01=0x00b4}
0x35ee…361e Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x0022, t01=0x00d6}
0x361e…3648 Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x0022, t01=0x0106}
0x3648…365e Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x0022, t01=0x0130}
0x365e…3670 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0022, t01=0x0146}
0x3670…36ae Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x0022, t01=0x0158}
0x36ae…36ca Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x0023, t01=0x0008}
0x36ca…36ec Head {h00=0x001e, h01=0x0050, text=»ERGP2 RF(NZ) ERGP ERROR =3«, t00=0x0023, t01=0x0024}
0x36ec…3722 Head {h00=0x0032, h01=0x0050, text=» IM DWTPOC+DWTDEV,A6 INCREMENT BUFFER INDEX =3«, t00=0x0023, t01=0x0046}
0x3722…3734 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x007c}
0x3734…374a Head {h00=0x0012, h01=0x0050, text=» RB(P) ACGP45 «, t00=0x0023, t01=0x008e}
0x374a…3766 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x0023, t01=0x00a4}
0x3766…3780 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACGP20 NO «, t00=0x0023, t01=0x00c0}
0x3780…37b8 Head {h00=0x0034, h01=0x0050, text=» SC A4,DWTBC+DWTDEV,A6 RESET POSITION POINTER =3«, t00=0x0023, t01=0x00da}
0x37b8…37dc Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0023, t01=0x0112}
0x37dc…37ee Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x0023, t01=0x0136}
0x37ee…37fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0148}
0x37fc…3806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0156}
0x3806…3822 Head {h00=0x0018, h01=0x0050, text=»* ROOMLESS POINT «, t00=0x0023, t01=0x0160}
0x3822…382c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017c}
0x382c…3840 Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x0023, t01=0x0186}
0x3840…384a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x384a…385e Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0024, t01=0x0014}
0x385e…3868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0028}
0x3868…3894 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x0024, t01=0x0032}
0x3894…38a6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0024, t01=0x005e}
0x38a6…38c8 Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x0024, t01=0x0070}
0x38c8…38d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0092}
0x38d2…38de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x009c}
0x38de…38e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a8}
0x38e8…38f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38f2…3906 Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x0024, t01=0x00bc}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d0}
0x3910…3924 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0024, t01=0x00da}
0x3924…392e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ee}
0x392e…393a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00f8}
0x393a…3944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0104}
0x3944…3956 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0024, t01=0x010e}
0x3956…3964 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0120}
0x3964…396e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x396e…3978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0138}
0x3978…39a4 Head {h00=0x0028, h01=0x0050, text=»* SEND LAST DUMMY , LOAD A1 WITH «, t00=0x0024, t01=0x0142}
0x39a4…39c8 Head {h00=0x0020, h01=0x0050, text=»* RETURN CODE AND END I/O«, t00=0x0024, t01=0x016e}
0x39c8…39d2 (37, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0004}
0x39d2…39e6 Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x0025, t01=0x000e}
0x39e6…39f4 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0025, t01=0x0022}
0x39f4…3a08 Head {h00=0x0010, h01=0x0050, text=» =13(=10)«, t00=0x0025, t01=0x0030}
0x3a08…3a2c Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x0025, t01=0x0044}
0x3a2c…3a46 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0025, t01=0x0068}
0x3a46…3a64 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =6 «, t00=0x0025, t01=0x0082}
0x3a64…3a8a Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =6 «, t00=0x0025, t01=0x00a0}
0x3a8a…3aa8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ERGP ERROR =6 «, t00=0x0025, t01=0x00c6}
0x3aa8…3ac0 Head {h00=0x0014, h01=0x0050, text=»AGP415 EQU * =1«, t00=0x0025, t01=0x00e4}
0x3ac0…3ad8 Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0025, t01=0x00fc}
0x3ad8…3af8 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/4 PAPER IN ? =1«, t00=0x0025, t01=0x0114}
0x3af8…3b16 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AGP420 YES =1 «, t00=0x0025, t01=0x0134}
0x3b16…3b3c Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET RETURN CODE =1«, t00=0x0025, t01=0x0152}
0x3b3c…3b4e Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0025, t01=0x0178}
0x3b4e…3b62 Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x0025, t01=0x018a}
0x3b62…3b96 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0026, t01=0x000e}
0x3b96…3bb0 Head {h00=0x0016, h01=0x0050, text=» LDKL A4,/FBFF =3«, t00=0x0026, t01=0x0042}
0x3bb0…3be6 Head {h00=0x0032, h01=0x0050, text=» ANS A4,DWTDEV,A6 RESET 'LINE FEED CONTROL' =3«, t00=0x0026, t01=0x005c}
0x3be6…3bfa Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0026, t01=0x0092}
0x3bfa…3c0c Head {h00=0x000e, h01=0x0050, text=» =6(=3)«, t00=0x0026, t01=0x00a6}
0x3c0c…3c2a Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0026, t01=0x00b8}
0x3c2a…3c54 Head {h00=0x0026, h01=0x0050, text=»EXIT ABL LDISP GO TO DISPATCHER =3«, t00=0x0026, t01=0x00d6}
0x3c54…3c68 Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x0026, t01=0x0100}
0x3c68…3c80 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x0026, t01=0x0114}
0x3c80…3ca0 Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x0026, t01=0x012c}
0x3ca0…3cb6 Head {h00=0x0012, h01=0x0050, text=» RB AGP415 =1«, t00=0x0026, t01=0x014c}
0x3cb6…3cc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0162}
0x3cc4…3cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0170}
0x3cce…3cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017a}
0x3cd8…3d08 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0026, t01=0x0184}
0x3d08…3d38 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x0027, t01=0x0024}
0x3d38…3d64 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x0027, t01=0x0054}
0x3d64…3d78 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0027, t01=0x0080}
0x3d78…3dae Head {h00=0x0032, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER =3«, t00=0x0027, t01=0x0094}
0x3dae…3dee Head {h00=0x003c, h01=0x0050, text=» ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER =3 «, t00=0x0027, t01=0x00ca}
0x3dee…3e00 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x010a}
0x3e00…3e38 Head {h00=0x0034, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0027, t01=0x011c}
0x3e38…3e48 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0027, t01=0x0154}
0x3e48…3e5e Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0027, t01=0x0164}
0x3e5e…3e6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x017a}
0x3e6c…3e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0188}
0x3e76…3e80 (40, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0004}
0x3e80…3eae Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0028, t01=0x000e}
0x3eae…3eda Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0028, t01=0x003c}
0x3eda…3f14 Head {h00=0x0036, h01=0x0050, text=»* REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0028, t01=0x0068}
0x3f14…3f3e Head {h00=0x0026, h01=0x0050, text=»* A1,A2,A4 - WORK REG «, t00=0x0028, t01=0x00a2}
0x3f3e…3f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00cc}
0x3f48…3f5c Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0028, t01=0x00d6}
0x3f5c…3f88 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0028, t01=0x00ea}
0x3f88…3fb4 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0028, t01=0x0116}
0x3fb4…3fdc Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0028, t01=0x0142}
0x3fdc…3ff4 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0028, t01=0x016a}
0x3ff4…4012 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0028, t01=0x0182}
0x4012…402c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0029, t01=0x0010}
0x402c…4048 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0029, t01=0x002a}
0x4048…4066 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0029, t01=0x0046}
0x4066…4080 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0029, t01=0x0064}
0x4080…40a0 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0029, t01=0x007e}
0x40a0…40bc Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0029, t01=0x009e}
0x40bc…40d4 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0029, t01=0x00ba}
0x40d4…40f2 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0029, t01=0x00d2}
0x40f2…4110 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0029, t01=0x00f0}
0x4110…4138 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0029, t01=0x010e}
0x4138…4152 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0029, t01=0x0136}
0x4152…416c Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0029, t01=0x0150}
0x416c…4186 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0029, t01=0x016a}
0x4186…41a2 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0029, t01=0x0184}
0x41a2…41ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0010}
0x41ac…41d2 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x002a, t01=0x001a}
0x41d2…41e2 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002a, t01=0x0040}
0x41e2…41ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0050}
0x41ee…41fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x005c}
0x41fc…4206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006a}
0x4206…421a Head {h00=0x0010, h01=0x0050, text=»* E R G P«, t00=0x002a, t01=0x0074}
0x421a…4224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4224…423e Head {h00=0x0016, h01=0x0050, text=»* ERROR ROUTINE«, t00=0x002a, t01=0x0092}
0x423e…4248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ac}
0x4248…4252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b6}
0x4252…4268 Head {h00=0x0012, h01=0x0050, text=»ERGP EQU * =3«, t00=0x002a, t01=0x00c0}
0x4268…4290 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A1 SAVE RETURN CODE =10 «, t00=0x002a, t01=0x00d6}
0x4290…42c8 Head {h00=0x0034, h01=0x0050, text=» ANK A1,/12 OUTPUT ERROR OR LRC-ERROR ? =10(=9) «, t00=0x002a, t01=0x00fe}
0x42c8…42f6 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCGP YES, EXECUTE RECOVERY =9 «, t00=0x002a, t01=0x0136}
0x42f6…4316 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A7 ORDER 0 ? =3 «, t00=0x002a, t01=0x0164}
0x4316…4328 Head {h00=0x000e, h01=0x0050, text=» =6(=3)«, t00=0x002a, t01=0x0184}
0x4328…4344 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ERGP10 NO =6«, t00=0x002b, t01=0x0008}
0x4344…437a Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 «, t00=0x002b, t01=0x0024}
0x437a…4396 Head {h00=0x0018, h01=0x0050, text=» RB ENDIO END I/O =6«, t00=0x002b, t01=0x005a}
0x4396…43a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0076}
0x43a0…43b8 Head {h00=0x0014, h01=0x0050, text=»ERGP10 EQU * =6«, t00=0x002b, t01=0x0080}
0x43b8…43e4 Head {h00=0x0028, h01=0x0050, text=» ANK A2,/08 SOFTWARE TIME-OUT ? =10 «, t00=0x002b, t01=0x0098}
0x43e4…4412 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RCGP YES,EXECUTE RECOVERY =10 «, t00=0x002b, t01=0x00c4}
0x4412…4424 Head {h00=0x000e, h01=0x0050, text=» =9(=6)«, t00=0x002b, t01=0x00f2}
0x4424…4436 Head {h00=0x000e, h01=0x0050, text=» =9(=6)«, t00=0x002b, t01=0x0104}
0x4436…4450 Head {h00=0x0016, h01=0x0050, text=» IFT RECEND=0 =3 «, t00=0x002b, t01=0x0116}
0x4450…4464 Head {h00=0x0010, h01=0x0050, text=» RB EXIT =3«, t00=0x002b, t01=0x0130}
0x4464…4476 Head {h00=0x000e, h01=0x0050, text=» XIF =3 «, t00=0x002b, t01=0x0144}
0x4476…4490 Head {h00=0x0016, h01=0x0050, text=» IFT RECEND=1 =3 «, t00=0x002b, t01=0x0156}
0x4490…44c6 Head {h00=0x0032, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE NOT OPERABLE =6 «, t00=0x002b, t01=0x0170}
0x44c6…44dc Head {h00=0x0012, h01=0x0050, text=» RB AGP430 =3«, t00=0x002c, t01=0x0016}
0x44dc…44ee Head {h00=0x000e, h01=0x0050, text=» XIF =3 «, t00=0x002c, t01=0x002c}
0x44ee…44fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x003e}
0x44fc…4506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x4506…451e Head {h00=0x0014, h01=0x0050, text=»* E C H O G P«, t00=0x002c, t01=0x0056}
0x451e…4528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006e}
0x4528…455c Head {h00=0x0030, h01=0x0050, text=»* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x002c, t01=0x0078}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ac}
0x4566…457a Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x002c, t01=0x00b6}
0x457a…4594 Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002c, t01=0x00ca}
0x4594…45aa Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x002c, t01=0x00e4}
0x45aa…45ca Head {h00=0x001c, h01=0x0050, text=» LDR A7,A7 END OF ECHO ?«, t00=0x002c, t01=0x00fa}
0x45ca…45e4 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x002c, t01=0x011a}
0x45e4…45ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0134}
0x45ee…4604 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x002c, t01=0x013e}
0x4604…460e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0154}
0x460e…4630 Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x002c, t01=0x015e}
0x4630…464a Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x002c, t01=0x0180}
0x464a…465e Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x000a}
0x465e…4668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x4668…4674 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0028}
0x4674…468e Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002d, t01=0x0034}
0x468e…4698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004e}
0x4698…46aa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x002d, t01=0x0058}
0x46aa…46be Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x002d, t01=0x006a}
0x46be…46d0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x002d, t01=0x007e}
0x46d0…46f0 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x002d, t01=0x0090}
0x46f0…4710 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/2 LINE FEED =1 «, t00=0x002d, t01=0x00b0}
0x4710…4730 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP05 YES =3(=1)«, t00=0x002d, t01=0x00d0}
0x4730…4748 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/3 CR =1«, t00=0x002d, t01=0x00f0}
0x4748…4768 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP05 YES =3(=1)«, t00=0x002d, t01=0x0108}
0x4768…477e Head {h00=0x0012, h01=0x0050, text=» SUK A1,/B =1«, t00=0x002d, t01=0x0128}
0x477e…479a Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x002d, t01=0x013e}
0x479a…47d6 Head {h00=0x0038, h01=0x0050, text=» SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F«, t00=0x002d, t01=0x015a}
0x47d6…47ec Head {h00=0x0012, h01=0x0050, text=» RF(N) ECGP20 «, t00=0x002e, t01=0x0008}
0x47ec…4804 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/5F-/20 «, t00=0x002e, t01=0x001e}
0x4804…481a Head {h00=0x0012, h01=0x0050, text=» RF(P) ECGP20 «, t00=0x002e, t01=0x0036}
0x481a…4832 Head {h00=0x0014, h01=0x0050, text=»ECGP05 EQU * =3«, t00=0x002e, t01=0x004c}
0x4832…4856 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER =3«, t00=0x002e, t01=0x0064}
0x4856…487e Head {h00=0x0024, h01=0x0050, text=» LDK A2,COSPAC+1 BLOCK LENGTH =3«, t00=0x002e, t01=0x0088}
0x487e…48a6 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x002e, t01=0x00b0}
0x48a6…48c6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ECGP20 ERROR =6 «, t00=0x002e, t01=0x00d8}
0x48c6…48ea Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 GET CHARACTER =3 «, t00=0x002e, t01=0x00f8}
0x48ea…4914 Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x002e, t01=0x011c}
0x4914…4934 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ECGP20 ERROR =6 «, t00=0x002e, t01=0x0146}
0x4934…496c Head {h00=0x0034, h01=0x0050, text=» IM DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =3 «, t00=0x002e, t01=0x0166}
0x496c…4986 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002f, t01=0x000e}
0x4986…49a2 Head {h00=0x0018, h01=0x0050, text=» RF(N) ECGP80 YES =3«, t00=0x002f, t01=0x0028}
0x49a2…49d0 Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x002f, t01=0x0044}
0x49d0…49da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0072}
0x49da…49f0 Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x002f, t01=0x007c}
0x49f0…49fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0092}
0x49fa…4a1e Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x002f, t01=0x009c}
0x4a1e…4a30 Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002f, t01=0x00c0}
0x4a30…4a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d2}
0x4a3a…4a46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00dc}
0x4a46…4a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e8}
0x4a50…4a6a Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x002f, t01=0x00f2}
0x4a6a…4aa4 Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x002f, t01=0x010c}
0x4aa4…4ab8 Head {h00=0x0010, h01=0x0050, text=» XIF U =12 «, t00=0x002f, t01=0x0146}
0x4ab8…4ae2 Head {h00=0x0026, h01=0x0050, text=» CF A15,TENDIO SET GP DWT FREE =5 «, t00=0x002f, t01=0x015a}
0x4ae2…4b0e Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x002f, t01=0x0184}
0x4b0e…4b28 Head {h00=0x0016, h01=0x0050, text=» IFT ECHO=1 U =12 «, t00=0x0030, t01=0x0020}
0x4b28…4b36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x003a}
0x4b36…4b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0048}
0x4b40…4b56 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0030, t01=0x0052}
0x4b56…4b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0068}
0x4b60…4b74 Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x0030, t01=0x0072}
0x4b74…4b9e Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x0030, t01=0x0086}
0x4b9e…4bb4 Head {h00=0x0012, h01=0x0050, text=» RB ECGP05 =3«, t00=0x0030, t01=0x00b0}
0x4bb4…4bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00c6}
0x4bbe…4bd2 Head {h00=0x0010, h01=0x0050, text=»* CANCEL «, t00=0x0030, t01=0x00d0}
0x4bd2…4bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e4}
0x4bdc…4bf0 Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x0030, t01=0x00ee}
0x4bf0…4c1e Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 BYTE COUNTER =3«, t00=0x0030, t01=0x0102}
0x4c1e…4c3a Head {h00=0x0018, h01=0x0050, text=» ANK A3,/FF CLEAN =3«, t00=0x0030, t01=0x0130}
0x4c3a…4c64 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 ADD FOR CLEAR CHAR. =10 «, t00=0x0030, t01=0x014c}
0x4c64…4c98 Head {h00=0x0030, h01=0x0050, text=» LDR A2,A3 NUMBER OF BACKSPACE CHARACTERS =3«, t00=0x0030, t01=0x0176}
0x4c98…4cc0 Head {h00=0x0024, h01=0x0050, text=» ADK A2,2 ADD TO BLOCK LENGTH =3«, t00=0x0031, t01=0x001a}
0x4cc0…4ce8 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0031, t01=0x0042}
0x4ce8…4d08 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ECGP20 ERROR =6 «, t00=0x0031, t01=0x006a}
0x4d08…4d2e Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x0031, t01=0x008a}
0x4d2e…4d40 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0031, t01=0x00b0}
0x4d40…4d52 Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x0031, t01=0x00c2}
0x4d52…4d74 Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x0031, t01=0x00d4}
0x4d74…4d82 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0031, t01=0x00f6}
0x4d82…4da8 Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x0031, t01=0x0104}
0x4da8…4dc8 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) ECGP20 ERROR =6 «, t00=0x0031, t01=0x012a}
0x4dc8…4de6 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x0031, t01=0x014a}
0x4de6…4df8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0031, t01=0x0168}
0x4df8…4e0e Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x0031, t01=0x017a}
0x4e0e…4e20 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0031, t01=0x0190}
0x4e20…4e58 Head {h00=0x0034, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER =3«, t00=0x0032, t01=0x0012}
0x4e58…4e70 Head {h00=0x0014, h01=0x0050, text=»ECGP80 EQU * =3«, t00=0x0032, t01=0x004a}
0x4e70…4e96 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =3 «, t00=0x0032, t01=0x0062}
0x4e96…4ea8 Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x0032, t01=0x0088}
0x4ea8…4ebc Head {h00=0x0010, h01=0x0050, text=» XIF U =12 «, t00=0x0032, t01=0x009a}
0x4ebc…4eca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00ae}
0x4eca…4ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00bc}
0x4ed4…4ee8 Head {h00=0x0010, h01=0x0050, text=»* R C G P«, t00=0x0032, t01=0x00c6}
0x4ee8…4ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00da}
0x4ef2…4f26 Head {h00=0x0030, h01=0x0050, text=»* RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x0032, t01=0x00e4}
0x4f26…4f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0118}
0x4f30…4f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0122}
0x4f3a…4f66 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x0032, t01=0x012c}
0x4f66…4f86 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x0032, t01=0x0158}
0x4f86…4f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0178}
0x4f90…4fa6 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0032, t01=0x0182}
0x4fa6…4fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0008}
0x4fb0…4fce Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0033, t01=0x0012}
0x4fce…4fe6 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x0033, t01=0x0030}
0x4fe6…5004 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0033, t01=0x0048}
0x5004…5016 Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x0033, t01=0x0066}
0x5016…5024 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0033, t01=0x0078}
0x5024…5032 Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0033, t01=0x0086}
0x5032…504e Head {h00=0x0018, h01=0x0050, text=» LDR A8,A8 BUSY ? =6«, t00=0x0033, t01=0x0094}
0x504e…506e Head {h00=0x001c, h01=0x0050, text=» ABL(Z) ENDIO NO =11(=6)«, t00=0x0033, t01=0x00b0}
0x506e…5094 Head {h00=0x0022, h01=0x0050, text=» LDK A2,1 BLOCK LENGTH =10(=3)«, t00=0x0033, t01=0x00d0}
0x5094…50bc Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =3 «, t00=0x0033, t01=0x00f6}
0x50bc…50da Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0033, t01=0x011e}
0x50da…5106 Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x0033, t01=0x013c}
0x5106…5124 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0033, t01=0x0168}
0x5124…5142 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0033, t01=0x0186}
0x5142…5168 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =10«, t00=0x0034, t01=0x0014}
0x5168…5186 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =10«, t00=0x0034, t01=0x003a}
0x5186…5198 Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0034, t01=0x0058}
0x5198…51ae Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x0034, t01=0x006a}
0x51ae…51c8 Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x0034, t01=0x0080}
0x51c8…51e2 Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x0034, t01=0x009a}
0x51e2…51f6 Head {h00=0x0010, h01=0x0050, text=» =10(=6) «, t00=0x0034, t01=0x00b4}
0x51f6…520a Head {h00=0x0010, h01=0x0050, text=» =10(=6) «, t00=0x0034, t01=0x00c8}
0x520a…5224 Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x0034, t01=0x00dc}
0x5224…523e Head {h00=0x0016, h01=0x0050, text=» ABL(E) ENDIO U =7«, t00=0x0034, t01=0x00f6}
0x523e…5250 Head {h00=0x000e, h01=0x0050, text=» =6(=3)«, t00=0x0034, t01=0x0110}
0x5250…5266 Head {h00=0x0012, h01=0x0050, text=» ABL EXIT U =7«, t00=0x0034, t01=0x0122}
0x5266…527a Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x0034, t01=0x0138}
0x527a…52b2 Head {h00=0x0034, h01=0x0050, text=» LC A2,DWTDEV,A6 GET LEFT BYTE OF STATUS WORD =3«, t00=0x0034, t01=0x014c}
0x52b2…52d6 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x0034, t01=0x0184}
0x52d6…52f6 Head {h00=0x001c, h01=0x0050, text=» ABL(E) ACGP NO =3(=10) «, t00=0x0035, t01=0x0018}
0x52f6…531e Head {h00=0x0024, h01=0x0050, text=» LDK A2,BLKMAX BLOCK LENGTH =10 «, t00=0x0035, t01=0x0038}
0x531e…5346 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =10«, t00=0x0035, t01=0x0060}
0x5346…5364 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =10«, t00=0x0035, t01=0x0088}
0x5364…537a Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x0035, t01=0x00a6}
0x537a…539a Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x0035, t01=0x00bc}
0x539a…53b8 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ERGP ERROR =3 «, t00=0x0035, t01=0x00dc}
0x53b8…53c6 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0035, t01=0x00fa}
0x53c6…53e8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0035, t01=0x0108}
0x53e8…53fa Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x012a}
0x53fa…5438 Head {h00=0x003a, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET NUMBER OF SPACES TO SEND =3«, t00=0x0035, t01=0x013c}
0x5438…544c Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x0035, t01=0x017a}
0x544c…545a Head {h00=0x000a, h01=0x0050, text=» =6«, t00=0x0035, t01=0x018e}
0x545a…5472 Head {h00=0x0014, h01=0x0050, text=»RCGP10 EQU * =6«, t00=0x0036, t01=0x000c}
0x5472…5486 Head {h00=0x0010, h01=0x0050, text=» =10(=6) «, t00=0x0036, t01=0x0024}
0x5486…549a Head {h00=0x0010, h01=0x0050, text=» =10(=6) «, t00=0x0036, t01=0x0038}
0x549a…54c2 Head {h00=0x0024, h01=0x0050, text=» LDK A1,TPERR SET RETURN CODE =6«, t00=0x0036, t01=0x004c}
0x54c2…54d6 Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x0036, t01=0x0074}
0x54d6…54e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0088}
0x54e0…54ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0092}
0x54ea…54fe Head {h00=0x0010, h01=0x0050, text=»* A B G P«, t00=0x0036, t01=0x009c}
0x54fe…5508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00b0}
0x5508…5522 Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE«, t00=0x0036, t01=0x00ba}
0x5522…552c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d4}
0x552c…5544 Head {h00=0x0014, h01=0x0050, text=»ABGP EQU * U =8 «, t00=0x0036, t01=0x00de}
0x5544…557a Head {h00=0x0032, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION POINTER =8«, t00=0x0036, t01=0x00f6}
0x557a…55a4 Head {h00=0x0026, h01=0x0050, text=» ABL ENDIO END I/O AND DISPATCH =8«, t00=0x0036, t01=0x012c}
0x55a4…55ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0156}
0x55ae…55ba Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0036, t01=0x0160}
0x55ba…55be Head {h00=0x4004, h01=0x0000}
0x55be…55c2 00 36 01 6c ┆ 6 l┆
0x55c2…55ca (55, 1, 8) 20 04 00 00 00 37 00 04 ┆ 7 ┆
0x55ca…561a (56, 0, 400) 47 2b 4f 56 4c 3d 32 20 00 87 01 86 00 2a 00 50 5c 52 46 28 5a 29 5c 4f 56 4c 30 32 30 5c 4e 4f 20 44 2f 52 20 4f 56 45 52 4c 41 59 53 20 50 52 45 53 45 4e 54 20 00 88 00 10 00 10 00 50 4f 56 4c 30 31 35 5c 45 51 55 5c 2a 00 88 00 3e 00 22 ┆G+OVL=2 * P RF(Z) OVL020 NO D/R OVERLAYS PRESENT POVL015 EQU * > "┆
0x561a…566a 00 50 5c 41 44 4b 4c 5c 41 33 2c 2f 46 46 45 5c 43 41 4c 43 55 4c 41 54 45 20 4e 4f 20 4f 46 20 00 88 00 52 00 20 00 50 5c 53 52 4c 5c 41 33 2c 31 32 5c 34 4b 20 42 4c 4f 43 4b 53 20 4e 45 45 44 45 44 20 00 88 00 78 00 0e 00 50 5c 4e 47 52 ┆ P ADKL A3,/FFE CALCULATE NO OF R P SRL A3,12 4K BLOCKS NEEDED x P NGR┆
0x566a…56ba 5c 41 33 2c 41 33 00 88 00 9c 00 32 00 50 5c 41 44 5c 41 33 2c 4d 4d 55 45 4e 54 2b 53 54 4b 45 4e 44 5c 4d 4d 55 20 45 4e 54 52 59 20 57 48 45 52 45 20 54 4f 20 42 45 47 49 4e 20 00 88 00 ae 00 30 00 50 5c 41 42 4c 28 4e 29 5c 54 41 42 4f ┆ A3,A3 2 P AD A3,MMUENT+STKEND MMU ENTRY WHERE TO BEGIN 0 P ABL(N) TABO┆
0x56ba…570a 56 46 5c 4c 4f 47 49 43 41 4c 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 5c 3d 4f 56 4c 20 00 88 00 e4 00 30 00 50 5c 53 54 5c 41 33 2c 4d 4d 55 45 4e 54 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 41 53 20 4c 41 53 54 20 55 53 45 44 20 45 ┆VF LOGICAL MEMORY OVERFLOW =OVL 0 P ST A3,MMUENT+STKEND SAVE AS LAST USED E┆
0x570a…575a 4e 54 52 59 00 88 01 18 00 0e 00 50 5c 53 4c 4c 5c 41 33 2c 31 32 00 88 01 4c 00 08 00 50 5c 58 49 46 00 88 01 5e 00 0e 00 50 5c 49 46 54 5c 4f 56 4c 3d 31 00 88 01 6a 00 18 00 50 4f 56 4c 30 32 30 5c 45 51 55 5c 2a 5c 2e 5c 3d 4f 56 4c 20 ┆NTRY P SLL A3,12 L P XIF ^ P IFT OVL=1 j POVL020 EQU * . =OVL ┆
0x575a…57aa (57, 0, 400) 00 88 01 7c 00 20 00 50 5c 53 54 5c 41 33 2c 41 50 4c 52 45 4c 2c 41 31 5c 53 41 56 45 20 49 4e 20 41 43 42 00 89 00 08 00 18 00 50 5c 4c 44 5c 41 32 2c 4f 56 4c 54 4c 4e 2b 53 54 4b 45 4e 44 00 89 00 2c 00 26 00 50 5c 41 44 4b 5c 41 32 2c ┆ | P ST A3,APLREL,A1 SAVE IN ACB P LD A2,OVLTLN+STKEND , & P ADK A2,┆
0x57aa…57fa 34 5c 43 41 4c 43 55 4c 41 54 45 20 53 54 41 52 54 20 4f 46 20 54 48 49 53 20 00 89 00 48 00 2a 00 50 5c 41 44 5c 41 32 2c 41 43 42 45 4e 44 2b 53 54 4b 45 4e 44 5c 4f 56 45 52 4c 41 59 20 54 41 42 4c 45 20 41 4e 44 00 89 00 72 00 28 00 50 ┆4 CALCULATE START OF THIS H * P AD A2,ACBEND+STKEND OVERLAY TABLE AND r ( P┆
0x57fa…584a 5c 53 54 5c 41 32 2c 41 50 4c 4f 56 4c 2c 41 31 5c 53 41 56 45 20 49 4e 20 43 55 52 52 45 4e 54 20 41 43 42 00 89 00 a0 00 2a 00 50 5c 4c 44 5c 41 32 2c 53 43 54 53 46 41 5c 53 45 54 20 53 54 41 52 54 20 4f 46 20 54 48 49 53 20 54 41 42 4c ┆ ST A2,APLOVL,A1 SAVE IN CURRENT ACB * P LD A2,SCTSFA SET START OF THIS TABL┆
0x584a…589a 45 20 00 89 00 cc 00 18 00 50 5c 53 54 5c 41 32 2c 43 55 52 54 41 42 2b 53 54 4b 45 4e 44 00 89 00 fa 00 06 00 50 2a 20 00 89 01 16 00 2c 00 50 2a 20 20 4c 4f 41 44 20 41 4e 44 20 52 45 4c 4f 43 41 54 45 20 44 45 53 43 52 49 50 54 4f 52 20 ┆E P ST A2,CURTAB+STKEND P* , P* LOAD AND RELOCATE DESCRIPTOR ┆
0x589a…58ea 53 45 47 4d 45 4e 54 20 00 89 01 20 00 06 00 50 2a 20 00 89 01 50 00 2a 00 50 5c 4c 44 5c 41 33 2c 44 53 45 47 53 5a 2c 41 39 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 53 45 47 4d 45 4e 54 00 89 01 5a 00 2a 00 50 5c 53 55 4b 5c 41 33 2c ┆SEGMENT P* P * P LD A3,DSEGSZ,A9 GET LENGTH OF SEGMENT Z * P SUK A3,┆
0x58ea…593a (58, 0, 400) 38 5c 44 4f 4e 27 54 20 43 4f 50 59 20 46 49 52 53 54 20 46 4f 55 52 20 57 4f 52 44 53 20 00 89 01 88 00 1c 00 50 5c 4c 44 52 5c 41 31 30 2c 41 33 5c 53 41 56 45 20 4c 45 4e 47 54 48 20 00 8a 00 26 00 32 00 50 5c 41 44 53 5c 41 33 2c 4f 56 ┆8 DON'T COPY FIRST FOUR WORDS P LDR A10,A3 SAVE LENGTH & 2 P ADS A3,OV┆
0x593a…598a 4c 54 4c 4e 2b 53 54 4b 45 4e 44 5c 41 44 44 20 4c 45 4e 47 54 48 20 54 4f 20 54 41 42 4c 45 20 41 52 45 41 00 8a 00 46 00 12 00 50 5c 4c 44 5c 41 37 2c 53 43 54 53 46 41 20 00 8a 00 7c 00 26 00 50 5c 41 44 53 5c 41 33 2c 53 43 54 53 46 41 ┆LTLN+STKEND ADD LENGTH TO TABLE AREA F P LD A7,SCTSFA | & P ADS A3,SCTSFA┆
0x598a…59da 5c 52 45 53 45 52 56 45 20 41 52 45 41 20 4e 45 45 44 45 44 00 8a 00 92 00 0e 00 50 5c 4c 44 52 5c 41 38 2c 41 37 00 8a 00 bc 00 16 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 4f 56 4c 3d 32 20 00 8a 00 ce 00 2e 00 50 5c 41 4e 4b 4c 5c 41 38 ┆ RESERVE AREA NEEDED P LDR A8,A7 P IFT MMUPAG+OVL=2 . P ANKL A8┆
0x59da…5a2a 2c 2f 46 46 46 5c 49 53 4f 4c 41 54 45 20 4c 4f 47 49 43 41 4c 20 4c 4f 41 44 20 41 44 44 52 45 53 53 00 8a 00 e8 00 12 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 46 30 30 30 00 8a 01 1a 00 2c 00 50 5c 53 52 4c 5c 41 37 2c 36 5c 43 4f 52 52 45 53 ┆,/FFF ISOLATE LOGICAL LOAD ADDRESS P ANKL A7,/F000 , P SRL A7,6 CORRES┆
0x5a2a…5a7a 50 4f 4e 44 49 4e 47 20 50 48 59 53 49 43 41 4c 20 41 44 44 52 45 53 53 00 8a 01 30 00 20 00 50 5c 4c 44 4b 5c 41 35 2c 30 5c 4d 4d 55 20 45 4e 54 52 59 20 54 4f 20 45 44 49 54 20 00 8a 01 60 00 12 00 50 5c 41 44 4b 4c 5c 41 33 2c 2f 46 46 ┆PONDING PHYSICAL ADDRESS 0 P LDK A5,0 MMU ENTRY TO EDIT ` P ADKL A3,/FF┆
0x5a7a…5aca (59, 0, 400) 45 20 00 8a 01 84 00 28 00 50 5c 53 52 4c 5c 41 33 2c 31 32 5c 41 4e 44 20 4e 4f 20 4f 46 20 45 4e 54 52 49 45 53 20 54 4f 20 45 44 49 54 00 8b 00 0a 00 28 00 50 5c 43 46 5c 41 31 34 2c 4d 4d 55 45 44 54 5c 55 50 44 41 54 45 20 4d 4d 55 20 ┆E ( P SRL A3,12 AND NO OF ENTRIES TO EDIT ( P CF A14,MMUEDT UPDATE MMU ┆
0x5aca…5b1a 52 45 47 49 53 54 45 52 53 20 00 8b 00 36 00 08 00 50 5c 58 49 46 00 8b 00 62 00 0e 00 50 5c 49 46 54 5c 4f 56 4c 3d 31 00 8b 00 6e 00 1e 00 50 5c 53 54 5c 41 38 2c 4c 4c 44 41 44 52 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 00 8b 00 80 00 2c ┆REGISTERS 6 P XIF b P IFT OVL=1 n P ST A8,LLDADR+STKEND SAVE ,┆
0x5b1a…5b6a 00 50 5c 4c 44 5c 41 38 2c 41 50 4c 52 45 4c 2c 41 31 5c 47 45 54 20 52 45 4c 4f 43 41 54 49 4f 4e 20 43 4f 4e 53 54 41 4e 54 00 8b 00 a2 00 36 00 50 5c 43 4d 5c 46 53 54 53 45 43 2b 53 54 4b 45 4e 44 5c 53 4b 49 50 20 46 4f 55 52 20 46 49 ┆ P LD A8,APLREL,A1 GET RELOCATION CONSTANT 6 P CM FSTSEC+STKEND SKIP FOUR FI┆
0x5b6a…5bba 52 53 54 20 57 4f 52 44 53 20 49 4e 20 53 45 43 54 4f 52 20 00 8b 00 d2 00 10 00 50 5c 4c 44 4b 5c 41 37 2c 32 34 30 20 00 8b 01 0c 00 30 00 50 5c 53 54 5c 41 37 2c 4c 4f 44 3a 31 30 5c 32 34 30 20 43 4f 44 45 20 57 4f 52 44 53 20 49 4e 20 ┆RST WORDS IN SECTOR P LDK A7,240 0 P ST A7,LOD:10 240 CODE WORDS IN ┆
0x5bba…5c0a 45 41 43 48 20 53 45 43 54 4f 52 20 00 8b 01 20 00 2c 00 50 5c 43 46 5c 41 31 34 2c 4c 4f 44 43 4f 4d 5c 52 45 41 44 20 41 4e 44 20 52 45 4c 4f 43 41 54 45 20 53 45 47 4d 45 4e 54 00 8b 01 54 00 34 00 50 5c 4c 44 5c 41 31 2c 43 55 52 41 50 ┆EACH SECTOR , P CF A14,LODCOM READ AND RELOCATE SEGMENT T 4 P LD A1,CURAP┆
0x5c0a…5c5a (60, 0, 400) 4c 2b 53 54 4b 45 4e 44 5c 52 45 53 54 4f 52 45 20 43 55 52 52 45 4e 54 20 41 43 42 20 41 44 44 52 45 53 53 00 8b 01 84 00 28 00 50 5c 4c 44 5c 41 32 2c 43 55 52 54 41 42 2b 53 54 4b 45 4e 44 5c 47 45 54 20 54 41 42 4c 45 20 53 54 41 52 54 ┆L+STKEND RESTORE CURRENT ACB ADDRESS ( P LD A2,CURTAB+STKEND GET TABLE START┆
0x5c5a…5caa 00 8c 00 2c 00 12 00 50 5c 4c 44 5c 41 33 2c 53 43 54 49 50 4c 20 00 8c 00 58 00 26 00 50 5c 53 54 52 5c 41 33 2c 41 32 5c 46 49 4c 45 20 43 4f 44 45 20 46 4f 52 20 4f 56 45 52 4c 41 59 53 20 00 8c 00 6e 00 22 00 50 5c 4c 44 5c 41 33 2c 32 ┆ , P LD A3,SCTIPL X & P STR A3,A2 FILE CODE FOR OVERLAYS n " P LD A3,2┆
0x5caa…5cfa 2c 41 32 5c 41 4e 44 20 4e 4f 20 4f 46 20 4f 56 45 52 4c 41 59 53 00 8c 00 98 00 2c 00 50 5c 41 44 4b 5c 41 32 2c 34 5c 41 44 56 41 4e 43 45 20 54 4f 20 43 55 52 52 45 4e 54 20 4c 4f 41 44 20 42 4c 4f 43 4b 20 00 8c 00 be 00 34 00 50 5c 4c ┆,A2 AND NO OF OVERLAYS , P ADK A2,4 ADVANCE TO CURRENT LOAD BLOCK 4 P L┆
0x5cfa…5d4a 44 5c 41 34 2c 57 49 4e 44 4f 57 2b 53 54 4b 45 4e 44 5c 4f 4e 4c 59 20 54 59 50 45 20 4f 20 4f 56 45 52 4c 41 59 53 53 3f 5c 3d 4f 56 4c 00 8c 00 ee 00 1c 00 50 5c 52 46 28 5a 29 5c 4f 56 4c 30 39 35 5c 59 45 53 21 5c 3d 4f 56 4c 20 00 8c ┆D A4,WINDOW+STKEND ONLY TYPE O OVERLAYSS? =OVL P RF(Z) OVL095 YES! =OVL ┆
0x5d4a…5d9a 01 26 00 10 00 50 4f 56 4c 30 36 35 5c 45 51 55 5c 2a 00 8c 01 46 00 32 00 50 5c 53 54 5c 41 33 2c 54 4e 42 52 53 47 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 4e 42 52 20 4f 46 20 4f 56 45 52 4c 41 59 53 20 4c 45 46 54 00 8c 01 5a 00 28 00 50 ┆ & POVL065 EQU * F 2 P ST A3,TNBRSG+STKEND SAVE NBR OF OVERLAYS LEFT Z ( P┆