|
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: 42826 (0xa74a)
Notes: pts_type(SC)
Names: »DRDY02.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/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 1 * * * BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344 * 6346, 6385 AND 6386. * X:B EQU 0 WHATDY EQU 0 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 1 LOWCHA EQU 0 * * * 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 0 * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU 1 * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING. * X:F EQU 1 STEADY EQU 1 * * 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 0 * * MEMORY MANAGEMENT BUFFER SIZE * X:H EQU 82 DVBLEN EQU 512 * * 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 1 * * 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…1268 Head {h00=0x0010, h01=0x0050, text=»FASTO EQU 1 «, t00=0x000b, t01=0x012e}
0x1268…1272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1272…127c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014c}
0x127c…12c8 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:B=1 THE DRIVER HANDLES OTHER DISPLAYS THAN PTS 6344«, t00=0x000b, t01=0x0156}
0x12c8…12e8 Head {h00=0x001c, h01=0x0050, text=»* 6346, 6385 AND 6386.«, t00=0x000c, t01=0x0012}
0x12e8…12f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0032}
0x12f2…1304 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x003c}
0x1304…1318 Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 0«, t00=0x000c, t01=0x004e}
0x1318…1322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1322…132c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006c}
0x132c…1368 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000c, t01=0x0076}
0x1368…1392 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000c, t01=0x00b2}
0x1392…13a4 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000c, t01=0x00dc}
0x13a4…13b8 Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000c, t01=0x00ee}
0x13b8…13c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0102}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010c}
0x13cc…1408 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000c, t01=0x0116}
0x1408…1444 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000c, t01=0x0152}
0x1444…1480 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000c, t01=0x018e}
0x1480…148a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x148a…149c Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000d, t01=0x0044}
0x149c…14b0 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000d, t01=0x0056}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006a}
0x14ba…14ee Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000d, t01=0x0074}
0x14ee…1532 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000d, t01=0x00a8}
0x1532…153c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ec}
0x153c…154e Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000d, t01=0x00f6}
0x154e…1562 Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000d, t01=0x0108}
0x1562…156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011c}
0x156c…15a2 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000d, t01=0x0126}
0x15a2…15c2 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING.«, t00=0x000d, t01=0x015c}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15cc…15de Head {h00=0x000e, h01=0x0050, text=»X:F EQU 1 «, t00=0x000d, t01=0x0186}
0x15de…15f2 Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 1«, t00=0x000e, t01=0x0008}
0x15f2…15fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15fc…1634 Head {h00=0x0034, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POS- «, t00=0x000e, t01=0x0026}
0x1634…1666 Head {h00=0x002e, h01=0x0050, text=»* SIBLE TO CHOOSE BETWEEN TEN DIFFERENT «, t00=0x000e, t01=0x005e}
0x1666…1696 Head {h00=0x002c, h01=0x0050, text=»* CHARACTER SETS, IF PTS 6385 IS USED.«, t00=0x000e, t01=0x0090}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x000e, t01=0x00ca}
0x16b6…16ca Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x000e, t01=0x00e0}
0x16ca…16de Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x000e, t01=0x00f4}
0x16de…16f2 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x000e, t01=0x0108}
0x16f2…1700 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x000e, t01=0x011c}
0x1700…1710 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x000e, t01=0x012a}
0x1710…1720 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x000e, t01=0x013a}
0x1720…1730 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x000e, t01=0x014a}
0x1730…173e Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x000e, t01=0x015a}
0x173e…174c Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x000e, t01=0x0168}
0x174c…175a Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x000e, t01=0x0176}
0x175a…176c Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x000e, t01=0x0184}
0x176c…1782 Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 0 «, t00=0x000f, t01=0x0008}
0x1782…178c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001e}
0x178c…17b6 Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x000f, t01=0x0028}
0x17b6…17c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0052}
0x17c0…17d2 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 82«, t00=0x000f, t01=0x005c}
0x17d2…17e8 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 512«, t00=0x000f, t01=0x006e}
0x17e8…17f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f2…1810 Head {h00=0x001a, h01=0x0050, text=»* MAXIMUM BLOCK SIZE«, t00=0x000f, t01=0x008e}
0x1810…181a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x181a…182e Head {h00=0x0010, h01=0x0050, text=»X:J EQU 140 «, t00=0x000f, t01=0x00b6}
0x182e…1844 Head {h00=0x0012, h01=0x0050, text=»MAXBLK EQU X:J«, t00=0x000f, t01=0x00ca}
0x1844…184e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e0}
0x184e…189e 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=0x00ea}
0x189e…18a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013a}
0x18a8…18ba Head {h00=0x000e, h01=0x0050, text=»X:I EQU 0 «, t00=0x000f, t01=0x0144}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=»PLASM EQU 1 «, t00=0x000f, t01=0x0156}
0x18ce…18d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18d8…190e Head {h00=0x0032, h01=0x0050, text=»* IF X:K = 1 IT IS POSSIBLE TO USE GREEK =4«, t00=0x000f, t01=0x0174}
0x190e…192c Head {h00=0x001a, h01=0x0050, text=»* CHARACTER SET =4 «, t00=0x0010, t01=0x001a}
0x192c…1936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0038}
0x1936…194c Head {h00=0x0012, h01=0x0050, text=»X:K EQU 0 =4 «, t00=0x0010, t01=0x0042}
0x194c…1966 Head {h00=0x0016, h01=0x0050, text=»GREECE EQU X:K =4«, t00=0x0010, t01=0x0058}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1970…197e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x007c}
0x197e…1988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x1988…19c6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0010, t01=0x0094}
0x19c6…19d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d0…19fa Head {h00=0x0026, h01=0x0050, text=»* A C T I V A T I O N P A R T «, t00=0x0010, t01=0x00dc}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a04…1a3c Head {h00=0x0034, h01=0x0050, text=»* THIS PART MAKES A START OF BLOCK, CHECKS THE«, t00=0x0010, t01=0x0110}
0x1a3c…1a78 Head {h00=0x0038, h01=0x0050, text=»* REQUESTED ORDER AND BRANCHES TO THE APPROPRIATE «, t00=0x0010, t01=0x0148}
0x1a78…1a98 Head {h00=0x001c, h01=0x0050, text=»* PART OF THE DRIVER. «, t00=0x0010, t01=0x0184}
0x1a98…1aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0014}
0x1aa2…1ae2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x001e}
0x1ae2…1aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005e}
0x1aec…1afe Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0011, t01=0x0068}
0x1afe…1b22 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0011, t01=0x007a}
0x1b22…1b56 Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 CLEAR CHARACTER COUNTER«, t00=0x0011, t01=0x009e}
0x1b56…1b7e Head {h00=0x0024, h01=0x0050, text=» LDKL A2,MAXBLK MAX. BLOCK SIZE «, t00=0x0011, t01=0x00d2}
0x1b7e…1ba2 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0011, t01=0x00fa}
0x1ba2…1bb8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER10«, t00=0x0011, t01=0x011e}
0x1bb8…1bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0134}
0x1bc2…1bd8 Head {h00=0x0012, h01=0x0050, text=»* TEST ORDER«, t00=0x0011, t01=0x013e}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0154}
0x1be2…1bfe Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 GET ORDER«, t00=0x0011, t01=0x015e}
0x1bfe…1c28 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DY100 ORDER 00, TEST STATUS«, t00=0x0011, t01=0x017a}
0x1c28…1c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0014}
0x1c32…1c44 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/5«, t00=0x0012, t01=0x001e}
0x1c44…1c6e Head {h00=0x0026, h01=0x0050, text=» RF(Z) DY200 ORDER 05, BASIC WRITE«, t00=0x0012, t01=0x0030}
0x1c6e…1c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005a}
0x1c78…1c8a Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0012, t01=0x0064}
0x1c8a…1cb6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DY300 ORDER 06,STANDARD WRITE«, t00=0x0012, t01=0x0076}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a2}
0x1cc0…1cd2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/5«, t00=0x0012, t01=0x00ac}
0x1cd2…1d06 Head {h00=0x0030, h01=0x0050, text=» ABL(Z) DY600 ORDER 0B, SET CURSOR AND WRITE«, t00=0x0012, t01=0x00be}
0x1d06…1d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f2}
0x1d10…1d24 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/26 «, t00=0x0012, t01=0x00fc}
0x1d24…1d4a Head {h00=0x0022, h01=0x0050, text=» ABL(Z) DY700 ORDER 31, ERASE «, t00=0x0012, t01=0x0110}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x1d54…1d72 Head {h00=0x001a, h01=0x0050, text=»* I/O-REQUEST ERROR «, t00=0x0012, t01=0x0140}
0x1d72…1d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d7c…1d90 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0012, t01=0x0168}
0x1d90…1db2 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0012, t01=0x017c}
0x1db2…1de2 Head {h00=0x002c, h01=0x0050, text=» ABL LENDER SET RETURN CODE AND END I/O «, t00=0x0013, t01=0x000e}
0x1de2…1df0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x003e}
0x1df0…1dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004c}
0x1dfa…1e3e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0013, t01=0x0056}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e48…1e6a Head {h00=0x001e, h01=0x0050, text=»* ORDER 00, TEST STATUS.«, t00=0x0013, t01=0x00a4}
0x1e6a…1ea6 Head {h00=0x0038, h01=0x0050, text=»* THIS PART SENDS A DUMMY CHARACTER TO THE DISPLAY«, t00=0x0013, t01=0x00c6}
0x1ea6…1ee4 Head {h00=0x003a, h01=0x0050, text=»* AND SETS BIT 15 IN THE RETURN CODE IF THE DISPLAY «, t00=0x0013, t01=0x0102}
0x1ee4…1f00 Head {h00=0x0018, h01=0x0050, text=»* IS NOT OPERABLE.«, t00=0x0013, t01=0x0140}
0x1f00…1f3e Head {h00=0x003a, h01=0x0050, text=»* THE CURSOR POSITION IS RETURNED IN CONTROL WORD OF«, t00=0x0013, t01=0x015c}
0x1f3e…1f7a Head {h00=0x0038, h01=0x0050, text=»* ECB, WITH LINE NUMBER IN LEFT BYTE AND COLUMN IN«, t00=0x0014, t01=0x000a}
0x1f7a…1f90 Head {h00=0x0012, h01=0x0050, text=»* THE RIGHT.«, t00=0x0014, t01=0x0046}
0x1f90…1f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005c}
0x1f9a…1fde Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0014, t01=0x0066}
0x1fde…1fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00aa}
0x1fe8…1ffc Head {h00=0x0010, h01=0x0050, text=»DY100 EQU * «, t00=0x0014, t01=0x00b4}
0x1ffc…2012 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DUMMY «, t00=0x0014, t01=0x00c8}
0x2012…2032 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0014, t01=0x00de}
0x2032…2048 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER10«, t00=0x0014, t01=0x00fe}
0x2048…2052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0114}
0x2052…2084 Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION«, t00=0x0014, t01=0x011e}
0x2084…20b8 Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 SAVE CURSOR POSITION IN ECB «, t00=0x0014, t01=0x0150}
0x20b8…20c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0184}
0x20c2…20d4 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0014, t01=0x018e}
0x20d4…20e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0010}
0x20e2…20ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20ec…2130 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x0028}
0x2130…213a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006c}
0x213a…215c Head {h00=0x001e, h01=0x0050, text=»* ORDER 05, BASIC WRITE.«, t00=0x0015, t01=0x0076}
0x215c…2190 Head {h00=0x0030, h01=0x0050, text=»* THIS ORDER SENDS THE REQUESTED NUMBER OF«, t00=0x0015, t01=0x0098}
0x2190…21c2 Head {h00=0x002e, h01=0x0050, text=»* CHARACTERS TO THE DISPLAY AND SETS THE«, t00=0x0015, t01=0x00cc}
0x21c2…21f6 Head {h00=0x0030, h01=0x0050, text=»* INTERNAL CURSOR POSITION COUNTER TO HOME«, t00=0x0015, t01=0x00fe}
0x21f6…2214 Head {h00=0x001a, h01=0x0050, text=»* POSITION. (/0101) «, t00=0x0015, t01=0x0132}
0x2214…221e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x221e…2262 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x015a}
0x2262…226c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x226c…2280 Head {h00=0x0010, h01=0x0050, text=»DY200 EQU * «, t00=0x0016, t01=0x0018}
0x2280…2296 Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0016, t01=0x002c}
0x2296…22c4 Head {h00=0x002a, h01=0x0050, text=» CF A15,TRASP SUPPRESS TRAILING SPACES«, t00=0x0016, t01=0x0042}
0x22c4…22d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0070}
0x22d0…22e4 Head {h00=0x0010, h01=0x0050, text=»DY205 EQU * «, t00=0x0016, t01=0x007c}
0x22e4…231a Head {h00=0x0032, h01=0x0050, text=» CF A15,GETCHR FETCH CHARACTER FROM ECB-BUFFER«, t00=0x0016, t01=0x0090}
0x231a…234e Head {h00=0x0030, h01=0x0050, text=» LDR A1,A1 IS THERE ANY CHARACTER TO SEND ? «, t00=0x0016, t01=0x00c6}
0x234e…2366 Head {h00=0x0014, h01=0x0050, text=» RF(NP) DY210 NO«, t00=0x0016, t01=0x00fa}
0x2366…2380 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0016, t01=0x0112}
0x2380…239a Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x0016, t01=0x012c}
0x239a…23a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0146}
0x23a6…23b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0152}
0x23b0…23da Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT YES ! SEND CHARACTER«, t00=0x0016, t01=0x015c}
0x23da…23f0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0016, t01=0x0186}
0x23f0…23fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000c}
0x23fa…2428 Head {h00=0x002a, h01=0x0050, text=» CF A15,POSUPD UPDATE POSITION COUNTER«, t00=0x0017, t01=0x0016}
0x2428…2432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0044}
0x2432…246a Head {h00=0x0034, h01=0x0050, text=»* CHECK IF MAX. BLOCKSIZE IS REACHED. START A «, t00=0x0017, t01=0x004e}
0x246a…248a Head {h00=0x001c, h01=0x0050, text=»* NEW BLOCK IF IT IS. «, t00=0x0017, t01=0x0086}
0x248a…2494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a6}
0x2494…24cc Head {h00=0x0034, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER«, t00=0x0017, t01=0x00b0}
0x24cc…24f2 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x0017, t01=0x00e8}
0x24f2…2520 Head {h00=0x002a, h01=0x0050, text=» CW A2,DWTBLC+DWTDEV,A6 BLOCK FILLED ?«, t00=0x0017, t01=0x010e}
0x2520…252a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013c}
0x252a…2552 Head {h00=0x0024, h01=0x0050, text=» RB(G) DY205 NO ! NEXT CHARACTER«, t00=0x0017, t01=0x0146}
0x2552…255c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016e}
0x255c…2582 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK YES ! END BLOCK «, t00=0x0017, t01=0x0178}
0x2582…2598 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0018, t01=0x000e}
0x2598…25be Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x0018, t01=0x0024}
0x25be…25e4 Head {h00=0x0022, h01=0x0050, text=» CF A5,STABLK START NEW BLOCK «, t00=0x0018, t01=0x004a}
0x25e4…25fa Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER05«, t00=0x0018, t01=0x0070}
0x25fa…262e Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x0018, t01=0x0086}
0x262e…264e Head {h00=0x001c, h01=0x0050, text=» RB DY205 NEXT CHARACTER«, t00=0x0018, t01=0x00ba}
0x264e…2658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00da}
0x2658…266c Head {h00=0x0010, h01=0x0050, text=»DY210 EQU * «, t00=0x0018, t01=0x00e4}
0x266c…269a Head {h00=0x002a, h01=0x0050, text=» CF A15,UPDAPP RESET POSITION COUNTER «, t00=0x0018, t01=0x00f8}
0x269a…26a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0126}
0x26a4…26d4 Head {h00=0x002c, h01=0x0050, text=» LDKL A4,/0101 SET HEAD POSITION COUNTER«, t00=0x0018, t01=0x0130}
0x26d4…270c Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 TO HOME POSITION. (/0101)«, t00=0x0018, t01=0x0160}
0x270c…274a Head {h00=0x003a, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER«, t00=0x0019, t01=0x0008}
0x274a…2754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x2754…2772 Head {h00=0x001a, h01=0x0050, text=» ABL DY493 END REQUEST«, t00=0x0019, t01=0x0050}
0x2772…277c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x277c…2790 Head {h00=0x0010, h01=0x0050, text=»DYER05 EQU *«, t00=0x0019, t01=0x0078}
0x2790…27d6 Head {h00=0x0042, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTERS-IN-BLOCK COUNTER BEFORE «, t00=0x0019, t01=0x008c}
0x27d6…2802 Head {h00=0x0028, h01=0x0050, text=» RF DYER10 ERROR ROUTINE IS ENTERED «, t00=0x0019, t01=0x00d2}
0x2802…2810 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00fe}
0x2810…281a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010c}
0x281a…285e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0019, t01=0x0116}
0x285e…2868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015a}
0x2868…288e Head {h00=0x0022, h01=0x0050, text=»* ORDER 06, STANDARD WRITE. «, t00=0x0019, t01=0x0164}
0x288e…28cc Head {h00=0x003a, h01=0x0050, text=»* THIS PART CHECKS IF THE REQUESTED LENGTH IS ZERO. «, t00=0x0019, t01=0x018a}
0x28cc…290e Head {h00=0x003e, h01=0x0050, text=»* IF IT IS, CARRIAGE RETURN AND LINE FEED ARE SENT, AND «, t00=0x001a, t01=0x0038}
0x290e…2934 Head {h00=0x0022, h01=0x0050, text=»* THE REQUEST IS COMPLETED. «, t00=0x001a, t01=0x007a}
0x2934…297e Head {h00=0x0046, h01=0x0050, text=»* ELSE THIS PART LOOKS FOR A CONTROL CHARACTER IN THE FIRST WORD«, t00=0x001a, t01=0x00a0}
0x297e…29c2 Head {h00=0x0040, h01=0x0050, text=»* IN THE ECB-BUFFER AND CARRIES OUT THE DESIRED FUNCTION. «, t00=0x001a, t01=0x00ea}
0x29c2…2a02 Head {h00=0x003c, h01=0x0050, text=»* THEN IT CHECKS AND SENDS THE REST OF THE CHARACTERS «, t00=0x001a, t01=0x012e}
0x2a02…2a40 Head {h00=0x003a, h01=0x0050, text=»* IN THE ECB-BUFFER TO THE DISPLAY UNLESS A SPECIAL «, t00=0x001a, t01=0x016e}
0x2a40…2a90 Head {h00=0x004c, h01=0x0050, text=»* CHARACTER ( /07, /11, /12, /13, /14, /1E, /1F, /AE ) IS RECOGNIZED. «, t00=0x001b, t01=0x001c}
0x2a90…2ad6 Head {h00=0x0042, h01=0x0050, text=»* IF A SPECIAL CHARACTER IS FOUND, THE APPROPRIATE FUNCTION «, t00=0x001b, t01=0x006c}
0x2ad6…2b10 Head {h00=0x0036, h01=0x0050, text=»* IS CARRIED OUT BEFORE NEXT CHARACTER IS SENT. «, t00=0x001b, t01=0x00b2}
0x2b10…2b50 Head {h00=0x003c, h01=0x0050, text=»* WHEN ALL CHARACTERS ARE SENT, THE CURSOR POSITION IS«, t00=0x001b, t01=0x00ec}
0x2b50…2b7e Head {h00=0x002a, h01=0x0050, text=»* SAVED IN THE CONTROL WORD OF ECB. «, t00=0x001b, t01=0x012c}
0x2b7e…2b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015a}
0x2b88…2bcc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0164}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bd6…2bea Head {h00=0x0010, h01=0x0050, text=»DY300 EQU * «, t00=0x001c, t01=0x0022}
0x2bea…2bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0036}
0x2bf4…2c16 Head {h00=0x001e, h01=0x0050, text=»* TEST REQUESTED LENGTH «, t00=0x001c, t01=0x0040}
0x2c16…2c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0062}
0x2c20…2c5a Head {h00=0x0036, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH. IS IT ZERO ?«, t00=0x001c, t01=0x006c}
0x2c5a…2c74 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY307 YES !«, t00=0x001c, t01=0x00a6}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c0}
0x2c7e…2ca0 Head {h00=0x001e, h01=0x0050, text=»* TEST CONTROL CHARACTER«, t00=0x001c, t01=0x00ca}
0x2ca0…2caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ec}
0x2caa…2cbe Head {h00=0x0010, h01=0x0050, text=»DY305 EQU * «, t00=0x001c, t01=0x00f6}
0x2cbe…2ce8 Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x010a}
0x2ce8…2d12 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x0134}
0x2d12…2d26 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x015e}
0x2d26…2d4e Head {h00=0x0024, h01=0x0050, text=» ADK A3,2 INCREMENT BUFFER INDEX«, t00=0x001c, t01=0x0172}
0x2d4e…2d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x000a}
0x2d58…2d6c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/2B «, t00=0x001d, t01=0x0014}
0x2d6c…2d94 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DY335 NO MOVING OF CURSOR«, t00=0x001d, t01=0x0028}
0x2d94…2da8 Head {h00=0x0010, h01=0x0050, text=»DY307 EQU * «, t00=0x001d, t01=0x0050}
0x2da8…2db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0064}
0x2db2…2de6 Head {h00=0x0030, h01=0x0050, text=» LDK A4,1 FIRST POSITION AND ONE LINE FEED. «, t00=0x001d, t01=0x006e}
0x2de6…2e22 Head {h00=0x0038, h01=0x0050, text=» SC A4,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER«, t00=0x001d, t01=0x00a2}
0x2e22…2e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00de}
0x2e2c…2e4e Head {h00=0x001e, h01=0x0050, text=» SUK A2,/5 TWO LINE FEED ?«, t00=0x001d, t01=0x00e8}
0x2e4e…2e68 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DY310 NO !«, t00=0x001d, t01=0x010a}
0x2e68…2e96 Head {h00=0x002a, h01=0x0050, text=» LDK A4,2 YES ! INDICATE TWO LINE FEED«, t00=0x001d, t01=0x0124}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea0…2eb4 Head {h00=0x0010, h01=0x0050, text=»DY310 EQU * «, t00=0x001d, t01=0x015c}
0x2eb4…2ece Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 ERASE ? «, t00=0x001d, t01=0x0170}
0x2ece…2f06 Head {h00=0x0034, h01=0x0050, text=» RF(Z) DY330 YES ! CONTROL CHARACTER MEANS ERASE«, t00=0x001d, t01=0x018a}
0x2f06…2f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f10…2f32 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x001e, t01=0x003c}
0x2f32…2f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x005e}
0x2f3c…2f50 Head {h00=0x0010, h01=0x0050, text=»DY320 EQU * «, t00=0x001e, t01=0x0068}
0x2f50…2f6a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001e, t01=0x007c}
0x2f6a…2f86 Head {h00=0x0018, h01=0x0050, text=»DYER10 RF(NZ) DYER15«, t00=0x001e, t01=0x0096}
0x2f86…2f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b2}
0x2f90…2faa Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x001e, t01=0x00bc}
0x2faa…2fde Head {h00=0x0030, h01=0x0050, text=» RF(N) DY335 YES ! START WRITING ON DISPLAY «, t00=0x001e, t01=0x00d6}
0x2fde…2fe8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010a}
0x2fe8…3028 Head {h00=0x003c, h01=0x0050, text=» LC A1,DWTLIN+DWTDEV,A6 MAX. NUMBER OF LINES ON DISPLAY «, t00=0x001e, t01=0x0114}
0x3028…305e Head {h00=0x0032, h01=0x0050, text=» CC A1,DWTAP+DWTDEV,A6 ALREADY ON LAST LINE ? «, t00=0x001e, t01=0x0154}
0x305e…307a Head {h00=0x0018, h01=0x0050, text=» RF(NG) DY325 YES ! «, t00=0x001e, t01=0x018a}
0x307a…3084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0016}
0x3084…30b6 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/100 NO ! INCREMENT LINE COUNTER «, t00=0x001f, t01=0x0020}
0x30b6…30d6 Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTAP+DWTDEV,A6 «, t00=0x001f, t01=0x0052}
0x30d6…30ea Head {h00=0x0010, h01=0x0050, text=»DY325 EQU * «, t00=0x001f, t01=0x0072}
0x30ea…3110 Head {h00=0x0022, h01=0x0050, text=» LDK A2,LF LINE FEED CHARACTER«, t00=0x001f, t01=0x0086}
0x3110…3136 Head {h00=0x0022, h01=0x0050, text=» RB DY320 SEND NEXT LINE FEED «, t00=0x001f, t01=0x00ac}
0x3136…3140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d2}
0x3140…3154 Head {h00=0x0010, h01=0x0050, text=»DY330 EQU * «, t00=0x001f, t01=0x00dc}
0x3154…3186 Head {h00=0x002e, h01=0x0050, text=» SC A4,DWTAP+DWTDEV,A6 RESET LINE COUNTER «, t00=0x001f, t01=0x00f0}
0x3186…31b2 Head {h00=0x0028, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND CURSOR HOME«, t00=0x001f, t01=0x0122}
0x31b2…31e8 Head {h00=0x0032, h01=0x0050, text=» LDK A4,0 INDICATE ONLY ONE CHARACTER TO SEND «, t00=0x001f, t01=0x014e}
0x31e8…31fe Head {h00=0x0012, h01=0x0050, text=» RB DY320 SEND«, t00=0x001f, t01=0x0184}
0x31fe…320c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x000a}
0x320c…3216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0018}
0x3216…3220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0022}
0x3220…325c Head {h00=0x0038, h01=0x0050, text=»* WRITING PART, ORDER 06 (ALSO USED BY ORDER 0B). «, t00=0x0020, t01=0x002c}
0x325c…3266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0068}
0x3266…3270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0072}
0x3270…3284 Head {h00=0x0010, h01=0x0050, text=»DY335 EQU * «, t00=0x0020, t01=0x007c}
0x3284…329a Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x0090}
0x329a…32c8 Head {h00=0x002a, h01=0x0050, text=» CF A15,TRASP SUPPRESS TRAILING SPACES«, t00=0x0020, t01=0x00a6}
0x32c8…32d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00d4}
0x32d4…32e8 Head {h00=0x0010, h01=0x0050, text=»DY340 EQU * «, t00=0x0020, t01=0x00e0}
0x32e8…331c Head {h00=0x0030, h01=0x0050, text=» CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0020, t01=0x00f4}
0x331c…3326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0128}
0x3326…334a Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x0020, t01=0x0132}
0x334a…3366 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) DY405 YES !«, t00=0x0020, t01=0x0156}
0x3366…3380 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0020, t01=0x0172}
0x3380…339a Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x0020, t01=0x018c}
0x339a…33a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0016}
0x33a6…33b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33b0…33d4 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A2 CHECK CODE LIMITS«, t00=0x0021, t01=0x002c}
0x33d4…33e8 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/20 «, t00=0x0021, t01=0x0050}
0x33e8…3416 Head {h00=0x002a, h01=0x0050, text=» RF(N) DY380 TEST IF SPECIAL CHARACTER«, t00=0x0021, t01=0x0064}
0x3416…342a Head {h00=0x0010, h01=0x0050, text=» SUK A4,/5F «, t00=0x0021, t01=0x0092}
0x342a…3458 Head {h00=0x002a, h01=0x0050, text=» RF(P) DY380 TEST IF SPECIAL CHARACTER«, t00=0x0021, t01=0x00a6}
0x3458…346c Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0021, t01=0x00d4}
0x346c…3482 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0021, t01=0x00e8}
0x3482…34bc Head {h00=0x0036, h01=0x0050, text=» LDK A4,0 RESET A4 BEFORE ENTERING THE OUTPUT SEQ.«, t00=0x0021, t01=0x00fe}
0x34bc…34ea Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? «, t00=0x0021, t01=0x0138}
0x34ea…3500 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x0021, t01=0x0166}
0x3500…351c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FAST80 NO ! «, t00=0x0021, t01=0x017c}
0x351c…3528 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0008}
0x3528…353c Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0022, t01=0x0014}
0x353c…3546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0028}
0x3546…3550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0032}
0x3550…3586 Head {h00=0x0032, h01=0x0050, text=»* FAST OUTPUT SHOULD BE USED IF A NUMBER OF «, t00=0x0022, t01=0x003c}
0x3586…35ae Head {h00=0x0024, h01=0x0050, text=»* CHARACTERS ARE FOUND EQUAL. «, t00=0x0022, t01=0x0072}
0x35ae…35b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009a}
0x35b8…35c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a4}
0x35c2…35ec Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0022, t01=0x00ae}
0x35ec…3610 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 ADD BUFFER INDEX «, t00=0x0022, t01=0x00d8}
0x3610…361a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00fc}
0x361a…3624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0106}
0x3624…365c Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET POSITION ON THE LINE «, t00=0x0022, t01=0x0110}
0x365c…367a Head {h00=0x001a, h01=0x0050, text=» AD A4,DWTAP+DWTDEV,A6«, t00=0x0022, t01=0x0148}
0x367a…368e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0022, t01=0x0166}
0x368e…3698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017a}
0x3698…36ac Head {h00=0x0010, h01=0x0050, text=»FAST10 EQU *«, t00=0x0022, t01=0x0184}
0x36ac…36da Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 INCREMENT CHARACTER COUNTER «, t00=0x0023, t01=0x0008}
0x36da…3714 Head {h00=0x0036, h01=0x0050, text=» CCR A2,A1 NEXT CHAR. IN BUFFER EQUAL TO CURRENT ?«, t00=0x0023, t01=0x0036}
0x3714…3730 Head {h00=0x0018, h01=0x0050, text=» RF(NE) FAST40 NO ! «, t00=0x0023, t01=0x0070}
0x3730…373a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008c}
0x373a…376a Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 MAX. POSITIONS ?«, t00=0x0023, t01=0x0096}
0x376a…3786 Head {h00=0x0018, h01=0x0050, text=» RF(NL) FAST40 YES !«, t00=0x0023, t01=0x00c6}
0x3786…3790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x3790…37ba Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 REQUESTED LENGTH ?«, t00=0x0023, t01=0x00ec}
0x37ba…37d6 Head {h00=0x0018, h01=0x0050, text=» RF(NL) FAST40 YES !«, t00=0x0023, t01=0x0116}
0x37d6…37e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0132}
0x37e0…3804 Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 INCREMENT COUNTERS«, t00=0x0023, t01=0x013c}
0x3804…3816 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0160}
0x3816…383e Head {h00=0x0024, h01=0x0050, text=» RB FAST10 CHECK NEXT CHARACTER «, t00=0x0023, t01=0x0172}
0x383e…3848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x3848…385c Head {h00=0x0010, h01=0x0050, text=»FAST40 EQU *«, t00=0x0024, t01=0x0014}
0x385c…389a Head {h00=0x003a, h01=0x0050, text=» LD A1,DWTAP+DWTDEV,A6 GET NUMBER OF EQUAL CHARACTERS «, t00=0x0024, t01=0x0028}
0x389a…38b8 Head {h00=0x001a, h01=0x0050, text=» AD A1,DWTBC+DWTDEV,A6«, t00=0x0024, t01=0x0066}
0x38b8…38cc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0024, t01=0x0084}
0x38cc…38de Head {h00=0x000e, h01=0x0050, text=» SUR A4,A1«, t00=0x0024, t01=0x0098}
0x38de…38e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00aa}
0x38e8…3922 Head {h00=0x0036, h01=0x0050, text=» CWK A4,FASTNR COND. FOR FAST OUTPUT FULLFILLED ? «, t00=0x0024, t01=0x00b4}
0x3922…393c Head {h00=0x0016, h01=0x0050, text=» RF(L) FAST80 NO !«, t00=0x0024, t01=0x00ee}
0x393c…3946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0108}
0x3946…3978 Head {h00=0x002e, h01=0x0050, text=»* YES ! SEND CHARACTERS WITH FAST OUTPUT«, t00=0x0024, t01=0x0112}
0x3978…3982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0144}
0x3982…39ba Head {h00=0x0034, h01=0x0050, text=» ADS A4,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER «, t00=0x0024, t01=0x014e}
0x39ba…39c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c4…39ea Head {h00=0x0022, h01=0x0050, text=» SLC A3,8 SAVE BUFFER POINTER «, t00=0x0024, t01=0x0190}
0x39ea…39fc Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0025, t01=0x0026}
0x39fc…3a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a06…3a1c Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0025, t01=0x0042}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0025, t01=0x0058}
0x3a2e…3a42 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/5F «, t00=0x0025, t01=0x006a}
0x3a42…3a58 Head {h00=0x0012, h01=0x0050, text=» RF(NP) FAST30«, t00=0x0025, t01=0x007e}
0x3a58…3a6c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0025, t01=0x0094}
0x3a6c…3a80 Head {h00=0x0010, h01=0x0050, text=»FAST30 EQU *«, t00=0x0025, t01=0x00a8}
0x3a80…3a8c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00bc}
0x3a8c…3aa0 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0025, t01=0x00c8}
0x3aa0…3ac8 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 PUT CHARACTER INTO A3«, t00=0x0025, t01=0x00dc}
0x3ac8…3ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0104}
0x3ad2…3ae8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x010e}
0x3ae8…3af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0124}
0x3af2…3b1c Head {h00=0x0026, h01=0x0050, text=» LDR A3,A4 RESTORE BUFFER POINTER «, t00=0x0025, t01=0x012e}
0x3b1c…3b2e Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x0025, t01=0x0158}
0x3b2e…3b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016a}
0x3b38…3b6a Head {h00=0x002e, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET CURSOR POSITION«, t00=0x0025, t01=0x0174}
0x3b6a…3b7e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0026, t01=0x0016}
0x3b7e…3b9c Head {h00=0x001a, h01=0x0050, text=» AD A4,DWTAP+DWTDEV,A6«, t00=0x0026, t01=0x002a}
0x3b9c…3ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0048}
0x3ba6…3bc6 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0026, t01=0x0052}
0x3bc6…3be6 Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x0026, t01=0x0072}
0x3be6…3bfa Head {h00=0x0010, h01=0x0050, text=»FAST80 EQU *«, t00=0x0026, t01=0x0092}
0x3bfa…3c06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00a6}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b2}
0x3c10…3c3a Head {h00=0x0026, h01=0x0050, text=» IFT LOWCHA=0 LOWER CASE NOT USED «, t00=0x0026, t01=0x00bc}
0x3c3a…3c4c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0026, t01=0x00e6}
0x3c4c…3c60 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/5F «, t00=0x0026, t01=0x00f8}
0x3c60…3c76 Head {h00=0x0012, h01=0x0050, text=» RF(NP) DY360 «, t00=0x0026, t01=0x010c}
0x3c76…3c8a Head {h00=0x0010, h01=0x0050, text=» SUK A2,/20 «, t00=0x0026, t01=0x0122}
0x3c8a…3c9e Head {h00=0x0010, h01=0x0050, text=»DY360 EQU * «, t00=0x0026, t01=0x0136}
0x3c9e…3caa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x014a}
0x3caa…3cbe Head {h00=0x0010, h01=0x0050, text=»DY370 EQU * «, t00=0x0026, t01=0x0156}
0x3cbe…3ce2 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0026, t01=0x016a}
0x3ce2…3d00 Head {h00=0x001a, h01=0x0050, text=»DYER15 ABL(NZ) DYER20 «, t00=0x0026, t01=0x018e}
0x3d00…3d2e Head {h00=0x002a, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATE«, t00=0x0027, t01=0x001c}
0x3d2e…3d42 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0027, t01=0x004a}
0x3d42…3d58 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0027, t01=0x005e}
0x3d58…3d86 Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTDEV,A6 6344, 6385 OR 6386 ? «, t00=0x0027, t01=0x0074}
0x3d86…3d9c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x0027, t01=0x00a2}
0x3d9c…3db8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FAST90 NO ! «, t00=0x0027, t01=0x00b8}
0x3db8…3dc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00d4}
0x3dc4…3dd8 Head {h00=0x0010, h01=0x0050, text=» IFT FASTO=1«, t00=0x0027, t01=0x00e0}
0x3dd8…3e06 Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DECREMENT CHARACTER COUNTER «, t00=0x0027, t01=0x00f4}
0x3e06…3e3c Head {h00=0x0032, h01=0x0050, text=» RB(NP) DY340 ALL CHECKED CHARS. SENT ! NEXT !«, t00=0x0027, t01=0x0122}
0x3e3c…3e70 Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBBA,A8 GET CHARACTER TO SEND AGAIN «, t00=0x0027, t01=0x0158}
0x3e70…3e82 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0027, t01=0x018c}
0x3e82…3e96 Head {h00=0x0010, h01=0x0050, text=» LC A2,-1,A2«, t00=0x0028, t01=0x000e}
0x3e96…3eb8 Head {h00=0x001e, h01=0x0050, text=» ANK A2,/7F MASK CHARACTER«, t00=0x0028, t01=0x0022}
0x3eb8…3eca Head {h00=0x000e, h01=0x0050, text=» RB FAST80«, t00=0x0028, t01=0x0044}
0x3eca…3ede Head {h00=0x0010, h01=0x0050, text=»FAST90 EQU *«, t00=0x0028, t01=0x0056}
0x3ede…3eea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006a}
0x3eea…3f0a Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x0028, t01=0x0076}
0x3f0a…3f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0096}
0x3f14…3f3a Head {h00=0x0022, h01=0x0050, text=»* TEST IF SPECIAL CHARACTER «, t00=0x0028, t01=0x00a0}
0x3f3a…3f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c6}
0x3f44…3f58 Head {h00=0x0010, h01=0x0050, text=»DY380 EQU * «, t00=0x0028, t01=0x00d0}
0x3f58…3f72 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 RESET A4«, t00=0x0028, t01=0x00e4}
0x3f72…3f8e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 CHARACTER«, t00=0x0028, t01=0x00fe}
0x3f8e…3f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011a}
0x3f98…3fba Head {h00=0x001e, h01=0x0050, text=» SUK A1,/07 BELL ( /07 ) ?«, t00=0x0028, t01=0x0124}
0x3fba…3fda Head {h00=0x001c, h01=0x0050, text=» RF(Z) DY467 YES ! SEND «, t00=0x0028, t01=0x0146}
0x3fda…3fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0166}
0x3fe4…400c Head {h00=0x0024, h01=0x0050, text=» SUK A1,/A TABULATION ( /11 ) ? «, t00=0x0028, t01=0x0170}
0x400c…4042 Head {h00=0x0032, h01=0x0050, text=» ABL(Z) ADY140 YES ! GO TO TABULATION ROUTINE «, t00=0x0029, t01=0x0008}
0x4042…404c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003e}
0x404c…4074 Head {h00=0x0024, h01=0x0050, text=» SUK A1,/3 FAST OUTPUT ( /14 ) ?«, t00=0x0029, t01=0x0048}
0x4074…40a2 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DY390 YES ! GO TO THAT ROUTINE «, t00=0x0029, t01=0x0070}
0x40a2…40ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x009e}
0x40ac…40d0 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/9A POINT ( /AE ) ? «, t00=0x0029, t01=0x00a8}
0x40d0…40f8 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DY410 YES ! LOAD AND SEND«, t00=0x0029, t01=0x00cc}
0x40f8…4118 Head {h00=0x001c, h01=0x0050, text=» IFF WHATDY+PLASM=0 =4 «, t00=0x0029, t01=0x00f4}
0x4118…4138 Head {h00=0x001c, h01=0x0050, text=»* IF PTS 6344 IS USED «, t00=0x0029, t01=0x0114}
0x4138…416a Head {h00=0x002e, h01=0x0050, text=» LD A4,DWTDEV,A6 CHECK IF PTS 6344 IS USED«, t00=0x0029, t01=0x0134}
0x416a…4180 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/3000«, t00=0x0029, t01=0x0166}
0x4180…419a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) DY385 NO !«, t00=0x0029, t01=0x017c}
0x419a…41a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0008}
0x41a6…41b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0014}
0x41b0…41de Head {h00=0x002a, h01=0x0050, text=» ADK A1,/9C UNDERLINE START ( /12 ) ? «, t00=0x002a, t01=0x001e}
0x41de…41f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x004c}
0x41f8…4202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0066}
0x4202…422e Head {h00=0x0028, h01=0x0050, text=» SUK A1,/1 UNDERLINE STOP ( /13 ) ? «, t00=0x002a, t01=0x0070}
0x422e…4248 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x009c}
0x4248…4252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b6}
0x4252…4282 Head {h00=0x002c, h01=0x0050, text=» SUK A1,/B LOW INTENSITY START ( /1E) ? «, t00=0x002a, t01=0x00c0}
0x4282…429c Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x00f0}
0x429c…42a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010a}
0x42a6…42d6 Head {h00=0x002c, h01=0x0050, text=» SUK A1,/1 LOW INTENSITY STOP ( /1F ) ? «, t00=0x002a, t01=0x0114}
0x42d6…42f0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY467 YES !«, t00=0x002a, t01=0x0144}
0x42f0…42fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015e}
0x42fa…4318 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL CHARACTER «, t00=0x002a, t01=0x0168}
0x4318…4322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0186}
0x4322…4336 Head {h00=0x0010, h01=0x0050, text=»DY385 EQU * «, t00=0x002a, t01=0x0190}
0x4336…435c Head {h00=0x0022, h01=0x0050, text=» LDK A1,CCERR CODE CHECK ERROR«, t00=0x002b, t01=0x0014}
0x435c…438c Head {h00=0x002c, h01=0x0050, text=» ORS A1,ECBRC,A8 SET RETURN CODE OF ECB «, t00=0x002b, t01=0x003a}
0x438c…43ac Head {h00=0x001c, h01=0x0050, text=» RB DY340 NEXT CHARACTER«, t00=0x002b, t01=0x006a}
0x43ac…43ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x008a}
0x43ba…43c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0098}
0x43c4…43e8 Head {h00=0x0020, h01=0x0050, text=»* ROUTINE FOR FAST OUTPUT «, t00=0x002b, t01=0x00a2}
0x43e8…43f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c6}
0x43f2…4406 Head {h00=0x0010, h01=0x0050, text=»DY390 EQU * «, t00=0x002b, t01=0x00d0}
0x4406…441c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x002b, t01=0x00e4}
0x441c…444a Head {h00=0x002a, h01=0x0050, text=» LD A4,ECBCW,A8 RESTORE OLD REQ. LEN. «, t00=0x002b, t01=0x00fa}
0x444a…4462 Head {h00=0x0014, h01=0x0050, text=» ST A4,ECBRL,A8 «, t00=0x002b, t01=0x0128}
0x4462…446e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0140}
0x446e…449a Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x002b, t01=0x014c}
0x449a…44a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0178}
0x44a4…44cc Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBRL,A8 REQUESTED LENGTH«, t00=0x002b, t01=0x0182}
0x44cc…4500 Head {h00=0x0030, h01=0x0050, text=» SUR A4,A3 GET NUMBER OF CHARACTERS TO SEND «, t00=0x002c, t01=0x001a}
0x4500…451c Head {h00=0x0018, h01=0x0050, text=» RF(NP) DY400 NONE !«, t00=0x002c, t01=0x004e}
0x451c…4536 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x002c, t01=0x006a}
0x4536…4550 Head {h00=0x0016, h01=0x0050, text=» CF A15,GRCHAR =4«, t00=0x002c, t01=0x0084}
0x4550…455c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x009e}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00aa}
0x4566…458e Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 LOAD CHARACTER IN A3 «, t00=0x002c, t01=0x00b4}
0x458e…4598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00dc}
0x4598…45c4 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x002c, t01=0x00e6}
0x45c4…45ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0112}
0x45ce…45e2 Head {h00=0x0010, h01=0x0050, text=»DY400 EQU * «, t00=0x002c, t01=0x011c}
0x45e2…461c Head {h00=0x0036, h01=0x0050, text=» LD A3,ECBRL,A8 GET REQ. LEN. TO STORE IN EFF. LEN«, t00=0x002c, t01=0x0130}
0x461c…4626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016a}
0x4626…464e Head {h00=0x0024, h01=0x0050, text=»DY405 RF DY470 GO TO COMMON END «, t00=0x002c, t01=0x0174}
0x464e…4658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000c}
0x4658…4670 Head {h00=0x0014, h01=0x0050, text=»* SEND A POINT«, t00=0x002d, t01=0x0016}
0x4670…467a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x467a…468e Head {h00=0x0010, h01=0x0050, text=»DY410 EQU * «, t00=0x002d, t01=0x0038}
0x468e…46b4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,/2E GET CODE FOR POINT«, t00=0x002d, t01=0x004c}
0x46b4…46d0 Head {h00=0x0018, h01=0x0050, text=» RB DY370 SEND POINT«, t00=0x002d, t01=0x0072}
0x46d0…46da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008e}
0x46da…46ee Head {h00=0x0010, h01=0x0050, text=»DY467 EQU * «, t00=0x002d, t01=0x0098}
0x46ee…471a Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SPECIAL CHARACTER«, t00=0x002d, t01=0x00ac}
0x471a…473a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DYER20 NOT OK ! «, t00=0x002d, t01=0x00d8}
0x473a…475e Head {h00=0x0020, h01=0x0050, text=» ABL DY340 NEXT CHARACTER ! «, t00=0x002d, t01=0x00f8}
0x475e…476c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x011c}
0x476c…47b0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002d, t01=0x012a}
0x47b0…47ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016e}
0x47ba…47d2 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x002d, t01=0x0178}
0x47d2…47dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0190}
0x47dc…4820 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x002e, t01=0x000a}
0x4820…4834 Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002e, t01=0x004e}
0x4834…4864 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002e, t01=0x0062}
0x4864…4876 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002e, t01=0x0092}
0x4876…48a8 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002e, t01=0x00a4}
0x48a8…48ba Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002e, t01=0x00d6}
0x48ba…48cc Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002e, t01=0x00e8}
0x48cc…48e2 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002e, t01=0x00fa}
0x48e2…4916 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002e, t01=0x0110}
0x4916…4928 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x0144}
0x4928…493e Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002e, t01=0x0156}
0x493e…4964 Head {h00=0x0022, h01=0x0050, text=»ADY144 LC A4,DWTAP+DWTDEV+1,A6«, t00=0x002e, t01=0x016c}
0x4964…4996 (47, 0, 400) Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002f, t01=0x0004}
0x4996…49b4 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6«, t00=0x002f, t01=0x0036}
0x49b4…49e4 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002f, t01=0x0054}
0x49e4…4a0e Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002f, t01=0x0084}
0x4a0e…4a34 Head {h00=0x0022, h01=0x0050, text=» ABL(NP) DY340 NEXT CHARACTER «, t00=0x002f, t01=0x00ae}
0x4a34…4a46 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002f, t01=0x00d4}
0x4a46…4a70 Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002f, t01=0x00e6}
0x4a70…4a86 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002f, t01=0x0110}
0x4a86…4a9c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER20«, t00=0x002f, t01=0x0126}
0x4a9c…4acc Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002f, t01=0x013c}
0x4acc…4ae6 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002f, t01=0x016c}
0x4ae6…4b00 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002f, t01=0x0186}
0x4b00…4b22 Head {h00=0x001e, h01=0x0050, text=» ABL DY340 NEXT CHARACTER «, t00=0x0030, t01=0x0010}
0x4b22…4b30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0032}
0x4b30…4b76 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0030, t01=0x0040}
0x4b76…4b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0086}
0x4b80…4bc2 Head {h00=0x003e, h01=0x0050, text=»* COMMON END. ALL CHARACTERS ARE SENT. RESET MODES WHICH«, t00=0x0030, t01=0x0090}
0x4bc2…4bf4 Head {h00=0x002e, h01=0x0050, text=»* HAS BEEN SET UP BY SPECIAL CHARACTERS.«, t00=0x0030, t01=0x00d2}
0x4bf4…4bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0104}
0x4bfe…4c44 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0030, t01=0x010e}
0x4c44…4c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0154}
0x4c4e…4c62 Head {h00=0x0010, h01=0x0050, text=»DY470 EQU * «, t00=0x0030, t01=0x015e}
0x4c62…4c88 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0030, t01=0x0172}
0x4c88…4ca2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0031, t01=0x0008}
0x4ca2…4cbe Head {h00=0x0018, h01=0x0050, text=»DYER20 RF(NZ) DYER30«, t00=0x0031, t01=0x0022}
0x4cbe…4cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003e}
0x4cc8…4cf2 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0031, t01=0x0048}
0x4cf2…4d0c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0031, t01=0x0072}
0x4d0c…4d22 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0031, t01=0x008c}
0x4d22…4d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a2}
0x4d2c…4d60 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0031, t01=0x00ac}
0x4d60…4d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e0}
0x4d6a…4d7e Head {h00=0x0010, h01=0x0050, text=»DY493 EQU * «, t00=0x0031, t01=0x00ea}
0x4d7e…4d94 Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0031, t01=0x00fe}
0x4d94…4dac Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0031, t01=0x0114}
0x4dac…4de0 Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBRL,A8 RESTORE OLD REQUESTED LENGTH«, t00=0x0031, t01=0x012c}
0x4de0…4dec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0160}
0x4dec…4e1c Head {h00=0x002c, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFF. LENGTH IN ECB«, t00=0x0031, t01=0x016c}
0x4e1c…4e54 Head {h00=0x0034, h01=0x0050, text=» LD A2,DWTAP+DWTDEV,A6 SET HEAD POSITION POINTER«, t00=0x0032, t01=0x000c}
0x4e54…4e82 Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW,A8 IN CONTROL WORD OF ECB«, t00=0x0032, t01=0x0044}
0x4e82…4e96 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0032, t01=0x0072}
0x4e96…4eb8 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0032, t01=0x0086}
0x4eb8…4ece Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0032, t01=0x00a8}
0x4ece…4eea Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS END I/O «, t00=0x0032, t01=0x00be}
0x4eea…4ef8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00da}
0x4ef8…4f3c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0032, t01=0x00e8}
0x4f3c…4f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x012c}
0x4f46…4f72 Head {h00=0x0028, h01=0x0050, text=»* ORDER 0B, SET CURSOR AND WRITE. «, t00=0x0032, t01=0x0136}
0x4f72…4fae Head {h00=0x0038, h01=0x0050, text=»* THIS ORDER SETS CURSOR TO THE POSITION GIVEN IN «, t00=0x0032, t01=0x0162}
0x4fae…4fea Head {h00=0x0038, h01=0x0050, text=»* THE CONTROL WORD OF ECB AND SENDS THE CHARACTERS«, t00=0x0033, t01=0x000e}
0x4fea…5028 Head {h00=0x003a, h01=0x0050, text=»* TO THE DISPLAY, CHECKING THE SAME SPECIAL CHARAC- «, t00=0x0033, t01=0x004a}
0x5028…5046 Head {h00=0x001a, h01=0x0050, text=»* TERS AS ORDER 06. «, t00=0x0033, t01=0x0088}
0x5046…5050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a6}
0x5050…5094 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0033, t01=0x00b0}
0x5094…509e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x509e…50b2 Head {h00=0x0010, h01=0x0050, text=»DY600 EQU * «, t00=0x0033, t01=0x00fe}
0x50b2…50c8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0033, t01=0x0112}
0x50c8…50fc Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTDEV,A6 6344, 6346, 6385 OR 6386 ? «, t00=0x0033, t01=0x0128}
0x50fc…5112 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/1000«, t00=0x0033, t01=0x015c}
0x5112…512c Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY610 YES !«, t00=0x0033, t01=0x0172}
0x512c…5142 Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x0033, t01=0x018c}
0x5142…516c Head {h00=0x0026, h01=0x0050, text=» LC A4,ECBCW,A8 GET REQUESTED LINE«, t00=0x0034, t01=0x0012}
0x516c…519c Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0034, t01=0x003c}
0x519c…51b6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x0034, t01=0x006c}
0x51b6…51f4 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE«, t00=0x0034, t01=0x0086}
0x51f4…5208 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0034, t01=0x00c4}
0x5208…5236 Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE«, t00=0x0034, t01=0x00d8}
0x5236…524e Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0034, t01=0x0106}
0x524e…5280 Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0034, t01=0x011e}
0x5280…52a0 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0034, t01=0x0150}
0x52a0…52bc Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0034, t01=0x0170}
0x52bc…52ea Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0034, t01=0x018c}
0x52ea…530a Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0035, t01=0x002a}
0x530a…5320 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0035, t01=0x004a}
0x5320…5342 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0035, t01=0x0060}
0x5342…5368 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0035, t01=0x0082}
0x5368…537a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0035, t01=0x00a8}
0x537a…538c Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0035, t01=0x00ba}
0x538c…53ac Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0035, t01=0x00cc}
0x53ac…53d6 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0035, t01=0x00ec}
0x53d6…5404 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTAP+DWTDEV,A6 RESET POSITION «, t00=0x0035, t01=0x0116}
0x5404…5416 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0035, t01=0x0144}
0x5416…5420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0156}
0x5420…542a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0160}
0x542a…5444 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0035, t01=0x016a}
0x5444…544e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0184}
0x544e…548c Head {h00=0x003a, h01=0x0050, text=»ADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER «, t00=0x0035, t01=0x018e}
0x548c…54bc Head {h00=0x002c, h01=0x0050, text=» LC A4,ECBCW+1,A8 GET REQUESTED POSITION«, t00=0x0036, t01=0x003c}
0x54bc…54ec Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0036, t01=0x006c}
0x54ec…5506 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0036, t01=0x009c}
0x5506…5534 Head {h00=0x002a, h01=0x0050, text=» LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE «, t00=0x0036, t01=0x00b6}
0x5534…5548 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0036, t01=0x00e4}
0x5548…556a Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0036, t01=0x00f8}
0x556a…5584 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0036, t01=0x011a}
0x5584…55a4 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0036, t01=0x0134}
0x55a4…55be Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0036, t01=0x0154}
0x55be…55e2 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0036, t01=0x016e}
0x55e2…55f4 (55, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0037, t01=0x0004}
0x55f4…5622 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0037, t01=0x0016}
0x5622…5634 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0037, t01=0x0044}
0x5634…566e Head {h00=0x0036, h01=0x0050, text=»ADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION«, t00=0x0037, t01=0x0056}
0x566e…5696 Head {h00=0x0024, h01=0x0050, text=» CC A3,DWTPOS+DWTDEV,A6 MAX-POS?«, t00=0x0037, t01=0x0090}
0x5696…56b0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0037, t01=0x00b8}
0x56b0…56c2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0037, t01=0x00d2}
0x56c2…56f0 Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0037, t01=0x00e4}
0x56f0…5714 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0037, t01=0x0112}
0x5714…572e Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0037, t01=0x0136}
0x572e…5752 Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0037, t01=0x0150}
0x5752…577c Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0037, t01=0x0174}
0x577c…579c Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0038, t01=0x000e}
0x579c…57b2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0038, t01=0x002e}
0x57b2…57c4 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0038, t01=0x0044}
0x57c4…57f6 Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0038, t01=0x0056}
0x57f6…5826 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0038, t01=0x0088}
0x5826…584a Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0038, t01=0x00b8}
0x584a…586c Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0038, t01=0x00dc}
0x586c…5896 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0038, t01=0x00fe}
0x5896…58a8 Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0038, t01=0x0128}
0x58a8…58ce Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0038, t01=0x013a}
0x58ce…58e8 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0038, t01=0x0160}
0x58e8…58fe Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x0038, t01=0x017a}
0x58fe…5920 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0038, t01=0x0190}
0x5920…5936 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0039, t01=0x0022}
0x5936…597a Head {h00=0x0040, h01=0x0050, text=»ADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER «, t00=0x0039, t01=0x0038}
0x597a…598c Head {h00=0x000e, h01=0x0050, text=» RF DY620 «, t00=0x0039, t01=0x007c}
0x598c…59a0 Head {h00=0x0010, h01=0x0050, text=»DY610 EQU * «, t00=0x0039, t01=0x008e}
0x59a0…59ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00a2}
0x59ac…59e2 Head {h00=0x0032, h01=0x0050, text=» LD A4,ECBCW,A8 GET REQUESTED CURSOR POSITION «, t00=0x0039, t01=0x00ae}
0x59e2…5a1e Head {h00=0x0038, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION COUNTER «, t00=0x0039, t01=0x00e4}
0x5a1e…5a4a Head {h00=0x0028, h01=0x0050, text=» CF A5,CURPOS SET CURSOR ON DISPLAY «, t00=0x0039, t01=0x0120}
0x5a4a…5a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014c}
0x5a54…5a68 Head {h00=0x0010, h01=0x0050, text=»DY620 EQU * «, t00=0x0039, t01=0x0156}
0x5a68…5a8c Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0039, t01=0x016a}
0x5a8c…5ac2 Head {h00=0x0032, h01=0x0050, text=» ABL DY335 SEND CHARACTERS WITH STANDARD WRITE«, t00=0x0039, t01=0x018e}
0x5ac2…5ad0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0034}
0x5ad0…5b14 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003a, t01=0x0042}
0x5b14…5b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0086}
0x5b1e…5b4c Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x003a, t01=0x0090}
0x5b4c…5b8e Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x003a, t01=0x00be}
0x5b8e…5b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0100}
0x5b98…5bdc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003a, t01=0x010a}
0x5bdc…5bf0 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x003a, t01=0x014e}
0x5bf0…5c18 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SCADD SET CURSOR ADDRESS«, t00=0x003a, t01=0x0162}
0x5c18…5c32 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003a, t01=0x018a}
0x5c32…5c48 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER30«, t00=0x003b, t01=0x0014}
0x5c48…5c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002a}
0x5c52…5c72 Head {h00=0x001c, h01=0x0050, text=» LDR A2,A4 GET POSITIONS«, t00=0x003b, t01=0x0034}
0x5c72…5cac Head {h00=0x0036, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 MORE THAN MAX. POSITIONS ?«, t00=0x003b, t01=0x0054}
0x5cac…5cc8 Head {h00=0x0018, h01=0x0050, text=» RF(NG) CURR10 NO ! «, t00=0x003b, t01=0x008e}
0x5cc8…5d00 Head {h00=0x0034, h01=0x0050, text=» LC A2,DWTPOS+DWTDEV,A6 YES ! SET MAX. POSITIONS«, t00=0x003b, t01=0x00aa}
0x5d00…5d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e2}
0x5d0a…5d2c Head {h00=0x001e, h01=0x0050, text=»CURR10 ADK A2,/1F CONVERT «, t00=0x003b, t01=0x00ec}
0x5d2c…5d46 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003b, t01=0x010e}
0x5d46…5d62 Head {h00=0x0018, h01=0x0050, text=»DYER30 RF(NZ) DYER40«, t00=0x003b, t01=0x0128}
0x5d62…5d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0144}
0x5d6c…5d7e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x003b, t01=0x014e}
0x5d7e…5d9a Head {h00=0x0018, h01=0x0050, text=» SRL A2,8 GET LINES «, t00=0x003b, t01=0x0160}
0x5d9a…5dd0 Head {h00=0x0032, h01=0x0050, text=» CC A2,DWTLIN+DWTDEV,A6 MORE THAN MAX. LINES ?«, t00=0x003b, t01=0x017c}
0x5dd0…5dec Head {h00=0x0018, h01=0x0050, text=» RF(NG) CURR20 NO ! «, t00=0x003c, t01=0x0022}
0x5dec…5e20 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTLIN+DWTDEV,A6 YES ! SET MAX LINES «, t00=0x003c, t01=0x003e}
0x5e20…5e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0072}
0x5e2a…5e3e Head {h00=0x0010, h01=0x0050, text=»CURR20 EQU *«, t00=0x003c, t01=0x007c}
0x5e3e…5e5a Head {h00=0x0018, h01=0x0050, text=» ADK A2,/1F CONVERT «, t00=0x003c, t01=0x0090}
0x5e5a…5e74 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003c, t01=0x00ac}
0x5e74…5e8a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003c, t01=0x00c6}
0x5e8a…5e9a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x00dc}
0x5e9a…5ea8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00ec}
0x5ea8…5eec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003c, t01=0x00fa}
0x5eec…5ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013e}
0x5ef6…5f12 Head {h00=0x0018, h01=0x0050, text=»* ORDER 31, ERASE.«, t00=0x003c, t01=0x0148}
0x5f12…5f52 Head {h00=0x003c, h01=0x0050, text=»* SENDS THE NUMBER OF SPACES THAT IS GIVEN IN CONTROL «, t00=0x003c, t01=0x0164}
0x5f52…5f84 Head {h00=0x002e, h01=0x0050, text=»* WORD OF ECB. THE CURSOR IS NOT MOVED. «, t00=0x003d, t01=0x0014}
0x5f84…5f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0046}
0x5f8e…5fd2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x003d, t01=0x0050}
0x5fd2…5fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0094}
0x5fdc…5ff0 Head {h00=0x0010, h01=0x0050, text=»DY700 EQU * «, t00=0x003d, t01=0x009e}
0x5ff0…602a Head {h00=0x0036, h01=0x0050, text=» LD A4,ECBCW,A8 GET NUMBER OF CHARACTERS TO ERASE «, t00=0x003d, t01=0x00b2}
0x602a…6040 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x003d, t01=0x00ec}
0x6040…6070 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTDEV,A6 PTS 6344,6385 OR 6386 ?«, t00=0x003d, t01=0x0102}
0x6070…6086 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x003d, t01=0x0132}
0x6086…60a0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY750 YES !«, t00=0x003d, t01=0x0148}
0x60a0…60aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0162}
0x60aa…60da Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTPOS+DWTDEV,A6 MAX. CHARACTERS «, t00=0x003d, t01=0x016c}
0x60da…60ee Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003e, t01=0x000c}
0x60ee…6120 Head {h00=0x002e, h01=0x0050, text=» LC A3,DWTAP+DWTDEV+1,A6 CURRENT POSITION «, t00=0x003e, t01=0x0020}
0x6120…6134 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x003e, t01=0x0052}
0x6134…6164 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A3 NR OF CHARS. TO END OF SCREEN«, t00=0x003e, t01=0x0066}
0x6164…617c Head {h00=0x0014, h01=0x0050, text=» LDR A3,0 ADJUST«, t00=0x003e, t01=0x0096}
0x617c…619c Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH «, t00=0x003e, t01=0x00ae}
0x619c…61c0 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN ? «, t00=0x003e, t01=0x00ce}
0x61c0…61da Head {h00=0x0016, h01=0x0050, text=» RF(L) DY710 NO ! «, t00=0x003e, t01=0x00f2}
0x61da…6200 Head {h00=0x0022, h01=0x0050, text=» LDR A4,A2 YES ! MODIFY LENGTH«, t00=0x003e, t01=0x010c}
0x6200…6218 Head {h00=0x0014, h01=0x0050, text=» LDR A3,1 ADJUST«, t00=0x003e, t01=0x0132}
0x6218…622c Head {h00=0x0010, h01=0x0050, text=»DY710 EQU * «, t00=0x003e, t01=0x014a}
0x622c…6252 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 CHARACTERS TO ERASE«, t00=0x003e, t01=0x015e}
0x6252…626c Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x003e, t01=0x0184}
0x626c…6280 Head {h00=0x0010, h01=0x0050, text=»DY720 EQU * «, t00=0x003f, t01=0x000e}
0x6280…62b0 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 DECREMENT NUMBER OF CHARACTERS«, t00=0x003f, t01=0x0022}
0x62b0…62d0 Head {h00=0x001c, h01=0x0050, text=» RF(N) DY730 ERASE READY«, t00=0x003f, t01=0x0052}
0x62d0…62da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0072}
0x62da…62f4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003f, t01=0x007c}
0x62f4…630a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x0096}
0x630a…631c Head {h00=0x000e, h01=0x0050, text=» RB DY720 «, t00=0x003f, t01=0x00ac}
0x631c…6326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00be}
0x6326…633a Head {h00=0x0010, h01=0x0050, text=»DY730 EQU * «, t00=0x003f, t01=0x00c8}
0x633a…635c Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x003f, t01=0x00dc}
0x635c…6372 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x00fe}
0x6372…6394 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,MAXBLK BLOCK SIZE«, t00=0x003f, t01=0x0114}
0x6394…63bc Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF NEW BLOCK«, t00=0x003f, t01=0x0136}
0x63bc…63d2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x003f, t01=0x015e}
0x63d2…63f2 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A3 RESET COUNTER«, t00=0x003f, t01=0x0174}
0x63f2…6414 (64, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A2,BACKSP CURSOR LEFT«, t00=0x0040, t01=0x0004}
0x6414…6428 Head {h00=0x0010, h01=0x0050, text=»DY740 EQU * «, t00=0x0040, t01=0x0026}
0x6428…6458 Head {h00=0x002c, h01=0x0050, text=» SUK A4,1 CURSOR IN ORIGINAL POSITION ? «, t00=0x0040, t01=0x003a}
0x6458…6474 Head {h00=0x0018, h01=0x0050, text=» ABL(N) ENDIO YES ! «, t00=0x0040, t01=0x006a}
0x6474…64a6 Head {h00=0x002e, h01=0x0050, text=» CF A5,OUTPUT NO ! SEND ANOTHER BACKSPACE «, t00=0x0040, t01=0x0086}
0x64a6…64bc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0040, t01=0x00b8}
0x64bc…64ce Head {h00=0x000e, h01=0x0050, text=» RB DY740 «, t00=0x0040, t01=0x00ce}
0x64ce…64e2 Head {h00=0x0010, h01=0x0050, text=»DY750 EQU * «, t00=0x0040, t01=0x00e0}
0x64e2…64ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x00f4}
0x64ee…6508 Head {h00=0x0016, h01=0x0050, text=» LDK A3,/20 SPACE «, t00=0x0040, t01=0x0100}
0x6508…6534 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x0040, t01=0x011a}
0x6534…6546 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0040, t01=0x0146}
0x6546…6554 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0158}
0x6554…6598 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0040, t01=0x0166}
0x6598…65a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x001a}
0x65a2…65d4 Head {h00=0x002e, h01=0x0050, text=»* ECHODY, DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0041, t01=0x0024}
0x65d4…6608 Head {h00=0x0030, h01=0x0050, text=»* THIS ROUTINE CHECKS IF THE ECHO-CHARCTER«, t00=0x0041, t01=0x0056}
0x6608…663a Head {h00=0x002e, h01=0x0050, text=»* IS A BACKSPACE, CLEAR OR EOR-KEY ( IF «, t00=0x0041, t01=0x008a}
0x663a…666c Head {h00=0x002e, h01=0x0050, text=»* "SUPPRESS ECHOING OF EOR" IS REQUESTED«, t00=0x0041, t01=0x00bc}
0x666c…66a0 Head {h00=0x0030, h01=0x0050, text=»* AT SYSGEN ). ELSE THE CHARACTER WILL BE «, t00=0x0041, t01=0x00ee}
0x66a0…66c0 Head {h00=0x001c, h01=0x0050, text=»* SENT TO THE DISPLAY.«, t00=0x0041, t01=0x0122}
0x66c0…66ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0142}
0x66ca…670e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0041, t01=0x014c}
0x670e…6718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0190}
0x6718…672c Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0042, t01=0x000a}
0x672c…6750 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 END OF ECHOING ? «, t00=0x0042, t01=0x001e}
0x6750…676c Head {h00=0x0018, h01=0x0050, text=» RF(NN) EDY110 NO ! «, t00=0x0042, t01=0x0042}
0x676c…6776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x005e}
0x6776…6780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0068}
0x6780…67b4 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0042, t01=0x0072}
0x67b4…67d2 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0042, t01=0x00a6}
0x67d2…6802 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ?«, t00=0x0042, t01=0x00c4}
0x6802…682e Head {h00=0x0028, h01=0x0050, text=» RF(Z) EDY130 NO, RETURN TO KEYBOARD«, t00=0x0042, t01=0x00f4}
0x682e…6840 Head {h00=0x000e, h01=0x0050, text=» RF EDY120«, t00=0x0042, t01=0x0120}
0x6840…684a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0132}
0x684a…685e Head {h00=0x0010, h01=0x0050, text=»EDY110 EQU *«, t00=0x0042, t01=0x013c}
0x685e…6892 Head {h00=0x0030, h01=0x0050, text=» LDR A4,A1 SAVE "MORE CHARACTERS" INDICATION«, t00=0x0042, t01=0x0150}
0x6892…68ac Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x0042, t01=0x0184}
0x68ac…68ca Head {h00=0x001a, h01=0x0050, text=» CF A15,GRCHAR =4 =4«, t00=0x0043, t01=0x000e}
0x68ca…68dc Head {h00=0x000e, h01=0x0050, text=» XIF =4 «, t00=0x0043, t01=0x002c}
0x68dc…68fe Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0043, t01=0x003e}
0x68fe…6908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0060}
0x6908…691e Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0043, t01=0x006a}
0x691e…6932 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/80 «, t00=0x0043, t01=0x0080}
0x6932…695a Head {h00=0x0024, h01=0x0050, text=» RF(NN) EDY130 NOT TO BE ECHOED «, t00=0x0043, t01=0x0094}
0x695a…696e Head {h00=0x0010, h01=0x0050, text=» ADK A3,/80 «, t00=0x0043, t01=0x00bc}
0x696e…697a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00d0}
0x697a…69aa Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBLC+DWTDEV,A6 BLOCK RESERVED ?«, t00=0x0043, t01=0x00dc}
0x69aa…69c4 Head {h00=0x0016, h01=0x0050, text=» RF(Z) EDY116 NO !«, t00=0x0043, t01=0x010c}
0x69c4…69ee Head {h00=0x0026, h01=0x0050, text=» CWK A1,MINBLK YES ! IS IT FULL ? «, t00=0x0043, t01=0x0126}
0x69ee…6a08 Head {h00=0x0016, h01=0x0050, text=» RF(L) EDY118 NO !«, t00=0x0043, t01=0x0150}
0x6a08…6a42 Head {h00=0x0036, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 YES ! CLEAR CHARACTER COUNTER«, t00=0x0043, t01=0x016a}
0x6a42…6a64 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK FINISH BLOCK«, t00=0x0044, t01=0x0014}
0x6a64…6a7a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0044, t01=0x0036}
0x6a7a…6a8e Head {h00=0x0010, h01=0x0050, text=»EDY116 EQU *«, t00=0x0044, t01=0x004c}
0x6a8e…6aa4 Head {h00=0x0012, h01=0x0050, text=» LDK A2,MINBLK«, t00=0x0044, t01=0x0060}
0x6aa4…6ac8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK DECLARE BLOCK «, t00=0x0044, t01=0x0076}
0x6ac8…6ade Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER40«, t00=0x0044, t01=0x009a}
0x6ade…6af2 Head {h00=0x0010, h01=0x0050, text=»EDY118 EQU *«, t00=0x0044, t01=0x00b0}
0x6af2…6b16 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A3 RELOAD CHARACTER «, t00=0x0044, t01=0x00c4}
0x6b16…6b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e8}
0x6b20…6b3c Head {h00=0x0018, h01=0x0050, text=» SUK A3,/18 CLEAR ? «, t00=0x0044, t01=0x00f2}
0x6b3c…6b56 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY850 YES !«, t00=0x0044, t01=0x010e}
0x6b56…6b76 Head {h00=0x001c, h01=0x0050, text=» ADK A3,/10 BACKSPACE ? «, t00=0x0044, t01=0x0128}
0x6b76…6b90 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY800 YES !«, t00=0x0044, t01=0x0148}
0x6b90…6b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0162}
0x6b9a…6ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x016c}
0x6ba4…6bce Head {h00=0x0026, h01=0x0050, text=»* SEND CHARACTER TO ECHO-DEVICE «, t00=0x0044, t01=0x0176}
0x6bce…6bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0010}
0x6bd8…6c06 Head {h00=0x002a, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT COUNTER«, t00=0x0045, t01=0x001a}
0x6c06…6c20 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0045, t01=0x0048}
0x6c20…6c3c Head {h00=0x0018, h01=0x0050, text=»DYER40 RF(NZ) DYER45«, t00=0x0045, t01=0x0062}
0x6c3c…6c6c Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0045, t01=0x007e}
0x6c6c…6c90 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 MORE CHARACTERS ? «, t00=0x0045, t01=0x00ae}
0x6c90…6cac Head {h00=0x0018, h01=0x0050, text=» RF(Z) EDY130 YES ! «, t00=0x0045, t01=0x00d2}
0x6cac…6cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ee}
0x6cb6…6cca Head {h00=0x0010, h01=0x0050, text=»EDY120 EQU *«, t00=0x0045, t01=0x00f8}
0x6cca…6cec Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK«, t00=0x0045, t01=0x010c}
0x6cec…6d02 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0045, t01=0x012e}
0x6d02…6d2c Head {h00=0x0026, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET COUNTER«, t00=0x0045, t01=0x0144}
0x6d2c…6d58 Head {h00=0x0028, h01=0x0050, text=»EDY130 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0045, t01=0x016e}
0x6d58…6d66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x000a}
0x6d66…6daa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0046, t01=0x0018}
0x6daa…6db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x005c}
0x6db4…6dca Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE «, t00=0x0046, t01=0x0066}
0x6dca…6e04 Head {h00=0x0036, h01=0x0050, text=»* CHECKS CURSOR POSITION, MOVES CURSOR ONE STEP «, t00=0x0046, t01=0x007c}
0x6e04…6e3e Head {h00=0x0036, h01=0x0050, text=»* BACKWARDS, SENDS A SPACE AND MOVES CURSOR ONE «, t00=0x0046, t01=0x00b6}
0x6e3e…6e60 Head {h00=0x001e, h01=0x0050, text=»* STEP BACKWARDS AGAIN. «, t00=0x0046, t01=0x00f0}
0x6e60…6e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0112}
0x6e6a…6eae Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0046, t01=0x011c}
0x6eae…6eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0160}
0x6eb8…6ecc Head {h00=0x0010, h01=0x0050, text=»DY800 EQU * «, t00=0x0046, t01=0x016a}
0x6ecc…6f00 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x0046, t01=0x017e}
0x6f00…6f14 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0047, t01=0x0022}
0x6f14…6f38 Head {h00=0x0020, h01=0x0050, text=» RB(Z) EDY120 FIRST POSITION«, t00=0x0047, t01=0x0036}
0x6f38…6f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x005a}
0x6f42…6f68 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK FINISH OLD BLOCK«, t00=0x0047, t01=0x0064}
0x6f68…6f7e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0047, t01=0x008a}
0x6f7e…6f94 Head {h00=0x0012, h01=0x0050, text=» LDK A2,MINBLK«, t00=0x0047, t01=0x00a0}
0x6f94…6fbc Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START A NEW BLOCK «, t00=0x0047, t01=0x00b6}
0x6fbc…6fd2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0047, t01=0x00de}
0x6fd2…6fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f4}
0x6fdc…7004 Head {h00=0x0024, h01=0x0050, text=» LDK A4,2 SET "SEND AGAIN" FLAG «, t00=0x0047, t01=0x00fe}
0x7004…702c Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 INDICATE ONE BACKSTEP «, t00=0x0047, t01=0x0126}
0x702c…7060 Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 SET POSITION COUNTER «, t00=0x0047, t01=0x014e}
0x7060…7086 Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 GET POSITION ON LINE«, t00=0x0047, t01=0x0182}
0x7086…70a4 Head {h00=0x001a, h01=0x0050, text=» AD A3,DWTAP+DWTDEV,A6«, t00=0x0048, t01=0x0018}
0x70a4…70dc Head {h00=0x0034, h01=0x0050, text=» CC A3,DWTPOS+DWTDEV,A6 LAST POSITION ON LINE ? «, t00=0x0048, t01=0x0036}
0x70dc…70f6 Head {h00=0x0016, h01=0x0050, text=» RF(L) DY810 NO ! «, t00=0x0048, t01=0x006e}
0x70f6…7118 Head {h00=0x001e, h01=0x0050, text=» RB(G) DY800 NO, OUTSIDE !«, t00=0x0048, t01=0x0088}
0x7118…7122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00aa}
0x7122…712c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00b4}
0x712c…7140 Head {h00=0x0010, h01=0x0050, text=»DY805 EQU * «, t00=0x0048, t01=0x00be}
0x7140…714a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00d2}
0x714a…7166 Head {h00=0x0018, h01=0x0050, text=» LDK A2,SPACE SPACE «, t00=0x0048, t01=0x00dc}
0x7166…7180 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0048, t01=0x00f8}
0x7180…7196 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0048, t01=0x0112}
0x7196…71a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0128}
0x71a0…71b4 Head {h00=0x0010, h01=0x0050, text=»DY810 EQU * «, t00=0x0048, t01=0x0132}
0x71b4…71e4 Head {h00=0x002c, h01=0x0050, text=» LDK A2,BACKSP NON-DESTRUCTIVE BACKSPACE«, t00=0x0048, t01=0x0146}
0x71e4…71fe Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0048, t01=0x0176}
0x71fe…7214 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x0048, t01=0x0190}
0x7214…721e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0016}
0x721e…723c Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 SEND AGAIN ?«, t00=0x0049, t01=0x0020}
0x723c…7258 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DY805 YES ! «, t00=0x0049, t01=0x003e}
0x7258…727a Head {h00=0x001e, h01=0x0050, text=»* NO, BACKSPACE FINISHED«, t00=0x0049, t01=0x005a}
0x727a…728c Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x0049, t01=0x007c}
0x728c…729a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x008e}
0x729a…72da Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0049, t01=0x009c}
0x72da…72e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00dc}
0x72e4…72f6 Head {h00=0x000e, h01=0x0050, text=»* CLEAR «, t00=0x0049, t01=0x00e6}
0x72f6…7330 Head {h00=0x0036, h01=0x0050, text=»* CHECKS CURSOR POSITION, SETS CURSOR WHERE LAST«, t00=0x0049, t01=0x00f8}
0x7330…7368 Head {h00=0x0034, h01=0x0050, text=»* REQUEST ENDED AND SENDS SPACES TO ERASE THE «, t00=0x0049, t01=0x0132}
0x7368…739e Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS WRITTEN DURING CURRENT REQUEST.«, t00=0x0049, t01=0x016a}
0x739e…73a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0010}
0x73a8…73ec Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004a, t01=0x001a}
0x73ec…73f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x005e}
0x73f6…740a Head {h00=0x0010, h01=0x0050, text=»DY850 EQU * «, t00=0x004a, t01=0x0068}
0x740a…7430 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK FINISH OLD BLOCK«, t00=0x004a, t01=0x007c}
0x7430…7446 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER45«, t00=0x004a, t01=0x00a2}
0x7446…746c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,MAXBLK GET BLOCKSIZE «, t00=0x004a, t01=0x00b8}
0x746c…7490 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x004a, t01=0x00de}
0x7490…74ac Head {h00=0x0018, h01=0x0050, text=»DYER45 RF(NZ) DYER48«, t00=0x004a, t01=0x0102}
0x74ac…74e0 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x004a, t01=0x011e}
0x74e0…74f4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x004a, t01=0x0152}
0x74f4…7518 Head {h00=0x0020, h01=0x0050, text=» RB(Z) EDY120 FIRST POSITION«, t00=0x004a, t01=0x0166}
0x7518…7522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x018a}
0x7522…7538 (75, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x004b, t01=0x0004}
0x7538…756a Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTDEV,A6 PTS 6344, 6385 OR 6386 ? «, t00=0x004b, t01=0x001a}
0x756a…7580 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/1000«, t00=0x004b, t01=0x004c}
0x7580…759a Head {h00=0x0016, h01=0x0050, text=» RF(Z) DY860 YES !«, t00=0x004b, t01=0x0062}
0x759a…75c6 Head {h00=0x0028, h01=0x0050, text=» CF A5,BACCAN ERASE CURRENT REQUEST «, t00=0x004b, t01=0x007c}
0x75c6…75d8 Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x004b, t01=0x00a8}
0x75d8…75e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x00ba}
0x75e4…75f8 Head {h00=0x0010, h01=0x0050, text=»DY860 EQU * «, t00=0x004b, t01=0x00c6}
0x75f8…7630 Head {h00=0x0034, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET HEAD POSITION COUNTER«, t00=0x004b, t01=0x00da}
0x7630…7650 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x004b, t01=0x0112}
0x7650…765a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0132}
0x765a…7682 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 GET POSITION COUNTER «, t00=0x004b, t01=0x013c}
0x7682…76ac Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 UPDATE POSITION COUNTER «, t00=0x004b, t01=0x0164}
0x76ac…76d4 Head {h00=0x0024, h01=0x0050, text=» LDK A3,SPACE GET SPACE TO SEND «, t00=0x004b, t01=0x018e}
0x76d4…7700 Head {h00=0x0028, h01=0x0050, text=» CF A5,FASTER SEND WITH FAST OUTPUT «, t00=0x004c, t01=0x0026}
0x7700…770a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0052}
0x770a…7740 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTBC+DWTDEV,A6 RESET POSITION COUNTER «, t00=0x004c, t01=0x005c}
0x7740…7752 Head {h00=0x000e, h01=0x0050, text=» RB EDY120«, t00=0x004c, t01=0x0092}
0x7752…7768 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x004c, t01=0x00a4}
0x7768…7776 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00ba}
0x7776…77ba Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004c, t01=0x00c8}
0x77ba…77c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x010c}
0x77c4…77f8 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x004c, t01=0x0116}
0x77f8…782c Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x004c, t01=0x014a}
0x782c…7848 Head {h00=0x0018, h01=0x0050, text=»* CLEAR.«, t00=0x004c, t01=0x017e}
0x7848…7852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x000a}
0x7852…7896 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x004d, t01=0x0014}
0x7896…78aa Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x004d, t01=0x0058}
0x78aa…78de Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x004d, t01=0x006c}
0x78de…78f0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x004d, t01=0x00a0}
0x78f0…7924 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x004d, t01=0x00b2}
0x7924…7938 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x00e6}
0x7938…7970 Head {h00=0x0034, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER«, t00=0x004d, t01=0x00fa}
0x7970…7984 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x0132}
0x7984…79b2 Head {h00=0x002a, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 LAST POSITION «, t00=0x004d, t01=0x0146}
0x79b2…79cc Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004d, t01=0x0174}
0x79cc…79f4 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004d, t01=0x018e}
0x79f4…7a06 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004e, t01=0x0026}
0x7a06…7a1a Head {h00=0x0010, h01=0x0050, text=»BACA10 EQU *«, t00=0x004e, t01=0x0038}
0x7a1a…7a52 Head {h00=0x0034, h01=0x0050, text=» IM DWTBLC+DWTDEV,A6 INCREMENT CHARACTER COUNTER«, t00=0x004e, t01=0x004c}
0x7a52…7a7e Head {h00=0x0028, h01=0x0050, text=» LDKL A2,MAXBLK-3 GET BLOCKSIZE - 3 «, t00=0x004e, t01=0x0084}
0x7a7e…7abc Head {h00=0x003a, h01=0x0050, text=» CW A2,DWTBLC+DWTDEV,A6 WILL IT BE OVERFLOW IN BLOCK ?«, t00=0x004e, t01=0x00b0}
0x7abc…7ad6 Head {h00=0x0016, h01=0x0050, text=» RF(G) BACA30 NO !«, t00=0x004e, t01=0x00ee}
0x7ad6…7ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0108}
0x7ae0…7b0a Head {h00=0x0026, h01=0x0050, text=» CF A5,ENDBLK YES ! END OLD BLOCK «, t00=0x004e, t01=0x0112}
0x7b0a…7b20 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004e, t01=0x013c}
0x7b20…7b42 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,MAXBLK BLOCK SIZE«, t00=0x004e, t01=0x0152}
0x7b42…7b6a Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START A NEW BLOCK «, t00=0x004e, t01=0x0174}
0x7b6a…7b80 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x000c}
0x7b80…7bb4 Head {h00=0x0030, h01=0x0050, text=» CM DWTBLC+DWTDEV,A6 RESET CHARACTER COUNTER«, t00=0x004f, t01=0x0022}
0x7bb4…7bc8 Head {h00=0x0010, h01=0x0050, text=»BACA30 EQU *«, t00=0x004f, t01=0x0056}
0x7bc8…7be8 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004f, t01=0x006a}
0x7be8…7c02 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004f, t01=0x008a}
0x7c02…7c18 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x00a4}
0x7c18…7c40 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004f, t01=0x00ba}
0x7c40…7c5a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004f, t01=0x00e2}
0x7c5a…7c70 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x00fc}
0x7c70…7c90 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004f, t01=0x0112}
0x7c90…7cb0 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004f, t01=0x0132}
0x7cb0…7cc6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x004f, t01=0x0152}
0x7cc6…7cd8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004f, t01=0x0168}
0x7cd8…7cee Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004f, t01=0x017a}
0x7cee…7d10 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004f, t01=0x0190}
0x7d10…7d48 Head {h00=0x0034, h01=0x0050, text=» ADS A3,DWTBC+DWTDEV,A6 UPDATE POSITION COUNTER «, t00=0x0050, t01=0x0022}
0x7d48…7d58 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x005a}
0x7d58…7d64 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x006a}
0x7d64…7d72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0076}
0x7d72…7db6 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0050, t01=0x0084}
0x7db6…7dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c8}
0x7dc0…7df0 Head {h00=0x002c, h01=0x0050, text=»* FASTER = SUBROUTINE FOR FAST OUTPUT«, t00=0x0050, t01=0x00d2}
0x7df0…7e28 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x0102}
0x7e28…7e5e Head {h00=0x0032, h01=0x0050, text=»* A3 = CHARACTER TO SEND «, t00=0x0050, t01=0x013a}
0x7e5e…7e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0170}
0x7e68…7eac Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0050, t01=0x017a}
0x7eac…7ec0 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0051, t01=0x002e}
0x7ec0…7ed6 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0051, t01=0x0042}
0x7ed6…7ef2 Head {h00=0x0018, h01=0x0050, text=» LD A2,DWTDEV,A6 PTS«, t00=0x0051, t01=0x0058}
0x7ef2…7f18 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/1000 6342 OR 6351 ? «, t00=0x0051, t01=0x0074}
0x7f18…7f32 Head {h00=0x0016, h01=0x0050, text=» RF(Z) FAS005 NO !«, t00=0x0051, t01=0x009a}
0x7f32…7f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00b4}
0x7f3c…7f76 Head {h00=0x0036, h01=0x0050, text=»* SIMULATED "FAST OUTPUT" FOR PTS 6342 AND 6351 «, t00=0x0051, t01=0x00be}
0x7f76…7f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f8}
0x7f80…7f9e Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6«, t00=0x0051, t01=0x0102}
0x7f9e…7fca Head {h00=0x0028, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 GET POSITION «, t00=0x0051, t01=0x0120}
0x7fca…7fde Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0051, t01=0x014c}
0x7fde…800a Head {h00=0x0028, h01=0x0050, text=» ADR A2,A4 ADD NUMBER OF CHARACTERS «, t00=0x0051, t01=0x0160}
0x800a…8014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x018c}
0x8014…8046 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS«, t00=0x0052, t01=0x0008}
0x8046…805a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0052, t01=0x003a}
0x805a…8074 Head {h00=0x0016, h01=0x0050, text=» SUR A1,A2 COMPARE«, t00=0x0052, t01=0x004e}
0x8074…8094 Head {h00=0x001c, h01=0x0050, text=» RF(NN) FAS002 LENGTH OK«, t00=0x0052, t01=0x0068}
0x8094…80b4 Head {h00=0x001c, h01=0x0050, text=» ADR A4,A1 ADJUST LENGTH«, t00=0x0052, t01=0x0088}
0x80b4…80e2 Head {h00=0x002a, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF CHARACTERS «, t00=0x0052, t01=0x00a8}
0x80e2…80ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00d6}
0x80ec…8100 Head {h00=0x0010, h01=0x0050, text=»FAS002 EQU *«, t00=0x0052, t01=0x00e0}
0x8100…810a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00f4}
0x810a…8134 Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 PUT TWO COUNTERS IN A4 «, t00=0x0052, t01=0x00fe}
0x8134…8146 Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0052, t01=0x0128}
0x8146…8158 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A2«, t00=0x0052, t01=0x013a}
0x8158…8162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x014c}
0x8162…8176 Head {h00=0x0010, h01=0x0050, text=»FAS004 EQU *«, t00=0x0052, t01=0x0156}
0x8176…819e Head {h00=0x0024, h01=0x0050, text=» LDR A2,A3 GET CHARACTER TO SEND«, t00=0x0052, t01=0x016a}
0x819e…81b8 (83, 0, 400) Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0053, t01=0x0004}
0x81b8…81ce Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0053, t01=0x001e}
0x81ce…81f2 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0053, t01=0x0034}
0x81f2…8206 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x0053, t01=0x0058}
0x8206…8218 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A4«, t00=0x0053, t01=0x006c}
0x8218…823c Head {h00=0x0020, h01=0x0050, text=» RB(P) FAS004 NEXT CHARACTER«, t00=0x0053, t01=0x007e}
0x823c…8246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a2}
0x8246…8270 Head {h00=0x0026, h01=0x0050, text=» CF A5,ENDBLK START A NEW BLOCK TO«, t00=0x0053, t01=0x00ac}
0x8270…8298 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DYER50 AVOID OVERFLOW IN«, t00=0x0053, t01=0x00d6}
0x8298…82bc Head {h00=0x0020, h01=0x0050, text=» LDKL A2,MAXBLK THE OLD ONE «, t00=0x0053, t01=0x00fe}
0x82bc…82d2 Head {h00=0x0012, h01=0x0050, text=» CF A5,STABLK «, t00=0x0053, t01=0x0122}
0x82d2…82e8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0053, t01=0x0138}
0x82e8…82f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x014e}
0x82f2…8316 Head {h00=0x0020, h01=0x0050, text=» SRL A4,8 GET LENGTH COUNTER«, t00=0x0053, t01=0x0158}
0x8316…832a Head {h00=0x0010, h01=0x0050, text=»FAS003 EQU *«, t00=0x0053, t01=0x017c}
0x832a…8340 Head {h00=0x0012, h01=0x0050, text=» LDK A2,BACKSP«, t00=0x0053, t01=0x0190}
0x8340…8364 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND BACKSPACE«, t00=0x0054, t01=0x0016}
0x8364…837a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0054, t01=0x003a}
0x837a…839e Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0054, t01=0x0050}
0x839e…83b8 Head {h00=0x0016, h01=0x0050, text=» RB(P) FAS003 NEXT«, t00=0x0054, t01=0x0074}
0x83b8…83c8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x008e}
0x83c8…83dc Head {h00=0x0010, h01=0x0050, text=»FAS005 EQU *«, t00=0x0054, t01=0x009e}
0x83dc…83e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x00b2}
0x83e8…8422 Head {h00=0x0036, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 TEST NUMBER OF CHARACTERS «, t00=0x0054, t01=0x00be}
0x8422…8454 Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0054, t01=0x00f8}
0x8454…8492 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTPOS+DWTDEV,A6 GET MAX. POSITIONS ON DISPLAY «, t00=0x0054, t01=0x012a}
0x8492…84a6 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0054, t01=0x0168}
0x84a6…84c6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0054, t01=0x017c}
0x84c6…84e8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASOUT FAST OUTPUT«, t00=0x0055, t01=0x000c}
0x84e8…8502 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x002e}
0x8502…851e Head {h00=0x0018, h01=0x0050, text=»DYER48 RF(NZ) DYER50«, t00=0x0055, t01=0x0048}
0x851e…853c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0055, t01=0x0064}
0x853c…8550 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0055, t01=0x0082}
0x8550…856a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x0096}
0x856a…8580 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0055, t01=0x00b0}
0x8580…8592 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0055, t01=0x00c6}
0x8592…85ac Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0055, t01=0x00d8}
0x85ac…85c2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DYER50«, t00=0x0055, t01=0x00f2}
0x85c2…85d2 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x0108}
0x85d2…85e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0118}
0x85e0…861c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0055, t01=0x0126}
0x861c…8626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0162}
0x8626…8660 Head {h00=0x0036, h01=0x0050, text=»* ERROR ROUTINE. ENTERED WHEN RETURN CODE IS SET«, t00=0x0055, t01=0x016c}
0x8660…868c Head {h00=0x0028, h01=0x0050, text=»* AFTER STABLK, OUTPUT OR ENDBLK. «, t00=0x0056, t01=0x0016}
0x868c…8696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0042}
0x8696…86d4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0056, t01=0x004c}
0x86d4…86e8 Head {h00=0x0010, h01=0x0050, text=»DYER50 EQU *«, t00=0x0056, t01=0x008a}
0x86e8…8700 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0056, t01=0x009e}
0x8700…8718 Head {h00=0x0014, h01=0x0050, text=» SLC A7,2 ECHO ?«, t00=0x0056, t01=0x00b6}
0x8718…8746 Head {h00=0x002a, h01=0x0050, text=» ABL(N) ECHRTN YES ! RETURN FROM ECHO «, t00=0x0056, t01=0x00ce}
0x8746…8750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00fc}
0x8750…8776 Head {h00=0x0022, h01=0x0050, text=» SRC A1,5 OUTPUT ERROR (HER) ?«, t00=0x0056, t01=0x0106}
0x8776…879e Head {h00=0x0024, h01=0x0050, text=» RF(N) RCDY YES ! GO TO RECOVERY«, t00=0x0056, t01=0x012c}
0x879e…87c0 Head {h00=0x001e, h01=0x0050, text=» SLC A1,5 NO ! RESTORE A1 «, t00=0x0056, t01=0x0154}
0x87c0…87ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0176}
0x87ca…87f8 Head {h00=0x002a, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER. ORDER 00 ? «, t00=0x0056, t01=0x0180}
0x87f8…880c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0057, t01=0x001e}
0x880c…8828 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x0032}
0x8828…8844 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0057, t01=0x004e}
0x8844…8860 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x006a}
0x8860…887e Head {h00=0x001a, h01=0x0050, text=» SUK A7,/2B ORDER 31 ?«, t00=0x0057, t01=0x0086}
0x887e…889a Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER52 YES ! «, t00=0x0057, t01=0x00a4}
0x889a…88a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00c0}
0x88a4…88c2 Head {h00=0x001a, h01=0x0050, text=» SRC A1,2 LRC-ERROR ? «, t00=0x0057, t01=0x00ca}
0x88c2…88de Head {h00=0x0018, h01=0x0050, text=» RF(N) DYER70 YES ! «, t00=0x0057, t01=0x00e8}
0x88de…88f0 Head {h00=0x000e, h01=0x0050, text=» SLC A1,2 «, t00=0x0057, t01=0x0104}
0x88f0…8914 Head {h00=0x0020, h01=0x0050, text=»DYER52 SRC A1,3 LINK ERROR ?«, t00=0x0057, t01=0x0116}
0x8914…8930 Head {h00=0x0018, h01=0x0050, text=» RF(NN) DYER55 NO ! «, t00=0x0057, t01=0x013a}
0x8930…896c Head {h00=0x0038, h01=0x0050, text=» LDKL A1,/2000 YES ! SET SHIFTED "NOT OPERABLE" BIT «, t00=0x0057, t01=0x0156}
0x896c…898e (88, 0, 400) Head {h00=0x001e, h01=0x0050, text=»DYER55 SLC A1,3 SHIFT BACK«, t00=0x0058, t01=0x0004}
0x898e…8998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0026}
0x8998…89b0 Head {h00=0x0014, h01=0x0050, text=» LDR A8,A8 =1 «, t00=0x0058, t01=0x0030}
0x89b0…89e6 Head {h00=0x0032, h01=0x0050, text=» RF(Z) DYER60 NO ECB-ADDRESS (SYSTEM START) =1«, t00=0x0058, t01=0x0048}
0x89e6…8a1c Head {h00=0x0032, h01=0x0050, text=» CM ECBCW,A8 CLEAR INSIGNIFICANT CONTROL WORD «, t00=0x0058, t01=0x007e}
0x8a1c…8a36 Head {h00=0x0016, h01=0x0050, text=»DYER60 EQU * =1 «, t00=0x0058, t01=0x00b4}
0x8a36…8a5a Head {h00=0x0020, h01=0x0050, text=» ABL LENDIS COMPLETE REQUEST«, t00=0x0058, t01=0x00ce}
0x8a5a…8a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00f2}
0x8a64…8a7a Head {h00=0x0012, h01=0x0050, text=»* LRC-ERROR «, t00=0x0058, t01=0x00fc}
0x8a7a…8a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0112}
0x8a84…8a98 Head {h00=0x0010, h01=0x0050, text=»DYER70 EQU *«, t00=0x0058, t01=0x011c}
0x8a98…8ac4 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,DWTSB2 INITIALIZE A5 STACK «, t00=0x0058, t01=0x0130}
0x8ac4…8ad6 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0058, t01=0x015c}
0x8ad6…8b02 Head {h00=0x0028, h01=0x0050, text=» LDR A8,A8 ECB-ADDRESS = ZERO ? = 2 «, t00=0x0058, t01=0x016e}
0x8b02…8b32 Head {h00=0x002c, h01=0x0050, text=» ABL(Z) ENDIO YES, DON'T SEND AGAIN = 2 «, t00=0x0059, t01=0x000a}
0x8b32…8b48 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=1 «, t00=0x0059, t01=0x003a}
0x8b48…8b74 Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTDEV,A6 6344,6385 OR 6386 ?«, t00=0x0059, t01=0x0050}
0x8b74…8b8a Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/1000«, t00=0x0059, t01=0x007c}
0x8b8a…8ba6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DYER90 YES ! «, t00=0x0059, t01=0x0092}
0x8ba6…8be0 Head {h00=0x0036, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POS. TO BACK «, t00=0x0059, t01=0x00ae}
0x8be0…8bf4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0059, t01=0x00e8}
0x8bf4…8c0a Head {h00=0x0012, h01=0x0050, text=» RF(Z) DYER80 «, t00=0x0059, t01=0x00fc}
0x8c0a…8c3c Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0059, t01=0x0112}
0x8c3c…8c5e Head {h00=0x001e, h01=0x0050, text=» LDK A3,2 SET BUFFER INDEX«, t00=0x0059, t01=0x0144}
0x8c5e…8c82 Head {h00=0x0020, h01=0x0050, text=»DYER80 ABL DY335 SEND AGAIN «, t00=0x0059, t01=0x0166}
0x8c82…8c96 Head {h00=0x0010, h01=0x0050, text=»DYER90 EQU *«, t00=0x0059, t01=0x018a}
0x8c96…8ca2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x000e}
0x8ca2…8cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x001a}
0x8cac…8ce0 Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET HEAD POS. COUNTER«, t00=0x005a, t01=0x0024}
0x8ce0…8d0c Head {h00=0x0028, h01=0x0050, text=» CF A5,CURPOS SET CURSOR ON DISPLAY «, t00=0x005a, t01=0x0058}
0x8d0c…8d30 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x005a, t01=0x0084}
0x8d30…8d52 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x005a, t01=0x00a8}
0x8d52…8d66 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x005a, t01=0x00ca}
0x8d66…8d78 Head {h00=0x000e, h01=0x0050, text=» ABL ACDY «, t00=0x005a, t01=0x00de}
0x8d78…8d86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x00f0}
0x8d86…8dca Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005a, t01=0x00fe}
0x8dca…8dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0142}
0x8dd4…8e04 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x005a, t01=0x014c}
0x8e04…8e34 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x005a, t01=0x017c}
0x8e34…8e60 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x005b, t01=0x001c}
0x8e60…8e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0048}
0x8e6a…8eae Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x0052}
0x8eae…8ec2 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x005b, t01=0x0096}
0x8ec2…8ef6 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x005b, t01=0x00aa}
0x8ef6…8f0a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005b, t01=0x00de}
0x8f0a…8f46 Head {h00=0x0038, h01=0x0050, text=» ADS A2,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER«, t00=0x005b, t01=0x00f2}
0x8f46…8f58 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x005b, t01=0x012e}
0x8f58…8f8e Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER«, t00=0x005b, t01=0x0140}
0x8f8e…8f9e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x005b, t01=0x0176}
0x8f9e…8fe2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005b, t01=0x0186}
0x8fe2…8fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003a}
0x8fec…9026 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x005c, t01=0x0044}
0x9026…905a Head {h00=0x0030, h01=0x0050, text=»* COUNTER WHEN REQUEST RUNNING. «, t00=0x005c, t01=0x007e}
0x905a…90a2 Head {h00=0x0044, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS THE LIMIT IS DONE«, t00=0x005c, t01=0x00b2}
0x90a2…90ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00fa}
0x90ac…90f0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x005c, t01=0x0104}
0x90f0…9104 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x005c, t01=0x0148}
0x9104…9138 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x005c, t01=0x015c}
0x9138…9174 Head {h00=0x0038, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER«, t00=0x005c, t01=0x0190}
0x9174…9188 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005d, t01=0x003c}
0x9188…91b4 Head {h00=0x0028, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 END OF ROW ?«, t00=0x005d, t01=0x0050}
0x91b4…91ca Head {h00=0x0012, h01=0x0050, text=» RF(G) POSU10 «, t00=0x005d, t01=0x007c}
0x91ca…91f6 Head {h00=0x0028, h01=0x0050, text=» IM DWTBC+DWTDEV,A6 POSITION COUNTER«, t00=0x005d, t01=0x0092}
0x91f6…920c Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x005d, t01=0x00be}
0x920c…9226 Head {h00=0x0016, h01=0x0050, text=» IFT GREECE=1 =4 «, t00=0x005d, t01=0x00d4}
0x9226…923a Head {h00=0x0010, h01=0x0050, text=» EJECT =4 «, t00=0x005d, t01=0x00ee}
0x923a…9278 Head {h00=0x003a, h01=0x0050, text=»*************************************************** =4«, t00=0x005d, t01=0x0102}
0x9278…9282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0140}
0x9282…92c0 Head {h00=0x003a, h01=0x0050, text=»* GRCHAR = SUBROUTINE TO CONVERT GREEK CHARACTERS =4«, t00=0x005d, t01=0x014a}
0x92c0…92fc Head {h00=0x0038, h01=0x0050, text=»* BEFORE THEY ARE SENT TO THE DISPLAY =4 «, t00=0x005d, t01=0x0188}
0x92fc…9306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0034}
0x9306…9344 Head {h00=0x003a, h01=0x0050, text=»*************************************************** =4«, t00=0x005e, t01=0x003e}
0x9344…935c Head {h00=0x0014, h01=0x0050, text=»GRCHAR EQU * = «, t00=0x005e, t01=0x007c}
0x935c…938c Head {h00=0x002c, h01=0x0050, text=» LDR A1,A2 IS IT A GREEK CHARACTER ? =4 «, t00=0x005e, t01=0x0094}
0x938c…93a4 Head {h00=0x0014, h01=0x0050, text=» SUK A1,/B9 =4 «, t00=0x005e, t01=0x00c4}
0x93a4…93c0 Head {h00=0x0018, h01=0x0050, text=» RF(P) GRCH10 NO =4 «, t00=0x005e, t01=0x00dc}
0x93c0…93d6 Head {h00=0x0012, h01=0x0050, text=» ADK A1,9 =4 «, t00=0x005e, t01=0x00f8}
0x93d6…93f2 Head {h00=0x0018, h01=0x0050, text=» RF(N) GRCH10 NO =4 «, t00=0x005e, t01=0x010e}
0x93f2…9402 Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005e, t01=0x012a}
0x9402…9436 Head {h00=0x0030, h01=0x0050, text=» ADKL A1,GRTAB GET THE CORRECT CODE FROM =4 «, t00=0x005e, t01=0x013a}
0x9436…9460 Head {h00=0x0026, h01=0x0050, text=» LCR A2,A1 THE CHARACTER TABLE =4 «, t00=0x005e, t01=0x016e}
0x9460…9470 Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005f, t01=0x0008}
0x9470…9488 Head {h00=0x0014, h01=0x0050, text=»GRCH10 EQU * =4«, t00=0x005f, t01=0x0018}
0x9488…949c Head {h00=0x0010, h01=0x0050, text=» RTN A15 =4«, t00=0x005f, t01=0x0030}
0x949c…94ac Head {h00=0x000c, h01=0x0050, text=»* =4 «, t00=0x005f, t01=0x0044}
0x94ac…94c4 Head {h00=0x0014, h01=0x0050, text=»GRTAB EQU * =4 «, t00=0x005f, t01=0x0054}
0x94c4…94f4 Head {h00=0x002c, h01=0x0050, text=» DATA /2223,/263B,/405B,/5C5D,/5E5F =4 «, t00=0x005f, t01=0x006c}
0x94f4…9506 Head {h00=0x000e, h01=0x0050, text=» XIF =4 «, t00=0x005f, t01=0x009c}
0x9506…951c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x005f, t01=0x00ae}
0x951c…952a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00c4}
0x952a…9564 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x005f, t01=0x00d2}
0x9564…956e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x010c}
0x956e…95a6 Head {h00=0x0034, h01=0x0050, text=»* TRASP = SUBROUTINE THAT ELIMINATES TRAILING «, t00=0x005f, t01=0x0116}
0x95a6…95de Head {h00=0x0034, h01=0x0050, text=»* SPACES FROM ECB-BUFFER. IT ALSO DE- «, t00=0x005f, t01=0x014e}
0x95de…9612 Head {h00=0x0030, h01=0x0050, text=»* LETES LOW INTENSITY START, HIGH «, t00=0x005f, t01=0x0186}
0x9612…9636 Head {h00=0x0020, h01=0x0050, text=»* INTENSITY START.«, t00=0x0060, t01=0x002a}
0x9636…9652 Head {h00=0x0018, h01=0x0050, text=»* AND TABULATIONS «, t00=0x0060, t01=0x004e}
0x9652…965c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x006a}
0x965c…9696 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0060, t01=0x0074}
0x9696…96a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00ae}
0x96a0…96b4 Head {h00=0x0010, h01=0x0050, text=»TRASP EQU * «, t00=0x0060, t01=0x00b8}
0x96b4…96e4 Head {h00=0x002c, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS (BA) «, t00=0x0060, t01=0x00cc}
0x96e4…9714 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBRL,A8 GET REQUESTED LENGTH(RL)«, t00=0x0060, t01=0x00fc}
0x9714…9738 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A2 GET END OF BUFFER«, t00=0x0060, t01=0x012c}
0x9738…9750 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0060, t01=0x0150}
0x9750…976e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0060, t01=0x0168}
0x976e…9788 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0060, t01=0x0186}
0x9788…97a4 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0061, t01=0x0010}
0x97a4…97b8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0061, t01=0x002c}
0x97b8…97d4 Head {h00=0x0018, h01=0x0050, text=» SUK A4,/20 SPACE ? «, t00=0x0061, t01=0x0040}
0x97d4…97ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) SKIP07 YES «, t00=0x0061, t01=0x005c}
0x97ee…9810 Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 LOW INT. STOP ? «, t00=0x0061, t01=0x0076}
0x9810…982c Head {h00=0x0018, h01=0x0050, text=» RF(Z) SKIP07 YES ! «, t00=0x0061, t01=0x0098}
0x982c…984e Head {h00=0x001e, h01=0x0050, text=» ADK A4,1 LOW INT. START ?«, t00=0x0061, t01=0x00b4}
0x984e…986a Head {h00=0x0018, h01=0x0050, text=» RF(Z) SKIP07 YES ! «, t00=0x0061, t01=0x00d6}
0x986a…987c Head {h00=0x000e, h01=0x0050, text=» CWK A2,4 «, t00=0x0061, t01=0x00f2}
0x987c…98a2 Head {h00=0x0022, h01=0x0050, text=» RF(NG) SKIP30 REQ, LENGTH < 5«, t00=0x0061, t01=0x0104}
0x98a2…98c4 Head {h00=0x001e, h01=0x0050, text=» LC A4,-2,A1 GET CHARACTER«, t00=0x0061, t01=0x012a}
0x98c4…98ee Head {h00=0x0026, h01=0x0050, text=» SUK A4,/11 TABULATION CHARACTER ?«, t00=0x0061, t01=0x014c}
0x98ee…990a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) SKIP30 YES !«, t00=0x0061, t01=0x0176}
0x990a…992a (98, 0, 400) Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0062, t01=0x0004}
0x992a…9946 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0062, t01=0x0024}
0x9946…995a Head {h00=0x0010, h01=0x0050, text=»SKIP30 EQU *«, t00=0x0062, t01=0x0040}
0x995a…9972 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0062, t01=0x0054}
0x9972…999e Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBCW,A8 SAVE OLD REQ. LENGTH«, t00=0x0062, t01=0x006c}
0x999e…99a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0098}
0x99a8…99cc Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBRL,A8 STORE NEW RL«, t00=0x0062, t01=0x00a2}
0x99cc…99d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00c6}
0x99d6…99e6 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0062, t01=0x00d0}
0x99e6…99f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00e0}
0x99f2…9a00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x00ec}
0x9a00…9a44 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0062, t01=0x00fa}
0x9a44…9a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x013e}
0x9a4e…9a72 Head {h00=0x0020, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE «, t00=0x0062, t01=0x0148}
0x9a72…9aac Head {h00=0x0036, h01=0x0050, text=»* CLEARS DISPLAY AND SETS CURSOR & HEAD POSITION«, t00=0x0062, t01=0x016c}
0x9aac…9adc Head {h00=0x002c, h01=0x0050, text=»* COUNTER TO HOME POSITION ( /0101 ). «, t00=0x0063, t01=0x0016}
0x9adc…9ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0046}
0x9ae6…9b2a Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0063, t01=0x0050}
0x9b2a…9b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0094}
0x9b34…9b46 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x0063, t01=0x009e}
0x9b46…9b5c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0063, t01=0x00b0}
0x9b5c…9b82 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 INDICATE BUSY«, t00=0x0063, t01=0x00c6}
0x9b82…9b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ec}
0x9b8c…9bb4 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,MAXBLK MAX. BLOCK SIZE «, t00=0x0063, t01=0x00f6}
0x9bb4…9bd8 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START OF BLOCK«, t00=0x0063, t01=0x011e}
0x9bd8…9bf2 Head {h00=0x0016, h01=0x0050, text=»RCER RB(NZ) DYER50«, t00=0x0063, t01=0x0142}
0x9bf2…9c0a Head {h00=0x0014, h01=0x0050, text=» IFT PLASM=0 =4«, t00=0x0063, t01=0x015c}
0x9c0a…9c28 Head {h00=0x001a, h01=0x0050, text=» IFF STEADY+COUNTRY=0 «, t00=0x0063, t01=0x0174}
0x9c28…9c52 (100, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTDEV,A6 GET DEVICE STATUS«, t00=0x0064, t01=0x0004}
0x9c52…9c7c Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/2000 PTS 6385 OR 6386 ? «, t00=0x0064, t01=0x002e}
0x9c7c…9c96 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RCDY20 NO !«, t00=0x0064, t01=0x0058}
0x9c96…9cc2 Head {h00=0x0028, h01=0x0050, text=» LDK A3,/40 SET UP TRANSFER COUNTER «, t00=0x0064, t01=0x0072}
0x9cc2…9ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x009e}
0x9ccc…9d00 Head {h00=0x0030, h01=0x0050, text=»RCDY10 LDK A2,STILL-1 SET UP CURSOR BLINKING«, t00=0x0064, t01=0x00a8}
0x9d00…9d2e Head {h00=0x002a, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO «, t00=0x0064, t01=0x00dc}
0x9d2e…9d5c Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INFORMATION «, t00=0x0064, t01=0x010a}
0x9d5c…9d70 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0064, t01=0x0138}
0x9d70…9d9c Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT TRANSFER COUNTER«, t00=0x0064, t01=0x014c}
0x9d9c…9dc6 Head {h00=0x0026, h01=0x0050, text=» RB(P) RCDY10 NOT ENOUGH TRANSFERS«, t00=0x0064, t01=0x0178}
0x9dc6…9df4 Head {h00=0x002a, h01=0x0050, text=» LDK A2,CTYCOD SEND "SET COUNTRY CODE"«, t00=0x0065, t01=0x0012}
0x9df4…9e0a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0065, t01=0x0040}
0x9e0a…9e1e Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x0056}
0x9e1e…9e4a Head {h00=0x0028, h01=0x0050, text=» LDK A2,COUNTRY SEND "COUNTRY CODE" «, t00=0x0065, t01=0x006a}
0x9e4a…9e6e Head {h00=0x0020, h01=0x0050, text=» ORK A2,/30 MAKE ASCII DIGIT«, t00=0x0065, t01=0x0096}
0x9e6e…9e84 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0065, t01=0x00ba}
0x9e84…9e98 Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x00d0}
0x9e98…9eac Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0065, t01=0x00e4}
0x9eac…9eb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x00f8}
0x9eb8…9ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0104}
0x9ec2…9eee Head {h00=0x0028, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND CURSOR HOME«, t00=0x0065, t01=0x010e}
0x9eee…9f08 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0065, t01=0x013a}
0x9f08…9f1c Head {h00=0x0010, h01=0x0050, text=» RB(NZ) RCER«, t00=0x0065, t01=0x0154}
0x9f1c…9f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0168}
0x9f26…9f4a Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/0101 HOME POSITION«, t00=0x0065, t01=0x0172}
0x9f4a…9f82 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTAP+DWTDEV,A6 SET HEAD POSITION COUNTER«, t00=0x0066, t01=0x0008}
0x9f82…9f94 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0066, t01=0x0040}
0x9f94…9fd2 Head {h00=0x003a, h01=0x0050, text=» SC A2,DWTBC+DWTDEV,A6 RESET CURRENT POSITION COUNTER «, t00=0x0066, t01=0x0052}
0x9fd2…9fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0090}
0x9fdc…9fee Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0066, t01=0x009a}
0x9fee…9ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00ac}
0x9ff8…a028 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0066, t01=0x00b6}
0xa028…a032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e6}
0xa032…a04c Head {h00=0x0016, h01=0x0050, text=»* ABORT ROUTINE «, t00=0x0066, t01=0x00f0}
0xa04c…a056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x010a}
0xa056…a086 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0066, t01=0x0114}
0xa086…a090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0144}
0xa090…a0a2 Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0066, t01=0x014e}
0xa0a2…a0d2 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POS. POINTER «, t00=0x0066, t01=0x0160}
0xa0d2…a0ee Head {h00=0x0018, h01=0x0050, text=» ABL LENDIS END I/O «, t00=0x0066, t01=0x0190}
0xa0ee…a0fa Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0067, t01=0x001c}
0xa0fa…a0fe Head {h00=0x4004, h01=0x0000}
0xa0fe…a102 00 67 00 28 ┆ g (┆
0xa102…a10a (104, 1, 8) 20 04 00 00 00 68 00 04 ┆ h ┆
0xa10a…a15a (105, 0, 400) 41 5c 49 4c 4c 49 4e 54 00 18 01 8c 00 10 00 50 5c 44 41 54 41 5c 49 4c 4c 49 4e 54 00 19 00 10 00 10 00 50 5c 44 41 54 41 5c 49 4c 4c 49 4e 54 00 19 00 24 00 10 00 50 5c 44 41 54 41 5c 49 4c 4c 49 4e 54 00 19 00 38 00 10 00 50 5c 44 41 54 ┆A ILLINT P DATA ILLINT P DATA ILLINT $ P DATA ILLINT 8 P DAT┆
0xa15a…a1aa 41 5c 49 4c 4c 49 4e 54 00 19 00 4c 00 10 00 50 5c 44 41 54 41 5c 49 4c 4c 49 4e 54 00 19 00 60 00 10 00 50 5c 44 41 54 41 5c 49 4c 4c 49 4e 54 00 19 00 74 00 08 00 50 21 21 45 4e 00 19 00 88 00 0a 00 50 41 53 4d 20 2f 53 00 19 00 94 00 0a ┆A ILLINT L P DATA ILLINT ` P DATA ILLINT t P!!EN PASM /S ┆
0xa1aa…a1fa 00 50 4b 50 46 20 2f 4f 00 19 00 a2 00 0a 00 50 4b 50 46 20 2f 53 00 19 00 b0 00 08 00 50 53 43 52 20 00 19 00 be 00 0e 00 50 4c 45 44 20 50 46 54 41 42 20 00 19 00 ca 00 0c 00 50 21 21 49 4c 20 31 32 20 00 19 00 dc 00 0c 00 50 21 21 49 4c ┆ PKPF /O PKPF /S PSCR PLED PFTAB P!!IL 12 P!!IL┆
0xa1fa…a24a 20 34 31 20 00 19 00 ec 00 0c 00 50 21 21 44 4c 20 30 34 32 00 19 00 fc 00 0c 00 50 21 21 44 4c 20 30 34 33 00 19 01 0c 00 0c 00 50 21 21 44 4c 20 30 34 34 00 19 01 1c 00 0c 00 50 21 21 44 4c 20 30 34 36 00 19 01 2c 00 0c 00 50 21 21 44 4c ┆ 41 P!!DL 042 P!!DL 043 P!!DL 044 P!!DL 046 , P!!DL┆
0xa24a…a29a 20 30 34 37 00 19 01 3c 00 0c 00 50 21 21 44 4c 20 30 34 38 00 19 01 4c 00 0c 00 50 21 21 44 4c 20 30 34 39 00 19 01 5c 00 0c 00 50 21 21 44 4c 20 30 35 30 00 19 01 6c 00 0c 00 50 21 21 44 4c 20 30 35 31 00 19 01 7c 00 0c 00 50 21 21 44 4c ┆ 047 < P!!DL 048 L P!!DL 049 P!!DL 050 l P!!DL 051 | P!!DL┆
0xa29a…a2ea (106, 0, 400) 20 30 35 33 00 19 01 8c 00 0c 00 50 21 21 44 4c 20 30 35 34 00 1a 00 0c 00 0c 00 50 21 21 44 4c 20 30 35 36 00 1a 00 1c 00 0c 00 50 21 21 44 4c 20 30 35 37 00 1a 00 2c 00 0c 00 50 21 21 44 4c 20 30 35 38 00 1a 00 3c 00 0c 00 50 21 21 44 4c ┆ 053 P!!DL 054 P!!DL 056 P!!DL 057 , P!!DL 058 < P!!DL┆
0xa2ea…a33a 20 30 35 39 00 1a 00 4c 00 0c 00 50 21 21 44 4c 20 30 36 30 00 1a 00 5c 00 0c 00 50 21 21 44 4c 20 30 36 31 00 1a 00 6c 00 08 00 50 21 21 45 4e 00 1a 00 7c 00 0a 00 50 41 53 4d 20 2f 53 00 1a 00 88 00 0a 00 50 4b 50 46 20 2f 4f 00 1a 00 96 ┆ 059 L P!!DL 060 P!!DL 061 l P!!EN | PASM /S PKPF /O ┆
0xa33a…a38a 00 0a 00 50 4b 50 46 20 2f 53 00 1a 00 a4 00 08 00 50 53 43 52 20 00 1a 00 b2 00 1a 00 50 4d 4f 56 20 43 54 41 42 30 31 2c 2f 53 2c 50 54 53 44 45 4d 4f 20 00 1a 00 be 00 0a 00 50 41 53 4d 20 2f 53 00 1a 00 dc 00 0a 00 50 4b 50 46 20 2f 4f ┆ PKPF /S PSCR PMOV CTAB01,/S,PTSDEMO PASM /S PKPF /O┆
0xa38a…a3da 00 1a 00 ea 00 0a 00 50 4b 50 46 20 2f 53 00 1a 00 f8 00 08 00 50 53 43 52 20 00 1a 01 06 00 0e 00 50 4c 45 44 20 20 44 56 54 4b 42 00 1a 01 12 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 37 5c 45 51 55 5c 30 24 24 43 50 55 38 35 37 5c ┆ PKPF /S PSCR PLED DVTKB ( P!!CH $$CPU857 EQU 0$$CPU857 ┆
0xa3da…a42a 45 51 55 5c 31 24 24 20 00 1a 01 24 00 28 00 50 21 21 43 48 20 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 30 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 31 24 24 20 00 1a 01 50 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 32 5c 45 51 55 5c 31 24 ┆EQU 1$$ $ ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ P ( P!!CH $$CPU852 EQU 1$┆
0xa42a…a47a (107, 0, 400) 24 43 50 55 38 35 32 5c 45 51 55 5c 30 24 24 20 00 1a 01 7c 00 28 00 50 21 21 43 48 20 24 24 44 53 4b 50 41 47 5c 45 51 55 5c 30 24 24 44 53 4b 50 41 47 5c 45 51 55 5c 31 24 24 20 00 1b 00 18 00 1a 00 50 21 21 43 48 20 24 24 44 56 54 4b 42 ┆$CPU852 EQU 0$$ | ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!CH $$DVTKB┆
0xa47a…a4ca 24 24 44 56 4b 42 30 30 24 24 00 1b 00 44 00 1a 00 50 21 21 43 48 20 24 24 2f 32 32 32 32 24 24 2f 30 30 30 31 24 24 20 00 1b 00 62 00 1a 00 50 21 21 43 48 20 24 24 2f 33 33 33 33 24 24 2f 31 30 30 30 24 24 20 00 1b 00 80 00 18 00 50 21 21 ┆$$DVKB00$$ D P!!CH $$/2222$$/0001$$ b P!!CH $$/3333$$/1000$$ P!!┆
0xa4ca…a51a 43 48 20 24 24 43 4f 44 24 24 43 54 41 42 30 31 24 24 00 1b 00 9e 00 18 00 50 21 21 43 48 20 24 24 45 43 48 24 24 44 56 44 59 30 30 24 24 00 1b 00 ba 00 08 00 50 21 21 45 4e 00 1b 00 d6 00 0a 00 50 41 53 4d 20 2f 53 00 1b 00 e2 00 0a 00 50 ┆CH $$COD$$CTAB01$$ P!!CH $$ECH$$DVDY00$$ P!!EN PASM /S P┆
0xa51a…a56a 4b 50 46 20 2f 4f 00 1b 00 f0 00 0a 00 50 4b 50 46 20 2f 53 00 1b 00 fe 00 08 00 50 53 43 52 20 00 1b 01 0c 00 0e 00 50 4c 45 44 20 20 44 56 54 44 49 00 1b 01 18 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 37 5c 45 51 55 5c 30 24 24 43 ┆KPF /O PKPF /S PSCR PLED DVTDI ( P!!CH $$CPU857 EQU 0$$C┆
0xa56a…a5ba 50 55 38 35 37 5c 45 51 55 5c 31 24 24 20 00 1b 01 2a 00 28 00 50 21 21 43 48 20 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 30 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 31 24 24 20 00 1b 01 56 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 32 5c ┆PU857 EQU 1$$ * ( P!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ V ( P!!CH $$CPU852 ┆
0xa5ba…a60a (108, 0, 400) 45 51 55 5c 31 24 24 43 50 55 38 35 32 5c 45 51 55 5c 30 24 24 20 00 1b 01 82 00 28 00 50 21 21 43 48 20 24 24 44 53 4b 50 41 47 5c 45 51 55 5c 30 24 24 44 53 4b 50 41 47 5c 45 51 55 5c 31 24 24 20 00 1c 00 1e 00 1a 00 50 21 21 43 48 20 24 ┆EQU 1$$CPU852 EQU 0$$ ( P!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ P!!CH $┆
0xa60a…a65a 24 44 56 54 44 49 24 24 44 56 44 49 30 30 24 24 00 1c 00 4a 00 18 00 50 21 21 43 48 20 24 24 32 30 31 30 24 24 30 30 30 30 24 24 20 00 1c 00 68 00 1a 00 50 21 21 43 48 20 24 24 2f 32 32 32 32 24 24 2f 30 30 30 31 24 24 20 00 1c 00 84 00 1a ┆$DVTDI$$DVDI00$$ J P!!CH $$2010$$0000$$ h P!!CH $$/2222$$/0001$$ ┆
0xa65a…a6aa 00 50 21 21 43 48 20 24 24 2f 33 33 33 33 24 24 2f 38 30 30 30 24 24 20 00 1c 00 a2 00 08 00 50 21 21 45 4e 00 1c 00 c0 00 0a 00 50 41 53 4d 20 2f 53 00 1c 00 cc 00 0a 00 50 4b 50 46 20 2f 4f 00 1c 00 da 00 0a 00 50 4b 50 46 20 2f 53 00 1c ┆ P!!CH $$/3333$$/8000$$ P!!EN PASM /S PKPF /O PKPF /S ┆
0xa6aa…a6fa 00 e8 00 08 00 50 53 43 52 20 00 1c 00 f6 00 0e 00 50 4c 45 44 20 20 44 56 54 44 59 00 1c 01 02 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 37 5c 45 51 55 5c 30 24 24 43 50 55 38 35 37 5c 45 51 55 5c 31 24 24 20 00 1c 01 14 00 28 00 50 ┆ PSCR PLED DVTDY ( P!!CH $$CPU857 EQU 0$$CPU857 EQU 1$$ ( P┆
0xa6fa…a74a 21 21 43 48 20 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 30 24 24 4d 4d 55 50 41 47 5c 45 51 55 5c 31 24 24 20 00 1c 01 40 00 28 00 50 21 21 43 48 20 24 24 43 50 55 38 35 32 5c 45 51 55 5c 31 24 24 43 50 55 38 35 32 5c 45 51 55 5c 30 24 24 20 ┆!!CH $$MMUPAG EQU 0$$MMUPAG EQU 1$$ @ ( P!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ┆