|
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: 14196 (0x3774)
Notes: pts_type(SC)
Names: »DRGP04.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/DRGP04.SC«
IDENT DRGP04 REL 11.0 81-03-13 870105041100 = 1 ARRANGEMENTS FOR THE FIRST VERSION OF COPY80 ARE DELETED REL 11.0 81-01-26 * **************************************** * * * * PHILIPS TERMINAL SYSTEM P T S * * D R G P 0 4 = DRIVER HARD COPY PRINTER * * * **************************************** * * THIS DRIVER HANDLES THE HARD COPY * PRINTER HP 75 ( COPY 80 ). * * THE FOLLOWING ORDERS ARE TREATED : * * ORDER /00: TEST STATUS * ORDER /05: BASIC WRITE * ORDER /06: STANDARD WRITE * ORDER /24: TEST OUTPUT BUFFER AND SET PRINTER PARAMETER * * NORMAL REGISTER USAGE : * * A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * SYSTEM ADAPTION * * ORDER /24, TEST OUTPUT BUFFER AND SET PRINTER * PARAMETER CAN BE EXCLUDED BY MEANS OF CONDI- * TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE * FINISHED WITHOUT WAITING FOR THE OUTPUT BUF- * FER TO BE EMPTY. EJECT * ****************************************** * * ENTRY * ****************************************** * ENTRY GPAD04 ADDRESS TO ADDRESSBLOCK * **************************************** * * EXTERNAL TOSS MODULE ENTRIES * **************************************** * EXTRN STABLK START OF BLOCK EXTRN OUTPUT OUTPUT OF ONE CHARACTER EXTRN ENDBLK END OF BLOCK EXTRN INPUT INPUT ONE CHARACTER EXTRN GETCHR GET ONE CHARACTER FROM ECB-BUFFER EXTRN ABORT ABORT INPUT REQUEST EXTRN SETIME SETS TIMER EXTRN LENDIS END I/O WITH DISPATCH EXTRN LENDER END I/O WITH ERROR AND DISPATCH * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD * * DWT DISPLACEMENTS * EXTRN DWTOR ORDER EXTRN DWTDEV TERMINAL DEVICE STATUS WORD * DWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER DWTLFC EQU 4 LINE FEED COUNTER DWTTP EQU 6 TIMER POINTER * ****************************************** * * CONSTANTS * ****************************************** * LF EQU /0A LINE FEED ETX EQU /3 ETX ( /03 ) CCERR EQU /4 CODE CHECK ERROR TIME EQU /1 100 MILLISECONDS * **************************************** * * ADDRESS BLOCK * **************************************** * DATA DVBLEN BUFFER LENGTH DATA 2 DEVICE INDEX GPAD04 EQU * DATA ACGP04 ACTIVATION PART DATA ABGP04 ABORT ROUTINE DATA 0 NO INTERRUPT HANDLER DATA RCGP04 RECOVERY ROUTINE DATA 0 NO ECHO ROUTINE * **************************************** * * CONDITIONAL ASSEMBLY * **************************************** * * ORDER /24 MAY BE EXCLUDED BY SETTING X:A = 0 * X:A EQU 1 ORD24 EQU 1 * * * MEMORY MANAGEMENT BUFFER SIZE * X:B EQU 80 DVBLEN EQU 250 * * MAXIMUM BLOCK SIZE * X:C EQU /80 MAXBLK EQU X:C * * EJECT * ***************************************** * * A C G P 0 4 = ACTIVATION PART * * THIS PART CHECKS THE ORDER AND BRANCHES * TO THE APPROPRIATE PART OF THE DRIVER. * ***************************************** * ACGP04 EQU * LDK A3,0 RESET BUFFER INDEX LDK A2,MAXBLK GET BLOCK SIZE CF A5,STABLK START BLOCK RF(NZ) GPER10 NOT OK ! CM DWTBLC+DWTDEV,A6 CLEAR CHARACTERS IN BLOCK COUNTER * * TEST ORDER * LDR A7,A7 GET ORDER RF(Z) GP400 ORDER /00, TEST STATUS SUK A7,5 RF(N) REQERR REQUEST ERROR ! SUK A7,/1F IFT ORD24=1 RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. XIF IFT ORD24=0 RF(Z) REQERR ORDER /24 IS EXCLUDED ! XIF ADK A7,/1E RF(P) REQERR REQUEST ERROR ! RF(N) GP200 ORDER /05, BASIC WRITE ! ADK A7,1 RF(P) GP100 ORDER/06, STANDARD WRITE ! * * REQUEST ERROR * REQERR EQU * CF A5,ENDBLK END OF BLOCK ABL LENDER SET RETURN CODE AND END I/O EJECT * **************************************** * * WRITING PART * * THIS IS THE ENTRY POINT FOR ORDER /06, STANDARD WRITE. * THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER * IS TREATED AND THE REST OF THE CHARACTERS ARE SENT * AFTER INDIVIDUAL CODE CHECK. * ***************************************** * GP100 EQU * * * TEST REQUESTED LENGTH * LD A2,ECBRL,A8 GET REQUESTED LENGTH SUK A2,2 LESS THAN TWO ? RF(NN) GP110 NO ! RB REQERR YES ! REQUEST ERROR ! * * TEST CONTROL CHARACTER * GP110 EQU * LD A2,ECBBA,A8 GET BUFFER ADDRESS LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF ADK A3,2 INCREMENT BUFFER INDEX SUK A2,/30 EXTRA LINE FEED ? RF(NZ) GP200 NO ! LDK A2,LF YES ! LOAD CODE FOR LINE FEED C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 RF GP210 SEND IT ! EJECT * **************************************** * * THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. * THE REQUESTED NUMBER OF CHARACTERS ARE SENT TO * PRINTER FROM THE ECB-BUFFER. * **************************************** * GP200 EQU * CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? RF(NP) GP350 NO ! * LDR A7,A7 YES ! ORDER /06 ? RF(P) GP300 YES ! CHECK CHARACTER CODE * CWK A2,LF LINE FEED ? RF(NE) GP220 NO ! * GP210 EQU * IM DWTLFC+DWTDEV,A6 YES ! INCR. LF-COUNTER * GP220 EQU * IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER * LDK A1,MAXBLK GET MAX BLOCK SIZE CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ? RF(G) GP240 NO ! * LDR A4,A2 YES ! SAVE CHARACTER CF A5,ENDBLK END OLD BLOCK RF(NZ) GPER10 AND START A NEW ONE CM DWTBLC+DWTDEV,A6 CLEAR COUNTER LDK A2,MAXBLK CF A5,STABLK RF(NZ) GPER10 LDR A2,A4 RESTORE CHARACTER * GP240 EQU * CF A5,OUTPUT SEND CHARACTER GPER10 RF(NZ) GPER20 RB GP200 NEXT CHARACTER EJECT * **************************************** * * THIS PART CHECKS CHARACTER CODES * FOR STANDARD WRITE * **************************************** * GP300 EQU * LDR A4,A2 SUK A4,/20 WITHIN LIMITS ? RF(N) GP310 NO ! * SUK A4,/5F RF(P) GP305 NO, TEST SP. CHAR IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER RB GP240 OK ! SEND CHARACTER * * SPECIAL CHARACTERS ? * GP305 EQU * SUK A4,/2F /AE ? ( ROOMLESS POINT ) RF(NZ) GP320 NO ! SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) RB GP300 AND SEND GP310 EQU * ADK A4,/2 /1E OR /1F ? RF(NN) GP340 YES ! ADK A4,/A /15 - /1D ? RF(P) GP320 YES ! ADK A4,/3 /12 - /14 ? RF(P) GP340 YES ! RF(Z) GP345 /11 !! TABULATION ! ADK A4,8 /09 ? RF(Z) GP340 YES ! * * CODE CHECK ERROR * GP320 EQU * LDK A1,CCERR ILLEGAL CHAR. = BIT 13 ORS A1,ECBRC,A8 SET BIT IN RETURN CODE GP340 EQU * RB GP200 GET NEXT CHARACTER * * TABULATION HANDLING * GP345 EQU * CF A15,GETCHR MAKE TWO ASCII DIGITS TO HEX CODE LDR A4,A2 CF A15,GETCHR ANK A2,/F ANK A4,/F RF(Z) GP347 GP346 ADK A2,/A SUK A4,1 RB(NZ) GP346 GP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER SUR A2,A4 RB(NP) GP200 NO TABULATION POSSIBLE LDR A4,A2 NUMBER OF SPACES TO SEND GP348 LDK A2,/20 SPACE CF A5,OUTPUT SEND RF(NZ) GPER20 NOT OK ! SUK A4,1 MORE TO SEND ? RB(P) GP348 YES ! RB GP200 NO TAKE NEXT CHARACTER EJECT * **************************************** * * THIS IS THE COMPLETION PART OF THE WRITE REQUESTS * **************************************** * GP350 EQU * LDR A7,A7 BASIC WRITE ? RF(N) GP420 YES ! DON'T SEND LF * **************************************** * * THIS IS THE ENTRY POINT FOR ORDER /00, * TEST STATUS AND ORDER /24, TEST OUTPUT * BUFFER AND SET PRINTER PARAMETER. * ***************************************** * GP400 EQU * LDK A2,LF LINE FEED CF A5,OUTPUT SEND RF(NZ) GPER20 NOT OK ! IM DWTLFC+DWTDEV,A6 INCREMENT LINE FEED COUNTER GP420 EQU * * =1 LDK A2,ETX ETX ( /03 ) CF A5,OUTPUT SEND RF(NZ) GPER20 NOT OK ! * CF A5,ENDBLK END OF BLOCK RF(NZ) GPER20 NOT OK ! * LDR A7,A7 TEST STATUS OR ORDER /24 ? RF(Z) GP440 YES ! DON'T TEST MODE * IFT ORD24=0 RF GP480 WRITE REQUESTS ARE FINISHED WITHOUT * CHECKING THE OUTPUT BUFFER XIF IFT ORD24=1 LD A1,DWTDEV,A6 GET STATUS WORD RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED * BEFORE THE OUTPUT BUFFER IS EMP XIF * GP440 EQU * * * SET TIMER. TIME BEFORE TIMEOUT IS DEPENDING * ON THE NUMBER OF LINE FEEDS THAT ARE SENT * LDR A1,A6 DWT-ADDRESS IN A1 CF A15,SETIME DATA GPTUT,TIME ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS SLC A2,3 COMPUTE TIME C1R A2,A2 STR A2,A4 SET NEW TIME * * READ /02 FROM PRINTER * CF A5,INPUT READ * * /02 COMES ! * CM* DWTTP+DWTDEV,A6 TURN OFF TIMER LD A7,DWTOR,A6 GET ORDER ANK A7,/FF AND MASK SUK A7,/24 ORDER /24 ? RF(NZ) GP480 NO ! END I/O * LDKL A2,/8000 LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER. RF(Z) GP460 ORS A2,DWTDEV,A6 SET BIT 0 IN DWTDEV RF GP480 GP460 EQU * C1R A2,A2 COMPLEMENT ANS A2,DWTDEV,A6 CLEAR BIT 0 * * END OF REQUEST * GP480 EQU * LDK A1,0 SET RETURN CODE = 0 ENDIO EQU * GPER20 EQU * CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER ABL LENDIS END I/O WITH DISPATCH EJECT * **************************************** * * TIMEOUT ROUTINE * **************************************** * GPTUT EQU * LDR A6,A1 GET DWT-ADDRESS IN A6 CF A15,ABORT RESET INPUT REQUESTED BIT LDK A1,1 SET RETURN CODE ( NOT OPERABLE ) * =1 RB ENDIO * **************************************** * * ABORT ROUTINE * **************************************** * ABGP04 EQU * CF A15,ABORT RESET INPUT REQUESTED BIT CM DWTTP+DWTDEV,A6 RESET TIMER RB ENDIO EJECT * ****************************************** * * RECOVERY ROUTINE * ****************************************** * RCGP04 EQU * LDR A8,A8 BUSY ? RF(Z) RCGP10 NO ! * CF A15,ABORT RESET INPUT REQUESTED FLAG CM DWTTP+DWTDEV,A6 RESET TIMER LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR ) RCGP10 EQU * RB ENDIO END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRGP04 REL 11.0 81-03-13 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0070 Head {h00=0x002e, h01=0x0050, text=» = 1 ARRANGEMENTS FOR THE FIRST VERSION «, t00=0x0000, t01=0x0042}
0x0070…0094 Head {h00=0x0020, h01=0x0050, text=» OF COPY80 ARE DELETED«, t00=0x0000, t01=0x0074}
0x0094…00b0 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x0098}
0x00b0…00ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00ea Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x00be}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0132 Head {h00=0x0026, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM P T S«, t00=0x0000, t01=0x010c}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0170 Head {h00=0x0030, h01=0x0050, text=»* D R G P 0 4 = DRIVER HARD COPY PRINTER«, t00=0x0000, t01=0x0140}
0x0170…017a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0174}
0x017a…0184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017e}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…01be (1, 0, 400) Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0001, t01=0x0004}
0x01be…01c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0034}
0x01c8…01f6 Head {h00=0x002a, h01=0x0050, text=»* THIS DRIVER HANDLES THE HARD COPY «, t00=0x0001, t01=0x003e}
0x01f6…021c Head {h00=0x0022, h01=0x0050, text=»* PRINTER HP 75 ( COPY 80 ).«, t00=0x0001, t01=0x006c}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0226…0254 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x009c}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x025e…0282 Head {h00=0x0020, h01=0x0050, text=»* ORDER /00: TEST STATUS «, t00=0x0001, t01=0x00d4}
0x0282…02a6 Head {h00=0x0020, h01=0x0050, text=»* ORDER /05: BASIC WRITE «, t00=0x0001, t01=0x00f8}
0x02a6…02cc Head {h00=0x0022, h01=0x0050, text=»* ORDER /06: STANDARD WRITE«, t00=0x0001, t01=0x011c}
0x02cc…0310 Head {h00=0x0040, h01=0x0050, text=»* ORDER /24: TEST OUTPUT BUFFER AND SET PRINTER PARAMETER«, t00=0x0001, t01=0x0142}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0186}
0x031a…033e Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE : «, t00=0x0001, t01=0x0190}
0x033e…0348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x0348…0364 Head {h00=0x0018, h01=0x0050, text=»* A1 = RETURN CODE«, t00=0x0002, t01=0x002e}
0x0364…0386 Head {h00=0x001e, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0002, t01=0x004a}
0x0386…03a4 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0002, t01=0x006c}
0x03a4…03c2 Head {h00=0x001a, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0002, t01=0x008a}
0x03c2…03de Head {h00=0x0018, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0002, t01=0x00a8}
0x03de…03fa Head {h00=0x0018, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0002, t01=0x00c4}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=»* A7 = ORDER«, t00=0x0002, t01=0x00e0}
0x0410…042c Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0002, t01=0x00f6}
0x042c…0436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0112}
0x0436…0452 Head {h00=0x0018, h01=0x0050, text=»* SYSTEM ADAPTION «, t00=0x0002, t01=0x011c}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045c…0496 Head {h00=0x0036, h01=0x0050, text=»* ORDER /24, TEST OUTPUT BUFFER AND SET PRINTER «, t00=0x0002, t01=0x0142}
0x0496…04ce Head {h00=0x0034, h01=0x0050, text=»* PARAMETER CAN BE EXCLUDED BY MEANS OF CONDI-«, t00=0x0002, t01=0x017c}
0x04ce…0506 Head {h00=0x0034, h01=0x0050, text=»* TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE«, t00=0x0003, t01=0x0024}
0x0506…053e Head {h00=0x0034, h01=0x0050, text=»* FINISHED WITHOUT WAITING FOR THE OUTPUT BUF-«, t00=0x0003, t01=0x005c}
0x053e…055a Head {h00=0x0018, h01=0x0050, text=»* FER TO BE EMPTY.«, t00=0x0003, t01=0x0094}
0x055a…0568 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00b0}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00be}
0x0572…05a4 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0003, t01=0x00c8}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05c0 Head {h00=0x000e, h01=0x0050, text=»* ENTRY «, t00=0x0003, t01=0x0104}
0x05c0…05ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0116}
0x05ca…05fc Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0003, t01=0x0120}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0606…0634 Head {h00=0x002a, h01=0x0050, text=» ENTRY GPAD04 ADDRESS TO ADDRESSBLOCK «, t00=0x0003, t01=0x015c}
0x0634…063e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018a}
0x063e…066e (4, 0, 400) Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0004, t01=0x0004}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0034}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES«, t00=0x0004, t01=0x003e}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06da Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0004, t01=0x0070}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e4…0708 Head {h00=0x0020, h01=0x0050, text=» EXTRN STABLK START OF BLOCK«, t00=0x0004, t01=0x00aa}
0x0708…0736 Head {h00=0x002a, h01=0x0050, text=» EXTRN OUTPUT OUTPUT OF ONE CHARACTER «, t00=0x0004, t01=0x00ce}
0x0736…0758 Head {h00=0x001e, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0004, t01=0x00fc}
0x0758…0780 Head {h00=0x0024, h01=0x0050, text=» EXTRN INPUT INPUT ONE CHARACTER«, t00=0x0004, t01=0x011e}
0x0780…07b8 Head {h00=0x0034, h01=0x0050, text=» EXTRN GETCHR GET ONE CHARACTER FROM ECB-BUFFER «, t00=0x0004, t01=0x0146}
0x07b8…07e0 Head {h00=0x0024, h01=0x0050, text=» EXTRN ABORT ABORT INPUT REQUEST«, t00=0x0004, t01=0x017e}
0x07e0…0800 Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIME SETS TIMER«, t00=0x0005, t01=0x0016}
0x0800…082c Head {h00=0x0028, h01=0x0050, text=» EXTRN LENDIS END I/O WITH DISPATCH «, t00=0x0005, t01=0x0036}
0x082c…0862 Head {h00=0x0032, h01=0x0050, text=» EXTRN LENDER END I/O WITH ERROR AND DISPATCH «, t00=0x0005, t01=0x0062}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0098}
0x086c…088a Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x0005, t01=0x00a2}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08b8 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0005, t01=0x00ca}
0x08b8…08de Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0005, t01=0x00ee}
0x08de…08fe Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0005, t01=0x0114}
0x08fe…0920 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0005, t01=0x0134}
0x0920…092a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0156}
0x092a…0948 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0005, t01=0x0160}
0x0948…0952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017e}
0x0952…096c Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0005, t01=0x0188}
0x096c…099e Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTDEV TERMINAL DEVICE STATUS WORD «, t00=0x0006, t01=0x0012}
0x099e…09a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09d8 Head {h00=0x002c, h01=0x0050, text=»DWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER«, t00=0x0006, t01=0x004e}
0x09d8…09fe Head {h00=0x0022, h01=0x0050, text=»DWTLFC EQU 4 LINE FEED COUNTER«, t00=0x0006, t01=0x007e}
0x09fe…0a20 Head {h00=0x001e, h01=0x0050, text=»DWTTP EQU 6 TIMER POINTER «, t00=0x0006, t01=0x00a4}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2a…0a5c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0006, t01=0x00d0}
0x0a5c…0a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0102}
0x0a66…0a7c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x0006, t01=0x010c}
0x0a7c…0a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0122}
0x0a86…0ab8 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0006, t01=0x012c}
0x0ab8…0ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015e}
0x0ac2…0ade Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0006, t01=0x0168}
0x0ade…0afc Head {h00=0x001a, h01=0x0050, text=»ETX EQU /3 ETX ( /03 )«, t00=0x0006, t01=0x0184}
0x0afc…0b22 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0007, t01=0x0012}
0x0b22…0b46 Head {h00=0x0020, h01=0x0050, text=»TIME EQU /1 100 MILLISECONDS«, t00=0x0007, t01=0x0038}
0x0b46…0b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b80 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0007, t01=0x0066}
0x0b80…0b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b8a…0ba4 Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0007, t01=0x00a0}
0x0ba4…0bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0bae…0bde Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0007, t01=0x00c4}
0x0bde…0be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f4}
0x0be8…0c0a Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0007, t01=0x00fe}
0x0c0a…0c26 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0007, t01=0x0120}
0x0c26…0c3a Head {h00=0x0010, h01=0x0050, text=»GPAD04 EQU *«, t00=0x0007, t01=0x013c}
0x0c3a…0c5e Head {h00=0x0020, h01=0x0050, text=» DATA ACGP04 ACTIVATION PART«, t00=0x0007, t01=0x0150}
0x0c5e…0c80 Head {h00=0x001e, h01=0x0050, text=» DATA ABGP04 ABORT ROUTINE«, t00=0x0007, t01=0x0174}
0x0c80…0ca4 Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x0008, t01=0x0008}
0x0ca4…0cca Head {h00=0x0022, h01=0x0050, text=» DATA RCGP04 RECOVERY ROUTINE «, t00=0x0008, t01=0x002c}
0x0cca…0cea Head {h00=0x001c, h01=0x0050, text=» DATA 0 NO ECHO ROUTINE «, t00=0x0008, t01=0x0052}
0x0cea…0cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0072}
0x0cf4…0d24 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0008, t01=0x007c}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ac}
0x0d2e…0d4e Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x00b6}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d6}
0x0d58…0d88 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0008, t01=0x00e0}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d92…0dca Head {h00=0x0034, h01=0x0050, text=»* ORDER /24 MAY BE EXCLUDED BY SETTING X:A = 0«, t00=0x0008, t01=0x011a}
0x0dca…0dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0152}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x015c}
0x0de6…0dfa Head {h00=0x0010, h01=0x0050, text=»ORD24 EQU 1 «, t00=0x0008, t01=0x016e}
0x0dfa…0e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0182}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018c}
0x0e0e…0e38 Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0009, t01=0x0008}
0x0e38…0e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e42…0e54 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 80«, t00=0x0009, t01=0x003c}
0x0e54…0e6a Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 250«, t00=0x0009, t01=0x004e}
0x0e6a…0e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e74…0e92 Head {h00=0x001a, h01=0x0050, text=»* MAXIMUM BLOCK SIZE«, t00=0x0009, t01=0x006e}
0x0e92…0e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008c}
0x0e9c…0eb0 Head {h00=0x0010, h01=0x0050, text=»X:C EQU /80 «, t00=0x0009, t01=0x0096}
0x0eb0…0ec6 Head {h00=0x0012, h01=0x0050, text=»MAXBLK EQU X:C«, t00=0x0009, t01=0x00aa}
0x0ec6…0ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed0…0eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ca}
0x0eda…0ee8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d4}
0x0ee8…0ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e2}
0x0ef2…0f24 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x00ec}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f2e…0f5a Head {h00=0x0028, h01=0x0050, text=»* A C G P 0 4 = ACTIVATION PART «, t00=0x0009, t01=0x0128}
0x0f5a…0f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0154}
0x0f64…0f98 Head {h00=0x0030, h01=0x0050, text=»* THIS PART CHECKS THE ORDER AND BRANCHES «, t00=0x0009, t01=0x015e}
0x0f98…0fca (10, 0, 400) Head {h00=0x002e, h01=0x0050, text=»* TO THE APPROPRIATE PART OF THE DRIVER.«, t00=0x000a, t01=0x0004}
0x0fca…0fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd4…1006 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000a, t01=0x0040}
0x1006…1010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0072}
0x1010…1024 Head {h00=0x0010, h01=0x0050, text=»ACGP04 EQU *«, t00=0x000a, t01=0x007c}
0x1024…1048 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x000a, t01=0x0090}
0x1048…106e Head {h00=0x0022, h01=0x0050, text=» LDK A2,MAXBLK GET BLOCK SIZE «, t00=0x000a, t01=0x00b4}
0x106e…1090 Head {h00=0x001e, h01=0x0050, text=» CF A5,STABLK START BLOCK «, t00=0x000a, t01=0x00da}
0x1090…10b0 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER10 NOT OK ! «, t00=0x000a, t01=0x00fc}
0x10b0…10ee Head {h00=0x003a, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR CHARACTERS IN BLOCK COUNTER«, t00=0x000a, t01=0x011c}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x10f8…110e Head {h00=0x0012, h01=0x0050, text=»* TEST ORDER«, t00=0x000a, t01=0x0164}
0x110e…1118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017a}
0x1118…1134 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 GET ORDER«, t00=0x000a, t01=0x0184}
0x1134…1160 Head {h00=0x0028, h01=0x0050, text=» RF(Z) GP400 ORDER /00, TEST STATUS «, t00=0x000b, t01=0x0010}
0x1160…1172 Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x000b, t01=0x003c}
0x1172…1198 Head {h00=0x0022, h01=0x0050, text=» RF(N) REQERR REQUEST ERROR ! «, t00=0x000b, t01=0x004e}
0x1198…11ac Head {h00=0x0010, h01=0x0050, text=» SUK A7,/1F «, t00=0x000b, t01=0x0074}
0x11ac…11c0 Head {h00=0x0010, h01=0x0050, text=» IFT ORD24=1«, t00=0x000b, t01=0x0088}
0x11c0…1202 Head {h00=0x003e, h01=0x0050, text=» RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. «, t00=0x000b, t01=0x009c}
0x1202…120e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00de}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=» IFT ORD24=0«, t00=0x000b, t01=0x00ea}
0x1222…1250 Head {h00=0x002a, h01=0x0050, text=» RF(Z) REQERR ORDER /24 IS EXCLUDED ! «, t00=0x000b, t01=0x00fe}
0x1250…125c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x012c}
0x125c…1270 Head {h00=0x0010, h01=0x0050, text=» ADK A7,/1E «, t00=0x000b, t01=0x0138}
0x1270…1296 Head {h00=0x0022, h01=0x0050, text=» RF(P) REQERR REQUEST ERROR ! «, t00=0x000b, t01=0x014c}
0x1296…12c4 Head {h00=0x002a, h01=0x0050, text=» RF(N) GP200 ORDER /05, BASIC WRITE ! «, t00=0x000b, t01=0x0172}
0x12c4…12d6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x000c, t01=0x0010}
0x12d6…1306 Head {h00=0x002c, h01=0x0050, text=» RF(P) GP100 ORDER/06, STANDARD WRITE ! «, t00=0x000c, t01=0x0022}
0x1306…1310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0052}
0x1310…132a Head {h00=0x0016, h01=0x0050, text=»* REQUEST ERROR «, t00=0x000c, t01=0x005c}
0x132a…1334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x1334…1348 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x000c, t01=0x0080}
0x1348…136a Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x000c, t01=0x0094}
0x136a…139a Head {h00=0x002c, h01=0x0050, text=» ABL LENDER SET RETURN CODE AND END I/O «, t00=0x000c, t01=0x00b6}
0x139a…13a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e6}
0x13a8…13b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f4}
0x13b2…13e2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000c, t01=0x00fe}
0x13e2…13ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13ec…1404 Head {h00=0x0014, h01=0x0050, text=»* WRITING PART«, t00=0x000c, t01=0x0138}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x140e…1450 Head {h00=0x003e, h01=0x0050, text=»* THIS IS THE ENTRY POINT FOR ORDER /06, STANDARD WRITE.«, t00=0x000c, t01=0x015a}
0x1450…1492 Head {h00=0x003e, h01=0x0050, text=»* THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER«, t00=0x000d, t01=0x000c}
0x1492…14d0 Head {h00=0x003a, h01=0x0050, text=»* IS TREATED AND THE REST OF THE CHARACTERS ARE SENT«, t00=0x000d, t01=0x004e}
0x14d0…14f8 Head {h00=0x0024, h01=0x0050, text=»* AFTER INDIVIDUAL CODE CHECK.«, t00=0x000d, t01=0x008c}
0x14f8…1502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b4}
0x1502…1534 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x00be}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f0}
0x153e…1552 Head {h00=0x0010, h01=0x0050, text=»GP100 EQU * «, t00=0x000d, t01=0x00fa}
0x1552…155c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x155c…157e Head {h00=0x001e, h01=0x0050, text=»* TEST REQUESTED LENGTH «, t00=0x000d, t01=0x0118}
0x157e…1588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x013a}
0x1588…15b4 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x000d, t01=0x0144}
0x15b4…15d6 Head {h00=0x001e, h01=0x0050, text=» SUK A2,2 LESS THAN TWO ? «, t00=0x000d, t01=0x0170}
0x15d6…15f0 (14, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NN) GP110 NO !«, t00=0x000e, t01=0x0004}
0x15f0…1618 Head {h00=0x0024, h01=0x0050, text=» RB REQERR YES ! REQUEST ERROR !«, t00=0x000e, t01=0x001e}
0x1618…1622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0046}
0x1622…1644 Head {h00=0x001e, h01=0x0050, text=»* TEST CONTROL CHARACTER«, t00=0x000e, t01=0x0050}
0x1644…164e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0072}
0x164e…1662 Head {h00=0x0010, h01=0x0050, text=»GP110 EQU * «, t00=0x000e, t01=0x007c}
0x1662…168c Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x000e, t01=0x0090}
0x168c…16b6 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x000e, t01=0x00ba}
0x16b6…16ca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000e, t01=0x00e4}
0x16ca…16f2 Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 INCREMENT BUFFER INDEX«, t00=0x000e, t01=0x00f8}
0x16f2…1718 Head {h00=0x0022, h01=0x0050, text=» SUK A2,/30 EXTRA LINE FEED ? «, t00=0x000e, t01=0x0120}
0x1718…1732 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GP200 NO !«, t00=0x000e, t01=0x0146}
0x1732…1762 Head {h00=0x002c, h01=0x0050, text=» LDK A2,LF YES ! LOAD CODE FOR LINE FEED«, t00=0x000e, t01=0x0160}
0x1762…1796 Head {h00=0x0030, h01=0x0050, text=» C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 «, t00=0x000e, t01=0x0190}
0x1796…17b2 Head {h00=0x0018, h01=0x0050, text=» RF GP210 SEND IT ! «, t00=0x000f, t01=0x0034}
0x17b2…17c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0050}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17ca…17fa Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x0068}
0x17fa…1804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0098}
0x1804…1844 Head {h00=0x003c, h01=0x0050, text=»* THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. «, t00=0x000f, t01=0x00a2}
0x1844…187e Head {h00=0x0036, h01=0x0050, text=»* THE REQUESTED NUMBER OF CHARACTERS ARE SENT TO«, t00=0x000f, t01=0x00e2}
0x187e…18a6 Head {h00=0x0024, h01=0x0050, text=»* PRINTER FROM THE ECB-BUFFER.«, t00=0x000f, t01=0x011c}
0x18a6…18b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0144}
0x18b0…18e0 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x000f, t01=0x014e}
0x18e0…18ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017e}
0x18ea…18fe Head {h00=0x0010, h01=0x0050, text=»GP200 EQU * «, t00=0x000f, t01=0x0188}
0x18fe…1934 Head {h00=0x0032, h01=0x0050, text=» CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER«, t00=0x0010, t01=0x000c}
0x1934…1968 Head {h00=0x0030, h01=0x0050, text=» LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? «, t00=0x0010, t01=0x0042}
0x1968…1982 Head {h00=0x0016, h01=0x0050, text=» RF(NP) GP350 NO !«, t00=0x0010, t01=0x0076}
0x1982…198c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0090}
0x198c…19b0 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 YES ! ORDER /06 ?«, t00=0x0010, t01=0x009a}
0x19b0…19e0 Head {h00=0x002c, h01=0x0050, text=» RF(P) GP300 YES ! CHECK CHARACTER CODE «, t00=0x0010, t01=0x00be}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ee}
0x19ea…1a08 Head {h00=0x001a, h01=0x0050, text=» CWK A2,LF LINE FEED ?«, t00=0x0010, t01=0x00f8}
0x1a08…1a22 Head {h00=0x0016, h01=0x0050, text=» RF(NE) GP220 NO !«, t00=0x0010, t01=0x0116}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a2c…1a40 Head {h00=0x0010, h01=0x0050, text=»GP210 EQU * «, t00=0x0010, t01=0x013a}
0x1a40…1a74 Head {h00=0x0030, h01=0x0050, text=» IM DWTLFC+DWTDEV,A6 YES ! INCR. LF-COUNTER «, t00=0x0010, t01=0x014e}
0x1a74…1a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0182}
0x1a7e…1a92 Head {h00=0x0010, h01=0x0050, text=»GP220 EQU * «, t00=0x0010, t01=0x018c}
0x1a92…1ad0 Head {h00=0x003a, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER«, t00=0x0011, t01=0x0010}
0x1ad0…1ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004e}
0x1ada…1b04 Head {h00=0x0026, h01=0x0050, text=» LDK A1,MAXBLK GET MAX BLOCK SIZE «, t00=0x0011, t01=0x0058}
0x1b04…1b30 Head {h00=0x0028, h01=0x0050, text=» CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ?«, t00=0x0011, t01=0x0082}
0x1b30…1b4a Head {h00=0x0016, h01=0x0050, text=» RF(G) GP240 NO ! «, t00=0x0011, t01=0x00ae}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c8}
0x1b54…1b7c Head {h00=0x0024, h01=0x0050, text=» LDR A4,A2 YES ! SAVE CHARACTER «, t00=0x0011, t01=0x00d2}
0x1b7c…1ba0 Head {h00=0x0020, h01=0x0050, text=» CF A5,ENDBLK END OLD BLOCK «, t00=0x0011, t01=0x00fa}
0x1ba0…1bca Head {h00=0x0026, h01=0x0050, text=» RF(NZ) GPER10 AND START A NEW ONE«, t00=0x0011, t01=0x011e}
0x1bca…1bf4 Head {h00=0x0026, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR COUNTER«, t00=0x0011, t01=0x0148}
0x1bf4…1c0a Head {h00=0x0012, h01=0x0050, text=» LDK A2,MAXBLK«, t00=0x0011, t01=0x0172}
0x1c0a…1c20 Head {h00=0x0012, h01=0x0050, text=» CF A5,STABLK «, t00=0x0011, t01=0x0188}
0x1c20…1c36 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) GPER10«, t00=0x0012, t01=0x000e}
0x1c36…1c5a Head {h00=0x0020, h01=0x0050, text=» LDR A2,A4 RESTORE CHARACTER«, t00=0x0012, t01=0x0024}
0x1c5a…1c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0048}
0x1c64…1c78 Head {h00=0x0010, h01=0x0050, text=»GP240 EQU * «, t00=0x0012, t01=0x0052}
0x1c78…1c9c Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0012, t01=0x0066}
0x1c9c…1cb8 Head {h00=0x0018, h01=0x0050, text=»GPER10 RF(NZ) GPER20«, t00=0x0012, t01=0x008a}
0x1cb8…1cd8 Head {h00=0x001c, h01=0x0050, text=» RB GP200 NEXT CHARACTER«, t00=0x0012, t01=0x00a6}
0x1cd8…1ce6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00c6}
0x1ce6…1cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d4}
0x1cf0…1d20 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x00de}
0x1d20…1d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d2a…1d56 Head {h00=0x0028, h01=0x0050, text=»* THIS PART CHECKS CHARACTER CODES«, t00=0x0012, t01=0x0118}
0x1d56…1d74 Head {h00=0x001a, h01=0x0050, text=»* FOR STANDARD WRITE«, t00=0x0012, t01=0x0144}
0x1d74…1d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0162}
0x1d7e…1dae Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x016c}
0x1dae…1db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000c}
0x1db8…1dcc Head {h00=0x0010, h01=0x0050, text=»GP300 EQU * «, t00=0x0013, t01=0x0016}
0x1dcc…1dde Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0013, t01=0x002a}
0x1dde…1e02 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/20 WITHIN LIMITS ? «, t00=0x0013, t01=0x003c}
0x1e02…1e1c Head {h00=0x0016, h01=0x0050, text=» RF(N) GP310 NO ! «, t00=0x0013, t01=0x0060}
0x1e1c…1e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e26…1e3a Head {h00=0x0010, h01=0x0050, text=» SUK A4,/5F «, t00=0x0013, t01=0x0084}
0x1e3a…1e60 Head {h00=0x0022, h01=0x0050, text=» RF(P) GP305 NO, TEST SP. CHAR«, t00=0x0013, t01=0x0098}
0x1e60…1e90 Head {h00=0x002c, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER «, t00=0x0013, t01=0x00be}
0x1e90…1eb6 Head {h00=0x0022, h01=0x0050, text=» RB GP240 OK ! SEND CHARACTER «, t00=0x0013, t01=0x00ee}
0x1eb6…1ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0114}
0x1ec0…1ee0 Head {h00=0x001c, h01=0x0050, text=»* SPECIAL CHARACTERS ?«, t00=0x0013, t01=0x011e}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013e}
0x1eea…1efe Head {h00=0x0010, h01=0x0050, text=»GP305 EQU * «, t00=0x0013, t01=0x0148}
0x1efe…1f2a Head {h00=0x0028, h01=0x0050, text=» SUK A4,/2F /AE ? ( ROOMLESS POINT )«, t00=0x0013, t01=0x015c}
0x1f2a…1f44 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GP320 NO !«, t00=0x0013, t01=0x0188}
0x1f44…1f80 Head {h00=0x0038, h01=0x0050, text=» SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) «, t00=0x0014, t01=0x0012}
0x1f80…1f9a Head {h00=0x0016, h01=0x0050, text=» RB GP300 AND SEND«, t00=0x0014, t01=0x004e}
0x1f9a…1fae Head {h00=0x0010, h01=0x0050, text=»GP310 EQU * «, t00=0x0014, t01=0x0068}
0x1fae…1fce Head {h00=0x001c, h01=0x0050, text=» ADK A4,/2 /1E OR /1F ? «, t00=0x0014, t01=0x007c}
0x1fce…1fea Head {h00=0x0018, h01=0x0050, text=» RF(NN) GP340 YES ! «, t00=0x0014, t01=0x009c}
0x1fea…2008 Head {h00=0x001a, h01=0x0050, text=» ADK A4,/A /15 - /1D ?«, t00=0x0014, t01=0x00b8}
0x2008…2022 Head {h00=0x0016, h01=0x0050, text=» RF(P) GP320 YES !«, t00=0x0014, t01=0x00d6}
0x2022…2040 Head {h00=0x001a, h01=0x0050, text=» ADK A4,/3 /12 - /14 ?«, t00=0x0014, t01=0x00f0}
0x2040…205a Head {h00=0x0016, h01=0x0050, text=» RF(P) GP340 YES !«, t00=0x0014, t01=0x010e}
0x205a…2084 Head {h00=0x0026, h01=0x0050, text=» RF(Z) GP345 /11 !! TABULATION ! «, t00=0x0014, t01=0x0128}
0x2084…209c Head {h00=0x0014, h01=0x0050, text=» ADK A4,8 /09 ? «, t00=0x0014, t01=0x0152}
0x209c…20b6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) GP340 YES !«, t00=0x0014, t01=0x016a}
0x20b6…20c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0184}
0x20c0…20dc Head {h00=0x0018, h01=0x0050, text=»* CODE CHECK ERROR«, t00=0x0014, t01=0x018e}
0x20dc…20e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001a}
0x20e6…20fa Head {h00=0x0010, h01=0x0050, text=»GP320 EQU * «, t00=0x0015, t01=0x0024}
0x20fa…2126 Head {h00=0x0028, h01=0x0050, text=» LDK A1,CCERR ILLEGAL CHAR. = BIT 13«, t00=0x0015, t01=0x0038}
0x2126…2156 Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 SET BIT IN RETURN CODE «, t00=0x0015, t01=0x0064}
0x2156…216a Head {h00=0x0010, h01=0x0050, text=»GP340 EQU * «, t00=0x0015, t01=0x0094}
0x216a…218e Head {h00=0x0020, h01=0x0050, text=» RB GP200 GET NEXT CHARACTER«, t00=0x0015, t01=0x00a8}
0x218e…2198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00cc}
0x2198…21b8 Head {h00=0x001c, h01=0x0050, text=»* TABULATION HANDLING «, t00=0x0015, t01=0x00d6}
0x21b8…21c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f6}
0x21c2…21d6 Head {h00=0x0010, h01=0x0050, text=»GP345 EQU * «, t00=0x0015, t01=0x0100}
0x21d6…220e Head {h00=0x0034, h01=0x0050, text=» CF A15,GETCHR MAKE TWO ASCII DIGITS TO HEX CODE«, t00=0x0015, t01=0x0114}
0x220e…2220 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0015, t01=0x014c}
0x2220…2236 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETCHR«, t00=0x0015, t01=0x015e}
0x2236…2248 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0015, t01=0x0174}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0015, t01=0x0186}
0x225a…226e Head {h00=0x0010, h01=0x0050, text=» RF(Z) GP347«, t00=0x0016, t01=0x0008}
0x226e…2286 Head {h00=0x0014, h01=0x0050, text=»GP346 ADK A2,/A «, t00=0x0016, t01=0x001c}
0x2286…2298 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0016, t01=0x0034}
0x2298…22ae Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GP346 «, t00=0x0016, t01=0x0046}
0x22ae…22e4 Head {h00=0x0032, h01=0x0050, text=»GP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER «, t00=0x0016, t01=0x005c}
0x22e4…22f6 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x0016, t01=0x0092}
0x22f6…2322 Head {h00=0x0028, h01=0x0050, text=» RB(NP) GP200 NO TABULATION POSSIBLE«, t00=0x0016, t01=0x00a4}
0x2322…234e Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 NUMBER OF SPACES TO SEND «, t00=0x0016, t01=0x00d0}
0x234e…236c Head {h00=0x001a, h01=0x0050, text=»GP348 LDK A2,/20 SPACE«, t00=0x0016, t01=0x00fc}
0x236c…2386 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0016, t01=0x011a}
0x2386…23a6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0016, t01=0x0134}
0x23a6…23c6 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE TO SEND ?«, t00=0x0016, t01=0x0154}
0x23c6…23e0 Head {h00=0x0016, h01=0x0050, text=» RB(P) GP348 YES !«, t00=0x0016, t01=0x0174}
0x23e0…2408 Head {h00=0x0024, h01=0x0050, text=» RB GP200 NO TAKE NEXT CHARACTER«, t00=0x0016, t01=0x018e}
0x2408…2416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0026}
0x2416…2420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0034}
0x2420…2450 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0017, t01=0x003e}
0x2450…245a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006e}
0x245a…2498 Head {h00=0x003a, h01=0x0050, text=»* THIS IS THE COMPLETION PART OF THE WRITE REQUESTS «, t00=0x0017, t01=0x0078}
0x2498…24a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b6}
0x24a2…24d2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0017, t01=0x00c0}
0x24d2…24dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f0}
0x24dc…24f0 Head {h00=0x0010, h01=0x0050, text=»GP350 EQU * «, t00=0x0017, t01=0x00fa}
0x24f0…2510 Head {h00=0x001c, h01=0x0050, text=» LDR A7,A7 BASIC WRITE ?«, t00=0x0017, t01=0x010e}
0x2510…2538 Head {h00=0x0024, h01=0x0050, text=» RF(N) GP420 YES ! DON'T SEND LF«, t00=0x0017, t01=0x012e}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0156}
0x2542…2572 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0017, t01=0x0160}
0x2572…257c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0190}
0x257c…25ae Head {h00=0x002e, h01=0x0050, text=»* THIS IS THE ENTRY POINT FOR ORDER /00,«, t00=0x0018, t01=0x000a}
0x25ae…25e0 Head {h00=0x002e, h01=0x0050, text=»* TEST STATUS AND ORDER /24, TEST OUTPUT«, t00=0x0018, t01=0x003c}
0x25e0…260e Head {h00=0x002a, h01=0x0050, text=»* BUFFER AND SET PRINTER PARAMETER. «, t00=0x0018, t01=0x006e}
0x260e…2618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009c}
0x2618…264a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0018, t01=0x00a6}
0x264a…2654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x2654…2668 Head {h00=0x0010, h01=0x0050, text=»GP400 EQU * «, t00=0x0018, t01=0x00e2}
0x2668…2684 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0018, t01=0x00f6}
0x2684…269e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0018, t01=0x0112}
0x269e…26be Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0018, t01=0x012c}
0x26be…26f6 Head {h00=0x0034, h01=0x0050, text=» IM DWTLFC+DWTDEV,A6 INCREMENT LINE FEED COUNTER«, t00=0x0018, t01=0x014c}
0x26f6…270a Head {h00=0x0010, h01=0x0050, text=»GP420 EQU * «, t00=0x0018, t01=0x0184}
0x270a…271a Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0008}
0x271a…273a Head {h00=0x001c, h01=0x0050, text=» LDK A2,ETX ETX ( /03 ) «, t00=0x0019, t01=0x0018}
0x273a…2754 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0038}
0x2754…2774 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0019, t01=0x0052}
0x2774…277e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0072}
0x277e…27a0 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0019, t01=0x007c}
0x27a0…27c0 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0019, t01=0x009e}
0x27c0…27ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00be}
0x27ca…27f8 Head {h00=0x002a, h01=0x0050, text=» LDR A7,A7 TEST STATUS OR ORDER /24 ? «, t00=0x0019, t01=0x00c8}
0x27f8…2822 Head {h00=0x0026, h01=0x0050, text=» RF(Z) GP440 YES ! DON'T TEST MODE«, t00=0x0019, t01=0x00f6}
0x2822…282c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0120}
0x282c…2840 Head {h00=0x0010, h01=0x0050, text=» IFT ORD24=0«, t00=0x0019, t01=0x012a}
0x2840…2876 Head {h00=0x0032, h01=0x0050, text=» RF GP480 WRITE REQUESTS ARE FINISHED WITHOUT «, t00=0x0019, t01=0x013e}
0x2876…28c2 Head {h00=0x0048, h01=0x0050, text=»* CHECKING THE OUTPUT BUFFER «, t00=0x0019, t01=0x0174}
0x28c2…28ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0030}
0x28ce…28e2 Head {h00=0x0010, h01=0x0050, text=» IFT ORD24=1«, t00=0x001a, t01=0x003c}
0x28e2…290a Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTDEV,A6 GET STATUS WORD«, t00=0x001a, t01=0x0050}
0x290a…293e Head {h00=0x0030, h01=0x0050, text=» RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED«, t00=0x001a, t01=0x0078}
0x293e…298e Head {h00=0x004c, h01=0x0050, text=»* BEFORE THE OUTPUT BUFFER IS EMP«, t00=0x001a, t01=0x00ac}
0x298e…299a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00fc}
0x299a…29a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0108}
0x29a4…29b8 Head {h00=0x0010, h01=0x0050, text=»GP440 EQU * «, t00=0x001a, t01=0x0112}
0x29b8…29c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29c2…29fa Head {h00=0x0034, h01=0x0050, text=»* SET TIMER. TIME BEFORE TIMEOUT IS DEPENDING «, t00=0x001a, t01=0x0130}
0x29fa…2a30 Head {h00=0x0032, h01=0x0050, text=»* ON THE NUMBER OF LINE FEEDS THAT ARE SENT «, t00=0x001a, t01=0x0168}
0x2a30…2a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000e}
0x2a3a…2a5e Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DWT-ADDRESS IN A1«, t00=0x001b, t01=0x0018}
0x2a5e…2a74 Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x001b, t01=0x003c}
0x2a74…2a8c Head {h00=0x0014, h01=0x0050, text=» DATA GPTUT,TIME«, t00=0x001b, t01=0x0052}
0x2a8c…2abe Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER«, t00=0x001b, t01=0x006a}
0x2abe…2af2 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS«, t00=0x001b, t01=0x009c}
0x2af2…2b10 Head {h00=0x001a, h01=0x0050, text=» SLC A2,3 COMPUTE TIME«, t00=0x001b, t01=0x00d0}
0x2b10…2b22 Head {h00=0x000e, h01=0x0050, text=» C1R A2,A2«, t00=0x001b, t01=0x00ee}
0x2b22…2b42 Head {h00=0x001c, h01=0x0050, text=» STR A2,A4 SET NEW TIME «, t00=0x001b, t01=0x0100}
0x2b42…2b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0120}
0x2b4c…2b6e Head {h00=0x001e, h01=0x0050, text=»* READ /02 FROM PRINTER «, t00=0x001b, t01=0x012a}
0x2b6e…2b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014c}
0x2b78…2b92 Head {h00=0x0016, h01=0x0050, text=» CF A5,INPUT READ «, t00=0x001b, t01=0x0156}
0x2b92…2b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0170}
0x2b9c…2bb4 Head {h00=0x0014, h01=0x0050, text=»* /02 COMES ! «, t00=0x001b, t01=0x017a}
0x2bb4…2bbe (28, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0004}
0x2bbe…2bea Head {h00=0x0028, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6 TURN OFF TIMER «, t00=0x001c, t01=0x000e}
0x2bea…2c0c Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001c, t01=0x003a}
0x2c0c…2c28 Head {h00=0x0018, h01=0x0050, text=» ANK A7,/FF AND MASK«, t00=0x001c, t01=0x005c}
0x2c28…2c48 Head {h00=0x001c, h01=0x0050, text=» SUK A7,/24 ORDER /24 ? «, t00=0x001c, t01=0x0078}
0x2c48…2c6a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GP480 NO ! END I/O«, t00=0x001c, t01=0x0098}
0x2c6a…2c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c74…2c8a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001c, t01=0x00c4}
0x2c8a…2cbe Head {h00=0x0030, h01=0x0050, text=» LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER.«, t00=0x001c, t01=0x00da}
0x2cbe…2cd4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) GP460 «, t00=0x001c, t01=0x010e}
0x2cd4…2d02 Head {h00=0x002a, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT 0 IN DWTDEV «, t00=0x001c, t01=0x0124}
0x2d02…2d14 Head {h00=0x000e, h01=0x0050, text=» RF GP480 «, t00=0x001c, t01=0x0152}
0x2d14…2d28 Head {h00=0x0010, h01=0x0050, text=»GP460 EQU * «, t00=0x001c, t01=0x0164}
0x2d28…2d46 Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x001c, t01=0x0178}
0x2d46…2d6c Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 CLEAR BIT 0 «, t00=0x001d, t01=0x0008}
0x2d6c…2d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x002e}
0x2d76…2d90 Head {h00=0x0016, h01=0x0050, text=»* END OF REQUEST«, t00=0x001d, t01=0x0038}
0x2d90…2d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0052}
0x2d9a…2dae Head {h00=0x0010, h01=0x0050, text=»GP480 EQU * «, t00=0x001d, t01=0x005c}
0x2dae…2dd4 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SET RETURN CODE = 0 «, t00=0x001d, t01=0x0070}
0x2dd4…2de8 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001d, t01=0x0096}
0x2de8…2dfc Head {h00=0x0010, h01=0x0050, text=»GPER20 EQU *«, t00=0x001d, t01=0x00aa}
0x2dfc…2e30 Head {h00=0x0030, h01=0x0050, text=» CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER«, t00=0x001d, t01=0x00be}
0x2e30…2e5a Head {h00=0x0026, h01=0x0050, text=» ABL LENDIS END I/O WITH DISPATCH «, t00=0x001d, t01=0x00f2}
0x2e5a…2e68 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x011c}
0x2e68…2e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012a}
0x2e72…2ea2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001d, t01=0x0134}
0x2ea2…2eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eac…2ec8 Head {h00=0x0018, h01=0x0050, text=»* TIMEOUT ROUTINE «, t00=0x001d, t01=0x016e}
0x2ec8…2ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018a}
0x2ed2…2f02 (30, 0, 398) Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001e, t01=0x0004}
0x2f02…2f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0034}
0x2f0c…2f20 Head {h00=0x0010, h01=0x0050, text=»GPTUT EQU * «, t00=0x001e, t01=0x003e}
0x2f20…2f48 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS IN A6«, t00=0x001e, t01=0x0052}
0x2f48…2f78 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED BIT «, t00=0x001e, t01=0x007a}
0x2f78…2faa Head {h00=0x002e, h01=0x0050, text=» LDK A1,1 SET RETURN CODE ( NOT OPERABLE )«, t00=0x001e, t01=0x00aa}
0x2faa…2fba Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001e, t01=0x00dc}
0x2fba…2fcc Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x001e, t01=0x00ec}
0x2fcc…2fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fd6…3006 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001e, t01=0x0108}
0x3006…3010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0138}
0x3010…302a Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x001e, t01=0x0142}
0x302a…3034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015c}
0x3034…3064 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001e, t01=0x0166}
0x3064…306e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0008}
0x306e…3082 Head {h00=0x0010, h01=0x0050, text=»ABGP04 EQU *«, t00=0x001f, t01=0x0012}
0x3082…30b2 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED BIT «, t00=0x001f, t01=0x0026}
0x30b2…30da Head {h00=0x0024, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x001f, t01=0x0056}
0x30da…30ec Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x001f, t01=0x007e}
0x30ec…30fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0090}
0x30fa…3104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009e}
0x3104…3136 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x001f, t01=0x00a8}
0x3136…3140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00da}
0x3140…315c Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x001f, t01=0x00e4}
0x315c…3166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0100}
0x3166…3198 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x001f, t01=0x010a}
0x3198…31a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31a2…31b6 Head {h00=0x0010, h01=0x0050, text=»RCGP04 EQU *«, t00=0x001f, t01=0x0146}
0x31b6…31d0 Head {h00=0x0016, h01=0x0050, text=» LDR A8,A8 BUSY ? «, t00=0x001f, t01=0x015a}
0x31d0…31ea Head {h00=0x0016, h01=0x0050, text=» RF(Z) RCGP10 NO !«, t00=0x001f, t01=0x0174}
0x31ea…31f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x31f4…3224 Head {h00=0x002c, h01=0x0050, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0020, t01=0x0008}
0x3224…324c Head {h00=0x0024, h01=0x0050, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x0020, t01=0x0038}
0x324c…3282 Head {h00=0x0032, h01=0x0050, text=» LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR )«, t00=0x0020, t01=0x0060}
0x3282…3296 Head {h00=0x0010, h01=0x0050, text=»RCGP10 EQU *«, t00=0x0020, t01=0x0096}
0x3296…32a8 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0020, t01=0x00aa}
0x32a8…32b4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0020, t01=0x00bc}
0x32b4…32b8 Head {h00=0x4004, h01=0x0000}
0x32b8…32bc 00 20 00 c8 ┆ ┆
0x32bc…32c4 (33, 1, 8) 20 04 00 00 00 21 00 04 ┆ ! ┆
0x32c4…3314 (34, 0, 400) 00 91 01 76 00 06 00 50 2a 20 00 92 00 08 00 0e 00 50 4f 55 4c 31 30 30 5c 49 4e 48 00 92 00 12 00 24 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 35 5c 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 46 52 45 45 20 3f 20 00 92 00 24 00 16 00 50 5c 52 46 28 ┆ v P* POUL100 INH $ P LDR* A3,A5 CHANNEL UNIT FREE ? $ P RF(┆
0x3314…3364 4e 45 29 5c 4f 55 4c 38 30 30 5c 4e 4f 20 00 92 00 4c 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 92 00 66 00 12 00 50 5c 49 46 46 5c 4c 4f 43 48 41 4e 3d 30 20 00 92 00 7c 00 18 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 52 45 4d ┆NE) OUL800 NO L P IFF RECHAN=0 f P IFF LOCHAN=0 | P LDR A7,A7 REM┆
0x3364…33b4 4f 54 45 20 3f 20 00 92 00 92 00 14 00 50 5c 52 46 28 5a 29 5c 4f 55 4c 34 30 30 5c 4e 4f 00 92 00 ae 00 08 00 50 5c 58 49 46 00 92 00 c6 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 92 00 d2 00 0e 00 50 5c 4c 44 52 5c 41 33 2c ┆OTE ? P RF(Z) OUL400 NO P XIF P IFF RECHAN=0 P LDR A3,┆
0x33b4…3404 41 32 00 92 00 e8 00 16 00 50 5c 53 55 4b 5c 41 33 2c 2f 38 32 5c 53 54 58 20 3f 20 00 92 00 fa 00 16 00 50 5c 52 46 28 4e 45 29 5c 4f 55 4c 32 30 30 5c 4e 4f 20 00 92 01 14 00 0a 00 50 5c 45 4a 45 43 54 00 92 01 2e 00 06 00 50 2a 20 00 92 ┆A2 P SUK A3,/82 STX ? P RF(NE) OUL200 NO P EJECT . P* ┆
0x3404…3454 01 3c 00 0e 00 50 2a 20 20 20 20 53 20 54 20 58 00 92 01 46 00 06 00 50 2a 20 00 92 01 58 00 2a 00 50 5c 4c 44 5c 41 33 2c 4c 52 43 44 57 54 2c 41 37 5c 4c 52 43 2d 50 52 4f 43 45 53 53 20 52 55 4e 4e 49 4e 47 20 3f 00 92 01 62 00 16 00 50 ┆ < P* S T X F P* X * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ? b P┆
0x3454…34a4 (35, 0, 400) 5c 52 46 28 4e 45 29 5c 4f 55 4c 31 37 35 5c 59 45 53 00 92 01 90 00 12 00 50 5c 4c 44 4b 5c 41 32 2c 4c 52 43 53 45 4e 00 93 00 1a 00 2a 00 50 5c 4f 52 53 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 49 4e 44 49 43 41 54 45 20 4c 52 43 2d 53 45 ┆ RF(NE) OUL175 YES P LDK A2,LRCSEN * P ORS A2,DWTST,A6 INDICATE LRC-SE┆
0x34a4…34f4 4e 44 49 4e 47 20 00 93 00 30 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 30 20 00 93 00 5e 00 24 00 50 5c 53 54 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 5c 53 45 54 20 4c 52 43 2d 44 45 56 49 43 45 20 00 93 00 70 00 2c 00 50 5c 43 4d 5c 4c 52 43 41 ┆NDING 0 P LDK A2,0 ^ $ P ST A6,LRCDWT,A7 SET LRC-DEVICE p , P CM LRCA┆
0x34f4…3544 43 4b 2c 41 37 5c 52 45 53 45 54 20 4c 52 43 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 41 4e 44 20 00 93 00 98 00 1a 00 50 5c 5c 5c 49 4e 44 49 43 41 54 45 20 46 49 52 53 54 20 4f 42 43 20 00 93 00 c8 00 30 00 50 4f 55 4c 31 35 30 5c 4c 44 5c ┆CK,A7 RESET LRC-ACKUMULATOR AND P INDICATE FIRST OBC 0 POUL150 LD ┆
0x3544…3594 41 34 2c 44 57 54 43 50 32 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 53 20 32 20 00 93 00 e6 00 28 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 53 45 54 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 20 54 4f 20 5a 45 52 30 20 00 93 ┆A4,DWTCP2,A6 CHANNEL PARAMETERS 2 ( P LDK A3,0 SET DEVICE NUMBER TO ZER0 ┆
0x3594…35e4 01 1a 00 0e 00 50 5c 52 46 5c 4f 55 4c 35 30 35 00 93 01 46 00 26 00 50 4f 55 4c 31 37 35 5c 43 57 52 5c 41 33 2c 41 36 5c 53 41 4d 45 20 4c 52 43 2d 44 45 56 49 43 45 20 3f 00 93 01 58 00 20 00 50 5c 52 46 28 4e 45 29 5c 4f 55 4c 38 30 30 ┆ P RF OUL505 F & POUL175 CWR A3,A6 SAME LRC-DEVICE ? X P RF(NE) OUL800┆
0x35e4…3634 (36, 0, 400) 5c 51 55 45 55 45 20 4f 55 54 50 55 54 20 00 93 01 82 00 0e 00 50 5c 52 46 5c 4f 55 4c 33 35 30 00 94 00 16 00 1c 00 50 4f 55 4c 32 30 30 5c 53 55 4b 5c 41 33 2c 2f 31 35 5c 45 54 42 20 3f 20 00 94 00 28 00 16 00 50 5c 52 46 28 4e 45 29 5c ┆ QUEUE OUTPUT P RF OUL350 POUL200 SUK A3,/15 ETB ? ( P RF(NE) ┆
0x3634…3684 4f 55 4c 33 30 30 5c 4e 4f 20 00 94 00 48 00 0a 00 50 5c 45 4a 45 43 54 00 94 00 62 00 06 00 50 2a 20 00 94 00 70 00 0e 00 50 2a 20 20 20 20 45 20 54 20 42 00 94 00 7a 00 06 00 50 2a 20 00 94 00 8c 00 26 00 50 5c 53 43 5c 41 32 2c 4c 52 43 ┆OUL300 NO H P EJECT b P* p P* E T B z P* & P SC A2,LRC┆
0x3684…36d4 41 43 4b 2c 41 37 5c 49 4e 44 49 43 41 54 45 20 4c 41 53 54 20 4f 42 43 00 94 00 96 00 2a 00 50 5c 4c 43 5c 41 32 2c 4c 52 43 41 43 4b 2b 31 2c 41 37 5c 47 45 54 20 4c 52 43 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 00 94 00 c0 00 0e 00 50 5c 52 ┆ACK,A7 INDICATE LAST OBC * P LC A2,LRCACK+1,A7 GET LRC-ACKUMULATOR P R┆
0x36d4…3724 42 5c 4f 55 4c 31 35 30 00 94 00 ee 00 06 00 50 2a 20 00 94 01 00 00 16 00 50 2a 20 20 20 20 4f 54 48 45 52 20 4f 55 54 50 55 54 20 00 94 01 0a 00 06 00 50 2a 20 00 94 01 24 00 30 00 50 4f 55 4c 33 30 30 5c 4c 44 5c 41 38 2c 44 57 54 43 50 ┆B OUL150 P* P* OTHER OUTPUT P* $ 0 POUL300 LD A8,DWTCP┆
0x3724…3774 32 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 53 20 32 20 00 94 01 2e 00 32 00 50 5c 43 57 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 5c 53 41 4d 45 20 44 45 56 49 43 45 20 53 45 4e 44 49 4e 47 20 57 49 54 48 20 4c 52 43 20 ┆2,A6 CHANNEL PARAMETERS 2 . 2 P CW A6,LRCDWT,A7 SAME DEVICE SENDING WITH LRC ┆