|
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: 20530 (0x5032)
Notes: pts_type(SC)
Names: »DRGP01.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRGP01.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/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 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 * * IT IS POSSIBLE TO EXCLUDE ECHOING OF * AN EXTRA SPACE AFTER EACH CHARACTER * BY SETTING X:D=0 * X:D EQU 0 COSPAC EQU X:D * 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 X:E * * SUPPRESSING OF SPACES IN RIGHT HAND OF LINE * BY SETTING X:F=1 * X:F EQU 0 SUPSPA EQU X:F * * 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 X:G * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:H EQU 120 DVBLEN EQU X:H * =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…1252 Head {h00=0x0012, h01=0x0050, text=»CROOM EQU X:A «, t00=0x000b, t01=0x0116}
0x1252…125c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012c}
0x125c…1294 Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE «, t00=0x000b, t01=0x0136}
0x1294…12c8 Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:B=1«, t00=0x000b, t01=0x016e}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0012}
0x12d2…12e4 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x001c}
0x12e4…12fa Head {h00=0x0012, h01=0x0050, text=»TRETON EQU X:B«, t00=0x000c, t01=0x002e}
0x12fa…1304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0044}
0x1304…133c Head {h00=0x0034, h01=0x0050, text=»* ACCEPTANCE OF SPECIAL CHARACTER /14 CAN BE «, t00=0x000c, t01=0x004e}
0x133c…1370 Head {h00=0x0030, h01=0x0050, text=»* INCLUDED IN THE DRIVER BY SETTING X:C=1«, t00=0x000c, t01=0x0086}
0x1370…137a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ba}
0x137a…138c Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000c, t01=0x00c4}
0x138c…13a2 Head {h00=0x0012, h01=0x0050, text=»FJOTON EQU X:C«, t00=0x000c, t01=0x00d6}
0x13a2…13ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13ac…13de Head {h00=0x002e, h01=0x0050, text=»* IT IS POSSIBLE TO EXCLUDE ECHOING OF «, t00=0x000c, t01=0x00f6}
0x13de…140e Head {h00=0x002c, h01=0x0050, text=»* AN EXTRA SPACE AFTER EACH CHARACTER«, t00=0x000c, t01=0x0128}
0x140e…142a Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:D=0«, t00=0x000c, t01=0x0158}
0x142a…1434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0174}
0x1434…1446 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000c, t01=0x017e}
0x1446…145c Head {h00=0x0012, h01=0x0050, text=»COSPAC EQU X:D«, t00=0x000c, t01=0x0190}
0x145c…1466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1466…1474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0020}
0x1474…147e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x147e…1488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1488…14c4 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000d, t01=0x0042}
0x14c4…1500 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000d, t01=0x007e}
0x1500…153c Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0.«, t00=0x000d, t01=0x00ba}
0x153c…1546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f6}
0x1546…1558 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x0100}
0x1558…156e Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:E«, t00=0x000d, t01=0x0112}
0x156e…1578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0128}
0x1578…15b0 Head {h00=0x0034, h01=0x0050, text=»* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE«, t00=0x000d, t01=0x0132}
0x15b0…15ce Head {h00=0x001a, h01=0x0050, text=»* BY SETTING X:F=1 «, t00=0x000d, t01=0x016a}
0x15ce…15d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0188}
0x15d8…15ea (14, 0, 398) Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000e, t01=0x0004}
0x15ea…1600 Head {h00=0x0012, h01=0x0050, text=»SUPSPA EQU X:F«, t00=0x000e, t01=0x0016}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x160a…1636 Head {h00=0x0028, h01=0x0050, text=»* END OF REQUEST IN SITUATIONS WHERE«, t00=0x000e, t01=0x0036}
0x1636…1666 Head {h00=0x002c, h01=0x0050, text=»* THE SELECTOR UNIT OR PRINTER HARDWARE «, t00=0x000e, t01=0x0062}
0x1666…1694 Head {h00=0x002a, h01=0x0050, text=»* IS INACTIVE CAN BE CHOSEN BY SETTING«, t00=0x000e, t01=0x0092}
0x1694…16b6 Head {h00=0x001e, h01=0x0050, text=»* THE CONSTANT RECEND = 1 «, t00=0x000e, t01=0x00c0}
0x16b6…16c8 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000e, t01=0x00e2}
0x16c8…16de Head {h00=0x0012, h01=0x0050, text=»RECEND EQU X:G«, t00=0x000e, t01=0x00f4}
0x16de…16e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010a}
0x16e8…171a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000e, t01=0x0114}
0x171a…1748 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000e, t01=0x0146}
0x1748…1752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0174}
0x1752…1766 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000e, t01=0x017e}
0x1766…1770 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1770…177a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000e}
0x177a…17b4 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000f, t01=0x0018}
0x17b4…17e6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000f, t01=0x0052}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f0…1804 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000f, t01=0x008e}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x180e…182a Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000f, t01=0x00ac}
0x182a…1834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x1834…1848 Head {h00=0x0010, h01=0x0050, text=»X:H EQU 120 «, t00=0x000f, t01=0x00d2}
0x1848…185e Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000f, t01=0x00e6}
0x185e…186e Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x000f, t01=0x00fc}
0x186e…189e Head {h00=0x002c, h01=0x0050, text=»* SPECIAL CONDITION FOR ABIS PRINTER =1«, t00=0x000f, t01=0x010c}
0x189e…18b4 Head {h00=0x0012, h01=0x0050, text=»ABIS EQU 0 =1«, t00=0x000f, t01=0x013c}
0x18b4…18c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0152}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18d6…18fe Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x000f, t01=0x0174}
0x18fe…1926 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0010, t01=0x000c}
0x1926…194e Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0010, t01=0x0034}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005c}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x1962…1996 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0010, t01=0x0070}
0x1996…19a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a4}
0x19a0…19b6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0010, t01=0x00ae}
0x19b6…19ce Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0010, t01=0x00c4}
0x19ce…19da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00dc}
0x19da…19e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e8}
0x19e4…19fa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00f2}
0x19fa…1a14 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0010, t01=0x0108}
0x1a14…1a20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0122}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a2a…1a5c Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0010, t01=0x0138}
0x1a5c…1a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a66…1a94 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0010, t01=0x0174}
0x1a94…1ac4 Head {h00=0x002c, h01=0x0050, text=»* SPECIAL KEYS FOR ECHO FUNCTION * «, t00=0x0011, t01=0x0012}
0x1ac4…1af2 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0011, t01=0x0042}
0x1af2…1afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0070}
0x1afc…1b1c Head {h00=0x001c, h01=0x0050, text=»GPBSP EQU /2D BACK SPACE«, t00=0x0011, t01=0x007a}
0x1b1c…1b38 Head {h00=0x0018, h01=0x0050, text=»GPCLR EQU /3F CLEAR «, t00=0x0011, t01=0x009a}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b42…1b5e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00c0}
0x1b5e…1b7a Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x0011, t01=0x00dc}
0x1b7a…1b96 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0011, t01=0x00f8}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0114}
0x1ba0…1bd4 Head {h00=0x0030, h01=0x0050, text=»PAROUT EQU /20 PAPER OUT OR READY SWITCH OFF«, t00=0x0011, t01=0x011e}
0x1bd4…1bfa Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0011, t01=0x0152}
0x1bfa…1c20 Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0011, t01=0x0178}
0x1c20…1c4c Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x0012, t01=0x000e}
0x1c4c…1c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c56…1c64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0044}
0x1c64…1c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0052}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005c}
0x1c78…1c8a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0066}
0x1c8a…1c9c Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0012, t01=0x0078}
0x1c9c…1cae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x008a}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009c}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a6}
0x1cc2…1cd6 Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0012, t01=0x00b0}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c4}
0x1ce0…1cf4 Head {h00=0x0010, h01=0x0050, text=»ROMTAB EQU *«, t00=0x0012, t01=0x00ce}
0x1cf4…1d22 Head {h00=0x002a, h01=0x0050, text=» TABLE FOR ROOMLESS POINT CHARACTERS«, t00=0x0012, t01=0x00e2}
0x1d22…1d4e Head {h00=0x0028, h01=0x0050, text=» DATA /2122,/2426,/3B3C,/3E40,/5E5F «, t00=0x0012, t01=0x0110}
0x1d4e…1d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013c}
0x1d58…1d64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0146}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d6e…1d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015c}
0x1d78…1d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0166}
0x1d82…1da8 Head {h00=0x0022, h01=0x0050, text=» DATA DVBLEN MMU BUFFER LENGTH«, t00=0x0012, t01=0x0170}
0x1da8…1dc4 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x0008}
0x1dc4…1de4 Head {h00=0x001c, h01=0x0050, text=»GPAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0024}
0x1de4…1e08 Head {h00=0x0020, h01=0x0050, text=» DATA ACGP ACTIVATION DRIVER«, t00=0x0013, t01=0x0044}
0x1e08…1e2e Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0013, t01=0x0068}
0x1e2e…1e52 Head {h00=0x0020, h01=0x0050, text=» DATA IHGP INTERRUPT HANDLER«, t00=0x0013, t01=0x008e}
0x1e52…1e76 Head {h00=0x0020, h01=0x0050, text=» DATA RCGP RECOVERY ROUTINE «, t00=0x0013, t01=0x00b2}
0x1e76…1ea8 Head {h00=0x002e, h01=0x0050, text=» DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0013, t01=0x00d6}
0x1ea8…1eb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0108}
0x1eb6…1ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1ec0…1ed4 Head {h00=0x0010, h01=0x0050, text=»* A C G P«, t00=0x0013, t01=0x0120}
0x1ed4…1ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x1ede…1f14 Head {h00=0x0032, h01=0x0050, text=»* ACGP = ACTIVATION DRIVER GENERAL PRINTER «, t00=0x0013, t01=0x013e}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0174}
0x1f1e…1f6a Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO PRINTER AND RETURN CODE«, t00=0x0013, t01=0x017e}
0x1f6a…1faa Head {h00=0x003c, h01=0x0050, text=»* IS SET IF PAPER OUT OR READY SWITCH OFF. «, t00=0x0014, t01=0x003a}
0x1faa…1ff6 Head {h00=0x0048, h01=0x0050, text=»* RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM«, t00=0x0014, t01=0x007a}
0x1ff6…201a Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT.«, t00=0x0014, t01=0x00c6}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ea}
0x2024…2066 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER «, t00=0x0014, t01=0x00f4}
0x2066…208c Head {h00=0x0022, h01=0x0050, text=»* FROM ECB-BUFFER«, t00=0x0014, t01=0x0136}
0x208c…2096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015c}
0x2096…20e0 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO PRINTER FROM«, t00=0x0014, t01=0x0166}
0x20e0…2120 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x0020}
0x2120…212a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0060}
0x212a…213c Head {h00=0x000e, h01=0x0050, text=»ACGP EQU *«, t00=0x0015, t01=0x006a}
0x213c…2160 Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0015, t01=0x007c}
0x2160…2176 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A7 =1«, t00=0x0015, t01=0x00a0}
0x2176…2196 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ACGP10 ORDER 0 =2«, t00=0x0015, t01=0x00b6}
0x2196…21ac Head {h00=0x0012, h01=0x0050, text=» SUK A3,5 =1 «, t00=0x0015, t01=0x00d6}
0x21ac…21cc Head {h00=0x001c, h01=0x0050, text=» RF(E) ACGP09 ORDER 5 =1«, t00=0x0015, t01=0x00ec}
0x21cc…21e2 Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 =1 «, t00=0x0015, t01=0x010c}
0x21e2…220e Head {h00=0x0028, h01=0x0050, text=» ABL(NE) DISIOE I/O REQUEST ERROR =1«, t00=0x0015, t01=0x0122}
0x220e…223c Head {h00=0x002a, h01=0x0050, text=» LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 «, t00=0x0015, t01=0x014e}
0x223c…2256 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ACGP01 =1 «, t00=0x0015, t01=0x017c}
0x2256…2280 Head {h00=0x0026, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS =1 «, t00=0x0016, t01=0x0008}
0x2280…22ac Head {h00=0x0028, h01=0x0050, text=» LC A3,1,A3 GET CONTROL CHARACTER =1«, t00=0x0016, t01=0x0032}
0x22ac…22c4 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =1 «, t00=0x0016, t01=0x005e}
0x22c4…22e2 Head {h00=0x001a, h01=0x0050, text=»ACGP01 SUK A3,/2B =1 «, t00=0x0016, t01=0x0076}
0x22e2…230a Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP06 CONTROL CHAR 2B =1«, t00=0x0016, t01=0x0094}
0x230a…232c Head {h00=0x001e, h01=0x0050, text=» CF A5,OUTPUT SEND STX =1 «, t00=0x0016, t01=0x00bc}
0x232c…2342 Head {h00=0x0012, h01=0x0050, text=» LDK A2,CR =1«, t00=0x0016, t01=0x00de}
0x2342…235c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0016, t01=0x00f4}
0x235c…2374 Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0016, t01=0x010e}
0x2374…238c Head {h00=0x0014, h01=0x0050, text=» LDK A2,FFED =1«, t00=0x0016, t01=0x0126}
0x238c…23a8 Head {h00=0x0018, h01=0x0050, text=» CWK A3,/31-/2B =1 «, t00=0x0016, t01=0x013e}
0x23a8…23d0 Head {h00=0x0024, h01=0x0050, text=» RF(E) ACGP03 CONTROL CHAR 31 =1«, t00=0x0016, t01=0x015a}
0x23d0…23e2 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0016, t01=0x0182}
0x23e2…23f8 (23, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0017, t01=0x0004}
0x23f8…2414 Head {h00=0x0018, h01=0x0050, text=» SUK A3,/30-/2B =1 «, t00=0x0017, t01=0x001a}
0x2414…2442 Head {h00=0x002a, h01=0x0050, text=» RF(NE) ACGP03 NOT CONTROL CHAR 30 =1 «, t00=0x0017, t01=0x0036}
0x2442…245c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0017, t01=0x0064}
0x245c…2472 Head {h00=0x0012, h01=0x0050, text=» LDK A2,LF =1«, t00=0x0017, t01=0x007e}
0x2472…24a2 Head {h00=0x002c, h01=0x0050, text=»ACGP03 LDK A1,1 RESET HEAD POS COUNTR =1«, t00=0x0017, t01=0x0094}
0x24a2…24be Head {h00=0x0018, h01=0x0050, text=» ST A1,DWTAP,A6 =1 «, t00=0x0017, t01=0x00c4}
0x24be…24ec Head {h00=0x002a, h01=0x0050, text=»ACGP06 LDK A3,2 START BUFFER INDEX =1 «, t00=0x0017, t01=0x00e0}
0x24ec…250c Head {h00=0x001c, h01=0x0050, text=»ACGP09 CF A5,OUTPUT =1 «, t00=0x0017, t01=0x010e}
0x250c…2522 Head {h00=0x0012, h01=0x0050, text=» RF ACGP19 =1«, t00=0x0017, t01=0x012e}
0x2522…2536 Head {h00=0x0010, h01=0x0050, text=» EJECT =2 «, t00=0x0017, t01=0x0144}
0x2536…2546 Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x0017, t01=0x0158}
0x2546…2564 Head {h00=0x001a, h01=0x0050, text=»* ORDER 00: TEST =2«, t00=0x0017, t01=0x0168}
0x2564…25b6 Head {h00=0x004e, h01=0x0050, text=»* IMPROVED TEST OF BOTH SUM OFF AND PRINTER NOT THERE =2 «, t00=0x0017, t01=0x0186}
0x25b6…25c6 Head {h00=0x000c, h01=0x0050, text=»* =2 «, t00=0x0018, t01=0x0048}
0x25c6…25ee Head {h00=0x0024, h01=0x0050, text=»ACGP10 LDK A2,2 SEND CHAR /02 =2«, t00=0x0018, t01=0x0058}
0x25ee…2608 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0018, t01=0x0080}
0x2608…2636 Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 SEND CHAR /00=END OF TEST =2«, t00=0x0018, t01=0x009a}
0x2636…2650 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =2 «, t00=0x0018, t01=0x00c8}
0x2650…2666 Head {h00=0x0012, h01=0x0050, text=» RF AGP410 =2«, t00=0x0018, t01=0x00e2}
0x2666…2674 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00f8}
0x2674…267e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0106}
0x267e…26a8 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x0018, t01=0x0110}
0x26a8…26ca Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x0018, t01=0x013a}
0x26ca…26d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26d4…26f0 Head {h00=0x0018, h01=0x0050, text=»ACGP17 CF A5,OUTPUT «, t00=0x0018, t01=0x0166}
0x26f0…2724 Head {h00=0x0030, h01=0x0050, text=»ACGP18 IM DWTST,A6 POSITION COUNTER UPDATING«, t00=0x0018, t01=0x0182}
0x2724…2738 Head {h00=0x0010, h01=0x0050, text=»ACGP19 EQU *«, t00=0x0019, t01=0x0026}
0x2738…2766 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,/400 INDICATE LINE FEED DONE «, t00=0x0019, t01=0x003a}
0x2766…277e Head {h00=0x0014, h01=0x0050, text=» ORS A4,DWTST,A6«, t00=0x0019, t01=0x0068}
0x277e…2794 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0019, t01=0x0080}
0x2794…27cc Head {h00=0x0034, h01=0x0050, text=» CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER «, t00=0x0019, t01=0x0096}
0x27cc…27d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00ce}
0x27d8…27ea Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0019, t01=0x00da}
0x27ea…2824 Head {h00=0x0036, h01=0x0050, text=»ACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0019, t01=0x00ec}
0x2824…2846 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0019, t01=0x0126}
0x2846…2860 Head {h00=0x0016, h01=0x0050, text=» RF(NP) AGP400 YES«, t00=0x0019, t01=0x0148}
0x2860…2872 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0019, t01=0x0162}
0x2872…288c Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0019, t01=0x0174}
0x288c…28ae Head {h00=0x001e, h01=0x0050, text=» RF(E) ACGP24 BASIC WRITE «, t00=0x0019, t01=0x018e}
0x28ae…28d6 Head {h00=0x0024, h01=0x0050, text=» SUK A1,9 HARDWARE TABULATION ? «, t00=0x001a, t01=0x0020}
0x28d6…28ec Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACGP22«, t00=0x001a, t01=0x0048}
0x28ec…2920 Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTAP,A6 RESET HEAD POSITION POINTER «, t00=0x001a, t01=0x005e}
0x2920…2932 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001a, t01=0x0092}
0x2932…2960 Head {h00=0x002a, h01=0x0050, text=»ACGP22 SUK A1,8 TABULATION CHARACTER ?«, t00=0x001a, t01=0x00a4}
0x2960…2976 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP40 «, t00=0x001a, t01=0x00d2}
0x2976…298e Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x001a, t01=0x00e8}
0x298e…29ac Head {h00=0x001a, h01=0x0050, text=» CWK A2,/07 BELL ? =1 «, t00=0x001a, t01=0x0100}
0x29ac…29c6 Head {h00=0x0016, h01=0x0050, text=» RB(E) ACGP09 =1 «, t00=0x001a, t01=0x011e}
0x29c6…29d8 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x001a, t01=0x0138}
0x29d8…29e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014a}
0x29e2…29f8 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001a, t01=0x0154}
0x29f8…2a0e Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001a, t01=0x016a}
0x2a0e…2a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0180}
0x2a18…2a3a Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x001a, t01=0x018a}
0x2a3a…2a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001c}
0x2a44…2a50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0026}
0x2a50…2a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0032}
0x2a5a…2a70 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=0 «, t00=0x001b, t01=0x003c}
0x2a70…2a86 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001b, t01=0x0052}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0068}
0x2a90…2aa6 Head {h00=0x0012, h01=0x0050, text=» SUK A1,3 /14?«, t00=0x001b, t01=0x0072}
0x2aa6…2abc Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001b, t01=0x0088}
0x2abc…2ade Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001b, t01=0x009e}
0x2ade…2ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c0}
0x2ae8…2af4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00ca}
0x2af4…2afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d6}
0x2afe…2b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e0}
0x2b08…2b1e Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001b, t01=0x00ea}
0x2b1e…2b34 Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=0 «, t00=0x001b, t01=0x0100}
0x2b34…2b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0116}
0x2b3e…2b56 Head {h00=0x0014, h01=0x0050, text=» SUK A1,2 /13 ? «, t00=0x001b, t01=0x0120}
0x2b56…2b6c Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001b, t01=0x0138}
0x2b6c…2b8e Head {h00=0x001e, h01=0x0050, text=» SUK A1,/D LESS THAN /20 ?«, t00=0x001b, t01=0x014e}
0x2b8e…2b9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0170}
0x2b9a…2ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017c}
0x2ba4…2bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0186}
0x2bae…2bc4 Head {h00=0x0012, h01=0x0050, text=» IFT TRETON=1 «, t00=0x001b, t01=0x0190}
0x2bc4…2bda Head {h00=0x0012, h01=0x0050, text=» IFT FJOTON=1 «, t00=0x001c, t01=0x0016}
0x2bda…2be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002c}
0x2be4…2bfa Head {h00=0x0012, h01=0x0050, text=» SUK A1,2 /13?«, t00=0x001c, t01=0x0036}
0x2bfa…2c10 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001c, t01=0x004c}
0x2c10…2c26 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 /14?«, t00=0x001c, t01=0x0062}
0x2c26…2c3c Head {h00=0x0012, h01=0x0050, text=» RB(E) ACGP17 «, t00=0x001c, t01=0x0078}
0x2c3c…2c5e Head {h00=0x001e, h01=0x0050, text=» SUK A1,/C LESS THAN /20 ?«, t00=0x001c, t01=0x008e}
0x2c5e…2c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c68…2c74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00ba}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c7e…2ca8 Head {h00=0x0026, h01=0x0050, text=» RF(N) ACGP30 YES,CODE CHECK ERROR«, t00=0x001c, t01=0x00d0}
0x2ca8…2cd2 Head {h00=0x0026, h01=0x0050, text=» SUK A1,/8E ROOMLESS POINT? (AE) «, t00=0x001c, t01=0x00fa}
0x2cd2…2ce8 Head {h00=0x0012, h01=0x0050, text=» RF(E) AGP100 «, t00=0x001c, t01=0x0124}
0x2ce8…2d0c Head {h00=0x0020, h01=0x0050, text=» ADK A1,/4F GREATER THAN /5F«, t00=0x001c, t01=0x013a}
0x2d0c…2d26 Head {h00=0x0016, h01=0x0050, text=» RB(NP) ACGP17 NO «, t00=0x001c, t01=0x015e}
0x2d26…2d3a Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x001c, t01=0x0178}
0x2d3a…2d50 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACGP30«, t00=0x001c, t01=0x018c}
0x2d50…2d8a Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x001d, t01=0x0012}
0x2d8a…2db4 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x001d, t01=0x004c}
0x2db4…2dc6 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001d, t01=0x0076}
0x2dc6…2dda Head {h00=0x0010, h01=0x0050, text=»ACGP24 EQU *«, t00=0x001d, t01=0x0088}
0x2dda…2dec Head {h00=0x000e, h01=0x0050, text=» SUK A1,/D«, t00=0x001d, t01=0x009c}
0x2dec…2e0a Head {h00=0x001a, h01=0x0050, text=» RF(NZ) ACGP26 NOT CR «, t00=0x001d, t01=0x00ae}
0x2e0a…2e30 Head {h00=0x0022, h01=0x0050, text=» CM DWTST,A6 SET POS LTR.TO 0 «, t00=0x001d, t01=0x00cc}
0x2e30…2e5c Head {h00=0x0028, h01=0x0050, text=» CM DWTAP,A6 RESET HEAD POS.POIINTER«, t00=0x001d, t01=0x00f2}
0x2e5c…2e74 Head {h00=0x0014, h01=0x0050, text=»ACGP26 ADK A1,3 «, t00=0x001d, t01=0x011e}
0x2e74…2e98 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) ACGP17 NOT LINE FEED«, t00=0x001d, t01=0x0136}
0x2e98…2eaa Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001d, t01=0x015a}
0x2eaa…2ed8 Head {h00=0x002a, h01=0x0050, text=» ADS A1,DWTST,A6 DECREMENT POS COUNTER«, t00=0x001d, t01=0x016c}
0x2ed8…2eea Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x001e, t01=0x000a}
0x2eea…2ef8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x001c}
0x2ef8…2f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002a}
0x2f02…2f20 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x001e, t01=0x0034}
0x2f20…2f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0052}
0x2f2a…2f3e Head {h00=0x0010, h01=0x0050, text=»ACGP30 EQU *«, t00=0x001e, t01=0x005c}
0x2f3e…2f54 Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x001e, t01=0x0070}
0x2f54…2f74 Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x001e, t01=0x0086}
0x2f74…2f86 Head {h00=0x000e, h01=0x0050, text=» RB ACGP20«, t00=0x001e, t01=0x00a6}
0x2f86…2f94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00b8}
0x2f94…2f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c6}
0x2f9e…2fb6 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x001e, t01=0x00d0}
0x2fb6…2fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e8}
0x2fc0…2fd4 Head {h00=0x0010, h01=0x0050, text=»ACGP40 EQU *«, t00=0x001e, t01=0x00f2}
0x2fd4…3004 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x001e, t01=0x0106}
0x3004…3016 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001e, t01=0x0136}
0x3016…3048 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x001e, t01=0x0148}
0x3048…305a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x001e, t01=0x017a}
0x305a…306c Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x001e, t01=0x018c}
0x306c…3082 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACGP44 «, t00=0x001f, t01=0x000e}
0x3082…30b6 Head {h00=0x0030, h01=0x0050, text=»ACGP43 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x001f, t01=0x0024}
0x30b6…30c8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001f, t01=0x0058}
0x30c8…30de Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP43«, t00=0x001f, t01=0x006a}
0x30de…311a Head {h00=0x0038, h01=0x0050, text=»ACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER«, t00=0x001f, t01=0x0080}
0x311a…3132 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x001f, t01=0x00bc}
0x3132…3162 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x001f, t01=0x00d4}
0x3162…318c Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x001f, t01=0x0104}
0x318c…31a2 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACGP20«, t00=0x001f, t01=0x012e}
0x31a2…31b4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001f, t01=0x0144}
0x31b4…31f2 Head {h00=0x003a, h01=0x0050, text=»ACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY ROUTINE«, t00=0x001f, t01=0x0156}
0x31f2…320e (32, 0, 400) Head {h00=0x0018, h01=0x0050, text=»ACGP46 CF A5,OUTPUT «, t00=0x0020, t01=0x0004}
0x320e…323a Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BUFFER INDEX «, t00=0x0020, t01=0x0020}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0020, t01=0x004c}
0x324c…3262 Head {h00=0x0012, h01=0x0050, text=» RB(P) ACGP45 «, t00=0x0020, t01=0x005e}
0x3262…327e Head {h00=0x0018, h01=0x0050, text=» LDR A3,A3 RECOVERY?«, t00=0x0020, t01=0x0074}
0x327e…3294 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ACGP20«, t00=0x0020, t01=0x0090}
0x3294…32c2 Head {h00=0x002a, h01=0x0050, text=» SC A4,DWTBC,A6 RESET POSITION POINTER«, t00=0x0020, t01=0x00a6}
0x32c2…32e6 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0020, t01=0x00d4}
0x32e6…32f8 Head {h00=0x000e, h01=0x0050, text=» RB ACGP19«, t00=0x0020, t01=0x00f8}
0x32f8…3306 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x010a}
0x3306…3310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0118}
0x3310…332c Head {h00=0x0018, h01=0x0050, text=»* ROOMLESS POINT «, t00=0x0020, t01=0x0122}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013e}
0x3336…334a Head {h00=0x0010, h01=0x0050, text=»AGP100 EQU *«, t00=0x0020, t01=0x0148}
0x334a…3354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015c}
0x3354…3368 Head {h00=0x0010, h01=0x0050, text=» IFT CROOM=1«, t00=0x0020, t01=0x0166}
0x3368…3372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017a}
0x3372…339e Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER TO SEND«, t00=0x0020, t01=0x0184}
0x339e…33b0 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0021, t01=0x0020}
0x33b0…33d2 Head {h00=0x001e, h01=0x0050, text=» LC A2,ROMTAB,A2 TRANSFORM«, t00=0x0021, t01=0x0032}
0x33d2…33dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0054}
0x33dc…33e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x005e}
0x33e8…33f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006a}
0x33f2…33fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0074}
0x33fc…3410 Head {h00=0x0010, h01=0x0050, text=» IFF CROOM=1«, t00=0x0021, t01=0x007e}
0x3410…341a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0092}
0x341a…342e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0021, t01=0x009c}
0x342e…3438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b0}
0x3438…3444 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00ba}
0x3444…344e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c6}
0x344e…3460 Head {h00=0x000e, h01=0x0050, text=» RB ACGP17«, t00=0x0021, t01=0x00d0}
0x3460…346e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00e2}
0x346e…3478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f0}
0x3478…3482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00fa}
0x3482…34ae Head {h00=0x0028, h01=0x0050, text=»* SEND LAST DUMMY , LOAD A1 WITH «, t00=0x0021, t01=0x0104}
0x34ae…34d2 Head {h00=0x0020, h01=0x0050, text=»* RETURN CODE AND END I/O«, t00=0x0021, t01=0x0130}
0x34d2…34dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0154}
0x34dc…34f0 Head {h00=0x0010, h01=0x0050, text=»AGP400 EQU *«, t00=0x0021, t01=0x015e}
0x34f0…3512 Head {h00=0x001e, h01=0x0050, text=» LDK A2,ETB END OF MESSAGE«, t00=0x0021, t01=0x0172}
0x3512…352c (34, 0, 398) Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0022, t01=0x0004}
0x352c…3550 Head {h00=0x0020, h01=0x0050, text=»AGP410 LDK A2,ETX LAST DUMMY«, t00=0x0022, t01=0x001e}
0x3550…356a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0022, t01=0x0042}
0x356a…3582 Head {h00=0x0014, h01=0x0050, text=»AGP415 EQU * =1«, t00=0x0022, t01=0x005c}
0x3582…359a Head {h00=0x0014, h01=0x0050, text=» IFT ABIS=1 =1 «, t00=0x0022, t01=0x0074}
0x359a…35ba Head {h00=0x001c, h01=0x0050, text=» ANK A2,/4 PAPER IN ? =1«, t00=0x0022, t01=0x008c}
0x35ba…35d8 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) AGP420 YES =1 «, t00=0x0022, t01=0x00ac}
0x35d8…35fe Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 SET RETURN CODE =1«, t00=0x0022, t01=0x00ca}
0x35fe…3610 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0022, t01=0x00f0}
0x3610…3624 Head {h00=0x0010, h01=0x0050, text=»AGP420 EQU *«, t00=0x0022, t01=0x0102}
0x3624…3658 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0022, t01=0x0116}
0x3658…367c Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0022, t01=0x014a}
0x367c…36a4 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0022, t01=0x016e}
0x36a4…36b8 Head {h00=0x0010, h01=0x0050, text=»AGP430 EQU *«, t00=0x0023, t01=0x0008}
0x36b8…36d0 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTA3,A6 «, t00=0x0023, t01=0x001c}
0x36d0…36f0 Head {h00=0x001c, h01=0x0050, text=» ST A3,6,A8 EFF. LENGTH «, t00=0x0023, t01=0x0034}
0x36f0…3706 Head {h00=0x0012, h01=0x0050, text=» RB AGP415 =1«, t00=0x0023, t01=0x0054}
0x3706…3714 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x006a}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0078}
0x371e…3728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0082}
0x3728…3758 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0023, t01=0x008c}
0x3758…3788 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x0023, t01=0x00bc}
0x3788…37b4 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x0023, t01=0x00ec}
0x37b4…37c8 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0023, t01=0x0118}
0x37c8…37f4 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x0023, t01=0x012c}
0x37f4…382a Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x0023, t01=0x0158}
0x382a…383c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0023, t01=0x018e}
0x383c…386c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x0024, t01=0x0010}
0x386c…387c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0024, t01=0x0040}
0x387c…3892 Head {h00=0x0012, h01=0x0050, text=» IFT SUPSPA=1 «, t00=0x0024, t01=0x0050}
0x3892…38a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0066}
0x38a0…38aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0074}
0x38aa…38b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007e}
0x38b4…38e2 Head {h00=0x002a, h01=0x0050, text=»* SKIPSP = SUBROTINE TO SKIP SPACES«, t00=0x0024, t01=0x0088}
0x38e2…390e Head {h00=0x0028, h01=0x0050, text=»* IN END OF ECB-BUFFER. «, t00=0x0024, t01=0x00b6}
0x390e…3948 Head {h00=0x0036, h01=0x0050, text=»* REQUESTED LENGTH IN ECB IS UPDATED. «, t00=0x0024, t01=0x00e2}
0x3948…3972 Head {h00=0x0026, h01=0x0050, text=»* A1,A2,A4 - WORK REG «, t00=0x0024, t01=0x011c}
0x3972…397c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x397c…3990 Head {h00=0x0010, h01=0x0050, text=»SKIPSP EQU *«, t00=0x0024, t01=0x0150}
0x3990…39bc Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0024, t01=0x0164}
0x39bc…39e8 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0024, t01=0x0190}
0x39e8…3a10 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0025, t01=0x002c}
0x3a10…3a28 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0025, t01=0x0054}
0x3a28…3a46 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0025, t01=0x006c}
0x3a46…3a60 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0025, t01=0x008a}
0x3a60…3a7c Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0025, t01=0x00a4}
0x3a7c…3a9a Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0025, t01=0x00c0}
0x3a9a…3ab4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0025, t01=0x00de}
0x3ab4…3ad4 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0025, t01=0x00f8}
0x3ad4…3af0 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0025, t01=0x0118}
0x3af0…3b08 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0025, t01=0x0134}
0x3b08…3b26 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0025, t01=0x014c}
0x3b26…3b44 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0025, t01=0x016a}
0x3b44…3b6c Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0025, t01=0x0188}
0x3b6c…3b86 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP30 NO «, t00=0x0026, t01=0x0020}
0x3b86…3ba0 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0026, t01=0x003a}
0x3ba0…3bba Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0026, t01=0x0054}
0x3bba…3bd6 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0026, t01=0x006e}
0x3bd6…3be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008a}
0x3be0…3c06 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0026, t01=0x0094}
0x3c06…3c16 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0026, t01=0x00ba}
0x3c16…3c22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00ca}
0x3c22…3c30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00d6}
0x3c30…3c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e4}
0x3c3a…3c4e Head {h00=0x0010, h01=0x0050, text=»* I H G P«, t00=0x0026, t01=0x00ee}
0x3c4e…3c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0102}
0x3c58…3c6e Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x0026, t01=0x010c}
0x3c6e…3c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0122}
0x3c78…3c8a Head {h00=0x000e, h01=0x0050, text=»IHGP EQU *«, t00=0x0026, t01=0x012c}
0x3c8a…3ca8 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0026, t01=0x013e}
0x3ca8…3cbe Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0026, t01=0x015c}
0x3cbe…3cdc Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0026, t01=0x0172}
0x3cdc…3cf2 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHGP10 «, t00=0x0026, t01=0x0190}
0x3cf2…3d0e Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0? «, t00=0x0027, t01=0x0016}
0x3d0e…3d28 Head {h00=0x0016, h01=0x0050, text=» RF(Z) IHGP20 =2 «, t00=0x0027, t01=0x0032}
0x3d28…3d5a Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x0027, t01=0x004c}
0x3d5a…3d70 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=0 «, t00=0x0027, t01=0x007e}
0x3d70…3d84 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) EXIT«, t00=0x0027, t01=0x0094}
0x3d84…3d90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00a8}
0x3d90…3da6 Head {h00=0x0012, h01=0x0050, text=» IFT RECEND=1 «, t00=0x0027, t01=0x00b4}
0x3da6…3dbc Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AGP430«, t00=0x0027, t01=0x00ca}
0x3dbc…3dc8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00e0}
0x3dc8…3dd0 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x00ec}
0x3dd0…3e08 Head {h00=0x0034, h01=0x0050, text=»IHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0027, t01=0x00f4}
0x3e08…3e24 Head {h00=0x0018, h01=0x0050, text=»IHGP20 LDR A1,A1 =2«, t00=0x0027, t01=0x012c}
0x3e24…3e54 Head {h00=0x002c, h01=0x0050, text=» RB(Z) IHGP10 TEST ORDER AND TIME OUT =2«, t00=0x0027, t01=0x0148}
0x3e54…3e6a Head {h00=0x0012, h01=0x0050, text=» RB ENDIO =2 «, t00=0x0027, t01=0x0178}
0x3e6a…3e78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x018e}
0x3e78…3e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x3e82…3e9a Head {h00=0x0014, h01=0x0050, text=»* E C H O G P«, t00=0x0028, t01=0x0016}
0x3e9a…3ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3ea4…3ed8 Head {h00=0x0030, h01=0x0050, text=»* ECHOGP = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0028, t01=0x0038}
0x3ed8…3ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006c}
0x3ee2…3ef6 Head {h00=0x0010, h01=0x0050, text=»ECHOGP EQU *«, t00=0x0028, t01=0x0076}
0x3ef6…3f0c Head {h00=0x0012, h01=0x0050, text=» LDK A4,COSPAC«, t00=0x0028, t01=0x008a}
0x3f0c…3f24 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0028, t01=0x00a0}
0x3f24…3f3e Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP17 YES «, t00=0x0028, t01=0x00b8}
0x3f3e…3f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d2}
0x3f48…3f5e Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0028, t01=0x00dc}
0x3f5e…3f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f2}
0x3f68…3f8a Head {h00=0x001e, h01=0x0050, text=» SUK A2,/80 EOR-CHARACTER «, t00=0x0028, t01=0x00fc}
0x3f8a…3fa4 Head {h00=0x0016, h01=0x0050, text=» RF(NN) ECGP20 YES«, t00=0x0028, t01=0x011e}
0x3fa4…3fb8 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0028, t01=0x0138}
0x3fb8…3fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014c}
0x3fc2…3fce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0156}
0x3fce…3fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fd8…3fea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0028, t01=0x016c}
0x3fea…3ffe Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0028, t01=0x017e}
0x3ffe…4010 (41, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A1,/8«, t00=0x0029, t01=0x0004}
0x4010…4030 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECGP40 BACKSPACE «, t00=0x0029, t01=0x0016}
0x4030…4050 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/2 LINE FEED =1 «, t00=0x0029, t01=0x0036}
0x4050…406c Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP10 YES =1«, t00=0x0029, t01=0x0056}
0x406c…4084 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/3 CR =1«, t00=0x0029, t01=0x0072}
0x4084…40a0 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP10 YES =1«, t00=0x0029, t01=0x008a}
0x40a0…40b6 Head {h00=0x0012, h01=0x0050, text=» SUK A1,/B =1«, t00=0x0029, t01=0x00a6}
0x40b6…40d2 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECGP50 CLEAR «, t00=0x0029, t01=0x00bc}
0x40d2…410e Head {h00=0x0038, h01=0x0050, text=» SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F«, t00=0x0029, t01=0x00d8}
0x410e…4124 Head {h00=0x0012, h01=0x0050, text=» RF(N) ECGP20 «, t00=0x0029, t01=0x0114}
0x4124…413c Head {h00=0x0014, h01=0x0050, text=» SUK A1,/5F-/20 «, t00=0x0029, t01=0x012a}
0x413c…4152 Head {h00=0x0012, h01=0x0050, text=» RF(P) ECGP20 «, t00=0x0029, t01=0x0142}
0x4152…417c Head {h00=0x0026, h01=0x0050, text=»ECGP10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0029, t01=0x0158}
0x417c…41a8 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0029, t01=0x0182}
0x41a8…41c2 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002a, t01=0x001e}
0x41c2…41dc Head {h00=0x0016, h01=0x0050, text=» RF(N) ECGP20 YES «, t00=0x002a, t01=0x0038}
0x41dc…420a Head {h00=0x002a, h01=0x0050, text=» RF(P) ECGP60 NO, GO TO CLEAR SECTION «, t00=0x002a, t01=0x0052}
0x420a…4214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4214…422a Head {h00=0x0012, h01=0x0050, text=» IFT COSPAC=1 «, t00=0x002a, t01=0x008a}
0x422a…4234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a0}
0x4234…4258 Head {h00=0x0020, h01=0x0050, text=» LDK A2,SPACE NO SEND SPACE «, t00=0x002a, t01=0x00aa}
0x4258…426a Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002a, t01=0x00ce}
0x426a…4274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x4274…4280 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00ea}
0x4280…428a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f6}
0x428a…42c4 Head {h00=0x0036, h01=0x0050, text=»ECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER «, t00=0x002a, t01=0x0100}
0x42c4…42f0 Head {h00=0x0028, h01=0x0050, text=»ECGP20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x002a, t01=0x013a}
0x42f0…42fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0166}
0x42fe…4308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0174}
0x4308…431e Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x002a, t01=0x017e}
0x431e…4328 (43, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x4328…433c Head {h00=0x0010, h01=0x0050, text=»ECGP40 EQU *«, t00=0x002b, t01=0x000e}
0x433c…4366 Head {h00=0x0026, h01=0x0050, text=» LDK A2,GPBSP BACKSPACE CHARACTER «, t00=0x002b, t01=0x0022}
0x4366…4378 Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002b, t01=0x004c}
0x4378…4382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005e}
0x4382…4396 Head {h00=0x0010, h01=0x0050, text=»* CANCEL «, t00=0x002b, t01=0x0068}
0x4396…43a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a0…43b4 Head {h00=0x0010, h01=0x0050, text=»ECGP50 EQU *«, t00=0x002b, t01=0x0086}
0x43b4…43da Head {h00=0x0022, h01=0x0050, text=» LDK A2,GPCLR CLEAR CHARACTER «, t00=0x002b, t01=0x009a}
0x43da…43ec Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x002b, t01=0x00c0}
0x43ec…43fe Head {h00=0x000e, h01=0x0050, text=» RB ECGP10«, t00=0x002b, t01=0x00d2}
0x43fe…4420 Head {h00=0x001e, h01=0x0050, text=»ECGP60 LDK A2,LF LINE FEED«, t00=0x002b, t01=0x00e4}
0x4420…4438 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTBC,A6 «, t00=0x002b, t01=0x0106}
0x4438…444c Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002b, t01=0x011e}
0x444c…4472 Head {h00=0x0022, h01=0x0050, text=»ECGP70 CF A5,OUTPUT SEND CHAR.«, t00=0x002b, t01=0x0132}
0x4472…4490 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/08 BACKSPACE «, t00=0x002b, t01=0x0158}
0x4490…44a2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002b, t01=0x0176}
0x44a2…44b8 Head {h00=0x0012, h01=0x0050, text=» RB(NN) ECGP70«, t00=0x002b, t01=0x0188}
0x44b8…44ca Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002c, t01=0x000e}
0x44ca…44f8 Head {h00=0x002a, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER«, t00=0x002c, t01=0x0020}
0x44f8…450a Head {h00=0x000e, h01=0x0050, text=» RB ECGP20«, t00=0x002c, t01=0x004e}
0x450a…4518 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0060}
0x4518…4522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006e}
0x4522…4536 Head {h00=0x0010, h01=0x0050, text=»* R C G P«, t00=0x002c, t01=0x0078}
0x4536…4540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008c}
0x4540…4574 Head {h00=0x0030, h01=0x0050, text=»* RCGP = RECOVERY ROUTINE GENERAL PRINTER«, t00=0x002c, t01=0x0096}
0x4574…457e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ca}
0x457e…4588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d4}
0x4588…45b4 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x002c, t01=0x00de}
0x45b4…45d4 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x002c, t01=0x010a}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012a}
0x45de…45f4 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x002c, t01=0x0134}
0x45f4…45fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x014a}
0x45fe…461c Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x002c, t01=0x0154}
0x461c…4634 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x002c, t01=0x0172}
0x4634…4652 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x002c, t01=0x018a}
0x4652…4664 Head {h00=0x000e, h01=0x0050, text=»RCGP EQU *«, t00=0x002d, t01=0x0018}
0x4664…467a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002d, t01=0x002a}
0x467a…46a4 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002d, t01=0x0040}
0x46a4…46b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x006a}
0x46b0…46ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0076}
0x46ba…46d0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002d, t01=0x0080}
0x46d0…46f6 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002d, t01=0x0096}
0x46f6…4702 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00bc}
0x4702…470c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c8}
0x470c…472a Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTST,A6 BUSY ?«, t00=0x002d, t01=0x00d2}
0x472a…4740 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x002d, t01=0x00f0}
0x4740…476c Head {h00=0x0028, h01=0x0050, text=» LDK A2,SOH RESET PRINT BUFFER CODE «, t00=0x002d, t01=0x0106}
0x476c…478a Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x0132}
0x478a…479c Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x002d, t01=0x0150}
0x479c…47b2 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCGP10 «, t00=0x002d, t01=0x0162}
0x47b2…47cc Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x002d, t01=0x0178}
0x47cc…47e6 (46, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(E) RCGP05 YES «, t00=0x002e, t01=0x0004}
0x47e6…4800 Head {h00=0x0016, h01=0x0050, text=» CWK A7,0 ORDER 0?«, t00=0x002e, t01=0x001e}
0x4800…481a Head {h00=0x0016, h01=0x0050, text=» ABL(E) ENDIO =3 «, t00=0x002e, t01=0x0038}
0x481a…4830 Head {h00=0x0012, h01=0x0050, text=» ABL EXIT =3 «, t00=0x002e, t01=0x0052}
0x4830…4844 Head {h00=0x0010, h01=0x0050, text=»RCGP05 EQU *«, t00=0x002e, t01=0x0068}
0x4844…4878 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD«, t00=0x002e, t01=0x007c}
0x4878…489c Head {h00=0x0020, h01=0x0050, text=» ANK A2,/4 LINE FEED DONE ? «, t00=0x002e, t01=0x00b0}
0x489c…48b4 Head {h00=0x0014, h01=0x0050, text=» ABL(E) ACGP NO «, t00=0x002e, t01=0x00d4}
0x48b4…48ca Head {h00=0x0012, h01=0x0050, text=» LDK A2,SPACE «, t00=0x002e, t01=0x00ec}
0x48ca…48ea Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND SPACE«, t00=0x002e, t01=0x0102}
0x48ea…48fe Head {h00=0x0010, h01=0x0050, text=» LDK A2,STX «, t00=0x002e, t01=0x0122}
0x48fe…491c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND STX«, t00=0x002e, t01=0x0136}
0x491c…493e Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x002e, t01=0x0154}
0x493e…4950 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002e, t01=0x0176}
0x4950…4984 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND«, t00=0x002e, t01=0x0188}
0x4984…4998 Head {h00=0x0010, h01=0x0050, text=» ABL ACGP46 «, t00=0x002f, t01=0x002c}
0x4998…49c4 Head {h00=0x0028, h01=0x0050, text=»RCGP10 LDK A1,TPERR SET RETURN CODE «, t00=0x002f, t01=0x0040}
0x49c4…49d8 Head {h00=0x0010, h01=0x0050, text=» ABL AGP430 «, t00=0x002f, t01=0x006c}
0x49d8…49e4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002f, t01=0x0080}
0x49e4…49e8 Head {h00=0x4004, h01=0x0000}
0x49e8…49ec 00 2f 00 8c ┆ / ┆
0x49ec…49f4 (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x49f4…4a44 (49, 0, 400) 00 48 01 8a 00 06 00 50 2a 20 00 49 00 08 00 06 00 50 2a 20 00 49 00 12 00 38 00 50 2a 5c 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 4c 49 4e 45 20 30 37 2c 20 4f 55 54 50 55 54 20 41 4e 44 20 43 4f 4e 54 52 4f 4c 20 ┆ H P* I P* I 8 P* DEVICE WORK TABLE FOR LINE 07, OUTPUT AND CONTROL ┆
0x4a44…4a94 00 49 00 1c 00 06 00 50 2a 20 00 49 00 58 00 06 00 50 2a 20 00 49 00 62 00 1c 00 50 44 57 38 31 31 34 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 4e 54 52 59 00 49 00 6c 00 20 00 50 5c 44 41 54 41 5c 44 41 4d 55 30 37 5c 44 45 56 49 43 45 20 ┆ I P* I X P* I b PDW8114 EQU * TABLE ENTRY I l P DATA DAMU07 DEVICE ┆
0x4a94…4ae4 41 44 44 52 45 53 53 20 00 49 00 8c 00 32 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 53 54 41 54 55 53 20 2c 20 2f 38 30 30 30 20 4d 45 41 4e 53 20 44 45 56 49 43 45 20 52 45 41 44 59 20 00 49 00 b0 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 ┆ADDRESS I 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY I P DATA 0 EC┆
0x4ae4…4b34 42 20 41 44 44 52 45 53 53 20 00 49 00 e6 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 49 01 02 00 2a 00 50 5c 44 41 54 41 5c 44 52 4d 55 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 49 ┆B ADDRESS I P DATA 0 ORDER I * P DATA DRMUAD POINTER TO ADDRESS BLOCK I┆
0x4b34…4b84 01 18 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 49 01 46 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 49 01 62 00 26 00 50 5c 44 41 54 41 5c ┆ P DATA 0 TTAB ADDRESS I F $ P DATA 0 WAIT/ACTIVATE INDICATOR I b & P DATA ┆
0x4b84…4bd4 (50, 0, 400) 30 5c 54 41 53 4b 20 51 55 45 55 45 20 46 4f 52 20 54 48 49 53 20 44 45 56 49 43 45 00 49 01 8a 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 4a 00 24 00 14 00 50 5c 44 41 54 41 5c 30 5c 55 53 45 52 45 43 42 20 00 4a 00 3a 00 1c ┆0 TASK QUEUE FOR THIS DEVICE I P IFT MMUPAG=1 J $ P DATA 0 USERECB J : ┆
0x4bd4…4c24 00 50 5c 44 41 54 41 5c 4d 45 43 42 31 34 5c 44 52 49 56 45 52 20 45 43 42 20 00 4a 00 52 00 0a 00 50 5c 58 49 46 5c 20 00 4a 00 72 00 12 00 50 5c 49 46 54 5c 4d 4c 49 4e 30 37 3d 31 20 00 4a 00 80 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 49 ┆ P DATA MECB14 DRIVER ECB J R P XIF J r P IFT MLIN07=1 J P DATA 0 TI┆
0x4c24…4c74 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 4a 00 96 00 22 00 50 5c 44 41 54 41 5c 30 5c 41 43 54 49 56 49 54 59 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 00 4a 00 b4 00 26 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 5c 53 55 42 52 ┆MER POINTER J " P DATA 0 ACTIVITY TIMER POINTER J & P DATA 0,0,0,0,0,0 SUBR┆
0x4c74…4cc4 4f 55 54 49 4e 45 20 53 54 41 43 4b 00 4a 00 da 00 1e 00 50 5c 52 45 53 5c 33 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 33 2d 41 35 00 4a 01 04 00 24 00 50 5c 44 41 54 41 5c 44 57 38 31 31 34 5c 4f 55 54 50 55 54 20 44 57 54 20 41 44 ┆OUTINE STACK J P RES 3 SAVE AREA FOR A3-A5 J $ P DATA DW8114 OUTPUT DWT AD┆
0x4cc4…4d14 44 52 45 53 53 20 00 4a 01 26 00 22 00 50 5c 44 41 54 41 5c 44 57 38 31 31 33 5c 49 4e 50 55 54 20 44 57 54 20 41 44 44 52 45 53 53 00 4a 01 4e 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 38 00 4a 01 74 ┆DRESS J & " P DATA DW8113 INPUT DWT ADDRESS J N P DATA 0 SAVE AREA FOR A8 J t┆
0x4d14…4d64 (51, 0, 400) 00 1e 00 50 5c 44 41 54 41 5c 30 5c 43 55 20 36 38 35 37 20 49 2f 4f 20 49 4e 44 5c 3d 31 00 4b 00 04 00 1a 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 59 20 43 4f 55 4e 54 45 52 20 00 4b 00 26 00 18 00 50 5c 44 41 54 41 5c 30 5c 42 43 43 20 ┆ P DATA 0 CU 6857 I/O IND =1 K P DATA 0 RETRY COUNTER K & P DATA 0 BCC ┆
0x4d64…4db4 43 4f 55 4e 54 45 52 20 00 4b 00 44 00 18 00 50 5c 44 41 54 41 5c 30 5c 41 43 4b 20 43 4f 55 4e 54 45 52 20 00 4b 00 60 00 10 00 50 5c 44 41 54 41 5c 30 5c 50 41 43 54 00 4b 00 7c 00 12 00 50 5c 44 41 54 41 5c 30 5c 50 49 4e 41 43 54 00 4b ┆COUNTER K D P DATA 0 ACK COUNTER K ` P DATA 0 PACT K | P DATA 0 PINACT K┆
0x4db4…4e04 00 90 00 18 00 50 5c 44 41 54 41 5c 4c 49 4e 45 30 37 2b 4c 49 4e 45 30 37 20 00 4b 00 a6 00 10 00 50 5c 52 45 53 5c 4c 49 4e 45 30 37 20 00 4b 00 c2 00 10 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 20 00 4b 00 d6 00 12 00 50 5c 49 46 54 5c 4d ┆ P DATA LINE07+LINE07 K P RES LINE07 K P DATA /FFFF K P IFT M┆
0x4e04…4e54 4d 55 50 41 47 3d 31 20 00 4b 00 ea 00 2c 00 50 4d 45 43 42 31 34 5c 44 41 54 41 5c 30 2c 44 43 42 46 31 34 2c 30 2c 30 2c 30 2c 30 5c 44 52 49 56 45 52 20 45 43 42 20 00 4b 01 00 00 16 00 50 44 43 42 46 31 34 5c 52 45 53 5c 54 42 55 46 4c ┆MUPAG=1 K , PMECB14 DATA 0,DCBF14,0,0,0,0 DRIVER ECB K PDCBF14 RES TBUFL┆
0x4e54…4ea4 2b 31 00 4b 01 30 00 08 00 50 5c 58 49 46 00 4b 01 4a 00 12 00 50 5c 49 46 54 5c 4d 4c 49 4e 30 37 3d 31 20 00 4b 01 56 00 06 00 50 2a 20 00 4b 01 6c 00 0a 00 50 5c 45 4a 45 43 54 00 4b 01 76 00 06 00 50 2a 20 00 4b 01 84 00 06 00 50 2a 20 ┆+1 K 0 P XIF K J P IFT MLIN07=1 K V P* K l P EJECT K v P* K P* ┆
0x4ea4…4ef4 (52, 0, 398) 00 4b 01 8e 00 2a 00 50 2a 5c 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 4c 49 4e 45 20 30 37 2c 20 49 4e 50 55 54 00 4c 00 08 00 06 00 50 2a 20 00 4c 00 36 00 06 00 50 2a 20 00 4c 00 40 00 1c 00 50 44 57 38 31 31 33 ┆ K * P* DEVICE WORK TABLE FOR LINE 07, INPUT L P* L 6 P* L @ PDW8113┆
0x4ef4…4f44 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 4e 54 52 59 00 4c 00 4a 00 20 00 50 5c 44 41 54 41 5c 44 41 4d 49 30 37 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 4c 00 6a 00 32 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 53 54 41 54 55 53 ┆ EQU * TABLE ENTRY L J P DATA DAMI07 DEVICE ADDRESS L j 2 P DATA /8000 STATUS┆
0x4f44…4f94 20 2c 20 2f 38 30 30 30 20 4d 45 41 4e 53 20 44 45 56 49 43 45 20 52 45 41 44 59 20 00 4c 00 8e 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 4c 00 c4 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 4c ┆ , /8000 MEANS DEVICE READY L P DATA 0 ECB ADDRESS L P DATA 0 ORDER L┆
0x4f94…4fe4 00 e0 00 2a 00 50 5c 44 41 54 41 5c 44 52 4d 49 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 20 00 4c 00 f6 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 20 41 44 44 52 45 53 53 00 4c 01 24 00 24 00 50 ┆ * P DATA DRMIAD POINTER TO ADDRESS BLOCK L P DATA 0 TTAB ADDRESS L $ $ P┆
0x4fe4…5032 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 4c 01 40 00 26 00 50 5c 44 41 54 41 5c 30 5c 54 41 53 4b 20 51 55 45 55 45 20 46 4f 52 20 54 48 49 53 20 44 45 56 49 43 45 00 4c 01 68 ┆ DATA 0 WAIT/ACTIVATE INDICATOR L @ & P DATA 0 TASK QUEUE FOR THIS DEVICE L h┆