|
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: 42842 (0xa75a)
Notes: pts_type(SC)
Names: »DRDY02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRDY02.SC«
IDENT DRDY02 REL 11.0 81-05-25 870105041100 = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE REL 11.0 81-02-03 = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED REL 11.0 81-02-13 = 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 REL 11.0 81-02-17 = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS REL 11.0 81-04-06 * ************************************************************ * * * * PHILIPS TERMINAL SYSTEM P T S * DRDY02 = DRIVER VIDEO DISPLAY * * * ************************************************************ * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO * DISPLAYS PTS 6342, 6344, 6346 AND TO THE * DISPLAYS PTS 6351, 6385 AND 6386. * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO- * FUNCTIONS WHICH MAKES IT POSSIBLE TO USE * THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- * BOARD. * * * THE FOLLOWING ORDERS ARE TREATED : * * ORDER 00 TEST STATUS * 05 BASIC WRITE * 06 STANDARD WRITE * 0B SET CURSOR AND WRITE * 31 ERASE * * * NORMAL REGISTER USAGE : * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORKING REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * ENTRIES * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK * * * EXTERNALS * * * TOSS ROUTINES * EXTRN LENDER I/O-REQUEST ERROR EXTRN LENDIS END I/O-REQUEST EXTRN STABLK START OF BLOCK EXTRN OUTPUT SEND EXTRN ENDBLK END OF BLOCK EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER EXTRN ECHRTN RETURN TO KEYBOARD EXTRN TENDIO END OF I/O * * DWT DISPLACEMENTS * EXTRN DWTDEV TERMINAL DEVICE STATUS EXTRN DWTST DEVICE STATUS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE * * ECB DISPLACEMENTS * EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD * ************************************************************ * * CONSTANTS * ************************************************************ * * DWT DISPLACEMENTS * DWTAP EQU /2 HEAD POSITION POINTER DWTBC EQU /1 POSITION COUNTER DWTLIN EQU /4 LINES DWTPOS EQU /5 POSITIONS DWTBLC EQU /6 CHARACTERS IN BLOCK * * CHARACTERS * DUMMY EQU /3 DUMMY CHARACTER BACKSP EQU /08 NON-DESTRUCTIVE BACKSPACE LF EQU /0A LINE FEED HOME EQU /0B CURSOR HOME CLEHOM EQU /0C CLEAR AND CURSOR HOME CR EQU /0D CARRIAGE RETURN CURRIG EQU /10 CURSOR RIGHT SCADD EQU /11 SET CURSOR ADDRESS ULSTOP EQU /13 UNDERLINE STOP FASOUT EQU /14 FAST OUTPUT STILL EQU /18 CURSOR STEADY CTYCOD EQU /1B SET COUNTRY CODE LISTOP EQU /1F LOW INTENSITY STOP SPACE EQU /20 SPACE * * RETURN CODES * CCERR EQU /4 CODE CHECK ERROR * * OTHER * MINBLK EQU 6 BLOCK SIZE FASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT * ************************************************************ * * ADDRESS BLOCK * ************************************************************ DATA DVBLEN BUFFER LENGTH DATA 2 DEVICE INDEX DYAD EQU * DATA ACDY DRIVER ACTIVATION ADDRESS DATA ABDY ABORT ROUTINE DATA 0 NO INTERRUPT HANDLER DATA RCDY RECOVERY ROUTINE DATA ECHODY ECHO ROUTINE * ************************************************************ * * CONDITIONAL ASSEMBLY * ************************************************************ * * IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT * WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR") * OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE * FOUND EQUAL. * X:A EQU 0 FASTO EQU X:A * * * BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 * 6346, 6385 AND 6386. * X:B EQU 0 WHATDY EQU X:B * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 1 LOWCHA EQU X:C * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU X:D * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU X:E * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING. * X:F EQU 1 STEADY EQU X:F * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- * SIBLE TO CHOOSE BETWEEN TEN DIFFERENT * CHARACTER SETS, IF PTS 6385 IS USED. * * CODE COUNTRY * 0 GB/NL/B * 1 D/A/L/CH * 2 F/CH/B/L * 3 E * 4 I/CH * 5 S/SF * 6 DK/N * 7 P * 8 YU * 9 US X:G EQU 0 COUNTRY EQU X:G * * MEMORY MANAGEMENT BUFFER SIZE * X:H EQU 82 DVBLEN EQU X:H * * MAXIMUM BLOCK SIZE * X:J EQU 140 MAXBLK EQU X:J * * X:I SHOULD BE SET TO 1 IF A PTS 6385 OR 86 IS INCLUDED IN SYSTEM =4 * X:I EQU 0 PLASM EQU X:I * * IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4 * CHARACTER SET =4 * X:K EQU 0 =4 GREECE EQU X:K =4 * EJECT * ***************************************************** * * A C T I V A T I O N P A R T * * THIS PART MAKES A START OF BLOCK, CHECKS THE * REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE * PART OF THE DRIVER. * ******************************************************* * ACDY EQU * LDK A3,0 RESET BUFFER INDEX CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER LDKL A2,MAXBLK MAX. BLOCK SIZE CF A5,STABLK START OF BLOCK RF(NZ) DYER10 * * TEST ORDER * LDR A7,A7 GET ORDER RF(Z) DY100 ORDER 00, TEST STATUS * SUK A7,/5 RF(Z) DY200 ORDER 05, BASIC WRITE * SUK A7,1 RF(Z) DY300 ORDER 06,STANDARD WRITE * SUK A7,/5 ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE * SUK A7,/26 ABL(Z) DY700 ORDER 31, ERASE * * I/O-REQUEST ERROR * REQERR EQU * CF A5,ENDBLK END OF BLOCK ABL LENDER SET RETURN CODE AND END I/O EJECT * ************************************************************ * * ORDER 00, TEST STATUS. * THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY * AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY * IS NOT OPERABLE. * THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF * ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN * THE RIGHT. * ************************************************************ * DY100 EQU * LDK A2,DUMMY CF A5,OUTPUT SEND DUMMY RF(NZ) DYER10 * LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB * ABL ENDIO EJECT * ************************************************************ * * ORDER 05, BASIC WRITE. * THIS ORDER SENDS THE REQUESTED NUMBER OF * CHARACTERS TO THE DISPLAY AND SETS THE * INTERNAL CURSOR POSITION COUNTER TO HOME * POSITION. (/0101) * ************************************************************ * DY200 EQU * IFT TRASPA=1 CF A15,TRASP SUPPRESS TRAILING SPACES XIF DY205 EQU * CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? RF(NP) DY210 NO IFT GREECE=1 =4 CF A15,GRCHAR =4 XIF * CF A5,OUTPUT YES ! SEND CHARACTER RF(NZ) DYER05 * CF A15,POSUPD UPDATE POSITION COUNTER * * CHECK IF MAX. BLOCKSIZE IS REACHED. START A * NEW BLOCK IF IT IS. * IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER LDKL A2,MAXBLK GET BLOCKSIZE CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ? * RB(G) DY205 NO ! NEXT CHARACTER * CF A5,ENDBLK YES ! END BLOCK RF(NZ) DYER05 LDKL A2,MAXBLK GET BLOCKSIZE CF A5,STABLK START NEW BLOCK RF(NZ) DYER05 CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER RB DY205 NEXT CHARACTER * DY210 EQU * CF A15,UPDAPP RESET POSITION COUNTER * LDKL A4,/0101 SET HEAD POSITION COUNTER ST A4,DWTAP+DWTDEV,A6 TO HOME POSITION. (/0101) CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER * ABL DY493 END REQUEST * DYER05 EQU * CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE RF DYER10 ERROR ROUTINE IS ENTERED EJECT * ************************************************************ * * ORDER 06, STANDARD WRITE. * THIS PART CHECKS IF THE REQUESTED LENGTH IS ZERO. * IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND * THE REQUEST IS COMPLETED. * ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD * IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. * THEN IT CHECKS AND SENDS THE REST OF THE CHARACTERS * IN THE ECB-BUFFER TO THE DISPLAY UNLESS A SPECIAL * CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. * IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION * IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. * WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS * SAVED IN THE CONTROL WORD OF ECB. * ************************************************************ * DY300 EQU * * * TEST REQUESTED LENGTH * LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ? RF(Z) DY307 YES ! * * TEST CONTROL CHARACTER * DY305 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,/2B RF(Z) DY335 NO MOVING OF CURSOR DY307 EQU * * LDK A4,1 FIRST POSITION AND ONE LINE FEED. SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER * SUK A2,/5 TWO LINE FEED ? RF(NZ) DY310 NO ! LDK A4,2 YES ! INDICATE TWO LINE FEED * DY310 EQU * SUK A2,1 ERASE ? RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE * LDK A2,CR CARRIAGE RETURN * DY320 EQU * CF A5,OUTPUT SEND DYER10 RF(NZ) DYER15 * SUK A4,1 READY ? RF(N) DY335 YES ! START WRITING ON DISPLAY * LC A1,DWTLIN+DWTDEV,A6 MAX. NUMBER OF LINES ON DISPLAY CC A1,DWTAP+DWTDEV,A6 ALREADY ON LAST LINE ? RF(NG) DY325 YES ! * LDKL A2,/100 NO ! INCREMENT LINE COUNTER ADS A2,DWTAP+DWTDEV,A6 DY325 EQU * LDK A2,LF LINE FEED CHARACTER RB DY320 SEND NEXT LINE FEED * DY330 EQU * SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER LDK A2,CLEHOM CLEAR AND CURSOR HOME LDK A4,0 INDICATE ONLY ONE CHARACTER TO SEND RB DY320 SEND EJECT * * * WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). * * DY335 EQU * IFT TRASPA=1 CF A15,TRASP SUPPRESS TRAILING SPACES XIF DY340 EQU * CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER * LDR A1,A1 LAST CHARACTER ? ABL(NP) DY405 YES ! IFT GREECE=1 =4 CF A15,GRCHAR =4 XIF * LDR A4,A2 CHECK CODE LIMITS SUK A4,/20 RF(N) DY380 TEST IF SPECIAL CHARACTER SUK A4,/5F RF(P) DY380 TEST IF SPECIAL CHARACTER IFT FASTO=1 IFT WHATDY=1 LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPUT SEQ. LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ANKL A1,/1000 RF(NZ) FAST80 NO ! XIF IFT FASTO=1 * * * FAST OUTPUT SHOULD BE USED IF A NUMBER OF * CHARACTERS ARE FOUND EQUAL. * * LD A1,ECBBA,A8 GET BUFFER ADDRESS ADR A1,A3 ADD BUFFER INDEX * * LC A4,DWTBC+DWTDEV,A6 GET POSITION ON THE LINE AD A4,DWTAP+DWTDEV,A6 ANK A4,/FF * FAST10 EQU * ADK A4,1 INCREMENT CHARACTER COUNTER CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ? RF(NE) FAST40 NO ! * CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ? RF(NL) FAST40 YES ! * CW A3,ECBRL,A8 REQUESTED LENGTH ? RF(NL) FAST40 YES ! * ADK A1,1 INCREMENT COUNTERS ADK A3,1 RB FAST10 CHECK NEXT CHARACTER * FAST40 EQU * LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS AD A1,DWTBC+DWTDEV,A6 ANK A1,/FF SUR A4,A1 * CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? RF(L) FAST80 NO ! * * YES ! SEND CHARACTERS WITH FAST OUTPUT * ADS A4,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER * SLC A3,8 SAVE BUFFER POINTER ADR A4,A3 * IFT LOWCHA=0 LDR A3,A2 SUK A3,/5F RF(NP) FAST30 SUK A2,/20 FAST30 EQU * XIF IFT FASTO=1 LDR A3,A2 PUT CHARACTER INTO A3 * CF A5,FASTER * LDR A3,A4 RESTORE BUFFER POINTER SRL A3,8 * LC A4,DWTBC+DWTDEV,A6 GET CURSOR POSITION ANK A4,/FF AD A4,DWTAP+DWTDEV,A6 * CF A5,CURPOS SET CURSOR RB DY340 NEXT CHARACTER FAST80 EQU * XIF * IFT LOWCHA=0 LOWER CASE NOT USED LDR A1,A2 SUK A1,/5F RF(NP) DY360 SUK A2,/20 DY360 EQU * XIF DY370 EQU * CF A5,OUTPUT SEND CHARACTER DYER15 ABL(NZ) DYER20 CF A15,POSUPD POSITION COUNTER UPDATE IFT FASTO=1 IFT WHATDY=1 LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? ANKL A1,/1000 RF(NZ) FAST90 NO ! XIF IFT FASTO=1 SUK A4,1 DECREMENT CHARACTER COUNTER RB(NP) DY340 ALL CHECKED CHARS. SENT ! NEXT ! LD A2,ECBBA,A8 GET CHARACTER TO SEND AGAIN ADR A2,A3 LC A2,-1,A2 ANK A2,/7F MASK CHARACTER RB FAST80 FAST90 EQU * XIF RB DY340 NEXT CHARACTER * * TEST IF SPECIAL CHARACTER * DY380 EQU * LDK A4,0 RESET A4 LDR A1,A2 CHARACTER * SUK A1,/07 BELL ( /07 ) ? RF(Z) DY467 YES ! SEND * SUK A1,/A TABULATION ( /11 ) ? ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE * SUK A1,/3 FAST OUTPUT ( /14 ) ? RF(Z) DY390 YES ! GO TO THAT ROUTINE * SUK A1,/9A POINT ( /AE ) ? RF(Z) DY410 YES ! LOAD AND SEND IFF WHATDY+PLASM=0 =4 * IF PTS 6344 IS USED LD A4,DWTDEV,A6 CHECK IF PTS 6344 IS USED ANKL A4,/3000 RF(NZ) DY385 NO ! XIF * ADK A1,/9C UNDERLINE START ( /12 ) ? RF(Z) DY467 YES ! * SUK A1,/1 UNDERLINE STOP ( /13 ) ? RF(Z) DY467 YES ! * SUK A1,/B LOW INTENSITY START ( /1E) ? RF(Z) DY467 YES ! * SUK A1,/1 LOW INTENSITY STOP ( /1F ) ? RF(Z) DY467 YES ! * * ILLEGAL CHARACTER * DY385 EQU * LDK A1,CCERR CODE CHECK ERROR ORS A1,ECBRC,A8 SET RETURN CODE OF ECB RB DY340 NEXT CHARACTER EJECT * * ROUTINE FOR FAST OUTPUT * DY390 EQU * IFT TRASPA=1 LD A4,ECBCW,A8 RESTORE OLD REQ. LEN. ST A4,ECBRL,A8 XIF CF A15,GETCHR GET OUTPUT CHARACTER * LD A4,ECBRL,A8 REQUESTED LENGTH SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND RF(NP) DY400 NONE ! IFT GREECE=1 =4 CF A15,GRCHAR =4 XIF * LDR A3,A2 LOAD CHARACTER IN A3 * CF A5,FASTER SEND WITH FAST OUTPUT * DY400 EQU * LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN * DY405 RF DY470 GO TO COMMON END * * SEND A POINT * DY410 EQU * LDK A2,/2E GET CODE FOR POINT RB DY370 SEND POINT * DY467 EQU * CF A5,OUTPUT SEND SPECIAL CHARACTER RF(NZ) DYER20 NOT OK ! ABL DY340 NEXT CHARACTER ! EJECT ************************************************************ * * TABULATION * ************************************************************ ADY140 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ADY144 ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ADY143 ADY144 LC A4,DWTAP+DWTDEV+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC+DWTDEV,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND ABL(NP) DY340 NEXT CHARACTER LDR A4,A2 ADY145 LDK A2,CURRIG CURSOR RIGHT CF A5,OUTPUT RF(NZ) DYER20 CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 READY ? RB(NE) ADY145 NO ABL DY340 NEXT CHARACTER EJECT ************************************************************** * * COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH * HAS BEEN SET UP BY SPECIAL CHARACTERS. * ************************************************************* * DY470 EQU * LDK A2,ULSTOP UNDERLINE STOP CF A5,OUTPUT SEND DYER20 RF(NZ) DYER30 * LDK A2,LISTOP LOW INTENSITY STOP CF A5,OUTPUT SEND RF(NZ) DYER30 * CF A15,UPDAPP UPDATE HEAD POSITION COUNTER * DY493 EQU * IFT TRASPA=1 LD A2,ECBCW,A8 ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH XIF ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER ST A2,ECBCW,A8 IN CONTROL WORD OF ECB ENDIO EQU * CF A5,ENDBLK END OF BLOCK RF(NZ) DYER30 ABL LENDIS END I/O EJECT ************************************************************ * * ORDER 0B, SET CURSOR AND WRITE. * THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN * THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS * TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- * TERS AS ORDER 06. * ************************************************************ * DY600 EQU * IFT WHATDY=1 LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? ANKL A4,/1000 RF(Z) DY610 YES ! * GET LINE LC A4,ECBCW,A8 GET REQUESTED LINE CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE ADY210 CWR A4,A3 RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL RF(E) ADY300 SAME LINE LDK A2,LF LINE FEED ADK A3,1 INCREMENT ACTUAL LINE NUMBER ADY230 CF A5,OUTPUT SEND RF(NZ) DYER30 LDR A4,A4 REQUESTED LINE RB(NZ) ADY210 NOT EQUAL ZERO LDK A4,1 RF ADY300 ADY250 LDK A2,HOME HOME LDK A3,1 RESET ACTUAL LINE NUMBER ST A3,DWTAP+DWTDEV,A6 RESET POSITION RB ADY230 * * * GET POSITION * ADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER LC A4,ECBCW+1,A8 GET REQUESTED POSITION CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE ADY303 EQU * CWK A4,1 FIRST POSITION ? RF(NE) ADY305 NO CWR A4,A3 FIRST LINE ? RF(NE) ADY305 NO LDK A2,HOME CURSOR GO HOME RF ADY330 ADY305 RF(NL) ADY307 REQ. POS NOT ZERO LDK A4,1 ADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION CC A3,DWTPOS+DWTDEV,A6 MAX-POS? RF(NG) ADY310 NO! SUK A3,1 ADY310 CWR A4,A3 FORWARDS OR BACKWARDS RF(E) ADY370 POSITION FOUND RF(N) ADY340 BACK LDK A2,CURRIG CURSOR RIGHT ADK A3,1 UPDATE POSITION COUNTER ADY330 CF A5,OUTPUT SEND RF(NZ) DYER30 RB ADY310 ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY RF(L) ADY345 BACKSPACE WAY LDK A2,CR CARRIAGE RETURN LDK A3,1 INDICATE FIRST POSITION RB ADY330 ADY345 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND RF(NZ) DYER30 SUK A3,1 LAST BACKSPACE ? RB(NE) ADY345 ADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER RF DY620 DY610 EQU * XIF LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION ST A4,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION COUNTER CF A5,CURPOS SET CURSOR ON DISPLAY * DY620 EQU * LDK A3,2 START BUFFER INDEX ABL DY335 SEND CHARACTERS WITH STANDARD WRITE EJECT ************************************************************ * * CURPOS = SUBROUTINE TO SET CURSOR * AT ENTRY A4 = CURSOR POS (POSITION AND LINE) * ************************************************************ CURPOS EQU * LDK A2,SCADD SET CURSOR ADDRESS CF A5,OUTPUT SEND RF(NZ) DYER30 * LDR A2,A4 GET POSITIONS CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ? RF(NG) CURR10 NO ! LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS * CURR10 ADK A2,/1F CONVERT CF A5,OUTPUT SEND DYER30 RF(NZ) DYER40 * LDR A2,A4 SRL A2,8 GET LINES CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ? RF(NG) CURR20 NO ! LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES * CURR20 EQU * ADK A2,/1F CONVERT CF A5,OUTPUT SEND RF(NZ) DYER40 RTN A5 EJECT ************************************************************ * * ORDER 31, ERASE. * SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL * WORD OF ECB. THE CURSOR IS NOT MOVED. * ************************************************************ * DY700 EQU * LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE IFT WHATDY=1 LD A1,DWTDEV,A6 PTS 6344,6385 OR 6386 ? ANKL A1,/1000 RF(Z) DY750 YES ! * LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS ANK A2,/FF LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION ANK A3,/FF SUR A2,A3 NR OF CHARS. TO END OF SCREEN LDR A3,0 ADJUST ADK A2,1 ADJUST LENGTH CWR A4,A2 OUTSIDE SCREEN ? RF(L) DY710 NO ! LDR A4,A2 YES ! MODIFY LENGTH LDR A3,1 ADJUST DY710 EQU * ADR A3,A4 CHARACTERS TO ERASE LDK A2,/20 SPACE DY720 EQU * SUK A4,1 DECREMENT NUMBER OF CHARACTERS RF(N) DY730 ERASE READY * CF A5,OUTPUT SEND RF(NZ) DYER40 RB DY720 * DY730 EQU * CF A5,ENDBLK END OF BLOCK RF(NZ) DYER40 LDKL A2,MAXBLK BLOCK SIZE CF A5,STABLK START OF NEW BLOCK RF(NZ) DYER40 LDR A4,A3 RESET COUNTER LDR A2,BACKSP CURSOR LEFT DY740 EQU * SUK A4,1 CURSOR IN ORIGINAL POSITION ? ABL(N) ENDIO YES ! CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE RF(NZ) DYER40 RB DY740 DY750 EQU * XIF LDK A3,/20 SPACE CF A5,FASTER SEND WITH FAST OUTPUT ABL ENDIO EJECT ************************************************************ * * ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE * THIS ROUTINE CHECKS IF THE ECHO-CHARCTER * IS A BACKSPACE, CLEAR OR EOR-KEY ( IF * "SUPPRESS ECHOING OF EOR" IS REQUESTED * AT SYSGEN ). ELSE THE CHARACTER WILL BE * SENT TO THE DISPLAY. * ************************************************************ * ECHODY EQU * LDR A7,A7 END OF ECHOING ? RF(NN) EDY110 NO ! * * CF A15,UPDAPP UPDATE HEAD POSITION COUNTER CF A15,TENDIO END I/O LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? RF(Z) EDY130 NO, RETURN TO KEYBOARD RF EDY120 * EDY110 EQU * LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION IFT GREECE=1 =4 CF A15,GRCHAR =4 =4 XIF =4 LDR A3,A2 SAVE CHARACTER * IFT EORECH=0 SUK A3,/80 RF(NN) EDY130 NOT TO BE ECHOED ADK A3,/80 XIF LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ? RF(Z) EDY116 NO ! CWK A1,MINBLK YES ! IS IT FULL ? RF(L) EDY118 NO ! CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER CF A5,ENDBLK FINISH BLOCK RF(NZ) DYER40 EDY116 EQU * LDK A2,MINBLK CF A5,STABLK DECLARE BLOCK RF(NZ) DYER40 EDY118 EQU * LDR A2,A3 RELOAD CHARACTER * SUK A3,/18 CLEAR ? RF(Z) DY850 YES ! ADK A3,/10 BACKSPACE ? RF(Z) DY800 YES ! * * * SEND CHARACTER TO ECHO-DEVICE * IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER CF A5,OUTPUT SEND DYER40 RF(NZ) DYER45 CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 MORE CHARACTERS ? RF(Z) EDY130 YES ! * EDY120 EQU * CF A5,ENDBLK END OF BLOCK RF(NZ) DYER45 CM DWTBLC+DWTDEV,A6 RESET COUNTER EDY130 ABL ECHRTN RETURN TO KEYBOARD EJECT ************************************************************ * * BACKSPACE * CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP * BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE * STEP BACKWARDS AGAIN. * ************************************************************ * DY800 EQU * LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A3,/FF RB(Z) EDY120 FIRST POSITION * CF A5,ENDBLK FINISH OLD BLOCK RF(NZ) DYER45 LDK A2,MINBLK CF A5,STABLK START A NEW BLOCK RF(NZ) DYER45 * LDK A4,2 SET "SEND AGAIN" FLAG SUK A3,1 INDICATE ONE BACKSTEP SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER ADK A3,1 GET POSITION ON LINE AD A3,DWTAP+DWTDEV,A6 CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? RF(L) DY810 NO ! RB(G) DY800 NO, OUTSIDE ! * * DY805 EQU * * LDK A2,SPACE SPACE CF A5,OUTPUT SEND RF(NZ) DYER45 * DY810 EQU * LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE CF A5,OUTPUT SEND RF(NZ) DYER45 * SUK A4,1 SEND AGAIN ? RB(NZ) DY805 YES ! * NO, BACKSPACE FINISHED RB EDY120 EJECT ******************************************************** * * CLEAR * CHECKS CURSOR POSITION, SETS CURSOR WHERE LAST * REQUEST ENDED AND SENDS SPACES TO ERASE THE * CHARACTERS WRITTEN DURING CURRENT REQUEST. * ************************************************************ * DY850 EQU * CF A5,ENDBLK FINISH OLD BLOCK RF(NZ) DYER45 LDKL A2,MAXBLK GET BLOCKSIZE CF A5,STABLK START OF BLOCK DYER45 RF(NZ) DYER48 LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A3,/FF RB(Z) EDY120 FIRST POSITION * IFT WHATDY=1 LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? ANKL A1,/1000 RF(Z) DY860 YES ! CF A5,BACCAN ERASE CURRENT REQUEST RB EDY120 XIF DY860 EQU * LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNTER CF A5,CURPOS SET CURSOR * LDR A4,A3 GET POSITION COUNTER ADK A4,1 UPDATE POSITION COUNTER LDK A3,SPACE GET SPACE TO SEND CF A5,FASTER SEND WITH FAST OUTPUT * SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER RB EDY120 IFT WHATDY=1 EJECT ************************************************************ * * BACCAN = SUBROUTINE TO POSITION CURSOR * AT THE PLACE BEFORE REQUEST IF * CLEAR. * ************************************************************ BACCAN EQU * CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER LDR A4,A3 LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS+DWTDEV,A6 LAST POSITION RF(NP) BACA10 NO LDK A2,SPACE DESTRUCTIVE SPACE RF BACA20 BACA10 EQU * IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ? RF(G) BACA30 NO ! * CF A5,ENDBLK YES ! END OLD BLOCK RF(NZ) DYER50 LDKL A2,MAXBLK BLOCK SIZE CF A5,STABLK START A NEW BLOCK RF(NZ) DYER50 CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER BACA30 EQU * LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND RF(NZ) DYER50 LDK A2,SPACE DESTRUCTIVE SPACE CF A5,OUTPUT SEND RF(NZ) DYER50 LDK A2,BACKSP BACKSPACE BACA20 CF A5,OUTPUT SEND RF(NZ) DYER50 SUK A4,1 RB(NE) BACA10 NGR A3,A3 NEGATE REGISTER ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER RTN A5 XIF EJECT ************************************************************ * * FASTER = SUBROUTINE FOR FAST OUTPUT * AT ENTRY A4 = NUMBER OF CHARACTERS * A3 = CHARACTER TO SEND * ************************************************************ FASTER EQU * IFT WHATDY=1 LD A2,DWTDEV,A6 PTS ANKL A2,/1000 6342 OR 6351 ? RF(Z) FAS005 NO ! * * SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 * LC A2,DWTBC+DWTDEV,A6 AD A2,DWTAP+DWTDEV,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD NUMBER OF CHARACTERS * LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS ANK A1,/FF SUR A1,A2 COMPARE RF(NN) FAS002 LENGTH OK ADR A4,A1 ADJUST LENGTH ADK A4,1 ADJUST NUMBER OF CHARACTERS * FAS002 EQU * * LDR A2,A4 PUT TWO COUNTERS IN A4 SLL A2,8 ORR A4,A2 * FAS004 EQU * LDR A2,A3 GET CHARACTER TO SEND CF A5,OUTPUT SEND RF(NZ) DYER50 SUK A4,1 DECREMENT COUNTER LDK A2,/FF ANR A2,A4 RB(P) FAS004 NEXT CHARACTER * CF A5,ENDBLK START A NEW BLOCK TO RF(NZ) DYER50 AVOID OVERFLOW IN LDKL A2,MAXBLK THE OLD ONE CF A5,STABLK RF(NZ) DYER50 * SRL A4,8 GET LENGTH COUNTER FAS003 EQU * LDK A2,BACKSP CF A5,OUTPUT SEND BACKSPACE RF(NZ) DYER50 SUK A4,1 DECREMENT COUNTER RB(P) FAS003 NEXT RTN A5 FAS005 EQU * XIF CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS ON DISPLAY FAS010 EQU * ADK A4,/20 ADD CONSTANT LDK A2,FASOUT FAST OUTPUT CF A5,OUTPUT SEND DYER48 RF(NZ) DYER50 LDR A2,A4 NO OF CHAR ANK A2,/FF CF A5,OUTPUT SEND RF(NZ) DYER50 LDR A2,A3 CF A5,OUTPUT SEND RF(NZ) DYER50 RTN A5 EJECT **************************************************** * * ERROR ROUTINE. ENTERED WHEN RETURN CODE IS SET * AFTER STABLK, OUTPUT OR ENDBLK. * ****************************************************** DYER50 EQU * LD A7,DWTST,A6 SLC A7,2 ECHO ? ABL(N) ECHRTN YES ! RETURN FROM ECHO * SRC A1,5 OUTPUT ERROR (HER) ? RF(N) RCDY YES ! GO TO RECOVERY SLC A1,5 NO ! RESTORE A1 * LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? ANK A7,/FF RF(Z) DYER52 YES ! SUK A7,5 ORDER 5 ? RF(Z) DYER52 YES ! SUK A7,/2B ORDER 31 ? RF(Z) DYER52 YES ! * SRC A1,2 LRC-ERROR ? RF(N) DYER70 YES ! SLC A1,2 DYER52 SRC A1,3 LINK ERROR ? RF(NN) DYER55 NO ! LDKL A1,/2000 YES ! SET SHIFTED "NOT OPERABLE" BIT DYER55 SLC A1,3 SHIFT BACK * LDR A8,A8 =1 RF(Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1 CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD DYER60 EQU * =1 ABL LENDIS COMPLETE REQUEST * * LRC-ERROR * DYER70 EQU * LDKL A5,DWTSB2 INITIALIZE A5 STACK ADR A5,A6 LDR A8,A8 ECB-ADDRESS = ZERO ? = 2 ABL(Z) ENDIO YES, DON'T SEND AGAIN = 2 IFT WHATDY=1 LD A4,DWTDEV,A6 6344,6385 OR 6386 ? ANKL A4,/1000 RF(Z) DYER90 YES ! LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK ANK A4,/FF RF(Z) DYER80 CF A5,BACCAN SEND BACKSPACES AND RUB OUT LDK A3,2 SET BUFFER INDEX DYER80 ABL DY335 SEND AGAIN DYER90 EQU * XIF * LD A4,DWTAP+DWTDEV,A6 GET HEAD POS. COUNTER CF A5,CURPOS SET CURSOR ON DISPLAY LDK A3,0 RESET BUFFER INDEX LD A7,DWTOR,A6 GET ORDER ANK A7,/FF ABL ACDY EJECT ************************************************************ * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED * ************************************************************ UPDAPP EQU * LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A2,/FF ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER LDK A2,0 SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER RTN A15 ************************************************************ * * POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION * COUNTER WHEN REQUEST RUNNING. * A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE * ************************************************************ POSUPD EQU * LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? RF(G) POSU10 IM DWTBC+DWTDEV,A6 POSITION COUNTER POSU10 RTN A15 IFT GREECE=1 =4 EJECT =4 *************************************************** =4 * * GRCHAR = SUBROUTINE TO CONVERT GREEK CHARACTERS =4 * BEFORE THEY ARE SENT TO THE DISPLAY =4 * *************************************************** =4 GRCHAR EQU * = LDR A1,A2 IS IT A GREEK CHARACTER ? =4 SUK A1,/B9 =4 RF(P) GRCH10 NO =4 ADK A1,9 =4 RF(N) GRCH10 NO =4 * =4 ADKL A1,GRTAB GET THE CORRECT CODE FROM =4 LCR A2,A1 THE CHARACTER TABLE =4 * =4 GRCH10 EQU * =4 RTN A15 =4 * =4 GRTAB EQU * =4 DATA /2223,/263B,/405B,/5C5D,/5E5F =4 XIF =4 IFT TRASPA=1 EJECT ************************************************** * * TRASP = SUBROUTINE THAT ELIMINATES TRAILING * SPACES FROM ECB-BUFFER. IT ALSO DE- * LETES LOW INTENSITY START, HIGH * INTENSITY START. * AND TABULATIONS * ************************************************** * TRASP EQU * LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR ANK A4,/FF SUK A4,/20 SPACE ? RF(Z) SKIP07 YES ADK A4,1 LOW INT. STOP ? RF(Z) SKIP07 YES ! ADK A4,1 LOW INT. START ? RF(Z) SKIP07 YES ! CWK A2,4 RF(NG) SKIP30 REQ, LENGTH < 5 LC A4,-2,A1 GET CHARACTER SUK A4,/11 TABULATION CHARACTER ? RF(NZ) SKIP30 YES ! SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP30 EQU * LD A4,ECBRL,A8 ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH * ST A2,ECBRL,A8 STORE NEW RL * RTN A15 XIF EJECT ************************************************************ * * RCDY = RECOVERY ROUTINE * CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION * COUNTER TO HOME POSITION ( /0101 ). * ************************************************************ * RCDY EQU * LDKL A2,/7FFF ANS A2,DWTST,A6 INDICATE BUSY * LDKL A2,MAXBLK MAX. BLOCK SIZE CF A5,STABLK START OF BLOCK RCER RB(NZ) DYER50 IFT PLASM=0 =4 IFF STEADY+COUNTRY=0 LD A2,DWTDEV,A6 GET DEVICE STATUS ANKL A2,/2000 PTS 6385 OR 6386 ? RF(Z) RCDY20 NO ! LDK A3,/40 SET UP TRANSFER COUNTER * RCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING ADK A2,STEADY ADJUST TO STEADY IF SO CF A5,OUTPUT SEND CURSOR INFORMATION RB(NZ) RCER SUK A3,1 DECREMENT TRANSFER COUNTER RB(P) RCDY10 NOT ENOUGH TRANSFERS LDK A2,CTYCOD SEND "SET COUNTRY CODE" CF A5,OUTPUT RB(NZ) RCER LDK A2,COUNTRY SEND "COUNTRY CODE" ORK A2,/30 MAKE ASCII DIGIT CF A5,OUTPUT RB(NZ) RCER RCDY20 EQU * XIF * LDK A2,CLEHOM CLEAR AND CURSOR HOME CF A5,OUTPUT SEND RB(NZ) RCER * LDKL A2,/0101 HOME POSITION ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER LDK A2,0 SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER * ABL ENDIO * **************************************** * * ABORT ROUTINE * **************************************** * ABDY EQU * CF A15,UPDAPP UPDATE HEAD POS. POINTER ABL LENDIS END I/O END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY02 REL 11.0 81-05-25 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0072 Head {h00=0x0030, h01=0x0050, text=» = 1 ECB-ADDRESS CHECKED IN ERROR-ROUTINE «, t00=0x0000, t01=0x0042}
0x0072…008e Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-03«, t00=0x0000, t01=0x0076}
0x008e…00c6 Head {h00=0x0034, h01=0x0050, text=» = 2 ECB-ADDRESS CHECKED IF LRC-ERROR OCCURED «, t00=0x0000, t01=0x0092}
0x00c6…00e2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-13«, t00=0x0000, t01=0x00ca}
0x00e2…011e Head {h00=0x0038, h01=0x0050, text=» = 3 ASS. ERROR IF FAST0=1, TRASPA=1 AND WHATDY=1 «, t00=0x0000, t01=0x00e6}
0x011e…013a Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-02-17«, t00=0x0000, t01=0x0122}
0x013a…0176 Head {h00=0x0038, h01=0x0050, text=» = 4 GREEK CHARACTER SET HANDLING & NEW CONDITIONS«, t00=0x0000, t01=0x013e}
0x0176…0192 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-06«, t00=0x0000, t01=0x017a}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01e0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x0012}
0x01e0…01ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0056}
0x01ea…01f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0060}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006a}
0x01fe…0228 Head {h00=0x0026, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM P T S «, t00=0x0001, t01=0x0074}
0x0228…0252 Head {h00=0x0026, h01=0x0050, text=»* DRDY02 = DRIVER VIDEO DISPLAY «, t00=0x0001, t01=0x009e}
0x0252…025c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025c…0266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0266…0270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00dc}
0x0270…02b4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0001, t01=0x00e6}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012a}
0x02be…02f2 Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO «, t00=0x0001, t01=0x0134}
0x02f2…0326 Head {h00=0x0030, h01=0x0050, text=»* DISPLAYS PTS 6342, 6344, 6346 AND TO THE«, t00=0x0001, t01=0x0168}
0x0326…0354 Head {h00=0x002a, h01=0x0050, text=»* DISPLAYS PTS 6351, 6385 AND 6386. «, t00=0x0002, t01=0x000c}
0x0354…038a Head {h00=0x0032, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-«, t00=0x0002, t01=0x003a}
0x038a…03be Head {h00=0x0030, h01=0x0050, text=»* FUNCTIONS WHICH MAKES IT POSSIBLE TO USE«, t00=0x0002, t01=0x0070}
0x03be…03f4 Head {h00=0x0032, h01=0x0050, text=»* THE DISPLAY AS AN ECHO-DEVICE TO ANY KEY- «, t00=0x0002, t01=0x00a4}
0x03f4…0406 Head {h00=0x000e, h01=0x0050, text=»* BOARD.«, t00=0x0002, t01=0x00da}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f6}
0x041a…0448 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0002, t01=0x0100}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012e}
0x0452…0476 Head {h00=0x0020, h01=0x0050, text=»* ORDER 00 TEST STATUS «, t00=0x0002, t01=0x0138}
0x0476…049a Head {h00=0x0020, h01=0x0050, text=»* 05 BASIC WRITE «, t00=0x0002, t01=0x015c}
0x049a…04c0 Head {h00=0x0022, h01=0x0050, text=»* 06 STANDARD WRITE«, t00=0x0002, t01=0x0180}
0x04c0…04ec Head {h00=0x0028, h01=0x0050, text=»* 0B SET CURSOR AND WRITE«, t00=0x0003, t01=0x0016}
0x04ec…050a Head {h00=0x001a, h01=0x0050, text=»* 31 ERASE «, t00=0x0003, t01=0x0042}
0x050a…0514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0514…051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x051e…0542 Head {h00=0x0020, h01=0x0050, text=»* NORMAL REGISTER USAGE : «, t00=0x0003, t01=0x0074}
0x0542…054c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054c…0574 Head {h00=0x0024, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0003, t01=0x00a2}
0x0574…05a2 Head {h00=0x002a, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0003, t01=0x00ca}
0x05a2…05cc Head {h00=0x0026, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0003, t01=0x00f8}
0x05cc…05fa Head {h00=0x002a, h01=0x0050, text=»* A4 = WORKING REGISTER «, t00=0x0003, t01=0x0122}
0x05fa…0622 Head {h00=0x0024, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0003, t01=0x0150}
0x0622…064a Head {h00=0x0024, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0003, t01=0x0178}
0x064a…066c Head {h00=0x001e, h01=0x0050, text=»* A7 = ORDER«, t00=0x0004, t01=0x0010}
0x066c…0694 Head {h00=0x0024, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0004, t01=0x0032}
0x0694…069e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x069e…06a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06a8…06bc Head {h00=0x0010, h01=0x0050, text=»* ENTRIES «, t00=0x0004, t01=0x006e}
0x06bc…06c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0082}
0x06c6…06d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d0…06fc Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0004, t01=0x0096}
0x06fc…0706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c2}
0x0706…0710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00cc}
0x0710…0726 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS «, t00=0x0004, t01=0x00d6}
0x0726…0730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ec}
0x0730…073a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f6}
0x073a…0754 Head {h00=0x0016, h01=0x0050, text=»* TOSS ROUTINES «, t00=0x0004, t01=0x0100}
0x0754…075e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011a}
0x075e…0786 Head {h00=0x0024, h01=0x0050, text=» EXTRN LENDER I/O-REQUEST ERROR «, t00=0x0004, t01=0x0124}
0x0786…07ac Head {h00=0x0022, h01=0x0050, text=» EXTRN LENDIS END I/O-REQUEST «, t00=0x0004, t01=0x014c}
0x07ac…07d0 Head {h00=0x0020, h01=0x0050, text=» EXTRN STABLK START OF BLOCK«, t00=0x0004, t01=0x0172}
0x07d0…07ea Head {h00=0x0016, h01=0x0050, text=» EXTRN OUTPUT SEND«, t00=0x0005, t01=0x0008}
0x07ea…080c Head {h00=0x001e, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK«, t00=0x0005, t01=0x0022}
0x080c…0842 Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR FETCH CHARACTER FROM ECB-BUFFER «, t00=0x0005, t01=0x0044}
0x0842…086a Head {h00=0x0024, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD«, t00=0x0005, t01=0x007a}
0x086a…088a Head {h00=0x001c, h01=0x0050, text=» EXTRN TENDIO END OF I/O«, t00=0x0005, t01=0x00a2}
0x088a…0894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c2}
0x0894…08b2 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0005, t01=0x00cc}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08bc…08e8 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTDEV TERMINAL DEVICE STATUS«, t00=0x0005, t01=0x00f4}
0x08e8…090a Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST DEVICE STATUS«, t00=0x0005, t01=0x0120}
0x090a…0924 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0005, t01=0x0142}
0x0924…0944 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0005, t01=0x015c}
0x0944…094e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x094e…096c Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS «, t00=0x0005, t01=0x0186}
0x096c…0976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0014}
0x0976…099a Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0006, t01=0x001e}
0x099a…09c0 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0006, t01=0x0042}
0x09c0…09e6 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0006, t01=0x0068}
0x09e6…0a06 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0006, t01=0x008e}
0x0a06…0a28 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0006, t01=0x00ae}
0x0a28…0a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a32…0a76 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0006, t01=0x00da}
0x0a76…0a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a80…0a96 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS «, t00=0x0006, t01=0x0128}
0x0a96…0aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa0…0ae4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0006, t01=0x0148}
0x0ae4…0aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0aee…0b0c Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS «, t00=0x0007, t01=0x0008}
0x0b0c…0b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b16…0b40 Head {h00=0x0026, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITION POINTER«, t00=0x0007, t01=0x0030}
0x0b40…0b66 Head {h00=0x0022, h01=0x0050, text=»DWTBC EQU /1 POSITION COUNTER «, t00=0x0007, t01=0x005a}
0x0b66…0b82 Head {h00=0x0018, h01=0x0050, text=»DWTLIN EQU /4 LINES «, t00=0x0007, t01=0x0080}
0x0b82…0ba2 Head {h00=0x001c, h01=0x0050, text=»DWTPOS EQU /5 POSITIONS «, t00=0x0007, t01=0x009c}
0x0ba2…0bcc Head {h00=0x0026, h01=0x0050, text=»DWTBLC EQU /6 CHARACTERS IN BLOCK «, t00=0x0007, t01=0x00bc}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bd6…0bec Head {h00=0x0012, h01=0x0050, text=»* CHARACTERS«, t00=0x0007, t01=0x00f0}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bf6…0c1a Head {h00=0x0020, h01=0x0050, text=»DUMMY EQU /3 DUMMY CHARACTER«, t00=0x0007, t01=0x0110}
0x0c1a…0c4a Head {h00=0x002c, h01=0x0050, text=»BACKSP EQU /08 NON-DESTRUCTIVE BACKSPACE«, t00=0x0007, t01=0x0134}
0x0c4a…0c66 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0007, t01=0x0164}
0x0c66…0c86 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x0007, t01=0x0180}
0x0c86…0cb2 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x0008, t01=0x0010}
0x0cb2…0cd4 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0008, t01=0x003c}
0x0cd4…0cf8 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x0008, t01=0x005e}
0x0cf8…0d20 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x0008, t01=0x0082}
0x0d20…0d46 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x0008, t01=0x00aa}
0x0d46…0d68 Head {h00=0x001e, h01=0x0050, text=»FASOUT EQU /14 FAST OUTPUT«, t00=0x0008, t01=0x00d0}
0x0d68…0d8c Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x0008, t01=0x00f2}
0x0d8c…0db4 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x0008, t01=0x0116}
0x0db4…0dde Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x0008, t01=0x013e}
0x0dde…0dfa Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x0008, t01=0x0168}
0x0dfa…0e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0184}
0x0e04…0e1c Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES«, t00=0x0008, t01=0x018e}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0016}
0x0e26…0e4c Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0009, t01=0x0020}
0x0e4c…0e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0046}
0x0e56…0e68 Head {h00=0x000e, h01=0x0050, text=»* OTHER «, t00=0x0009, t01=0x0050}
0x0e68…0e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0062}
0x0e72…0e92 Head {h00=0x001c, h01=0x0050, text=»MINBLK EQU 6 BLOCK SIZE «, t00=0x0009, t01=0x006c}
0x0e92…0ed6 Head {h00=0x0040, h01=0x0050, text=»FASTNR EQU 6 LEAST NUMBER OF CHARS TO SEND WITH FAST OUTPUT «, t00=0x0009, t01=0x008c}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d0}
0x0ee0…0f24 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0009, t01=0x00da}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f2e…0f48 Head {h00=0x0016, h01=0x0050, text=»* ADDRESS BLOCK «, t00=0x0009, t01=0x0128}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0142}
0x0f52…0f96 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0009, t01=0x014c}
0x0f96…0fb8 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0009, t01=0x0190}
0x0fb8…0fd4 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x000a, t01=0x0022}
0x0fd4…0fe6 Head {h00=0x000e, h01=0x0050, text=»DYAD EQU *«, t00=0x000a, t01=0x003e}
0x0fe6…1012 Head {h00=0x0028, h01=0x0050, text=» DATA ACDY DRIVER ACTIVATION ADDRESS«, t00=0x000a, t01=0x0050}
0x1012…1032 Head {h00=0x001c, h01=0x0050, text=» DATA ABDY ABORT ROUTINE«, t00=0x000a, t01=0x007c}
0x1032…1056 Head {h00=0x0020, h01=0x0050, text=» DATA 0 NO INTERRUPT HANDLER«, t00=0x000a, t01=0x009c}
0x1056…107a Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x000a, t01=0x00c0}
0x107a…109c Head {h00=0x001e, h01=0x0050, text=» DATA ECHODY ECHO ROUTINE «, t00=0x000a, t01=0x00e4}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x10a6…10ea Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000a, t01=0x0110}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0154}
0x10f4…1114 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x000a, t01=0x015e}
0x1114…111e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017e}
0x111e…1162 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000a, t01=0x0188}
0x1162…116c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x116c…11a4 Head {h00=0x0034, h01=0x0050, text=»* IF THE CONSTANT X:A IS SET TO 1, FAST OUTPUT«, t00=0x000b, t01=0x0046}
0x11a4…11e4 Head {h00=0x003c, h01=0x0050, text=»* WILL BE USED IF A NUMBER (SEE THE CONSTANT "FASTNR")«, t00=0x000b, t01=0x007e}
0x11e4…1220 Head {h00=0x0038, h01=0x0050, text=»* OF CONSECUTIVE CHARACTERS IN THE ECB-BUFFER ARE «, t00=0x000b, t01=0x00be}
0x1220…1238 Head {h00=0x0014, h01=0x0050, text=»* FOUND EQUAL.«, t00=0x000b, t01=0x00fa}
0x1238…1242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0112}
0x1242…1254 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000b, t01=0x011c}
0x1254…126a Head {h00=0x0012, h01=0x0050, text=»FASTO EQU X:A «, t00=0x000b, t01=0x012e}
0x126a…1274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0144}
0x1274…127e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014e}
0x127e…12ca Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344«, t00=0x000b, t01=0x0158}
0x12ca…12ea Head {h00=0x001c, h01=0x0050, text=»* 6346, 6385 AND 6386.«, t00=0x000c, t01=0x0014}
0x12ea…12f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0034}
0x12f4…1306 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x003e}
0x1306…131c Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000c, t01=0x0050}
0x131c…1326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0066}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1330…136c Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000c, t01=0x007a}
0x136c…1396 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000c, t01=0x00b6}
0x1396…13a8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000c, t01=0x00e0}
0x13a8…13be Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000c, t01=0x00f2}
0x13be…13c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0108}
0x13c8…13d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d2…140e Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000c, t01=0x011c}
0x140e…144a Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000c, t01=0x0158}
0x144a…1486 (13, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000d, t01=0x0004}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0040}
0x1490…14a2 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000d, t01=0x004a}
0x14a2…14b8 Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000d, t01=0x005c}
0x14b8…14c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0072}
0x14c2…14f6 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000d, t01=0x007c}
0x14f6…153a Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000d, t01=0x00b0}
0x153a…1544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1544…1556 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x00fe}
0x1556…156c Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:E«, t00=0x000d, t01=0x0110}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x1576…15ac Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000d, t01=0x0130}
0x15ac…15cc Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING.«, t00=0x000d, t01=0x0166}
0x15cc…15d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0186}
0x15d6…15e8 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000d, t01=0x0190}
0x15e8…15fe Head {h00=0x0012, h01=0x0050, text=»STEADY EQU X:F«, t00=0x000e, t01=0x0012}
0x15fe…1608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x1608…1640 Head {h00=0x0034, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- «, t00=0x000e, t01=0x0032}
0x1640…1672 Head {h00=0x002e, h01=0x0050, text=»* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT «, t00=0x000e, t01=0x006a}
0x1672…16a2 Head {h00=0x002c, h01=0x0050, text=»* CHARACTER SETS, IF PTS 6385 IS USED.«, t00=0x000e, t01=0x009c}
0x16a2…16ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ac…16c2 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x000e, t01=0x00d6}
0x16c2…16d6 Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x000e, t01=0x00ec}
0x16d6…16ea Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x000e, t01=0x0100}
0x16ea…16fe Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x000e, t01=0x0114}
0x16fe…170c Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x000e, t01=0x0128}
0x170c…171c Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x000e, t01=0x0136}
0x171c…172c Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x000e, t01=0x0146}
0x172c…173c Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x000e, t01=0x0156}
0x173c…174a Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x000e, t01=0x0166}
0x174a…1758 Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x000e, t01=0x0174}
0x1758…1766 Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x000e, t01=0x0182}
0x1766…1778 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000e, t01=0x0190}
0x1778…1790 Head {h00=0x0014, h01=0x0050, text=»COUNTRY EQU X:G «, t00=0x000f, t01=0x0012}
0x1790…179a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x179a…17c4 Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x000f, t01=0x0034}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17ce…17e0 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 82«, t00=0x000f, t01=0x0068}
0x17e0…17f6 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x000f, t01=0x007a}
0x17f6…1800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x1800…181e Head {h00=0x001a, h01=0x0050, text=»* MAXIMUM BLOCK SIZE«, t00=0x000f, t01=0x009a}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x1828…183c Head {h00=0x0010, h01=0x0050, text=»X:J EQU 140 «, t00=0x000f, t01=0x00c2}
0x183c…1852 Head {h00=0x0012, h01=0x0050, text=»MAXBLK EQU X:J«, t00=0x000f, t01=0x00d6}
0x1852…185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x185c…18ac Head {h00=0x004c, h01=0x0050, text=»* X:I SHOULD BE SET TO 1 IF A PTS 6385 OR 86 IS INCLUDED IN SYSTEM =4 «, t00=0x000f, t01=0x00f6}
0x18ac…18b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0146}
0x18b6…18c8 Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000f, t01=0x0150}
0x18c8…18de Head {h00=0x0012, h01=0x0050, text=»PLASM EQU X:I «, t00=0x000f, t01=0x0162}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0178}
0x18e8…191e Head {h00=0x0032, h01=0x0050, text=»* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4«, t00=0x000f, t01=0x0182}
0x191e…193c Head {h00=0x001a, h01=0x0050, text=»* CHARACTER SET =4 «, t00=0x0010, t01=0x0028}
0x193c…1946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x1946…195c Head {h00=0x0012, h01=0x0050, text=»X:K EQU 0 =4 «, t00=0x0010, t01=0x0050}
0x195c…1976 Head {h00=0x0016, h01=0x0050, text=»GREECE EQU X:K =4«, t00=0x0010, t01=0x0066}
0x1976…1980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1980…198e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x008a}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x1998…19d6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0010, t01=0x00a2}
0x19d6…19e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e0}
0x19e0…1a0a Head {h00=0x0026, h01=0x0050, text=»* A C T I V A T I O N P A R T «, t00=0x0010, t01=0x00ea}
0x1a0a…1a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x1a14…1a4c Head {h00=0x0034, h01=0x0050, text=»* THIS PART MAKES A START OF BLOCK, CHECKS THE«, t00=0x0010, t01=0x011e}
0x1a4c…1a88 Head {h00=0x0038, h01=0x0050, text=»* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE «, t00=0x0010, t01=0x0156}
0x1a88…1aa8 (17, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* PART OF THE DRIVER. «, t00=0x0011, t01=0x0004}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1ab2…1af2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x002e}
0x1af2…1afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006e}
0x1afc…1b0e Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0011, t01=0x0078}
0x1b0e…1b32 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0011, t01=0x008a}
0x1b32…1b66 Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER«, t00=0x0011, t01=0x00ae}
0x1b66…1b8e Head {h00=0x0024, h01=0x0050, text=» LDKL A2,MAXBLK MAX. BLOCK SIZE «, t00=0x0011, t01=0x00e2}
0x1b8e…1bb2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0011, t01=0x010a}
0x1bb2…1bc8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER10«, t00=0x0011, t01=0x012e}
0x1bc8…1bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0144}
0x1bd2…1be8 Head {h00=0x0012, h01=0x0050, text=»* TEST ORDER«, t00=0x0011, t01=0x014e}
0x1be8…1bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0164}
0x1bf2…1c0e Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 GET ORDER«, t00=0x0011, t01=0x016e}
0x1c0e…1c38 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DY100 ORDER 00, TEST STATUS«, t00=0x0011, t01=0x018a}
0x1c38…1c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0024}
0x1c42…1c54 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/5«, t00=0x0012, t01=0x002e}
0x1c54…1c7e Head {h00=0x0026, h01=0x0050, text=» RF(Z) DY200 ORDER 05, BASIC WRITE«, t00=0x0012, t01=0x0040}
0x1c7e…1c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006a}
0x1c88…1c9a Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0012, t01=0x0074}
0x1c9a…1cc6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DY300 ORDER 06,STANDARD WRITE«, t00=0x0012, t01=0x0086}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b2}
0x1cd0…1ce2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/5«, t00=0x0012, t01=0x00bc}
0x1ce2…1d16 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE«, t00=0x0012, t01=0x00ce}
0x1d16…1d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0102}
0x1d20…1d34 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/26 «, t00=0x0012, t01=0x010c}
0x1d34…1d5a Head {h00=0x0022, h01=0x0050, text=» ABL(Z) DY700 ORDER 31, ERASE «, t00=0x0012, t01=0x0120}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d64…1d82 Head {h00=0x001a, h01=0x0050, text=»* I/O-REQUEST ERROR «, t00=0x0012, t01=0x0150}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d8c…1da0 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0012, t01=0x0178}
0x1da0…1dc2 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0012, t01=0x018c}
0x1dc2…1df2 Head {h00=0x002c, h01=0x0050, text=» ABL LENDER SET RETURN CODE AND END I/O «, t00=0x0013, t01=0x001e}
0x1df2…1e00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x004e}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0a…1e4e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0013, t01=0x0066}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00aa}
0x1e58…1e7a Head {h00=0x001e, h01=0x0050, text=»* ORDER 00, TEST STATUS.«, t00=0x0013, t01=0x00b4}
0x1e7a…1eb6 Head {h00=0x0038, h01=0x0050, text=»* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY«, t00=0x0013, t01=0x00d6}
0x1eb6…1ef4 Head {h00=0x003a, h01=0x0050, text=»* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY «, t00=0x0013, t01=0x0112}
0x1ef4…1f10 Head {h00=0x0018, h01=0x0050, text=»* IS NOT OPERABLE.«, t00=0x0013, t01=0x0150}
0x1f10…1f4e Head {h00=0x003a, h01=0x0050, text=»* THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF«, t00=0x0013, t01=0x016c}
0x1f4e…1f8a Head {h00=0x0038, h01=0x0050, text=»* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN«, t00=0x0014, t01=0x001a}
0x1f8a…1fa0 Head {h00=0x0012, h01=0x0050, text=»* THE RIGHT.«, t00=0x0014, t01=0x0056}
0x1fa0…1faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1faa…1fee Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0076}
0x1fee…1ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ba}
0x1ff8…200c Head {h00=0x0010, h01=0x0050, text=»DY100 EQU * «, t00=0x0014, t01=0x00c4}
0x200c…2022 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUMMY «, t00=0x0014, t01=0x00d8}
0x2022…2042 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0014, t01=0x00ee}
0x2042…2058 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER10«, t00=0x0014, t01=0x010e}
0x2058…2062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2062…2094 Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION«, t00=0x0014, t01=0x012e}
0x2094…20c8 Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB «, t00=0x0014, t01=0x0160}
0x20c8…20d2 (21, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0004}
0x20d2…20e4 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0015, t01=0x000e}
0x20e4…20f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0020}
0x20f2…20fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002e}
0x20fc…2140 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x0038}
0x2140…214a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007c}
0x214a…216c Head {h00=0x001e, h01=0x0050, text=»* ORDER 05, BASIC WRITE.«, t00=0x0015, t01=0x0086}
0x216c…21a0 Head {h00=0x0030, h01=0x0050, text=»* THIS ORDER SENDS THE REQUESTED NUMBER OF«, t00=0x0015, t01=0x00a8}
0x21a0…21d2 Head {h00=0x002e, h01=0x0050, text=»* CHARACTERS TO THE DISPLAY AND SETS THE«, t00=0x0015, t01=0x00dc}
0x21d2…2206 Head {h00=0x0030, h01=0x0050, text=»* INTERNAL CURSOR POSITION COUNTER TO HOME«, t00=0x0015, t01=0x010e}
0x2206…2224 Head {h00=0x001a, h01=0x0050, text=»* POSITION. (/0101) «, t00=0x0015, t01=0x0142}
0x2224…222e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x222e…2272 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x016a}
0x2272…227c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001e}
0x227c…2290 Head {h00=0x0010, h01=0x0050, text=»DY200 EQU * «, t00=0x0016, t01=0x0028}
0x2290…22a6 Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0016, t01=0x003c}
0x22a6…22d4 Head {h00=0x002a, h01=0x0050, text=» CF A15,TRASP SUPPRESS TRAILING SPACES«, t00=0x0016, t01=0x0052}
0x22d4…22e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0080}
0x22e0…22f4 Head {h00=0x0010, h01=0x0050, text=»DY205 EQU * «, t00=0x0016, t01=0x008c}
0x22f4…232a Head {h00=0x0032, h01=0x0050, text=» CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER«, t00=0x0016, t01=0x00a0}
0x232a…235e Head {h00=0x0030, h01=0x0050, text=» LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? «, t00=0x0016, t01=0x00d6}
0x235e…2376 Head {h00=0x0014, h01=0x0050, text=» RF(NP) DY210 NO«, t00=0x0016, t01=0x010a}
0x2376…2390 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0016, t01=0x0122}
0x2390…23aa Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x0016, t01=0x013c}
0x23aa…23b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0156}
0x23b6…23c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23c0…23ea Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT YES ! SEND CHARACTER«, t00=0x0016, t01=0x016c}
0x23ea…2400 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0017, t01=0x0008}
0x2400…240a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001e}
0x240a…2438 Head {h00=0x002a, h01=0x0050, text=» CF A15,POSUPD UPDATE POSITION COUNTER«, t00=0x0017, t01=0x0028}
0x2438…2442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x2442…247a Head {h00=0x0034, h01=0x0050, text=»* CHECK IF MAX. BLOCKSIZE IS REACHED. START A «, t00=0x0017, t01=0x0060}
0x247a…249a Head {h00=0x001c, h01=0x0050, text=»* NEW BLOCK IF IT IS. «, t00=0x0017, t01=0x0098}
0x249a…24a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b8}
0x24a4…24dc Head {h00=0x0034, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER«, t00=0x0017, t01=0x00c2}
0x24dc…2502 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x0017, t01=0x00fa}
0x2502…2530 Head {h00=0x002a, h01=0x0050, text=» CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ?«, t00=0x0017, t01=0x0120}
0x2530…253a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x253a…2562 Head {h00=0x0024, h01=0x0050, text=» RB(G) DY205 NO ! NEXT CHARACTER«, t00=0x0017, t01=0x0158}
0x2562…256c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0180}
0x256c…2592 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK YES ! END BLOCK «, t00=0x0017, t01=0x018a}
0x2592…25a8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0018, t01=0x0020}
0x25a8…25ce Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x0018, t01=0x0036}
0x25ce…25f4 Head {h00=0x0022, h01=0x0050, text=» CF A5,STABLK START NEW BLOCK «, t00=0x0018, t01=0x005c}
0x25f4…260a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0018, t01=0x0082}
0x260a…263e Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x0018, t01=0x0098}
0x263e…265e Head {h00=0x001c, h01=0x0050, text=» RB DY205 NEXT CHARACTER«, t00=0x0018, t01=0x00cc}
0x265e…2668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ec}
0x2668…267c Head {h00=0x0010, h01=0x0050, text=»DY210 EQU * «, t00=0x0018, t01=0x00f6}
0x267c…26aa Head {h00=0x002a, h01=0x0050, text=» CF A15,UPDAPP RESET POSITION COUNTER «, t00=0x0018, t01=0x010a}
0x26aa…26b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0138}
0x26b4…26e4 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,/0101 SET HEAD POSITION COUNTER«, t00=0x0018, t01=0x0142}
0x26e4…271c Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 TO HOME POSITION. (/0101)«, t00=0x0018, t01=0x0172}
0x271c…275a Head {h00=0x003a, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER«, t00=0x0019, t01=0x001a}
0x275a…2764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0058}
0x2764…2782 Head {h00=0x001a, h01=0x0050, text=» ABL DY493 END REQUEST«, t00=0x0019, t01=0x0062}
0x2782…278c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0080}
0x278c…27a0 Head {h00=0x0010, h01=0x0050, text=»DYER05 EQU *«, t00=0x0019, t01=0x008a}
0x27a0…27e6 Head {h00=0x0042, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE «, t00=0x0019, t01=0x009e}
0x27e6…2812 Head {h00=0x0028, h01=0x0050, text=» RF DYER10 ERROR ROUTINE IS ENTERED «, t00=0x0019, t01=0x00e4}
0x2812…2820 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0110}
0x2820…282a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011e}
0x282a…286e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0019, t01=0x0128}
0x286e…2878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016c}
0x2878…289e Head {h00=0x0022, h01=0x0050, text=»* ORDER 06, STANDARD WRITE. «, t00=0x0019, t01=0x0176}
0x289e…28dc Head {h00=0x003a, h01=0x0050, text=»* THIS PART CHECKS IF THE REQUESTED LENGTH IS ZERO. «, t00=0x001a, t01=0x000c}
0x28dc…291e Head {h00=0x003e, h01=0x0050, text=»* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND «, t00=0x001a, t01=0x004a}
0x291e…2944 Head {h00=0x0022, h01=0x0050, text=»* THE REQUEST IS COMPLETED. «, t00=0x001a, t01=0x008c}
0x2944…298e Head {h00=0x0046, h01=0x0050, text=»* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD«, t00=0x001a, t01=0x00b2}
0x298e…29d2 Head {h00=0x0040, h01=0x0050, text=»* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. «, t00=0x001a, t01=0x00fc}
0x29d2…2a12 Head {h00=0x003c, h01=0x0050, text=»* THEN IT CHECKS AND SENDS THE REST OF THE CHARACTERS «, t00=0x001a, t01=0x0140}
0x2a12…2a50 Head {h00=0x003a, h01=0x0050, text=»* IN THE ECB-BUFFER TO THE DISPLAY UNLESS A SPECIAL «, t00=0x001a, t01=0x0180}
0x2a50…2aa0 Head {h00=0x004c, h01=0x0050, text=»* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. «, t00=0x001b, t01=0x002e}
0x2aa0…2ae6 Head {h00=0x0042, h01=0x0050, text=»* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION «, t00=0x001b, t01=0x007e}
0x2ae6…2b20 Head {h00=0x0036, h01=0x0050, text=»* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. «, t00=0x001b, t01=0x00c4}
0x2b20…2b60 Head {h00=0x003c, h01=0x0050, text=»* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS«, t00=0x001b, t01=0x00fe}
0x2b60…2b8e Head {h00=0x002a, h01=0x0050, text=»* SAVED IN THE CONTROL WORD OF ECB. «, t00=0x001b, t01=0x013e}
0x2b8e…2b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016c}
0x2b98…2bdc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0176}
0x2bdc…2be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002a}
0x2be6…2bfa Head {h00=0x0010, h01=0x0050, text=»DY300 EQU * «, t00=0x001c, t01=0x0034}
0x2bfa…2c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0048}
0x2c04…2c26 Head {h00=0x001e, h01=0x0050, text=»* TEST REQUESTED LENGTH «, t00=0x001c, t01=0x0052}
0x2c26…2c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0074}
0x2c30…2c6a Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ?«, t00=0x001c, t01=0x007e}
0x2c6a…2c84 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY307 YES !«, t00=0x001c, t01=0x00b8}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d2}
0x2c8e…2cb0 Head {h00=0x001e, h01=0x0050, text=»* TEST CONTROL CHARACTER«, t00=0x001c, t01=0x00dc}
0x2cb0…2cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fe}
0x2cba…2cce Head {h00=0x0010, h01=0x0050, text=»DY305 EQU * «, t00=0x001c, t01=0x0108}
0x2cce…2cf8 Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x011c}
0x2cf8…2d22 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x0146}
0x2d22…2d36 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x0170}
0x2d36…2d5e Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 INCREMENT BUFFER INDEX«, t00=0x001c, t01=0x0184}
0x2d5e…2d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x001c}
0x2d68…2d7c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2B «, t00=0x001d, t01=0x0026}
0x2d7c…2da4 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DY335 NO MOVING OF CURSOR«, t00=0x001d, t01=0x003a}
0x2da4…2db8 Head {h00=0x0010, h01=0x0050, text=»DY307 EQU * «, t00=0x001d, t01=0x0062}
0x2db8…2dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dc2…2df6 Head {h00=0x0030, h01=0x0050, text=» LDK A4,1 FIRST POSITION AND ONE LINE FEED. «, t00=0x001d, t01=0x0080}
0x2df6…2e32 Head {h00=0x0038, h01=0x0050, text=» SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER«, t00=0x001d, t01=0x00b4}
0x2e32…2e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f0}
0x2e3c…2e5e Head {h00=0x001e, h01=0x0050, text=» SUK A2,/5 TWO LINE FEED ?«, t00=0x001d, t01=0x00fa}
0x2e5e…2e78 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DY310 NO !«, t00=0x001d, t01=0x011c}
0x2e78…2ea6 Head {h00=0x002a, h01=0x0050, text=» LDK A4,2 YES ! INDICATE TWO LINE FEED«, t00=0x001d, t01=0x0136}
0x2ea6…2eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eb0…2ec4 Head {h00=0x0010, h01=0x0050, text=»DY310 EQU * «, t00=0x001d, t01=0x016e}
0x2ec4…2ede Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 ERASE ? «, t00=0x001d, t01=0x0182}
0x2ede…2f16 Head {h00=0x0034, h01=0x0050, text=» RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE«, t00=0x001e, t01=0x000c}
0x2f16…2f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0044}
0x2f20…2f42 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x001e, t01=0x004e}
0x2f42…2f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0070}
0x2f4c…2f60 Head {h00=0x0010, h01=0x0050, text=»DY320 EQU * «, t00=0x001e, t01=0x007a}
0x2f60…2f7a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x008e}
0x2f7a…2f96 Head {h00=0x0018, h01=0x0050, text=»DYER10 RF(NZ) DYER15«, t00=0x001e, t01=0x00a8}
0x2f96…2fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2fa0…2fba Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x001e, t01=0x00ce}
0x2fba…2fee Head {h00=0x0030, h01=0x0050, text=» RF(N) DY335 YES ! START WRITING ON DISPLAY «, t00=0x001e, t01=0x00e8}
0x2fee…2ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011c}
0x2ff8…3038 Head {h00=0x003c, h01=0x0050, text=» LC A1,DWTLIN+DWTDEV,A6 MAX. NUMBER OF LINES ON DISPLAY «, t00=0x001e, t01=0x0126}
0x3038…306e Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTAP+DWTDEV,A6 ALREADY ON LAST LINE ? «, t00=0x001e, t01=0x0166}
0x306e…308a Head {h00=0x0018, h01=0x0050, text=» RF(NG) DY325 YES ! «, t00=0x001f, t01=0x000c}
0x308a…3094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3094…30c6 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/100 NO ! INCREMENT LINE COUNTER «, t00=0x001f, t01=0x0032}
0x30c6…30e6 Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTAP+DWTDEV,A6 «, t00=0x001f, t01=0x0064}
0x30e6…30fa Head {h00=0x0010, h01=0x0050, text=»DY325 EQU * «, t00=0x001f, t01=0x0084}
0x30fa…3120 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LF LINE FEED CHARACTER«, t00=0x001f, t01=0x0098}
0x3120…3146 Head {h00=0x0022, h01=0x0050, text=» RB DY320 SEND NEXT LINE FEED «, t00=0x001f, t01=0x00be}
0x3146…3150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e4}
0x3150…3164 Head {h00=0x0010, h01=0x0050, text=»DY330 EQU * «, t00=0x001f, t01=0x00ee}
0x3164…3196 Head {h00=0x002e, h01=0x0050, text=» SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER «, t00=0x001f, t01=0x0102}
0x3196…31c2 Head {h00=0x0028, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND CURSOR HOME«, t00=0x001f, t01=0x0134}
0x31c2…31f8 Head {h00=0x0032, h01=0x0050, text=» LDK A4,0 INDICATE ONLY ONE CHARACTER TO SEND «, t00=0x001f, t01=0x0160}
0x31f8…320e Head {h00=0x0012, h01=0x0050, text=» RB DY320 SEND«, t00=0x0020, t01=0x0008}
0x320e…321c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x001e}
0x321c…3226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002c}
0x3226…3230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0036}
0x3230…326c Head {h00=0x0038, h01=0x0050, text=»* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). «, t00=0x0020, t01=0x0040}
0x326c…3276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007c}
0x3276…3280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0086}
0x3280…3294 Head {h00=0x0010, h01=0x0050, text=»DY335 EQU * «, t00=0x0020, t01=0x0090}
0x3294…32aa Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x00a4}
0x32aa…32d8 Head {h00=0x002a, h01=0x0050, text=» CF A15,TRASP SUPPRESS TRAILING SPACES«, t00=0x0020, t01=0x00ba}
0x32d8…32e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00e8}
0x32e4…32f8 Head {h00=0x0010, h01=0x0050, text=»DY340 EQU * «, t00=0x0020, t01=0x00f4}
0x32f8…332c Head {h00=0x0030, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0020, t01=0x0108}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013c}
0x3336…335a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x0020, t01=0x0146}
0x335a…3376 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) DY405 YES !«, t00=0x0020, t01=0x016a}
0x3376…3390 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0020, t01=0x0186}
0x3390…33aa Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x0021, t01=0x0010}
0x33aa…33b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x002a}
0x33b6…33c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0036}
0x33c0…33e4 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 CHECK CODE LIMITS«, t00=0x0021, t01=0x0040}
0x33e4…33f8 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x0021, t01=0x0064}
0x33f8…3426 Head {h00=0x002a, h01=0x0050, text=» RF(N) DY380 TEST IF SPECIAL CHARACTER«, t00=0x0021, t01=0x0078}
0x3426…343a Head {h00=0x0010, h01=0x0050, text=» SUK A4,/5F «, t00=0x0021, t01=0x00a6}
0x343a…3468 Head {h00=0x002a, h01=0x0050, text=» RF(P) DY380 TEST IF SPECIAL CHARACTER«, t00=0x0021, t01=0x00ba}
0x3468…347c Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0021, t01=0x00e8}
0x347c…3492 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0021, t01=0x00fc}
0x3492…34cc Head {h00=0x0036, h01=0x0050, text=» LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPUT SEQ.«, t00=0x0021, t01=0x0112}
0x34cc…34fa Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? «, t00=0x0021, t01=0x014c}
0x34fa…3510 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x0021, t01=0x017a}
0x3510…352c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FAST80 NO ! «, t00=0x0021, t01=0x0190}
0x352c…3538 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x001c}
0x3538…354c Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0022, t01=0x0028}
0x354c…3556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x3556…3560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0046}
0x3560…3596 Head {h00=0x0032, h01=0x0050, text=»* FAST OUTPUT SHOULD BE USED IF A NUMBER OF «, t00=0x0022, t01=0x0050}
0x3596…35be Head {h00=0x0024, h01=0x0050, text=»* CHARACTERS ARE FOUND EQUAL. «, t00=0x0022, t01=0x0086}
0x35be…35c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ae}
0x35c8…35d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b8}
0x35d2…35fc Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0022, t01=0x00c2}
0x35fc…3620 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 ADD BUFFER INDEX «, t00=0x0022, t01=0x00ec}
0x3620…362a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0110}
0x362a…3634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011a}
0x3634…366c Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET POSITION ON THE LINE «, t00=0x0022, t01=0x0124}
0x366c…368a Head {h00=0x001a, h01=0x0050, text=» AD A4,DWTAP+DWTDEV,A6«, t00=0x0022, t01=0x015c}
0x368a…369e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0022, t01=0x017a}
0x369e…36a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x018e}
0x36a8…36bc Head {h00=0x0010, h01=0x0050, text=»FAST10 EQU *«, t00=0x0023, t01=0x0008}
0x36bc…36ea Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER COUNTER «, t00=0x0023, t01=0x001c}
0x36ea…3724 Head {h00=0x0036, h01=0x0050, text=» CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ?«, t00=0x0023, t01=0x004a}
0x3724…3740 Head {h00=0x0018, h01=0x0050, text=» RF(NE) FAST40 NO ! «, t00=0x0023, t01=0x0084}
0x3740…374a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a0}
0x374a…377a Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ?«, t00=0x0023, t01=0x00aa}
0x377a…3796 Head {h00=0x0018, h01=0x0050, text=» RF(NL) FAST40 YES !«, t00=0x0023, t01=0x00da}
0x3796…37a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x37a0…37ca Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 REQUESTED LENGTH ?«, t00=0x0023, t01=0x0100}
0x37ca…37e6 Head {h00=0x0018, h01=0x0050, text=» RF(NL) FAST40 YES !«, t00=0x0023, t01=0x012a}
0x37e6…37f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0146}
0x37f0…3814 Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 INCREMENT COUNTERS«, t00=0x0023, t01=0x0150}
0x3814…3826 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0174}
0x3826…384e Head {h00=0x0024, h01=0x0050, text=» RB FAST10 CHECK NEXT CHARACTER «, t00=0x0023, t01=0x0186}
0x384e…3858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001e}
0x3858…386c Head {h00=0x0010, h01=0x0050, text=»FAST40 EQU *«, t00=0x0024, t01=0x0028}
0x386c…38aa Head {h00=0x003a, h01=0x0050, text=» LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS «, t00=0x0024, t01=0x003c}
0x38aa…38c8 Head {h00=0x001a, h01=0x0050, text=» AD A1,DWTBC+DWTDEV,A6«, t00=0x0024, t01=0x007a}
0x38c8…38dc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0024, t01=0x0098}
0x38dc…38ee Head {h00=0x000e, h01=0x0050, text=» SUR A4,A1«, t00=0x0024, t01=0x00ac}
0x38ee…38f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00be}
0x38f8…3932 Head {h00=0x0036, h01=0x0050, text=» CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? «, t00=0x0024, t01=0x00c8}
0x3932…394c Head {h00=0x0016, h01=0x0050, text=» RF(L) FAST80 NO !«, t00=0x0024, t01=0x0102}
0x394c…3956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011c}
0x3956…3988 Head {h00=0x002e, h01=0x0050, text=»* YES ! SEND CHARACTERS WITH FAST OUTPUT«, t00=0x0024, t01=0x0126}
0x3988…3992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0158}
0x3992…39ca Head {h00=0x0034, h01=0x0050, text=» ADS A4,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER «, t00=0x0024, t01=0x0162}
0x39ca…39d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000a}
0x39d4…39fa Head {h00=0x0022, h01=0x0050, text=» SLC A3,8 SAVE BUFFER POINTER «, t00=0x0025, t01=0x0014}
0x39fa…3a0c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0025, t01=0x003a}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004c}
0x3a16…3a2c Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0025, t01=0x0056}
0x3a2c…3a3e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0025, t01=0x006c}
0x3a3e…3a52 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/5F «, t00=0x0025, t01=0x007e}
0x3a52…3a68 Head {h00=0x0012, h01=0x0050, text=» RF(NP) FAST30«, t00=0x0025, t01=0x0092}
0x3a68…3a7c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0025, t01=0x00a8}
0x3a7c…3a90 Head {h00=0x0010, h01=0x0050, text=»FAST30 EQU *«, t00=0x0025, t01=0x00bc}
0x3a90…3a9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00d0}
0x3a9c…3ab0 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0025, t01=0x00dc}
0x3ab0…3ad8 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 PUT CHARACTER INTO A3«, t00=0x0025, t01=0x00f0}
0x3ad8…3ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0118}
0x3ae2…3af8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x0122}
0x3af8…3b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0138}
0x3b02…3b2c Head {h00=0x0026, h01=0x0050, text=» LDR A3,A4 RESTORE BUFFER POINTER «, t00=0x0025, t01=0x0142}
0x3b2c…3b3e Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0025, t01=0x016c}
0x3b3e…3b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b48…3b7a Head {h00=0x002e, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET CURSOR POSITION«, t00=0x0025, t01=0x0188}
0x3b7a…3b8e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0026, t01=0x002a}
0x3b8e…3bac Head {h00=0x001a, h01=0x0050, text=» AD A4,DWTAP+DWTDEV,A6«, t00=0x0026, t01=0x003e}
0x3bac…3bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005c}
0x3bb6…3bd6 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0026, t01=0x0066}
0x3bd6…3bf6 Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x0026, t01=0x0086}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=»FAST80 EQU *«, t00=0x0026, t01=0x00a6}
0x3c0a…3c16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00ba}
0x3c16…3c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c6}
0x3c20…3c4a Head {h00=0x0026, h01=0x0050, text=» IFT LOWCHA=0 LOWER CASE NOT USED «, t00=0x0026, t01=0x00d0}
0x3c4a…3c5c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0026, t01=0x00fa}
0x3c5c…3c70 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x0026, t01=0x010c}
0x3c70…3c86 Head {h00=0x0012, h01=0x0050, text=» RF(NP) DY360 «, t00=0x0026, t01=0x0120}
0x3c86…3c9a Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0026, t01=0x0136}
0x3c9a…3cae Head {h00=0x0010, h01=0x0050, text=»DY360 EQU * «, t00=0x0026, t01=0x014a}
0x3cae…3cba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x015e}
0x3cba…3cce Head {h00=0x0010, h01=0x0050, text=»DY370 EQU * «, t00=0x0026, t01=0x016a}
0x3cce…3cf2 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0026, t01=0x017e}
0x3cf2…3d10 Head {h00=0x001a, h01=0x0050, text=»DYER15 ABL(NZ) DYER20 «, t00=0x0027, t01=0x0012}
0x3d10…3d3e Head {h00=0x002a, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATE«, t00=0x0027, t01=0x0030}
0x3d3e…3d52 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0027, t01=0x005e}
0x3d52…3d68 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0027, t01=0x0072}
0x3d68…3d96 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? «, t00=0x0027, t01=0x0088}
0x3d96…3dac Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x0027, t01=0x00b6}
0x3dac…3dc8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FAST90 NO ! «, t00=0x0027, t01=0x00cc}
0x3dc8…3dd4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00e8}
0x3dd4…3de8 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0027, t01=0x00f4}
0x3de8…3e16 Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DECREMENT CHARACTER COUNTER «, t00=0x0027, t01=0x0108}
0x3e16…3e4c Head {h00=0x0032, h01=0x0050, text=» RB(NP) DY340 ALL CHECKED CHARS. SENT ! NEXT !«, t00=0x0027, t01=0x0136}
0x3e4c…3e80 Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBBA,A8 GET CHARACTER TO SEND AGAIN «, t00=0x0027, t01=0x016c}
0x3e80…3e92 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0028, t01=0x0010}
0x3e92…3ea6 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A2«, t00=0x0028, t01=0x0022}
0x3ea6…3ec8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/7F MASK CHARACTER«, t00=0x0028, t01=0x0036}
0x3ec8…3eda Head {h00=0x000e, h01=0x0050, text=» RB FAST80«, t00=0x0028, t01=0x0058}
0x3eda…3eee Head {h00=0x0010, h01=0x0050, text=»FAST90 EQU *«, t00=0x0028, t01=0x006a}
0x3eee…3efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x007e}
0x3efa…3f1a Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x0028, t01=0x008a}
0x3f1a…3f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00aa}
0x3f24…3f4a Head {h00=0x0022, h01=0x0050, text=»* TEST IF SPECIAL CHARACTER «, t00=0x0028, t01=0x00b4}
0x3f4a…3f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00da}
0x3f54…3f68 Head {h00=0x0010, h01=0x0050, text=»DY380 EQU * «, t00=0x0028, t01=0x00e4}
0x3f68…3f82 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 RESET A4«, t00=0x0028, t01=0x00f8}
0x3f82…3f9e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 CHARACTER«, t00=0x0028, t01=0x0112}
0x3f9e…3fa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x012e}
0x3fa8…3fca Head {h00=0x001e, h01=0x0050, text=» SUK A1,/07 BELL ( /07 ) ?«, t00=0x0028, t01=0x0138}
0x3fca…3fea Head {h00=0x001c, h01=0x0050, text=» RF(Z) DY467 YES ! SEND «, t00=0x0028, t01=0x015a}
0x3fea…3ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017a}
0x3ff4…401c Head {h00=0x0024, h01=0x0050, text=» SUK A1,/A TABULATION ( /11 ) ? «, t00=0x0028, t01=0x0184}
0x401c…4052 Head {h00=0x0032, h01=0x0050, text=» ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE «, t00=0x0029, t01=0x001c}
0x4052…405c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0052}
0x405c…4084 Head {h00=0x0024, h01=0x0050, text=» SUK A1,/3 FAST OUTPUT ( /14 ) ?«, t00=0x0029, t01=0x005c}
0x4084…40b2 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DY390 YES ! GO TO THAT ROUTINE «, t00=0x0029, t01=0x0084}
0x40b2…40bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b2}
0x40bc…40e0 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/9A POINT ( /AE ) ? «, t00=0x0029, t01=0x00bc}
0x40e0…4108 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DY410 YES ! LOAD AND SEND«, t00=0x0029, t01=0x00e0}
0x4108…4128 Head {h00=0x001c, h01=0x0050, text=» IFF WHATDY+PLASM=0 =4 «, t00=0x0029, t01=0x0108}
0x4128…4148 Head {h00=0x001c, h01=0x0050, text=»* IF PTS 6344 IS USED «, t00=0x0029, t01=0x0128}
0x4148…417a Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV,A6 CHECK IF PTS 6344 IS USED«, t00=0x0029, t01=0x0148}
0x417a…4190 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/3000«, t00=0x0029, t01=0x017a}
0x4190…41aa Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DY385 NO !«, t00=0x0029, t01=0x0190}
0x41aa…41b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x001a}
0x41b6…41c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0026}
0x41c0…41ee Head {h00=0x002a, h01=0x0050, text=» ADK A1,/9C UNDERLINE START ( /12 ) ? «, t00=0x002a, t01=0x0030}
0x41ee…4208 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x005e}
0x4208…4212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0078}
0x4212…423e Head {h00=0x0028, h01=0x0050, text=» SUK A1,/1 UNDERLINE STOP ( /13 ) ? «, t00=0x002a, t01=0x0082}
0x423e…4258 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x00ae}
0x4258…4262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c8}
0x4262…4292 Head {h00=0x002c, h01=0x0050, text=» SUK A1,/B LOW INTENSITY START ( /1E) ? «, t00=0x002a, t01=0x00d2}
0x4292…42ac Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x0102}
0x42ac…42b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011c}
0x42b6…42e6 Head {h00=0x002c, h01=0x0050, text=» SUK A1,/1 LOW INTENSITY STOP ( /1F ) ? «, t00=0x002a, t01=0x0126}
0x42e6…4300 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x0156}
0x4300…430a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0170}
0x430a…4328 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL CHARACTER «, t00=0x002a, t01=0x017a}
0x4328…4332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0008}
0x4332…4346 Head {h00=0x0010, h01=0x0050, text=»DY385 EQU * «, t00=0x002b, t01=0x0012}
0x4346…436c Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x002b, t01=0x0026}
0x436c…439c Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 SET RETURN CODE OF ECB «, t00=0x002b, t01=0x004c}
0x439c…43bc Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x002b, t01=0x007c}
0x43bc…43ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x009c}
0x43ca…43d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00aa}
0x43d4…43f8 Head {h00=0x0020, h01=0x0050, text=»* ROUTINE FOR FAST OUTPUT «, t00=0x002b, t01=0x00b4}
0x43f8…4402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d8}
0x4402…4416 Head {h00=0x0010, h01=0x0050, text=»DY390 EQU * «, t00=0x002b, t01=0x00e2}
0x4416…442c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x002b, t01=0x00f6}
0x442c…445a Head {h00=0x002a, h01=0x0050, text=» LD A4,ECBCW,A8 RESTORE OLD REQ. LEN. «, t00=0x002b, t01=0x010c}
0x445a…4472 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBRL,A8 «, t00=0x002b, t01=0x013a}
0x4472…447e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0152}
0x447e…44aa Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x002b, t01=0x015e}
0x44aa…44b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018a}
0x44b4…44dc (44, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBRL,A8 REQUESTED LENGTH«, t00=0x002c, t01=0x0004}
0x44dc…4510 Head {h00=0x0030, h01=0x0050, text=» SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND «, t00=0x002c, t01=0x002c}
0x4510…452c Head {h00=0x0018, h01=0x0050, text=» RF(NP) DY400 NONE !«, t00=0x002c, t01=0x0060}
0x452c…4546 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x002c, t01=0x007c}
0x4546…4560 Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x002c, t01=0x0096}
0x4560…456c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00b0}
0x456c…4576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x4576…459e Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 LOAD CHARACTER IN A3 «, t00=0x002c, t01=0x00c6}
0x459e…45a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ee}
0x45a8…45d4 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x002c, t01=0x00f8}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0124}
0x45de…45f2 Head {h00=0x0010, h01=0x0050, text=»DY400 EQU * «, t00=0x002c, t01=0x012e}
0x45f2…462c Head {h00=0x0036, h01=0x0050, text=» LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN«, t00=0x002c, t01=0x0142}
0x462c…4636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x017c}
0x4636…465e Head {h00=0x0024, h01=0x0050, text=»DY405 RF DY470 GO TO COMMON END «, t00=0x002c, t01=0x0186}
0x465e…4668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x4668…4680 Head {h00=0x0014, h01=0x0050, text=»* SEND A POINT«, t00=0x002d, t01=0x0028}
0x4680…468a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0040}
0x468a…469e Head {h00=0x0010, h01=0x0050, text=»DY410 EQU * «, t00=0x002d, t01=0x004a}
0x469e…46c4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/2E GET CODE FOR POINT«, t00=0x002d, t01=0x005e}
0x46c4…46e0 Head {h00=0x0018, h01=0x0050, text=» RB DY370 SEND POINT«, t00=0x002d, t01=0x0084}
0x46e0…46ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a0}
0x46ea…46fe Head {h00=0x0010, h01=0x0050, text=»DY467 EQU * «, t00=0x002d, t01=0x00aa}
0x46fe…472a Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SPECIAL CHARACTER«, t00=0x002d, t01=0x00be}
0x472a…474a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DYER20 NOT OK ! «, t00=0x002d, t01=0x00ea}
0x474a…476e Head {h00=0x0020, h01=0x0050, text=» ABL DY340 NEXT CHARACTER ! «, t00=0x002d, t01=0x010a}
0x476e…477c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x012e}
0x477c…47c0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002d, t01=0x013c}
0x47c0…47ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0180}
0x47ca…47e2 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x002d, t01=0x018a}
0x47e2…47ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0012}
0x47ec…4830 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x001c}
0x4830…4844 Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002e, t01=0x0060}
0x4844…4874 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002e, t01=0x0074}
0x4874…4886 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002e, t01=0x00a4}
0x4886…48b8 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002e, t01=0x00b6}
0x48b8…48ca Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002e, t01=0x00e8}
0x48ca…48dc Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002e, t01=0x00fa}
0x48dc…48f2 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002e, t01=0x010c}
0x48f2…4926 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002e, t01=0x0122}
0x4926…4938 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x0156}
0x4938…494e Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002e, t01=0x0168}
0x494e…4974 Head {h00=0x0022, h01=0x0050, text=»ADY144 LC A4,DWTAP+DWTDEV+1,A6«, t00=0x002e, t01=0x017e}
0x4974…49a6 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002f, t01=0x0014}
0x49a6…49c4 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6«, t00=0x002f, t01=0x0046}
0x49c4…49f4 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002f, t01=0x0064}
0x49f4…4a1e Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002f, t01=0x0094}
0x4a1e…4a44 Head {h00=0x0022, h01=0x0050, text=» ABL(NP) DY340 NEXT CHARACTER «, t00=0x002f, t01=0x00be}
0x4a44…4a56 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002f, t01=0x00e4}
0x4a56…4a80 Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002f, t01=0x00f6}
0x4a80…4a96 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002f, t01=0x0120}
0x4a96…4aac Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER20«, t00=0x002f, t01=0x0136}
0x4aac…4adc Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002f, t01=0x014c}
0x4adc…4af6 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002f, t01=0x017c}
0x4af6…4b10 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x0030, t01=0x0008}
0x4b10…4b32 Head {h00=0x001e, h01=0x0050, text=» ABL DY340 NEXT CHARACTER «, t00=0x0030, t01=0x0022}
0x4b32…4b40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0044}
0x4b40…4b86 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0052}
0x4b86…4b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0098}
0x4b90…4bd2 Head {h00=0x003e, h01=0x0050, text=»* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH«, t00=0x0030, t01=0x00a2}
0x4bd2…4c04 Head {h00=0x002e, h01=0x0050, text=»* HAS BEEN SET UP BY SPECIAL CHARACTERS.«, t00=0x0030, t01=0x00e4}
0x4c04…4c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0116}
0x4c0e…4c54 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x0120}
0x4c54…4c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0166}
0x4c5e…4c72 Head {h00=0x0010, h01=0x0050, text=»DY470 EQU * «, t00=0x0030, t01=0x0170}
0x4c72…4c98 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0030, t01=0x0184}
0x4c98…4cb2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0031, t01=0x001a}
0x4cb2…4cce Head {h00=0x0018, h01=0x0050, text=»DYER20 RF(NZ) DYER30«, t00=0x0031, t01=0x0034}
0x4cce…4cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0050}
0x4cd8…4d02 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0031, t01=0x005a}
0x4d02…4d1c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0031, t01=0x0084}
0x4d1c…4d32 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0031, t01=0x009e}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b4}
0x4d3c…4d70 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0031, t01=0x00be}
0x4d70…4d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f2}
0x4d7a…4d8e Head {h00=0x0010, h01=0x0050, text=»DY493 EQU * «, t00=0x0031, t01=0x00fc}
0x4d8e…4da4 Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0031, t01=0x0110}
0x4da4…4dbc Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0031, t01=0x0126}
0x4dbc…4df0 Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH«, t00=0x0031, t01=0x013e}
0x4df0…4dfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0172}
0x4dfc…4e2c Head {h00=0x002c, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB«, t00=0x0031, t01=0x017e}
0x4e2c…4e64 Head {h00=0x0034, h01=0x0050, text=» LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER«, t00=0x0032, t01=0x001e}
0x4e64…4e92 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW,A8 IN CONTROL WORD OF ECB«, t00=0x0032, t01=0x0056}
0x4e92…4ea6 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0032, t01=0x0084}
0x4ea6…4ec8 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0032, t01=0x0098}
0x4ec8…4ede Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0032, t01=0x00ba}
0x4ede…4efa Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS END I/O «, t00=0x0032, t01=0x00d0}
0x4efa…4f08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00ec}
0x4f08…4f4c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0032, t01=0x00fa}
0x4f4c…4f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f56…4f82 Head {h00=0x0028, h01=0x0050, text=»* ORDER 0B, SET CURSOR AND WRITE. «, t00=0x0032, t01=0x0148}
0x4f82…4fbe Head {h00=0x0038, h01=0x0050, text=»* THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN «, t00=0x0032, t01=0x0174}
0x4fbe…4ffa Head {h00=0x0038, h01=0x0050, text=»* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS«, t00=0x0033, t01=0x0020}
0x4ffa…5038 Head {h00=0x003a, h01=0x0050, text=»* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- «, t00=0x0033, t01=0x005c}
0x5038…5056 Head {h00=0x001a, h01=0x0050, text=»* TERS AS ORDER 06. «, t00=0x0033, t01=0x009a}
0x5056…5060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b8}
0x5060…50a4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x00c2}
0x50a4…50ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0106}
0x50ae…50c2 Head {h00=0x0010, h01=0x0050, text=»DY600 EQU * «, t00=0x0033, t01=0x0110}
0x50c2…50d8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0033, t01=0x0124}
0x50d8…510c Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? «, t00=0x0033, t01=0x013a}
0x510c…5122 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/1000«, t00=0x0033, t01=0x016e}
0x5122…513c Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY610 YES !«, t00=0x0033, t01=0x0184}
0x513c…5152 Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x0034, t01=0x000e}
0x5152…517c Head {h00=0x0026, h01=0x0050, text=» LC A4,ECBCW,A8 GET REQUESTED LINE«, t00=0x0034, t01=0x0024}
0x517c…51ac Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0034, t01=0x004e}
0x51ac…51c6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x0034, t01=0x007e}
0x51c6…5204 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE«, t00=0x0034, t01=0x0098}
0x5204…5218 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0034, t01=0x00d6}
0x5218…5246 Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE«, t00=0x0034, t01=0x00ea}
0x5246…525e Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0034, t01=0x0118}
0x525e…5290 Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0034, t01=0x0130}
0x5290…52b0 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0034, t01=0x0162}
0x52b0…52cc Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0034, t01=0x0182}
0x52cc…52fa Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0035, t01=0x000e}
0x52fa…531a Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0035, t01=0x003c}
0x531a…5330 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0035, t01=0x005c}
0x5330…5352 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0035, t01=0x0072}
0x5352…5378 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0035, t01=0x0094}
0x5378…538a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0035, t01=0x00ba}
0x538a…539c Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0035, t01=0x00cc}
0x539c…53bc Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0035, t01=0x00de}
0x53bc…53e6 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0035, t01=0x00fe}
0x53e6…5414 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTAP+DWTDEV,A6 RESET POSITION «, t00=0x0035, t01=0x0128}
0x5414…5426 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0035, t01=0x0156}
0x5426…5430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0168}
0x5430…543a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0172}
0x543a…5454 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0035, t01=0x017c}
0x5454…545e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0008}
0x545e…549c Head {h00=0x003a, h01=0x0050, text=»ADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER «, t00=0x0036, t01=0x0012}
0x549c…54cc Head {h00=0x002c, h01=0x0050, text=» LC A4,ECBCW+1,A8 GET REQUESTED POSITION«, t00=0x0036, t01=0x0050}
0x54cc…54fc Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0036, t01=0x0080}
0x54fc…5516 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0036, t01=0x00b0}
0x5516…5544 Head {h00=0x002a, h01=0x0050, text=» LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE «, t00=0x0036, t01=0x00ca}
0x5544…5558 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0036, t01=0x00f8}
0x5558…557a Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0036, t01=0x010c}
0x557a…5594 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0036, t01=0x012e}
0x5594…55b4 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0036, t01=0x0148}
0x55b4…55ce Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0036, t01=0x0168}
0x55ce…55f2 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0036, t01=0x0182}
0x55f2…5604 Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0037, t01=0x0016}
0x5604…5632 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0037, t01=0x0028}
0x5632…5644 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0037, t01=0x0056}
0x5644…567e Head {h00=0x0036, h01=0x0050, text=»ADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION«, t00=0x0037, t01=0x0068}
0x567e…56a6 Head {h00=0x0024, h01=0x0050, text=» CC A3,DWTPOS+DWTDEV,A6 MAX-POS?«, t00=0x0037, t01=0x00a2}
0x56a6…56c0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0037, t01=0x00ca}
0x56c0…56d2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x00e4}
0x56d2…5700 Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0037, t01=0x00f6}
0x5700…5724 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0037, t01=0x0124}
0x5724…573e Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0037, t01=0x0148}
0x573e…5762 Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0037, t01=0x0162}
0x5762…578c Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0037, t01=0x0186}
0x578c…57ac Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0038, t01=0x0020}
0x57ac…57c2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0038, t01=0x0040}
0x57c2…57d4 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0038, t01=0x0056}
0x57d4…5806 Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0038, t01=0x0068}
0x5806…5836 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0038, t01=0x009a}
0x5836…585a Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0038, t01=0x00ca}
0x585a…587c Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0038, t01=0x00ee}
0x587c…58a6 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0038, t01=0x0110}
0x58a6…58b8 Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0038, t01=0x013a}
0x58b8…58de Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0038, t01=0x014c}
0x58de…58f8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0038, t01=0x0172}
0x58f8…590e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0038, t01=0x018c}
0x590e…5930 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0039, t01=0x0012}
0x5930…5946 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0039, t01=0x0034}
0x5946…598a Head {h00=0x0040, h01=0x0050, text=»ADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER «, t00=0x0039, t01=0x004a}
0x598a…599c Head {h00=0x000e, h01=0x0050, text=» RF DY620 «, t00=0x0039, t01=0x008e}
0x599c…59b0 Head {h00=0x0010, h01=0x0050, text=»DY610 EQU * «, t00=0x0039, t01=0x00a0}
0x59b0…59bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00b4}
0x59bc…59f2 Head {h00=0x0032, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION «, t00=0x0039, t01=0x00c0}
0x59f2…5a2e Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION COUNTER «, t00=0x0039, t01=0x00f6}
0x5a2e…5a5a Head {h00=0x0028, h01=0x0050, text=» CF A5,CURPOS SET CURSOR ON DISPLAY «, t00=0x0039, t01=0x0132}
0x5a5a…5a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x015e}
0x5a64…5a78 Head {h00=0x0010, h01=0x0050, text=»DY620 EQU * «, t00=0x0039, t01=0x0168}
0x5a78…5a9c Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0039, t01=0x017c}
0x5a9c…5ad2 Head {h00=0x0032, h01=0x0050, text=» ABL DY335 SEND CHARACTERS WITH STANDARD WRITE«, t00=0x003a, t01=0x0010}
0x5ad2…5ae0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0046}
0x5ae0…5b24 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003a, t01=0x0054}
0x5b24…5b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0098}
0x5b2e…5b5c Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x003a, t01=0x00a2}
0x5b5c…5b9e Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x003a, t01=0x00d0}
0x5b9e…5ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0112}
0x5ba8…5bec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003a, t01=0x011c}
0x5bec…5c00 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x003a, t01=0x0160}
0x5c00…5c28 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SCADD SET CURSOR ADDRESS«, t00=0x003a, t01=0x0174}
0x5c28…5c42 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003b, t01=0x000c}
0x5c42…5c58 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x003b, t01=0x0026}
0x5c58…5c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003c}
0x5c62…5c82 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 GET POSITIONS«, t00=0x003b, t01=0x0046}
0x5c82…5cbc Head {h00=0x0036, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ?«, t00=0x003b, t01=0x0066}
0x5cbc…5cd8 Head {h00=0x0018, h01=0x0050, text=» RF(NG) CURR10 NO ! «, t00=0x003b, t01=0x00a0}
0x5cd8…5d10 Head {h00=0x0034, h01=0x0050, text=» LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS«, t00=0x003b, t01=0x00bc}
0x5d10…5d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f4}
0x5d1a…5d3c Head {h00=0x001e, h01=0x0050, text=»CURR10 ADK A2,/1F CONVERT «, t00=0x003b, t01=0x00fe}
0x5d3c…5d56 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003b, t01=0x0120}
0x5d56…5d72 Head {h00=0x0018, h01=0x0050, text=»DYER30 RF(NZ) DYER40«, t00=0x003b, t01=0x013a}
0x5d72…5d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0156}
0x5d7c…5d8e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x003b, t01=0x0160}
0x5d8e…5daa Head {h00=0x0018, h01=0x0050, text=» SRL A2,8 GET LINES «, t00=0x003b, t01=0x0172}
0x5daa…5de0 Head {h00=0x0032, h01=0x0050, text=» CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ?«, t00=0x003b, t01=0x018e}
0x5de0…5dfc Head {h00=0x0018, h01=0x0050, text=» RF(NG) CURR20 NO ! «, t00=0x003c, t01=0x0034}
0x5dfc…5e30 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES «, t00=0x003c, t01=0x0050}
0x5e30…5e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0084}
0x5e3a…5e4e Head {h00=0x0010, h01=0x0050, text=»CURR20 EQU *«, t00=0x003c, t01=0x008e}
0x5e4e…5e6a Head {h00=0x0018, h01=0x0050, text=» ADK A2,/1F CONVERT «, t00=0x003c, t01=0x00a2}
0x5e6a…5e84 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003c, t01=0x00be}
0x5e84…5e9a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003c, t01=0x00d8}
0x5e9a…5eaa Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x00ee}
0x5eaa…5eb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00fe}
0x5eb8…5efc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003c, t01=0x010c}
0x5efc…5f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0150}
0x5f06…5f22 Head {h00=0x0018, h01=0x0050, text=»* ORDER 31, ERASE.«, t00=0x003c, t01=0x015a}
0x5f22…5f62 Head {h00=0x003c, h01=0x0050, text=»* SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL «, t00=0x003c, t01=0x0176}
0x5f62…5f94 Head {h00=0x002e, h01=0x0050, text=»* WORD OF ECB. THE CURSOR IS NOT MOVED. «, t00=0x003d, t01=0x0026}
0x5f94…5f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0058}
0x5f9e…5fe2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x0062}
0x5fe2…5fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a6}
0x5fec…6000 Head {h00=0x0010, h01=0x0050, text=»DY700 EQU * «, t00=0x003d, t01=0x00b0}
0x6000…603a Head {h00=0x0036, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE «, t00=0x003d, t01=0x00c4}
0x603a…6050 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x003d, t01=0x00fe}
0x6050…6080 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTDEV,A6 PTS 6344,6385 OR 6386 ?«, t00=0x003d, t01=0x0114}
0x6080…6096 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x003d, t01=0x0144}
0x6096…60b0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY750 YES !«, t00=0x003d, t01=0x015a}
0x60b0…60ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0174}
0x60ba…60ea Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS «, t00=0x003d, t01=0x017e}
0x60ea…60fe Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003e, t01=0x001e}
0x60fe…6130 Head {h00=0x002e, h01=0x0050, text=» LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION «, t00=0x003e, t01=0x0032}
0x6130…6144 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x003e, t01=0x0064}
0x6144…6174 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 NR OF CHARS. TO END OF SCREEN«, t00=0x003e, t01=0x0078}
0x6174…618c Head {h00=0x0014, h01=0x0050, text=» LDR A3,0 ADJUST«, t00=0x003e, t01=0x00a8}
0x618c…61ac Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH «, t00=0x003e, t01=0x00c0}
0x61ac…61d0 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN ? «, t00=0x003e, t01=0x00e0}
0x61d0…61ea Head {h00=0x0016, h01=0x0050, text=» RF(L) DY710 NO ! «, t00=0x003e, t01=0x0104}
0x61ea…6210 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A2 YES ! MODIFY LENGTH«, t00=0x003e, t01=0x011e}
0x6210…6228 Head {h00=0x0014, h01=0x0050, text=» LDR A3,1 ADJUST«, t00=0x003e, t01=0x0144}
0x6228…623c Head {h00=0x0010, h01=0x0050, text=»DY710 EQU * «, t00=0x003e, t01=0x015c}
0x623c…6262 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 CHARACTERS TO ERASE«, t00=0x003e, t01=0x0170}
0x6262…627c Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x003f, t01=0x0008}
0x627c…6290 Head {h00=0x0010, h01=0x0050, text=»DY720 EQU * «, t00=0x003f, t01=0x0022}
0x6290…62c0 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF CHARACTERS«, t00=0x003f, t01=0x0036}
0x62c0…62e0 Head {h00=0x001c, h01=0x0050, text=» RF(N) DY730 ERASE READY«, t00=0x003f, t01=0x0066}
0x62e0…62ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0086}
0x62ea…6304 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003f, t01=0x0090}
0x6304…631a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x00aa}
0x631a…632c Head {h00=0x000e, h01=0x0050, text=» RB DY720 «, t00=0x003f, t01=0x00c0}
0x632c…6336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d2}
0x6336…634a Head {h00=0x0010, h01=0x0050, text=»DY730 EQU * «, t00=0x003f, t01=0x00dc}
0x634a…636c Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003f, t01=0x00f0}
0x636c…6382 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x0112}
0x6382…63a4 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,MAXBLK BLOCK SIZE«, t00=0x003f, t01=0x0128}
0x63a4…63cc Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF NEW BLOCK«, t00=0x003f, t01=0x014a}
0x63cc…63e2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x0172}
0x63e2…6402 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A3 RESET COUNTER«, t00=0x003f, t01=0x0188}
0x6402…6424 Head {h00=0x001e, h01=0x0050, text=» LDR A2,BACKSP CURSOR LEFT«, t00=0x0040, t01=0x0018}
0x6424…6438 Head {h00=0x0010, h01=0x0050, text=»DY740 EQU * «, t00=0x0040, t01=0x003a}
0x6438…6468 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 CURSOR IN ORIGINAL POSITION ? «, t00=0x0040, t01=0x004e}
0x6468…6484 Head {h00=0x0018, h01=0x0050, text=» ABL(N) ENDIO YES ! «, t00=0x0040, t01=0x007e}
0x6484…64b6 Head {h00=0x002e, h01=0x0050, text=» CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE «, t00=0x0040, t01=0x009a}
0x64b6…64cc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0040, t01=0x00cc}
0x64cc…64de Head {h00=0x000e, h01=0x0050, text=» RB DY740 «, t00=0x0040, t01=0x00e2}
0x64de…64f2 Head {h00=0x0010, h01=0x0050, text=»DY750 EQU * «, t00=0x0040, t01=0x00f4}
0x64f2…64fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0108}
0x64fe…6518 Head {h00=0x0016, h01=0x0050, text=» LDK A3,/20 SPACE «, t00=0x0040, t01=0x0114}
0x6518…6544 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x0040, t01=0x012e}
0x6544…6556 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0040, t01=0x015a}
0x6556…6564 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x016c}
0x6564…65a8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0040, t01=0x017a}
0x65a8…65b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x002e}
0x65b2…65e4 Head {h00=0x002e, h01=0x0050, text=»* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0041, t01=0x0038}
0x65e4…6618 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER«, t00=0x0041, t01=0x006a}
0x6618…664a Head {h00=0x002e, h01=0x0050, text=»* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF «, t00=0x0041, t01=0x009e}
0x664a…667c Head {h00=0x002e, h01=0x0050, text=»* "SUPPRESS ECHOING OF EOR" IS REQUESTED«, t00=0x0041, t01=0x00d0}
0x667c…66b0 Head {h00=0x0030, h01=0x0050, text=»* AT SYSGEN ). ELSE THE CHARACTER WILL BE «, t00=0x0041, t01=0x0102}
0x66b0…66d0 Head {h00=0x001c, h01=0x0050, text=»* SENT TO THE DISPLAY.«, t00=0x0041, t01=0x0136}
0x66d0…66da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0156}
0x66da…671e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x0160}
0x671e…6728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0014}
0x6728…673c Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0042, t01=0x001e}
0x673c…6760 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 END OF ECHOING ? «, t00=0x0042, t01=0x0032}
0x6760…677c Head {h00=0x0018, h01=0x0050, text=» RF(NN) EDY110 NO ! «, t00=0x0042, t01=0x0056}
0x677c…6786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0072}
0x6786…6790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x007c}
0x6790…67c4 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0042, t01=0x0086}
0x67c4…67e2 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0042, t01=0x00ba}
0x67e2…6812 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ?«, t00=0x0042, t01=0x00d8}
0x6812…683e Head {h00=0x0028, h01=0x0050, text=» RF(Z) EDY130 NO, RETURN TO KEYBOARD«, t00=0x0042, t01=0x0108}
0x683e…6850 Head {h00=0x000e, h01=0x0050, text=» RF EDY120«, t00=0x0042, t01=0x0134}
0x6850…685a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0146}
0x685a…686e Head {h00=0x0010, h01=0x0050, text=»EDY110 EQU *«, t00=0x0042, t01=0x0150}
0x686e…68a2 Head {h00=0x0030, h01=0x0050, text=» LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION«, t00=0x0042, t01=0x0164}
0x68a2…68bc Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0043, t01=0x0008}
0x68bc…68da Head {h00=0x001a, h01=0x0050, text=» CF A15,GRCHAR =4 =4«, t00=0x0043, t01=0x0022}
0x68da…68ec Head {h00=0x000e, h01=0x0050, text=» XIF =4 «, t00=0x0043, t01=0x0040}
0x68ec…690e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0043, t01=0x0052}
0x690e…6918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0074}
0x6918…692e Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0043, t01=0x007e}
0x692e…6942 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/80 «, t00=0x0043, t01=0x0094}
0x6942…696a Head {h00=0x0024, h01=0x0050, text=» RF(NN) EDY130 NOT TO BE ECHOED «, t00=0x0043, t01=0x00a8}
0x696a…697e Head {h00=0x0010, h01=0x0050, text=» ADK A3,/80 «, t00=0x0043, t01=0x00d0}
0x697e…698a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00e4}
0x698a…69ba Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ?«, t00=0x0043, t01=0x00f0}
0x69ba…69d4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) EDY116 NO !«, t00=0x0043, t01=0x0120}
0x69d4…69fe Head {h00=0x0026, h01=0x0050, text=» CWK A1,MINBLK YES ! IS IT FULL ? «, t00=0x0043, t01=0x013a}
0x69fe…6a18 Head {h00=0x0016, h01=0x0050, text=» RF(L) EDY118 NO !«, t00=0x0043, t01=0x0164}
0x6a18…6a52 Head {h00=0x0036, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER«, t00=0x0043, t01=0x017e}
0x6a52…6a74 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK FINISH BLOCK«, t00=0x0044, t01=0x0028}
0x6a74…6a8a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0044, t01=0x004a}
0x6a8a…6a9e Head {h00=0x0010, h01=0x0050, text=»EDY116 EQU *«, t00=0x0044, t01=0x0060}
0x6a9e…6ab4 Head {h00=0x0012, h01=0x0050, text=» LDK A2,MINBLK«, t00=0x0044, t01=0x0074}
0x6ab4…6ad8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK DECLARE BLOCK «, t00=0x0044, t01=0x008a}
0x6ad8…6aee Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0044, t01=0x00ae}
0x6aee…6b02 Head {h00=0x0010, h01=0x0050, text=»EDY118 EQU *«, t00=0x0044, t01=0x00c4}
0x6b02…6b26 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 RELOAD CHARACTER «, t00=0x0044, t01=0x00d8}
0x6b26…6b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00fc}
0x6b30…6b4c Head {h00=0x0018, h01=0x0050, text=» SUK A3,/18 CLEAR ? «, t00=0x0044, t01=0x0106}
0x6b4c…6b66 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY850 YES !«, t00=0x0044, t01=0x0122}
0x6b66…6b86 Head {h00=0x001c, h01=0x0050, text=» ADK A3,/10 BACKSPACE ? «, t00=0x0044, t01=0x013c}
0x6b86…6ba0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY800 YES !«, t00=0x0044, t01=0x015c}
0x6ba0…6baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0176}
0x6baa…6bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0180}
0x6bb4…6bde Head {h00=0x0026, h01=0x0050, text=»* SEND CHARACTER TO ECHO-DEVICE «, t00=0x0044, t01=0x018a}
0x6bde…6be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0024}
0x6be8…6c16 Head {h00=0x002a, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER«, t00=0x0045, t01=0x002e}
0x6c16…6c30 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0045, t01=0x005c}
0x6c30…6c4c Head {h00=0x0018, h01=0x0050, text=»DYER40 RF(NZ) DYER45«, t00=0x0045, t01=0x0076}
0x6c4c…6c7c Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0045, t01=0x0092}
0x6c7c…6ca0 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE CHARACTERS ? «, t00=0x0045, t01=0x00c2}
0x6ca0…6cbc Head {h00=0x0018, h01=0x0050, text=» RF(Z) EDY130 YES ! «, t00=0x0045, t01=0x00e6}
0x6cbc…6cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0102}
0x6cc6…6cda Head {h00=0x0010, h01=0x0050, text=»EDY120 EQU *«, t00=0x0045, t01=0x010c}
0x6cda…6cfc Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0045, t01=0x0120}
0x6cfc…6d12 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0045, t01=0x0142}
0x6d12…6d3c Head {h00=0x0026, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET COUNTER«, t00=0x0045, t01=0x0158}
0x6d3c…6d68 Head {h00=0x0028, h01=0x0050, text=»EDY130 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0045, t01=0x0182}
0x6d68…6d76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x001e}
0x6d76…6dba Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0046, t01=0x002c}
0x6dba…6dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0070}
0x6dc4…6dda Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE «, t00=0x0046, t01=0x007a}
0x6dda…6e14 Head {h00=0x0036, h01=0x0050, text=»* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP «, t00=0x0046, t01=0x0090}
0x6e14…6e4e Head {h00=0x0036, h01=0x0050, text=»* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE «, t00=0x0046, t01=0x00ca}
0x6e4e…6e70 Head {h00=0x001e, h01=0x0050, text=»* STEP BACKWARDS AGAIN. «, t00=0x0046, t01=0x0104}
0x6e70…6e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0126}
0x6e7a…6ebe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0046, t01=0x0130}
0x6ebe…6ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0174}
0x6ec8…6edc Head {h00=0x0010, h01=0x0050, text=»DY800 EQU * «, t00=0x0046, t01=0x017e}
0x6edc…6f10 (71, 0, 400) Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x0047, t01=0x0004}
0x6f10…6f24 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0047, t01=0x0038}
0x6f24…6f48 Head {h00=0x0020, h01=0x0050, text=» RB(Z) EDY120 FIRST POSITION«, t00=0x0047, t01=0x004c}
0x6f48…6f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0070}
0x6f52…6f78 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK FINISH OLD BLOCK«, t00=0x0047, t01=0x007a}
0x6f78…6f8e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0047, t01=0x00a0}
0x6f8e…6fa4 Head {h00=0x0012, h01=0x0050, text=» LDK A2,MINBLK«, t00=0x0047, t01=0x00b6}
0x6fa4…6fcc Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START A NEW BLOCK «, t00=0x0047, t01=0x00cc}
0x6fcc…6fe2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0047, t01=0x00f4}
0x6fe2…6fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x010a}
0x6fec…7014 Head {h00=0x0024, h01=0x0050, text=» LDK A4,2 SET "SEND AGAIN" FLAG «, t00=0x0047, t01=0x0114}
0x7014…703c Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 INDICATE ONE BACKSTEP «, t00=0x0047, t01=0x013c}
0x703c…7070 Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER «, t00=0x0047, t01=0x0164}
0x7070…7096 Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 GET POSITION ON LINE«, t00=0x0048, t01=0x0008}
0x7096…70b4 Head {h00=0x001a, h01=0x0050, text=» AD A3,DWTAP+DWTDEV,A6«, t00=0x0048, t01=0x002e}
0x70b4…70ec Head {h00=0x0034, h01=0x0050, text=» CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? «, t00=0x0048, t01=0x004c}
0x70ec…7106 Head {h00=0x0016, h01=0x0050, text=» RF(L) DY810 NO ! «, t00=0x0048, t01=0x0084}
0x7106…7128 Head {h00=0x001e, h01=0x0050, text=» RB(G) DY800 NO, OUTSIDE !«, t00=0x0048, t01=0x009e}
0x7128…7132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c0}
0x7132…713c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ca}
0x713c…7150 Head {h00=0x0010, h01=0x0050, text=»DY805 EQU * «, t00=0x0048, t01=0x00d4}
0x7150…715a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e8}
0x715a…7176 Head {h00=0x0018, h01=0x0050, text=» LDK A2,SPACE SPACE «, t00=0x0048, t01=0x00f2}
0x7176…7190 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0048, t01=0x010e}
0x7190…71a6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0048, t01=0x0128}
0x71a6…71b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x013e}
0x71b0…71c4 Head {h00=0x0010, h01=0x0050, text=»DY810 EQU * «, t00=0x0048, t01=0x0148}
0x71c4…71f4 Head {h00=0x002c, h01=0x0050, text=» LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE«, t00=0x0048, t01=0x015c}
0x71f4…720e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0048, t01=0x018c}
0x720e…7224 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0049, t01=0x0016}
0x7224…722e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x002c}
0x722e…724c Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 SEND AGAIN ?«, t00=0x0049, t01=0x0036}
0x724c…7268 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DY805 YES ! «, t00=0x0049, t01=0x0054}
0x7268…728a Head {h00=0x001e, h01=0x0050, text=»* NO, BACKSPACE FINISHED«, t00=0x0049, t01=0x0070}
0x728a…729c Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x0049, t01=0x0092}
0x729c…72aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00a4}
0x72aa…72ea Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x00b2}
0x72ea…72f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00f2}
0x72f4…7306 Head {h00=0x000e, h01=0x0050, text=»* CLEAR «, t00=0x0049, t01=0x00fc}
0x7306…7340 Head {h00=0x0036, h01=0x0050, text=»* CHECKS CURSOR POSITION, SETS CURSOR WHERE LAST«, t00=0x0049, t01=0x010e}
0x7340…7378 Head {h00=0x0034, h01=0x0050, text=»* REQUEST ENDED AND SENDS SPACES TO ERASE THE «, t00=0x0049, t01=0x0148}
0x7378…73ae Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS WRITTEN DURING CURRENT REQUEST.«, t00=0x0049, t01=0x0180}
0x73ae…73b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0026}
0x73b8…73fc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004a, t01=0x0030}
0x73fc…7406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0074}
0x7406…741a Head {h00=0x0010, h01=0x0050, text=»DY850 EQU * «, t00=0x004a, t01=0x007e}
0x741a…7440 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK FINISH OLD BLOCK«, t00=0x004a, t01=0x0092}
0x7440…7456 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x004a, t01=0x00b8}
0x7456…747c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x004a, t01=0x00ce}
0x747c…74a0 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x004a, t01=0x00f4}
0x74a0…74bc Head {h00=0x0018, h01=0x0050, text=»DYER45 RF(NZ) DYER48«, t00=0x004a, t01=0x0118}
0x74bc…74f0 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x004a, t01=0x0134}
0x74f0…7504 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x004a, t01=0x0168}
0x7504…7528 Head {h00=0x0020, h01=0x0050, text=» RB(Z) EDY120 FIRST POSITION«, t00=0x004a, t01=0x017c}
0x7528…7532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0010}
0x7532…7548 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x004b, t01=0x001a}
0x7548…757a Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? «, t00=0x004b, t01=0x0030}
0x757a…7590 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x004b, t01=0x0062}
0x7590…75aa Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY860 YES !«, t00=0x004b, t01=0x0078}
0x75aa…75d6 Head {h00=0x0028, h01=0x0050, text=» CF A5,BACCAN ERASE CURRENT REQUEST «, t00=0x004b, t01=0x0092}
0x75d6…75e8 Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x004b, t01=0x00be}
0x75e8…75f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x00d0}
0x75f4…7608 Head {h00=0x0010, h01=0x0050, text=»DY860 EQU * «, t00=0x004b, t01=0x00dc}
0x7608…7640 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNTER«, t00=0x004b, t01=0x00f0}
0x7640…7660 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x004b, t01=0x0128}
0x7660…766a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0148}
0x766a…7692 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 GET POSITION COUNTER «, t00=0x004b, t01=0x0152}
0x7692…76bc Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 UPDATE POSITION COUNTER «, t00=0x004b, t01=0x017a}
0x76bc…76e4 Head {h00=0x0024, h01=0x0050, text=» LDK A3,SPACE GET SPACE TO SEND «, t00=0x004c, t01=0x0014}
0x76e4…7710 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x004c, t01=0x003c}
0x7710…771a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0068}
0x771a…7750 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER «, t00=0x004c, t01=0x0072}
0x7750…7762 Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x004c, t01=0x00a8}
0x7762…7778 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x004c, t01=0x00ba}
0x7778…7786 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00d0}
0x7786…77ca Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004c, t01=0x00de}
0x77ca…77d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0122}
0x77d4…7808 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x004c, t01=0x012c}
0x7808…783c Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x004c, t01=0x0160}
0x783c…7858 (77, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* CLEAR.«, t00=0x004d, t01=0x0004}
0x7858…7862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0020}
0x7862…78a6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004d, t01=0x002a}
0x78a6…78ba Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x004d, t01=0x006e}
0x78ba…78ee Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x004d, t01=0x0082}
0x78ee…7900 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x004d, t01=0x00b6}
0x7900…7934 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x004d, t01=0x00c8}
0x7934…7948 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x00fc}
0x7948…7980 Head {h00=0x0034, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER«, t00=0x004d, t01=0x0110}
0x7980…7994 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x0148}
0x7994…79c2 Head {h00=0x002a, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 LAST POSITION «, t00=0x004d, t01=0x015c}
0x79c2…79dc Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004d, t01=0x018a}
0x79dc…7a04 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004e, t01=0x0014}
0x7a04…7a16 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004e, t01=0x003c}
0x7a16…7a2a Head {h00=0x0010, h01=0x0050, text=»BACA10 EQU *«, t00=0x004e, t01=0x004e}
0x7a2a…7a62 Head {h00=0x0034, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER«, t00=0x004e, t01=0x0062}
0x7a62…7a8e Head {h00=0x0028, h01=0x0050, text=» LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 «, t00=0x004e, t01=0x009a}
0x7a8e…7acc Head {h00=0x003a, h01=0x0050, text=» CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ?«, t00=0x004e, t01=0x00c6}
0x7acc…7ae6 Head {h00=0x0016, h01=0x0050, text=» RF(G) BACA30 NO !«, t00=0x004e, t01=0x0104}
0x7ae6…7af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x011e}
0x7af0…7b1a Head {h00=0x0026, h01=0x0050, text=» CF A5,ENDBLK YES ! END OLD BLOCK «, t00=0x004e, t01=0x0128}
0x7b1a…7b30 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004e, t01=0x0152}
0x7b30…7b52 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,MAXBLK BLOCK SIZE«, t00=0x004e, t01=0x0168}
0x7b52…7b7a Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START A NEW BLOCK «, t00=0x004e, t01=0x018a}
0x7b7a…7b90 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x0022}
0x7b90…7bc4 Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x004f, t01=0x0038}
0x7bc4…7bd8 Head {h00=0x0010, h01=0x0050, text=»BACA30 EQU *«, t00=0x004f, t01=0x006c}
0x7bd8…7bf8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004f, t01=0x0080}
0x7bf8…7c12 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004f, t01=0x00a0}
0x7c12…7c28 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x00ba}
0x7c28…7c50 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004f, t01=0x00d0}
0x7c50…7c6a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004f, t01=0x00f8}
0x7c6a…7c80 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x0112}
0x7c80…7ca0 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004f, t01=0x0128}
0x7ca0…7cc0 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004f, t01=0x0148}
0x7cc0…7cd6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x0168}
0x7cd6…7ce8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004f, t01=0x017e}
0x7ce8…7cfe Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004f, t01=0x0190}
0x7cfe…7d20 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0050, t01=0x0016}
0x7d20…7d58 Head {h00=0x0034, h01=0x0050, text=» ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER «, t00=0x0050, t01=0x0038}
0x7d58…7d68 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x0070}
0x7d68…7d74 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0080}
0x7d74…7d82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x008c}
0x7d82…7dc6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0050, t01=0x009a}
0x7dc6…7dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00de}
0x7dd0…7e00 Head {h00=0x002c, h01=0x0050, text=»* FASTER = SUBROUTINE FOR FAST OUTPUT«, t00=0x0050, t01=0x00e8}
0x7e00…7e38 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x0118}
0x7e38…7e6e Head {h00=0x0032, h01=0x0050, text=»* A3 = CHARACTER TO SEND «, t00=0x0050, t01=0x0150}
0x7e6e…7e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0186}
0x7e78…7ebc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0050, t01=0x0190}
0x7ebc…7ed0 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0051, t01=0x0044}
0x7ed0…7ee6 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0051, t01=0x0058}
0x7ee6…7f02 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTDEV,A6 PTS«, t00=0x0051, t01=0x006e}
0x7f02…7f28 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/1000 6342 OR 6351 ? «, t00=0x0051, t01=0x008a}
0x7f28…7f42 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FAS005 NO !«, t00=0x0051, t01=0x00b0}
0x7f42…7f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00ca}
0x7f4c…7f86 Head {h00=0x0036, h01=0x0050, text=»* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 «, t00=0x0051, t01=0x00d4}
0x7f86…7f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x010e}
0x7f90…7fae Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6«, t00=0x0051, t01=0x0118}
0x7fae…7fda Head {h00=0x0028, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 GET POSITION «, t00=0x0051, t01=0x0136}
0x7fda…7fee Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0051, t01=0x0162}
0x7fee…801a Head {h00=0x0028, h01=0x0050, text=» ADR A2,A4 ADD NUMBER OF CHARACTERS «, t00=0x0051, t01=0x0176}
0x801a…8024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0012}
0x8024…8056 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS«, t00=0x0052, t01=0x001c}
0x8056…806a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0052, t01=0x004e}
0x806a…8084 Head {h00=0x0016, h01=0x0050, text=» SUR A1,A2 COMPARE«, t00=0x0052, t01=0x0062}
0x8084…80a4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) FAS002 LENGTH OK«, t00=0x0052, t01=0x007c}
0x80a4…80c4 Head {h00=0x001c, h01=0x0050, text=» ADR A4,A1 ADJUST LENGTH«, t00=0x0052, t01=0x009c}
0x80c4…80f2 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF CHARACTERS «, t00=0x0052, t01=0x00bc}
0x80f2…80fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ea}
0x80fc…8110 Head {h00=0x0010, h01=0x0050, text=»FAS002 EQU *«, t00=0x0052, t01=0x00f4}
0x8110…811a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0108}
0x811a…8144 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 PUT TWO COUNTERS IN A4 «, t00=0x0052, t01=0x0112}
0x8144…8156 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0052, t01=0x013c}
0x8156…8168 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A2«, t00=0x0052, t01=0x014e}
0x8168…8172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0160}
0x8172…8186 Head {h00=0x0010, h01=0x0050, text=»FAS004 EQU *«, t00=0x0052, t01=0x016a}
0x8186…81ae Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 GET CHARACTER TO SEND«, t00=0x0052, t01=0x017e}
0x81ae…81c8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0053, t01=0x0016}
0x81c8…81de Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0053, t01=0x0030}
0x81de…8202 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0053, t01=0x0046}
0x8202…8216 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x0053, t01=0x006a}
0x8216…8228 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A4«, t00=0x0053, t01=0x007e}
0x8228…824c Head {h00=0x0020, h01=0x0050, text=» RB(P) FAS004 NEXT CHARACTER«, t00=0x0053, t01=0x0090}
0x824c…8256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b4}
0x8256…8280 Head {h00=0x0026, h01=0x0050, text=» CF A5,ENDBLK START A NEW BLOCK TO«, t00=0x0053, t01=0x00be}
0x8280…82a8 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DYER50 AVOID OVERFLOW IN«, t00=0x0053, t01=0x00e8}
0x82a8…82cc Head {h00=0x0020, h01=0x0050, text=» LDKL A2,MAXBLK THE OLD ONE «, t00=0x0053, t01=0x0110}
0x82cc…82e2 Head {h00=0x0012, h01=0x0050, text=» CF A5,STABLK «, t00=0x0053, t01=0x0134}
0x82e2…82f8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0053, t01=0x014a}
0x82f8…8302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0160}
0x8302…8326 Head {h00=0x0020, h01=0x0050, text=» SRL A4,8 GET LENGTH COUNTER«, t00=0x0053, t01=0x016a}
0x8326…833a Head {h00=0x0010, h01=0x0050, text=»FAS003 EQU *«, t00=0x0053, t01=0x018e}
0x833a…8350 Head {h00=0x0012, h01=0x0050, text=» LDK A2,BACKSP«, t00=0x0054, t01=0x0012}
0x8350…8374 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND BACKSPACE«, t00=0x0054, t01=0x0028}
0x8374…838a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0054, t01=0x004c}
0x838a…83ae Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0054, t01=0x0062}
0x83ae…83c8 Head {h00=0x0016, h01=0x0050, text=» RB(P) FAS003 NEXT«, t00=0x0054, t01=0x0086}
0x83c8…83d8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x00a0}
0x83d8…83ec Head {h00=0x0010, h01=0x0050, text=»FAS005 EQU *«, t00=0x0054, t01=0x00b0}
0x83ec…83f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x00c4}
0x83f8…8432 Head {h00=0x0036, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS «, t00=0x0054, t01=0x00d0}
0x8432…8464 Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0054, t01=0x010a}
0x8464…84a2 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS ON DISPLAY «, t00=0x0054, t01=0x013c}
0x84a2…84b6 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0054, t01=0x017a}
0x84b6…84d6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0054, t01=0x018e}
0x84d6…84f8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASOUT FAST OUTPUT«, t00=0x0055, t01=0x001e}
0x84f8…8512 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x0040}
0x8512…852e Head {h00=0x0018, h01=0x0050, text=»DYER48 RF(NZ) DYER50«, t00=0x0055, t01=0x005a}
0x852e…854c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0055, t01=0x0076}
0x854c…8560 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0055, t01=0x0094}
0x8560…857a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x00a8}
0x857a…8590 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0055, t01=0x00c2}
0x8590…85a2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0055, t01=0x00d8}
0x85a2…85bc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x00ea}
0x85bc…85d2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0055, t01=0x0104}
0x85d2…85e2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x011a}
0x85e2…85f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x012a}
0x85f0…862c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0055, t01=0x0138}
0x862c…8636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0174}
0x8636…8670 Head {h00=0x0036, h01=0x0050, text=»* ERROR ROUTINE. ENTERED WHEN RETURN CODE IS SET«, t00=0x0055, t01=0x017e}
0x8670…869c Head {h00=0x0028, h01=0x0050, text=»* AFTER STABLK, OUTPUT OR ENDBLK. «, t00=0x0056, t01=0x0028}
0x869c…86a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0054}
0x86a6…86e4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x005e}
0x86e4…86f8 Head {h00=0x0010, h01=0x0050, text=»DYER50 EQU *«, t00=0x0056, t01=0x009c}
0x86f8…8710 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0056, t01=0x00b0}
0x8710…8728 Head {h00=0x0014, h01=0x0050, text=» SLC A7,2 ECHO ?«, t00=0x0056, t01=0x00c8}
0x8728…8756 Head {h00=0x002a, h01=0x0050, text=» ABL(N) ECHRTN YES ! RETURN FROM ECHO «, t00=0x0056, t01=0x00e0}
0x8756…8760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x010e}
0x8760…8786 Head {h00=0x0022, h01=0x0050, text=» SRC A1,5 OUTPUT ERROR (HER) ?«, t00=0x0056, t01=0x0118}
0x8786…87ae Head {h00=0x0024, h01=0x0050, text=» RF(N) RCDY YES ! GO TO RECOVERY«, t00=0x0056, t01=0x013e}
0x87ae…87d0 Head {h00=0x001e, h01=0x0050, text=» SLC A1,5 NO ! RESTORE A1 «, t00=0x0056, t01=0x0166}
0x87d0…87da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0188}
0x87da…8808 (87, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? «, t00=0x0057, t01=0x0004}
0x8808…881c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0057, t01=0x0032}
0x881c…8838 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x0046}
0x8838…8854 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0057, t01=0x0062}
0x8854…8870 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x007e}
0x8870…888e Head {h00=0x001a, h01=0x0050, text=» SUK A7,/2B ORDER 31 ?«, t00=0x0057, t01=0x009a}
0x888e…88aa Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x00b8}
0x88aa…88b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00d4}
0x88b4…88d2 Head {h00=0x001a, h01=0x0050, text=» SRC A1,2 LRC-ERROR ? «, t00=0x0057, t01=0x00de}
0x88d2…88ee Head {h00=0x0018, h01=0x0050, text=» RF(N) DYER70 YES ! «, t00=0x0057, t01=0x00fc}
0x88ee…8900 Head {h00=0x000e, h01=0x0050, text=» SLC A1,2 «, t00=0x0057, t01=0x0118}
0x8900…8924 Head {h00=0x0020, h01=0x0050, text=»DYER52 SRC A1,3 LINK ERROR ?«, t00=0x0057, t01=0x012a}
0x8924…8940 Head {h00=0x0018, h01=0x0050, text=» RF(NN) DYER55 NO ! «, t00=0x0057, t01=0x014e}
0x8940…897c Head {h00=0x0038, h01=0x0050, text=» LDKL A1,/2000 YES ! SET SHIFTED "NOT OPERABLE" BIT «, t00=0x0057, t01=0x016a}
0x897c…899e Head {h00=0x001e, h01=0x0050, text=»DYER55 SLC A1,3 SHIFT BACK«, t00=0x0058, t01=0x0016}
0x899e…89a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0038}
0x89a8…89c0 Head {h00=0x0014, h01=0x0050, text=» LDR A8,A8 =1 «, t00=0x0058, t01=0x0042}
0x89c0…89f6 Head {h00=0x0032, h01=0x0050, text=» RF(Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1«, t00=0x0058, t01=0x005a}
0x89f6…8a2c Head {h00=0x0032, h01=0x0050, text=» CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD «, t00=0x0058, t01=0x0090}
0x8a2c…8a46 Head {h00=0x0016, h01=0x0050, text=»DYER60 EQU * =1 «, t00=0x0058, t01=0x00c6}
0x8a46…8a6a Head {h00=0x0020, h01=0x0050, text=» ABL LENDIS COMPLETE REQUEST«, t00=0x0058, t01=0x00e0}
0x8a6a…8a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0104}
0x8a74…8a8a Head {h00=0x0012, h01=0x0050, text=»* LRC-ERROR «, t00=0x0058, t01=0x010e}
0x8a8a…8a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0124}
0x8a94…8aa8 Head {h00=0x0010, h01=0x0050, text=»DYER70 EQU *«, t00=0x0058, t01=0x012e}
0x8aa8…8ad4 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,DWTSB2 INITIALIZE A5 STACK «, t00=0x0058, t01=0x0142}
0x8ad4…8ae6 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0058, t01=0x016e}
0x8ae6…8b12 Head {h00=0x0028, h01=0x0050, text=» LDR A8,A8 ECB-ADDRESS = ZERO ? = 2 «, t00=0x0058, t01=0x0180}
0x8b12…8b42 Head {h00=0x002c, h01=0x0050, text=» ABL(Z) ENDIO YES, DON'T SEND AGAIN = 2 «, t00=0x0059, t01=0x001c}
0x8b42…8b58 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0059, t01=0x004c}
0x8b58…8b84 Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTDEV,A6 6344,6385 OR 6386 ?«, t00=0x0059, t01=0x0062}
0x8b84…8b9a Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/1000«, t00=0x0059, t01=0x008e}
0x8b9a…8bb6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER90 YES ! «, t00=0x0059, t01=0x00a4}
0x8bb6…8bf0 Head {h00=0x0036, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK «, t00=0x0059, t01=0x00c0}
0x8bf0…8c04 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0059, t01=0x00fa}
0x8c04…8c1a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DYER80 «, t00=0x0059, t01=0x010e}
0x8c1a…8c4c Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0059, t01=0x0124}
0x8c4c…8c6e Head {h00=0x001e, h01=0x0050, text=» LDK A3,2 SET BUFFER INDEX«, t00=0x0059, t01=0x0156}
0x8c6e…8c92 Head {h00=0x0020, h01=0x0050, text=»DYER80 ABL DY335 SEND AGAIN «, t00=0x0059, t01=0x0178}
0x8c92…8ca6 Head {h00=0x0010, h01=0x0050, text=»DYER90 EQU *«, t00=0x005a, t01=0x000c}
0x8ca6…8cb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0020}
0x8cb2…8cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x002c}
0x8cbc…8cf0 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET HEAD POS. COUNTER«, t00=0x005a, t01=0x0036}
0x8cf0…8d1c Head {h00=0x0028, h01=0x0050, text=» CF A5,CURPOS SET CURSOR ON DISPLAY «, t00=0x005a, t01=0x006a}
0x8d1c…8d40 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x005a, t01=0x0096}
0x8d40…8d62 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x005a, t01=0x00ba}
0x8d62…8d76 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x005a, t01=0x00dc}
0x8d76…8d88 Head {h00=0x000e, h01=0x0050, text=» ABL ACDY «, t00=0x005a, t01=0x00f0}
0x8d88…8d96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0102}
0x8d96…8dda Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x0110}
0x8dda…8de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0154}
0x8de4…8e14 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x005a, t01=0x015e}
0x8e14…8e44 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x005a, t01=0x018e}
0x8e44…8e70 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x005b, t01=0x002e}
0x8e70…8e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x005a}
0x8e7a…8ebe Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x0064}
0x8ebe…8ed2 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x005b, t01=0x00a8}
0x8ed2…8f06 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x005b, t01=0x00bc}
0x8f06…8f1a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005b, t01=0x00f0}
0x8f1a…8f56 Head {h00=0x0038, h01=0x0050, text=» ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER«, t00=0x005b, t01=0x0104}
0x8f56…8f68 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x005b, t01=0x0140}
0x8f68…8f9e Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER«, t00=0x005b, t01=0x0152}
0x8f9e…8fae Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x005b, t01=0x0188}
0x8fae…8ff2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0008}
0x8ff2…8ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x004c}
0x8ffc…9036 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x005c, t01=0x0056}
0x9036…906a Head {h00=0x0030, h01=0x0050, text=»* COUNTER WHEN REQUEST RUNNING. «, t00=0x005c, t01=0x0090}
0x906a…90b2 Head {h00=0x0044, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE«, t00=0x005c, t01=0x00c4}
0x90b2…90bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010c}
0x90bc…9100 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0116}
0x9100…9114 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x005c, t01=0x015a}
0x9114…9148 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x005c, t01=0x016e}
0x9148…9184 Head {h00=0x0038, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER«, t00=0x005d, t01=0x0012}
0x9184…9198 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005d, t01=0x004e}
0x9198…91c4 Head {h00=0x0028, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 END OF ROW ?«, t00=0x005d, t01=0x0062}
0x91c4…91da Head {h00=0x0012, h01=0x0050, text=» RF(G) POSU10 «, t00=0x005d, t01=0x008e}
0x91da…9206 Head {h00=0x0028, h01=0x0050, text=» IM DWTBC+DWTDEV,A6 POSITION COUNTER«, t00=0x005d, t01=0x00a4}
0x9206…921c Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x005d, t01=0x00d0}
0x921c…9236 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x005d, t01=0x00e6}
0x9236…924a Head {h00=0x0010, h01=0x0050, text=» EJECT =4 «, t00=0x005d, t01=0x0100}
0x924a…9288 Head {h00=0x003a, h01=0x0050, text=»*************************************************** =4«, t00=0x005d, t01=0x0114}
0x9288…9292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0152}
0x9292…92d0 Head {h00=0x003a, h01=0x0050, text=»* GRCHAR = SUBROUTINE TO CONVERT GREEK CHARACTERS =4«, t00=0x005d, t01=0x015c}
0x92d0…930c Head {h00=0x0038, h01=0x0050, text=»* BEFORE THEY ARE SENT TO THE DISPLAY =4 «, t00=0x005e, t01=0x000a}
0x930c…9316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0046}
0x9316…9354 Head {h00=0x003a, h01=0x0050, text=»*************************************************** =4«, t00=0x005e, t01=0x0050}
0x9354…936c Head {h00=0x0014, h01=0x0050, text=»GRCHAR EQU * = «, t00=0x005e, t01=0x008e}
0x936c…939c Head {h00=0x002c, h01=0x0050, text=» LDR A1,A2 IS IT A GREEK CHARACTER ? =4 «, t00=0x005e, t01=0x00a6}
0x939c…93b4 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/B9 =4 «, t00=0x005e, t01=0x00d6}
0x93b4…93d0 Head {h00=0x0018, h01=0x0050, text=» RF(P) GRCH10 NO =4 «, t00=0x005e, t01=0x00ee}
0x93d0…93e6 Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 =4 «, t00=0x005e, t01=0x010a}
0x93e6…9402 Head {h00=0x0018, h01=0x0050, text=» RF(N) GRCH10 NO =4 «, t00=0x005e, t01=0x0120}
0x9402…9412 Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005e, t01=0x013c}
0x9412…9446 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,GRTAB GET THE CORRECT CODE FROM =4 «, t00=0x005e, t01=0x014c}
0x9446…9470 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A1 THE CHARACTER TABLE =4 «, t00=0x005e, t01=0x0180}
0x9470…9480 Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005f, t01=0x001a}
0x9480…9498 Head {h00=0x0014, h01=0x0050, text=»GRCH10 EQU * =4«, t00=0x005f, t01=0x002a}
0x9498…94ac Head {h00=0x0010, h01=0x0050, text=» RTN A15 =4«, t00=0x005f, t01=0x0042}
0x94ac…94bc Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005f, t01=0x0056}
0x94bc…94d4 Head {h00=0x0014, h01=0x0050, text=»GRTAB EQU * =4 «, t00=0x005f, t01=0x0066}
0x94d4…9504 Head {h00=0x002c, h01=0x0050, text=» DATA /2223,/263B,/405B,/5C5D,/5E5F =4 «, t00=0x005f, t01=0x007e}
0x9504…9516 Head {h00=0x000e, h01=0x0050, text=» XIF =4 «, t00=0x005f, t01=0x00ae}
0x9516…952c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x005f, t01=0x00c0}
0x952c…953a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00d6}
0x953a…9574 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x005f, t01=0x00e4}
0x9574…957e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x011e}
0x957e…95b6 Head {h00=0x0034, h01=0x0050, text=»* TRASP = SUBROUTINE THAT ELIMINATES TRAILING «, t00=0x005f, t01=0x0128}
0x95b6…95ee Head {h00=0x0034, h01=0x0050, text=»* SPACES FROM ECB-BUFFER. IT ALSO DE- «, t00=0x005f, t01=0x0160}
0x95ee…9622 Head {h00=0x0030, h01=0x0050, text=»* LETES LOW INTENSITY START, HIGH «, t00=0x0060, t01=0x0008}
0x9622…9646 Head {h00=0x0020, h01=0x0050, text=»* INTENSITY START.«, t00=0x0060, t01=0x003c}
0x9646…9662 Head {h00=0x0018, h01=0x0050, text=»* AND TABULATIONS «, t00=0x0060, t01=0x0060}
0x9662…966c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x007c}
0x966c…96a6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0060, t01=0x0086}
0x96a6…96b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c0}
0x96b0…96c4 Head {h00=0x0010, h01=0x0050, text=»TRASP EQU * «, t00=0x0060, t01=0x00ca}
0x96c4…96f4 Head {h00=0x002c, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) «, t00=0x0060, t01=0x00de}
0x96f4…9724 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL)«, t00=0x0060, t01=0x010e}
0x9724…9748 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 GET END OF BUFFER«, t00=0x0060, t01=0x013e}
0x9748…9760 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0060, t01=0x0162}
0x9760…977e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0060, t01=0x017a}
0x977e…9798 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0061, t01=0x0008}
0x9798…97b4 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0061, t01=0x0022}
0x97b4…97c8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0061, t01=0x003e}
0x97c8…97e4 Head {h00=0x0018, h01=0x0050, text=» SUK A4,/20 SPACE ? «, t00=0x0061, t01=0x0052}
0x97e4…97fe Head {h00=0x0016, h01=0x0050, text=» RF(Z) SKIP07 YES «, t00=0x0061, t01=0x006e}
0x97fe…9820 Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 LOW INT. STOP ? «, t00=0x0061, t01=0x0088}
0x9820…983c Head {h00=0x0018, h01=0x0050, text=» RF(Z) SKIP07 YES ! «, t00=0x0061, t01=0x00aa}
0x983c…985e Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 LOW INT. START ?«, t00=0x0061, t01=0x00c6}
0x985e…987a Head {h00=0x0018, h01=0x0050, text=» RF(Z) SKIP07 YES ! «, t00=0x0061, t01=0x00e8}
0x987a…988c Head {h00=0x000e, h01=0x0050, text=» CWK A2,4 «, t00=0x0061, t01=0x0104}
0x988c…98b2 Head {h00=0x0022, h01=0x0050, text=» RF(NG) SKIP30 REQ, LENGTH < 5«, t00=0x0061, t01=0x0116}
0x98b2…98d4 Head {h00=0x001e, h01=0x0050, text=» LC A4,-2,A1 GET CHARACTER«, t00=0x0061, t01=0x013c}
0x98d4…98fe Head {h00=0x0026, h01=0x0050, text=» SUK A4,/11 TABULATION CHARACTER ?«, t00=0x0061, t01=0x015e}
0x98fe…991a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SKIP30 YES !«, t00=0x0061, t01=0x0188}
0x991a…993a Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0062, t01=0x0014}
0x993a…9956 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0062, t01=0x0034}
0x9956…996a Head {h00=0x0010, h01=0x0050, text=»SKIP30 EQU *«, t00=0x0062, t01=0x0050}
0x996a…9982 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0062, t01=0x0064}
0x9982…99ae Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH«, t00=0x0062, t01=0x007c}
0x99ae…99b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a8}
0x99b8…99dc Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBRL,A8 STORE NEW RL«, t00=0x0062, t01=0x00b2}
0x99dc…99e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00d6}
0x99e6…99f6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0062, t01=0x00e0}
0x99f6…9a02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00f0}
0x9a02…9a10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x00fc}
0x9a10…9a54 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x010a}
0x9a54…9a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x014e}
0x9a5e…9a82 Head {h00=0x0020, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE «, t00=0x0062, t01=0x0158}
0x9a82…9abc Head {h00=0x0036, h01=0x0050, text=»* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION«, t00=0x0062, t01=0x017c}
0x9abc…9aec Head {h00=0x002c, h01=0x0050, text=»* COUNTER TO HOME POSITION ( /0101 ). «, t00=0x0063, t01=0x0026}
0x9aec…9af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0056}
0x9af6…9b3a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0063, t01=0x0060}
0x9b3a…9b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00a4}
0x9b44…9b56 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x0063, t01=0x00ae}
0x9b56…9b6c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0063, t01=0x00c0}
0x9b6c…9b92 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 INDICATE BUSY«, t00=0x0063, t01=0x00d6}
0x9b92…9b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fc}
0x9b9c…9bc4 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,MAXBLK MAX. BLOCK SIZE «, t00=0x0063, t01=0x0106}
0x9bc4…9be8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0063, t01=0x012e}
0x9be8…9c02 Head {h00=0x0016, h01=0x0050, text=»RCER RB(NZ) DYER50«, t00=0x0063, t01=0x0152}
0x9c02…9c1a Head {h00=0x0014, h01=0x0050, text=» IFT PLASM=0 =4«, t00=0x0063, t01=0x016c}
0x9c1a…9c38 Head {h00=0x001a, h01=0x0050, text=» IFF STEADY+COUNTRY=0 «, t00=0x0063, t01=0x0184}
0x9c38…9c62 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0064, t01=0x0012}
0x9c62…9c8c Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/2000 PTS 6385 OR 6386 ? «, t00=0x0064, t01=0x003c}
0x9c8c…9ca6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RCDY20 NO !«, t00=0x0064, t01=0x0066}
0x9ca6…9cd2 Head {h00=0x0028, h01=0x0050, text=» LDK A3,/40 SET UP TRANSFER COUNTER «, t00=0x0064, t01=0x0080}
0x9cd2…9cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ac}
0x9cdc…9d10 Head {h00=0x0030, h01=0x0050, text=»RCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING«, t00=0x0064, t01=0x00b6}
0x9d10…9d3e Head {h00=0x002a, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO «, t00=0x0064, t01=0x00ea}
0x9d3e…9d6c Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INFORMATION «, t00=0x0064, t01=0x0118}
0x9d6c…9d80 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0064, t01=0x0146}
0x9d80…9dac Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT TRANSFER COUNTER«, t00=0x0064, t01=0x015a}
0x9dac…9dd6 Head {h00=0x0026, h01=0x0050, text=» RB(P) RCDY10 NOT ENOUGH TRANSFERS«, t00=0x0064, t01=0x0186}
0x9dd6…9e04 Head {h00=0x002a, h01=0x0050, text=» LDK A2,CTYCOD SEND "SET COUNTRY CODE"«, t00=0x0065, t01=0x0020}
0x9e04…9e1a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0065, t01=0x004e}
0x9e1a…9e2e Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x0064}
0x9e2e…9e5a Head {h00=0x0028, h01=0x0050, text=» LDK A2,COUNTRY SEND "COUNTRY CODE" «, t00=0x0065, t01=0x0078}
0x9e5a…9e7e Head {h00=0x0020, h01=0x0050, text=» ORK A2,/30 MAKE ASCII DIGIT«, t00=0x0065, t01=0x00a4}
0x9e7e…9e94 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0065, t01=0x00c8}
0x9e94…9ea8 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x00de}
0x9ea8…9ebc Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0065, t01=0x00f2}
0x9ebc…9ec8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0106}
0x9ec8…9ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0112}
0x9ed2…9efe Head {h00=0x0028, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND CURSOR HOME«, t00=0x0065, t01=0x011c}
0x9efe…9f18 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0065, t01=0x0148}
0x9f18…9f2c Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x0162}
0x9f2c…9f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0176}
0x9f36…9f5a Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/0101 HOME POSITION«, t00=0x0065, t01=0x0180}
0x9f5a…9f92 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER«, t00=0x0066, t01=0x0014}
0x9f92…9fa4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0066, t01=0x004c}
0x9fa4…9fe2 Head {h00=0x003a, h01=0x0050, text=» SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER «, t00=0x0066, t01=0x005e}
0x9fe2…9fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x009c}
0x9fec…9ffe Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0066, t01=0x00a6}
0x9ffe…a008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00b8}
0xa008…a038 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0066, t01=0x00c2}
0xa038…a042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00f2}
0xa042…a05c Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x0066, t01=0x00fc}
0xa05c…a066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0116}
0xa066…a096 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0066, t01=0x0120}
0xa096…a0a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0150}
0xa0a0…a0b2 Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0066, t01=0x015a}
0xa0b2…a0e2 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POS. POINTER «, t00=0x0066, t01=0x016c}
0xa0e2…a0fe Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS END I/O «, t00=0x0067, t01=0x000c}
0xa0fe…a10a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0067, t01=0x0028}
0xa10a…a10e Head {h00=0x4004, h01=0x0000}
0xa10e…a112 00 67 00 34 ┆ g 4┆
0xa112…a11a (104, 1, 8) 20 04 00 00 00 68 00 04 ┆ h ┆
0xa11a…a16a (105, 0, 400) 41 54 45 20 43 55 52 52 45 4e 54 20 42 4c 4f 43 4b 20 4d 4f 56 45 44 20 00 d8 01 80 00 2a 00 50 5c 45 53 52 5c 41 33 2c 41 32 5c 53 54 4f 52 45 20 4e 45 57 20 4d 4f 56 45 44 20 42 4c 4f 43 4b 20 4d 41 53 4b 20 00 d9 00 20 00 06 00 50 2a 20 ┆ATE CURRENT BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P* ┆
0xa16a…a1ba 00 d9 00 4e 00 26 00 50 2a 20 20 55 50 44 41 54 45 20 4d 4f 56 45 44 20 4d 41 53 4b 20 49 4e 20 53 45 43 4f 4e 44 20 54 3a 41 00 d9 00 58 00 06 00 50 2a 20 00 d9 00 82 00 1e 00 50 5c 45 4c 52 5c 41 32 2c 41 36 5c 47 45 54 20 54 3a 41 20 50 ┆ N & P* UPDATE MOVED MASK IN SECOND T:A X P* P ELR A2,A6 GET T:A P┆
0xa1ba…a20a 4f 49 4e 54 45 52 00 d9 00 8c 00 24 00 50 5c 45 4c 52 5c 41 33 2c 41 32 5c 47 45 54 20 4d 4f 56 45 44 20 42 4c 4f 43 4b 20 4d 41 53 4b 20 00 d9 00 ae 00 2c 00 50 5c 4f 52 52 5c 41 33 2c 41 31 5c 49 4e 44 49 43 41 54 45 20 43 55 52 52 45 4e ┆OINTER $ P ELR A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURREN┆
0xa20a…a25a 54 20 42 4c 4f 43 4b 20 4d 4f 56 45 44 20 00 d9 00 d6 00 2a 00 50 5c 45 53 52 5c 41 33 2c 41 32 5c 53 54 4f 52 45 20 4e 45 57 20 4d 4f 56 45 44 20 42 4c 4f 43 4b 20 4d 41 53 4b 20 00 d9 01 06 00 08 00 50 5c 58 49 46 00 d9 01 34 00 06 00 50 ┆T BLOCK MOVED * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF 4 P┆
0xa25a…a2aa 5c 20 00 d9 01 40 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 d9 01 4a 00 0a 00 50 5c 45 4a 45 43 54 00 d9 01 5a 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ @ P RTN A14 J P EJECT Z J P****************************************┆
0xa2aa…a2fa (106, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 d9 01 68 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆***************************** h J P* ┆
0xa2fa…a34a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 da 00 26 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 48 4b 4d 56 44 20 2d 20 43 48 45 43 4b 20 49 46 20 42 4c 4f 43 4b 20 41 4c 52 45 ┆ * & J P* CHKMVD - CHECK IF BLOCK ALRE┆
0xa34a…a39a 41 44 59 20 4d 4f 56 45 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 da 00 74 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆ADY MOVED * t J P* ==============================┆
0xa39a…a3ea 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 da 00 c2 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆======= * J P* ┆
0xa3ea…a43a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 da 01 10 00 4a 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 4d 4f 56 43 4f 4d 2c 4d 4f 56 43 4c 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J P* REFERENCED IN: MOVCOM,MOVCLA ┆
0xa43a…a48a (107, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 da 01 5e 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ^ J P* ┆
0xa48a…a4da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 db 00 1c 00 4a 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 41 38 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 3a 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J P* ENTRY: A8 - POINTER TO T:A ┆
0xa4da…a52a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 db 00 6a 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 42 49 54 20 2d 20 42 49 54 20 4e 55 4d 42 45 52 20 49 4e 20 43 57 42 2d 20 4f 52 20 55 57 42 2d 4d 41 53 4b 20 20 20 20 20 20 20 20 20 20 ┆ * j J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK ┆
0xa52a…a57a 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 db 00 b8 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J P* ┆
0xa57a…a5ca 20 20 20 20 20 20 20 20 20 20 2a 20 00 db 01 06 00 4a 00 50 2a 20 20 45 58 49 54 3a 20 20 49 46 20 42 4c 4f 43 4b 20 41 4c 52 45 41 44 59 20 4d 4f 56 45 44 20 54 48 45 4e 20 43 52 3d 32 20 45 4c 53 45 20 43 52 3c 3e 32 20 20 20 20 20 20 20 ┆ * J P* EXIT: IF BLOCK ALREADY MOVED THEN CR=2 ELSE CR<>2 ┆
0xa5ca…a61a (108, 0, 400) 20 20 20 20 20 20 20 20 2a 20 00 db 01 54 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * T J P* ┆
0xa61a…a66a 20 20 20 20 20 20 2a 20 00 dc 00 12 00 4a 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 3a 20 20 41 31 2c 41 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J P* WORK REGISTER: A1,A2 ┆
0xa66a…a6ba 20 20 20 20 2a 20 00 dc 00 60 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ` J P* ┆
0xa6ba…a70a 20 20 2a 20 00 dc 00 ae 00 4a 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * J P* SUBROUTINES: ┆
0xa70a…a75a 2a 20 00 dc 00 fc 00 4a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆* J P* * ┆