|
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: 36430 (0x8e4e)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
└─⟦this⟧ »M:92SP/DRDY01.SC«
IDENT DRDY01 9.2DK 2 83-12-15 870105040921 DK2 HANDLE COPY 80 NB. CHANNEL PARAM IN DWT = 50 *DK,POS 80 ON VDU REL 9.2 80-02-12 =4,ABORT ROUTINE INCLUDED REL 9.1 79-05-23 =3,STEADY CURSOR PROBLEM CORRECTED PRR 9.1 79-04-06 =2,ERASE ONLY TO LAST POS. OF SCREEN PRR 9.1 79-01-31 =1 DRIVER ADAPTAD TO HANDLE PTS 6385 PRR 9.1 79-01-12 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY * * * * * * ************************************************** * * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS * PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 * AND PTS 6386 * THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM * VIA CHLT OR CHRT. * * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS * WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN * ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE * GENERAL KEYBOARD DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C D Y ACTIVATION PART * * I H D Y INTERRUPT HANDLER * * R C D Y RECOVERY ROUTINE * * E C H O D Y ECHO FUNCTIONS * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00: TEST STATUS * 05: BASIC WRITE * 06: STANDARD WRITE * 07: WRITE GRAPHIC DISPLAY * 0B: CURSOR POSITIONING * 31: ERASE * * NORMAL REGISTER USAGE * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * EJECT * * * SYSTEM ADAPTATION * * DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. * * --------------------------------- * BIT: 10 11 * -------------- * 0 0 PTS 6344 * 0 1 PTS 6351 & 6342 * 1 0 PTS 6386 & 6385 * --------------------------------- * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT * -IS ADAPTED TO CONTROL ONLY PTS 6344 * -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 * -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER * -CAN SUPPRESS TRAILING BLANKS * AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) EJECT * * * * *********** * ENTRIES * *********** * * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * * * ***************************************** * EXTERNAL TOSS MODULE ENTRIES * ***************************************** * * EXTRN DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTOR ORDER * EJECT ************* * CONSTANTS * ************* * FASTO EQU /14 FAST OUTPUT SCADD EQU /11 SET CURSOR ADDRESS ULSTAR EQU /12 UNDERLINE START ULSTOP EQU /13 UNDERLINE STOP LISTAR EQU /1E LOW INTENSITY START LISTOP EQU /1F LOW INTENSITY STOP BACKSP EQU /08 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 SPACE EQU /20 SPACE STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY RETURN EQU /12 RETURN TO ALPHANUMERIC MODE ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE POINT EQU /2E POINT CHARACTER EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT STILL EQU /18 CURSOR STEADY CTYCOD EQU /1B SET COUNTRY CODE * ******************** * RETURN CODES * ******************** * CCERR EQU /4 CODE CHECK ERROR OPERR EQU /1 NOT OPERABLE, POWER OFF * EJECT * * ***************************************** * CONDITIONAL ASSEMBLY * ***************************************** * * * BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 * X:A EQU 0 GRAFIC EQU 0 * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU 0 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 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 EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU 1 * * THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT * BY SETTING MMUPAG = 1 * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. * 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 6 * * MEMORY MANAGEMENT BUFFER SIZE * * X:H EQU 64 DVBLEN EQU 162 * EJECT * * ******************************** * DWT-DISPLACEMENT * ******************************** * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTAP EQU START+/12 HEAD POSITION POINTER DWTPOS EQU START+/15 POSITIONS DWTLIN EQU START+/14 LINES DWTBIN EQU START+/16 BUFFER INDEX * EJECT * * ********** * TABLES * ********** * * DATA DVBLEN BUFFER LENGTH DATA 2 DEVICE INDEX DYAD EQU * ADDRESS BLOCK DATA ACDY ACTIVATION DRIVER DATA ABDY ABORT ROUTINE ADDRESS DATA IHDY INTERRUPT HANDLER DATA RCDY RECOVERY ROUTINE DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * TABSPE EQU * TABLE OF SPECIAL CHARACTERS DATA /0712,/131E,/1F14 EJECT * * A C D Y * * ACDY = ACTIVATION DRIVER DISPLAY * * ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE * IS SET IF DISPLAY NOT OPERABLE * * * ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY * FROM ECB-BUFFER WITHOUT ANY CHECK. * * ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM * ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. * * IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') * ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER * OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> * IFT GRAFIC=1 * ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED * TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * IS SENT TO THE DISPLAY. * XIF * ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. * THE CURSOR IS SENT TO THE POSITION GIVEN * IN CONTROL WORD. NO INFORMATION ON DISPLAY * IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) * IS EXECUTED. * * ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE * WHERE THE CURSOR IS POSITIONED THE NUMBER * OF CHARACTERS THAT ARE DEFINED IN THE CONTROL * WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS * IN THE CURSOR POSITION. THE CURSOR RE- * MAINS IN THAT POSITION. ACDY EQU * LDK A3,0 START BUFFER INDEX LDK A4,0 COUNTER LDR A7,A7 ORDER 0 ? ABL(E) ADY410 YES LDK A2,STX START OF MESSAGE CF A5,OUTPUT SEND IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAPHIC DISPLAY RF(E) ACDY02 NO IFT GRAFIC=1 CWK A7,7 ORDER ' ? ABL(E) ADY500 XIF IFT WHATDY=0 LDK A2,/12 INDICATE SWITCH TO ALPHA MODE CF A5,OUTPUT * XIF * ACDY02 EQU * CWK A7,5 ORDER 5 RF(E) ACDY90 YES SUK A7,6 ORDER 6 ? RF(E) ACDY20 YES SUK A7,5 ORDER /B ? ABL(E) ADY200 YES SUK A7,/26 ORDER ERASE ? ABL(E) ADY160 YES * DYERR ABL DISIOE I/O REQUEST ERROR EJECT * ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER * ARE CARRIED OUT. * /2B NO MOVING OF PRINT HEAD * /30 CR, LF, LF * /31 ERASE DISPLAY AND WRITE FROM HOME POSITION * OTHER VALUE CR, LF * ACDY20 EQU * LD A2,4,A8 GET REQUESTED LENGTH RF(E) ACDY25 LDK A3,2 START BUFFER INDEX LD A2,2,A8 GET BUFFER ADDRESS LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF ACDY25 EQU * SUK A2,/2B POSITIONING BEFORE WRITE ? RF(E) ACDY90 SUK A2,6 /31 ? RF(E) ACDY65 LDK A4,1 INDICATE LINE FEED ADK A2,1 DOUBLE LINE FEEED ? RF(NE) ACDY30 ADK A4,1 INDICATE DOUBLE LINE FEED ACDY30 LDK A2,CR CARRIAGE RETURN ACDY35 LDK A1,1 SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER * SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS * ACDY50 EQU * CF A5,OUTPUT SEND CHARACTER ACDY52 SUK A4,1 RF(N) ACDY90 START SECTION ENDED? LC A1,DWTLIN,A6 LINES CC A1,DWTAP,A6 LAST LINE ? RF(L) ACDY55 LDKL A2,/100 INCREMENT LINE COUNTER ADS A2,DWTAP,A6 ACDY55 EQU * LDR* A1,A6 GET CHANNEL PARAM DK2 ANK A1,/40 COPY80? DK2 RB(NE) ACDY52 YES DK2 LDK A2,LF LINE FEED TO SEND RB ACDY50 ACDY65 LDK A2,CLEHOM CLEAR AND HOME LDK A1,1 SC A1,DWTAP,A6 RESET LINE COUNTER RB ACDY35 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACDY70 EQU * IFT WHATDY=0 LDR* A4,A6 GET CHANNEL PARAMETER ANK A4,/10 RF(NZ) ACDY75 NOT 6344 OR 6386 XIF LD A4,2,A8 ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER CCR A2,A4 CHAR EQU TO CURRENT? ABL(E) CHECK YES! ACDY75 EQU * CF A5,OUTPUT ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING IFT TRASPA=1 LD A1,2,A8 GET BUFFER ADDRESS (BA) LD A2,4,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET ADD END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR CCK A4,/2020 SPACE ? RF(NE) SKIP20 NO SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP20 CWK A2,4 RF(NG) SKIP30 RL < 5 LC A4,-2,A1 GET CHAR CCK A4,/1111 TABULATION CHAR ? RF(NE) SKIP25 NO! SUK A1,2 DECR BA SUK A2,2 DECR RL RB SKIP07 GET NEXT SKIP25 LCR A4,A1 GET CHARACTER AGAIN ANK A4,/FF SUK A4,/12 UNDER LINE START? RB(Z) SKIP07 YES! SKIP IT! SUK A4,/C LOW INT. START? RB(Z) SKIP07 YES! SUK A4,1 LOW INT. STOP? RB(Z) SKIP07 YES! * SKIP30 ST A2,4,A8 STORE NEW RL XIF ACDY90 LDK A4,0 ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER? ABL(NP) ADY405 SUK A7,5 ORDER 5? RB(E) ACDY75 ANK A2,/7F LDK A1,5 SET TABLE POINTER CC A2,TABSPE,A1 FAST OUTPUT? RF(E) ADY125 SUK A1,1 NO! LDR* A7,A6 CHANNEL PARAMETER ANK A7,/30 GRAFIC DISPLAY ? RF(E) ADY110 NO LDK A1,0 SET TABLE PONTER ADY110 CC A2,TABSPE,A1 CHARACTER FOUND RF(NE) ADY128 CCK A2,/1E1E LOW INTENSITY ? RF(NE) ADY122 NO LDK A4,/80 ADY120 ORRS A4,A6 SET LOW INTENSITY MODE LDK A4,0 RB ACDY50 ADY122 CCK A2,/1212 UNDERLINE ? RF(NE) ADY125 LDK A4,/40 SET UNDERLINE MODE RB ADY120 ADY125 CCK A2,/1414 FAST OUTPUT ? LDK A4,0 RB(NE) ACDY50 NO LDR A4,A2 CF A15,GETCHR GET OUTPUT CHARACTER LDR A1,A2 LDR A2,A4 LD A4,4,A8 REQ LENGTH SUR A4,A3 NUMBER OF CHARS RF(Z) ADY127 NONE * IFT WHATDY=0 LDR* A7,A6 GET CHANNEL PARAMETER ANK A7,/10 RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? XIF LDR A3,A1 NO! CF A5,FASTER ADY127 EQU * LD A3,4,A8 REQ LENGTH ST A3,6,A8 EFF LENGTH ABL ADY405 ADY128 EQU * SUK A1,1 GET NEXT RB(NN) ADY110 NOT AT END LDR A1,A2 MOVE CHARACTER SUK A1,/11 TAB CHAR? (11) RF(E) ADY140 SUK A1,/F LESS THAN /20 ? RF(N) ADY130 CODE CHECK ERROR SUK A1,/3F GREATER THAN /5F RB(NP) ACDY70 IFT LOWCHA=0 SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F TO CHARACTER BETWEEN /40 TO /5F XIF RB ACDY70 * * IFT WHATDY=0 OTHER EQU * ************************ * A3 = INDEX * A1 = CHARACTER * A4 = NUMBER ************************ LC A2,DWTBC,A6 AD A2,DWTAP,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD LENGTH OF REQUEST LD A3,DWTPOS,A6 GET MAX-POS AND ANK A3,/FF ST A4,10,A8 SAVE LENGTH SUR A3,A2 COMPARE RF(NN) OT030 LENGTH OK ADR A4,A3 ST A4,10,A8 SAVE LENGTH ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS OT030 EQU * LDR A3,A1 SAVE CHARACTER TO SEND OT010 LDR A2,A3 CF A5,OUTPUT SENT CHAR (IN A2) SUK A4,1 DECREMENT COUNTER RB(P) OT010 LD A4,10,A8 GET ACT. LENGTH OT040 LDK A2,BACKSP CF A5,OUTPUT SENDBACKSPACE SUK A4,1 DECREMENT LENGTH RB(P) OT040 RB ADY127 XIF EJECT * * CODE CHECK ERROR * ADY130 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ADY100 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+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(NP) ADY100 LDR A4,A2 ADY145 LDK A2,CURRIG CURSOR RIGHT ADY146 CF A5,OUTPUT CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 READY ? RB(NE) ADY145 NO ABL ADY100 EJECT * * ERASE ORDER /31 * ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY166 YES =2 XIF CF A5,ERA GET LENGTH TO ERASE =2 LDK A3,/20 CF A5,FASTER FAST OUTPUT ADY165 LDK A2,ETB CF A5,OUTPUT ABL ADY410 END OF REQUEST IFT WHATDY=0 ADY166 EQU * YES =2 CF A5,ERA GET LENGTH TO ERASE =2 * ADY170 SUK A4,1 DECR NO OF CHAR RF(N) ADY180 ERASE READY LDK A2,/20 SPACE CF A5,OUTPUT SEND IT RB ADY170 ADY180 LD A4,10,A8 CF A5,ERA GET LENGTH TO ERASE =2 LDR A3,A3 OVER EDGE =2 RF(NN) ADY186 NO =2 SUK A4,1 ADJUST LENGTH ADY186 EQU * SUK A4,1 DECREMENT =2 RB(N) ADY165 CURSOR IN ORIGIN POSITION LDK A2,BACKSP CURSOR LEFT CF A5,OUTPUT SEND IT RB ADY186 AGAIN XIF EJECT * * ORDER /B CURSOR POSITIONING PART * ADY200 EQU * * IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY205 YES * IF VIDEO (6344) SET CURSOR ADDRESS DIRECT XIF LD A4,10,A8 GET REQUESTED CURSOR POS ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER CF A5,CURPOS SET CURSOR RF ADY380 IFT WHATDY=0 * GET LINE ADY205 LC A4,10,A8 GET REQUESTED LINE CC A4,DWTLIN,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP,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 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,A6 RESET POSITION RB ADY230 * * GET POSITION * ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER LC A4,11,A8 GET REQUESTED POSITION CC A4,DWTPOS,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS,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+1,A6 GET ACTUAL POSITION CC A3,DWTPOS,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 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 SUK A3,1 LAST BACKSPACE ? RB(NE) ADY345 ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER XIF ADY380 LDK A3,2 START BUFFER INDEX ABL ACDY90 IFT WHATDY=0 * ADY400 LDK A2,/22 START CHARACTER CF A5,OUTPUT * XIF * EJECT * * * SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL * WORD, LOAD A1 WITH RETURN CODE AND END I/0. * ADY405 EQU * LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/30 6344 ? RF(NE) ADY407 NO LDR* A1,A6 LDR A4,A1 ANK A1,/40 UNDERLINE MODE ? RF(E) ADY406 NO LDK A2,ULSTOP UNDERLINE STOP CF A5,OUTPUT ADY406 ANK A4,/80 LOW INTENSITY MODE ? RF(E) ADY407 LDK A2,LISTOP LOW INTENSITY STOP CF A5,OUTPUT ADY407 EQU * LDR* A1,A6 GET CHANNEL PARAM DK2 ANK A1,/40 COPY 80 ? DK2 RF(NE) ADY415 YES DK2 LDK A2,ETB END OF TEXT MESSAGE CF A5,OUTPUT SEND CHARACTER CF A15,UPDAPP UPDATE HEAD POSITION COUNTER ADY410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND DUMMY ADY415 EQU * SUK A7,5 ORDER 5 ? RF(NE) ADY420 LDKL A4,/101 HOME POSITION ST A4,DWTAP,A6 ADY420 EQU * SUK A7,6 ORDER B ? *DK RF(NE) ENDIO NO *DK LD A4,DWTAP,A6 GET CURSOR POSITION. *DK ST A4,10,A8 PUT IN ECBCW *DK ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER * IFT GRAFIC=1 * EJECT * * GRAPHIC PART * ADY500 EQU * LDK A2,/11 CF A5,OUTPUT SWITCH TO GRAFIC MODE ADY510 CF A15,GETCHR GET CHARACTER LDR A1,A1 BUFFER EMPTY RB(E) ADY400 LDR A4,A2 CF A15,GETCHR GET NEXT CHARACTER LDR A1,A4 ANK A4,/80 ADDRESS OR DATA RF(E) ADY530 DATA MESSAGE * * ADDRESS MESSAGE * * SET FIRST OUT PUT IN A2 * AND SECOND IN A4 * SLL A1,4 LDR A4,A2 SRL A4,4 ORR A4,A1 ANK A2,/F ANK A4,/7F ORK A2,/20 ADY515 CF A5,OUTPUT SEND FIRST CHARACTER LDR A2,A4 GET SECOND CHARACTER CF A5,OUTPUT SEND SECOND CHARACTER RB ADY510 EJECT * * DATA MESSAGE * * FIRST OUTPUT IS SET IN A2 * AND SECOND IN A4 * ADY530 SLL A1,13 LDR A4,A2 SLL A2,5 ORR A1,A2 LDK A7,10 LDK A2,0 ADY540 SLL A1,1 RF(NN) ADY550 ORKL A2,/200 ADY550 SUK A7,1 RF(E) ADY560 SRL A2,1 RB ADY540 ADY560 LDR A4,A2 SRL A4,4 ANK A4,/3F ANK A2,/F ORK A2,/60 RB ADY515 * XIF * EJECT * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RTN A15 * * POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION * POINTER WHEN REQUEST RUNNING. * A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE * POSUPD EQU * LC A2,DWTBC,A6 GET POSITION POINTER ANK A2,/FF AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS,A6 END OF ROW ? RF(P) POSU10 IM DWTST,A6 INCREMENT POSITION COUNTER POSU10 RTN A15 EJECT * * I H D Y * * INTERRUPT * IHDY EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHDY10 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? RB(NE) ADY420 YES IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 EJECT * * R C D Y * * RCDY = RECOVERY ROUTINE DISPLAY * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * AT ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCDY EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * =3 LDKL A2,/7FFF ANS A2,DWTST,A6 SET BUSY =1 =1 =1 =1 =1 =1 =1 =1 * IFT WHATDY=0 * LDR* A2,A6 CHANNEL PARAMETER ANK A2,/10 GRAPHIC DISPLAY ? RF(E) RCDY10 NO LDK A2,RETURN RETURN TO ALPHANUMERIC MODE CF A5,OUTPUT * XIF * EJECT RCDY10 EQU * LDK A2,/00 DUMMY TO SEND CF A5,OUTPUT LDR A4,A4 LRC-ERROR IN BLOCK ? RF(NE) RCDY20 IFT WHATDY=0 =1 IFF STEADY+COUNTRY=0 =1 LDR* A2,A6 GET CHANNEL PARAMETERS =1 ANK A2,/20 PTS 6385/6386 ? =1 RF(Z) RCDY14 NO =3 LDK A3,100 SET UP TRANSFER COUNTER =3 RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 ADK A2,STEADY ADJUST TO STEADY IF SO =3 CF A5,OUTPUT SEND CURSOR INF =3 SUK A3,1 DEC TRANSFER COUNTER =3 RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 CF A5,OUTPUT =1 LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 ORK A2,/30 =1 CF A5,OUTPUT =1 =3 =3 RCDY14 EQU * =3 XIF =1 LD A3,DWTST,A6 SAVE STATUS WORD =3 LDK A2,CLEHOM CLEAR AND HOME CF A5,OUTPUT SEND LDKL A2,/101 ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER LDR A3,A3 GET OLD STATUS RB(N) ENDIO NOT BUSY LDK A1,OPERR SET RETURN CODE RCDY15 ABL ADY420 EJECT * * LRC-ERROR IN BLOCK SENT REMOTE * RCDY20 EQU * SUK A7,5 ORDER 5 ? RF(NE) RCDY25 NO LDK A1,2 INDICATE THROUGHPUT ERROR RB RCDY15 RCDY25 LDK A2,STX START OF MESSAGE CF A5,OUTPUT LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK ANK A4,/FF RF(E) RCDY30 CF A5,BACCAN SEND BACKSPACES AND RUB OUT LDK A3,2 START BUFFER INDEX RCDY30 ABL ACDY90 EJECT * * E C H O D Y * * ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE * ECHODY EQU * LDR A7,A7 EOR? RF(N) ECDY17 YES LDR A3,A2 SAVE CHARACTER * IFT EORECH=0 * SUK A2,/80 RF(NN) ECDY20 NOT TO BE ECHOED ADK A2,/80 * XIF * SUK A3,/8 RF(E) ECDY40 BACKSPACE SUK A3,/10 RF(E) ECDY50 CLEAR ECDY10 CF A5,OUTPUT SEND CHARACTER CF A15,POSUPD POSITION COUNTER UPDATING RF ECDY20 ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER ECDY20 ABL ECHRTN RETURN TO KEYBOARD * * BACKSPACE * ECDY40 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION LDK A4,1 INDICATE ONE BACKSTEP CF A5,BACCAN BACK RB ECDY20 EJECT * * CLEAR * ECDY50 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION IFT WHATDY=0 LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY RF(E) ECDY60 N CF A5,BACCAN BACK RB ECDY20 XIF ECDY60 LDR A3,A4 SAVE POSITION COUNTER LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER CF A5,CURPOS SET CURSOR LDR A4,A3 GET POS COUNTER ADK A4,1 UPDATE POS COUNTER LDK A3,/20 CF A5,FASTER FAST OUTPUT LDK A2,0 SC A2,DWTBC,A6 RESET POSITION COUNTER RB ECDY20 EJECT * * * BACCAN = SUBROUTINE TO POSITION CURSOR * AT THE PLACE BEFORE REQUEST IF * CLEAR OR BACKWARDS ONE STEP IF * BACKSPACE. * BACCAN EQU * LDR A3,A4 LC A2,DWTBC,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS,A6 LAST POSITION RF(NP) BACA10 NO LDK A2,SPACE DESTRUCTIVE SPACE RF BACA20 BACA10 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND LDK A2,SPACE DESTRUCTIVE SPACE CF A5,OUTPUT SEND LDK A2,BACKSP BACKSPACE BACA20 CF A5,OUTPUT SEND SUK A4,1 RB(NE) BACA10 NGR A3,A3 NEGATE REGISTER ADS A3,DWTST,A6 UPDATE POSITION COUNTER RTN A5 EJECT *********************************************** * CHECK = SUBROUTIN TO CHECK USER BUFFER IN * * ORDER TO GET A REASON FOR USING * * 'FAST OUTPUT FACILITY' ON 6344 * * AND 6386 * *********************************************** CHECK EQU * * * LD A1,4,A8 SUR A1,A3 END OF BUFFER? ABL(NP) ACDY75 YES! LDR A7,A2 SAVE CHER TO SEND (AND CHECK) LDR A2,A4 SAVE BUFFER ADDRESS+INDEX LDK A4,1 RESET COUNTER NEXT ADK A4,1 INCREMENT COUNTER SUK A1,1 END OF BUFFER? RF(NP) OUT YES! ADK A2,1 INCREMENT POINTER CCR A7,A2 CHAR EQU TO PREVIUS? RB(E) NEXT YES! OUT EQU * CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? RF(L) NOFAST NO! ********************************** * UPDATE ACTUAL POSITION POINTER * FASTOK LC A2,DWTBC,A6 GET HEAD POSITION AD A2,DWTAP,A6 ANK A2,/FF ADR A3,A4 UPDATE BUFFER-INDEX ST A3,DWTBIN,A6 SAVE INDEX LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE SUR A3,A2 AND COMPARE SUR A3,A4 RF(NN) HIT ADR A4,A3 ADK A4,1 HIT ADS A4,DWTST,A6 UPDATE POSITION *********************** * EXECUTE FAST OUTPUT * LDR A3,A7 GET CHAR TO SEND CF A5,FASTER ************** * SET CURSOR * LD A4,DWTST,A6 GET ACTUAL POS ANK A4,/FF AD A4,DWTAP,A6 INC HEAD POS POINTER CF A5,CURPOS ***************************** * RESTORE A3 (BUFFER INDEX) * LD A3,DWTBIN,A6 RESTORE BUFFER INDEX SUK A3,1 ABL ACDY90 READ NEXT CHAR * NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER ABL ACDY75 EJECT * * * FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT * AT ENTRY A4 = NUMBER OF CHARACTERS * FASTER EQU * CWK A4,/60 RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG LDK A4,/59 FAS010 EQU * ADK A4,/20 ADD CONSTANT LDK A2,FASTO FAST OUTPUT CF A5,OUTPUT SEND LDR A2,A4 NO OF CHAR CF A5,OUTPUT SEND LDR A2,A3 CF A5,OUTPUT SEND RTN A5 EJECT * * * CURPOS = SUBROUTINE TO SET CURSOR * AT ENTRY A4 = CURSOR POS (POSITION AND LINE) * CURPOS EQU * ADKL A4,/1F1F CONVERT LDK A2,SCADD SET CURSOR CF A5,OUTPUT SEND ECR A2,A4 POS. X < /80? LDR A2,A2 RF(NN) CURR05 YES! LCK A4,/7F00 CURR05 EQU * LDR A2,A4 CF A5,OUTPUT OUTPUT POSITION (X) LDR A2,A4 RF(NN) CURR10 Y < /80! LDK A2,/7F RF CURR15 CURR10 EQU * SRL A2,8 SHIFT RIGHT CURR15 EQU * CF A5,OUTPUT OUTPUT LINE(Y) RTN A5 EJECT * =2 * =2 * =2 * ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 * =2 * =2 * AT ENTRY A4 = CHAR TO ERASE FROM USER =2 * AT EXIT A4 = CHAR TO END OF SCREEN =2 * =2 ERA EQU * =2 LD A2,DWTPOS,A6 MAX CHAR. =2 ANK A2,/FF GET MAX CHAR. =2 LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 ANK A3,/FF =2 SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 ADK A2,1 ADJUST LENGTH =2 CWR A4,A2 OUTSIDE SCREEN =2 RF(L) ERAEND NO =2 LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 LDKL A3,/FFFF SET OVER EDGE ERAEND EQU * END SUBROUTINE =2 RTN A5 RETURN =2 ABDY EQU * ABORT ROUTINE =4 CF A15,UPDAPP UPDATE CURSOR POSITION =4 RTN A15 RETURN TO CALLER =4 END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01 9.2DK 2 83-12-15 870105040921 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005c Head {h00=0x001a, h01=0x0050, text=» DK2 HANDLE COPY 80 «, t00=0x0000, t01=0x0042}
0x005c…0084 Head {h00=0x0024, h01=0x0050, text=» NB. CHANNEL PARAM IN DWT = 50«, t00=0x0000, t01=0x0060}
0x0084…00a0 Head {h00=0x0018, h01=0x0050, text=» *DK,POS 80 ON VDU«, t00=0x0000, t01=0x0088}
0x00a0…00bc Head {h00=0x0018, h01=0x0050, text=» REL 9.2 80-02-12 «, t00=0x0000, t01=0x00a4}
0x00bc…00e0 Head {h00=0x0020, h01=0x0050, text=» =4,ABORT ROUTINE INCLUDED«, t00=0x0000, t01=0x00c0}
0x00e0…00fc Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x00e4}
0x00fc…012a Head {h00=0x002a, h01=0x0050, text=» =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0000, t01=0x0100}
0x012a…0146 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-06 «, t00=0x0000, t01=0x012e}
0x0146…0176 Head {h00=0x002c, h01=0x0050, text=» =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0000, t01=0x014a}
0x0176…0192 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-31 «, t00=0x0000, t01=0x017a}
0x0192…01c4 Head {h00=0x002e, h01=0x0050, text=» =1 DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0001, t01=0x0008}
0x01c4…01e0 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-12 «, t00=0x0001, t01=0x003a}
0x01e0…01e8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0056}
0x01e8…01f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x01f2…022c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0068}
0x022c…0236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0236…025e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x00ac}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x0268…029e Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0001, t01=0x00de}
0x029e…02a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02a8…02b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011e}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…02c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d0…02da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02da…0314 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0150}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0366 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0002, t01=0x000e}
0x0366…03aa Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x004c}
0x03aa…03c4 Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0002, t01=0x0090}
0x03c4…03fe Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x00aa}
0x03fe…041c Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0002, t01=0x00e4}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0426…0466 Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x010c}
0x0466…04a4 Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0002, t01=0x014c}
0x04a4…04e2 Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0002, t01=0x018a}
0x04e2…050e Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0003, t01=0x0038}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x0518…0522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0522…0556 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x0078}
0x0556…0560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0560…058a Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0003, t01=0x00b6}
0x058a…0594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e0}
0x0594…05c0 Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0003, t01=0x00ea}
0x05c0…05ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0116}
0x05ca…05f6 Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0003, t01=0x0120}
0x05f6…0600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014c}
0x0600…062a Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0003, t01=0x0156}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0634…063c Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x018a}
0x063c…0644 (4, 0, 400) Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0004}
0x0644…064c Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x000c}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x0656…0684 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0004, t01=0x001e}
0x0684…068e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x068e…06b0 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0004, t01=0x0056}
0x06b0…06d2 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0004, t01=0x0078}
0x06d2…06f8 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x009a}
0x06f8…0724 Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0004, t01=0x00c0}
0x0724…074e Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0004, t01=0x00ec}
0x074e…076a Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0004, t01=0x0116}
0x076a…0774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0132}
0x0774…0796 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0004, t01=0x013c}
0x0796…07a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a0…07c6 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x0168}
0x07c6…07f2 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x018e}
0x07f2…081a Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0005, t01=0x002a}
0x081a…0842 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x0052}
0x0842…0868 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x007a}
0x0868…088e Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x00a0}
0x088e…08ae Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0005, t01=0x00c6}
0x08ae…08d4 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0005, t01=0x00e6}
0x08d4…08de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010c}
0x08de…08ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0116}
0x08ec…08f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0124}
0x08f6…0900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012e}
0x0900…091e Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x0138}
0x091e…0928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0156}
0x0928…0968 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0005, t01=0x0160}
0x0968…0972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0972…09a0 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x001a}
0x09a0…09ba Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0006, t01=0x0048}
0x09ba…09d4 Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x0062}
0x09d4…09fa Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x007c}
0x09fa…0a28 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x00a2}
0x0a28…0a56 Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0006, t01=0x00d0}
0x0a56…0a84 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x00fe}
0x0a84…0a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a8e…0ac8 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x0136}
0x0ac8…0b00 Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0006, t01=0x0170}
0x0b00…0b30 Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0007, t01=0x0018}
0x0b30…0b6e Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0007, t01=0x0048}
0x0b6e…0baa Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x0086}
0x0baa…0bd4 Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x00c2}
0x0bd4…0c1e Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x00ec}
0x0c1e…0c2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0136}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0144}
0x0c36…0c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014e}
0x0c40…0c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0162}
0x0c54…0c68 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x016c}
0x0c68…0c7c Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0180}
0x0c7c…0c90 (8, 0, 400) Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0004}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0018}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0cae…0cda Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x0036}
0x0cda…0d0e Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x0062}
0x0d0e…0d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0096}
0x0d18…0d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a0}
0x0d22…0d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00aa}
0x0d2c…0d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b4}
0x0d36…0d68 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x00be}
0x0d68…0d9a Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0008, t01=0x00f0}
0x0d9a…0dcc Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0122}
0x0dcc…0dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd6…0de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de0…0e08 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x0168}
0x0e08…0e3a Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x0190}
0x0e3a…0e5a Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0009, t01=0x0032}
0x0e5a…0e9c Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x0052}
0x0e9c…0eba Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x0094}
0x0eba…0eec Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0009, t01=0x00b2}
0x0eec…0f20 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x00e4}
0x0f20…0f54 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0118}
0x0f54…0f62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x014c}
0x0f62…0f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f6c…0f8c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0164}
0x0f8c…0fac Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x0184}
0x0fac…0fcc Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0014}
0x0fcc…0fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0034}
0x0fd6…0ff2 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x003e}
0x0ff2…1014 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x005a}
0x1014…102e Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x007c}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0096}
0x1038…1046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a0}
0x1046…105c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00ae}
0x105c…1072 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x00c4}
0x1072…1088 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00da}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1092…10b4 Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x00fa}
0x10b4…10dc Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x011c}
0x10dc…1102 Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000a, t01=0x0144}
0x1102…1128 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000a, t01=0x016a}
0x1128…1152 Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000a, t01=0x0190}
0x1152…117c Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x002a}
0x117c…119c Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x0054}
0x119c…11b8 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x0074}
0x11b8…11d8 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0090}
0x11d8…1204 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x00b0}
0x1204…1226 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x00dc}
0x1226…124a Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x00fe}
0x124a…1266 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x0122}
0x1266…128a Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x013e}
0x128a…12ac Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x0162}
0x12ac…12ca Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x0184}
0x12ca…12fc Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000c, t01=0x0012}
0x12fc…132a Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x0044}
0x132a…1350 Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x0072}
0x1350…1386 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x0098}
0x1386…13aa Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x00ce}
0x13aa…13d2 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x00f2}
0x13d2…13dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13dc…13f8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0124}
0x13f8…1414 Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000c, t01=0x0140}
0x1414…1430 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x015c}
0x1430…143a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143a…1460 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x0182}
0x1460…148c Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000d, t01=0x0018}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0044}
0x1496…14a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x004e}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x14b8…14ea Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x0070}
0x14ea…151c Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x00a2}
0x151c…154e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x00d4}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0110}
0x1562…15ae Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x011a}
0x15ae…15b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0166}
0x15b8…15ca Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x0170}
0x15ca…15de Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000d, t01=0x0182}
0x15de…15e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15e8…1628 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000e, t01=0x0012}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0052}
0x1632…1644 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x005c}
0x1644…1658 Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 0«, t00=0x000e, t01=0x006e}
0x1658…1662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0082}
0x1662…166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008c}
0x166c…16a8 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0096}
0x16a8…16d2 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x00d2}
0x16d2…16e4 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00fc}
0x16e4…16f8 Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000e, t01=0x010e}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x170c…1748 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x0136}
0x1748…1784 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0172}
0x1784…17c0 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x001e}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005a}
0x17ca…17dc Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0064}
0x17dc…17f0 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x0076}
0x17f0…17fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008a}
0x17fa…182e Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x0094}
0x182e…1872 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x00c8}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x187c…188e Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x0116}
0x188e…18a2 Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000f, t01=0x0128}
0x18a2…18b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x013c}
0x18b0…18ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18ba…18f0 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x0154}
0x18f0…1910 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x000f, t01=0x018a}
0x1910…1922 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x001a}
0x1922…1936 Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 1«, t00=0x0010, t01=0x002c}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x1940…1980 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x004a}
0x1980…19a2 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x008a}
0x19a2…19ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ac}
0x19ac…19c0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0010, t01=0x00b6}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19ca…19d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d4…1a0e Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x00de}
0x1a0e…1a40 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0118}
0x1a40…1a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014a}
0x1a4a…1a5e Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0010, t01=0x0154}
0x1a5e…1a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0168}
0x1a68…1aa4 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0010, t01=0x0172}
0x1aa4…1ae4 Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x001e}
0x1ae4…1aec Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x005e}
0x1aec…1af4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0066}
0x1af4…1b0a Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x006e}
0x1b0a…1b12 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0084}
0x1b12…1b26 Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x008c}
0x1b26…1b3a Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x00a0}
0x1b3a…1b4e Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x00b4}
0x1b4e…1b5c Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x00c8}
0x1b5c…1b6c Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x00d6}
0x1b6c…1b7c Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x00e6}
0x1b7c…1b8c Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x00f6}
0x1b8c…1b9a Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x0106}
0x1b9a…1ba8 Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x0114}
0x1ba8…1bb6 Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x0122}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x0130}
0x1bc8…1bde Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 6 «, t00=0x0011, t01=0x0142}
0x1bde…1be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1be8…1c12 Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0011, t01=0x0162}
0x1c12…1c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018c}
0x1c1c…1c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c26…1c38 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0012, t01=0x0012}
0x1c38…1c4e Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 162«, t00=0x0012, t01=0x0024}
0x1c4e…1c58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c58…1c66 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0044}
0x1c66…1c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0052}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005c}
0x1c7a…1ca2 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x0066}
0x1ca2…1cca Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x008e}
0x1cca…1cf2 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x00b6}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e8}
0x1d06…1d3a Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x00f2}
0x1d3a…1d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0126}
0x1d44…1d5a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0130}
0x1d5a…1d72 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x0146}
0x1d72…1d7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x015e}
0x1d7e…1d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d88…1d9e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0174}
0x1d9e…1db8 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0012, t01=0x018a}
0x1db8…1dc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0014}
0x1dc4…1dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0020}
0x1dce…1e00 Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0013, t01=0x002a}
0x1e00…1e26 Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x005c}
0x1e26…1e48 Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x0082}
0x1e48…1e72 Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x00a4}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e7c…1e8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00d8}
0x1e8a…1e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e6}
0x1e94…1e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f0}
0x1e9e…1eb0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00fa}
0x1eb0…1ec2 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x010c}
0x1ec2…1ed4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x011e}
0x1ed4…1ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0130}
0x1ede…1ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1ee8…1f0a Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0013, t01=0x0144}
0x1f0a…1f26 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x0166}
0x1f26…1f46 Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0182}
0x1f46…1f6a Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0014, t01=0x0012}
0x1f6a…1f92 Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x0036}
0x1f92…1fb6 Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x005e}
0x1fb6…1fda Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x0082}
0x1fda…200c Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x00a6}
0x200c…2016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d8}
0x2016…2020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e2}
0x2020…2050 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x00ec}
0x2050…2070 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x011c}
0x2070…207e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x013c}
0x207e…2088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014a}
0x2088…209c Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0014, t01=0x0154}
0x209c…20a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20a6…20d4 Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0014, t01=0x0172}
0x20d4…20de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0010}
0x20de…212a Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0015, t01=0x001a}
0x212a…2160 Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x0066}
0x2160…216a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009c}
0x216a…2174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a6}
0x2174…21b6 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x00b0}
0x21b6…21f0 Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x00f2}
0x21f0…21fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x21fa…2244 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0015, t01=0x0136}
0x2244…2284 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x0180}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x228e…22de Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x003a}
0x22de…232c Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x008a}
0x232c…2376 Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x00d8}
0x2376…2380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0122}
0x2380…2396 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x012c}
0x2396…23dc Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0016, t01=0x0142}
0x23dc…2420 Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0016, t01=0x0188}
0x2420…244e Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x003c}
0x244e…2458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x2458…2464 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0074}
0x2464…24a2 Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x0080}
0x24a2…24e2 Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x00be}
0x24e2…2524 Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x00fe}
0x2524…2568 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0017, t01=0x0140}
0x2568…258c Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0017, t01=0x0184}
0x258c…2596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0018}
0x2596…25d6 Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0018, t01=0x0022}
0x25d6…2616 Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x0062}
0x2616…265a Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x00a2}
0x265a…269e Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x00e6}
0x269e…26dc Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x012a}
0x26dc…270a Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0018, t01=0x0168}
0x270a…271c Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0019, t01=0x0008}
0x271c…2740 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0019, t01=0x001a}
0x2740…275a Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x003e}
0x275a…2776 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x0058}
0x2776…2790 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x0074}
0x2790…27b4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x008e}
0x27b4…27ce Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x00b2}
0x27ce…27e4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x00cc}
0x27e4…280a Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x00e2}
0x280a…282e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x0108}
0x282e…2846 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x012c}
0x2846…285c Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0019, t01=0x0144}
0x285c…2878 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0019, t01=0x015a}
0x2878…288e Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0019, t01=0x0176}
0x288e…289a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x018c}
0x289a…28b0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x0008}
0x28b0…28e2 Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x001a, t01=0x001e}
0x28e2…28f8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x0050}
0x28f8…2902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0066}
0x2902…290e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0070}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x2918…292c Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x0086}
0x292c…2946 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x009a}
0x2946…2960 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x00b4}
0x2960…297c Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x00ce}
0x297c…2996 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x00ea}
0x2996…29b2 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x0104}
0x29b2…29cc Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x0120}
0x29cc…29ee Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001a, t01=0x013a}
0x29ee…2a08 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001a, t01=0x015c}
0x2a08…2a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0176}
0x2a12…2a3c Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001a, t01=0x0180}
0x2a3c…2a4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x001a}
0x2a4a…2a88 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001b, t01=0x0028}
0x2a88…2aa6 Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x0066}
0x2aa6…2ada Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x0084}
0x2ada…2b00 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001b, t01=0x00b8}
0x2b00…2b46 Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x00de}
0x2b46…2b68 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001b, t01=0x0124}
0x2b68…2b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0146}
0x2b72…2b86 Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001b, t01=0x0150}
0x2b86…2bae Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x0164}
0x2bae…2bc4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001b, t01=0x018c}
0x2bc4…2be8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x0012}
0x2be8…2c0e Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x0036}
0x2c0e…2c38 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x005c}
0x2c38…2c4c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x0086}
0x2c4c…2c60 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x009a}
0x2c60…2c8e Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x00ae}
0x2c8e…2ca4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x00dc}
0x2ca4…2cbc Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x00f2}
0x2cbc…2cd2 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x010a}
0x2cd2…2cf6 Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x0120}
0x2cf6…2d1c Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001c, t01=0x0144}
0x2d1c…2d32 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001c, t01=0x016a}
0x2d32…2d5e Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001c, t01=0x0180}
0x2d5e…2d66 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x001c}
0x2d66…2d6e Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0024}
0x2d6e…2d96 Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x002c}
0x2d96…2dae Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x0054}
0x2dae…2de4 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x006c}
0x2de4…2e20 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x00a2}
0x2e20…2e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00de}
0x2e2a…2e3e Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x00e8}
0x2e3e…2e62 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x00fc}
0x2e62…2e7a Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x0120}
0x2e7a…2ea4 Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001d, t01=0x0138}
0x2ea4…2ec2 Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001d, t01=0x0162}
0x2ec2…2ee6 Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001d, t01=0x0180}
0x2ee6…2efc Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001e, t01=0x0014}
0x2efc…2f28 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x002a}
0x2f28…2f40 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x0056}
0x2f40…2f54 Head {h00=0x0010, h01=0x0050, text=»ACDY55 EQU *«, t00=0x001e, t01=0x006e}
0x2f54…2f7e Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAM DK2 «, t00=0x001e, t01=0x0082}
0x2f7e…2f9e Head {h00=0x001c, h01=0x0050, text=» ANK A1,/40 COPY80? DK2 «, t00=0x001e, t01=0x00ac}
0x2f9e…2fbc Head {h00=0x001a, h01=0x0050, text=» RB(NE) ACDY52 YES DK2«, t00=0x001e, t01=0x00cc}
0x2fbc…2fe0 Head {h00=0x0020, h01=0x0050, text=» LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x00ea}
0x2fe0…2ff2 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x010e}
0x2ff2…301e Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x0120}
0x301e…3030 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x014c}
0x3030…305a Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x015e}
0x305a…306c Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x0188}
0x306c…307a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x000a}
0x307a…3084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0018}
0x3084…30ae Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001f, t01=0x0022}
0x30ae…30d0 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x004c}
0x30d0…30da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006e}
0x30da…30ee Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x0078}
0x30ee…3104 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x008c}
0x3104…312e Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001f, t01=0x00a2}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x00cc}
0x3142…316a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x00e0}
0x316a…3176 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0108}
0x3176…318a Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x0114}
0x318a…31c0 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x0128}
0x31c0…31e8 Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x015e}
0x31e8…3202 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x0186}
0x3202…3216 Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x0020, t01=0x0010}
0x3216…322c Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0024}
0x322c…3262 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x003a}
0x3262…3278 Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x0070}
0x3278…32a4 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x0086}
0x32a4…32d0 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x00b2}
0x32d0…32f8 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x00de}
0x32f8…3310 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x0106}
0x3310…332e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x011e}
0x332e…3348 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x013c}
0x3348…3364 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x0156}
0x3364…3382 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x0172}
0x3382…339c Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x0190}
0x339c…33bc Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x001a}
0x33bc…33d8 Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x003a}
0x33d8…33f0 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x0056}
0x33f0…340e Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x006e}
0x340e…342c Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x008c}
0x342c…3454 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x00aa}
0x3454…346e Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x00d2}
0x346e…3488 Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x00ec}
0x3488…34a2 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x0106}
0x34a2…34be Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x0120}
0x34be…34ea Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x013c}
0x34ea…34fe Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x0168}
0x34fe…3524 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x017c}
0x3524…3548 Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0022, t01=0x0012}
0x3548…356a Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x0036}
0x356a…3584 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0058}
0x3584…35a4 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x0072}
0x35a4…35be Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0092}
0x35be…35c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ac}
0x35c8…35ee Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x00b6}
0x35ee…35fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00dc}
0x35fa…3612 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x00e8}
0x3612…364c Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x0100}
0x364c…366e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x013a}
0x366e…3686 Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x015c}
0x3686…36a0 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x0174}
0x36a0…36b6 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x018e}
0x36b6…36ca Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0023, t01=0x0014}
0x36ca…36ee Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0023, t01=0x0028}
0x36ee…3714 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x004c}
0x3714…372a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x0072}
0x372a…3740 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0023, t01=0x0088}
0x3740…3766 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0023, t01=0x009e}
0x3766…378a Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x00c4}
0x378a…37a2 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x00e8}
0x37a2…37c4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x0023, t01=0x0100}
0x37c4…37f2 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x0122}
0x37f2…3808 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x0150}
0x3808…382e Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x0166}
0x382e…3848 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x018c}
0x3848…385c Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0024, t01=0x0016}
0x385c…388c Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0024, t01=0x002a}
0x388c…389e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x005a}
0x389e…38b0 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0024, t01=0x006c}
0x38b0…38d8 Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0024, t01=0x007e}
0x38d8…38ee Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0024, t01=0x00a6}
0x38ee…3914 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x00bc}
0x3914…3926 Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x00e2}
0x3926…3950 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x00f4}
0x3950…3962 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x011e}
0x3962…397c Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x0130}
0x397c…398e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x014a}
0x398e…39ba Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x015c}
0x39ba…39cc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x0188}
0x39cc…39de Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0025, t01=0x000a}
0x39de…39fc Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0025, t01=0x001c}
0x39fc…3a1e Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0025, t01=0x003a}
0x3a1e…3a38 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0025, t01=0x005c}
0x3a38…3a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0076}
0x3a42…3a58 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0025, t01=0x0080}
0x3a58…3a82 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0025, t01=0x0096}
0x3a82…3a96 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x00c0}
0x3a96…3acc Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x00d4}
0x3acc…3ad8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x010a}
0x3ad8…3aee Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x0116}
0x3aee…3b04 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x012c}
0x3b04…3b18 Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0142}
0x3b18…3b36 Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x0156}
0x3b36…3b54 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x0174}
0x3b54…3b68 (38, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0026, t01=0x0004}
0x3b68…3b7c Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0026, t01=0x0018}
0x3b7c…3b96 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0026, t01=0x002c}
0x3b96…3bb8 Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0026, t01=0x0046}
0x3bb8…3bda Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0026, t01=0x0068}
0x3bda…3bfe Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0026, t01=0x008a}
0x3bfe…3c14 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0026, t01=0x00ae}
0x3c14…3c36 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x00c4}
0x3c36…3c5c Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x00e6}
0x3c5c…3c80 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x010c}
0x3c80…3c96 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x0130}
0x3c96…3cac Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x0146}
0x3cac…3ce6 Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x015c}
0x3ce6…3d10 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0027, t01=0x0008}
0x3d10…3d1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0032}
0x3d1c…3d2e Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0027, t01=0x003e}
0x3d2e…3d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0050}
0x3d38…3d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005a}
0x3d42…3d58 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0027, t01=0x0064}
0x3d58…3d6c Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0027, t01=0x007a}
0x3d6c…3d8c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x008e}
0x3d8c…3da0 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0027, t01=0x00ae}
0x3da0…3db8 Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x00c2}
0x3db8…3dce Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x00da}
0x3dce…3dee Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x00f0}
0x3dee…3e06 Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x0110}
0x3e06…3e2a Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x0128}
0x3e2a…3e3e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x014c}
0x3e3e…3e66 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x0160}
0x3e66…3e8e Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x0188}
0x3e8e…3ea2 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0028, t01=0x0020}
0x3ea2…3ec2 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0034}
0x3ec2…3edc Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0028, t01=0x0054}
0x3edc…3efc Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0028, t01=0x006e}
0x3efc…3f0e Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0028, t01=0x008e}
0x3f0e…3f2e Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x00a0}
0x3f2e…3f62 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x00c0}
0x3f62…3f76 Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x00f4}
0x3f76…3fa0 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x0108}
0x3fa0…3fb8 Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x0132}
0x3fb8…3fe0 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x014a}
0x3fe0…4004 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x0172}
0x4004…4018 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0029, t01=0x0008}
0x4018…403c Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0029, t01=0x001c}
0x403c…4058 Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0029, t01=0x0040}
0x4058…407c Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0029, t01=0x005c}
0x407c…409e Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0029, t01=0x0080}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0029, t01=0x00a2}
0x40b2…40c4 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0029, t01=0x00b6}
0x40c4…40d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00c8}
0x40d0…40de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00d4}
0x40de…40e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e2}
0x40e8…4106 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x00ec}
0x4106…4110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010a}
0x4110…4124 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x0114}
0x4124…413a Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x0128}
0x413a…415a Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x013e}
0x415a…416c Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x015e}
0x416c…417a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0170}
0x417a…4184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017e}
0x4184…419c Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0029, t01=0x0188}
0x419c…41a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0010}
0x41a6…41ba Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002a, t01=0x001a}
0x41ba…41ea Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002a, t01=0x002e}
0x41ea…41fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x005e}
0x41fc…422e Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002a, t01=0x0070}
0x422e…4240 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002a, t01=0x00a2}
0x4240…4252 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002a, t01=0x00b4}
0x4252…4268 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x00c6}
0x4268…429c Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x00dc}
0x429c…42ae Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x0110}
0x42ae…42c4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x0122}
0x42c4…42e4 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x0138}
0x42e4…4316 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x0158}
0x4316…432e Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x018a}
0x432e…435e Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002b, t01=0x0012}
0x435e…4388 Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002b, t01=0x0042}
0x4388…439e Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002b, t01=0x006c}
0x439e…43b0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x0082}
0x43b0…43da Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002b, t01=0x0094}
0x43da…43f6 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x00be}
0x43f6…4426 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x00da}
0x4426…4440 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x010a}
0x4440…445a Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x0124}
0x445a…446e Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x013e}
0x446e…447c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0152}
0x447c…4486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0160}
0x4486…44a4 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002b, t01=0x016a}
0x44a4…44ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44ae…44e4 (44, 0, 400) Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002c, t01=0x0004}
0x44e4…44fa Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x003a}
0x44fa…4520 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002c, t01=0x0050}
0x4520…4544 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002c, t01=0x0076}
0x4544…4562 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002c, t01=0x009a}
0x4562…456e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00b8}
0x456e…4598 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x00c4}
0x4598…45ac Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x00ee}
0x45ac…45ce Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x0102}
0x45ce…45e8 Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x0124}
0x45e8…45fe Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x013e}
0x45fe…4620 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x0154}
0x4620…4636 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x0176}
0x4636…4652 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x018c}
0x4652…467c Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x0018}
0x467c…4686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0042}
0x4686…46ae Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002d, t01=0x004c}
0x46ae…46d0 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002d, t01=0x0074}
0x46d0…46ea Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002d, t01=0x0096}
0x46ea…4708 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x00b0}
0x4708…471a Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x00ce}
0x471a…4734 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x00e0}
0x4734…475e Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x00fa}
0x475e…477e Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =2 «, t00=0x002d, t01=0x0124}
0x477e…479a Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =2«, t00=0x002d, t01=0x0144}
0x479a…47ba Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH «, t00=0x002d, t01=0x0160}
0x47ba…47ce Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x0180}
0x47ce…47ec (46, 0, 400) Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002e, t01=0x0004}
0x47ec…481c Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002e, t01=0x0022}
0x481c…483e Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002e, t01=0x0052}
0x483e…485c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x0074}
0x485c…4874 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002e, t01=0x0092}
0x4874…4880 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00aa}
0x4880…488e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00b6}
0x488e…4898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c4}
0x4898…48c6 Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x00ce}
0x48c6…48d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fc}
0x48d0…48e4 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x0106}
0x48e4…48ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x011a}
0x48ee…4904 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x0124}
0x4904…492a Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x013a}
0x492a…494e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x0160}
0x494e…4968 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x0184}
0x4968…499e Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002f, t01=0x000e}
0x499e…49aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0044}
0x49aa…49d8 Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002f, t01=0x0050}
0x49d8…4a0a Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002f, t01=0x007e}
0x4a0a…4a2a Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002f, t01=0x00b0}
0x4a2a…4a3c Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x00d0}
0x4a3c…4a52 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x00e2}
0x4a52…4a68 Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x00f8}
0x4a68…4a96 Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x010e}
0x4a96…4abe Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x013c}
0x4abe…4ad8 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x0164}
0x4ad8…4b10 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x017e}
0x4b10…4b24 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0030, t01=0x0026}
0x4b24…4b4c Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x0030, t01=0x003a}
0x4b4c…4b64 Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0030, t01=0x0062}
0x4b64…4b96 Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0030, t01=0x007a}
0x4b96…4bb6 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0030, t01=0x00ac}
0x4bb6…4bd2 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x00cc}
0x4bd2…4c00 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x00e8}
0x4c00…4c20 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x0116}
0x4c20…4c42 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x0136}
0x4c42…4c68 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x0158}
0x4c68…4c7a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x017e}
0x4c7a…4c8c Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x0190}
0x4c8c…4cac Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0031, t01=0x0012}
0x4cac…4cd6 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0031, t01=0x0032}
0x4cd6…4cfc Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0031, t01=0x005c}
0x4cfc…4d0e Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0031, t01=0x0082}
0x4d0e…4d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0094}
0x4d18…4d32 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0031, t01=0x009e}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b8}
0x4d3c…4d72 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x00c2}
0x4d72…4d9e Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x00f8}
0x4d9e…4dc6 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x0124}
0x4dc6…4de0 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x014c}
0x4de0…4e06 Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x0166}
0x4e06…4e1a Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x018c}
0x4e1a…4e3c Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0032, t01=0x0010}
0x4e3c…4e56 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x0032}
0x4e56…4e76 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0032, t01=0x004c}
0x4e76…4e90 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x006c}
0x4e90…4eb4 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0032, t01=0x0086}
0x4eb4…4ec6 Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0032, t01=0x00aa}
0x4ec6…4ef4 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x00bc}
0x4ef4…4f06 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x00ea}
0x4f06…4f3a Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x00fc}
0x4f3a…4f5c Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x0130}
0x4f5c…4f76 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x0152}
0x4f76…4f88 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x016c}
0x4f88…4fb6 Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x017e}
0x4fb6…4fda Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0033, t01=0x001c}
0x4fda…4ff4 Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0033, t01=0x0040}
0x4ff4…5018 Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0033, t01=0x005a}
0x5018…5042 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0033, t01=0x007e}
0x5042…5062 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0033, t01=0x00a8}
0x5062…5074 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x00c8}
0x5074…50a6 Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x00da}
0x50a6…50d6 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x010c}
0x50d6…50fa Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x013c}
0x50fa…511c Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x0160}
0x511c…5146 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x0182}
0x5146…5158 Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0034, t01=0x001c}
0x5158…517e Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0034, t01=0x002e}
0x517e…5198 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0034, t01=0x0054}
0x5198…51ba Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0034, t01=0x006e}
0x51ba…51d0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0034, t01=0x0090}
0x51d0…520c Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0034, t01=0x00a6}
0x520c…5218 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00e2}
0x5218…5242 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x00ee}
0x5242…5256 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x0118}
0x5256…526c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x012c}
0x526c…5276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0142}
0x5276…52a0 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x014c}
0x52a0…52b6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x0176}
0x52b6…52c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018c}
0x52c0…52cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0008}
0x52cc…52d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0014}
0x52d6…52e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x001e}
0x52e4…52ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x52ee…52f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0036}
0x52f8…5334 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0035, t01=0x0040}
0x5334…536c Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0035, t01=0x007c}
0x536c…5376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x5376…538a Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x00be}
0x538a…53b4 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x00d2}
0x53b4…53ce Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x00fc}
0x53ce…53e8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x0116}
0x53e8…53fc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x0130}
0x53fc…540e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x0144}
0x540e…5432 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x0156}
0x5432…544a Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x017a}
0x544a…5470 (54, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0036, t01=0x0004}
0x5470…5486 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x002a}
0x5486…54b4 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0036, t01=0x0040}
0x54b4…54ca Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0036, t01=0x006e}
0x54ca…54f4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0036, t01=0x0084}
0x54f4…550a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x00ae}
0x550a…551e Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x00c4}
0x551e…5548 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAM DK2 «, t00=0x0036, t01=0x00d8}
0x5548…556a Head {h00=0x001e, h01=0x0050, text=» ANK A1,/40 COPY 80 ? DK2 «, t00=0x0036, t01=0x0102}
0x556a…5588 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY415 YES DK2«, t00=0x0036, t01=0x0124}
0x5588…55b0 Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x0142}
0x55b0…55d4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x016a}
0x55d4…5608 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x018e}
0x5608…562c Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0037, t01=0x0032}
0x562c…564c Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0037, t01=0x0056}
0x564c…5660 Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0037, t01=0x0076}
0x5660…567c Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0037, t01=0x008a}
0x567c…5692 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0037, t01=0x00a6}
0x5692…56b6 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0037, t01=0x00bc}
0x56b6…56ce Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0037, t01=0x00e0}
0x56ce…56e2 Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0037, t01=0x00f8}
0x56e2…5702 Head {h00=0x001c, h01=0x0050, text=» SUK A7,6 ORDER B ? *DK «, t00=0x0037, t01=0x010c}
0x5702…571e Head {h00=0x0018, h01=0x0050, text=» RF(NE) ENDIO NO *DK«, t00=0x0037, t01=0x012c}
0x571e…574e Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION. *DK«, t00=0x0037, t01=0x0148}
0x574e…5774 Head {h00=0x0022, h01=0x0050, text=» ST A4,10,A8 PUT IN ECBCW *DK «, t00=0x0037, t01=0x0178}
0x5774…5798 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0038, t01=0x000e}
0x5798…57c0 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0038, t01=0x0032}
0x57c0…57ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005a}
0x57ca…57e0 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0038, t01=0x0064}
0x57e0…57ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007a}
0x57ea…57f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0084}
0x57f8…5802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0092}
0x5802…581c Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0038, t01=0x009c}
0x581c…5826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b6}
0x5826…583a Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0038, t01=0x00c0}
0x583a…584e Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0038, t01=0x00d4}
0x584e…587a Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0038, t01=0x00e8}
0x587a…58a4 Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0038, t01=0x0114}
0x58a4…58c4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x013e}
0x58c4…58da Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x015e}
0x58da…58ec Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x0174}
0x58ec…5916 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x0186}
0x5916…5928 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0039, t01=0x0020}
0x5928…594c Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0039, t01=0x0032}
0x594c…596e Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0039, t01=0x0056}
0x596e…5978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0078}
0x5978…5994 Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0039, t01=0x0082}
0x5994…599e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x009e}
0x599e…59c2 Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0039, t01=0x00a8}
0x59c2…59e0 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x00cc}
0x59e0…59ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ea}
0x59ea…59fc Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0039, t01=0x00f4}
0x59fc…5a0e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x0106}
0x5a0e…5a20 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0039, t01=0x0118}
0x5a20…5a32 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x012a}
0x5a32…5a44 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x013c}
0x5a44…5a58 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x014e}
0x5a58…5a6c Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x0162}
0x5a6c…5a9c Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x0176}
0x5a9c…5ac4 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x003a, t01=0x0016}
0x5ac4…5af0 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x003a, t01=0x003e}
0x5af0…5b02 Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x003a, t01=0x006a}
0x5b02…5b10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x007c}
0x5b10…5b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008a}
0x5b1a…5b34 Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003a, t01=0x0094}
0x5b34…5b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ae}
0x5b3e…5b64 Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003a, t01=0x00b8}
0x5b64…5b82 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x00de}
0x5b82…5b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00fc}
0x5b8c…5ba4 Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003a, t01=0x0106}
0x5ba4…5bb6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x011e}
0x5bb6…5bc8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x0130}
0x5bc8…5bda Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x0142}
0x5bda…5bec Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x0154}
0x5bec…5bfe Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0166}
0x5bfe…5c16 Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x0178}
0x5c16…5c2c Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x0190}
0x5c2c…5c42 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003b, t01=0x0016}
0x5c42…5c5a Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003b, t01=0x002c}
0x5c5a…5c70 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003b, t01=0x0044}
0x5c70…5c82 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003b, t01=0x005a}
0x5c82…5c94 Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003b, t01=0x006c}
0x5c94…5cac Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003b, t01=0x007e}
0x5cac…5cbe Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003b, t01=0x0096}
0x5cbe…5cd2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003b, t01=0x00a8}
0x5cd2…5ce4 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x00bc}
0x5ce4…5cf8 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003b, t01=0x00ce}
0x5cf8…5d0a Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003b, t01=0x00e2}
0x5d0a…5d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f4}
0x5d14…5d20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00fe}
0x5d20…5d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x010a}
0x5d2a…5d38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0114}
0x5d38…5d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0122}
0x5d42…5d72 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x012c}
0x5d72…5da2 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x015c}
0x5da2…5dce Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003b, t01=0x018c}
0x5dce…5de2 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003c, t01=0x0028}
0x5de2…5e0e Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003c, t01=0x003c}
0x5e0e…5e44 Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003c, t01=0x0068}
0x5e44…5e56 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x009e}
0x5e56…5e86 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003c, t01=0x00b0}
0x5e86…5e96 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x00e0}
0x5e96…5ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00f0}
0x5ea0…5eda Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003c, t01=0x00fa}
0x5eda…5f0e Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x0134}
0x5f0e…5f50 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x0168}
0x5f50…5f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x001a}
0x5f5a…5f6e Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003d, t01=0x0024}
0x5f6e…5f9a Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003d, t01=0x0038}
0x5f9a…5fae Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x0064}
0x5fae…5fe4 Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003d, t01=0x0078}
0x5fe4…5ff8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x00ae}
0x5ff8…601e Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003d, t01=0x00c2}
0x601e…6034 Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003d, t01=0x00e8}
0x6034…6064 Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003d, t01=0x00fe}
0x6064…607a Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x012e}
0x607a…6088 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0144}
0x6088…6092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0152}
0x6092…60a6 Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x015c}
0x60a6…60b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0170}
0x60b0…60c6 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003d, t01=0x017a}
0x60c6…60d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0190}
0x60d0…60e2 Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003e, t01=0x000a}
0x60e2…6100 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003e, t01=0x001c}
0x6100…6116 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003e, t01=0x003a}
0x6116…6134 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003e, t01=0x0050}
0x6134…614a Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003e, t01=0x006e}
0x614a…617c Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003e, t01=0x0084}
0x617c…6196 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003e, t01=0x00b6}
0x6196…61ce Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003e, t01=0x00d0}
0x61ce…61dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0108}
0x61dc…61e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0116}
0x61e6…61fa Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003e, t01=0x0120}
0x61fa…6204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0134}
0x6204…6230 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x013e}
0x6230…623a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x016a}
0x623a…6244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0174}
0x6244…6270 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x017e}
0x6270…6290 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003f, t01=0x001a}
0x6290…629a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x003a}
0x629a…62b0 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003f, t01=0x0044}
0x62b0…62ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005a}
0x62ba…62d8 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003f, t01=0x0064}
0x62d8…62f0 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003f, t01=0x0082}
0x62f0…630e Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003f, t01=0x009a}
0x630e…6320 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003f, t01=0x00b8}
0x6320…6336 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x00ca}
0x6336…6360 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x00e0}
0x6360…636c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x010a}
0x636c…6376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0116}
0x6376…638c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x0120}
0x638c…63b2 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x0136}
0x63b2…63be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x015c}
0x63be…63c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0168}
0x63c8…63d6 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003f, t01=0x0172}
0x63d6…63ec Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x0180}
0x63ec…640e Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x0040, t01=0x0008}
0x640e…641c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x002a}
0x641c…642a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0038}
0x642a…6438 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0046}
0x6438…6446 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0054}
0x6446…6454 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0062}
0x6454…6462 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0070}
0x6462…6470 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x007e}
0x6470…647e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x008c}
0x647e…6488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x009a}
0x6488…649e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0040, t01=0x00a4}
0x649e…64a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ba}
0x64a8…64ce Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x0040, t01=0x00c4}
0x64ce…64f4 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x0040, t01=0x00ea}
0x64f4…650c Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0040, t01=0x0110}
0x650c…653e Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x0128}
0x653e…6554 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x015a}
0x6554…655e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0170}
0x655e…656a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x017a}
0x656a…6574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0186}
0x6574…6582 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0190}
0x6582…6596 Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0041, t01=0x000e}
0x6596…65b8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0041, t01=0x0022}
0x65b8…65ce Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0041, t01=0x0044}
0x65ce…65f6 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0041, t01=0x005a}
0x65f6…660c Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0041, t01=0x0082}
0x660c…6626 Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0041, t01=0x0098}
0x6626…6648 Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0041, t01=0x00b2}
0x6648…6676 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0041, t01=0x00d4}
0x6676…669c Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0041, t01=0x0102}
0x669c…66b8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x0128}
0x66b8…66e6 Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x0144}
0x66e6…671e Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x0172}
0x671e…674e Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0042, t01=0x001a}
0x674e…6776 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0042, t01=0x004a}
0x6776…67a0 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0042, t01=0x0072}
0x67a0…67d0 Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0042, t01=0x009c}
0x67d0…6802 Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0042, t01=0x00cc}
0x6802…681c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x00fe}
0x681c…684a Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0042, t01=0x0118}
0x684a…6862 Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x0146}
0x6862…687c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x015e}
0x687c…688a Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0178}
0x688a…6898 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0186}
0x6898…68b0 (67, 0, 400) Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0043, t01=0x0004}
0x68b0…68c2 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0043, t01=0x001c}
0x68c2…68ee Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0043, t01=0x002e}
0x68ee…6914 Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0043, t01=0x005a}
0x6914…692e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0043, t01=0x0080}
0x692e…6944 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0043, t01=0x009a}
0x6944…697e Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0043, t01=0x00b0}
0x697e…69a0 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0043, t01=0x00ea}
0x69a0…69be Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0043, t01=0x010c}
0x69be…69e4 Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x012a}
0x69e4…69fe Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x0150}
0x69fe…6a0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x016a}
0x6a0c…6a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0178}
0x6a16…6a42 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0182}
0x6a42…6a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x001e}
0x6a4c…6a60 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0044, t01=0x0028}
0x6a60…6a7c Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0044, t01=0x003c}
0x6a7c…6a96 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0044, t01=0x0058}
0x6a96…6ac2 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0044, t01=0x0072}
0x6ac2…6ad4 Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0044, t01=0x009e}
0x6ad4…6afe Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0044, t01=0x00b0}
0x6afe…6b14 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x00da}
0x6b14…6b4c Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0044, t01=0x00f0}
0x6b4c…6b60 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x0128}
0x6b60…6b76 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x013c}
0x6b76…6ba8 Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x0152}
0x6ba8…6bcc Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0184}
0x6bcc…6be6 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0045, t01=0x0018}
0x6be6…6bf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0032}
0x6bf4…6bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0040}
0x6bfe…6c16 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0045, t01=0x004a}
0x6c16…6c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0062}
0x6c20…6c54 Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0045, t01=0x006c}
0x6c54…6c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a0}
0x6c5e…6c72 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0045, t01=0x00aa}
0x6c72…6c8a Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0045, t01=0x00be}
0x6c8a…6ca4 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0045, t01=0x00d6}
0x6ca4…6cc6 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0045, t01=0x00f0}
0x6cc6…6cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0112}
0x6cd0…6ce6 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0045, t01=0x011c}
0x6ce6…6cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0132}
0x6cf0…6d04 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x013c}
0x6d04…6d2c Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x0150}
0x6d2c…6d40 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0178}
0x6d40…6d4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x018c}
0x6d4a…6d56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0008}
0x6d56…6d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0014}
0x6d60…6d72 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0046, t01=0x001e}
0x6d72…6d92 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0046, t01=0x0030}
0x6d92…6da6 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0046, t01=0x0050}
0x6da6…6dc2 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0046, t01=0x0064}
0x6dc2…6dec Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x0080}
0x6dec…6e1c Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0046, t01=0x00aa}
0x6e1c…6e2e Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0046, t01=0x00da}
0x6e2e…6e66 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0046, t01=0x00ec}
0x6e66…6e92 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x0124}
0x6e92…6e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0150}
0x6e9c…6eb2 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0046, t01=0x015a}
0x6eb2…6ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0170}
0x6ebc…6ed0 Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x017a}
0x6ed0…6efc Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x018e}
0x6efc…6f10 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x002a}
0x6f10…6f34 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x003e}
0x6f34…6f5c Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0047, t01=0x0062}
0x6f5c…6f76 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x008a}
0x6f76…6f88 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x00a4}
0x6f88…6f96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00b6}
0x6f96…6fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c4}
0x6fa0…6fb2 Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0047, t01=0x00ce}
0x6fb2…6fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00e0}
0x6fbc…6fd0 Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0047, t01=0x00ea}
0x6fd0…6ffc Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x00fe}
0x6ffc…7010 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x012a}
0x7010…7034 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x013e}
0x7034…704a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x0162}
0x704a…7074 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x0178}
0x7074…7096 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0048, t01=0x0012}
0x7096…70ae Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0048, t01=0x0034}
0x70ae…70c8 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0048, t01=0x004c}
0x70c8…70da Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x0066}
0x70da…70e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0078}
0x70e6…7114 Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0048, t01=0x0084}
0x7114…714e Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0048, t01=0x00b2}
0x714e…716e Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0048, t01=0x00ec}
0x716e…7190 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0048, t01=0x010c}
0x7190…71b4 Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x012e}
0x71b4…71c8 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x0152}
0x71c8…71ea Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x0166}
0x71ea…71fc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0188}
0x71fc…722a Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0049, t01=0x000a}
0x722a…723c Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0049, t01=0x0038}
0x723c…724a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x004a}
0x724a…7254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0058}
0x7254…725e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0062}
0x725e…7292 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0049, t01=0x006c}
0x7292…72c6 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0049, t01=0x00a0}
0x72c6…72fa Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0049, t01=0x00d4}
0x72fa…731a Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0049, t01=0x0108}
0x731a…7324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0128}
0x7324…7338 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x0132}
0x7338…734a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x0146}
0x734a…7376 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x0158}
0x7376…738a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0184}
0x738a…73bc Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x004a, t01=0x0008}
0x73bc…73d0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004a, t01=0x003a}
0x73d0…73f6 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x004a, t01=0x004e}
0x73f6…7410 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004a, t01=0x0074}
0x7410…7438 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x008e}
0x7438…744a Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004a, t01=0x00b6}
0x744a…7470 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x00c8}
0x7470…748a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00ee}
0x748a…74b2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x0108}
0x74b2…74cc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0130}
0x74cc…74ec Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x014a}
0x74ec…750c Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x016a}
0x750c…751e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x018a}
0x751e…7534 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004b, t01=0x000c}
0x7534…7556 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004b, t01=0x0022}
0x7556…7586 Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004b, t01=0x0044}
0x7586…7596 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0074}
0x7596…75a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0084}
0x75a4…75dc Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0092}
0x75dc…7614 Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004b, t01=0x00ca}
0x7614…764c Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004b, t01=0x0102}
0x764c…7684 Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004b, t01=0x013a}
0x7684…76bc Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004b, t01=0x0172}
0x76bc…76f4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004c, t01=0x001a}
0x76f4…7708 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004c, t01=0x0052}
0x7708…7712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0066}
0x7712…771c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0070}
0x771c…7730 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004c, t01=0x007a}
0x7730…7752 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004c, t01=0x008e}
0x7752…776e Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004c, t01=0x00b0}
0x776e…779e Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004c, t01=0x00cc}
0x779e…77ca Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004c, t01=0x00fc}
0x77ca…77ea Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x0128}
0x77ea…7812 Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x0148}
0x7812…7832 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x0170}
0x7832…784a Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x0190}
0x784a…786e Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004d, t01=0x0018}
0x786e…7896 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004d, t01=0x003c}
0x7896…78ae Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004d, t01=0x0064}
0x78ae…78c0 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004d, t01=0x007c}
0x78c0…78fa Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004d, t01=0x008e}
0x78fa…7914 Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004d, t01=0x00c8}
0x7914…793e Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004d, t01=0x00e2}
0x793e…7968 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004d, t01=0x010c}
0x7968…7998 Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x0136}
0x7998…79b0 Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x0166}
0x79b0…79c4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x017e}
0x79c4…79ea (78, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004e, t01=0x0004}
0x79ea…7a0e Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004e, t01=0x002a}
0x7a0e…7a42 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004e, t01=0x004e}
0x7a42…7a60 Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004e, t01=0x0082}
0x7a60…7a72 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004e, t01=0x00a0}
0x7a72…7a86 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004e, t01=0x00b2}
0x7a86…7a98 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004e, t01=0x00c6}
0x7a98…7aaa Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x00d8}
0x7aaa…7ad6 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004e, t01=0x00ea}
0x7ad6…7af6 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004e, t01=0x0116}
0x7af6…7b16 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x0136}
0x7b16…7b3a Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x0156}
0x7b3a…7b50 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x017a}
0x7b50…7b66 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x0190}
0x7b66…7b7c Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004f, t01=0x0016}
0x7b7c…7ba2 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004f, t01=0x002c}
0x7ba2…7bb6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004f, t01=0x0052}
0x7bb6…7be2 Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004f, t01=0x0066}
0x7be2…7bf8 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004f, t01=0x0092}
0x7bf8…7c1e Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004f, t01=0x00a8}
0x7c1e…7c44 Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004f, t01=0x00ce}
0x7c44…7c72 Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004f, t01=0x00f4}
0x7c72…7c84 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004f, t01=0x0122}
0x7c84…7ca6 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x0134}
0x7ca6…7cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0156}
0x7cb0…7ce2 Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x0160}
0x7ce2…7cf6 (80, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x0050, t01=0x0004}
0x7cf6…7d04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0018}
0x7d04…7d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0026}
0x7d0e…7d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0030}
0x7d18…7d58 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x0050, t01=0x003a}
0x7d58…7d90 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x007a}
0x7d90…7d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00b2}
0x7d9a…7dae Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0050, t01=0x00bc}
0x7dae…7dc2 Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0050, t01=0x00d0}
0x7dc2…7df4 Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0050, t01=0x00e4}
0x7df4…7e08 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0050, t01=0x0116}
0x7e08…7e1c Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x012a}
0x7e1c…7e3c Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x013e}
0x7e3c…7e5e Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x015e}
0x7e5e…7e78 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0180}
0x7e78…7e96 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0051, t01=0x000a}
0x7e96…7eb0 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x0028}
0x7eb0…7ec2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0051, t01=0x0042}
0x7ec2…7edc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x0054}
0x7edc…7eec Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x006e}
0x7eec…7efa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x007e}
0x7efa…7f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x008c}
0x7f04…7f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0096}
0x7f0e…7f3c Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0051, t01=0x00a0}
0x7f3c…7f7e Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0051, t01=0x00ce}
0x7f7e…7f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0110}
0x7f88…7f9c Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0051, t01=0x011a}
0x7f9c…7fba Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x012e}
0x7fba…7fda Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x014c}
0x7fda…7ff4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x016c}
0x7ff4…8014 Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x0186}
0x8014…8026 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0052, t01=0x0016}
0x8026…8042 Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0052, t01=0x0028}
0x8042…8058 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0052, t01=0x0044}
0x8058…806c Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0052, t01=0x005a}
0x806c…807e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x006e}
0x807e…80a8 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0052, t01=0x0080}
0x80a8…80ba Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x00aa}
0x80ba…80da Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0052, t01=0x00bc}
0x80da…80ee Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0052, t01=0x00dc}
0x80ee…8100 Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0052, t01=0x00f0}
0x8100…8114 Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0052, t01=0x0102}
0x8114…8132 Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0052, t01=0x0116}
0x8132…8146 Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x0134}
0x8146…816a Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x0148}
0x816a…817a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x016c}
0x817a…8188 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x017c}
0x8188…8196 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x018a}
0x8196…81a4 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0008}
0x81a4…81b2 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0016}
0x81b2…81ee Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0053, t01=0x0024}
0x81ee…81fc Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0060}
0x81fc…820a Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x006e}
0x820a…823e Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0053, t01=0x007c}
0x823e…8270 Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0053, t01=0x00b0}
0x8270…827e Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x00e2}
0x827e…8294 Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0053, t01=0x00f0}
0x8294…82ba Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0053, t01=0x0106}
0x82ba…82de Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x012c}
0x82de…8312 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x0150}
0x8312…832a Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0053, t01=0x0184}
0x832a…8360 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0054, t01=0x000c}
0x8360…8384 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0054, t01=0x0042}
0x8384…83a8 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0054, t01=0x0066}
0x83a8…83c4 Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0054, t01=0x008a}
0x83c4…83f6 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0054, t01=0x00a6}
0x83f6…841a Head {h00=0x0020, h01=0x0050, text=» LDKL A3,/FFFF SET OVER EDGE«, t00=0x0054, t01=0x00d8}
0x841a…8440 Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0054, t01=0x00fc}
0x8440…845a Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0054, t01=0x0122}
0x845a…847e Head {h00=0x0020, h01=0x0050, text=»ABDY EQU * ABORT ROUTINE =4 «, t00=0x0054, t01=0x013c}
0x847e…84ae Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =4«, t00=0x0054, t01=0x0160}
0x84ae…84d2 Head {h00=0x0020, h01=0x0050, text=» RTN A15 RETURN TO CALLER =4«, t00=0x0054, t01=0x0190}
0x84d2…84de Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x0024}
0x84de…84e2 Head {h00=0x4004, h01=0x0000}
0x84e2…84e6 00 55 00 30 ┆ U 0┆
0x84e6…84ee (86, 1, 8) 20 04 00 00 00 56 00 04 ┆ V ┆
0x84ee…853e (87, 0, 400) 8f 20 64 4e 90 41 5e c8 02 03 5f 22 90 41 5e ca 86 41 5e c2 f5 21 00 00 02 01 f5 21 00 00 07 00 02 25 f5 21 00 00 02 52 f5 21 00 00 02 02 f5 21 00 00 e2 40 00 00 f5 21 00 00 82 38 f5 21 00 00 81 58 00 02 21 06 39 61 e2 44 5e e4 f5 21 00 00 ┆ dN A^ _" A^ A^ ! ! % ! R ! ! @ ! 8 ! X ! 9a D^ ! ┆
0x853e…858e 02 20 81 58 00 02 21 05 50 00 21 04 54 00 02 26 f5 21 00 00 5f 62 02 00 42 82 4a c2 42 d2 f5 21 00 00 03 04 02 16 f5 21 00 00 1b 01 5c 0a f0 34 80 41 11 f0 bc 3f f7 a1 5e a2 4a 02 54 00 98 41 5e d0 54 00 ea 20 00 32 50 00 f5 21 00 00 e2 48 ┆ X ! P ! T & ! _b B J B ! ! 4 A ? ^ J T A^ T 2P ! H┆
0x858e…85de 00 00 f0 34 f5 21 00 00 8f 20 5e e8 80 41 11 f0 bc 3f f7 a1 5e a2 5f 16 49 c2 82 04 22 02 50 00 a0 41 5e ca 85 20 5b 90 8f 20 5e f0 81 41 5b 58 f7 a1 5d fa f0 34 01 00 41 82 5f 24 22 ff ea 20 00 ff 50 00 e2 48 00 00 42 12 50 00 57 00 f5 21 ┆ 4 ! ^ A ? ^ _ I " P A^ [ ^ A[X ] 4 A _$" P H B P W !┆
0x85de…862e 00 00 f7 a1 5e 88 8f 20 00 00 5f 20 f5 21 66 4a 01 80 15 04 21 80 31 80 8f 34 00 00 90 41 66 62 84 40 00 00 94 60 00 00 1c 02 03 00 ec 40 00 00 50 00 83 30 ea 4d 00 01 5c 12 a0 41 66 62 a3 20 ff fe f0 34 bc 3f 05 04 81 40 00 00 91 60 00 00 ┆ ^ _ !fJ ! 1 4 Afb @ ` @ P 0 M Afb 4 ? @ ` ┆
0x862e…867e 19 02 e9 40 00 00 50 00 86 24 ad 59 00 02 f7 a1 5d c6 5f 14 02 40 aa 41 5b 54 f7 a1 5d fa 82 40 5b 5c 54 00 f7 a1 00 00 8f 20 5e e8 85 20 5b 90 02 40 82 41 5b 54 f7 a1 51 40 00 00 04 00 00 00 48 80 05 20 55 40 00 21 01 00 02 00 00 8a 85 25 ┆ @ P $ Y ] _ @ A[T ] @[ T ^ [ @ A[T Q@ H U@ ! %┆
0x867e…86ce (88, 0, 400) 5d fa f7 a1 00 00 8f 20 00 00 a0 41 5b 54 82 20 fd a8 82 61 5b 5c f7 a1 5d fa f0 34 f7 a1 2b d8 66 c4 02 58 84 41 5b 5c 97 a0 00 04 8f 3e 81 18 f7 a1 2b d8 00 00 00 5a 84 41 5e de f0 34 a0 41 5e de 86 04 85 20 5b 90 f5 21 66 2e 81 40 5e c4 ┆] A[T a[ ] 4 + f X A[ > + Z A^ 4 A^ [ !f. @^ ┆
0x86ce…871e 50 00 f5 21 64 2e f5 21 66 fe 8f 20 5e e8 81 40 5e de 50 00 a0 61 5e de a0 41 5e de f0 34 81 41 00 00 82 41 00 00 83 41 00 00 01 08 83 1c 3f 61 b3 08 3a 61 23 01 50 00 b7 20 a0 01 19 01 5c 14 81 40 00 00 82 40 00 00 83 40 00 00 f0 34 81 40 ┆P !d. !f ^ @^ P a^ A^ 4 A A A ?a :a# P @ @ @ 4 @┆
0x871e…876e 5e d8 54 00 86 1c 90 41 5e d0 f5 21 66 4a 80 c0 67 70 f5 21 66 4a a0 41 5e d0 82 40 67 70 3a 48 b2 02 15 04 ea 18 8f 34 00 00 80 00 00 00 00 00 5b 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆^ T A^ !fJ gp !fJ A^ @gp:H 4 [b ┆
0x876e…87be 00 00 00 00 00 00 00 00 67 ca 70 ce 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48 00 00 ea 20 00 18 54 00 02 30 f5 21 00 00 13 01 57 00 ea 20 00 07 52 00 f5 21 00 00 90 41 5e d8 81 40 5e d6 00 00 5e d8 55 00 13 01 eb 20 00 fc 5a 74 01 11 e9 51 ┆ g p ! " :A *@ H T 0 ! W R ! A^ @^ ^ U Zt Q┆
0x87be…880e ff fe 50 00 e9 51 ff ff 54 00 e2 30 14 01 f5 21 00 00 90 41 5e d8 e2 30 f5 21 00 00 90 41 5e d8 02 17 f5 21 00 00 80 9c 82 1c 22 ff f5 21 00 00 e2 02 22 ff f5 21 00 00 82 29 90 44 95 2a 94 00 00 00 8a aa 00 80 00 0c 00 00 0a 80 00 21 00 0c ┆ P Q T 0 ! A^ 0 ! A^ ! " ! " ! ) D * ! ┆
0x880e…885e (89, 0, 400) 8f 20 64 4e 90 41 5e c8 02 03 5f 22 90 41 5e ca 86 41 5e c2 f5 21 00 00 02 01 f5 21 00 00 07 00 02 25 f5 21 00 00 02 52 f5 21 00 00 02 02 f5 21 00 00 e2 40 00 00 f5 21 00 00 82 38 f5 21 00 00 81 58 00 02 21 06 39 61 e2 44 5e e4 f5 21 00 00 ┆ dN A^ _" A^ A^ ! ! % ! R ! ! @ ! 8 ! X ! 9a D^ ! ┆
0x885e…88ae 02 20 81 58 00 02 21 05 50 00 21 04 54 00 02 26 f5 21 00 00 5f 62 02 00 42 82 4a c2 42 d2 f5 21 00 00 03 04 02 16 f5 21 00 00 1b 01 5c 0a f0 34 80 41 11 f0 bc 3f f7 a1 5e a2 4a 02 54 00 98 41 5e d0 54 00 ea 20 00 32 50 00 f5 21 00 00 e2 48 ┆ X ! P ! T & ! _b B J B ! ! 4 A ? ^ J T A^ T 2P ! H┆
0x88ae…88fe 00 00 f0 34 f5 21 00 00 8f 20 5e e8 80 41 11 f0 bc 3f f7 a1 5e a2 5f 16 49 c2 82 04 22 02 50 00 a0 41 5e ca 85 20 5b 90 8f 20 5e f0 81 41 5b 58 f7 a1 5d fa f0 34 01 00 41 82 5f 24 22 ff ea 20 00 ff 50 00 e2 48 00 00 42 12 50 00 57 00 f5 21 ┆ 4 ! ^ A ? ^ _ I " P A^ [ ^ A[X ] 4 A _$" P H B P W !┆
0x88fe…894e 00 00 f7 a1 5e 88 8f 20 00 00 5f 20 f5 21 66 4a 01 80 15 04 21 80 31 80 8f 34 00 00 90 41 66 62 84 40 00 00 94 60 00 00 1c 02 03 00 ec 40 00 00 50 00 83 30 ea 4d 00 01 5c 12 a0 41 66 62 a3 20 ff fe f0 34 bc 3f 05 04 81 40 00 00 91 60 00 00 ┆ ^ _ !fJ ! 1 4 Afb @ ` @ P 0 M Afb 4 ? @ ` ┆
0x894e…899e 19 02 e9 40 00 00 50 00 86 24 ad 59 00 02 f7 a1 5d c6 5f 14 02 40 aa 41 5b 54 f7 a1 5d fa 82 40 5b 5c 54 00 f7 a1 00 00 8f 20 5e e8 85 20 5b 90 02 40 82 41 5b 54 f7 a1 51 40 00 00 04 00 00 00 48 80 05 20 55 40 00 21 01 00 02 00 00 8a 85 25 ┆ @ P $ Y ] _ @ A[T ] @[ T ^ [ @ A[T Q@ H U@ ! %┆
0x899e…89ee (90, 0, 400) 5d fa f7 a1 00 00 8f 20 00 00 a0 41 5b 54 82 20 fd a8 82 61 5b 5c f7 a1 5d fa f0 34 f7 a1 2b d8 66 c4 02 58 84 41 5b 5c 97 a0 00 04 8f 3e 81 18 f7 a1 2b d8 00 00 00 5a 84 41 5e de f0 34 a0 41 5e de 86 04 85 20 5b 90 f5 21 66 2e 81 40 5e c4 ┆] A[T a[ ] 4 + f X A[ > + Z A^ 4 A^ [ !f. @^ ┆
0x89ee…8a3e 50 00 f5 21 64 2e f5 21 66 fe 8f 20 5e e8 81 40 5e de 50 00 a0 61 5e de a0 41 5e de f0 34 81 41 00 00 82 41 00 00 83 41 00 00 01 08 83 1c 3f 61 b3 08 3a 61 23 01 50 00 b7 20 a0 01 19 01 5c 14 81 40 00 00 82 40 00 00 83 40 00 00 f0 34 81 40 ┆P !d. !f ^ @^ P a^ A^ 4 A A A ?a :a# P @ @ @ 4 @┆
0x8a3e…8a8e 5e d8 54 00 86 1c 90 41 5e d0 f5 21 66 4a 80 c0 67 70 f5 21 66 4a a0 41 5e d0 82 40 67 70 3a 48 b2 02 15 04 ea 18 8f 34 00 00 80 00 00 00 00 00 5b 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆^ T A^ !fJ gp !fJ A^ @gp:H 4 [b ┆
0x8a8e…8ade 00 00 00 00 00 00 00 00 67 ca 70 ce 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48 00 00 ea 20 00 18 54 00 02 30 f5 21 00 00 13 01 57 00 ea 20 00 07 52 00 f5 21 00 00 90 41 5e d8 81 40 5e d6 00 00 5e d8 55 00 13 01 eb 20 00 fc 5a 74 01 11 e9 51 ┆ g p ! " :A *@ H T 0 ! W R ! A^ @^ ^ U Zt Q┆
0x8ade…8b2e ff fe 50 00 e9 51 ff ff 54 00 e2 30 14 01 f5 21 00 00 90 41 5e d8 e2 30 f5 21 00 00 90 41 5e d8 02 17 f5 21 00 00 80 9c 82 1c 22 ff f5 21 00 00 e2 02 22 ff f5 21 00 00 82 29 90 44 95 2a 94 00 00 00 8a aa 00 80 00 0c 00 00 0a 80 00 21 00 0c ┆ P Q T 0 ! A^ 0 ! A^ ! " ! " ! ) D * ! ┆
0x8b2e…8b7e (91, 0, 400) 8f 20 64 4e 90 41 5e c8 02 03 5f 22 90 41 5e ca 86 41 5e c2 f5 21 00 00 02 01 f5 21 00 00 07 00 02 25 f5 21 00 00 02 52 f5 21 00 00 02 02 f5 21 00 00 e2 40 00 00 f5 21 00 00 82 38 f5 21 00 00 81 58 00 02 21 06 39 61 e2 44 5e e4 f5 21 00 00 ┆ dN A^ _" A^ A^ ! ! % ! R ! ! @ ! 8 ! X ! 9a D^ ! ┆
0x8b7e…8bce 02 20 81 58 00 02 21 05 50 00 21 04 54 00 02 26 f5 21 00 00 5f 62 02 00 42 82 4a c2 42 d2 f5 21 00 00 03 04 02 16 f5 21 00 00 1b 01 5c 0a f0 34 80 41 11 f0 bc 3f f7 a1 5e a2 4a 02 54 00 98 41 5e d0 54 00 ea 20 00 32 50 00 f5 21 00 00 e2 48 ┆ X ! P ! T & ! _b B J B ! ! 4 A ? ^ J T A^ T 2P ! H┆
0x8bce…8c1e 00 00 f0 34 f5 21 00 00 8f 20 5e e8 80 41 11 f0 bc 3f f7 a1 5e a2 5f 16 49 c2 82 04 22 02 50 00 a0 41 5e ca 85 20 5b 90 8f 20 5e f0 81 41 5b 58 f7 a1 5d fa f0 34 01 00 41 82 5f 24 22 ff ea 20 00 ff 50 00 e2 48 00 00 42 12 50 00 57 00 f5 21 ┆ 4 ! ^ A ? ^ _ I " P A^ [ ^ A[X ] 4 A _$" P H B P W !┆
0x8c1e…8c6e 00 00 f7 a1 5e 88 8f 20 00 00 5f 20 f5 21 66 4a 01 80 15 04 21 80 31 80 8f 34 00 00 90 41 66 62 84 40 00 00 94 60 00 00 1c 02 03 00 ec 40 00 00 50 00 83 30 ea 4d 00 01 5c 12 a0 41 66 62 a3 20 ff fe f0 34 bc 3f 05 04 81 40 00 00 91 60 00 00 ┆ ^ _ !fJ ! 1 4 Afb @ ` @ P 0 M Afb 4 ? @ ` ┆
0x8c6e…8cbe 19 02 e9 40 00 00 50 00 86 24 ad 59 00 02 f7 a1 5d c6 5f 14 02 40 aa 41 5b 54 f7 a1 5d fa 82 40 5b 5c 54 00 f7 a1 00 00 8f 20 5e e8 85 20 5b 90 02 40 82 41 5b 54 f7 a1 51 40 00 00 04 00 00 00 48 80 05 20 55 40 00 21 01 00 02 00 00 8a 85 25 ┆ @ P $ Y ] _ @ A[T ] @[ T ^ [ @ A[T Q@ H U@ ! %┆
0x8cbe…8d0e (92, 0, 400) 5d fa f7 a1 00 00 8f 20 00 00 a0 41 5b 54 82 20 fd a8 82 61 5b 5c f7 a1 5d fa f0 34 f7 a1 2b d8 66 c4 02 58 84 41 5b 5c 97 a0 00 04 8f 3e 81 18 f7 a1 2b d8 00 00 00 5a 84 41 5e de f0 34 a0 41 5e de 86 04 85 20 5b 90 f5 21 66 2e 81 40 5e c4 ┆] A[T a[ ] 4 + f X A[ > + Z A^ 4 A^ [ !f. @^ ┆
0x8d0e…8d5e 50 00 f5 21 64 2e f5 21 66 fe 8f 20 5e e8 81 40 5e de 50 00 a0 61 5e de a0 41 5e de f0 34 81 41 00 00 82 41 00 00 83 41 00 00 01 08 83 1c 3f 61 b3 08 3a 61 23 01 50 00 b7 20 a0 01 19 01 5c 14 81 40 00 00 82 40 00 00 83 40 00 00 f0 34 81 40 ┆P !d. !f ^ @^ P a^ A^ 4 A A A ?a :a# P @ @ @ 4 @┆
0x8d5e…8dae 5e d8 54 00 86 1c 90 41 5e d0 f5 21 66 4a 80 c0 67 70 f5 21 66 4a a0 41 5e d0 82 40 67 70 3a 48 b2 02 15 04 ea 18 8f 34 00 00 80 00 00 00 00 00 5b 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆^ T A^ !fJ gp !fJ A^ @gp:H 4 [b ┆
0x8dae…8dfe 00 00 00 00 00 00 00 00 67 ca 70 ce 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48 00 00 ea 20 00 18 54 00 02 30 f5 21 00 00 13 01 57 00 ea 20 00 07 52 00 f5 21 00 00 90 41 5e d8 81 40 5e d6 00 00 5e d8 55 00 13 01 eb 20 00 fc 5a 74 01 11 e9 51 ┆ g p ! " :A *@ H T 0 ! W R ! A^ @^ ^ U Zt Q┆
0x8dfe…8e4e ff fe 50 00 e9 51 ff ff 54 00 e2 30 14 01 f5 21 00 00 90 41 5e d8 e2 30 f5 21 00 00 90 41 5e d8 02 17 f5 21 00 00 80 9c 82 1c 22 ff f5 21 00 00 e2 02 22 ff f5 21 00 00 82 29 90 44 95 2a 94 00 00 00 8a aa 00 80 00 0c 00 00 0a 80 00 21 00 0c ┆ P Q T 0 ! A^ 0 ! A^ ! " ! " ! ) D * ! ┆