|
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: 14198 (0x3776)
Notes: pts_type(SC)
Names: »DRGP04.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRGP04.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/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 X:A * * * MEMORY MANAGEMENT BUFFER SIZE * X:B EQU 80 DVBLEN EQU X:B * * 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=0x0003, text=»* «, t00=0x0000, t01=0x00b4}
0x00ba…00ea Head {h00=0x002c, h01=0x0028, 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=0x0003, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0132 Head {h00=0x0026, h01=0x0022, text=»* PHILIPS TERMINAL SYSTEM P T S«, t00=0x0000, t01=0x010c}
0x0132…013c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0170 Head {h00=0x0030, h01=0x002c, 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=0x0003, text=»* «, t00=0x0000, t01=0x0188}
0x018e…01be (1, 0, 400) Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0001, t01=0x0004}
0x01be…01c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0034}
0x01c8…01f6 Head {h00=0x002a, h01=0x0026, text=»* THIS DRIVER HANDLES THE HARD COPY «, t00=0x0001, t01=0x003e}
0x01f6…021c Head {h00=0x0022, h01=0x001e, text=»* PRINTER HP 75 ( COPY 80 ).«, t00=0x0001, t01=0x006c}
0x021c…0226 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0092}
0x0226…0254 Head {h00=0x002a, h01=0x0026, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x009c}
0x0254…025e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00ca}
0x025e…0282 Head {h00=0x0020, h01=0x001b, text=»* ORDER /00: TEST STATUS «, t00=0x0001, t01=0x00d4}
0x0282…02a6 Head {h00=0x0020, h01=0x001b, text=»* ORDER /05: BASIC WRITE «, t00=0x0001, t01=0x00f8}
0x02a6…02cc Head {h00=0x0022, h01=0x001e, text=»* ORDER /06: STANDARD WRITE«, t00=0x0001, t01=0x011c}
0x02cc…0310 Head {h00=0x0040, h01=0x003c, text=»* ORDER /24: TEST OUTPUT BUFFER AND SET PRINTER PARAMETER«, t00=0x0001, t01=0x0142}
0x0310…031a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0186}
0x031a…033e Head {h00=0x0020, h01=0x001b, text=»* NORMAL REGISTER USAGE : «, t00=0x0001, t01=0x0190}
0x033e…0348 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0024}
0x0348…0364 Head {h00=0x0018, h01=0x0014, text=»* A1 = RETURN CODE«, t00=0x0002, t01=0x002e}
0x0364…0386 Head {h00=0x001e, h01=0x0019, text=»* A2 = OUTPUT CHARACTER «, t00=0x0002, t01=0x004a}
0x0386…03a4 Head {h00=0x001a, h01=0x0015, text=»* A3 = BUFFER INDEX «, t00=0x0002, t01=0x006c}
0x03a4…03c2 Head {h00=0x001a, h01=0x0016, text=»* A4 = WORK REGISTER«, t00=0x0002, t01=0x008a}
0x03c2…03de Head {h00=0x0018, h01=0x0013, text=»* A5 = STACK BASE «, t00=0x0002, t01=0x00a8}
0x03de…03fa Head {h00=0x0018, h01=0x0014, text=»* A6 = DWT-ADDRESS«, t00=0x0002, t01=0x00c4}
0x03fa…0410 Head {h00=0x0012, h01=0x000e, text=»* A7 = ORDER«, t00=0x0002, t01=0x00e0}
0x0410…042c Head {h00=0x0018, h01=0x0014, text=»* A8 = ECB-ADDRESS«, t00=0x0002, t01=0x00f6}
0x042c…0436 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0112}
0x0436…0452 Head {h00=0x0018, h01=0x0013, text=»* SYSTEM ADAPTION «, t00=0x0002, t01=0x011c}
0x0452…045c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0138}
0x045c…0496 Head {h00=0x0036, h01=0x0032, text=»* ORDER /24, TEST OUTPUT BUFFER AND SET PRINTER «, t00=0x0002, t01=0x0142}
0x0496…04ce Head {h00=0x0034, h01=0x0030, text=»* PARAMETER CAN BE EXCLUDED BY MEANS OF CONDI-«, t00=0x0002, t01=0x017c}
0x04ce…0506 Head {h00=0x0034, h01=0x0030, text=»* TIONAL ASSEMBLY. THEN THE WRITE REQUESTS ARE«, t00=0x0003, t01=0x0024}
0x0506…053e Head {h00=0x0034, h01=0x0030, text=»* FINISHED WITHOUT WAITING FOR THE OUTPUT BUF-«, t00=0x0003, t01=0x005c}
0x053e…055a Head {h00=0x0018, h01=0x0014, text=»* FER TO BE EMPTY.«, t00=0x0003, t01=0x0094}
0x055a…0568 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x00b0}
0x0568…0572 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00be}
0x0572…05a4 Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x0003, t01=0x00c8}
0x05a4…05ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05c0 Head {h00=0x000e, h01=0x0009, text=»* ENTRY «, t00=0x0003, t01=0x0104}
0x05c0…05ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0116}
0x05ca…05fc Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x0003, t01=0x0120}
0x05fc…0606 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0152}
0x0606…0634 Head {h00=0x002a, h01=0x0025, text=» ENTRY GPAD04 ADDRESS TO ADDRESSBLOCK «, t00=0x0003, t01=0x015c}
0x0634…063e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x018a}
0x063e…066e (4, 0, 400) Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0004, t01=0x0004}
0x066e…0678 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0034}
0x0678…06a0 Head {h00=0x0024, h01=0x0020, text=»* EXTERNAL TOSS MODULE ENTRIES«, t00=0x0004, t01=0x003e}
0x06a0…06aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06da Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0004, t01=0x0070}
0x06da…06e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00a0}
0x06e4…0708 Head {h00=0x0020, h01=0x001c, text=» EXTRN STABLK START OF BLOCK«, t00=0x0004, t01=0x00aa}
0x0708…0736 Head {h00=0x002a, h01=0x0025, text=» EXTRN OUTPUT OUTPUT OF ONE CHARACTER «, t00=0x0004, t01=0x00ce}
0x0736…0758 Head {h00=0x001e, h01=0x001a, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0004, t01=0x00fc}
0x0758…0780 Head {h00=0x0024, h01=0x0020, text=» EXTRN INPUT INPUT ONE CHARACTER«, t00=0x0004, t01=0x011e}
0x0780…07b8 Head {h00=0x0034, h01=0x002f, text=» EXTRN GETCHR GET ONE CHARACTER FROM ECB-BUFFER «, t00=0x0004, t01=0x0146}
0x07b8…07e0 Head {h00=0x0024, h01=0x0020, text=» EXTRN ABORT ABORT INPUT REQUEST«, t00=0x0004, t01=0x017e}
0x07e0…0800 Head {h00=0x001c, h01=0x0018, text=» EXTRN SETIME SETS TIMER«, t00=0x0005, t01=0x0016}
0x0800…082c Head {h00=0x0028, h01=0x0023, text=» EXTRN LENDIS END I/O WITH DISPATCH «, t00=0x0005, t01=0x0036}
0x082c…0862 Head {h00=0x0032, h01=0x002d, text=» EXTRN LENDER END I/O WITH ERROR AND DISPATCH «, t00=0x0005, t01=0x0062}
0x0862…086c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0098}
0x086c…088a Head {h00=0x001a, h01=0x0015, text=»* ECB DISPLACEMENTS «, t00=0x0005, t01=0x00a2}
0x088a…0894 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00c0}
0x0894…08b8 Head {h00=0x0020, h01=0x001b, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0005, t01=0x00ca}
0x08b8…08de Head {h00=0x0022, h01=0x001d, 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=0x0019, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0005, t01=0x0134}
0x0920…092a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0156}
0x092a…0948 Head {h00=0x001a, h01=0x0015, text=»* DWT DISPLACEMENTS «, t00=0x0005, t01=0x0160}
0x0948…0952 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x017e}
0x0952…096c Head {h00=0x0016, h01=0x0012, text=» EXTRN DWTOR ORDER«, t00=0x0005, t01=0x0188}
0x096c…099e Head {h00=0x002e, h01=0x0029, text=» EXTRN DWTDEV TERMINAL DEVICE STATUS WORD «, t00=0x0006, t01=0x0012}
0x099e…09a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09d8 Head {h00=0x002c, h01=0x0028, text=»DWTBLC EQU 2 CHARACTERS IN BLOCK COUNTER«, t00=0x0006, t01=0x004e}
0x09d8…09fe Head {h00=0x0022, h01=0x001e, text=»DWTLFC EQU 4 LINE FEED COUNTER«, t00=0x0006, t01=0x007e}
0x09fe…0a20 Head {h00=0x001e, h01=0x0019, text=»DWTTP EQU 6 TIMER POINTER «, t00=0x0006, t01=0x00a4}
0x0a20…0a2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2a…0a5c Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x0006, t01=0x00d0}
0x0a5c…0a66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0102}
0x0a66…0a7c Head {h00=0x0012, h01=0x000d, text=»* CONSTANTS «, t00=0x0006, t01=0x010c}
0x0a7c…0a86 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0122}
0x0a86…0ab8 Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x0006, t01=0x012c}
0x0ab8…0ac2 Head {h00=0x0006, h01=0x0003, 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=0x001d, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0007, t01=0x0012}
0x0b22…0b46 Head {h00=0x0020, h01=0x001c, text=»TIME EQU /1 100 MILLISECONDS«, t00=0x0007, t01=0x0038}
0x0b46…0b50 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x005c}
0x0b50…0b80 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0007, t01=0x0066}
0x0b80…0b8a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0096}
0x0b8a…0ba4 Head {h00=0x0016, h01=0x0011, text=»* ADDRESS BLOCK «, t00=0x0007, t01=0x00a0}
0x0ba4…0bae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00ba}
0x0bae…0bde Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0007, t01=0x00c4}
0x0bde…0be8 Head {h00=0x0006, h01=0x0003, 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=0x000c, text=»GPAD04 EQU *«, t00=0x0007, t01=0x013c}
0x0c3a…0c5e Head {h00=0x0020, h01=0x001c, text=» DATA ACGP04 ACTIVATION PART«, t00=0x0007, t01=0x0150}
0x0c5e…0c80 Head {h00=0x001e, h01=0x001a, text=» DATA ABGP04 ABORT ROUTINE«, t00=0x0007, t01=0x0174}
0x0c80…0ca4 Head {h00=0x0020, h01=0x001c, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x0008, t01=0x0008}
0x0ca4…0cca Head {h00=0x0022, h01=0x001d, text=» DATA RCGP04 RECOVERY ROUTINE «, t00=0x0008, t01=0x002c}
0x0cca…0cea Head {h00=0x001c, h01=0x0017, text=» DATA 0 NO ECHO ROUTINE «, t00=0x0008, t01=0x0052}
0x0cea…0cf4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0072}
0x0cf4…0d24 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0008, t01=0x007c}
0x0d24…0d2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00ac}
0x0d2e…0d4e Head {h00=0x001c, h01=0x0018, text=»* CONDITIONAL ASSEMBLY«, t00=0x0008, t01=0x00b6}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00d6}
0x0d58…0d88 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0008, t01=0x00e0}
0x0d88…0d92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0110}
0x0d92…0dca Head {h00=0x0034, h01=0x0030, text=»* ORDER /24 MAY BE EXCLUDED BY SETTING X:A = 0«, t00=0x0008, t01=0x011a}
0x0dca…0dd4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0152}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0009, text=»X:A EQU 1 «, t00=0x0008, t01=0x015c}
0x0de6…0dfc Head {h00=0x0012, h01=0x000d, text=»ORD24 EQU X:A «, t00=0x0008, t01=0x016e}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0184}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e10…0e3a Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0009, t01=0x0008}
0x0e3a…0e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e44…0e56 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 80«, t00=0x0009, t01=0x003c}
0x0e56…0e6c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0009, t01=0x004e}
0x0e6c…0e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e76…0e94 Head {h00=0x001a, h01=0x0050, text=»* MAXIMUM BLOCK SIZE«, t00=0x0009, t01=0x006e}
0x0e94…0e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008c}
0x0e9e…0eb2 Head {h00=0x0010, h01=0x0050, text=»X:C EQU /80 «, t00=0x0009, t01=0x0096}
0x0eb2…0ec8 Head {h00=0x0012, h01=0x0050, text=»MAXBLK EQU X:C«, t00=0x0009, t01=0x00aa}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed2…0edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ca}
0x0edc…0eea Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0009, t01=0x00d4}
0x0eea…0ef4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00e2}
0x0ef4…0f26 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0009, t01=0x00ec}
0x0f26…0f30 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x011e}
0x0f30…0f5c Head {h00=0x0028, h01=0x0023, text=»* A C G P 0 4 = ACTIVATION PART «, t00=0x0009, t01=0x0128}
0x0f5c…0f66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0154}
0x0f66…0f9a Head {h00=0x0030, h01=0x002b, text=»* THIS PART CHECKS THE ORDER AND BRANCHES «, t00=0x0009, t01=0x015e}
0x0f9a…0fcc (10, 0, 400) Head {h00=0x002e, h01=0x002a, text=»* TO THE APPROPRIATE PART OF THE DRIVER.«, t00=0x000a, t01=0x0004}
0x0fcc…0fd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0036}
0x0fd6…1008 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x000a, t01=0x0040}
0x1008…1012 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0072}
0x1012…1026 Head {h00=0x0010, h01=0x000c, text=»ACGP04 EQU *«, t00=0x000a, t01=0x007c}
0x1026…104a Head {h00=0x0020, h01=0x001c, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x000a, t01=0x0090}
0x104a…1070 Head {h00=0x0022, h01=0x001d, text=» LDK A2,MAXBLK GET BLOCK SIZE «, t00=0x000a, t01=0x00b4}
0x1070…1092 Head {h00=0x001e, h01=0x0019, text=» CF A5,STABLK START BLOCK «, t00=0x000a, t01=0x00da}
0x1092…10b2 Head {h00=0x001c, h01=0x0017, text=» RF(NZ) GPER10 NOT OK ! «, t00=0x000a, t01=0x00fc}
0x10b2…10f0 Head {h00=0x003a, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR CHARACTERS IN BLOCK COUNTER«, t00=0x000a, t01=0x011c}
0x10f0…10fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x015a}
0x10fa…1110 Head {h00=0x0012, h01=0x000e, text=»* TEST ORDER«, t00=0x000a, t01=0x0164}
0x1110…111a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x017a}
0x111a…1136 Head {h00=0x0018, h01=0x0014, text=» LDR A7,A7 GET ORDER«, t00=0x000a, t01=0x0184}
0x1136…1162 Head {h00=0x0028, h01=0x0023, text=» RF(Z) GP400 ORDER /00, TEST STATUS «, t00=0x000b, t01=0x0010}
0x1162…1174 Head {h00=0x000e, h01=0x0009, text=» SUK A7,5 «, t00=0x000b, t01=0x003c}
0x1174…119a Head {h00=0x0022, h01=0x001d, text=» RF(N) REQERR REQUEST ERROR ! «, t00=0x000b, t01=0x004e}
0x119a…11ae Head {h00=0x0010, h01=0x000b, text=» SUK A7,/1F «, t00=0x000b, t01=0x0074}
0x11ae…11c2 Head {h00=0x0010, h01=0x000c, text=» IFT ORD24=1«, t00=0x000b, t01=0x0088}
0x11c2…1204 Head {h00=0x003e, h01=0x0039, text=» RF(Z) GP400 ORDER /24, TEST OUTPUT BUFFER AND SET PARAM. «, t00=0x000b, t01=0x009c}
0x1204…1210 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000b, t01=0x00de}
0x1210…1224 Head {h00=0x0010, h01=0x000c, text=» IFT ORD24=0«, t00=0x000b, t01=0x00ea}
0x1224…1252 Head {h00=0x002a, h01=0x0025, text=» RF(Z) REQERR ORDER /24 IS EXCLUDED ! «, t00=0x000b, t01=0x00fe}
0x1252…125e Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000b, t01=0x012c}
0x125e…1272 Head {h00=0x0010, h01=0x000b, text=» ADK A7,/1E «, t00=0x000b, t01=0x0138}
0x1272…1298 Head {h00=0x0022, h01=0x0050, text=» RF(P) REQERR REQUEST ERROR ! «, t00=0x000b, t01=0x014c}
0x1298…12c6 Head {h00=0x002a, h01=0x0025, text=» RF(N) GP200 ORDER /05, BASIC WRITE ! «, t00=0x000b, t01=0x0172}
0x12c6…12d8 Head {h00=0x000e, h01=0x0009, text=» ADK A7,1 «, t00=0x000c, t01=0x0010}
0x12d8…1308 Head {h00=0x002c, h01=0x0050, text=» RF(P) GP100 ORDER/06, STANDARD WRITE ! «, t00=0x000c, t01=0x0022}
0x1308…1312 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0052}
0x1312…132c Head {h00=0x0016, h01=0x0011, text=»* REQUEST ERROR «, t00=0x000c, t01=0x005c}
0x132c…1336 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0076}
0x1336…134a Head {h00=0x0010, h01=0x000c, text=»REQERR EQU *«, t00=0x000c, t01=0x0080}
0x134a…136c Head {h00=0x001e, h01=0x001a, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x000c, t01=0x0094}
0x136c…139c Head {h00=0x002c, h01=0x0027, text=» ABL LENDER SET RETURN CODE AND END I/O «, t00=0x000c, t01=0x00b6}
0x139c…13aa Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000c, t01=0x00e6}
0x13aa…13b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00f4}
0x13b4…13e4 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x000c, t01=0x00fe}
0x13e4…13ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x012e}
0x13ee…1406 Head {h00=0x0014, h01=0x0010, text=»* WRITING PART«, t00=0x000c, t01=0x0138}
0x1406…1410 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0150}
0x1410…1452 Head {h00=0x003e, h01=0x003a, text=»* THIS IS THE ENTRY POINT FOR ORDER /06, STANDARD WRITE.«, t00=0x000c, t01=0x015a}
0x1452…1494 Head {h00=0x003e, h01=0x003a, text=»* THE REQUESTED LENGTH IS CHECKED, THE CONTROL CHARACTER«, t00=0x000d, t01=0x000c}
0x1494…14d2 Head {h00=0x003a, h01=0x0036, text=»* IS TREATED AND THE REST OF THE CHARACTERS ARE SENT«, t00=0x000d, t01=0x004e}
0x14d2…14fa Head {h00=0x0024, h01=0x0020, text=»* AFTER INDIVIDUAL CODE CHECK.«, t00=0x000d, t01=0x008c}
0x14fa…1504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00b4}
0x1504…1536 Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x000d, t01=0x00be}
0x1536…1540 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00f0}
0x1540…1554 Head {h00=0x0010, h01=0x000b, text=»GP100 EQU * «, t00=0x000d, t01=0x00fa}
0x1554…155e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x010e}
0x155e…1580 Head {h00=0x001e, h01=0x0019, text=»* TEST REQUESTED LENGTH «, t00=0x000d, t01=0x0118}
0x1580…158a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x013a}
0x158a…15b6 Head {h00=0x0028, h01=0x0024, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x000d, t01=0x0144}
0x15b6…15d8 Head {h00=0x001e, h01=0x0019, text=» SUK A2,2 LESS THAN TWO ? «, t00=0x000d, t01=0x0170}
0x15d8…15f2 (14, 0, 400) Head {h00=0x0016, h01=0x0012, text=» RF(NN) GP110 NO !«, t00=0x000e, t01=0x0004}
0x15f2…161a Head {h00=0x0024, h01=0x0020, text=» RB REQERR YES ! REQUEST ERROR !«, t00=0x000e, t01=0x001e}
0x161a…1624 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0046}
0x1624…1646 Head {h00=0x001e, h01=0x001a, text=»* TEST CONTROL CHARACTER«, t00=0x000e, t01=0x0050}
0x1646…1650 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0072}
0x1650…1664 Head {h00=0x0010, h01=0x000b, text=»GP110 EQU * «, t00=0x000e, t01=0x007c}
0x1664…168e Head {h00=0x0026, h01=0x0022, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x000e, t01=0x0090}
0x168e…16b8 Head {h00=0x0026, h01=0x0021, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x000e, t01=0x00ba}
0x16b8…16cc Head {h00=0x0010, h01=0x000b, text=» ANK A2,/FF «, t00=0x000e, t01=0x00e4}
0x16cc…16f4 Head {h00=0x0024, h01=0x0020, text=» ADK A3,2 INCREMENT BUFFER INDEX«, t00=0x000e, t01=0x00f8}
0x16f4…171a Head {h00=0x0022, h01=0x001d, text=» SUK A2,/30 EXTRA LINE FEED ? «, t00=0x000e, t01=0x0120}
0x171a…1734 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) GP200 NO !«, t00=0x000e, t01=0x0146}
0x1734…1764 Head {h00=0x002c, h01=0x0028, text=» LDK A2,LF YES ! LOAD CODE FOR LINE FEED«, t00=0x000e, t01=0x0160}
0x1764…1798 Head {h00=0x0030, h01=0x0050, text=» C1S DWTBLC+DWTDEV,A6 SET POS COUNTER TO -1 «, t00=0x000e, t01=0x0190}
0x1798…17b4 Head {h00=0x0018, h01=0x0013, text=» RF GP210 SEND IT ! «, t00=0x000f, t01=0x0034}
0x17b4…17c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0050}
0x17c2…17cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x005e}
0x17cc…17fc Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x000f, t01=0x0068}
0x17fc…1806 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0098}
0x1806…1846 Head {h00=0x003c, h01=0x0037, text=»* THIS IS THE ENTRY POINT FOR ORDER /05, BASIC WRITE. «, t00=0x000f, t01=0x00a2}
0x1846…1880 Head {h00=0x0036, h01=0x0050, text=»* THE REQUESTED NUMBER OF CHARACTERS ARE SENT TO«, t00=0x000f, t01=0x00e2}
0x1880…18a8 Head {h00=0x0024, h01=0x0020, text=»* PRINTER FROM THE ECB-BUFFER.«, t00=0x000f, t01=0x011c}
0x18a8…18b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0144}
0x18b2…18e2 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x000f, t01=0x014e}
0x18e2…18ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x017e}
0x18ec…1900 Head {h00=0x0010, h01=0x000b, text=»GP200 EQU * «, t00=0x000f, t01=0x0188}
0x1900…1936 Head {h00=0x0032, h01=0x002e, text=» CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER«, t00=0x0010, t01=0x000c}
0x1936…196a Head {h00=0x0030, h01=0x002b, text=» LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? «, t00=0x0010, t01=0x0042}
0x196a…1984 Head {h00=0x0016, h01=0x0012, text=» RF(NP) GP350 NO !«, t00=0x0010, t01=0x0076}
0x1984…198e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0090}
0x198e…19b2 Head {h00=0x0020, h01=0x001c, text=» LDR A7,A7 YES ! ORDER /06 ?«, t00=0x0010, t01=0x009a}
0x19b2…19e2 Head {h00=0x002c, h01=0x0027, text=» RF(P) GP300 YES ! CHECK CHARACTER CODE «, t00=0x0010, t01=0x00be}
0x19e2…19ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00ee}
0x19ec…1a0a Head {h00=0x001a, h01=0x0016, text=» CWK A2,LF LINE FEED ?«, t00=0x0010, t01=0x00f8}
0x1a0a…1a24 Head {h00=0x0016, h01=0x0012, text=» RF(NE) GP220 NO !«, t00=0x0010, t01=0x0116}
0x1a24…1a2e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0130}
0x1a2e…1a42 Head {h00=0x0010, h01=0x000b, text=»GP210 EQU * «, t00=0x0010, t01=0x013a}
0x1a42…1a76 Head {h00=0x0030, h01=0x002b, text=» IM DWTLFC+DWTDEV,A6 YES ! INCR. LF-COUNTER «, t00=0x0010, t01=0x014e}
0x1a76…1a80 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0182}
0x1a80…1a94 Head {h00=0x0010, h01=0x000b, text=»GP220 EQU * «, t00=0x0010, t01=0x018c}
0x1a94…1ad2 Head {h00=0x003a, h01=0x0036, text=» IM DWTBLC+DWTDEV,A6 INCR. CHARACTERS IN BLOCK COUNTER«, t00=0x0011, t01=0x0010}
0x1ad2…1adc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x004e}
0x1adc…1b06 Head {h00=0x0026, h01=0x0021, text=» LDK A1,MAXBLK GET MAX BLOCK SIZE «, t00=0x0011, t01=0x0058}
0x1b06…1b32 Head {h00=0x0028, h01=0x0024, text=» CW A1,DWTBLC+DWTDEV,A6 BLOCK FULL ?«, t00=0x0011, t01=0x0082}
0x1b32…1b4c Head {h00=0x0016, h01=0x0050, text=» RF(G) GP240 NO ! «, t00=0x0011, t01=0x00ae}
0x1b4c…1b56 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00c8}
0x1b56…1b7e Head {h00=0x0024, h01=0x0050, text=» LDR A4,A2 YES ! SAVE CHARACTER «, t00=0x0011, t01=0x00d2}
0x1b7e…1ba2 Head {h00=0x0020, h01=0x001b, text=» CF A5,ENDBLK END OLD BLOCK «, t00=0x0011, t01=0x00fa}
0x1ba2…1bcc Head {h00=0x0026, h01=0x0022, text=» RF(NZ) GPER10 AND START A NEW ONE«, t00=0x0011, t01=0x011e}
0x1bcc…1bf6 Head {h00=0x0026, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR COUNTER«, t00=0x0011, t01=0x0148}
0x1bf6…1c0c Head {h00=0x0012, h01=0x000e, text=» LDK A2,MAXBLK«, t00=0x0011, t01=0x0172}
0x1c0c…1c22 Head {h00=0x0012, h01=0x000d, text=» CF A5,STABLK «, t00=0x0011, t01=0x0188}
0x1c22…1c38 Head {h00=0x0012, h01=0x000e, text=» RF(NZ) GPER10«, t00=0x0012, t01=0x000e}
0x1c38…1c5c Head {h00=0x0020, h01=0x0050, text=» LDR A2,A4 RESTORE CHARACTER«, t00=0x0012, t01=0x0024}
0x1c5c…1c66 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0048}
0x1c66…1c7a Head {h00=0x0010, h01=0x000b, text=»GP240 EQU * «, t00=0x0012, t01=0x0052}
0x1c7a…1c9e Head {h00=0x0020, h01=0x001c, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0012, t01=0x0066}
0x1c9e…1cba Head {h00=0x0018, h01=0x0050, text=»GPER10 RF(NZ) GPER20«, t00=0x0012, t01=0x008a}
0x1cba…1cda Head {h00=0x001c, h01=0x0018, text=» RB GP200 NEXT CHARACTER«, t00=0x0012, t01=0x00a6}
0x1cda…1ce8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x00c6}
0x1ce8…1cf2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00d4}
0x1cf2…1d22 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0012, t01=0x00de}
0x1d22…1d2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x010e}
0x1d2c…1d58 Head {h00=0x0028, h01=0x0025, text=»* THIS PART CHECKS CHARACTER CODES«, t00=0x0012, t01=0x0118}
0x1d58…1d76 Head {h00=0x001a, h01=0x0016, text=»* FOR STANDARD WRITE«, t00=0x0012, t01=0x0144}
0x1d76…1d80 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0162}
0x1d80…1db0 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0012, t01=0x016c}
0x1db0…1dba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x000c}
0x1dba…1dce Head {h00=0x0010, h01=0x000b, text=»GP300 EQU * «, t00=0x0013, t01=0x0016}
0x1dce…1de0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0013, t01=0x002a}
0x1de0…1e04 Head {h00=0x0020, h01=0x0050, text=» SUK A4,/20 WITHIN LIMITS ? «, t00=0x0013, t01=0x003c}
0x1e04…1e1e Head {h00=0x0016, h01=0x0011, text=» RF(N) GP310 NO ! «, t00=0x0013, t01=0x0060}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x007a}
0x1e28…1e3c Head {h00=0x0010, h01=0x0050, text=» SUK A4,/5F «, t00=0x0013, t01=0x0084}
0x1e3c…1e62 Head {h00=0x0022, h01=0x0050, text=» RF(P) GP305 NO, TEST SP. CHAR«, t00=0x0013, t01=0x0098}
0x1e62…1e92 Head {h00=0x002c, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCR. POS. POINTER «, t00=0x0013, t01=0x00be}
0x1e92…1eb8 Head {h00=0x0022, h01=0x0050, text=» RB GP240 OK ! SEND CHARACTER «, t00=0x0013, t01=0x00ee}
0x1eb8…1ec2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0114}
0x1ec2…1ee2 Head {h00=0x001c, h01=0x0018, text=»* SPECIAL CHARACTERS ?«, t00=0x0013, t01=0x011e}
0x1ee2…1eec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x013e}
0x1eec…1f00 Head {h00=0x0010, h01=0x0050, text=»GP305 EQU * «, t00=0x0013, t01=0x0148}
0x1f00…1f2c Head {h00=0x0028, h01=0x0050, text=» SUK A4,/2F /AE ? ( ROOMLESS POINT )«, t00=0x0013, t01=0x015c}
0x1f2c…1f46 Head {h00=0x0016, h01=0x0012, text=» RF(NZ) GP320 NO !«, t00=0x0013, t01=0x0188}
0x1f46…1f82 Head {h00=0x0038, h01=0x0033, text=» SUK A2,/80 YES ! CONVERT TO /2E ( ORDINARY POINT ) «, t00=0x0014, t01=0x0012}
0x1f82…1f9c Head {h00=0x0016, h01=0x0050, text=» RB GP300 AND SEND«, t00=0x0014, t01=0x004e}
0x1f9c…1fb0 Head {h00=0x0010, h01=0x000b, text=»GP310 EQU * «, t00=0x0014, t01=0x0068}
0x1fb0…1fd0 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/2 /1E OR /1F ? «, t00=0x0014, t01=0x007c}
0x1fd0…1fec Head {h00=0x0018, h01=0x0013, text=» RF(NN) GP340 YES ! «, t00=0x0014, t01=0x009c}
0x1fec…200a Head {h00=0x001a, h01=0x0050, text=» ADK A4,/A /15 - /1D ?«, t00=0x0014, t01=0x00b8}
0x200a…2024 Head {h00=0x0016, h01=0x0012, text=» RF(P) GP320 YES !«, t00=0x0014, t01=0x00d6}
0x2024…2042 Head {h00=0x001a, h01=0x0050, text=» ADK A4,/3 /12 - /14 ?«, t00=0x0014, t01=0x00f0}
0x2042…205c Head {h00=0x0016, h01=0x0012, text=» RF(P) GP340 YES !«, t00=0x0014, t01=0x010e}
0x205c…2086 Head {h00=0x0026, h01=0x0050, text=» RF(Z) GP345 /11 !! TABULATION ! «, t00=0x0014, t01=0x0128}
0x2086…209e Head {h00=0x0014, h01=0x0050, text=» ADK A4,8 /09 ? «, t00=0x0014, t01=0x0152}
0x209e…20b8 Head {h00=0x0016, h01=0x0012, text=» RF(Z) GP340 YES !«, t00=0x0014, t01=0x016a}
0x20b8…20c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0184}
0x20c2…20de Head {h00=0x0018, h01=0x0014, text=»* CODE CHECK ERROR«, t00=0x0014, t01=0x018e}
0x20de…20e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x001a}
0x20e8…20fc Head {h00=0x0010, h01=0x000b, text=»GP320 EQU * «, t00=0x0015, t01=0x0024}
0x20fc…2128 Head {h00=0x0028, h01=0x0024, text=» LDK A1,CCERR ILLEGAL CHAR. = BIT 13«, t00=0x0015, t01=0x0038}
0x2128…2158 Head {h00=0x002c, h01=0x0027, text=» ORS A1,ECBRC,A8 SET BIT IN RETURN CODE «, t00=0x0015, t01=0x0064}
0x2158…216c Head {h00=0x0010, h01=0x000b, text=»GP340 EQU * «, t00=0x0015, t01=0x0094}
0x216c…2190 Head {h00=0x0020, h01=0x001c, text=» RB GP200 GET NEXT CHARACTER«, t00=0x0015, t01=0x00a8}
0x2190…219a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00cc}
0x219a…21ba Head {h00=0x001c, h01=0x0050, text=»* TABULATION HANDLING «, t00=0x0015, t01=0x00d6}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f6}
0x21c4…21d8 Head {h00=0x0010, h01=0x0050, text=»GP345 EQU * «, t00=0x0015, t01=0x0100}
0x21d8…2210 Head {h00=0x0034, h01=0x0050, text=» CF A15,GETCHR MAKE TWO ASCII DIGITS TO HEX CODE«, t00=0x0015, t01=0x0114}
0x2210…2222 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0015, t01=0x014c}
0x2222…2238 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETCHR«, t00=0x0015, t01=0x015e}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0015, t01=0x0174}
0x224a…225c Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0015, t01=0x0186}
0x225c…2270 Head {h00=0x0010, h01=0x0050, text=» RF(Z) GP347«, t00=0x0016, t01=0x0008}
0x2270…2288 Head {h00=0x0014, h01=0x0050, text=»GP346 ADK A2,/A «, t00=0x0016, t01=0x001c}
0x2288…229a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0016, t01=0x0034}
0x229a…22b0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) GP346 «, t00=0x0016, t01=0x0046}
0x22b0…22e6 Head {h00=0x0032, h01=0x0050, text=»GP347 LD A4,DWTBLC+DWTDEV,A6 GET POS. POINTER «, t00=0x0016, t01=0x005c}
0x22e6…22f8 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A4«, t00=0x0016, t01=0x0092}
0x22f8…2324 Head {h00=0x0028, h01=0x0050, text=» RB(NP) GP200 NO TABULATION POSSIBLE«, t00=0x0016, t01=0x00a4}
0x2324…2350 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 NUMBER OF SPACES TO SEND «, t00=0x0016, t01=0x00d0}
0x2350…236e Head {h00=0x001a, h01=0x0050, text=»GP348 LDK A2,/20 SPACE«, t00=0x0016, t01=0x00fc}
0x236e…2388 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0016, t01=0x011a}
0x2388…23a8 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0016, t01=0x0134}
0x23a8…23c8 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE TO SEND ?«, t00=0x0016, t01=0x0154}
0x23c8…23e2 Head {h00=0x0016, h01=0x0050, text=» RB(P) GP348 YES !«, t00=0x0016, t01=0x0174}
0x23e2…240a Head {h00=0x0024, h01=0x0050, text=» RB GP200 NO TAKE NEXT CHARACTER«, t00=0x0016, t01=0x018e}
0x240a…2418 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0017, t01=0x0026}
0x2418…2422 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0034}
0x2422…2452 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0017, t01=0x003e}
0x2452…245c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x006e}
0x245c…249a Head {h00=0x003a, h01=0x0035, text=»* THIS IS THE COMPLETION PART OF THE WRITE REQUESTS «, t00=0x0017, t01=0x0078}
0x249a…24a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x00b6}
0x24a4…24d4 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0017, t01=0x00c0}
0x24d4…24de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x00f0}
0x24de…24f2 Head {h00=0x0010, h01=0x000b, text=»GP350 EQU * «, t00=0x0017, t01=0x00fa}
0x24f2…2512 Head {h00=0x001c, h01=0x0018, text=» LDR A7,A7 BASIC WRITE ?«, t00=0x0017, t01=0x010e}
0x2512…253a Head {h00=0x0024, h01=0x0020, text=» RF(N) GP420 YES ! DON'T SEND LF«, t00=0x0017, t01=0x012e}
0x253a…2544 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0156}
0x2544…2574 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x0017, t01=0x0160}
0x2574…257e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0190}
0x257e…25b0 Head {h00=0x002e, h01=0x002a, text=»* THIS IS THE ENTRY POINT FOR ORDER /00,«, t00=0x0018, t01=0x000a}
0x25b0…25e2 Head {h00=0x002e, h01=0x002a, text=»* TEST STATUS AND ORDER /24, TEST OUTPUT«, t00=0x0018, t01=0x003c}
0x25e2…2610 Head {h00=0x002a, h01=0x0025, text=»* BUFFER AND SET PRINTER PARAMETER. «, t00=0x0018, t01=0x006e}
0x2610…261a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x009c}
0x261a…264c Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0018, t01=0x00a6}
0x264c…2656 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x00d8}
0x2656…266a Head {h00=0x0010, h01=0x000b, text=»GP400 EQU * «, t00=0x0018, t01=0x00e2}
0x266a…2686 Head {h00=0x0018, h01=0x0014, text=» LDK A2,LF LINE FEED«, t00=0x0018, t01=0x00f6}
0x2686…26a0 Head {h00=0x0016, h01=0x0012, text=» CF A5,OUTPUT SEND«, t00=0x0018, t01=0x0112}
0x26a0…26c0 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0018, t01=0x012c}
0x26c0…26f8 Head {h00=0x0034, h01=0x0030, text=» IM DWTLFC+DWTDEV,A6 INCREMENT LINE FEED COUNTER«, t00=0x0018, t01=0x014c}
0x26f8…270c Head {h00=0x0010, h01=0x000b, text=»GP420 EQU * «, t00=0x0018, t01=0x0184}
0x270c…271c Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0019, t01=0x0008}
0x271c…273c Head {h00=0x001c, h01=0x0017, text=» LDK A2,ETX ETX ( /03 ) «, t00=0x0019, t01=0x0018}
0x273c…2756 Head {h00=0x0016, h01=0x0012, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0038}
0x2756…2776 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0019, t01=0x0052}
0x2776…2780 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0072}
0x2780…27a2 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0019, t01=0x007c}
0x27a2…27c2 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) GPER20 NOT OK ! «, t00=0x0019, t01=0x009e}
0x27c2…27cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00be}
0x27cc…27fa Head {h00=0x002a, h01=0x0025, text=» LDR A7,A7 TEST STATUS OR ORDER /24 ? «, t00=0x0019, t01=0x00c8}
0x27fa…2824 Head {h00=0x0026, h01=0x0022, text=» RF(Z) GP440 YES ! DON'T TEST MODE«, t00=0x0019, t01=0x00f6}
0x2824…282e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0019, t01=0x0120}
0x282e…2842 Head {h00=0x0010, h01=0x000c, text=» IFT ORD24=0«, t00=0x0019, t01=0x012a}
0x2842…2878 Head {h00=0x0032, h01=0x0050, text=» RF GP480 WRITE REQUESTS ARE FINISHED WITHOUT «, t00=0x0019, t01=0x013e}
0x2878…28c4 Head {h00=0x0048, h01=0x0043, text=»* CHECKING THE OUTPUT BUFFER «, t00=0x0019, t01=0x0174}
0x28c4…28d0 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x001a, t01=0x0030}
0x28d0…28e4 Head {h00=0x0010, h01=0x000c, text=» IFT ORD24=1«, t00=0x001a, t01=0x003c}
0x28e4…290c Head {h00=0x0024, h01=0x0020, text=» LD A1,DWTDEV,A6 GET STATUS WORD«, t00=0x001a, t01=0x0050}
0x290c…2940 Head {h00=0x0030, h01=0x0050, text=» RF(NN) GP480 WRITE REQUESTS MAY BE FINISHED«, t00=0x001a, t01=0x0078}
0x2940…2990 Head {h00=0x004c, h01=0x004a, text=»* BEFORE THE OUTPUT BUFFER IS EMP«, t00=0x001a, t01=0x00ac}
0x2990…299c Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x001a, t01=0x00fc}
0x299c…29a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0108}
0x29a6…29ba Head {h00=0x0010, h01=0x000b, text=»GP440 EQU * «, t00=0x001a, t01=0x0112}
0x29ba…29c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001a, t01=0x0126}
0x29c4…29fc Head {h00=0x0034, h01=0x0030, text=»* SET TIMER. TIME BEFORE TIMEOUT IS DEPENDING «, t00=0x001a, t01=0x0130}
0x29fc…2a32 Head {h00=0x0032, h01=0x002d, text=»* ON THE NUMBER OF LINE FEEDS THAT ARE SENT «, t00=0x001a, t01=0x0168}
0x2a32…2a3c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x000e}
0x2a3c…2a60 Head {h00=0x0020, h01=0x001c, text=» LDR A1,A6 DWT-ADDRESS IN A1«, t00=0x001b, t01=0x0018}
0x2a60…2a76 Head {h00=0x0012, h01=0x000e, text=» CF A15,SETIME«, t00=0x001b, t01=0x003c}
0x2a76…2a8e Head {h00=0x0014, h01=0x0010, text=» DATA GPTUT,TIME«, t00=0x001b, t01=0x0052}
0x2a8e…2ac0 Head {h00=0x002e, h01=0x002a, text=» ST A4,DWTTP+DWTDEV,A6 STORE TIMER POINTER«, t00=0x001b, t01=0x006a}
0x2ac0…2af4 Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTLFC+DWTDEV,A6 NUMBER OF LINE FEEDS«, t00=0x001b, t01=0x009c}
0x2af4…2b12 Head {h00=0x001a, h01=0x0050, text=» SLC A2,3 COMPUTE TIME«, t00=0x001b, t01=0x00d0}
0x2b12…2b24 Head {h00=0x000e, h01=0x0050, text=» C1R A2,A2«, t00=0x001b, t01=0x00ee}
0x2b24…2b44 Head {h00=0x001c, h01=0x0050, text=» STR A2,A4 SET NEW TIME «, t00=0x001b, t01=0x0100}
0x2b44…2b4e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0120}
0x2b4e…2b70 Head {h00=0x001e, h01=0x0019, text=»* READ /02 FROM PRINTER «, t00=0x001b, t01=0x012a}
0x2b70…2b7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x014c}
0x2b7a…2b94 Head {h00=0x0016, h01=0x0011, text=» CF A5,INPUT READ «, t00=0x001b, t01=0x0156}
0x2b94…2b9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0170}
0x2b9e…2bb6 Head {h00=0x0014, h01=0x000f, text=»* /02 COMES ! «, t00=0x001b, t01=0x017a}
0x2bb6…2bc0 (28, 0, 398) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0004}
0x2bc0…2bec Head {h00=0x0028, h01=0x0050, text=» CM* DWTTP+DWTDEV,A6 TURN OFF TIMER «, t00=0x001c, t01=0x000e}
0x2bec…2c0e Head {h00=0x001e, h01=0x0019, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001c, t01=0x003a}
0x2c0e…2c2a Head {h00=0x0018, h01=0x0050, text=» ANK A7,/FF AND MASK«, t00=0x001c, t01=0x005c}
0x2c2a…2c4a Head {h00=0x001c, h01=0x0017, text=» SUK A7,/24 ORDER /24 ? «, t00=0x001c, t01=0x0078}
0x2c4a…2c6c Head {h00=0x001e, h01=0x001a, text=» RF(NZ) GP480 NO ! END I/O«, t00=0x001c, t01=0x0098}
0x2c6c…2c76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00ba}
0x2c76…2c8c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001c, t01=0x00c4}
0x2c8c…2cc0 Head {h00=0x0030, h01=0x0050, text=» LD A1,ECBCW,A8 YES ! SET PRINTER PARAMETER.«, t00=0x001c, t01=0x00da}
0x2cc0…2cd6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) GP460 «, t00=0x001c, t01=0x010e}
0x2cd6…2d04 Head {h00=0x002a, h01=0x0050, text=» ORS A2,DWTDEV,A6 SET BIT 0 IN DWTDEV «, t00=0x001c, t01=0x0124}
0x2d04…2d16 Head {h00=0x000e, h01=0x0009, text=» RF GP480 «, t00=0x001c, t01=0x0152}
0x2d16…2d2a Head {h00=0x0010, h01=0x000b, text=»GP460 EQU * «, t00=0x001c, t01=0x0164}
0x2d2a…2d48 Head {h00=0x001a, h01=0x0050, text=» C1R A2,A2 COMPLEMENT «, t00=0x001c, t01=0x0178}
0x2d48…2d6e Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTDEV,A6 CLEAR BIT 0 «, t00=0x001d, t01=0x0008}
0x2d6e…2d78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x002e}
0x2d78…2d92 Head {h00=0x0016, h01=0x0012, text=»* END OF REQUEST«, t00=0x001d, t01=0x0038}
0x2d92…2d9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0052}
0x2d9c…2db0 Head {h00=0x0010, h01=0x000b, text=»GP480 EQU * «, t00=0x001d, t01=0x005c}
0x2db0…2dd6 Head {h00=0x0022, h01=0x001d, text=» LDK A1,0 SET RETURN CODE = 0 «, t00=0x001d, t01=0x0070}
0x2dd6…2dea Head {h00=0x0010, h01=0x000b, text=»ENDIO EQU * «, t00=0x001d, t01=0x0096}
0x2dea…2dfe Head {h00=0x0010, h01=0x0050, text=»GPER20 EQU *«, t00=0x001d, t01=0x00aa}
0x2dfe…2e32 Head {h00=0x0030, h01=0x0050, text=» CM DWTLFC+DWTDEV,A6 RESET LINE FEED COUNTER«, t00=0x001d, t01=0x00be}
0x2e32…2e5c Head {h00=0x0026, h01=0x0021, text=» ABL LENDIS END I/O WITH DISPATCH «, t00=0x001d, t01=0x00f2}
0x2e5c…2e6a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001d, t01=0x011c}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x012a}
0x2e74…2ea4 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x001d, t01=0x0134}
0x2ea4…2eae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x0164}
0x2eae…2eca Head {h00=0x0018, h01=0x0013, text=»* TIMEOUT ROUTINE «, t00=0x001d, t01=0x016e}
0x2eca…2ed4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x018a}
0x2ed4…2f04 (30, 0, 398) Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x001e, t01=0x0004}
0x2f04…2f0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0034}
0x2f0e…2f22 Head {h00=0x0010, h01=0x000b, text=»GPTUT EQU * «, t00=0x001e, t01=0x003e}
0x2f22…2f4a Head {h00=0x0024, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS IN A6«, t00=0x001e, t01=0x0052}
0x2f4a…2f7a Head {h00=0x002c, h01=0x0027, text=» CF A15,ABORT RESET INPUT REQUESTED BIT «, t00=0x001e, t01=0x007a}
0x2f7a…2fac Head {h00=0x002e, h01=0x002a, text=» LDK A1,1 SET RETURN CODE ( NOT OPERABLE )«, t00=0x001e, t01=0x00aa}
0x2fac…2fbc Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001e, t01=0x00dc}
0x2fbc…2fce Head {h00=0x000e, h01=0x0009, text=» RB ENDIO «, t00=0x001e, t01=0x00ec}
0x2fce…2fd8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x00fe}
0x2fd8…3008 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x001e, t01=0x0108}
0x3008…3012 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0138}
0x3012…302c Head {h00=0x0016, h01=0x0011, text=»* ABORT ROUTINE «, t00=0x001e, t01=0x0142}
0x302c…3036 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x015c}
0x3036…3066 Head {h00=0x002c, h01=0x0028, text=»****************************************«, t00=0x001e, t01=0x0166}
0x3066…3070 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0008}
0x3070…3084 Head {h00=0x0010, h01=0x000c, text=»ABGP04 EQU *«, t00=0x001f, t01=0x0012}
0x3084…30b4 Head {h00=0x002c, h01=0x0027, text=» CF A15,ABORT RESET INPUT REQUESTED BIT «, t00=0x001f, t01=0x0026}
0x30b4…30dc Head {h00=0x0024, h01=0x001f, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x001f, t01=0x0056}
0x30dc…30ee Head {h00=0x000e, h01=0x0009, text=» RB ENDIO «, t00=0x001f, t01=0x007e}
0x30ee…30fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0090}
0x30fc…3106 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x009e}
0x3106…3138 Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x001f, t01=0x00a8}
0x3138…3142 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x00da}
0x3142…315e Head {h00=0x0018, h01=0x0014, text=»* RECOVERY ROUTINE«, t00=0x001f, t01=0x00e4}
0x315e…3168 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0100}
0x3168…319a Head {h00=0x002e, h01=0x002a, text=»******************************************«, t00=0x001f, t01=0x010a}
0x319a…31a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x013c}
0x31a4…31b8 Head {h00=0x0010, h01=0x000c, text=»RCGP04 EQU *«, t00=0x001f, t01=0x0146}
0x31b8…31d2 Head {h00=0x0016, h01=0x0011, text=» LDR A8,A8 BUSY ? «, t00=0x001f, t01=0x015a}
0x31d2…31ec Head {h00=0x0016, h01=0x0012, text=» RF(Z) RCGP10 NO !«, t00=0x001f, t01=0x0174}
0x31ec…31f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x018e}
0x31f6…3226 Head {h00=0x002c, h01=0x0028, text=» CF A15,ABORT RESET INPUT REQUESTED FLAG«, t00=0x0020, t01=0x0008}
0x3226…324e Head {h00=0x0024, h01=0x001f, text=» CM DWTTP+DWTDEV,A6 RESET TIMER «, t00=0x0020, t01=0x0038}
0x324e…3284 Head {h00=0x0032, h01=0x002e, text=» LDK A1,2 SET RETURN CODE ( THROUGHPUT ERROR )«, t00=0x0020, t01=0x0060}
0x3284…3298 Head {h00=0x0010, h01=0x000c, text=»RCGP10 EQU *«, t00=0x0020, t01=0x0096}
0x3298…32aa Head {h00=0x000e, h01=0x0009, text=» RB ENDIO «, t00=0x0020, t01=0x00aa}
0x32aa…32b6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0020, t01=0x00bc}
0x32b6…32ba Head {h00=0x4004, h01=0x0000}
0x32ba…32be 00 20 00 c8 ┆ ┆
0x32be…32c6 (33, 1, 8) 20 04 00 00 00 21 00 04 ┆ ! ┆
0x32c6…3316 (34, 0, 400) 41 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 81 01 6e 00 2c 00 50 5c 52 46 28 5a 29 5c 43 4f 52 3a 35 38 5c 53 41 4d 45 20 41 53 20 41 50 50 4c 2e 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 82 00 16 00 06 00 50 2a 20 00 82 00 46 00 0e 00 50 ┆A LOAD DEVICE n , P RF(Z) COR:58 SAME AS APPL. LOAD DEVICE P* F P┆
0x3316…3366 5c 4c 44 52 5c 41 32 2c 41 31 00 82 00 50 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 00 82 00 62 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 39 20 00 82 00 74 00 24 00 50 5c 52 46 28 4e 5a 29 5c 43 4f 52 3a 35 38 5c 4e 4f 54 20 46 4c 45 58 49 42 4c ┆ LDR A2,A1 P P ANK A2,/F b P SUK A2,9 t $ P RF(NZ) COR:58 NOT FLEXIBL┆
0x3366…33b6 45 20 44 49 53 43 00 82 00 86 00 06 00 50 2a 20 00 82 00 ae 00 08 00 50 5c 58 49 46 00 82 00 b8 00 18 00 50 5c 49 46 54 5c 43 46 54 45 53 54 2b 46 4c 44 49 53 43 3d 32 00 82 00 c4 00 28 00 50 5c 43 46 5c 41 31 34 2c 55 4e 4c 4f 43 4b 5c 55 ┆E DISC P* P XIF P IFT CFTEST+FLDISC=2 ( P CF A14,UNLOCK U┆
0x33b6…3406 4e 4c 4f 43 4b 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 00 82 00 e0 00 08 00 50 5c 58 49 46 00 82 01 0c 00 12 00 50 5c 49 46 54 5c 43 46 54 45 53 54 3d 31 20 00 82 01 18 00 10 00 50 43 4f 52 3a 35 38 5c 45 51 55 5c 2a 00 82 01 2e 00 2a ┆NLOCK FLEXIBLE DISC P XIF P IFT CFTEST=1 PCOR:58 EQU * . *┆
0x3406…3456 00 50 5c 4c 44 5c 41 31 2c 53 43 54 49 50 4c 5c 47 45 54 20 50 52 4f 47 52 41 4d 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 82 01 42 00 1a 00 50 5c 53 55 4b 5c 41 31 2c 2f 46 38 5c 43 48 45 43 4b 20 54 59 50 45 00 82 01 70 00 24 00 50 5c 52 ┆ P LD A1,SCTIPL GET PROGRAM LOAD DEVICE B P SUK A1,/F8 CHECK TYPE p $ P R┆
0x3456…34a6 (35, 0, 400) 46 28 4e 29 5c 43 4f 52 3a 36 30 5c 4e 4f 54 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 00 82 01 8e 00 06 00 50 2a 20 00 83 00 26 00 08 00 50 5c 58 49 46 00 83 00 30 00 22 00 50 5c 53 55 4b 5c 41 31 2c 2f 46 43 2d 2f 46 38 5c 46 4c 45 58 ┆F(N) COR:60 NOT FLEXIBLE DISC P* & P XIF 0 " P SUK A1,/FC-/F8 FLEX┆
0x34a6…34f6 49 42 4c 45 20 44 49 53 43 3f 00 83 00 3c 00 18 00 50 5c 41 42 4c 28 4e 4e 29 5c 43 4f 52 3a 36 30 5c 4e 4f 21 20 00 83 00 62 00 06 00 50 2a 20 00 83 00 7e 00 18 00 50 5c 49 46 54 5c 43 46 54 45 53 54 2b 46 4c 44 49 53 43 3d 32 00 83 00 88 ┆IBLE DISC? < P ABL(NN) COR:60 NO! b P* ~ P IFT CFTEST+FLDISC=2 ┆
0x34f6…3546 00 22 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4f 50 54 5c 47 45 54 20 4f 50 54 49 4f 4e 20 57 4f 52 44 20 00 83 00 a4 00 1a 00 50 5c 41 4e 4b 5c 41 31 2c 32 5c 44 49 53 43 20 50 41 47 49 4e 47 3f 00 83 00 ca 00 24 00 50 5c 52 46 28 4e 5a 29 5c ┆ " P LD A2,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? $ P RF(NZ) ┆
0x3546…3596 43 4f 52 3a 36 30 5c 59 45 53 21 20 44 4f 4e 27 54 20 55 4e 4c 4f 43 4b 00 83 00 e8 00 06 00 50 2a 20 00 83 01 10 00 18 00 50 5c 4c 44 5c 41 31 2c 49 50 4c 44 45 56 2b 53 54 4b 45 4e 44 00 83 01 1a 00 28 00 50 5c 43 46 5c 41 31 34 2c 55 4e ┆COR:60 YES! DON'T UNLOCK P* P LD A1,IPLDEV+STKEND ( P CF A14,UN┆
0x3596…35e6 4c 4f 43 4b 5c 55 4e 4c 4f 43 4b 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 00 83 01 36 00 08 00 50 5c 58 49 46 00 83 01 62 00 12 00 50 5c 49 46 54 5c 43 46 54 45 53 54 3d 31 20 00 83 01 6e 00 10 00 50 43 4f 52 3a 36 30 5c 45 51 55 5c 2a ┆LOCK UNLOCK FLEXIBLE DISC 6 P XIF b P IFT CFTEST=1 n PCOR:60 EQU *┆
0x35e6…3636 (36, 0, 400) 00 83 01 84 00 0a 00 50 5c 45 4a 45 43 54 00 84 00 08 00 10 00 50 43 4f 4e 4d 4f 56 5c 45 51 55 5c 2a 00 84 00 16 00 06 00 50 2a 20 00 84 00 2a 00 34 00 50 2a 20 20 4d 4f 56 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 20 54 ┆ P EJECT PCONMOV EQU * P* * 4 P* MOVE CONFIGURATION DATA T┆
0x3636…3686 4f 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 00 84 00 34 00 06 00 50 2a 20 00 84 00 6c 00 26 00 50 5c 43 49 4f 5c 41 31 2c 30 2c 53 4f 50 5c 49 4e 48 49 42 49 54 20 53 4f 50 20 53 57 49 54 43 48 45 53 00 84 00 76 00 30 00 50 ┆O END OF SYSTEM AREA 4 P* l & P CIO A1,0,SOP INHIBIT SOP SWITCHES v 0 P┆
0x3686…36d6 5c 4c 44 5c 41 31 2c 43 4f 4e 53 54 41 2b 53 54 4b 43 4f 4d 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 2e 20 44 41 54 41 00 84 00 a0 00 3c 00 50 43 4d 4f 56 31 30 5c 4c 44 5c 41 33 2c 45 49 4e 50 42 46 2b 53 54 4b 45 4e 44 5c 47 ┆ LD A1,CONSTA+STKCOM GET START OF CONF. DATA < PCMOV10 LD A3,EINPBF+STKEND G┆
0x36d6…3726 45 54 20 45 4e 44 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 00 84 00 d4 00 30 00 50 5c 4c 44 5c 41 32 2c 45 53 59 53 54 41 2b 53 54 4b 45 4e 44 5c 47 45 54 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 20 ┆ET END OF CONFIGURATION DATA 0 P LD A2,ESYSTA+STKEND GET END OF SYSTEM AREA ┆
0x3726…3776 00 84 01 14 00 2a 00 50 5c 43 4d 5c 2d 32 2c 41 32 5c 4d 41 4b 45 20 53 55 52 45 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 00 84 01 48 00 22 00 50 5c 53 55 4b 5c 41 32 2c 31 5c 49 53 20 46 4f 4c 4c 4f 57 45 44 20 42 59 20 58 ┆ * P CM -2,A2 MAKE SURE CONFIGURATION FILE H " P SUK A2,1 IS FOLLOWED BY X┆