|
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: 20516 (0x5024)
Notes: pts_type(SC)
Names: »DRGP01.SC«
└─⟦3a2bec7de⟧ Bits:30009687 Philips computer tape "600313"
└─⟦this⟧ »M:821/DRGP01.SC«
└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
└─⟦this⟧ »M:92D1/DRGP01.SC«
└─⟦726a6c4ca⟧ Bits:30009685 Philips computer tape "600309"
└─⟦this⟧ »M:92D2/DRGP01.SC«
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
└─⟦this⟧ »M:261/DRGP01.SC«
IDENT DRGP01 REL 9.2 80-01-03 870105040920 =4,MMU BUFFER CONDITION REL 9.2 79-11-16 =3,RB - ABL REL 9.1 79-05-23 UPDATE PRR 9.1 - REL 9.1 PRR 9.1 79-04-25 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 DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C G P ACTIVATION PART * * I H G P INTERRUPT HANDLER * * R C G P RECOVERY ROUTINE * * E C H O G P ECHO FUNCTIONS * 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 DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * * ************************ * DWT PARAMETERS * ************************ * * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTOR ORDER EXTRN DWTA3 SAVE AREA A3 * EJECT * * ************* * CONSTANTS * ************* * * SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY CR EQU /0D CARRIAGE RETURN LF EQU /0A LINE FEED FFED EQU /0C FORM FEED SPACE EQU /20 SPACE PROUT EQU /04 PAPER OUT OR READY SWITCH OFF * EJECT * * ************************************** * CONDITIONAL ASSEMBLY * ************************************** * * IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT * FUNCTION BY SETTING X:A = 0 * X:A EQU 1 CROOM EQU 0 * * ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:B=1 * X:B EQU 0 TRETON EQU 0 * * ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE * INCLUDED IN THE DRIVER BY SETTING X:C=1 * X:C EQU 0 FJOTON EQU 0 * * IT IS POSSIBLE TO EXCLUDE ECHOING OF * AN EXTRA SPACE AFTER EACH CHARACTER * BY SETTING X:D=0 * X:D EQU 0 COSPAC EQU 0 * 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:E=0. * X:E EQU 0 EORECH EQU 0 * * SUPPRESSING OF SPACES IN RIGHT HAND OF LINE * BY SETTING X:F=1 * X:F EQU 0 SUPSPA EQU 1 * * END OF REQUEST IN SITUATIONS WHERE * THE SELECTOR UNIT OR PRINTER HARDWARE * IS INACTIVE CAN BE CHOSEN BY SETTING * THE CONSTANT RECEND = 1 X:G EQU 0 RECEND EQU 0 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * MMU BUFFER SIZE * X:H EQU 120 DVBLEN EQU 162 * =1 * SPECIAL CONDITION FOR ABIS PRINTER =1 ABIS EQU 0 =1 EJECT * * ******************************** * DWT-DISPLACEMENT * ******************************** * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTAP EQU START+/12 HEAD POSITION POINTER * ************************************** * 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 0 ABORT ROUTINE ADDRESS DATA IHGP INTERRUPT HANDLER DATA RCGP RECOVERY ROUTINE DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE EJECT * * A C G P * * ACGP = ACTIVATION DRIVER GENERAL PRINTER * * ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE * IS SET IF PAPER OUT OR READY SWITCH OFF. * RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM * CHANNEL UNIT. * * ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER * FROM ECB-BUFFER * * ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM * ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. * ACGP EQU * LDK A2,STX START OF MESSAGE LDR A3,A7 =1 RF(Z) ACGP10 ORDER 0 =2 SUK A3,5 =1 RF(E) ACGP09 ORDER 5 =1 SUK A3,1 =1 ABL(NE) DISIOE I/O REQUEST ERROR =1 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 RF(E) ACGP06 CONTROL CHAR 2B =1 CF A5,OUTPUT SEND STX =1 LDK A2,CR =1 CF A5,OUTPUT =1 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 LDK A2,LF =1 ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 ST A1,DWTAP,A6 =1 ACGP06 LDK A3,2 START BUFFER INDEX =1 ACGP09 CF A5,OUTPUT =1 RF ACGP19 =1 EJECT =2 * =2 * ORDER 00: TEST =2 * IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 * =2 ACGP10 LDK A2,2 SEND CHAR /02 =2 CF A5,OUTPUT =2 LDK A2,0 SEND CHAR /00=END OF TEST =2 CF A5,OUTPUT =2 RF AGP410 =2 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACGP17 CF A5,OUTPUT ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING ACGP19 EQU * LDKL A4,/400 INDICATE LINE FEED DONE ORS A4,DWTST,A6 IFT SUPSPA=1 CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER XIF LDK A4,0 ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER? RF(NP) AGP400 YES LDR A1,A2 SUK A7,5 ORDER 5? RF(E) ACGP24 BASIC WRITE SUK A1,9 HARDWARE TABULATION ? RF(NE) ACGP22 ST A4,DWTAP,A6 RESET HEAD POSITION POINTER RB ACGP17 ACGP22 SUK A1,8 TABULATION CHARACTER ? RF(E) ACGP40 IFT 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 DWTST,A6 SET POS LTR.TO 0 CM DWTAP,A6 RESET HEAD POS.POIINTER ACGP26 ADK A1,3 RB(NZ) ACGP17 NOT LINE FEED SUK A1,1 ADS A1,DWTST,A6 DECREMENT POS COUNTER RB ACGP17 EJECT * * CODE CHECK ERROR * ACGP30 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ACGP20 EJECT * * TABULATION * ACGP40 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ACGP44 ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ACGP43 ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(NP) ACGP20 LDR A4,A2 ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE ACGP46 CF A5,OUTPUT IM DWTST,A6 INCREMENT BUFFER INDEX SUK A4,1 RB(P) ACGP45 LDR A3,A3 RECOVERY? RB(NE) ACGP20 SC A4,DWTBC,A6 RESET POSITION POINTER LDK A3,2 START BUFFER INDEX RB ACGP19 EJECT * * ROOMLESS POINT * AGP100 EQU * * IFT CROOM=1 * CF A15,GETCHR GET CHARACTER TO SEND ANK A2,/F LC A2,ROMTAB,A2 TRANSFORM * XIF * * IFF CROOM=1 * ANK A2,/7F * XIF * RB ACGP17 EJECT * * * SEND LAST DUMMY , LOAD A1 WITH * RETURN CODE AND END I/O * AGP400 EQU * LDK A2,ETB END OF MESSAGE CF A5,OUTPUT SEND AGP410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND 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 ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER AGP430 EQU * LD A3,DWTA3,A6 ST A3,6,A8 EFF. LENGTH RB AGP415 =1 EJECT * * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RTN A15 IFT SUPSPA=1 EJECT * * * SKIPSP = SUBROTINE TO SKIP SPACES * IN END OF ECB-BUFFER. * REQUESTED LENGTH IN ECB IS UPDATED. * A1,A2,A4 - WORK REG * SKIPSP EQU * LD A1,2,A8 GET BUFFER ADDRESS (BA) LD A2,4,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET ADD END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR CCK A4,/2020 SPACE ? RF(NE) SKIP20 NO SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP20 CWK A2,4 RF(NG) SKIP30 RL < 5 LC A4,-2,A1 GET CHAR CCK A4,/1111 TABULATION CHAR ? RF(NE) SKIP30 NO SUK A1,2 DECR BA SUK A2,2 DECR RL RB SKIP07 GET NEXT * SKIP30 ST A2,4,A8 STORE NEW RL RTN A15 XIF EJECT * * I H G P * * INTERRUPT * IHGP EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHGP10 LDR A7,A7 ORDER 0? RF(Z) IHGP20 =2 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? IFT RECEND=0 RB(NZ) EXIT XIF IFT RECEND=1 RB(NZ) AGP430 XIF IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 IHGP20 LDR A1,A1 =2 RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 RB ENDIO =2 EJECT * * E C H O G P * * ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE * ECHOGP EQU * LDK A4,COSPAC LDR A7,A7 EOR? RF(N) ECGP17 YES * IFT EORECH=0 * SUK A2,/80 EOR-CHARACTER RF(NN) ECGP20 YES ADK A2,/80 * XIF * LDR A1,A2 ANK A1,/7F SUK A1,/8 RF(E) ECGP40 BACKSPACE SUK A1,/2 LINE FEED =1 RF(E) ECGP10 YES =1 SUK A1,/3 CR =1 RF(E) ECGP10 YES =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 ECGP10 CF A5,OUTPUT SEND CHARACTER IM DWTST,A6 UPDATE POSITION COUNTER SUK A4,1 READY ? RF(N) ECGP20 YES RF(P) ECGP60 NO, GO TO CLEAR SECTION * IFT COSPAC=1 * LDK A2,SPACE NO SEND SPACE RB ECGP10 * XIF * ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER ECGP20 ABL ECHRTN RETURN TO KEYBOARD EJECT * * BACKSPACE * ECGP40 EQU * LDK A2,GPBSP BACKSPACE CHARACTER RB ECGP10 * * CANCEL * ECGP50 EQU * LDK A2,GPCLR CLEAR CHARACTER LDK A4,3 RB ECGP10 ECGP60 LDK A2,LF LINE FEED LC A3,DWTBC,A6 ANK A3,/FF ECGP70 CF A5,OUTPUT SEND CHAR. LDK A2,/08 BACKSPACE SUK A3,1 RB(NN) ECGP70 LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RB ECGP20 EJECT * * R C G P * * RCGP = RECOVERY ROUTINE GENERAL PRINTER * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * ON ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCGP EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LD A2,DWTST,A6 BUSY ? RB(N) EXIT NO LDK A2,SOH RESET PRINT BUFFER CODE CF A5,OUTPUT SEND IT CWK A7,5 RF(E) RCGP10 CWK A7,6 ORDER 6? RF(E) RCGP05 YES CWK A7,0 ORDER 0? ABL(E) ENDIO =3 ABL EXIT =3 RCGP05 EQU * LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD ANK A2,/4 LINE FEED DONE ? ABL(E) ACGP NO LDK A2,SPACE CF A5,OUTPUT SEND SPACE LDK A2,STX CF A5,OUTPUT SEND STX LDK A2,CR CARRIAGE RETURN LDK A3,0 LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND ABL ACGP46 RCGP10 LDK A1,TPERR SET RETURN CODE ABL AGP430 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP01 REL 9.2 80-01-03 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060 Head {h00=0x001e, h01=0x0050, text=» =4,MMU BUFFER CONDITION«, t00=0x0000, t01=0x0042}
0x0060…007c Head {h00=0x0018, h01=0x0050, text=» REL 9.2 79-11-16 «, t00=0x0000, t01=0x0064}
0x007c…0092 Head {h00=0x0012, h01=0x0050, text=» =3,RB - ABL«, t00=0x0000, t01=0x0080}
0x0092…00ae Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x0096}
0x00ae…00d2 Head {h00=0x0020, h01=0x0050, text=» UPDATE PRR 9.1 - REL 9.1 «, t00=0x0000, t01=0x00b2}
0x00d2…00ee Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-25 «, t00=0x0000, t01=0x00d6}
0x00ee…010a Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x00f2}
0x010a…0134 Head {h00=0x0026, h01=0x0050, text=» =1-2,GEN UPDATE TO 8.2+ STATUS «, t00=0x0000, t01=0x010e}
0x0134…0150 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 79-03-16 «, t00=0x0000, t01=0x0138}
0x0150…0174 Head {h00=0x0020, h01=0x0050, text=» =2,IMPROV. OF TEST ORDER «, t00=0x0000, t01=0x0154}
0x0174…0190 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-11-19 «, t00=0x0000, t01=0x0178}
0x0190…01b6 (1, 0, 400) Head {h00=0x0022, h01=0x0050, text=» =1,ECHO OF LF AND CR, ABIS «, t00=0x0001, t01=0x0004}
0x01b6…01d2 Head {h00=0x0018, h01=0x0050, text=» REL 8.2 78-09-15 «, t00=0x0001, t01=0x002a}
0x01d2…01dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0046}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…0220 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x005a}
0x0220…022a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0094}
0x022a…0252 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x009e}
0x0252…025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c6}
0x025c…0288 Head {h00=0x0028, h01=0x0050, text=»* DRGP01 = DRIVER GENERAL PRINTER «, t00=0x0001, t01=0x00d0}
0x0288…0292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0292…029c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0124}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02fe Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0001, t01=0x0138}
0x02fe…0308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0172}
0x0308…0312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017c}
0x0312…034c Head {h00=0x0036, h01=0x0050, text=»* THIS DRIVER HANDLES GENERAL TERMINAL PRINTER «, t00=0x0001, t01=0x0186}
0x034c…038c Head {h00=0x003c, h01=0x0050, text=»* PTS 6321 CONNECTED TO THE SYSTEM VIA CHLT OR CHRT. «, t00=0x0002, t01=0x0030}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…03d2 Head {h00=0x0038, h01=0x0050, text=»* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO «, t00=0x0002, t01=0x007a}
0x03d2…040c Head {h00=0x0036, h01=0x0050, text=»* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE«, t00=0x0002, t01=0x00b6}
0x040c…0446 Head {h00=0x0036, h01=0x0050, text=»* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY-«, t00=0x0002, t01=0x00f0}
0x0446…047e Head {h00=0x0034, h01=0x0050, text=»* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD«, t00=0x0002, t01=0x012a}
0x047e…049a Head {h00=0x0018, h01=0x0050, text=»* DRIVER DRKB01. «, t00=0x0002, t01=0x0162}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0188}
0x04ae…04e2 (3, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x0004}
0x04e2…04ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0038}
0x04ec…0516 Head {h00=0x0026, h01=0x0050, text=»* A C G P ACTIVATION PART«, t00=0x0003, t01=0x0042}
0x0516…0520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0520…054c Head {h00=0x0028, h01=0x0050, text=»* I H G P INTERRUPT HANDLER«, t00=0x0003, t01=0x0076}
0x054c…0556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a2}
0x0556…0582 Head {h00=0x0028, h01=0x0050, text=»* R C G P RECOVERY ROUTINE «, t00=0x0003, t01=0x00ac}
0x0582…058c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058c…05b6 Head {h00=0x0026, h01=0x0050, text=»* E C H O G P ECHO FUNCTIONS «, t00=0x0003, t01=0x00e2}
0x05b6…05c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010c}
0x05c0…05ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0116}
0x05ce…05d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0124}
0x05d8…0606 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0003, t01=0x012e}
0x0606…0610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0610…0632 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0003, t01=0x0166}
0x0632…0654 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0003, t01=0x0188}
0x0654…067a Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x001a}
0x067a…0684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0684…06a6 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0004, t01=0x004a}
0x06a6…06b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b0…06d6 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x0076}
0x06d6…0702 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x009c}
0x0702…072a Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0004, t01=0x00c8}
0x072a…0752 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0004, t01=0x00f0}
0x0752…0778 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0004, t01=0x0118}
0x0778…079e Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0004, t01=0x013e}
0x079e…07be Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0004, t01=0x0164}
0x07be…07e4 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0004, t01=0x0184}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…07f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0024}
0x07f8…0816 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x002e}
0x0816…0820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0820…085e Head {h00=0x003a, h01=0x0050, text=»* THE CODES FOR ECHO OF BACKSPACE (GPBSP) AND CLEAR«, t00=0x0005, t01=0x0056}
0x085e…088a Head {h00=0x0028, h01=0x0050, text=»* (GPCLR) KEYS SHOULD BE DEFINED.«, t00=0x0005, t01=0x0094}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08d0 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS «, t00=0x0005, t01=0x00ca}
0x08d0…0904 Head {h00=0x0030, h01=0x0050, text=»* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. «, t00=0x0005, t01=0x0106}
0x0904…0922 Head {h00=0x001a, h01=0x0050, text=»* --ROOMLESS POINT «, t00=0x0005, t01=0x013a}
0x0922…0960 Head {h00=0x003a, h01=0x0050, text=»* --ACCEPTANCE OF SPECIAL CHARACTER /13,/14 OR BOTH«, t00=0x0005, t01=0x0158}
0x0960…096a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0008}
0x096a…09b2 Head {h00=0x0044, h01=0x0050, text=»* --EXCLUDE ECHOING OF AN EXTRA SPACE BETWEEN EACH CHARACTER «, t00=0x0006, t01=0x0012}
0x09b2…09ec Head {h00=0x0036, h01=0x0050, text=»* --SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0006, t01=0x005a}
0x09ec…0a1a Head {h00=0x002a, h01=0x0050, text=»** --SUPPRESION OF TRAILING BLANKS «, t00=0x0006, t01=0x0094}
0x0a1a…0a5e Head {h00=0x0040, h01=0x0050, text=»* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE«, t00=0x0006, t01=0x00c2}
0x0a5e…0a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0106}
0x0a68…0aa2 Head {h00=0x0036, h01=0x0050, text=»* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS«, t00=0x0006, t01=0x0110}
0x0aa2…0aec Head {h00=0x0046, h01=0x0050, text=»* IS DEFINED IN A SPECIAL TABLE. STANDARD IS SHB CHARACTER SET «, t00=0x0006, t01=0x014a}
0x0aec…0afa (7, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0004}
0x0afa…0b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b04…0b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b0e…0b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b18…0b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b22…0b36 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x003a}
0x0b36…0b4a Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x004e}
0x0b4a…0b5e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0062}
0x0b5e…0b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0076}
0x0b68…0b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0080}
0x0b72…0b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7c…0ba8 Head {h00=0x0028, h01=0x0050, text=» ENTRY GPAD ADDRESS TO ADDRESSBLOCK «, t00=0x0007, t01=0x0094}
0x0ba8…0bdc Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0007, t01=0x00c0}
0x0bdc…0be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f4}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c04…0c36 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x011c}
0x0c36…0c68 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0007, t01=0x014e}
0x0c68…0c9a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0180}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0cae…0cd6 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x0036}
0x0cd6…0d08 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x005e}
0x0d08…0d28 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0008, t01=0x0090}
0x0d28…0d6a Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0008, t01=0x00b0}
0x0d6a…0d88 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0008, t01=0x00f2}
0x0d88…0dba Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0008, t01=0x0110}
0x0dba…0dee Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0008, t01=0x0142}
0x0dee…0e22 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0008, t01=0x0176}
0x0e22…0e30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x001a}
0x0e30…0e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3a…0e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e44…0e64 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x003c}
0x0e64…0e84 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x005c}
0x0e84…0ea4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x007c}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009c}
0x0eae…0eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a6}
0x0eb8…0ed4 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x00b0}
0x0ed4…0ef6 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0009, t01=0x00cc}
0x0ef6…0f10 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x00ee}
0x0f10…0f32 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0009, t01=0x0108}
0x0f32…0f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3c…0f4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0134}
0x0f4a…0f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014c}
0x0f5e…0f74 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0156}
0x0f74…0f8a Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x016c}
0x0f8a…0fa0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0182}
0x0fa0…0faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0faa…0fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb4…0ff2 Head {h00=0x003a, h01=0x0050, text=»SOH EQU /01 RESET PRINT BUFFER REMOTE AND LOCAL DUMMY «, t00=0x000a, t01=0x001c}
0x0ff2…1016 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000a, t01=0x005a}
0x1016…1038 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000a, t01=0x007e}
0x1038…1056 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000a, t01=0x00a0}
0x1056…1078 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000a, t01=0x00be}
0x1078…1094 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000a, t01=0x00e0}
0x1094…10b2 Head {h00=0x001a, h01=0x0050, text=»FFED EQU /0C FORM FEED«, t00=0x000a, t01=0x00fc}
0x10b2…10ce Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000a, t01=0x011a}
0x10ce…1102 Head {h00=0x0030, h01=0x0050, text=»PROUT EQU /04 PAPER OUT OR READY SWITCH OFF «, t00=0x000a, t01=0x0136}
0x1102…110c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016a}
0x110c…111a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0174}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1124…112e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x112e…115c Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000b, t01=0x0008}
0x115c…118a Head {h00=0x002a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x0036}
0x118a…11b8 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000b, t01=0x0064}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c2…11f8 Head {h00=0x0032, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT «, t00=0x000b, t01=0x009c}
0x11f8…1220 Head {h00=0x0024, h01=0x0050, text=»* FUNCTION BY SETTING X:A = 0«, t00=0x000b, t01=0x00d2}
0x1220…122a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00fa}
0x122a…123c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000b, t01=0x0104}
0x123c…1250 Head {h00=0x0010, h01=0x0050, text=»CROOM EQU 0 «, t00=0x000b, t01=0x0116}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x125a…1292 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000b, t01=0x0134}
0x1292…12c6 Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000b, t01=0x016c}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d0…12e2 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x001a}
0x12e2…12f6 Head {h00=0x0010, h01=0x0050, text=»TRETON EQU 0«, t00=0x000c, t01=0x002c}
0x12f6…1300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1300…1338 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000c, t01=0x004a}
0x1338…136c Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000c, t01=0x0082}
0x136c…1376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b6}
0x1376…1388 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x00c0}
0x1388…139c Head {h00=0x0010, h01=0x0050, text=»FJOTON EQU 0«, t00=0x000c, t01=0x00d2}
0x139c…13a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e6}
0x13a6…13d8 Head {h00=0x002e, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000c, t01=0x00f0}
0x13d8…1408 Head {h00=0x002c, h01=0x0050, text=»* AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000c, t01=0x0122}
0x1408…1424 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:D=0«, t00=0x000c, t01=0x0152}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x142e…1440 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x0178}
0x1440…1454 Head {h00=0x0010, h01=0x0050, text=»COSPAC EQU 0«, t00=0x000c, t01=0x018a}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000e}
0x145e…146c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0018}
0x146c…1476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0026}
0x1476…1480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0030}
0x1480…14bc Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000d, t01=0x003a}
0x14bc…14f8 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000d, t01=0x0076}
0x14f8…1534 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.«, t00=0x000d, t01=0x00b2}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x153e…1550 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x00f8}
0x1550…1564 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000d, t01=0x010a}
0x1564…156e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x156e…15a6 Head {h00=0x0034, h01=0x0050, text=»* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000d, t01=0x0128}
0x15a6…15c4 Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:F=1 «, t00=0x000d, t01=0x0160}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017e}
0x15ce…15e0 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000d, t01=0x0188}
0x15e0…15f4 Head {h00=0x0010, h01=0x0050, text=»SUPSPA EQU 1«, t00=0x000e, t01=0x000a}
0x15f4…15fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001e}
0x15fe…162a Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000e, t01=0x0028}
0x162a…165a Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000e, t01=0x0054}
0x165a…1688 Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000e, t01=0x0084}
0x1688…16aa Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x000e, t01=0x00b2}
0x16aa…16bc Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000e, t01=0x00d4}
0x16bc…16d0 Head {h00=0x0010, h01=0x0050, text=»RECEND EQU 0«, t00=0x000e, t01=0x00e6}
0x16d0…16da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fa}
0x16da…170c Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0104}
0x170c…173a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x0136}
0x173a…1744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1744…1758 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000e, t01=0x016e}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0182}
0x1762…176c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018c}
0x176c…17a6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000f, t01=0x0008}
0x17a6…17d8 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000f, t01=0x0042}
0x17d8…17e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17e2…17f6 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000f, t01=0x007e}
0x17f6…1800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1800…181c Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x009c}
0x181c…1826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x1826…183a Head {h00=0x0010, h01=0x0050, text=»X:H EQU 120 «, t00=0x000f, t01=0x00c2}
0x183a…1850 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 162«, t00=0x000f, t01=0x00d6}
0x1850…1860 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x000f, t01=0x00ec}
0x1860…1890 Head {h00=0x002c, h01=0x0050, text=»* SPECIAL CONDITION FOR ABIS PRINTER =1«, t00=0x000f, t01=0x00fc}
0x1890…18a6 Head {h00=0x0012, h01=0x0050, text=»ABIS EQU 0 =1«, t00=0x000f, t01=0x012c}
0x18a6…18b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0142}
0x18b4…18be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0150}
0x18be…18c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015a}
0x18c8…18f0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x000f, t01=0x0164}
0x18f0…1918 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x000f, t01=0x018c}
0x1918…1940 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0010, t01=0x0024}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x194a…1954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1954…1988 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0010, t01=0x0060}
0x1988…1992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1992…19a8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0010, t01=0x009e}
0x19a8…19c0 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0010, t01=0x00b4}
0x19c0…19cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00cc}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d8}
0x19d6…19ec Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00e2}
0x19ec…1a06 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0010, t01=0x00f8}
0x1a06…1a12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0112}
0x1a12…1a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011e}
0x1a1c…1a4e Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0010, t01=0x0128}
0x1a4e…1a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015a}
0x1a58…1a86 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0010, t01=0x0164}
0x1a86…1ab6 (17, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* SPECIAL KEYS FOR ECHO FUNCTION * «, t00=0x0011, t01=0x0004}
0x1ab6…1ae4 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0011, t01=0x0034}
0x1ae4…1aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0062}
0x1aee…1b0e Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x0011, t01=0x006c}
0x1b0e…1b2a Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x0011, t01=0x008c}
0x1b2a…1b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a8}
0x1b34…1b50 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00b2}
0x1b50…1b6c Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x0011, t01=0x00ce}
0x1b6c…1b88 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00ea}
0x1b88…1b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0106}
0x1b92…1bc6 Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x0011, t01=0x0110}
0x1bc6…1bec Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0011, t01=0x0144}
0x1bec…1c12 Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0011, t01=0x016a}
0x1c12…1c3e Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x0011, t01=0x0190}
0x1c3e…1c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002c}
0x1c48…1c56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0036}
0x1c56…1c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0044}
0x1c60…1c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004e}
0x1c6a…1c7c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0058}
0x1c7c…1c8e Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0012, t01=0x006a}
0x1c8e…1ca0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x007c}
0x1ca0…1caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1caa…1cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0098}
0x1cb4…1cc8 Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0012, t01=0x00a2}
0x1cc8…1cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b6}
0x1cd2…1ce6 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0012, t01=0x00c0}
0x1ce6…1d14 Head {h00=0x002a, h01=0x0050, text=» TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x0012, t01=0x00d4}
0x1d14…1d40 Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0012, t01=0x0102}
0x1d40…1d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012e}
0x1d4a…1d56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0138}
0x1d56…1d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0144}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0158}
0x1d74…1d9a Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN MMU BUFFER LENGTH«, t00=0x0012, t01=0x0162}
0x1d9a…1db6 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0012, t01=0x0188}
0x1db6…1dd6 Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0014}
0x1dd6…1dfa Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x0013, t01=0x0034}
0x1dfa…1e20 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0013, t01=0x0058}
0x1e20…1e44 Head {h00=0x0020, h01=0x0050, text=» DATA IHGP INTERRUPT HANDLER«, t00=0x0013, t01=0x007e}
0x1e44…1e68 Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0013, t01=0x00a2}
0x1e68…1e9a Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0013, t01=0x00c6}
0x1e9a…1ea8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00f8}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0106}
0x1eb2…1ec6 Head {h00=0x0010, h01=0x0050, text=»* A C G P«, t00=0x0013, t01=0x0110}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0124}
0x1ed0…1f06 Head {h00=0x0032, h01=0x0050, text=»* ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0013, t01=0x012e}
0x1f06…1f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0164}
0x1f10…1f5c Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0013, t01=0x016e}
0x1f5c…1f9c Head {h00=0x003c, h01=0x0050, text=»* IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0014, t01=0x002a}
0x1f9c…1fe8 Head {h00=0x0048, h01=0x0050, text=»* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0014, t01=0x006a}
0x1fe8…200c Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT.«, t00=0x0014, t01=0x00b6}
0x200c…2016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x2016…2058 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0014, t01=0x00e4}
0x2058…207e Head {h00=0x0022, h01=0x0050, text=»* FROM ECB-BUFFER«, t00=0x0014, t01=0x0126}
0x207e…2088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014c}
0x2088…20d2 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0014, t01=0x0156}
0x20d2…2112 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x0010}
0x2112…211c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x211c…212e Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0015, t01=0x005a}
0x212e…2152 Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0015, t01=0x006c}
0x2152…2168 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A7 =1«, t00=0x0015, t01=0x0090}
0x2168…2188 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ACGP10 ORDER 0 =2«, t00=0x0015, t01=0x00a6}
0x2188…219e Head {h00=0x0012, h01=0x0050, text=» SUK A3,5 =1 «, t00=0x0015, t01=0x00c6}
0x219e…21be Head {h00=0x001c, h01=0x0050, text=» RF(E) ACGP09 ORDER 5 =1«, t00=0x0015, t01=0x00dc}
0x21be…21d4 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 =1 «, t00=0x0015, t01=0x00fc}
0x21d4…2200 Head {h00=0x0028, h01=0x0050, text=» ABL(NE) DISIOE I/O REQUEST ERROR =1«, t00=0x0015, t01=0x0112}
0x2200…222e Head {h00=0x002a, h01=0x0050, text=» LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 «, t00=0x0015, t01=0x013e}
0x222e…2248 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACGP01 =1 «, t00=0x0015, t01=0x016c}
0x2248…2272 Head {h00=0x0026, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS =1 «, t00=0x0015, t01=0x0186}
0x2272…229e Head {h00=0x0028, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER =1«, t00=0x0016, t01=0x0020}
0x229e…22b6 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =1 «, t00=0x0016, t01=0x004c}
0x22b6…22d4 Head {h00=0x001a, h01=0x0050, text=»ACGP01 SUK A3,/2B =1 «, t00=0x0016, t01=0x0064}
0x22d4…22fc Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP06 CONTROL CHAR 2B =1«, t00=0x0016, t01=0x0082}
0x22fc…231e Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND STX =1 «, t00=0x0016, t01=0x00aa}
0x231e…2334 Head {h00=0x0012, h01=0x0050, text=» LDK A2,CR =1«, t00=0x0016, t01=0x00cc}
0x2334…234e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0016, t01=0x00e2}
0x234e…2366 Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0016, t01=0x00fc}
0x2366…237e Head {h00=0x0014, h01=0x0050, text=» LDK A2,FFED =1«, t00=0x0016, t01=0x0114}
0x237e…239a Head {h00=0x0018, h01=0x0050, text=» CWK A3,/31-/2B =1 «, t00=0x0016, t01=0x012c}
0x239a…23c2 Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP03 CONTROL CHAR 31 =1«, t00=0x0016, t01=0x0148}
0x23c2…23d4 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0016, t01=0x0170}
0x23d4…23ea Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0016, t01=0x0182}
0x23ea…2406 Head {h00=0x0018, h01=0x0050, text=» SUK A3,/30-/2B =1 «, t00=0x0017, t01=0x0008}
0x2406…2434 Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 «, t00=0x0017, t01=0x0024}
0x2434…244e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0017, t01=0x0052}
0x244e…2464 Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0017, t01=0x006c}
0x2464…2494 Head {h00=0x002c, h01=0x0050, text=»ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1«, t00=0x0017, t01=0x0082}
0x2494…24b0 Head {h00=0x0018, h01=0x0050, text=» ST A1,DWTAP,A6 =1 «, t00=0x0017, t01=0x00b2}
0x24b0…24de Head {h00=0x002a, h01=0x0050, text=»ACGP06 LDK A3,2 START BUFFER INDEX =1 «, t00=0x0017, t01=0x00ce}
0x24de…24fe Head {h00=0x001c, h01=0x0050, text=»ACGP09 CF A5,OUTPUT =1 «, t00=0x0017, t01=0x00fc}
0x24fe…2514 Head {h00=0x0012, h01=0x0050, text=» RF ACGP19 =1«, t00=0x0017, t01=0x011c}
0x2514…2528 Head {h00=0x0010, h01=0x0050, text=» EJECT =2 «, t00=0x0017, t01=0x0132}
0x2528…2538 Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x0017, t01=0x0146}
0x2538…2556 Head {h00=0x001a, h01=0x0050, text=»* ORDER 00: TEST =2«, t00=0x0017, t01=0x0156}
0x2556…25a8 Head {h00=0x004e, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 «, t00=0x0017, t01=0x0174}
0x25a8…25b8 Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x0018, t01=0x0036}
0x25b8…25e0 Head {h00=0x0024, h01=0x0050, text=»ACGP10 LDK A2,2 SEND CHAR /02 =2«, t00=0x0018, t01=0x0046}
0x25e0…25fa Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0018, t01=0x006e}
0x25fa…2628 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =2«, t00=0x0018, t01=0x0088}
0x2628…2642 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0018, t01=0x00b6}
0x2642…2658 Head {h00=0x0012, h01=0x0050, text=» RF AGP410 =2«, t00=0x0018, t01=0x00d0}
0x2658…2666 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00e6}
0x2666…2670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f4}
0x2670…269a Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x0018, t01=0x00fe}
0x269a…26bc Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x0018, t01=0x0128}
0x26bc…26c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014a}
0x26c6…26e2 Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x0018, t01=0x0154}
0x26e2…2716 Head {h00=0x0030, h01=0x0050, text=»ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING«, t00=0x0018, t01=0x0170}
0x2716…272a Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x0019, t01=0x0014}
0x272a…2758 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x0019, t01=0x0028}
0x2758…2770 Head {h00=0x0014, h01=0x0050, text=» ORS A4,DWTST,A6«, t00=0x0019, t01=0x0056}
0x2770…2786 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0019, t01=0x006e}
0x2786…27be Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x0019, t01=0x0084}
0x27be…27ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00bc}
0x27ca…27dc Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0019, t01=0x00c8}
0x27dc…2816 Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0019, t01=0x00da}
0x2816…2838 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0019, t01=0x0114}
0x2838…2852 Head {h00=0x0016, h01=0x0050, text=» RF(NP) AGP400 YES«, t00=0x0019, t01=0x0136}
0x2852…2864 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0019, t01=0x0150}
0x2864…287e Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0019, t01=0x0162}
0x287e…28a0 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x0019, t01=0x017c}
0x28a0…28c8 Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x001a, t01=0x000e}
0x28c8…28de Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x001a, t01=0x0036}
0x28de…2912 Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x001a, t01=0x004c}
0x2912…2924 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001a, t01=0x0080}
0x2924…2952 Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x001a, t01=0x0092}
0x2952…2968 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x001a, t01=0x00c0}
0x2968…2980 Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x001a, t01=0x00d6}
0x2980…299e Head {h00=0x001a, h01=0x0050, text=» CWK A2,/07 BELL ? =1 «, t00=0x001a, t01=0x00ee}
0x299e…29b8 Head {h00=0x0016, h01=0x0050, text=» RB(E) ACGP09 =1 «, t00=0x001a, t01=0x010c}
0x29b8…29ca Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x001a, t01=0x0126}
0x29ca…29d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d4…29ea Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001a, t01=0x0142}
0x29ea…2a00 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001a, t01=0x0158}
0x2a00…2a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016e}
0x2a0a…2a2c Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x001a, t01=0x0178}
0x2a2c…2a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000a}
0x2a36…2a42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0014}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a4c…2a62 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001b, t01=0x002a}
0x2a62…2a78 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001b, t01=0x0040}
0x2a78…2a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0056}
0x2a82…2a98 Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x001b, t01=0x0060}
0x2a98…2aae Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001b, t01=0x0076}
0x2aae…2ad0 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001b, t01=0x008c}
0x2ad0…2ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ada…2ae6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00b8}
0x2ae6…2af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c4}
0x2af0…2afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ce}
0x2afa…2b10 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001b, t01=0x00d8}
0x2b10…2b26 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001b, t01=0x00ee}
0x2b26…2b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0104}
0x2b30…2b48 Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x001b, t01=0x010e}
0x2b48…2b5e Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001b, t01=0x0126}
0x2b5e…2b80 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x001b, t01=0x013c}
0x2b80…2b8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x015e}
0x2b8c…2b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016a}
0x2b96…2ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0174}
0x2ba0…2bb6 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001b, t01=0x017e}
0x2bb6…2bcc (28, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001c, t01=0x0004}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x2bd6…2bec Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x001c, t01=0x0024}
0x2bec…2c02 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001c, t01=0x003a}
0x2c02…2c18 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x001c, t01=0x0050}
0x2c18…2c2e Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001c, t01=0x0066}
0x2c2e…2c50 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001c, t01=0x007c}
0x2c50…2c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x2c5a…2c66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00a8}
0x2c66…2c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b4}
0x2c70…2c9a Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP30 YES,CODE CHECK ERROR«, t00=0x001c, t01=0x00be}
0x2c9a…2cc4 Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT? (AE) «, t00=0x001c, t01=0x00e8}
0x2cc4…2cda Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x001c, t01=0x0112}
0x2cda…2cfe Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x001c, t01=0x0128}
0x2cfe…2d18 Head {h00=0x0016, h01=0x0050, text=» RB(NP) ACGP17 NO «, t00=0x001c, t01=0x014c}
0x2d18…2d2c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x001c, t01=0x0166}
0x2d2c…2d42 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x001c, t01=0x017a}
0x2d42…2d7c Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x001c, t01=0x0190}
0x2d7c…2da6 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x001d, t01=0x003a}
0x2da6…2db8 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x0064}
0x2db8…2dcc Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x001d, t01=0x0076}
0x2dcc…2dde Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x001d, t01=0x008a}
0x2dde…2dfc Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x001d, t01=0x009c}
0x2dfc…2e22 Head {h00=0x0022, h01=0x0050, text=» CM DWTST,A6 SET POS LTR.TO 0 «, t00=0x001d, t01=0x00ba}
0x2e22…2e4e Head {h00=0x0028, h01=0x0050, text=» CM DWTAP,A6 RESET HEAD POS.POIINTER«, t00=0x001d, t01=0x00e0}
0x2e4e…2e66 Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x001d, t01=0x010c}
0x2e66…2e8a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x001d, t01=0x0124}
0x2e8a…2e9c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001d, t01=0x0148}
0x2e9c…2eca Head {h00=0x002a, h01=0x0050, text=» ADS A1,DWTST,A6 DECREMENT POS COUNTER«, t00=0x001d, t01=0x015a}
0x2eca…2edc Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x0188}
0x2edc…2eea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x000a}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2ef4…2f12 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x001e, t01=0x0022}
0x2f12…2f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f1c…2f30 Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x001e, t01=0x004a}
0x2f30…2f46 Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x001e, t01=0x005e}
0x2f46…2f66 Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x001e, t01=0x0074}
0x2f66…2f78 Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x001e, t01=0x0094}
0x2f78…2f86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00a6}
0x2f86…2f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b4}
0x2f90…2fa8 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x001e, t01=0x00be}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d6}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x001e, t01=0x00e0}
0x2fc6…2ff6 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x001e, t01=0x00f4}
0x2ff6…3008 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001e, t01=0x0124}
0x3008…303a Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x001e, t01=0x0136}
0x303a…304c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001e, t01=0x0168}
0x304c…305e Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x001e, t01=0x017a}
0x305e…3074 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x001e, t01=0x018c}
0x3074…30a8 Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x001f, t01=0x0012}
0x30a8…30ba Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001f, t01=0x0046}
0x30ba…30d0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x001f, t01=0x0058}
0x30d0…310c Head {h00=0x0038, h01=0x0050, text=»ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER«, t00=0x001f, t01=0x006e}
0x310c…3124 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x001f, t01=0x00aa}
0x3124…3154 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x001f, t01=0x00c2}
0x3154…317e Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x001f, t01=0x00f2}
0x317e…3194 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x001f, t01=0x011c}
0x3194…31a6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001f, t01=0x0132}
0x31a6…31e4 Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x001f, t01=0x0144}
0x31e4…3200 Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x001f, t01=0x0182}
0x3200…322c Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BUFFER INDEX «, t00=0x0020, t01=0x000e}
0x322c…323e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0020, t01=0x003a}
0x323e…3254 Head {h00=0x0012, h01=0x0050, text=» RB(P) ACGP45 «, t00=0x0020, t01=0x004c}
0x3254…3270 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x0020, t01=0x0062}
0x3270…3286 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP20«, t00=0x0020, t01=0x007e}
0x3286…32b4 Head {h00=0x002a, h01=0x0050, text=» SC A4,DWTBC,A6 RESET POSITION POINTER«, t00=0x0020, t01=0x0094}
0x32b4…32d8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0020, t01=0x00c2}
0x32d8…32ea Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x0020, t01=0x00e6}
0x32ea…32f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00f8}
0x32f8…3302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0106}
0x3302…331e Head {h00=0x0018, h01=0x0050, text=»* ROOMLESS POINT «, t00=0x0020, t01=0x0110}
0x331e…3328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012c}
0x3328…333c Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x0020, t01=0x0136}
0x333c…3346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014a}
0x3346…335a Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0020, t01=0x0154}
0x335a…3364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0168}
0x3364…3390 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x0020, t01=0x0172}
0x3390…33a2 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0021, t01=0x000e}
0x33a2…33c4 Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x0021, t01=0x0020}
0x33c4…33ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0042}
0x33ce…33da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x004c}
0x33da…33e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0058}
0x33e4…33ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x33ee…3402 Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x0021, t01=0x006c}
0x3402…340c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0080}
0x340c…3420 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0021, t01=0x008a}
0x3420…342a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009e}
0x342a…3436 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00a8}
0x3436…3440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b4}
0x3440…3452 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0021, t01=0x00be}
0x3452…3460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00d0}
0x3460…346a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00de}
0x346a…3474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e8}
0x3474…34a0 Head {h00=0x0028, h01=0x0050, text=»* SEND LAST DUMMY , LOAD A1 WITH «, t00=0x0021, t01=0x00f2}
0x34a0…34c4 Head {h00=0x0020, h01=0x0050, text=»* RETURN CODE AND END I/O«, t00=0x0021, t01=0x011e}
0x34c4…34ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0142}
0x34ce…34e2 Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x0021, t01=0x014c}
0x34e2…3504 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ETB END OF MESSAGE«, t00=0x0021, t01=0x0160}
0x3504…351e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0021, t01=0x0182}
0x351e…3542 Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x0022, t01=0x000c}
0x3542…355c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0022, t01=0x0030}
0x355c…3574 Head {h00=0x0014, h01=0x0050, text=»AGP415 EQU * =1«, t00=0x0022, t01=0x004a}
0x3574…358c Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0022, t01=0x0062}
0x358c…35ac Head {h00=0x001c, h01=0x0050, text=» ANK A2,/4 PAPER IN ? =1«, t00=0x0022, t01=0x007a}
0x35ac…35ca Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AGP420 YES =1 «, t00=0x0022, t01=0x009a}
0x35ca…35f0 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET RETURN CODE =1«, t00=0x0022, t01=0x00b8}
0x35f0…3602 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0022, t01=0x00de}
0x3602…3616 Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x0022, t01=0x00f0}
0x3616…364a Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0022, t01=0x0104}
0x364a…366e Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0022, t01=0x0138}
0x366e…3696 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0022, t01=0x015c}
0x3696…36aa Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x0022, t01=0x0184}
0x36aa…36c2 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x0023, t01=0x0008}
0x36c2…36e2 Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x0023, t01=0x0020}
0x36e2…36f8 Head {h00=0x0012, h01=0x0050, text=» RB AGP415 =1«, t00=0x0023, t01=0x0040}
0x36f8…3706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0056}
0x3706…3710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0064}
0x3710…371a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006e}
0x371a…374a Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0023, t01=0x0078}
0x374a…377a Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x0023, t01=0x00a8}
0x377a…37a6 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x0023, t01=0x00d8}
0x37a6…37ba Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0023, t01=0x0104}
0x37ba…37e6 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x0023, t01=0x0118}
0x37e6…381c Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x0023, t01=0x0144}
0x381c…382e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0023, t01=0x017a}
0x382e…385e Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x0023, t01=0x018c}
0x385e…386e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0024, t01=0x002c}
0x386e…3884 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0024, t01=0x003c}
0x3884…3892 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0052}
0x3892…389c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0060}
0x389c…38a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006a}
0x38a6…38d4 Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0024, t01=0x0074}
0x38d4…3900 Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0024, t01=0x00a2}
0x3900…393a Head {h00=0x0036, h01=0x0050, text=»* REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0024, t01=0x00ce}
0x393a…3964 Head {h00=0x0026, h01=0x0050, text=»* A1,A2,A4 - WORK REG «, t00=0x0024, t01=0x0108}
0x3964…396e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0132}
0x396e…3982 Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0024, t01=0x013c}
0x3982…39ae Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0024, t01=0x0150}
0x39ae…39da Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0024, t01=0x017c}
0x39da…3a02 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0025, t01=0x0018}
0x3a02…3a1a Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0025, t01=0x0040}
0x3a1a…3a38 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0025, t01=0x0058}
0x3a38…3a52 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0025, t01=0x0076}
0x3a52…3a6e Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0025, t01=0x0090}
0x3a6e…3a8c Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0025, t01=0x00ac}
0x3a8c…3aa6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0025, t01=0x00ca}
0x3aa6…3ac6 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0025, t01=0x00e4}
0x3ac6…3ae2 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0025, t01=0x0104}
0x3ae2…3afa Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0025, t01=0x0120}
0x3afa…3b18 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0025, t01=0x0138}
0x3b18…3b36 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0025, t01=0x0156}
0x3b36…3b5e Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0025, t01=0x0174}
0x3b5e…3b78 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0026, t01=0x000c}
0x3b78…3b92 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0026, t01=0x0026}
0x3b92…3bac Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0026, t01=0x0040}
0x3bac…3bc8 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0026, t01=0x005a}
0x3bc8…3bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0076}
0x3bd2…3bf8 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0026, t01=0x0080}
0x3bf8…3c08 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0026, t01=0x00a6}
0x3c08…3c14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00b6}
0x3c14…3c22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00c2}
0x3c22…3c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d0}
0x3c2c…3c40 Head {h00=0x0010, h01=0x0050, text=»* I H G P«, t00=0x0026, t01=0x00da}
0x3c40…3c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ee}
0x3c4a…3c60 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x0026, t01=0x00f8}
0x3c60…3c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010e}
0x3c6a…3c7c Head {h00=0x000e, h01=0x0050, text=»IHGP EQU *«, t00=0x0026, t01=0x0118}
0x3c7c…3c9a Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0026, t01=0x012a}
0x3c9a…3cb0 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0026, t01=0x0148}
0x3cb0…3cce Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0026, t01=0x015e}
0x3cce…3ce4 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHGP10 «, t00=0x0026, t01=0x017c}
0x3ce4…3d00 (39, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0027, t01=0x0004}
0x3d00…3d1a Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHGP20 =2 «, t00=0x0027, t01=0x0020}
0x3d1a…3d4c Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x0027, t01=0x003a}
0x3d4c…3d62 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x0027, t01=0x006c}
0x3d62…3d76 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) EXIT«, t00=0x0027, t01=0x0082}
0x3d76…3d82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0096}
0x3d82…3d98 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x0027, t01=0x00a2}
0x3d98…3dae Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AGP430«, t00=0x0027, t01=0x00b8}
0x3dae…3dba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00ce}
0x3dba…3dc2 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x00da}
0x3dc2…3dfa Head {h00=0x0034, h01=0x0050, text=»IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0027, t01=0x00e2}
0x3dfa…3e16 Head {h00=0x0018, h01=0x0050, text=»IHGP20 LDR A1,A1 =2«, t00=0x0027, t01=0x011a}
0x3e16…3e46 Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHGP10 TEST ORDER AND TIME OUT =2«, t00=0x0027, t01=0x0136}
0x3e46…3e5c Head {h00=0x0012, h01=0x0050, text=» RB ENDIO =2 «, t00=0x0027, t01=0x0166}
0x3e5c…3e6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x017c}
0x3e6a…3e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x018a}
0x3e74…3e8c (40, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* E C H O G P«, t00=0x0028, t01=0x0004}
0x3e8c…3e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001c}
0x3e96…3eca Head {h00=0x0030, h01=0x0050, text=»* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0028, t01=0x0026}
0x3eca…3ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005a}
0x3ed4…3ee8 Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x0028, t01=0x0064}
0x3ee8…3efe Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x0028, t01=0x0078}
0x3efe…3f16 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0028, t01=0x008e}
0x3f16…3f30 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x0028, t01=0x00a6}
0x3f30…3f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c0}
0x3f3a…3f50 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0028, t01=0x00ca}
0x3f50…3f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e0}
0x3f5a…3f7c Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x0028, t01=0x00ea}
0x3f7c…3f96 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x0028, t01=0x010c}
0x3f96…3faa Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0028, t01=0x0126}
0x3faa…3fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x013a}
0x3fb4…3fc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0144}
0x3fc0…3fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0150}
0x3fca…3fdc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0028, t01=0x015a}
0x3fdc…3ff0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0028, t01=0x016c}
0x3ff0…4002 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x0028, t01=0x0180}
0x4002…4022 (41, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x0029, t01=0x0004}
0x4022…4042 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/2 LINE FEED =1 «, t00=0x0029, t01=0x0024}
0x4042…405e Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP10 YES =1«, t00=0x0029, t01=0x0044}
0x405e…4076 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/3 CR =1«, t00=0x0029, t01=0x0060}
0x4076…4092 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP10 YES =1«, t00=0x0029, t01=0x0078}
0x4092…40a8 Head {h00=0x0012, h01=0x0050, text=» SUK A1,/B =1«, t00=0x0029, t01=0x0094}
0x40a8…40c4 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x0029, t01=0x00aa}
0x40c4…4100 Head {h00=0x0038, h01=0x0050, text=» SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F«, t00=0x0029, t01=0x00c6}
0x4100…4116 Head {h00=0x0012, h01=0x0050, text=» RF(N) ECGP20 «, t00=0x0029, t01=0x0102}
0x4116…412e Head {h00=0x0014, h01=0x0050, text=» SUK A1,/5F-/20 «, t00=0x0029, t01=0x0118}
0x412e…4144 Head {h00=0x0012, h01=0x0050, text=» RF(P) ECGP20 «, t00=0x0029, t01=0x0130}
0x4144…416e Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0029, t01=0x0146}
0x416e…419a Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0029, t01=0x0170}
0x419a…41b4 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002a, t01=0x000c}
0x41b4…41ce Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP20 YES «, t00=0x002a, t01=0x0026}
0x41ce…41fc Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x002a, t01=0x0040}
0x41fc…4206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006e}
0x4206…421c Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x002a, t01=0x0078}
0x421c…4226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x008e}
0x4226…424a Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x002a, t01=0x0098}
0x424a…425c Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002a, t01=0x00bc}
0x425c…4266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ce}
0x4266…4272 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00d8}
0x4272…427c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e4}
0x427c…42b6 Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x002a, t01=0x00ee}
0x42b6…42e2 Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x002a, t01=0x0128}
0x42e2…42f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0154}
0x42f0…42fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0162}
0x42fa…4310 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x002a, t01=0x016c}
0x4310…431a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0182}
0x431a…432e Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x002a, t01=0x018c}
0x432e…4358 Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x002b, t01=0x0010}
0x4358…436a Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002b, t01=0x003a}
0x436a…4374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004c}
0x4374…4388 Head {h00=0x0010, h01=0x0050, text=»* CANCEL «, t00=0x002b, t01=0x0056}
0x4388…4392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006a}
0x4392…43a6 Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x002b, t01=0x0074}
0x43a6…43cc Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x002b, t01=0x0088}
0x43cc…43de Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x002b, t01=0x00ae}
0x43de…43f0 Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002b, t01=0x00c0}
0x43f0…4412 Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x002b, t01=0x00d2}
0x4412…442a Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTBC,A6 «, t00=0x002b, t01=0x00f4}
0x442a…443e Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002b, t01=0x010c}
0x443e…4464 Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x002b, t01=0x0120}
0x4464…4482 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x002b, t01=0x0146}
0x4482…4494 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002b, t01=0x0164}
0x4494…44aa Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x002b, t01=0x0176}
0x44aa…44bc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002b, t01=0x018c}
0x44bc…44ea Head {h00=0x002a, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER«, t00=0x002c, t01=0x000e}
0x44ea…44fc Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x002c, t01=0x003c}
0x44fc…450a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x004e}
0x450a…4514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x005c}
0x4514…4528 Head {h00=0x0010, h01=0x0050, text=»* R C G P«, t00=0x002c, t01=0x0066}
0x4528…4532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x007a}
0x4532…4566 Head {h00=0x0030, h01=0x0050, text=»* RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x002c, t01=0x0084}
0x4566…4570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b8}
0x4570…457a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c2}
0x457a…45a6 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x002c, t01=0x00cc}
0x45a6…45c6 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x002c, t01=0x00f8}
0x45c6…45d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0118}
0x45d0…45e6 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x002c, t01=0x0122}
0x45e6…45f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45f0…460e Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x002c, t01=0x0142}
0x460e…4626 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x002c, t01=0x0160}
0x4626…4644 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x002c, t01=0x0178}
0x4644…4656 Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x002d, t01=0x0008}
0x4656…466c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002d, t01=0x001a}
0x466c…4696 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002d, t01=0x0030}
0x4696…46a2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x005a}
0x46a2…46ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0066}
0x46ac…46c2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002d, t01=0x0070}
0x46c2…46e8 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002d, t01=0x0086}
0x46e8…46f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00ac}
0x46f4…46fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b8}
0x46fe…471c Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTST,A6 BUSY ?«, t00=0x002d, t01=0x00c2}
0x471c…4732 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x002d, t01=0x00e0}
0x4732…475e Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x002d, t01=0x00f6}
0x475e…477c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x0122}
0x477c…478e Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x002d, t01=0x0140}
0x478e…47a4 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x002d, t01=0x0152}
0x47a4…47be Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x002d, t01=0x0168}
0x47be…47d8 Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x002d, t01=0x0182}
0x47d8…47f2 Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x002e, t01=0x000c}
0x47f2…480c Head {h00=0x0016, h01=0x0050, text=» ABL(E) ENDIO =3 «, t00=0x002e, t01=0x0026}
0x480c…4822 Head {h00=0x0012, h01=0x0050, text=» ABL EXIT =3 «, t00=0x002e, t01=0x0040}
0x4822…4836 Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x002e, t01=0x0056}
0x4836…486a Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD«, t00=0x002e, t01=0x006a}
0x486a…488e Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x002e, t01=0x009e}
0x488e…48a6 Head {h00=0x0014, h01=0x0050, text=» ABL(E) ACGP NO «, t00=0x002e, t01=0x00c2}
0x48a6…48bc Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x002e, t01=0x00da}
0x48bc…48dc Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x002e, t01=0x00f0}
0x48dc…48f0 Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x002e, t01=0x0110}
0x48f0…490e Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND STX«, t00=0x002e, t01=0x0124}
0x490e…4930 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x002e, t01=0x0142}
0x4930…4942 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002e, t01=0x0164}
0x4942…4976 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND«, t00=0x002e, t01=0x0176}
0x4976…498a Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x002f, t01=0x001a}
0x498a…49b6 Head {h00=0x0028, h01=0x0050, text=»RCGP10 LDK A1,TPERR SET RETURN CODE «, t00=0x002f, t01=0x002e}
0x49b6…49ca Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x002f, t01=0x005a}
0x49ca…49d6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002f, t01=0x006e}
0x49d6…49da Head {h00=0x4004, h01=0x0000}
0x49da…49de 00 2f 00 7a ┆ / z┆
0x49de…49e6 (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x49e6…4a36 (49, 0, 400) 20 50 52 49 4e 54 20 48 45 41 44 20 00 30 01 82 00 06 00 50 2a 20 00 31 00 14 00 06 00 50 2a 20 00 31 00 1e 00 28 00 50 50 52 42 31 31 35 5c 4c 44 4b 5c 41 32 2c 52 50 48 5c 44 45 54 41 43 48 20 50 52 49 4e 54 20 48 45 41 44 20 00 31 00 28 ┆ PRINT HEAD 0 P* 1 P* 1 ( PPRB115 LDK A2,RPH DETACH PRINT HEAD 1 (┆
0x4a36…4a86 00 1e 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 44 45 54 41 43 48 20 00 31 00 54 00 2c 00 50 50 52 42 31 31 37 5c 4c 43 5c 41 32 2c 2d 31 2c 41 33 5c 47 45 54 20 31 53 54 20 54 41 42 20 50 4f 53 20 43 48 41 52 20 00 31 ┆ P CF A5,OUTPUT SEND DETACH 1 T , PPRB117 LC A2,-1,A3 GET 1ST TAB POS CHAR 1┆
0x4a86…4ad6 00 76 00 24 00 50 5c 4c 43 52 5c 41 31 2c 41 33 5c 47 45 54 20 32 4e 44 20 54 41 42 20 50 4f 53 20 43 48 41 52 20 00 31 00 a6 00 18 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 5c 4c 49 4e 45 20 55 4e 49 54 00 31 00 ce 00 0e 00 50 5c 53 4c 4c 5c 41 ┆ v $ P LCR A1,A3 GET 2ND TAB POS CHAR 1 P ANK A1,/F LINE UNIT 1 P SLL A┆
0x4ad6…4b26 32 2c 34 20 00 31 00 ea 00 1c 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 30 5c 4c 49 4e 45 20 44 45 43 41 44 45 20 00 31 00 fc 00 22 00 50 5c 4f 52 52 5c 41 31 2c 41 32 5c 44 45 43 49 4d 41 4c 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 31 01 1c 00 24 ┆2,4 1 P ANK A2,/F0 LINE DECADE 1 " P ORR A1,A2 DECIMAL LINE NUMBER 1 $┆
0x4b26…4b76 00 50 5c 43 46 5c 41 35 2c 42 43 44 54 42 59 5c 43 4f 4e 56 45 52 54 20 54 4f 20 42 49 4e 41 52 59 20 00 31 01 42 00 2e 00 50 50 52 42 31 32 30 5c 49 4d 5c 44 57 54 42 43 2c 41 36 5c 49 4e 43 52 45 4d 45 4e 54 20 42 59 54 45 20 43 4f 55 4e ┆ P CF A5,BCDTBY CONVERT TO BINARY 1 B . PPRB120 IM DWTBC,A6 INCREMENT BYTE COUN┆
0x4b76…4bc6 (50, 0, 400) 54 45 52 20 00 31 01 6a 00 32 00 50 5c 43 43 5c 41 31 2c 44 57 54 42 43 2c 41 36 5c 43 4f 4d 50 41 52 45 20 57 49 54 48 20 41 43 54 55 41 4c 20 54 41 42 2e 20 50 4f 53 2e 20 00 32 00 0c 00 18 00 50 5c 52 46 28 4e 47 29 5c 50 52 42 31 32 35 ┆TER 1 j 2 P CC A1,DWTBC,A6 COMPARE WITH ACTUAL TAB. POS. 2 P RF(NG) PRB125┆
0x4bc6…4c16 5c 50 52 49 4e 54 00 32 00 42 00 06 00 50 2a 20 00 32 00 5e 00 06 00 50 2a 20 00 32 00 68 00 06 00 50 2a 20 00 32 00 72 00 1a 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 30 5c 4c 4f 41 44 20 42 4c 41 4e 4b 00 32 00 7c 00 28 00 50 5c 43 46 5c 41 35 ┆ PRINT 2 B P* 2 ^ P* 2 h P* 2 r P LDK A2,/20 LOAD BLANK 2 | ( P CF A5┆
0x4c16…4c66 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 42 4c 41 4e 4b 53 20 4f 52 20 44 45 54 41 43 48 20 00 32 00 9a 00 0e 00 50 5c 52 42 5c 50 52 42 31 31 37 00 32 00 c6 00 06 00 50 2a 20 00 32 00 d8 00 06 00 50 2a 20 00 32 00 e2 00 06 00 50 2a 20 00 32 ┆,OUTPUT SEND BLANKS OR DETACH 2 P RB PRB117 2 P* 2 P* 2 P* 2┆
0x4c66…4cb6 00 ec 00 2e 00 50 50 52 42 31 32 35 5c 53 55 4b 5c 41 34 2c 32 5c 44 45 43 52 45 4d 45 4e 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 32 00 f6 00 26 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 44 45 43 52 45 4d 45 4e 54 20 42 55 46 46 ┆ . PPRB125 SUK A4,2 DECREMENT REQUESTED LENGTH 2 & P SUK A3,2 DECREMENT BUFF┆
0x4cb6…4d06 45 52 20 41 44 44 52 45 53 53 00 32 01 28 00 16 00 50 5c 4c 44 4b 5c 41 32 2c 41 50 48 5c 41 54 54 41 43 48 00 32 01 52 00 1a 00 50 5c 52 46 5c 50 52 42 32 34 30 5c 53 45 4e 44 20 41 54 54 41 43 48 00 32 01 6c 00 0a 00 50 5c 45 4a 45 43 54 ┆ER ADDRESS 2 ( P LDK A2,APH ATTACH 2 R P RF PRB240 SEND ATTACH 2 l P EJECT┆
0x4d06…4d56 (51, 0, 400) 00 32 01 8a 00 06 00 50 2a 20 00 33 00 08 00 06 00 50 2a 20 00 33 00 12 00 06 00 50 2a 20 00 33 00 1c 00 32 00 50 2a 20 20 20 47 45 54 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 42 55 46 46 45 52 2e 20 43 48 45 43 ┆ 2 P* 3 P* 3 P* 3 2 P* GET OUTPUT CHARACTER FROM BUFFER. CHEC┆
0x4d56…4da6 4b 20 49 46 00 33 00 26 00 18 00 50 2a 20 20 20 2d 20 52 4f 4f 4d 4c 45 53 53 20 50 4f 49 4e 54 00 33 00 5c 00 1c 00 50 2a 20 20 20 2d 20 49 4c 4c 45 47 41 4c 20 43 48 41 52 41 43 54 45 52 20 00 33 00 78 00 26 00 50 2a 20 20 20 2d 20 53 50 ┆K IF 3 & P* - ROOMLESS POINT 3 P* - ILLEGAL CHARACTER 3 x & P* - SP┆
0x4da6…4df6 45 43 49 41 4c 20 43 48 41 52 41 43 54 45 52 20 28 2f 31 33 2c 2f 31 34 29 20 00 33 00 98 00 06 00 50 2a 20 00 33 00 c2 00 10 00 50 50 52 42 32 30 30 5c 45 51 55 5c 2a 00 33 00 cc 00 2a 00 50 50 52 42 32 30 35 5c 4c 43 52 5c 41 37 2c 41 33 ┆ECIAL CHARACTER (/13,/14) 3 P* 3 PPRB200 EQU * 3 * PPRB205 LCR A7,A3┆
0x4df6…4e46 5c 4c 4f 41 44 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 00 33 00 e0 00 22 00 50 5c 43 43 4b 5c 41 37 2c 2f 41 45 41 45 5c 52 4f 4f 4d 4c 45 53 53 20 50 4f 49 4e 54 20 3f 00 33 01 0e 00 16 00 50 5c 52 46 28 4e 45 29 5c 50 52 42 32 ┆ LOAD OUTPUT CHARACTER 3 " P CCK A7,/AEAE ROOMLESS POINT ? 3 P RF(NE) PRB2┆
0x4e46…4e96 31 30 5c 4e 4f 20 00 33 01 34 00 26 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 00 33 01 4e 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 33 01 78 00 24 00 50 5c 4c 43 52 5c 41 ┆10 NO 3 4 & P SUK A3,1 DECREMENT BUFFER POINTER 3 N P SUK A4,1 3 x $ P LCR A┆
0x4e96…4ee6 (52, 0, 398) 37 2c 41 33 5c 47 45 54 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 00 33 01 8a 00 14 00 50 5c 41 4e 4b 5c 41 37 2c 2f 46 5c 4d 41 53 4b 20 00 34 00 22 00 26 00 50 5c 4c 43 5c 41 37 2c 52 4f 4d 54 41 42 2c 41 37 5c 47 45 54 20 43 ┆7,A3 GET OUTPUT CHARACTER 3 P ANK A7,/F MASK 4 " & P LC A7,ROMTAB,A7 GET C┆
0x4ee6…4f36 4f 44 45 20 49 4e 20 54 41 42 4c 45 00 34 00 3a 00 06 00 50 2a 20 00 34 00 64 00 06 00 50 2a 20 00 34 00 6e 00 06 00 50 2a 20 00 34 00 78 00 2c 00 50 50 52 42 32 31 30 5c 43 43 4b 5c 41 37 2c 2f 32 30 32 30 5c 49 4c 4c 45 47 41 4c 20 43 48 ┆ODE IN TABLE 4 : P* 4 d P* 4 n P* 4 x , PPRB210 CCK A7,/2020 ILLEGAL CH┆
0x4f36…4f86 41 52 41 43 54 45 52 20 3f 20 00 34 00 82 00 16 00 50 5c 52 46 28 4c 29 5c 50 52 42 32 32 35 5c 59 45 53 20 00 34 00 b2 00 2c 00 50 50 52 42 32 31 35 5c 43 43 4b 5c 41 37 2c 2f 35 46 35 46 5c 49 4c 4c 45 47 41 4c 20 43 48 41 52 41 43 54 45 ┆ARACTER ? 4 P RF(L) PRB225 YES 4 , PPRB215 CCK A7,/5F5F ILLEGAL CHARACTE┆
0x4f86…4fd6 52 20 3f 20 00 34 00 cc 00 16 00 50 5c 52 46 28 4e 47 29 5c 50 52 42 32 33 30 5c 4e 4f 20 00 34 00 fc 00 06 00 50 2a 20 00 34 01 16 00 06 00 50 2a 20 00 34 01 20 00 10 00 50 50 52 42 32 32 35 5c 45 51 55 5c 2a 00 34 01 2a 00 10 00 50 5c 49 ┆R ? 4 P RF(NG) PRB230 NO 4 P* 4 P* 4 PPRB225 EQU * 4 * P I┆
0x4fd6…5024 46 54 5c 43 48 52 31 33 3d 31 00 34 01 3e 00 26 00 50 5c 43 43 4b 5c 41 37 2c 2f 31 33 31 33 5c 53 50 45 43 49 41 4c 20 43 48 41 52 41 43 54 45 52 20 3f 20 00 34 01 52 00 16 00 50 5c 52 46 28 45 29 5c 50 52 42 32 33 30 5c 59 45 53 20 ┆FT CHR13=1 4 > & P CCK A7,/1313 SPECIAL CHARACTER ? 4 R P RF(E) PRB230 YES ┆