|
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: 36708 (0x8f64)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦9af60a727⟧ Bits:30009707 Philips computer tape "M_173"
└─⟦this⟧ »M:173/DRDY01.SC«
└─⟦this⟧ »M:173/DRDY01.SC«
IDENT DRDY01 9.2DK 2 83-07-07 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 * * * * 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) * * * * *********** * 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 * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTOR ORDER * ************* * 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 * * * ***************************************** * 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 1 * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU 0 * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU 1 * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 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 * * * ******************************** * 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 * * * ********** * 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 * * 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 * 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 * * 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 * * CODE CHECK ERROR * ADY130 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ADY100 * * 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 * * 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 * * 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 * * * * 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 COPY80? 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 * * * 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 * * 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 * * * 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 * * 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 * * 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 * 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 * * 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 * * 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 * * 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 * * * 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 *********************************************** * 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 * * * 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 * * * 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 * =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-07-07 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…08e8 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0005, t01=0x0116}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x08fc…091a Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x0134}
0x091a…0924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0152}
0x0924…0964 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0005, t01=0x015c}
0x0964…096e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000c}
0x096e…099c Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x0016}
0x099c…09b6 Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0006, t01=0x0044}
0x09b6…09d0 Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x005e}
0x09d0…09f6 Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x0078}
0x09f6…0a24 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x009e}
0x0a24…0a52 Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0006, t01=0x00cc}
0x0a52…0a80 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x00fa}
0x0a80…0a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0128}
0x0a8a…0ac4 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x0132}
0x0ac4…0afc Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0006, t01=0x016c}
0x0afc…0b2c Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0007, t01=0x0014}
0x0b2c…0b6a Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0007, t01=0x0044}
0x0b6a…0ba6 Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x0082}
0x0ba6…0bd0 Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x00be}
0x0bd0…0c1a Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x00e8}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0007, t01=0x0132}
0x0c24…0c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013c}
0x0c2e…0c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0146}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0150}
0x0c42…0c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015a}
0x0c4c…0c60 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0164}
0x0c60…0c74 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0178}
0x0c74…0c88 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x018c}
0x0c88…0c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0c9c…0ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0ca6…0cd2 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x002e}
0x0cd2…0d06 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x005a}
0x0d06…0d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d10…0d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1a…0d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a2}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ac}
0x0d2e…0d60 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x00b6}
0x0d60…0d92 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0008, t01=0x00e8}
0x0d92…0dc4 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x011a}
0x0dc4…0dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014c}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dd8…0e00 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x0160}
0x0e00…0e32 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x0188}
0x0e32…0e52 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0009, t01=0x002a}
0x0e52…0e94 Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x004a}
0x0e94…0eb2 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x008c}
0x0eb2…0ee4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0009, t01=0x00aa}
0x0ee4…0f18 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x00dc}
0x0f18…0f4c Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0110}
0x0f4c…0f56 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0009, t01=0x0144}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014e}
0x0f60…0f80 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0158}
0x0f80…0fa0 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x0178}
0x0fa0…0fc0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0008}
0x0fc0…0fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0028}
0x0fca…0fe6 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x0032}
0x0fe6…1008 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x004e}
0x1008…1022 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x0070}
0x1022…102c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102c…1036 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000a, t01=0x0094}
0x1036…104c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x009e}
0x104c…1062 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x00b4}
0x1062…1078 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00ca}
0x1078…1082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e0}
0x1082…10a4 Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x00ea}
0x10a4…10cc Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x010c}
0x10cc…10f2 Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000a, t01=0x0134}
0x10f2…1118 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000a, t01=0x015a}
0x1118…1142 Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000a, t01=0x0180}
0x1142…116c Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x001a}
0x116c…118c Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x0044}
0x118c…11a8 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x0064}
0x11a8…11c8 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0080}
0x11c8…11f4 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x00a0}
0x11f4…1216 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x00cc}
0x1216…123a Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x00ee}
0x123a…1256 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x0112}
0x1256…127a Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x012e}
0x127a…129c Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x0152}
0x129c…12ba Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x0174}
0x12ba…12ec (12, 0, 400) Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000c, t01=0x0004}
0x12ec…131a Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x0036}
0x131a…1340 Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x0064}
0x1340…1376 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x008a}
0x1376…139a Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x00c0}
0x139a…13c2 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x00e4}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010c}
0x13cc…13e8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0116}
0x13e8…1404 Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000c, t01=0x0132}
0x1404…1420 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x014e}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x142a…1450 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x0174}
0x1450…147c Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000d, t01=0x000a}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0036}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000d, t01=0x0040}
0x1490…149a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0054}
0x14a4…14d6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x005e}
0x14d6…1508 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x0090}
0x1508…153a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x00c2}
0x153a…1544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1544…154e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fe}
0x154e…159a Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x0108}
0x159a…15a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15a4…15b6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x015e}
0x15b6…15ca Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000d, t01=0x0170}
0x15ca…15d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0184}
0x15d4…1614 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000d, t01=0x018e}
0x1614…161e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x161e…1630 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0048}
0x1630…1644 Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 0«, t00=0x000e, t01=0x005a}
0x1644…164e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x164e…1658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x1658…1694 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0082}
0x1694…16be Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x00be}
0x16be…16d0 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00e8}
0x16d0…16e4 Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 1«, t00=0x000e, t01=0x00fa}
0x16e4…16ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x010e}
0x16ee…16f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0118}
0x16f8…1734 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x0122}
0x1734…1770 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x015e}
0x1770…17ac Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x000a}
0x17ac…17b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17b6…17c8 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0050}
0x17c8…17dc Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x0062}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17e6…181a Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x0080}
0x181a…185e Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x00b4}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x1868…187a Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x0102}
0x187a…188e Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000f, t01=0x0114}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x0128}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a2…18d8 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x013c}
0x18d8…18f8 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x000f, t01=0x0172}
0x18f8…190a (16, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x0004}
0x190a…191e Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 1«, t00=0x0010, t01=0x0016}
0x191e…1928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x1928…1968 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x0034}
0x1968…198a Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x0074}
0x198a…1994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x1994…19a8 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0010, t01=0x00a0}
0x19a8…19b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19b2…19bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19bc…19f6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x00c8}
0x19f6…1a28 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0102}
0x1a28…1a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a32…1a46 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0010, t01=0x013e}
0x1a46…1a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0152}
0x1a50…1a8c Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0010, t01=0x015c}
0x1a8c…1acc Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x0008}
0x1acc…1ad4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0048}
0x1ad4…1adc Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0050}
0x1adc…1af2 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x0058}
0x1af2…1afa Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x006e}
0x1afa…1b0e Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x0076}
0x1b0e…1b22 Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x008a}
0x1b22…1b36 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x009e}
0x1b36…1b44 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x00b2}
0x1b44…1b54 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x00c0}
0x1b54…1b64 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x00d0}
0x1b64…1b74 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x00e0}
0x1b74…1b82 Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x00f0}
0x1b82…1b90 Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x00fe}
0x1b90…1b9e Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x010c}
0x1b9e…1bb0 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x011a}
0x1bb0…1bc6 Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 6 «, t00=0x0011, t01=0x012c}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0142}
0x1bd0…1bfa Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0011, t01=0x014c}
0x1bfa…1c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0176}
0x1c04…1c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0180}
0x1c0e…1c20 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0011, t01=0x018a}
0x1c20…1c36 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 162«, t00=0x0012, t01=0x000c}
0x1c36…1c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c40…1c4a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0012, t01=0x002c}
0x1c4a…1c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c54…1c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0040}
0x1c5e…1c86 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x004a}
0x1c86…1cae Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x0072}
0x1cae…1cd6 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x009a}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce0…1cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cea…1d1e Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x00d6}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d28…1d3e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0114}
0x1d3e…1d56 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x012a}
0x1d56…1d62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0142}
0x1d62…1d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x1d6c…1d82 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0158}
0x1d82…1d9c Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0012, t01=0x016e}
0x1d9c…1da8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0188}
0x1da8…1db2 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db2…1de4 Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0013, t01=0x000e}
0x1de4…1e0a Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x0040}
0x1e0a…1e2c Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x0066}
0x1e2c…1e56 Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x0088}
0x1e56…1e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b2}
0x1e60…1e6a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0013, t01=0x00bc}
0x1e6a…1e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c6}
0x1e74…1e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e7e…1e90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00da}
0x1e90…1ea2 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x00ec}
0x1ea2…1eb4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00fe}
0x1eb4…1ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ebe…1ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1ec8…1eea Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0013, t01=0x0124}
0x1eea…1f06 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x0146}
0x1f06…1f26 Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x0162}
0x1f26…1f4a Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0013, t01=0x0182}
0x1f4a…1f72 Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x0016}
0x1f72…1f96 Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x003e}
0x1f96…1fba Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x0062}
0x1fba…1fec Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x0086}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b8}
0x1ff6…2000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c2}
0x2000…2030 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x00cc}
0x2030…2050 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x00fc}
0x2050…205a Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0014, t01=0x011c}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0126}
0x2064…2078 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0014, t01=0x0130}
0x2078…2082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0144}
0x2082…20b0 Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0014, t01=0x014e}
0x20b0…20ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017c}
0x20ba…2106 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0014, t01=0x0186}
0x2106…213c Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x0042}
0x213c…2146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0078}
0x2146…2150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0082}
0x2150…2192 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x008c}
0x2192…21cc Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x00ce}
0x21cc…21d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0108}
0x21d6…2220 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0015, t01=0x0112}
0x2220…2260 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x015c}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000c}
0x226a…22ba Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x0016}
0x22ba…2308 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x0066}
0x2308…2352 Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x00b4}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x235c…2372 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x0108}
0x2372…23b8 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0016, t01=0x011e}
0x23b8…23fc Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0016, t01=0x0164}
0x23fc…242a Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x0018}
0x242a…2434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0046}
0x2434…2440 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0050}
0x2440…247e Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x005c}
0x247e…24be Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x009a}
0x24be…2500 Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x00da}
0x2500…2544 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0017, t01=0x011c}
0x2544…2568 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0017, t01=0x0160}
0x2568…2572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2572…25b2 Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0017, t01=0x018e}
0x25b2…25f2 Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x003e}
0x25f2…2636 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x007e}
0x2636…267a Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x00c2}
0x267a…26b8 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x0106}
0x26b8…26e6 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0018, t01=0x0144}
0x26e6…26f8 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0018, t01=0x0172}
0x26f8…271c Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0018, t01=0x0184}
0x271c…2736 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x0018}
0x2736…2752 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x0032}
0x2752…276c Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x004e}
0x276c…2790 Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x0068}
0x2790…27aa Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x008c}
0x27aa…27c0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x00a6}
0x27c0…27e6 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x00bc}
0x27e6…280a Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x00e2}
0x280a…2822 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x0106}
0x2822…2838 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0019, t01=0x011e}
0x2838…2854 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0019, t01=0x0134}
0x2854…286a Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0019, t01=0x0150}
0x286a…2876 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0166}
0x2876…288c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x0172}
0x288c…28be Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x0019, t01=0x0188}
0x28be…28d4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x002a}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0040}
0x28de…28ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x004a}
0x28ea…28f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0056}
0x28f4…2908 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x0060}
0x2908…2922 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x0074}
0x2922…293c Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x008e}
0x293c…2958 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x00a8}
0x2958…2972 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x00c4}
0x2972…298e Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x00de}
0x298e…29a8 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x00fa}
0x29a8…29ca Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001a, t01=0x0114}
0x29ca…29e4 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001a, t01=0x0136}
0x29e4…29ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x29ee…2a18 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001a, t01=0x015a}
0x2a18…2a22 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001a, t01=0x0184}
0x2a22…2a60 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001a, t01=0x018e}
0x2a60…2a7e Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x003c}
0x2a7e…2ab2 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x005a}
0x2ab2…2ad8 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001b, t01=0x008e}
0x2ad8…2b1e Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x00b4}
0x2b1e…2b40 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001b, t01=0x00fa}
0x2b40…2b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x011c}
0x2b4a…2b5e Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001b, t01=0x0126}
0x2b5e…2b86 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x013a}
0x2b86…2b9c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001b, t01=0x0162}
0x2b9c…2bc0 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001b, t01=0x0178}
0x2bc0…2be6 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x000c}
0x2be6…2c10 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x0032}
0x2c10…2c24 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x005c}
0x2c24…2c38 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x0070}
0x2c38…2c66 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x0084}
0x2c66…2c7c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x00b2}
0x2c7c…2c94 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x00c8}
0x2c94…2caa Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x00e0}
0x2caa…2cce Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x00f6}
0x2cce…2cf4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001c, t01=0x011a}
0x2cf4…2d0a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001c, t01=0x0140}
0x2d0a…2d36 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001c, t01=0x0156}
0x2d36…2d3e Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0182}
0x2d3e…2d46 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x018a}
0x2d46…2d6e (29, 0, 398) Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x0004}
0x2d6e…2d86 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x002c}
0x2d86…2dbc Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x0044}
0x2dbc…2df8 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x007a}
0x2df8…2e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b6}
0x2e02…2e16 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x00c0}
0x2e16…2e3a Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x00d4}
0x2e3a…2e52 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x00f8}
0x2e52…2e7c Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001d, t01=0x0110}
0x2e7c…2e9a Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001d, t01=0x013a}
0x2e9a…2ebe Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001d, t01=0x0158}
0x2ebe…2ed4 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001d, t01=0x017c}
0x2ed4…2f00 (30, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x0004}
0x2f00…2f18 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x0030}
0x2f18…2f2c Head {h00=0x0010, h01=0x0050, text=»ACDY55 EQU *«, t00=0x001e, t01=0x0048}
0x2f2c…2f56 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAM DK2 «, t00=0x001e, t01=0x005c}
0x2f56…2f76 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/40 COPY80? DK2 «, t00=0x001e, t01=0x0086}
0x2f76…2f94 Head {h00=0x001a, h01=0x0050, text=» RB(NE) ACDY52 YES DK2«, t00=0x001e, t01=0x00a6}
0x2f94…2fb8 Head {h00=0x0020, h01=0x0050, text=» LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x00c4}
0x2fb8…2fca Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x00e8}
0x2fca…2ff6 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x00fa}
0x2ff6…3008 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x0126}
0x3008…3032 Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x0138}
0x3032…3044 Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x0162}
0x3044…304e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x001e, t01=0x0174}
0x304e…3058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017e}
0x3058…3082 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001e, t01=0x0188}
0x3082…30a4 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x0022}
0x30a4…30ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0044}
0x30ae…30c2 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x004e}
0x30c2…30d8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x0062}
0x30d8…3102 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001f, t01=0x0078}
0x3102…3116 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x00a2}
0x3116…313e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x00b6}
0x313e…314a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00de}
0x314a…315e Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x00ea}
0x315e…3194 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x00fe}
0x3194…31bc Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x0134}
0x31bc…31d6 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x015c}
0x31d6…31ea Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001f, t01=0x0176}
0x31ea…3200 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001f, t01=0x018a}
0x3200…3236 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x0010}
0x3236…324c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x0046}
0x324c…3278 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x005c}
0x3278…32a4 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x0088}
0x32a4…32cc Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x00b4}
0x32cc…32e4 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x00dc}
0x32e4…3302 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x00f4}
0x3302…331c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x0112}
0x331c…3338 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x012c}
0x3338…3356 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x0148}
0x3356…3370 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x0166}
0x3370…3390 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0020, t01=0x0180}
0x3390…33ac Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x0010}
0x33ac…33c4 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x002c}
0x33c4…33e2 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x0044}
0x33e2…3400 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x0062}
0x3400…3428 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x0080}
0x3428…3442 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x00a8}
0x3442…345c Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x00c2}
0x345c…3476 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x00dc}
0x3476…3492 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x00f6}
0x3492…34be Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x0112}
0x34be…34d2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x013e}
0x34d2…34f8 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x0152}
0x34f8…351c Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0021, t01=0x0178}
0x351c…353e Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x000c}
0x353e…3558 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x002e}
0x3558…3578 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x0048}
0x3578…3592 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0068}
0x3592…359c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0082}
0x359c…35c2 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x008c}
0x35c2…35ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00b2}
0x35ce…35e6 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x00be}
0x35e6…3620 Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x00d6}
0x3620…3642 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x0110}
0x3642…365a Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x0132}
0x365a…3674 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x014a}
0x3674…368a Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x0164}
0x368a…369e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x017a}
0x369e…36c2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0022, t01=0x018e}
0x36c2…36e8 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x0022}
0x36e8…36fe Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x0048}
0x36fe…3714 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0023, t01=0x005e}
0x3714…373a Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0023, t01=0x0074}
0x373a…375e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x009a}
0x375e…3776 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x00be}
0x3776…3798 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x0023, t01=0x00d6}
0x3798…37c6 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x00f8}
0x37c6…37dc Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x0126}
0x37dc…3802 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x013c}
0x3802…381c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x0162}
0x381c…3830 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0023, t01=0x017c}
0x3830…3860 Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0023, t01=0x0190}
0x3860…3872 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x0030}
0x3872…3884 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0024, t01=0x0042}
0x3884…38ac Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0024, t01=0x0054}
0x38ac…38c2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0024, t01=0x007c}
0x38c2…38e8 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x0092}
0x38e8…38fa Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x00b8}
0x38fa…3924 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x00ca}
0x3924…3936 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x00f4}
0x3936…3950 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x0106}
0x3950…3962 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x0120}
0x3962…398e Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x0132}
0x398e…39a0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x015e}
0x39a0…39b2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0024, t01=0x0170}
0x39b2…39d0 Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0024, t01=0x0182}
0x39d0…39f2 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0025, t01=0x0010}
0x39f2…3a0c Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0025, t01=0x0032}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004c}
0x3a16…3a2c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0025, t01=0x0056}
0x3a2c…3a56 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0025, t01=0x006c}
0x3a56…3a6a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x0096}
0x3a6a…3aa0 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x00aa}
0x3aa0…3aac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00e0}
0x3aac…3ac2 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x00ec}
0x3ac2…3ad8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x0102}
0x3ad8…3aec Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0118}
0x3aec…3b0a Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x012c}
0x3b0a…3b28 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x014a}
0x3b28…3b3c Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0025, t01=0x0168}
0x3b3c…3b50 Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0025, t01=0x017c}
0x3b50…3b6a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0025, t01=0x0190}
0x3b6a…3b8c Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0026, t01=0x001a}
0x3b8c…3bae Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0026, t01=0x003c}
0x3bae…3bd2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0026, t01=0x005e}
0x3bd2…3be8 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0026, t01=0x0082}
0x3be8…3c0a Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x0098}
0x3c0a…3c30 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x00ba}
0x3c30…3c54 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x00e0}
0x3c54…3c6a Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x0104}
0x3c6a…3c80 Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x011a}
0x3c80…3cba Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x0130}
0x3cba…3ce4 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0026, t01=0x016a}
0x3ce4…3cf0 (39, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0004}
0x3cf0…3d02 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0027, t01=0x0010}
0x3d02…3d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0022}
0x3d0c…3d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002c}
0x3d16…3d2c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0027, t01=0x0036}
0x3d2c…3d40 Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0027, t01=0x004c}
0x3d40…3d60 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x0060}
0x3d60…3d74 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0027, t01=0x0080}
0x3d74…3d8c Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x0094}
0x3d8c…3da2 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x00ac}
0x3da2…3dc2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x00c2}
0x3dc2…3dda Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x00e2}
0x3dda…3dfe Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x00fa}
0x3dfe…3e12 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x011e}
0x3e12…3e3a Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x0132}
0x3e3a…3e62 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x015a}
0x3e62…3e76 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x0182}
0x3e76…3e96 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0008}
0x3e96…3eb0 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0028, t01=0x0028}
0x3eb0…3ed0 Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0028, t01=0x0042}
0x3ed0…3ee2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0028, t01=0x0062}
0x3ee2…3f02 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0074}
0x3f02…3f36 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x0094}
0x3f36…3f4a Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x00c8}
0x3f4a…3f74 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x00dc}
0x3f74…3f8c Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x0106}
0x3f8c…3fb4 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x011e}
0x3fb4…3fd8 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x0146}
0x3fd8…3fec Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0028, t01=0x016a}
0x3fec…4010 Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0028, t01=0x017e}
0x4010…402c Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0029, t01=0x0012}
0x402c…4050 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0029, t01=0x002e}
0x4050…4072 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0029, t01=0x0052}
0x4072…4086 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0029, t01=0x0074}
0x4086…4098 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0029, t01=0x0088}
0x4098…40a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x009a}
0x40a4…40ae Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0029, t01=0x00a6}
0x40ae…40b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b0}
0x40b8…40d6 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x00ba}
0x40d6…40e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d8}
0x40e0…40f4 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x00e2}
0x40f4…410a Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x00f6}
0x410a…412a Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x010c}
0x412a…413c Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x012c}
0x413c…4146 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0029, t01=0x013e}
0x4146…4150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0148}
0x4150…4168 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0029, t01=0x0152}
0x4168…4172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x016a}
0x4172…4186 Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0029, t01=0x0174}
0x4186…41b6 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0029, t01=0x0188}
0x41b6…41c8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x0028}
0x41c8…41fa Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002a, t01=0x003a}
0x41fa…420c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002a, t01=0x006c}
0x420c…421e Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002a, t01=0x007e}
0x421e…4234 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x0090}
0x4234…4268 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x00a6}
0x4268…427a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x00da}
0x427a…4290 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x00ec}
0x4290…42b0 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x0102}
0x42b0…42e2 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x0122}
0x42e2…42fa Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x0154}
0x42fa…432a Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002a, t01=0x016c}
0x432a…4354 Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002b, t01=0x000c}
0x4354…436a Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002b, t01=0x0036}
0x436a…437c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x004c}
0x437c…43a6 Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002b, t01=0x005e}
0x43a6…43c2 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x0088}
0x43c2…43f2 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x00a4}
0x43f2…440c Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x00d4}
0x440c…4426 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x00ee}
0x4426…443a Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x0108}
0x443a…4444 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002b, t01=0x011c}
0x4444…444e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0126}
0x444e…446c Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002b, t01=0x0130}
0x446c…4476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014e}
0x4476…44ac Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002b, t01=0x0158}
0x44ac…44c2 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002b, t01=0x018e}
0x44c2…44e8 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002c, t01=0x0014}
0x44e8…450c Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002c, t01=0x003a}
0x450c…452a Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002c, t01=0x005e}
0x452a…4536 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x007c}
0x4536…4560 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x0088}
0x4560…4574 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x00b2}
0x4574…4596 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x00c6}
0x4596…45b0 Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x00e8}
0x45b0…45c6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x0102}
0x45c6…45e8 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x0118}
0x45e8…45fe Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x013a}
0x45fe…461a Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x0150}
0x461a…4644 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x016c}
0x4644…464e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x464e…4676 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002d, t01=0x0012}
0x4676…4698 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002d, t01=0x003a}
0x4698…46b2 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002d, t01=0x005c}
0x46b2…46d0 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x0076}
0x46d0…46e2 Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x0094}
0x46e2…46fc Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x00a6}
0x46fc…4726 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x00c0}
0x4726…4746 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =2 «, t00=0x002d, t01=0x00ea}
0x4746…4762 Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =2«, t00=0x002d, t01=0x010a}
0x4762…4782 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH «, t00=0x002d, t01=0x0126}
0x4782…4796 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x0146}
0x4796…47b4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002d, t01=0x015a}
0x47b4…47e4 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002d, t01=0x0178}
0x47e4…4806 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002e, t01=0x0018}
0x4806…4824 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x003a}
0x4824…483c Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002e, t01=0x0058}
0x483c…4848 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0070}
0x4848…4852 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002e, t01=0x007c}
0x4852…485c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0086}
0x485c…488a Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x0090}
0x488a…4894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00be}
0x4894…48a8 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x00c8}
0x48a8…48b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00dc}
0x48b2…48c8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x00e6}
0x48c8…48ee Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x00fc}
0x48ee…4912 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x0122}
0x4912…492c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x0146}
0x492c…4962 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002e, t01=0x0160}
0x4962…496e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0008}
0x496e…499c Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002f, t01=0x0014}
0x499c…49ce Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002f, t01=0x0042}
0x49ce…49ee Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002f, t01=0x0074}
0x49ee…4a00 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x0094}
0x4a00…4a16 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x00a6}
0x4a16…4a2c Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x00bc}
0x4a2c…4a5a Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x00d2}
0x4a5a…4a82 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x0100}
0x4a82…4a9c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x0128}
0x4a9c…4ad4 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x0142}
0x4ad4…4ae8 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x002f, t01=0x017a}
0x4ae8…4b10 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x002f, t01=0x018e}
0x4b10…4b28 Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0030, t01=0x0026}
0x4b28…4b5a Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0030, t01=0x003e}
0x4b5a…4b7a Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0030, t01=0x0070}
0x4b7a…4b96 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x0090}
0x4b96…4bc4 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x00ac}
0x4bc4…4be4 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x00da}
0x4be4…4c06 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x00fa}
0x4c06…4c2c Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x011c}
0x4c2c…4c3e Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x0142}
0x4c3e…4c50 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x0154}
0x4c50…4c70 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0030, t01=0x0166}
0x4c70…4c9a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0030, t01=0x0186}
0x4c9a…4cc0 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0031, t01=0x0020}
0x4cc0…4cd2 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0031, t01=0x0046}
0x4cd2…4cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0058}
0x4cdc…4cf6 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0031, t01=0x0062}
0x4cf6…4d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x007c}
0x4d00…4d36 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x0086}
0x4d36…4d62 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x00bc}
0x4d62…4d8a Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x00e8}
0x4d8a…4da4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x0110}
0x4da4…4dca Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x012a}
0x4dca…4dde Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x0150}
0x4dde…4e00 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0031, t01=0x0164}
0x4e00…4e1a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0031, t01=0x0186}
0x4e1a…4e3a Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0032, t01=0x0010}
0x4e3a…4e54 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x0030}
0x4e54…4e78 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0032, t01=0x004a}
0x4e78…4e8a Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0032, t01=0x006e}
0x4e8a…4eb8 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x0080}
0x4eb8…4eca Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x00ae}
0x4eca…4efe Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x00c0}
0x4efe…4f20 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x00f4}
0x4f20…4f3a Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x0116}
0x4f3a…4f4c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x0130}
0x4f4c…4f7a Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x0142}
0x4f7a…4f9e Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0032, t01=0x0170}
0x4f9e…4fb8 (51, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0033, t01=0x0004}
0x4fb8…4fdc Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0033, t01=0x001e}
0x4fdc…5006 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0033, t01=0x0042}
0x5006…5026 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0033, t01=0x006c}
0x5026…5038 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x008c}
0x5038…506a Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x009e}
0x506a…509a Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x00d0}
0x509a…50be Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x0100}
0x50be…50e0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x0124}
0x50e0…510a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x0146}
0x510a…511c Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0033, t01=0x0170}
0x511c…5142 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0033, t01=0x0182}
0x5142…515c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0034, t01=0x0018}
0x515c…517e Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0034, t01=0x0032}
0x517e…5194 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0034, t01=0x0054}
0x5194…51d0 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0034, t01=0x006a}
0x51d0…51dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00a6}
0x51dc…5206 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x00b2}
0x5206…521a Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x00dc}
0x521a…5230 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x00f0}
0x5230…523a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0106}
0x523a…5264 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x0110}
0x5264…527a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x013a}
0x527a…5284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0150}
0x5284…5290 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x015a}
0x5290…529a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0166}
0x529a…52a4 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0034, t01=0x0170}
0x52a4…52ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x017a}
0x52ae…52b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0184}
0x52b8…52f4 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0034, t01=0x018e}
0x52f4…532c Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0035, t01=0x003a}
0x532c…5336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x5336…534a Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x007c}
0x534a…5374 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x0090}
0x5374…538e Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x00ba}
0x538e…53a8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x00d4}
0x53a8…53bc Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x00ee}
0x53bc…53ce Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x0102}
0x53ce…53f2 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x0114}
0x53f2…540a Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x0138}
0x540a…5430 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0035, t01=0x0150}
0x5430…5446 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x0176}
0x5446…5474 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0035, t01=0x018c}
0x5474…548a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0036, t01=0x002a}
0x548a…54b4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0036, t01=0x0040}
0x54b4…54ca Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x006a}
0x54ca…54de Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x0080}
0x54de…5508 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAM DK2 «, t00=0x0036, t01=0x0094}
0x5508…5528 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/40 COPY80? DK2 «, t00=0x0036, t01=0x00be}
0x5528…5546 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY415 YES DK2«, t00=0x0036, t01=0x00de}
0x5546…556e Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x00fc}
0x556e…5592 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x0124}
0x5592…55c6 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x0148}
0x55c6…55ea Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0036, t01=0x017c}
0x55ea…560a Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0037, t01=0x0010}
0x560a…561e Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0037, t01=0x0030}
0x561e…563a Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0037, t01=0x0044}
0x563a…5650 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0037, t01=0x0060}
0x5650…5674 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0037, t01=0x0076}
0x5674…568c Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0037, t01=0x009a}
0x568c…56a0 Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0037, t01=0x00b2}
0x56a0…56c0 Head {h00=0x001c, h01=0x0050, text=» SUK A7,6 ORDER B ? *DK «, t00=0x0037, t01=0x00c6}
0x56c0…56dc Head {h00=0x0018, h01=0x0050, text=» RF(NE) ENDIO NO *DK«, t00=0x0037, t01=0x00e6}
0x56dc…570c Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION. *DK«, t00=0x0037, t01=0x0102}
0x570c…5732 Head {h00=0x0022, h01=0x0050, text=» ST A4,10,A8 PUT IN ECBCW *DK «, t00=0x0037, t01=0x0132}
0x5732…5756 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0037, t01=0x0158}
0x5756…577e Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0037, t01=0x017c}
0x577e…5788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0014}
0x5788…579e Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0038, t01=0x001e}
0x579e…57a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0034}
0x57a8…57b2 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0038, t01=0x003e}
0x57b2…57bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0048}
0x57bc…57d6 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0038, t01=0x0052}
0x57d6…57e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x006c}
0x57e0…57f4 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0038, t01=0x0076}
0x57f4…5808 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0038, t01=0x008a}
0x5808…5834 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0038, t01=0x009e}
0x5834…585e Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0038, t01=0x00ca}
0x585e…587e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x00f4}
0x587e…5894 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x0114}
0x5894…58a6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x012a}
0x58a6…58d0 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x013c}
0x58d0…58e2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x0166}
0x58e2…5906 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0038, t01=0x0178}
0x5906…5928 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0039, t01=0x000c}
0x5928…5932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002e}
0x5932…594e Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0039, t01=0x0038}
0x594e…5958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0054}
0x5958…597c Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0039, t01=0x005e}
0x597c…599a Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x0082}
0x599a…59a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a0}
0x59a4…59b6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0039, t01=0x00aa}
0x59b6…59c8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x00bc}
0x59c8…59da Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0039, t01=0x00ce}
0x59da…59ec Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x00e0}
0x59ec…59fe Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x00f2}
0x59fe…5a12 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x0104}
0x5a12…5a26 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x0118}
0x5a26…5a56 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x012c}
0x5a56…5a7e Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0039, t01=0x015c}
0x5a7e…5aaa Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0039, t01=0x0184}
0x5aaa…5abc Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x003a, t01=0x0020}
0x5abc…5ac6 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003a, t01=0x0032}
0x5ac6…5ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x003c}
0x5ad0…5aea Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003a, t01=0x0046}
0x5aea…5af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0060}
0x5af4…5b1a Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003a, t01=0x006a}
0x5b1a…5b38 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x0090}
0x5b38…5b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ae}
0x5b42…5b5a Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003a, t01=0x00b8}
0x5b5a…5b6c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x00d0}
0x5b6c…5b7e Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x00e2}
0x5b7e…5b90 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x00f4}
0x5b90…5ba2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x0106}
0x5ba2…5bb4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0118}
0x5bb4…5bcc Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x012a}
0x5bcc…5be2 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x0142}
0x5be2…5bf8 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003a, t01=0x0158}
0x5bf8…5c10 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003a, t01=0x016e}
0x5c10…5c26 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003a, t01=0x0186}
0x5c26…5c38 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003b, t01=0x000c}
0x5c38…5c4a Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003b, t01=0x001e}
0x5c4a…5c62 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003b, t01=0x0030}
0x5c62…5c74 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003b, t01=0x0048}
0x5c74…5c88 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003b, t01=0x005a}
0x5c88…5c9a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x006e}
0x5c9a…5cae Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003b, t01=0x0080}
0x5cae…5cc0 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003b, t01=0x0094}
0x5cc0…5cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a6}
0x5cca…5cd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00b0}
0x5cd6…5ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00bc}
0x5ce0…5cea Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003b, t01=0x00c6}
0x5cea…5cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d0}
0x5cf4…5d24 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x00da}
0x5d24…5d54 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x010a}
0x5d54…5d80 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003b, t01=0x013a}
0x5d80…5d94 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003b, t01=0x0166}
0x5d94…5dc0 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003b, t01=0x017a}
0x5dc0…5df6 Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003c, t01=0x0016}
0x5df6…5e08 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x004c}
0x5e08…5e38 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003c, t01=0x005e}
0x5e38…5e48 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x008e}
0x5e48…5e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x009e}
0x5e52…5e8c Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003c, t01=0x00a8}
0x5e8c…5ec0 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x00e2}
0x5ec0…5f02 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x0116}
0x5f02…5f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0158}
0x5f0c…5f20 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003c, t01=0x0162}
0x5f20…5f4c Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003c, t01=0x0176}
0x5f4c…5f60 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x0012}
0x5f60…5f96 Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003d, t01=0x0026}
0x5f96…5faa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x005c}
0x5faa…5fd0 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003d, t01=0x0070}
0x5fd0…5fe6 Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003d, t01=0x0096}
0x5fe6…6016 Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003d, t01=0x00ac}
0x6016…602c Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x00dc}
0x602c…6036 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003d, t01=0x00f2}
0x6036…6040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fc}
0x6040…6054 Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x0106}
0x6054…605e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x011a}
0x605e…6074 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003d, t01=0x0124}
0x6074…607e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x013a}
0x607e…6090 Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003d, t01=0x0144}
0x6090…60ae Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003d, t01=0x0156}
0x60ae…60c4 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003d, t01=0x0174}
0x60c4…60e2 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003d, t01=0x018a}
0x60e2…60f8 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003e, t01=0x0018}
0x60f8…612a Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003e, t01=0x002e}
0x612a…6144 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003e, t01=0x0060}
0x6144…617c Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003e, t01=0x007a}
0x617c…6186 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x003e, t01=0x00b2}
0x6186…6190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00bc}
0x6190…61a4 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003e, t01=0x00c6}
0x61a4…61ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00da}
0x61ae…61da Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x00e4}
0x61da…61e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0110}
0x61e4…61ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x011a}
0x61ee…621a Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x0124}
0x621a…623a Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003e, t01=0x0150}
0x623a…6244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0170}
0x6244…625a Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003e, t01=0x017a}
0x625a…6264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0190}
0x6264…6282 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003f, t01=0x000a}
0x6282…629a Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003f, t01=0x0028}
0x629a…62b8 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003f, t01=0x0040}
0x62b8…62ca Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003f, t01=0x005e}
0x62ca…62e0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x0070}
0x62e0…630a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x0086}
0x630a…6316 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00b0}
0x6316…6320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00bc}
0x6320…6336 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x00c6}
0x6336…635c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x00dc}
0x635c…6368 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0102}
0x6368…6372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x010e}
0x6372…6380 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003f, t01=0x0118}
0x6380…6396 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x0126}
0x6396…63b8 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003f, t01=0x013c}
0x63b8…63c6 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x015e}
0x63c6…63d4 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x016c}
0x63d4…63e2 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x017a}
0x63e2…63f0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0188}
0x63f0…63fe Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0008}
0x63fe…640c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0016}
0x640c…641a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0024}
0x641a…6428 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0032}
0x6428…6432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0040}
0x6432…6448 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0040, t01=0x004a}
0x6448…6452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0060}
0x6452…6478 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x0040, t01=0x006a}
0x6478…649e Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x0040, t01=0x0090}
0x649e…64b6 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0040, t01=0x00b6}
0x64b6…64e8 Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x00ce}
0x64e8…64fe Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0100}
0x64fe…6508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0116}
0x6508…6514 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0120}
0x6514…651e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x012c}
0x651e…6528 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0040, t01=0x0136}
0x6528…653c Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0040, t01=0x0140}
0x653c…655e Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0040, t01=0x0154}
0x655e…6574 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0176}
0x6574…659c Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0040, t01=0x018c}
0x659c…65b2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0041, t01=0x0024}
0x65b2…65cc Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0041, t01=0x003a}
0x65cc…65ee Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0041, t01=0x0054}
0x65ee…661c Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0041, t01=0x0076}
0x661c…6642 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0041, t01=0x00a4}
0x6642…665e Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x00ca}
0x665e…668c Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x00e6}
0x668c…66c4 Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x0114}
0x66c4…66f4 Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0041, t01=0x014c}
0x66f4…671c Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0041, t01=0x017c}
0x671c…6746 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0042, t01=0x0014}
0x6746…6776 Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0042, t01=0x003e}
0x6776…67a8 Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0042, t01=0x006e}
0x67a8…67c2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x00a0}
0x67c2…67f0 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0042, t01=0x00ba}
0x67f0…6808 Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x00e8}
0x6808…6822 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x0100}
0x6822…6830 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x011a}
0x6830…683e Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0128}
0x683e…6856 Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0042, t01=0x0136}
0x6856…6868 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0042, t01=0x014e}
0x6868…6894 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0042, t01=0x0160}
0x6894…68ba Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0042, t01=0x018c}
0x68ba…68d4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0043, t01=0x0022}
0x68d4…68ea Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0043, t01=0x003c}
0x68ea…6924 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0043, t01=0x0052}
0x6924…6946 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0043, t01=0x008c}
0x6946…6964 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0043, t01=0x00ae}
0x6964…698a Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x00cc}
0x698a…69a4 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x00f2}
0x69a4…69ae Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0043, t01=0x010c}
0x69ae…69b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0116}
0x69b8…69e4 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0120}
0x69e4…69ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x014c}
0x69ee…6a02 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0043, t01=0x0156}
0x6a02…6a1e Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0043, t01=0x016a}
0x6a1e…6a38 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0043, t01=0x0186}
0x6a38…6a64 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0044, t01=0x0010}
0x6a64…6a76 Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0044, t01=0x003c}
0x6a76…6aa0 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0044, t01=0x004e}
0x6aa0…6ab6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x0078}
0x6ab6…6aee Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0044, t01=0x008e}
0x6aee…6b02 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x00c6}
0x6b02…6b18 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x00da}
0x6b18…6b4a Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x00f0}
0x6b4a…6b6e Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0122}
0x6b6e…6b88 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0044, t01=0x0146}
0x6b88…6b92 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0044, t01=0x0160}
0x6b92…6b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x016a}
0x6b9c…6bb4 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0044, t01=0x0174}
0x6bb4…6bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x018c}
0x6bbe…6bf2 Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0045, t01=0x0008}
0x6bf2…6bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x003c}
0x6bfc…6c10 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0045, t01=0x0046}
0x6c10…6c28 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0045, t01=0x005a}
0x6c28…6c42 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0045, t01=0x0072}
0x6c42…6c64 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0045, t01=0x008c}
0x6c64…6c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ae}
0x6c6e…6c84 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0045, t01=0x00b8}
0x6c84…6c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ce}
0x6c8e…6ca2 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x00d8}
0x6ca2…6cca Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x00ec}
0x6cca…6cde Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0114}
0x6cde…6ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0128}
0x6ce8…6cf4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0132}
0x6cf4…6cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x013e}
0x6cfe…6d10 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0045, t01=0x0148}
0x6d10…6d30 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0045, t01=0x015a}
0x6d30…6d44 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0045, t01=0x017a}
0x6d44…6d60 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0045, t01=0x018e}
0x6d60…6d8a Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x001a}
0x6d8a…6dba Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0046, t01=0x0044}
0x6dba…6dcc Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0046, t01=0x0074}
0x6dcc…6e04 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0046, t01=0x0086}
0x6e04…6e30 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x00be}
0x6e30…6e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ea}
0x6e3a…6e50 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0046, t01=0x00f4}
0x6e50…6e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x010a}
0x6e5a…6e6e Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x0114}
0x6e6e…6e9a Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x0128}
0x6e9a…6eae Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0046, t01=0x0154}
0x6eae…6ed2 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0046, t01=0x0168}
0x6ed2…6efa Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0046, t01=0x018c}
0x6efa…6f14 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0024}
0x6f14…6f26 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x003e}
0x6f26…6f30 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0047, t01=0x0050}
0x6f30…6f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x005a}
0x6f3a…6f4c Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0047, t01=0x0064}
0x6f4c…6f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0076}
0x6f56…6f6a Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0047, t01=0x0080}
0x6f6a…6f96 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x0094}
0x6f96…6faa Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x00c0}
0x6faa…6fce Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x00d4}
0x6fce…6fe4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x00f8}
0x6fe4…700e Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x010e}
0x700e…7030 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0047, t01=0x0138}
0x7030…7048 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0047, t01=0x015a}
0x7048…7062 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0172}
0x7062…7074 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x018c}
0x7074…7080 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x000e}
0x7080…70ae Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0048, t01=0x001a}
0x70ae…70e8 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0048, t01=0x0048}
0x70e8…7108 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0048, t01=0x0082}
0x7108…712a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0048, t01=0x00a2}
0x712a…714e Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x00c4}
0x714e…7162 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x00e8}
0x7162…7184 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x00fc}
0x7184…7196 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x011e}
0x7196…71c4 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0048, t01=0x0130}
0x71c4…71d6 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x015e}
0x71d6…71e0 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0048, t01=0x0170}
0x71e0…71ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x017a}
0x71ea…71f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0184}
0x71f4…7228 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0048, t01=0x018e}
0x7228…725c Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0049, t01=0x0032}
0x725c…7290 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0049, t01=0x0066}
0x7290…72b0 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0049, t01=0x009a}
0x72b0…72ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00ba}
0x72ba…72ce Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x00c4}
0x72ce…72e0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x00d8}
0x72e0…730c Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x00ea}
0x730c…7320 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0116}
0x7320…7352 Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0049, t01=0x012a}
0x7352…7366 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x015c}
0x7366…738c Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0049, t01=0x0170}
0x738c…73a6 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004a, t01=0x0008}
0x73a6…73ce Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x0022}
0x73ce…73e0 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004a, t01=0x004a}
0x73e0…7406 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x005c}
0x7406…7420 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0082}
0x7420…7448 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x009c}
0x7448…7462 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00c4}
0x7462…7482 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x00de}
0x7482…74a2 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00fe}
0x74a2…74b4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x011e}
0x74b4…74ca Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004a, t01=0x0130}
0x74ca…74ec Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004a, t01=0x0146}
0x74ec…751c Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004a, t01=0x0168}
0x751c…752c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0008}
0x752c…7536 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004b, t01=0x0018}
0x7536…756e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0022}
0x756e…75a6 Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004b, t01=0x005a}
0x75a6…75de Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004b, t01=0x0092}
0x75de…7616 Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004b, t01=0x00ca}
0x7616…764e Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004b, t01=0x0102}
0x764e…7686 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x013a}
0x7686…769a Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004b, t01=0x0172}
0x769a…76a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0186}
0x76a4…76ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0190}
0x76ae…76c2 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004c, t01=0x000a}
0x76c2…76e4 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004c, t01=0x001e}
0x76e4…7700 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004c, t01=0x0040}
0x7700…7730 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004c, t01=0x005c}
0x7730…775c Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004c, t01=0x008c}
0x775c…777c Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x00b8}
0x777c…77a4 Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x00d8}
0x77a4…77c4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x0100}
0x77c4…77dc Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x0120}
0x77dc…7800 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004c, t01=0x0138}
0x7800…7828 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004c, t01=0x015c}
0x7828…7840 Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004c, t01=0x0184}
0x7840…7852 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004d, t01=0x000c}
0x7852…788c Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004d, t01=0x001e}
0x788c…78a6 Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004d, t01=0x0058}
0x78a6…78d0 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004d, t01=0x0072}
0x78d0…78fa Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004d, t01=0x009c}
0x78fa…792a Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x00c6}
0x792a…7942 Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x00f6}
0x7942…7956 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x010e}
0x7956…797c Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004d, t01=0x0122}
0x797c…79a0 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004d, t01=0x0148}
0x79a0…79d4 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004d, t01=0x016c}
0x79d4…79f2 Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004e, t01=0x0010}
0x79f2…7a04 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004e, t01=0x002e}
0x7a04…7a18 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004e, t01=0x0040}
0x7a18…7a2a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004e, t01=0x0054}
0x7a2a…7a3c Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0066}
0x7a3c…7a68 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004e, t01=0x0078}
0x7a68…7a88 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004e, t01=0x00a4}
0x7a88…7aa8 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x00c4}
0x7aa8…7acc Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x00e4}
0x7acc…7ae2 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x0108}
0x7ae2…7af8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x011e}
0x7af8…7b0e Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004e, t01=0x0134}
0x7b0e…7b34 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004e, t01=0x014a}
0x7b34…7b48 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x0170}
0x7b48…7b74 Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004e, t01=0x0184}
0x7b74…7b8a Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004f, t01=0x0020}
0x7b8a…7bb0 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004f, t01=0x0036}
0x7bb0…7bd6 Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004f, t01=0x005c}
0x7bd6…7c04 Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004f, t01=0x0082}
0x7c04…7c16 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004f, t01=0x00b0}
0x7c16…7c38 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x00c2}
0x7c38…7c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e4}
0x7c42…7c74 Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x00ee}
0x7c74…7c88 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x004f, t01=0x0120}
0x7c88…7c92 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x004f, t01=0x0134}
0x7c92…7c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013e}
0x7c9c…7ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0148}
0x7ca6…7ce6 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004f, t01=0x0152}
0x7ce6…7d1e (80, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x0004}
0x7d1e…7d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x003c}
0x7d28…7d3c Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0050, t01=0x0046}
0x7d3c…7d50 Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0050, t01=0x005a}
0x7d50…7d82 Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0050, t01=0x006e}
0x7d82…7d96 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0050, t01=0x00a0}
0x7d96…7daa Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x00b4}
0x7daa…7dca Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x00c8}
0x7dca…7dec Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x00e8}
0x7dec…7e06 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x010a}
0x7e06…7e24 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0050, t01=0x0124}
0x7e24…7e3e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0142}
0x7e3e…7e50 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x015c}
0x7e50…7e6a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x016e}
0x7e6a…7e7a Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x0188}
0x7e7a…7e84 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0051, t01=0x0008}
0x7e84…7e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0012}
0x7e8e…7e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x001c}
0x7e98…7ec6 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0051, t01=0x0026}
0x7ec6…7f08 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0051, t01=0x0054}
0x7f08…7f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0096}
0x7f12…7f26 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0051, t01=0x00a0}
0x7f26…7f44 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x00b4}
0x7f44…7f64 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x00d2}
0x7f64…7f7e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x00f2}
0x7f7e…7f9e Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x010c}
0x7f9e…7fb0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0051, t01=0x012c}
0x7fb0…7fcc Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0051, t01=0x013e}
0x7fcc…7fe2 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0051, t01=0x015a}
0x7fe2…7ff6 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0051, t01=0x0170}
0x7ff6…8008 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x0184}
0x8008…8032 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0052, t01=0x0008}
0x8032…8044 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x0032}
0x8044…8064 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0052, t01=0x0044}
0x8064…8078 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0052, t01=0x0064}
0x8078…808a Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0052, t01=0x0078}
0x808a…809e Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0052, t01=0x008a}
0x809e…80bc Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0052, t01=0x009e}
0x80bc…80d0 Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x00bc}
0x80d0…80f4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x00d0}
0x80f4…8104 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x00f4}
0x8104…810e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0052, t01=0x0104}
0x810e…811c Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x010e}
0x811c…812a Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x011c}
0x812a…8138 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x012a}
0x8138…8174 Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0052, t01=0x0138}
0x8174…8182 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0174}
0x8182…8190 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0182}
0x8190…81c4 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0052, t01=0x0190}
0x81c4…81f6 Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0053, t01=0x0034}
0x81f6…8204 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0066}
0x8204…821a Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0053, t01=0x0074}
0x821a…8240 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0053, t01=0x008a}
0x8240…8264 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x00b0}
0x8264…8298 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x00d4}
0x8298…82b0 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0053, t01=0x0108}
0x82b0…82e6 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0053, t01=0x0120}
0x82e6…830a Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0053, t01=0x0156}
0x830a…832e Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0053, t01=0x017a}
0x832e…834a Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0054, t01=0x000e}
0x834a…837c Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0054, t01=0x002a}
0x837c…83a0 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,/FFFF SET OVER EDGE«, t00=0x0054, t01=0x005c}
0x83a0…83c6 Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0054, t01=0x0080}
0x83c6…83e0 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0054, t01=0x00a6}
0x83e0…8404 Head {h00=0x0020, h01=0x0050, text=»ABDY EQU * ABORT ROUTINE =4 «, t00=0x0054, t01=0x00c0}
0x8404…8434 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =4«, t00=0x0054, t01=0x00e4}
0x8434…8458 Head {h00=0x0020, h01=0x0050, text=» RTN A15 RETURN TO CALLER =4«, t00=0x0054, t01=0x0114}
0x8458…8464 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x0138}
0x8464…8468 Head {h00=0x4004, h01=0x0000}
0x8468…846c 00 54 01 44 ┆ T D┆
0x846c…8474 (85, 1, 8) 20 04 00 00 00 55 00 04 ┆ U ┆
0x8474…84c4 (86, 0, 400) e4 10 11 01 1b 01 55 0e e4 24 d4 29 11 01 12 02 1b 01 59 16 5f 26 d3 28 23 ff a4 20 ff 00 ab 10 d3 29 5f 34 84 24 d5 28 24 ff a5 20 ff 00 ac 14 d4 29 11 01 12 01 1b 01 59 52 5f 4c 1b 01 55 0e 84 04 85 0c 70 8c 94 14 92 14 84 30 5f 38 84 24 ┆ U $ ) Y _& (# )_4 $ ($ ) YR_L U p 0_8 $┆
0x84c4…8514 5f 3c 00 10 5a d4 22 7e 21 64 2d ca 28 dc 26 70 9d a8 00 00 00 00 00 00 00 00 00 00 00 00 ff fe 50 1e 52 a0 5c 10 08 fc ff fe 4f f4 52 a0 5c 10 83 35 20 bf 83 40 00 00 83 31 84 41 00 00 84 14 82 08 5a 3e f0 3a 82 44 00 4e 57 00 82 28 50 00 ┆_< Z "~!d- ( &p P R O R 5 @ 1 A Z> : D NW (P ┆
0x8514…8564 e3 44 00 2b 01 00 87 1c 50 3e 1f 02 88 20 51 0a 1f 04 50 e4 1f 2b 50 38 1f 02 50 3e 1f 04 50 48 1f 01 88 20 51 32 1f 01 88 20 51 50 57 0e 99 04 87 1c 50 14 1f 02 50 08 1f 35 50 2c 8f 20 78 00 f7 a1 52 42 8f 20 78 08 84 58 00 1a 50 ee 57 a2 ┆ D + P> Q P +P8 P> PH Q2 QPW P P 5P, x RB x X P W ┆
0x8564…85b4 82 42 00 0a aa 59 00 22 57 98 81 58 00 22 a1 20 00 02 88 20 78 00 57 90 e2 42 00 0a 22 ff 50 06 e2 48 34 1a 3a 48 e3 42 00 0b 23 ff e2 4c 34 1a 82 59 00 1c 81 40 53 24 50 1e 83 18 93 20 00 18 e9 0c 50 04 81 24 5f 10 81 18 f7 a1 35 ec 50 94 ┆ B Y "W X " x W B " P H4 :H B # L4 Y @S$P P $_ 5 P ┆
0x85b4…8604 00 14 5f 60 86 04 5f 24 82 58 00 1c 82 39 80 d9 00 1c ee 20 5b e0 50 38 81 40 77 74 e9 20 77 ba 88 20 78 00 84 40 77 76 94 60 77 76 1c 02 ec 40 77 76 50 06 ee 30 50 18 00 00 00 00 00 3f 80 e7 00 00 01 00 24 01 50 00 20 41 10 03 00 25 54 8c ┆ _` _$ X 9 [ P8 @wt w x @wv `wv @wvP 0P ? $ P A %T ┆
0x8604…8654 (87, 0, 400) 5f 0e 86 25 01 02 91 41 77 74 91 41 77 78 01 04 a9 59 00 02 f7 a1 52 14 99 04 f7 a1 16 b2 5f b4 81 42 00 04 e9 20 08 fc 51 68 f7 a1 51 86 f7 a1 51 e4 81 58 00 06 21 ff e9 20 00 33 88 20 57 24 5f d6 80 d8 00 04 84 58 00 1a 50 18 82 30 82 59 ┆_ % Awt Awx Y R _ B Qh Q Q X ! 3 W$_ X P 0 Y┆
0x8654…86a4 00 1a 14 06 83 50 ff fc 83 43 00 06 01 00 f7 a1 16 04 5f f8 f7 a1 51 62 5f fe 81 42 00 0a 21 03 50 06 81 59 00 02 5f 60 81 58 00 02 21 09 58 0e f7 a1 52 14 01 04 5f 16 82 42 00 0a 82 59 00 20 5f 7a 81 20 80 08 8f 20 78 04 81 18 82 58 00 20 ┆ P C _ Qb_ B ! P Y _` X ! X R _ B Y _z x X ┆
0x86a4…86f4 50 10 82 41 51 74 f7 a1 35 ec 51 7c 00 00 84 59 00 14 57 62 86 04 a0 59 00 14 01 40 5f a4 81 18 82 58 00 20 58 14 82 41 51 98 f7 a1 35 ec 51 a0 00 00 84 59 00 14 5f 26 86 04 a0 59 00 14 f7 a1 51 fa 82 40 53 0a ea 18 5c 30 a0 41 53 0c a0 41 ┆P AQt 5 Q| Y Wb Y @_ X X AQ 5 Q Y _& Y Q @S 0 AS A┆
0x86f4…8744 53 0a 5f 3a 82 58 00 14 50 0c 82 28 9a 09 a0 79 00 14 a0 59 00 14 57 0e 82 20 5c 10 20 bf 84 28 50 04 83 30 83 29 97 a0 00 04 8f 3e 82 20 4f b8 04 16 83 28 50 04 82 0c 5f 08 94 18 84 29 a0 31 5f 1c 82 20 4f b8 04 16 94 18 83 28 58 28 eb 10 ┆S _: X P ( y Y W (P 0 ) > O (P _ ) 1_ O (X( ┆
0x8744…8794 50 04 82 0c 5f 0c 83 30 83 29 5f 36 82 58 00 00 22 ff 58 3e 1a 22 58 42 82 20 53 24 04 18 5f 3e 82 20 53 24 04 18 5f 30 82 18 12 1a 83 28 50 04 82 0c 5f 08 84 29 a0 31 0a 12 02 81 00 00 90 00 40 08 2c 00 0b 00 a2 80 04 01 00 20 00 04 40 05 ┆P _ 0 )_6 X " X> "XB S$ _> S$ _0 (P _ ) 1 @ , @ ┆
0x8794…87e4 (88, 0, 400) f0 34 86 20 5b e0 81 58 00 02 52 32 01 02 e9 58 00 06 54 2a 80 d8 00 04 83 58 00 1a 50 26 82 2c 82 59 00 1a 13 06 84 4c ff fc 84 43 00 06 84 4c ff fe 84 43 00 0a 01 00 84 0c f7 a1 16 04 97 a0 00 04 8f 3e 81 40 4f b6 a9 40 4f b2 e9 40 4f b4 ┆ 4 [ X R2 X T* X P& , Y L C L C > @O @O @O ┆
0x87e4…8834 81 41 4f b4 58 18 a9 20 20 00 f7 a1 16 b2 5f 22 81 58 00 14 50 08 a0 79 00 14 a0 59 00 14 81 58 00 06 19 02 50 18 19 04 54 14 f7 a1 51 fa 82 40 53 0a ea 18 54 08 a0 41 53 0c a0 41 53 0a f0 3e 83 41 52 ec 84 41 52 f0 85 41 52 f4 86 41 52 f8 ┆ AO X _" X P y Y X P T Q @S T AS AS > AR AR AR AR ┆
0x8834…8884 87 41 52 fc 80 c1 53 00 57 18 83 20 00 00 84 20 00 00 85 20 00 00 86 20 00 00 87 20 00 00 80 a0 00 00 97 a0 00 04 8f 3e 88 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 00 8f 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 42 48 42 42 ┆ AR S W > P BHBB┆
0x8884…88d4 85 20 4f ee f5 21 5a 76 82 20 03 32 42 c2 f5 21 5a 9c 54 8a 81 08 19 02 50 b4 19 02 50 8c 19 01 88 20 55 60 19 0b 88 20 55 c0 19 05 88 20 55 78 80 88 f5 21 5a 9c 54 66 ea 02 54 62 03 00 ea 41 5b e1 50 08 03 02 ea 41 5b e0 54 52 f5 21 5a 9c ┆ O !Zv 2B !Z T P P U` U Ux !Z Tf Tb A[ P A[ TR !Z ┆
0x88d4…8924 54 4c 80 88 f5 21 5a 9c 54 44 ea 02 54 40 f5 21 5a 92 1a 05 54 38 f5 21 5a 92 41 82 49 c2 01 01 81 41 53 16 82 02 1b 02 50 14 e8 a0 00 22 88 20 56 9c f5 21 5a ac 86 0c 20 00 00 02 15 42 00 02 8a 55 50 00 00 00 00 50 80 49 20 89 10 88 40 ac ┆TL !Z TD T@ !Z T8 !Z A I AS P " V !Z B UP P I @ ┆
0x8924…8974 (89, 0, 400) 8c 20 57 38 5f 8e f5 21 5a ac 86 0c 54 04 86 20 5b e0 8f 20 56 50 22 7f 1a 7f 58 a4 f5 21 5a 92 5f 0c f5 21 5b 76 a0 41 53 14 81 40 53 0c 50 10 86 40 53 0a 50 06 01 02 f5 21 57 62 a0 41 53 0c a0 41 53 0e 5f ce f5 21 5b 76 81 40 53 0e 50 1a ┆ W8_ !Z T [ VP" X !Z _ ![v AS @S P @S P !Wb AS AS _ ![v @S P ┆
0x8974…89c4 81 40 5c 10 58 40 f5 21 57 bc 1f 01 54 44 a0 41 53 12 f5 21 58 6e 8f 20 53 30 81 40 53 0c 50 28 81 40 5c 10 50 22 86 40 53 0a 88 20 53 ce 82 38 f5 21 56 82 81 58 00 04 81 59 00 1e 01 00 f5 21 57 62 a0 41 53 16 5f 42 f5 21 5a 92 1a 05 58 3e ┆ @ X@ !W TD AS !Xn S0 @S P( @ P" @S S 8 !V X Y !Wb AS _B !Z X>┆
0x89c4…8a14 5f 62 90 41 53 12 84 40 5c 10 14 06 ec 40 53 22 54 14 01 1b e9 31 5c 5a 14 01 e1 30 1c 01 19 32 50 cc 19 04 50 c8 1f 01 50 a4 a0 41 53 20 f7 a1 51 d0 14 06 86 40 53 08 82 38 e2 48 35 1a 81 40 5c 10 50 04 82 45 00 04 ee 20 5b e0 50 66 82 58 ┆_b AS @ @S"T 1 Z 0 2P P P AS Q @S 8 H5 @ P E [ Pf X┆
0x8a14…8a64 00 02 52 60 82 58 00 06 50 08 02 02 ea 58 00 06 54 52 01 00 80 d8 00 04 83 50 ff fc 83 43 00 06 f7 a1 51 bc 82 43 00 0a e2 50 00 02 22 ff e2 48 35 1a 83 58 00 22 23 01 50 0e 22 08 50 0a 82 58 00 02 2a 0a 82 59 00 02 82 58 00 06 54 08 1c 06 ┆ R` X P X TR P C Q C P " H5 X "# P " P X * Y X T ┆
0x8a64…8ab4 f5 21 52 30 57 08 01 00 f7 a1 16 04 57 28 f7 a1 16 b2 57 22 81 58 00 02 52 0a 81 58 00 06 54 04 f7 a1 16 b2 1c 06 f5 21 52 30 f7 a1 52 42 f5 21 58 4e 8f 20 53 30 81 58 48 a1 2a 45 4a 48 aa 4a 40 a4 29 00 02 92 84 00 00 40 80 00 44 80 4a a5 ┆ !R0W W( W" X R X T !R0 RB !XN S0 XH *EJH J@ ) @ D J ┆
0x8ab4…8b04 (90, 0, 400) 00 22 a1 20 00 02 54 3c 81 58 00 02 21 08 58 1a f5 21 58 5c 57 2e a0 41 53 0e 86 40 53 08 01 01 b1 41 53 16 01 02 a9 59 00 22 81 20 40 00 5f 5a f5 21 5b 76 81 40 53 0c 54 20 a9 40 53 0e 50 04 f5 21 58 82 8f 20 53 30 f5 21 5b 76 81 40 53 0c ┆ " T< X ! X !X W. AS @S AS Y " @ _Z ![v @S T @S P !X S0 ![v @S ┆
0x8b04…8b54 54 08 a9 40 53 0e 58 14 57 78 01 00 41 82 49 c2 f7 a1 52 d0 f7 a1 35 ec 55 a0 00 03 8f 20 78 08 f7 a1 52 ea 86 40 53 0a 81 40 53 12 8c 20 56 ba 81 40 53 22 99 40 53 1c 81 41 53 20 8f 20 57 0e f5 21 5b 76 81 40 53 0c 58 56 f5 21 5a 92 ea 20 ┆T @S X Wx A I R 5 U x R @S @S V @S" @S AS W ![v @S XV !Z ┆
0x8b54…8ba4 00 18 54 10 81 40 53 16 50 16 f5 21 58 76 f5 21 5b 46 5f 70 ea 20 00 2f 54 2c 81 40 53 16 58 16 81 40 53 10 50 16 01 00 82 40 53 12 54 30 f5 21 57 62 f5 21 58 72 a0 41 53 14 5f 98 01 01 b1 41 53 16 8f 20 57 0e ea 20 00 5c 5c 42 a0 41 53 0c ┆ T @S P !Xv ![F_p /T, @S X @S P @S T0 !Wb !Xr AS _ AS W B AS ┆
0x8ba4…8bf4 81 40 53 10 54 04 01 02 5f 32 01 00 5f 36 86 40 53 0a f7 a1 52 28 a0 41 53 12 a0 41 53 0c 81 58 00 02 21 04 58 44 81 20 80 00 a1 59 00 02 5f 4e 81 40 53 0c 54 4c 81 58 00 02 83 04 21 01 50 08 f5 21 58 60 8f 20 53 30 23 08 54 06 81 40 5c 10 ┆ @S T _2 _6 @S R( AS AS X ! XD Y _N @S TL X ! P !X` S0# T @ ┆
0x8bf4…8c44 54 06 f5 21 58 5c 5f 14 f5 21 56 82 f5 21 58 4e 5f 1e 90 41 53 0e a0 41 53 20 e2 48 35 1a 82 45 00 04 90 41 53 12 86 41 53 08 f0 34 81 40 53 0c 50 0c f5 21 58 76 f5 21 00 4a 40 52 55 20 59 55 55 52 12 82 44 a8 a1 40 aa 00 40 51 25 2a 29 2c ┆T !X _ !V !XN_ AS AS H5 E AS AS 4 @S P !Xv ! J@RU YUUR D @ @Q%*),┆
0x8c44…8c94 (91, 0, 400) 5b 46 8f 20 53 30 f5 21 5b 22 86 40 53 24 50 12 1e 18 f5 21 59 ac f5 21 5b 46 90 41 53 0c 8f 20 53 30 86 40 4f b8 54 06 f5 21 58 72 5f 10 1e 16 80 d8 00 04 54 06 f7 a1 51 fa 5f 14 80 c1 53 1a 86 41 53 0a 84 20 6e 1a 84 43 00 02 f7 a1 15 dc ┆[F S0 ![" @S$P !Y ![F AS S0 @O T !Xr_ T Q _ S AS n C ┆
0x8c94…8ce4 84 42 00 02 83 42 00 04 84 41 53 1c 1b 02 83 41 53 1e a0 41 53 20 a0 41 53 10 a0 41 53 12 f5 21 58 aa f5 21 5b 46 90 41 53 0c 5f 5e 01 06 81 59 00 06 81 20 ff fd a1 59 00 22 85 20 4f ee 57 00 81 40 53 0c 5c 9c 87 18 f5 21 5b 22 86 1c 81 58 ┆ B B AS AS AS AS AS !X ![F AS _^ Y Y " O W @S ![" X┆
0x8ce4…8d34 00 02 21 07 5c 94 81 58 00 02 5a 84 81 58 00 06 19 06 58 84 19 02 58 88 5f 92 86 40 53 0a 50 3c 82 40 53 14 54 36 82 58 00 02 52 30 82 58 00 06 1a 06 50 10 1a 02 54 24 81 04 54 08 02 02 82 59 00 06 57 14 80 c0 53 1a f7 a1 51 bc 80 82 50 08 ┆ ! X Z X X X _ @S P< @S T6 X R0 X P T$ T Y W S Q P ┆
0x8d34…8d84 82 43 00 0a f7 a1 16 b2 f7 a1 51 fa a0 41 53 0c a0 41 53 0a 82 40 53 14 50 08 82 58 00 1e 82 59 00 04 f0 34 84 40 5c 10 14 06 03 00 81 40 53 12 54 0a 81 40 53 22 99 10 81 41 53 20 94 40 53 20 84 41 53 22 a0 41 53 12 07 00 f5 21 5a 9c 54 32 ┆ C Q AS AS @S P X Y 4 @ @S T @S" AS @S AS" AS !Z T2┆
0x8d84…8dd4 ea 20 00 03 50 34 ea 20 00 17 50 4a ea 20 00 1f 50 4c ea 20 00 05 50 1a ea 20 00 ff 50 2e e2 31 14 01 90 41 53 20 81 40 53 20 e9 20 08 fc 5d 36 57 1a 03 01 1a 7f 50 16 aa 2a a4 09 51 04 aa a8 02 44 00 02 40 00 14 15 50 11 25 52 00 00 28 05 ┆ P4 PJ PL P P. 1 AS @S ]6W P * Q D @ P %R ( ┆
0x8dd4…8e24 (92, 0, 400) 5f 40 81 40 5c 10 82 40 53 20 82 45 00 02 f5 21 5b bc 50 02 03 01 87 0c f5 21 5a 76 f0 34 83 0c 5c 20 03 02 5f 24 f5 21 5b bc 5c 32 5f 6c 02 01 03 2f b2 41 53 16 54 0a 03 18 57 06 03 2c 57 02 03 5c 02 10 e2 41 53 28 e3 41 53 29 57 14 03 15 ┆_@ @ @S E ![ P !Zv 4 _$ ![ 2_l / AS T W ,W AS( AS)W ┆
0x8e24…8e74 57 06 03 04 57 02 03 05 e3 41 53 28 02 ff e2 41 53 29 f5 21 5a 06 e2 40 53 28 f5 21 5a 9a e2 40 53 29 f5 21 5a 9a 02 ff f5 21 5a 88 02 ff f5 21 5a 88 02 00 42 92 4a d2 f0 34 f5 21 5a 06 02 02 f5 21 5a 7c 07 00 84 40 53 1c 94 40 53 20 84 41 ┆W W AS( AS) !Z @S( !Z @S) !Z !Z !Z B J 4 !Z !Z| @S @S A┆
0x8e74…8ec4 53 22 14 02 03 00 81 40 53 20 54 24 e2 40 5b e1 f5 21 5a 9a 82 38 f5 21 5a 9a 57 12 02 2d f5 21 5a 9a 83 78 00 1e f5 21 77 18 03 05 57 02 03 02 e2 30 14 01 22 7f 57 4c ea 20 00 20 52 1a ea 20 00 7e 54 02 02 0a ea 20 00 7d 54 02 02 19 ea 20 ┆S" @S T$ @[ !Z 8 !Z W - !Z x !w W 0 " WL R ~T }T ┆
0x8ec4…8f14 00 7f 54 30 1a 01 57 2c 02 1d f5 21 5a 9a e2 50 ff ff 22 7f 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48 34 1a ea 20 00 18 54 02 02 30 f5 21 5a 9a 13 01 57 0a ea 20 00 07 52 04 f5 21 5a 9a 90 41 53 20 81 40 53 1e e9 40 53 20 55 48 13 01 eb 20 ┆ T0 W, !Z P " ! " :A *@ H4 T 0 !Z W R !Z AS @S @S UH ┆
0x8f14…8f64 00 fc 5a 74 01 11 e9 51 ff fe 50 12 e9 51 ff ff 54 16 e2 30 14 01 f5 21 5a 9a 90 41 53 20 e2 30 f5 21 5a 9a 90 41 53 20 02 17 f5 21 5a 9a 80 9c 82 1c 22 ff f5 21 5a 88 28 84 08 20 14 04 aa a4 82 4a 89 48 88 00 00 02 00 41 02 a8 00 0a 52 1c ┆ Zt Q P Q T 0 !Z AS 0 !Z AS !Z " !Z ( J H A R ┆