|
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: 33142 (0x8176)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRDY01.SC«
IDENT DRDY01 REL 9.1 78-09-15 870105740912 CURPOS OUTSIDE SCREEN REL 8.1 78-06-16 CURPOS ON 6351 REL 8.1 78-06-08 DUMMY FAST OUTPUT REL 8.1 78-04-21 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY * * * * * * ************************************************** * * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS * PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 * AND PTS 6386 * THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM * VIA CHLT OR CHRT. * * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS * WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN * ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE * GENERAL KEYBOARD DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C D Y ACTIVATION PART * * I H D Y INTERRUPT HANDLER * * R C D Y RECOVERY ROUTINE * * E C H O D Y ECHO FUNCTIONS * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00: TEST STATUS * 05: BASIC WRITE * 06: STANDARD WRITE * 07: WRITE GRAPHIC DISPLAY * 0B: CURSOR POSITIONING * 31: ERASE * * NORMAL REGISTER USAGE * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * EJECT * * * SYSTEM ADAPTATION * * DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. * * --------------------------------- * BIT: 10 11 * -------------- * 0 0 PTS 6344 * 0 1 PTS 6351 & 6342 * 1 0 PTS 6386 * --------------------------------- * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT * -IS ADAPTED TO CONTROL ONLY PTS 6344 * -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 * -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER * -CAN SUPPRESS TRAILING BLANKS * AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) EJECT * * * * *********** * ENTRIES * *********** * * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * * * ***************************************** * EXTERNAL TOSS MODULE ENTRIES * ***************************************** * * EXTRN DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTOR ORDER * ******************************** * DWT-DISPLACEMENT * ******************************** * DWTBC EQU /3 BYTE COUNTER DWTAP EQU /22 HEAD POSITION POINTER DWTPOS EQU /25 POSITIONS DWTLIN EQU /24 LINES * EJECT ************* * CONSTANTS * ************* * FASTO EQU /14 FAST OUTPUT SCADD EQU /11 SET CURSOR ADDRESS ULSTAR EQU /12 UNDERLINE START ULSTOP EQU /13 UNDERLINE STOP LISTAR EQU /1E LOW INTENSITY START LISTOP EQU /1F LOW INTENSITY STOP BACKSP EQU /08 BACKSPACE LF EQU /0A LINE FEED HOME EQU /0B CURSOR HOME CLEHOM EQU /0C CLEAR AND CURSOR HOME CR EQU /0D CARRIAGE RETURN CURRIG EQU /10 CURSOR RIGHT SPACE EQU /20 SPACE STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY RETURN EQU /12 RETURN TO ALPHANUMERIC MODE ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE POINT EQU /2E POINT CHARACTER EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT STILL EQU /18 CURSOR STEADY * ******************** * RETURN CODES * ******************** * CCERR EQU /4 CODE CHECK ERROR OPERR EQU /1 NOT OPERABLE, POWER OFF * EJECT * * ***************************************** * CONDITIONAL ASSEMBLY * ***************************************** * * * BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 * X:A EQU 0 GRAFIC EQU 0 * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU 0 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU 0 * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU 0 * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU 1 EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU 1 * EJECT * * ********** * TABLES * ********** * * * DYAD EQU * ADDRESS BLOCK DATA ACDY ACTIVATION DRIVER DATA IHDY INTERRUPT HANDLER DATA RCDY RECOVERY ROUTINE DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * TABSPE EQU * TABLE OF SPECIAL CHARACTERS DATA /0712,/131E,/1F14 EJECT * * A C D Y * * ACDY = ACTIVATION DRIVER DISPLAY * * ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE * IS SET IF DISPLAY NOT OPERABLE * * * ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY * FROM ECB-BUFFER WITHOUT ANY CHECK. * * ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM * ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. * * IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') * ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER * OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> * IFT GRAFIC=1 * ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED * TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * IS SENT TO THE DISPLAY. * XIF * ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. * THE CURSOR IS SENT TO THE POSITION GIVEN * IN CONTROL WORD. NO INFORMATION ON DISPLAY * IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) * IS EXECUTED. * * ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE * WHERE THE CURSOR IS POSITIONED THE NUMBER * OF CHARACTERS THAT ARE DEFINED IN THE CONTROL * WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS * IN THE CURSOR POSITION. THE CURSOR RE- * MAINS IN THAT POSITION. ACDY EQU * LDK A3,0 START BUFFER INDEX LDK A4,0 COUNTER LDR A7,A7 ORDER 0 ? ABL(E) ADY410 YES LDK A2,STX START OF MESSAGE CF A5,OUTPUT SEND IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAPHIC DISPLAY RF(E) ACDY02 NO IFT GRAFIC=1 CWK A7,7 ORDER ' ? ABL(E) ADY500 XIF IFT WHATDY=0 LDK A2,/12 INDICATE SWITCH TO ALPHA MODE CF A5,OUTPUT * XIF * ACDY02 EQU * CWK A7,5 ORDER 5 RF(E) ACDY90 YES SUK A7,6 ORDER 6 ? RF(E) ACDY20 YES SUK A7,5 ORDER /B ? ABL(E) ADY200 YES SUK A7,/26 ORDER ERASE ? ABL(E) ADY160 YES * DYERR ABL DISIOE I/O REQUEST ERROR EJECT * ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER * ARE CARRIED OUT. * /2B NO MOVING OF PRINT HEAD * /30 CR, LF, LF * /31 ERASE DISPLAY AND WRITE FROM HOME POSITION * OTHER VALUE CR, LF * ACDY20 EQU * LD A2,4,A8 GET REQUESTED LENGTH RF(E) ACDY25 LDK A3,2 START BUFFER INDEX LD A2,2,A8 GET BUFFER ADDRESS LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF ACDY25 EQU * SUK A2,/2B POSITIONING BEFORE WRITE ? RF(E) ACDY90 SUK A2,6 /31 ? RF(E) ACDY65 LDK A4,1 INDICATE LINE FEED ADK A2,1 DOUBLE LINE FEEED ? RF(NE) ACDY30 ADK A4,1 INDICATE DOUBLE LINE FEED ACDY30 LDK A2,CR CARRIAGE RETURN ACDY35 LDK A1,1 SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER * SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS * ACDY50 EQU * CF A5,OUTPUT SEND CHARACTER ACDY52 SUK A4,1 RF(N) ACDY90 START SECTION ENDED? LC A1,DWTLIN,A6 LINES CC A1,DWTAP,A6 LAST LINE ? RF(L) ACDY55 LDKL A2,/100 INCREMENT LINE COUNTER ADS A2,DWTAP,A6 ACDY55 LDK A2,LF LINE FEED TO SEND RB ACDY50 ACDY65 LDK A2,CLEHOM CLEAR AND HOME LDK A1,1 SC A1,DWTAP,A6 RESET LINE COUNTER RB ACDY35 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACDY70 EQU * IFT WHATDY=0 LDR* A4,A6 GET CHANNEL PARAMETER ANK A4,/10 RF(NZ) ACDY75 NOT 6344 OR 6386 XIF LD A4,2,A8 ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER CCR A2,A4 CHAR EQU TO CURRENT? ABL(E) CHECK YES! ACDY75 EQU * CF A5,OUTPUT ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING IFT TRASPA=1 LD A1,2,A8 GET BUFFER ADDRESS (BA) LD A2,4,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET ADD END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR CCK A4,/2020 SPACE ? RF(NE) SKIP20 NO SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP20 CWK A2,4 RF(NG) SKIP30 RL < 5 LC A4,-2,A1 GET CHAR CCK A4,/1111 TABULATION CHAR ? RF(NE) SKIP25 NO! SUK A1,2 DECR BA SUK A2,2 DECR RL RB SKIP07 GET NEXT SKIP25 LCR A4,A1 GET CHARACTER AGAIN ANK A4,/FF SUK A4,/12 UNDER LINE START? RB(Z) SKIP07 YES! SKIP IT! SUK A4,/C LOW INT. START? RB(Z) SKIP07 YES! SUK A4,1 LOW INT. STOP? RB(Z) SKIP07 YES! * SKIP30 ST A2,4,A8 STORE NEW RL XIF ACDY90 LDK A4,0 ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER? ABL(NP) ADY405 SUK A7,5 ORDER 5? RB(E) ACDY75 ANK A2,/7F LDK A1,5 SET TABLE POINTER CC A2,TABSPE,A1 FAST OUTPUT? RF(E) ADY125 SUK A1,1 NO! LDR* A7,A6 CHANNEL PARAMETER ANK A7,/30 GRAFIC DISPLAY ? RF(E) ADY110 NO LDK A1,0 SET TABLE PONTER ADY110 CC A2,TABSPE,A1 CHARACTER FOUND RF(NE) ADY128 CCK A2,/1E1E LOW INTENSITY ? RF(NE) ADY122 NO LDK A4,/80 ADY120 ORRS A4,A6 SET LOW INTENSITY MODE LDK A4,0 RB ACDY50 ADY122 CCK A2,/1212 UNDERLINE ? RF(NE) ADY125 LDK A4,/40 SET UNDERLINE MODE RB ADY120 ADY125 CCK A2,/1414 FAST OUTPUT ? LDK A4,0 RB(NE) ACDY50 NO LDR A4,A2 CF A15,GETCHR GET OUTPUT CHARACTER LDR A1,A2 LDR A2,A4 LD A4,4,A8 REQ LENGTH SUR A4,A3 NUMBER OF CHARS RF(Z) ADY127 NONE * IFT WHATDY=0 LDR* A7,A6 GET CHANNEL PARAMETER ANK A7,/10 RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? XIF LDR A3,A1 NO! CF A5,FASTER ADY127 EQU * LD A3,4,A8 REQ LENGTH ST A3,6,A8 EFF LENGTH ABL ADY405 ADY128 EQU * SUK A1,1 GET NEXT RB(NN) ADY110 NOT AT END LDR A1,A2 MOVE CHARACTER SUK A1,/11 TAB CHAR? (11) RF(E) ADY140 SUK A1,/F LESS THAN /20 ? RF(N) ADY130 CODE CHECK ERROR SUK A1,/3F GREATER THAN /5F RB(NP) ACDY70 IFT LOWCHA=0 SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F TO CHARACTER BETWEEN /40 TO /5F XIF RB ACDY70 * * IFT WHATDY=0 OTHER EQU * ************************ * A3 = INDEX * A1 = CHARACTER * A4 = NUMBER ************************ LC A2,DWTBC,A6 AD A2,DWTAP,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD LENGTH OF REQUEST LD A3,DWTPOS,A6 GET MAX-POS AND ANK A3,/FF ST A4,10,A8 SAVE LENGTH SUR A3,A2 COMPARE RF(NN) OT030 LENGTH OK ADR A4,A3 ST A4,10,A8 SAVE LENGTH ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS OT030 EQU * LDR A3,A1 SAVE CHARACTER TO SEND OT010 LDR A2,A3 CF A5,OUTPUT SENT CHAR (IN A2) SUK A4,1 DECREMENT COUNTER RB(P) OT010 LD A4,10,A8 GET ACT. LENGTH OT040 LDK A2,BACKSP CF A5,OUTPUT SENDBACKSPACE SUK A4,1 DECREMENT LENGTH RB(P) OT040 RB ADY127 XIF EJECT * * CODE CHECK ERROR * ADY130 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ADY100 EJECT * * TABULATION * ADY140 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ADY144 ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ADY143 ADY144 LC A4,DWTAP+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(NP) ADY100 LDR A4,A2 ADY145 LDK A2,CURRIG CURSOR RIGHT ADY146 CF A5,OUTPUT CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 READY ? RB(NE) ADY145 NO ABL ADY100 EJECT * * ERASE ORDER /31 * ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY170 YES XIF LDK A3,/20 CF A5,FASTER FAST OUTPUT ADY165 LDK A2,ETB CF A5,OUTPUT ABL ADY410 END OF REQUEST IFT WHATDY=0 * ADY170 SUK A4,1 DECR NO OF CHAR RF(N) ADY180 ERASE READY CWK A4,/24 REQ LENGTH > 36 ********** RB(G) ADY170 YES EV 781205 ********** LDK A2,/20 SPACE CF A5,OUTPUT SEND IT RB ADY170 ADY180 LD A4,10,A8 AD A4,DWTAP,A6 ANK A4,/FF LC A3,DWTPOS,A6 ANK A3,/FF CWR A4,A3 RF(NL) ADY190 ADY185 LD A3,10,A8 ADY186 EQU * SUK A3,1 RB(N) ADY165 CURSOR IN ORIGIN POSITION LDK A2,BACKSP CURSOR LEFT CF A5,OUTPUT SEND IT RB ADY186 AGAIN ADY190 EQU * LD A4,DWTAP,A6 ANK A4,/FF SUR A3,A4 RB ADY186 XIF EJECT * * ORDER /B CURSOR POSITIONING PART * ADY200 EQU * * IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY205 YES * IF VIDEO (6344) SET CURSOR ADDRESS DIRECT XIF LD A4,10,A8 GET REQUESTED CURSOR POS ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER CF A5,CURPOS SET CURSOR RF ADY380 IFT WHATDY=0 * GET LINE ADY205 LC A4,10,A8 GET REQUESTED LINE CC A4,DWTLIN,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP,A6 GET ACTUAL LINE ADY210 CWR A4,A3 RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL RF(E) ADY300 SAME LINE LDK A2,LF LINE FEED ADK A3,1 INCREMENT ACTUAL LINE NUMBER ADY230 CF A5,OUTPUT SEND LDR A4,A4 REQUESTED LINE RB(NZ) ADY210 NOT EQUAL ZERO LDK A4,1 RF ADY300 ADY250 LDK A2,HOME HOME LDK A3,1 RESET ACTUAL LINE NUMBER ST A3,DWTAP,A6 RESET POSITION RB ADY230 * * GET POSITION * ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER LC A4,11,A8 GET REQUESTED POSITION CC A4,DWTPOS,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS,A6 SET LAST LINE ADY303 EQU * CWK A4,1 FIRST POSITION ? RF(NE) ADY305 NO CWR A4,A3 FIRST LINE ? RF(NE) ADY305 NO LDK A2,HOME CURSOR GO HOME RF ADY330 ADY305 RF(NL) ADY307 REQ. POS NOT ZERO LDK A4,1 ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION CC A3,DWTPOS,A6 MAX-POS? RF(NG) ADY310 NO! SUK A3,1 ADY310 CWR A4,A3 FORWARDS OR BACKWARDS RF(E) ADY370 POSITION FOUND RF(N) ADY340 BACK LDK A2,CURRIG CURSOR RIGHT ADK A3,1 UPDATE POSITION COUNTER ADY330 CF A5,OUTPUT SEND RB ADY310 ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY RF(L) ADY345 BACKSPACE WAY LDK A2,CR CARRIAGE RETURN LDK A3,1 INDICATE FIRST POSITION RB ADY330 ADY345 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND SUK A3,1 LAST BACKSPACE ? RB(NE) ADY345 ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER XIF ADY380 LDK A3,2 START BUFFER INDEX ABL ACDY90 IFT WHATDY=0 * ADY400 LDK A2,/22 START CHARACTER CF A5,OUTPUT * XIF * EJECT * * * SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL * WORD, LOAD A1 WITH RETURN CODE AND END I/0. * ADY405 EQU * LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/30 6344 ? RF(NE) ADY407 NO LDR* A1,A6 LDR A4,A1 ANK A1,/40 UNDERLINE MODE ? RF(E) ADY406 NO LDK A2,ULSTOP UNDERLINE STOP CF A5,OUTPUT ADY406 ANK A4,/80 LOW INTENSITY MODE ? RF(E) ADY407 LDK A2,LISTOP LOW INTENSITY STOP CF A5,OUTPUT ADY407 EQU * 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 LD A4,DWTAP,A6 GET CURSOR POINTER ST A4,10,A8 POSITION IN CONTROL WORD ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER * IFT GRAFIC=1 * EJECT * * GRAPHIC PART * ADY500 EQU * LDK A2,/11 CF A5,OUTPUT SWITCH TO GRAFIC MODE ADY510 CF A15,GETCHR GET CHARACTER LDR A1,A1 BUFFER EMPTY RB(E) ADY400 LDR A4,A2 CF A15,GETCHR GET NEXT CHARACTER LDR A1,A4 ANK A4,/80 ADDRESS OR DATA RF(E) ADY530 DATA MESSAGE * * ADDRESS MESSAGE * * SET FIRST OUT PUT IN A2 * AND SECOND IN A4 * SLL A1,4 LDR A4,A2 SRL A4,4 ORR A4,A1 ANK A2,/F ANK A4,/7F ORK A2,/20 ADY515 CF A5,OUTPUT SEND FIRST CHARACTER LDR A2,A4 GET SECOND CHARACTER CF A5,OUTPUT SEND SECOND CHARACTER RB ADY510 EJECT * * DATA MESSAGE * * FIRST OUTPUT IS SET IN A2 * AND SECOND IN A4 * ADY530 SLL A1,13 LDR A4,A2 SLL A2,5 ORR A1,A2 LDK A7,10 LDK A2,0 ADY540 SLL A1,1 RF(NN) ADY550 ORKL A2,/200 ADY550 SUK A7,1 RF(E) ADY560 SRL A2,1 RB ADY540 ADY560 LDR A4,A2 SRL A4,4 ANK A4,/3F ANK A2,/F ORK A2,/60 RB ADY515 * XIF * EJECT * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RTN A15 * * POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION * POINTER WHEN REQUEST RUNNING. * A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE * POSUPD EQU * LC A2,DWTBC,A6 GET POSITION POINTER ANK A2,/FF AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS,A6 END OF ROW ? RF(P) POSU10 IM DWTST,A6 INCREMENT POSITION COUNTER POSU10 RTN A15 EJECT * * I H D Y * * INTERRUPT * IHDY EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHDY10 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? RB(NE) ADY420 YES IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 EJECT * * R C D Y * * RCDY = RECOVERY ROUTINE DISPLAY * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * AT ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCDY EQU * CF A15,SAVE8 SAVE 8 REGISTERS ON STACK LD A3,DWTST,A6 SAVE STATUS WORD LDKL A2,/7FFF ANS A2,DWTST,A6 SET BUSY IFT STEADY-WHATDY=1 LDR* A2,A6 GET CHANNEL PARAM ANK A2,/20 PTS 6386? RF(Z) RCDY05 NO! LDK A2,STILL SEND 'CURSOR STEADY' CF A5,OUTPUT RCDY05 EQU * XIF * IFT WHATDY=0 * LDR* A2,A6 CHANNEL PARAMETER ANK A2,/10 GRAPHIC DISPLAY ? RF(E) RCDY10 NO LDK A2,RETURN RETURN TO ALPHANUMERIC MODE CF A5,OUTPUT * XIF * EJECT RCDY10 EQU * LDK A2,/00 DUMMY TO SEND CF A5,OUTPUT LDR A4,A4 LRC-ERROR IN BLOCK ? RF(NE) RCDY20 LDK A2,CLEHOM CLEAR AND HOME CF A5,OUTPUT SEND LDKL A2,/101 ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER LDR A3,A3 GET OLD STATUS RB(N) ENDIO NOT BUSY LDK A1,OPERR SET RETURN CODE RCDY15 ABL ADY420 EJECT * * LRC-ERROR IN BLOCK SENT REMOTE * RCDY20 EQU * SUK A7,5 ORDER 5 ? RF(NE) RCDY25 NO LDK A1,2 INDICATE THROUGHPUT ERROR RB RCDY15 RCDY25 LDK A2,STX START OF MESSAGE CF A5,OUTPUT LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK ANK A4,/FF RF(E) RCDY30 CF A5,BACCAN SEND BACKSPACES AND RUB OUT LDK A3,2 START BUFFER INDEX RCDY30 ABL ACDY90 EJECT * * E C H O D Y * * ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE * ECHODY EQU * LDR A7,A7 EOR? RF(N) ECDY17 YES LDR A3,A2 SAVE CHARACTER * IFT EORECH=0 * SUK A2,/80 RF(NN) ECDY20 NOT TO BE ECHOED ADK A2,/80 * XIF * SUK A3,/8 RF(E) ECDY40 BACKSPACE SUK A3,/10 RF(E) ECDY50 CLEAR ECDY10 CF A5,OUTPUT SEND CHARACTER CF A15,POSUPD POSITION COUNTER UPDATING RF ECDY20 ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER ECDY20 ABL ECHRTN RETURN TO KEYBOARD * * BACKSPACE * ECDY40 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION LDK A4,1 INDICATE ONE BACKSTEP CF A5,BACCAN BACK RB ECDY20 EJECT * * CLEAR * ECDY50 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION IFT WHATDY=0 LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY RF(E) ECDY60 N CF A5,BACCAN BACK RB ECDY20 XIF ECDY60 LDR A3,A4 SAVE POSITION COUNTER LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER CF A5,CURPOS SET CURSOR LDR A4,A3 GET POS COUNTER ADK A4,1 UPDATE POS COUNTER LDK A3,/20 CF A5,FASTER FAST OUTPUT LDK A2,0 SC A2,DWTBC,A6 RESET POSITION COUNTER RB ECDY20 EJECT * * * BACCAN = SUBROUTINE TO POSITION CURSOR * AT THE PLACE BEFORE REQUEST IF * CLEAR OR BACKWARDS ONE STEP IF * BACKSPACE. * BACCAN EQU * LDR A3,A4 LC A2,DWTBC,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS,A6 LAST POSITION RF(NP) BACA10 NO LDK A2,SPACE DESTRUCTIVE SPACE RF BACA20 BACA10 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND LDK A2,SPACE DESTRUCTIVE SPACE CF A5,OUTPUT SEND LDK A2,BACKSP BACKSPACE BACA20 CF A5,OUTPUT SEND SUK A4,1 RB(NE) BACA10 NGR A3,A3 NEGATE REGISTER ADS A3,DWTST,A6 UPDATE POSITION COUNTER RTN A5 EJECT *********************************************** * CHECK = SUBROUTIN TO CHECK USER BUFFER IN * * ORDER TO GET A REASON FOR USING * * 'FAST OUTPUT FACILITY' ON 6344 * * AND 6386 * *********************************************** CHECK EQU * * * LD A1,4,A8 SUR A1,A3 END OF BUFFER? ABL(NP) ACDY75 YES! LDR A7,A2 SAVE CHER TO SEND (AND CHECK) LDR A2,A4 SAVE BUFFER ADDRESS+INDEX LDK A4,1 RESET COUNTER NEXT ADK A4,1 INCREMENT COUNTER SUK A1,1 END OF BUFFER? RF(NP) OUT YES! ADK A2,1 INCREMENT POINTER CCR A7,A2 CHAR EQU TO PREVIUS? RB(E) NEXT YES! OUT EQU * CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? RF(L) NOFAST NO! ********************************** * UPDATE ACTUAL POSITION POINTER * FASTOK LC A2,DWTBC,A6 GET HEAD POSITION AD A2,DWTAP,A6 ANK A2,/FF ADR A3,A4 UPDATE BUFFER-INDEX ST A3,10,A8 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,10,A8 RESTORE BUFFER INDEX SUK A3,1 ABL ACDY90 READ NEXT CHAR * NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER ABL ACDY75 EJECT * * * FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT * AT ENTRY A4 = NUMBER OF CHARACTERS * FASTER EQU * CWK A4,/60 RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG LDK A4,/59 FAS010 EQU * ADK A4,/20 ADD CONSTANT LDK A2,FASTO FAST OUTPUT CF A5,OUTPUT SEND LDR A2,A4 NO OF CHAR CF A5,OUTPUT SEND LDR A2,A3 CF A5,OUTPUT SEND RTN A5 EJECT * * * CURPOS = SUBROUTINE TO SET CURSOR * AT ENTRY A4 = CURSOR POS (POSITION AND LINE) * CURPOS EQU * ADKL A4,/1F1F CONVERT LDK A2,SCADD SET CURSOR CF A5,OUTPUT SEND ECR A2,A4 POS. X < /80? LDR A2,A2 RF(NN) CURR05 YES! LCK A4,/7F00 CURR05 EQU * LDR A2,A4 CF A5,OUTPUT OUTPUT POSITION (X) LDR A2,A4 RF(NN) CURR10 Y < /80! LDK A2,/7F RF CURR15 CURR10 EQU * SRL A2,8 SHIFT RIGHT CURR15 EQU * CF A5,OUTPUT OUTPUT LINE(Y) RTN A5 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01 REL 9.1 78-09-15 870105740912 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e Head {h00=0x001c, h01=0x0050, text=» CURPOS OUTSIDE SCREEN«, t00=0x0000, t01=0x0042}
0x005e…007a Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-06-16 «, t00=0x0000, t01=0x0062}
0x007a…0094 Head {h00=0x0016, h01=0x0050, text=» CURPOS ON 6351 «, t00=0x0000, t01=0x007e}
0x0094…00b0 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-06-08 «, t00=0x0000, t01=0x0098}
0x00b0…00cc Head {h00=0x0018, h01=0x0050, text=» DUMMY FAST OUTPUT«, t00=0x0000, t01=0x00b4}
0x00cc…00e8 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x00d0}
0x00e8…00f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ec}
0x00f2…012c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x00f6}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…015e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x013a}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…019e Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0000, t01=0x016c}
0x019e…01a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0026}
0x01bc…01c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…0214 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x004e}
0x0214…021e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0088}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0266 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0001, t01=0x009c}
0x0266…02aa Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0001, t01=0x00da}
0x02aa…02c4 Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0001, t01=0x011e}
0x02c4…02fe Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0001, t01=0x0138}
0x02fe…031c Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0001, t01=0x0172}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0366 Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x000a}
0x0366…03a4 Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0002, t01=0x004a}
0x03a4…03e2 Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0002, t01=0x0088}
0x03e2…040e Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0002, t01=0x00c6}
0x040e…0418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f2}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…0456 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0002, t01=0x0106}
0x0456…0460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…048a Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0002, t01=0x0144}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0494…04c0 Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0002, t01=0x0178}
0x04c0…04ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0014}
0x04ca…04f6 Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0003, t01=0x001e}
0x04f6…0500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004a}
0x0500…052a Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0003, t01=0x0054}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…053c Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0088}
0x053c…0544 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0090}
0x0544…054c Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0098}
0x054c…0556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0556…0584 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0003, t01=0x00aa}
0x0584…058e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d8}
0x058e…05b0 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0003, t01=0x00e2}
0x05b0…05d2 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0003, t01=0x0104}
0x05d2…05f8 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0003, t01=0x0126}
0x05f8…0624 Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0003, t01=0x014c}
0x0624…064e Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0003, t01=0x0178}
0x064e…066a Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0004, t01=0x0012}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0674…0696 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0004, t01=0x0038}
0x0696…06a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x06a0…06c6 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x0064}
0x06c6…06f2 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x008a}
0x06f2…071a Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0004, t01=0x00b6}
0x071a…0742 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0004, t01=0x00de}
0x0742…0768 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0004, t01=0x0106}
0x0768…078e Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0004, t01=0x012c}
0x078e…07ae Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0004, t01=0x0152}
0x07ae…07d4 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0004, t01=0x0172}
0x07d4…07de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07de…07ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0012}
0x07ec…07f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0020}
0x07f6…0800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x0800…081e Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x0034}
0x081e…0828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0052}
0x0828…0868 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0005, t01=0x005c}
0x0868…0872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009c}
0x0872…08a0 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0005, t01=0x00a6}
0x08a0…08ba Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0005, t01=0x00d4}
0x08ba…08d4 Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0005, t01=0x00ee}
0x08d4…08fa Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0005, t01=0x0108}
0x08fa…0928 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0005, t01=0x012e}
0x0928…094e Head {h00=0x0022, h01=0x0050, text=»* 1 0 PTS 6386«, t00=0x0005, t01=0x015c}
0x094e…097c Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0005, t01=0x0182}
0x097c…0986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0020}
0x0986…09c0 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x002a}
0x09c0…09f8 Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0006, t01=0x0064}
0x09f8…0a28 Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0006, t01=0x009c}
0x0a28…0a66 Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0006, t01=0x00cc}
0x0a66…0aa2 Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0006, t01=0x010a}
0x0aa2…0acc Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0006, t01=0x0146}
0x0acc…0b16 Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0006, t01=0x0170}
0x0b16…0b24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x002a}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2e…0b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0042}
0x0b38…0b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004c}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4c…0b60 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0060}
0x0b60…0b74 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0074}
0x0b74…0b88 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0088}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009c}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b9c…0ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b0}
0x0ba6…0bd2 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0007, t01=0x00ba}
0x0bd2…0c06 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0007, t01=0x00e6}
0x0c06…0c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c24…0c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0138}
0x0c2e…0c60 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0007, t01=0x0142}
0x0c60…0c92 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0007, t01=0x0174}
0x0c92…0cc4 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0016}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0048}
0x0cce…0cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0052}
0x0cd8…0d00 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x005c}
0x0d00…0d32 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x0084}
0x0d32…0d52 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0008, t01=0x00b6}
0x0d52…0d94 Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0008, t01=0x00d6}
0x0d94…0db2 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0008, t01=0x0118}
0x0db2…0de4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0008, t01=0x0136}
0x0de4…0e18 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0008, t01=0x0168}
0x0e18…0e4c Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x000c}
0x0e4c…0e5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0040}
0x0e5a…0e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e64…0e84 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0058}
0x0e84…0ea4 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x0078}
0x0ea4…0ec4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0098}
0x0ec4…0ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ece…0eea Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x00c2}
0x0eea…0f04 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0009, t01=0x00de}
0x0f04…0f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f8}
0x0f0e…0f36 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0009, t01=0x0102}
0x0f36…0f5e Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0009, t01=0x012a}
0x0f5e…0f86 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0009, t01=0x0152}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0fb2 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0009, t01=0x0184}
0x0fb2…0fde Head {h00=0x0028, h01=0x0050, text=»DWTAP EQU /22 HEAD POSITION POINTER «, t00=0x000a, t01=0x0016}
0x0fde…0ffe Head {h00=0x001c, h01=0x0050, text=»DWTPOS EQU /25 POSITIONS«, t00=0x000a, t01=0x0042}
0x0ffe…101a Head {h00=0x0018, h01=0x0050, text=»DWTLIN EQU /24 LINES«, t00=0x000a, t01=0x0062}
0x101a…1024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x1024…1032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0088}
0x1032…1048 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0096}
0x1048…105e Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x00ac}
0x105e…1074 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00c2}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107e…10a0 Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x00e2}
0x10a0…10c8 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x0104}
0x10c8…10ee Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000a, t01=0x012c}
0x10ee…1114 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000a, t01=0x0152}
0x1114…113e Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000a, t01=0x0178}
0x113e…1168 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x0012}
0x1168…1188 Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x003c}
0x1188…11a4 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x005c}
0x11a4…11c4 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0078}
0x11c4…11f0 Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x0098}
0x11f0…1212 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x00c4}
0x1212…1236 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x00e6}
0x1236…1252 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x010a}
0x1252…1276 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x0126}
0x1276…1298 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x014a}
0x1298…12b6 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x016c}
0x12b6…12e8 Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000b, t01=0x018a}
0x12e8…1316 Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x002c}
0x1316…133c Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x005a}
0x133c…1372 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x0080}
0x1372…1396 Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x00b6}
0x1396…13a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00da}
0x13a0…13bc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00e4}
0x13bc…13d8 Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000c, t01=0x0100}
0x13d8…13f4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x011c}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fe…1424 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x0142}
0x1424…1450 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000c, t01=0x0168}
0x1450…145a (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x145a…1468 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x000e}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0026}
0x147c…14ae Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x0030}
0x14ae…14e0 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x0062}
0x14e0…1512 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x0094}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c6}
0x151c…1526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d0}
0x1526…1572 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x00da}
0x1572…157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0126}
0x157c…158e Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x0130}
0x158e…15a2 Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000d, t01=0x0142}
0x15a2…15ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0156}
0x15ac…15ec Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000d, t01=0x0160}
0x15ec…15f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f6…1608 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x001a}
0x1608…161c Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 0«, t00=0x000e, t01=0x002c}
0x161c…1626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0040}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004a}
0x1630…166c Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0054}
0x166c…1696 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x0090}
0x1696…16a8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00ba}
0x16a8…16bc Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000e, t01=0x00cc}
0x16bc…16c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16c6…16d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ea}
0x16d0…170c Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x00f4}
0x170c…1748 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0130}
0x1748…1784 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x016c}
0x1784…178e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0018}
0x178e…17a0 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0022}
0x17a0…17b4 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x0034}
0x17b4…17be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0048}
0x17be…17f2 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x0052}
0x17f2…1836 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0086}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x1840…1852 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x00d4}
0x1852…1866 Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000f, t01=0x00e6}
0x1866…1874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00fa}
0x1874…187e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x187e…18b4 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x0112}
0x18b4…18d4 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x000f, t01=0x0148}
0x18d4…18e6 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x0168}
0x18e6…18fa Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 1«, t00=0x000f, t01=0x017a}
0x18fa…1904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018e}
0x1904…1912 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0008}
0x1912…191c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x191c…1926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0020}
0x1926…1938 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x002a}
0x1938…194a Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0010, t01=0x003c}
0x194a…195c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x004e}
0x195c…1966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006a}
0x1970…197a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0074}
0x197a…199a Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0010, t01=0x007e}
0x199a…19be Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0010, t01=0x009e}
0x19be…19e2 Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0010, t01=0x00c2}
0x19e2…1a06 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0010, t01=0x00e6}
0x1a06…1a38 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0010, t01=0x010a}
0x1a38…1a42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013c}
0x1a42…1a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0146}
0x1a4c…1a7c Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0010, t01=0x0150}
0x1a7c…1a9c Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0010, t01=0x0180}
0x1a9c…1aaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0010}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab4…1ac8 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0011, t01=0x0028}
0x1ac8…1ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ad2…1b00 Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0011, t01=0x0046}
0x1b00…1b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0074}
0x1b0a…1b56 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0011, t01=0x007e}
0x1b56…1b8c Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0011, t01=0x00ca}
0x1b8c…1b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010a}
0x1ba0…1be2 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0011, t01=0x0114}
0x1be2…1c1c Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0011, t01=0x0156}
0x1c1c…1c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c26…1c70 Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0012, t01=0x000a}
0x1c70…1cb0 Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0012, t01=0x0054}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cba…1d0a Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0012, t01=0x009e}
0x1d0a…1d58 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0012, t01=0x00ee}
0x1d58…1da2 Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0012, t01=0x013c}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1dac…1dc2 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0012, t01=0x0190}
0x1dc2…1e08 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0013, t01=0x0016}
0x1e08…1e4c Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0013, t01=0x005c}
0x1e4c…1e7a Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0013, t01=0x00a0}
0x1e7a…1e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e84…1e90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00d8}
0x1e90…1ece Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0013, t01=0x00e4}
0x1ece…1f0e Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0013, t01=0x0122}
0x1f0e…1f50 Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0013, t01=0x0162}
0x1f50…1f94 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0014, t01=0x0014}
0x1f94…1fb8 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0014, t01=0x0058}
0x1fb8…1fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007c}
0x1fc2…2002 Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0014, t01=0x0086}
0x2002…2042 Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0014, t01=0x00c6}
0x2042…2086 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0014, t01=0x0106}
0x2086…20ca Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0014, t01=0x014a}
0x20ca…2108 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0014, t01=0x018e}
0x2108…2136 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0015, t01=0x003c}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0015, t01=0x006a}
0x2148…216c Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0015, t01=0x007c}
0x216c…2186 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0015, t01=0x00a0}
0x2186…21a2 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0015, t01=0x00ba}
0x21a2…21bc Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0015, t01=0x00d6}
0x21bc…21e0 Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0015, t01=0x00f0}
0x21e0…21fa Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0015, t01=0x0114}
0x21fa…2210 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0015, t01=0x012e}
0x2210…2236 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0015, t01=0x0144}
0x2236…225a Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0015, t01=0x016a}
0x225a…2272 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0015, t01=0x018e}
0x2272…2288 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x0016}
0x2288…22a4 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0016, t01=0x002c}
0x22a4…22ba Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0016, t01=0x0048}
0x22ba…22c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x005e}
0x22c6…22dc Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0016, t01=0x006a}
0x22dc…230e Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x0016, t01=0x0080}
0x230e…2324 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0016, t01=0x00b2}
0x2324…232e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c8}
0x232e…233a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00d2}
0x233a…2344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00de}
0x2344…2358 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x0016, t01=0x00e8}
0x2358…2372 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x0016, t01=0x00fc}
0x2372…238c Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x0016, t01=0x0116}
0x238c…23a8 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x0016, t01=0x0130}
0x23a8…23c2 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x0016, t01=0x014c}
0x23c2…23de Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x0016, t01=0x0166}
0x23de…23f8 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x0016, t01=0x0182}
0x23f8…241a Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x0017, t01=0x000c}
0x241a…2434 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x0017, t01=0x002e}
0x2434…243e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x243e…2468 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x0017, t01=0x0052}
0x2468…2476 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x007c}
0x2476…24b4 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x0017, t01=0x008a}
0x24b4…24d2 Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x0017, t01=0x00c8}
0x24d2…2506 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x0017, t01=0x00e6}
0x2506…252c Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x0017, t01=0x011a}
0x252c…2572 Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x0017, t01=0x0140}
0x2572…2594 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x0017, t01=0x0186}
0x2594…259e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0018}
0x259e…25b2 Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x0018, t01=0x0022}
0x25b2…25da Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x0018, t01=0x0036}
0x25da…25f0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x0018, t01=0x005e}
0x25f0…2614 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0018, t01=0x0074}
0x2614…263a Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x0018, t01=0x0098}
0x263a…2664 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x0018, t01=0x00be}
0x2664…2678 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0018, t01=0x00e8}
0x2678…268c Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x0018, t01=0x00fc}
0x268c…26ba Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x0018, t01=0x0110}
0x26ba…26d0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x0018, t01=0x013e}
0x26d0…26e8 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x0018, t01=0x0154}
0x26e8…26fe Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x0018, t01=0x016c}
0x26fe…2722 Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x0018, t01=0x0182}
0x2722…2748 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x0019, t01=0x0016}
0x2748…275e Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x0019, t01=0x003c}
0x275e…278a Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x0019, t01=0x0052}
0x278a…2792 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x007e}
0x2792…279a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0086}
0x279a…27c2 Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x0019, t01=0x008e}
0x27c2…27da Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x0019, t01=0x00b6}
0x27da…2810 Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x0019, t01=0x00ce}
0x2810…284c Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x0019, t01=0x0104}
0x284c…2856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0140}
0x2856…286a Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x0019, t01=0x014a}
0x286a…288e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0019, t01=0x015e}
0x288e…28a6 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x0019, t01=0x0182}
0x28a6…28d0 Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001a, t01=0x000a}
0x28d0…28ee Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001a, t01=0x0034}
0x28ee…2912 Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001a, t01=0x0052}
0x2912…2928 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001a, t01=0x0076}
0x2928…2954 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001a, t01=0x008c}
0x2954…296c Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001a, t01=0x00b8}
0x296c…2996 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001a, t01=0x00d0}
0x2996…29a8 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001a, t01=0x00fa}
0x29a8…29d4 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001a, t01=0x010c}
0x29d4…29e6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001a, t01=0x0138}
0x29e6…2a10 Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001a, t01=0x014a}
0x2a10…2a22 Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001a, t01=0x0174}
0x2a22…2a30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0186}
0x2a30…2a3a (27, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a3a…2a64 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001b, t01=0x000e}
0x2a64…2a86 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001b, t01=0x0038}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005a}
0x2a90…2aa4 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001b, t01=0x0064}
0x2aa4…2aba Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001b, t01=0x0078}
0x2aba…2ae4 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001b, t01=0x008e}
0x2ae4…2af8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001b, t01=0x00b8}
0x2af8…2b20 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001b, t01=0x00cc}
0x2b20…2b2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00f4}
0x2b2c…2b40 Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001b, t01=0x0100}
0x2b40…2b76 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001b, t01=0x0114}
0x2b76…2b9e Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001b, t01=0x014a}
0x2b9e…2bb8 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001b, t01=0x0172}
0x2bb8…2bcc Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001b, t01=0x018c}
0x2bcc…2be2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001c, t01=0x0010}
0x2be2…2c18 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x001c, t01=0x0026}
0x2c18…2c2e Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x001c, t01=0x005c}
0x2c2e…2c5a Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x001c, t01=0x0072}
0x2c5a…2c86 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x001c, t01=0x009e}
0x2c86…2cae Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x001c, t01=0x00ca}
0x2cae…2cc6 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x001c, t01=0x00f2}
0x2cc6…2ce4 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x001c, t01=0x010a}
0x2ce4…2cfe Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x001c, t01=0x0128}
0x2cfe…2d1a Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x001c, t01=0x0142}
0x2d1a…2d38 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x001c, t01=0x015e}
0x2d38…2d52 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x001c, t01=0x017c}
0x2d52…2d72 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x001d, t01=0x0008}
0x2d72…2d8e Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x001d, t01=0x0028}
0x2d8e…2da6 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x001d, t01=0x0044}
0x2da6…2dc4 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x001d, t01=0x005c}
0x2dc4…2de2 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x001d, t01=0x007a}
0x2de2…2e0a Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x001d, t01=0x0098}
0x2e0a…2e24 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x001d, t01=0x00c0}
0x2e24…2e3e Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x001d, t01=0x00da}
0x2e3e…2e58 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x001d, t01=0x00f4}
0x2e58…2e74 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x001d, t01=0x010e}
0x2e74…2ea0 Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x001d, t01=0x012a}
0x2ea0…2eb4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x001d, t01=0x0156}
0x2eb4…2eda Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x001d, t01=0x016a}
0x2eda…2efe Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x001d, t01=0x0190}
0x2efe…2f20 Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x001e, t01=0x0024}
0x2f20…2f3a Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x001e, t01=0x0046}
0x2f3a…2f5a Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x001e, t01=0x0060}
0x2f5a…2f74 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x001e, t01=0x0080}
0x2f74…2f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009a}
0x2f7e…2fa4 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x001e, t01=0x00a4}
0x2fa4…2fb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ca}
0x2fb0…2fc8 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x001e, t01=0x00d6}
0x2fc8…3002 Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x001e, t01=0x00ee}
0x3002…3024 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x001e, t01=0x0128}
0x3024…303c Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x001e, t01=0x014a}
0x303c…3056 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x001e, t01=0x0162}
0x3056…306c Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x001e, t01=0x017c}
0x306c…3080 (31, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001f, t01=0x0004}
0x3080…30a4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x001f, t01=0x0018}
0x30a4…30ca Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x001f, t01=0x003c}
0x30ca…30e0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x001f, t01=0x0062}
0x30e0…30f6 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x001f, t01=0x0078}
0x30f6…311c Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x001f, t01=0x008e}
0x311c…3140 Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x001f, t01=0x00b4}
0x3140…3158 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x001f, t01=0x00d8}
0x3158…317a Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x001f, t01=0x00f0}
0x317a…31a8 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x001f, t01=0x0112}
0x31a8…31be Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x001f, t01=0x0140}
0x31be…31e4 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x001f, t01=0x0156}
0x31e4…31fe Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x001f, t01=0x017c}
0x31fe…3212 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0020, t01=0x0008}
0x3212…3242 Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0020, t01=0x001c}
0x3242…3254 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0020, t01=0x004c}
0x3254…3266 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0020, t01=0x005e}
0x3266…328e Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0020, t01=0x0070}
0x328e…32a4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0020, t01=0x0098}
0x32a4…32ca Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0020, t01=0x00ae}
0x32ca…32dc Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0020, t01=0x00d4}
0x32dc…3306 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0020, t01=0x00e6}
0x3306…3318 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0020, t01=0x0110}
0x3318…3332 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0020, t01=0x0122}
0x3332…3344 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0020, t01=0x013c}
0x3344…3370 Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0020, t01=0x014e}
0x3370…3382 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x017a}
0x3382…3394 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0020, t01=0x018c}
0x3394…33b2 Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0021, t01=0x000e}
0x33b2…33d4 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0021, t01=0x002c}
0x33d4…33ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0021, t01=0x004e}
0x33ee…33f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0068}
0x33f8…340e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0021, t01=0x0072}
0x340e…3438 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0021, t01=0x0088}
0x3438…344c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0021, t01=0x00b2}
0x344c…3482 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0021, t01=0x00c6}
0x3482…348e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00fc}
0x348e…34a4 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0021, t01=0x0108}
0x34a4…34ba Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0021, t01=0x011e}
0x34ba…34ce Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0021, t01=0x0134}
0x34ce…34ec Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0021, t01=0x0148}
0x34ec…350a Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0021, t01=0x0166}
0x350a…351e Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0021, t01=0x0184}
0x351e…3532 Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0022, t01=0x0008}
0x3532…354c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0022, t01=0x001c}
0x354c…356e Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0022, t01=0x0036}
0x356e…3590 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0022, t01=0x0058}
0x3590…35b4 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0022, t01=0x007a}
0x35b4…35ca Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0022, t01=0x009e}
0x35ca…35ec Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0022, t01=0x00b4}
0x35ec…3612 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0022, t01=0x00d6}
0x3612…3636 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0022, t01=0x00fc}
0x3636…364c Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0022, t01=0x0120}
0x364c…3662 Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0022, t01=0x0136}
0x3662…369c Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0022, t01=0x014c}
0x369c…36c6 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0022, t01=0x0186}
0x36c6…36d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0020}
0x36d2…36e4 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0023, t01=0x002c}
0x36e4…36ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003e}
0x36ee…36f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0048}
0x36f8…370e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0023, t01=0x0052}
0x370e…3722 Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0023, t01=0x0068}
0x3722…3742 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0023, t01=0x007c}
0x3742…3756 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0023, t01=0x009c}
0x3756…376e Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0023, t01=0x00b0}
0x376e…3784 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0023, t01=0x00c8}
0x3784…37a4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0023, t01=0x00de}
0x37a4…37bc Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0023, t01=0x00fe}
0x37bc…37e0 Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0023, t01=0x0116}
0x37e0…37f4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0023, t01=0x013a}
0x37f4…381c Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0023, t01=0x014e}
0x381c…3844 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0023, t01=0x0176}
0x3844…3858 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0024, t01=0x000e}
0x3858…3878 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0024, t01=0x0022}
0x3878…3892 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0024, t01=0x0042}
0x3892…38b2 Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0024, t01=0x005c}
0x38b2…38c4 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0024, t01=0x007c}
0x38c4…38e4 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0024, t01=0x008e}
0x38e4…3918 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0024, t01=0x00ae}
0x3918…392c Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0024, t01=0x00e2}
0x392c…3956 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0024, t01=0x00f6}
0x3956…396e Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0024, t01=0x0120}
0x396e…3996 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0024, t01=0x0138}
0x3996…39ba Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0024, t01=0x0160}
0x39ba…39ce Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0024, t01=0x0184}
0x39ce…39f2 Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0025, t01=0x0008}
0x39f2…3a0e Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0025, t01=0x002c}
0x3a0e…3a32 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0025, t01=0x0048}
0x3a32…3a54 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0025, t01=0x006c}
0x3a54…3a68 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0025, t01=0x008e}
0x3a68…3a7a Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0025, t01=0x00a2}
0x3a7a…3a86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00b4}
0x3a86…3a94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00c0}
0x3a94…3a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ce}
0x3a9e…3abc Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0025, t01=0x00d8}
0x3abc…3ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f6}
0x3ac6…3ada Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0025, t01=0x0100}
0x3ada…3af0 Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0025, t01=0x0114}
0x3af0…3b10 Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0025, t01=0x012a}
0x3b10…3b22 Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0025, t01=0x014a}
0x3b22…3b30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x015c}
0x3b30…3b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016a}
0x3b3a…3b52 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0025, t01=0x0174}
0x3b52…3b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018c}
0x3b5c…3b70 Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0026, t01=0x0008}
0x3b70…3ba0 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0026, t01=0x001c}
0x3ba0…3bb2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0026, t01=0x004c}
0x3bb2…3be4 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0026, t01=0x005e}
0x3be4…3bf6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0026, t01=0x0090}
0x3bf6…3c08 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0026, t01=0x00a2}
0x3c08…3c1e Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x0026, t01=0x00b4}
0x3c1e…3c52 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x0026, t01=0x00ca}
0x3c52…3c64 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0026, t01=0x00fe}
0x3c64…3c7a Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x0026, t01=0x0110}
0x3c7a…3c9a Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x0026, t01=0x0126}
0x3c9a…3ccc Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x0026, t01=0x0146}
0x3ccc…3ce4 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x0026, t01=0x0178}
0x3ce4…3d14 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x0026, t01=0x0190}
0x3d14…3d3e Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x0027, t01=0x0030}
0x3d3e…3d54 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x0027, t01=0x005a}
0x3d54…3d66 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x0070}
0x3d66…3d90 Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x0027, t01=0x0082}
0x3d90…3dac Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x0027, t01=0x00ac}
0x3dac…3ddc Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0027, t01=0x00c8}
0x3ddc…3df6 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x0027, t01=0x00f8}
0x3df6…3e10 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x0027, t01=0x0112}
0x3e10…3e24 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x0027, t01=0x012c}
0x3e24…3e32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0140}
0x3e32…3e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014e}
0x3e3c…3e5a Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x0027, t01=0x0158}
0x3e5a…3e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e64…3e9a Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x0027, t01=0x0180}
0x3e9a…3eb0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0028, t01=0x0026}
0x3eb0…3ed6 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0028, t01=0x003c}
0x3ed6…3efa Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x0028, t01=0x0062}
0x3efa…3f14 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY170 YES«, t00=0x0028, t01=0x0086}
0x3f14…3f20 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00a0}
0x3f20…3f34 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0028, t01=0x00ac}
0x3f34…3f56 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0028, t01=0x00c0}
0x3f56…3f70 Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x0028, t01=0x00e2}
0x3f70…3f86 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0028, t01=0x00fc}
0x3f86…3fa8 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x0028, t01=0x0112}
0x3fa8…3fbe Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0028, t01=0x0134}
0x3fbe…3fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014a}
0x3fc8…3ff0 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x0028, t01=0x0154}
0x3ff0…4012 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x0028, t01=0x017c}
0x4012…4040 Head {h00=0x002a, h01=0x0050, text=» CWK A4,/24 REQ LENGTH > 36 **********«, t00=0x0029, t01=0x000e}
0x4040…406e Head {h00=0x002a, h01=0x0050, text=» RB(G) ADY170 YES EV 781205 **********«, t00=0x0029, t01=0x003c}
0x406e…4088 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x0029, t01=0x006a}
0x4088…40a6 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0029, t01=0x0084}
0x40a6…40b8 Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x0029, t01=0x00a2}
0x40b8…40d2 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x0029, t01=0x00b4}
0x40d2…40ea Head {h00=0x0014, h01=0x0050, text=» AD A4,DWTAP,A6 «, t00=0x0029, t01=0x00ce}
0x40ea…40fe Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0029, t01=0x00e6}
0x40fe…4116 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTPOS,A6«, t00=0x0029, t01=0x00fa}
0x4116…412a Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0029, t01=0x0112}
0x412a…413c Head {h00=0x000e, h01=0x0050, text=» CWR A4,A3«, t00=0x0029, t01=0x0126}
0x413c…4152 Head {h00=0x0012, h01=0x0050, text=» RF(NL) ADY190«, t00=0x0029, t01=0x0138}
0x4152…416c Head {h00=0x0016, h01=0x0050, text=»ADY185 LD A3,10,A8«, t00=0x0029, t01=0x014e}
0x416c…4180 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x0029, t01=0x0168}
0x4180…4192 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0029, t01=0x017c}
0x4192…41c2 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x0029, t01=0x018e}
0x41c2…41e4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002a, t01=0x002e}
0x41e4…4202 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002a, t01=0x0050}
0x4202…421a Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002a, t01=0x006e}
0x421a…422e Head {h00=0x0010, h01=0x0050, text=»ADY190 EQU *«, t00=0x002a, t01=0x0086}
0x422e…4246 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTAP,A6 «, t00=0x002a, t01=0x009a}
0x4246…425a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x002a, t01=0x00b2}
0x425a…426c Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x002a, t01=0x00c6}
0x426c…427e Head {h00=0x000e, h01=0x0050, text=» RB ADY186«, t00=0x002a, t01=0x00d8}
0x427e…428a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00ea}
0x428a…4298 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00f6}
0x4298…42a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0104}
0x42a2…42d0 Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002a, t01=0x010e}
0x42d0…42da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013c}
0x42da…42ee Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002a, t01=0x0146}
0x42ee…42f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015a}
0x42f8…430e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002a, t01=0x0164}
0x430e…4334 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002a, t01=0x017a}
0x4334…4358 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002b, t01=0x0010}
0x4358…4372 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002b, t01=0x0034}
0x4372…43a8 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002b, t01=0x004e}
0x43a8…43b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0084}
0x43b4…43e2 Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002b, t01=0x0090}
0x43e2…4414 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002b, t01=0x00be}
0x4414…4434 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002b, t01=0x00f0}
0x4434…4446 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002b, t01=0x0110}
0x4446…445c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002b, t01=0x0122}
0x445c…4472 Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002b, t01=0x0138}
0x4472…44a0 Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002b, t01=0x014e}
0x44a0…44c8 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002b, t01=0x017c}
0x44c8…44e2 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002c, t01=0x0014}
0x44e2…451a Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002c, t01=0x002e}
0x451a…452e Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x002c, t01=0x0066}
0x452e…4556 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x002c, t01=0x007a}
0x4556…456e Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x002c, t01=0x00a2}
0x456e…45a0 Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x002c, t01=0x00ba}
0x45a0…45c0 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x002c, t01=0x00ec}
0x45c0…45dc Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x002c, t01=0x010c}
0x45dc…460a Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x002c, t01=0x0128}
0x460a…462a Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x002c, t01=0x0156}
0x462a…464c Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x002c, t01=0x0176}
0x464c…4672 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x002d, t01=0x0008}
0x4672…4684 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x002d, t01=0x002e}
0x4684…4696 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x002d, t01=0x0040}
0x4696…46b6 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x002d, t01=0x0052}
0x46b6…46e0 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x002d, t01=0x0072}
0x46e0…4706 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x002d, t01=0x009c}
0x4706…4718 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x002d, t01=0x00c2}
0x4718…4722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d4}
0x4722…473c Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x002d, t01=0x00de}
0x473c…4746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f8}
0x4746…477c Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x002d, t01=0x0102}
0x477c…47a8 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x002d, t01=0x0138}
0x47a8…47d0 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x002d, t01=0x0164}
0x47d0…47ea Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x002d, t01=0x018c}
0x47ea…4810 Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x002e, t01=0x0016}
0x4810…4824 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x002e, t01=0x003c}
0x4824…4846 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x002e, t01=0x0050}
0x4846…4860 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x002e, t01=0x0072}
0x4860…4880 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x002e, t01=0x008c}
0x4880…489a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x002e, t01=0x00ac}
0x489a…48be Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x002e, t01=0x00c6}
0x48be…48d0 Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x002e, t01=0x00ea}
0x48d0…48fe Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x002e, t01=0x00fc}
0x48fe…4910 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x002e, t01=0x012a}
0x4910…4944 Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x002e, t01=0x013c}
0x4944…4966 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x002e, t01=0x0170}
0x4966…4980 (47, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x002f, t01=0x0004}
0x4980…4992 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002f, t01=0x001e}
0x4992…49c0 Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x002f, t01=0x0030}
0x49c0…49e4 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x002f, t01=0x005e}
0x49e4…49fe Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x002f, t01=0x0082}
0x49fe…4a22 Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x002f, t01=0x009c}
0x4a22…4a4c Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x002f, t01=0x00c0}
0x4a4c…4a6c Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x002f, t01=0x00ea}
0x4a6c…4a7e Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x002f, t01=0x010a}
0x4a7e…4ab0 Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x002f, t01=0x011c}
0x4ab0…4ae0 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x002f, t01=0x014e}
0x4ae0…4b04 Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x002f, t01=0x017e}
0x4b04…4b26 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0030, t01=0x0012}
0x4b26…4b50 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0030, t01=0x0034}
0x4b50…4b62 Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0030, t01=0x005e}
0x4b62…4b88 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0030, t01=0x0070}
0x4b88…4ba2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0030, t01=0x0096}
0x4ba2…4bc4 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0030, t01=0x00b0}
0x4bc4…4bda Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0030, t01=0x00d2}
0x4bda…4c16 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0030, t01=0x00e8}
0x4c16…4c22 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0124}
0x4c22…4c4c Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0030, t01=0x0130}
0x4c4c…4c60 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0030, t01=0x015a}
0x4c60…4c76 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0030, t01=0x016e}
0x4c76…4c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0184}
0x4c80…4caa Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0030, t01=0x018e}
0x4caa…4cc0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0031, t01=0x0028}
0x4cc0…4cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003e}
0x4cca…4cd6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0048}
0x4cd6…4ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0054}
0x4ce0…4cee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x005e}
0x4cee…4cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006c}
0x4cf8…4d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0076}
0x4d02…4d3e Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0031, t01=0x0080}
0x4d3e…4d76 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0031, t01=0x00bc}
0x4d76…4d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f4}
0x4d80…4d94 Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0031, t01=0x00fe}
0x4d94…4dbe Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0031, t01=0x0112}
0x4dbe…4dd8 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0031, t01=0x013c}
0x4dd8…4df2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0031, t01=0x0156}
0x4df2…4e06 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0031, t01=0x0170}
0x4e06…4e18 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0031, t01=0x0184}
0x4e18…4e3c Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0032, t01=0x0008}
0x4e3c…4e54 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0032, t01=0x002c}
0x4e54…4e7a Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0032, t01=0x0044}
0x4e7a…4e90 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0032, t01=0x006a}
0x4e90…4ebe Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0032, t01=0x0080}
0x4ebe…4ed4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0032, t01=0x00ae}
0x4ed4…4efe Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0032, t01=0x00c4}
0x4efe…4f14 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0032, t01=0x00ee}
0x4f14…4f28 Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0032, t01=0x0104}
0x4f28…4f50 Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0032, t01=0x0118}
0x4f50…4f74 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x0140}
0x4f74…4fa8 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0032, t01=0x0164}
0x4fa8…4fcc Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0033, t01=0x0008}
0x4fcc…4fec Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0033, t01=0x002c}
0x4fec…5000 Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0033, t01=0x004c}
0x5000…501c Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0033, t01=0x0060}
0x501c…5032 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0033, t01=0x007c}
0x5032…5056 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0033, t01=0x0092}
0x5056…506e Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0033, t01=0x00b6}
0x506e…509e Head {h00=0x002c, h01=0x0050, text=»ADY420 LD A4,DWTAP,A6 GET CURSOR POINTER«, t00=0x0033, t01=0x00ce}
0x509e…50cc Head {h00=0x002a, h01=0x0050, text=» ST A4,10,A8 POSITION IN CONTROL WORD «, t00=0x0033, t01=0x00fe}
0x50cc…50f0 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0033, t01=0x012c}
0x50f0…5118 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0033, t01=0x0150}
0x5118…5122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0178}
0x5122…5138 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0033, t01=0x0182}
0x5138…5142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0008}
0x5142…5150 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0012}
0x5150…515a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0020}
0x515a…5174 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0034, t01=0x002a}
0x5174…517e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0044}
0x517e…5192 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0034, t01=0x004e}
0x5192…51a6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0034, t01=0x0062}
0x51a6…51d2 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0034, t01=0x0076}
0x51d2…51fc Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0034, t01=0x00a2}
0x51fc…521c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0034, t01=0x00cc}
0x521c…5232 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0034, t01=0x00ec}
0x5232…5244 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0034, t01=0x0102}
0x5244…526e Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0034, t01=0x0114}
0x526e…5280 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0034, t01=0x013e}
0x5280…52a4 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0034, t01=0x0150}
0x52a4…52c6 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0034, t01=0x0174}
0x52c6…52d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0008}
0x52d0…52ec Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0035, t01=0x0012}
0x52ec…52f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002e}
0x52f6…531a Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0035, t01=0x0038}
0x531a…5338 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0035, t01=0x005c}
0x5338…5342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007a}
0x5342…5354 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0035, t01=0x0084}
0x5354…5366 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0035, t01=0x0096}
0x5366…5378 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0035, t01=0x00a8}
0x5378…538a Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0035, t01=0x00ba}
0x538a…539c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0035, t01=0x00cc}
0x539c…53b0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0035, t01=0x00de}
0x53b0…53c4 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0035, t01=0x00f2}
0x53c4…53f4 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0035, t01=0x0106}
0x53f4…541c Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0035, t01=0x0136}
0x541c…5448 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0035, t01=0x015e}
0x5448…545a Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x0035, t01=0x018a}
0x545a…5468 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x000c}
0x5468…5472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001a}
0x5472…548c Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x0036, t01=0x0024}
0x548c…5496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003e}
0x5496…54bc Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x0036, t01=0x0048}
0x54bc…54da Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0036, t01=0x006e}
0x54da…54e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x008c}
0x54e4…54fc Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x0036, t01=0x0096}
0x54fc…550e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x00ae}
0x550e…5520 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0036, t01=0x00c0}
0x5520…5532 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0036, t01=0x00d2}
0x5532…5544 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x0036, t01=0x00e4}
0x5544…5556 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0036, t01=0x00f6}
0x5556…556e Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x0036, t01=0x0108}
0x556e…5584 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x0036, t01=0x0120}
0x5584…559a Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x0036, t01=0x0136}
0x559a…55b2 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x0036, t01=0x014c}
0x55b2…55c8 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x0036, t01=0x0164}
0x55c8…55da Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0036, t01=0x017a}
0x55da…55ec Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x0036, t01=0x018c}
0x55ec…5604 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x0037, t01=0x000e}
0x5604…5616 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0037, t01=0x0026}
0x5616…562a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x0037, t01=0x0038}
0x562a…563c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0037, t01=0x004c}
0x563c…5650 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x0037, t01=0x005e}
0x5650…5662 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x0037, t01=0x0072}
0x5662…566c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x566c…5678 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x008e}
0x5678…5682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x009a}
0x5682…5690 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00a4}
0x5690…569a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b2}
0x569a…56ca Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0037, t01=0x00bc}
0x56ca…56fa Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x0037, t01=0x00ec}
0x56fa…5726 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x0037, t01=0x011c}
0x5726…573a Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0037, t01=0x0148}
0x573a…5766 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x0037, t01=0x015c}
0x5766…579c Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x0037, t01=0x0188}
0x579c…57ae Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0038, t01=0x002e}
0x57ae…57de Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x0038, t01=0x0040}
0x57de…57ee Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0038, t01=0x0070}
0x57ee…57f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0080}
0x57f8…5832 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x0038, t01=0x008a}
0x5832…5866 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x0038, t01=0x00c4}
0x5866…58a8 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x0038, t01=0x00f8}
0x58a8…58b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013a}
0x58b2…58c6 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x0038, t01=0x0144}
0x58c6…58f2 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x0038, t01=0x0158}
0x58f2…5906 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0038, t01=0x0184}
0x5906…593c Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x0039, t01=0x0008}
0x593c…5950 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0039, t01=0x003e}
0x5950…5976 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x0039, t01=0x0052}
0x5976…598c Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x0039, t01=0x0078}
0x598c…59bc Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x0039, t01=0x008e}
0x59bc…59d2 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x0039, t01=0x00be}
0x59d2…59e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00d4}
0x59e0…59ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00e2}
0x59ea…59fe Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x0039, t01=0x00ec}
0x59fe…5a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0100}
0x5a08…5a1e Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x0039, t01=0x010a}
0x5a1e…5a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0120}
0x5a28…5a3a Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x0039, t01=0x012a}
0x5a3a…5a58 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0039, t01=0x013c}
0x5a58…5a6e Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0039, t01=0x015a}
0x5a6e…5a8c Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0039, t01=0x0170}
0x5a8c…5aa2 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x0039, t01=0x018e}
0x5aa2…5ad4 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003a, t01=0x0014}
0x5ad4…5aee Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003a, t01=0x0046}
0x5aee…5b26 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003a, t01=0x0060}
0x5b26…5b34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0098}
0x5b34…5b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a6}
0x5b3e…5b52 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003a, t01=0x00b0}
0x5b52…5b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c4}
0x5b5c…5b88 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003a, t01=0x00ce}
0x5b88…5b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00fa}
0x5b92…5b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0104}
0x5b9c…5bc8 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003a, t01=0x010e}
0x5bc8…5be8 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003a, t01=0x013a}
0x5be8…5bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015a}
0x5bf2…5c08 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003a, t01=0x0164}
0x5c08…5c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x017a}
0x5c12…5c30 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003a, t01=0x0184}
0x5c30…5c48 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003b, t01=0x0012}
0x5c48…5c66 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003b, t01=0x002a}
0x5c66…5c78 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003b, t01=0x0048}
0x5c78…5ca8 Head {h00=0x002c, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x003b, t01=0x005a}
0x5ca8…5cd0 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD«, t00=0x003b, t01=0x008a}
0x5cd0…5ce6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003b, t01=0x00b2}
0x5ce6…5d08 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003b, t01=0x00c8}
0x5d08…5d24 Head {h00=0x0018, h01=0x0050, text=» IFT STEADY-WHATDY=1«, t00=0x003b, t01=0x00ea}
0x5d24…5d4a Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAM «, t00=0x003b, t01=0x0106}
0x5d4a…5d68 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PTS 6386? «, t00=0x003b, t01=0x012c}
0x5d68…5d82 Head {h00=0x0016, h01=0x0050, text=» RF(Z) RCDY05 NO! «, t00=0x003b, t01=0x014a}
0x5d82…5dac Head {h00=0x0026, h01=0x0050, text=» LDK A2,STILL SEND 'CURSOR STEADY'«, t00=0x003b, t01=0x0164}
0x5dac…5dc2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003b, t01=0x018e}
0x5dc2…5dd6 Head {h00=0x0010, h01=0x0050, text=»RCDY05 EQU *«, t00=0x003c, t01=0x0014}
0x5dd6…5de2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0028}
0x5de2…5dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0034}
0x5dec…5e02 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x003c, t01=0x003e}
0x5e02…5e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0054}
0x5e0c…5e32 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x003c, t01=0x005e}
0x5e32…5e58 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x003c, t01=0x0084}
0x5e58…5e70 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x003c, t01=0x00aa}
0x5e70…5ea2 Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x003c, t01=0x00c2}
0x5ea2…5eb8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x00f4}
0x5eb8…5ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x010a}
0x5ec2…5ece Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0114}
0x5ece…5ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0120}
0x5ed8…5ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x012a}
0x5ee6…5efa Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x003c, t01=0x0138}
0x5efa…5f1c Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x003c, t01=0x014c}
0x5f1c…5f32 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x016e}
0x5f32…5f5a Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x003c, t01=0x0184}
0x5f5a…5f70 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x003d, t01=0x001c}
0x5f70…5f96 Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x003d, t01=0x0032}
0x5f96…5fb0 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003d, t01=0x0058}
0x5fb0…5fc6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x003d, t01=0x0072}
0x5fc6…6000 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x003d, t01=0x0088}
0x6000…6022 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x003d, t01=0x00c2}
0x6022…6040 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x003d, t01=0x00e4}
0x6040…6066 Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x003d, t01=0x0102}
0x6066…6080 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x003d, t01=0x0128}
0x6080…608e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0142}
0x608e…6098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0150}
0x6098…60c4 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x003d, t01=0x015a}
0x60c4…60ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0186}
0x60ce…60e2 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x003d, t01=0x0190}
0x60e2…60fe Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x003e, t01=0x0014}
0x60fe…6118 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x003e, t01=0x0030}
0x6118…6144 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x003e, t01=0x004a}
0x6144…6156 Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x003e, t01=0x0076}
0x6156…6180 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x003e, t01=0x0088}
0x6180…6196 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x00b2}
0x6196…61ce Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x003e, t01=0x00c8}
0x61ce…61e2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x0100}
0x61e2…61f8 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x003e, t01=0x0114}
0x61f8…622a Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x003e, t01=0x012a}
0x622a…624e Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x003e, t01=0x015c}
0x624e…6268 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x003e, t01=0x0180}
0x6268…6276 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x000a}
0x6276…6280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0018}
0x6280…6298 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x003f, t01=0x0022}
0x6298…62a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x003a}
0x62a2…62d6 Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x003f, t01=0x0044}
0x62d6…62e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0078}
0x62e0…62f4 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x003f, t01=0x0082}
0x62f4…630c Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x003f, t01=0x0096}
0x630c…6326 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x003f, t01=0x00ae}
0x6326…6348 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x003f, t01=0x00c8}
0x6348…6352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ea}
0x6352…6368 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x003f, t01=0x00f4}
0x6368…6372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x010a}
0x6372…6386 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x003f, t01=0x0114}
0x6386…63ae Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x003f, t01=0x0128}
0x63ae…63c2 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x003f, t01=0x0150}
0x63c2…63cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0164}
0x63cc…63d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x016e}
0x63d8…63e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x017a}
0x63e2…63f4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x003f, t01=0x0184}
0x63f4…6414 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0040, t01=0x0008}
0x6414…6428 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0040, t01=0x0028}
0x6428…6444 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0040, t01=0x003c}
0x6444…646e Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0040, t01=0x0058}
0x646e…649e Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0040, t01=0x0082}
0x649e…64b0 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0040, t01=0x00b2}
0x64b0…64e8 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0040, t01=0x00c4}
0x64e8…6514 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0040, t01=0x00fc}
0x6514…651e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0128}
0x651e…6534 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0040, t01=0x0132}
0x6534…653e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0148}
0x653e…6552 Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0040, t01=0x0152}
0x6552…657e Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0040, t01=0x0166}
0x657e…6592 (65, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0041, t01=0x0004}
0x6592…65b6 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0041, t01=0x0018}
0x65b6…65de Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0041, t01=0x003c}
0x65de…65f8 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0041, t01=0x0064}
0x65f8…660a Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0041, t01=0x007e}
0x660a…6618 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0090}
0x6618…6622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009e}
0x6622…6634 Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0041, t01=0x00a8}
0x6634…663e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00ba}
0x663e…6652 Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0041, t01=0x00c4}
0x6652…667e Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0041, t01=0x00d8}
0x667e…6692 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0041, t01=0x0104}
0x6692…66b6 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0041, t01=0x0118}
0x66b6…66cc Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0041, t01=0x013c}
0x66cc…66f6 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0041, t01=0x0152}
0x66f6…6718 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0041, t01=0x017c}
0x6718…6730 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0042, t01=0x000e}
0x6730…674a Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0042, t01=0x0026}
0x674a…675c Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0042, t01=0x0040}
0x675c…6768 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0052}
0x6768…6796 Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0042, t01=0x005e}
0x6796…67d0 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0042, t01=0x008c}
0x67d0…67f0 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0042, t01=0x00c6}
0x67f0…6812 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0042, t01=0x00e6}
0x6812…6836 Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0042, t01=0x0108}
0x6836…684a Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0042, t01=0x012c}
0x684a…686c Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0042, t01=0x0140}
0x686c…687e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0042, t01=0x0162}
0x687e…68ac Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0042, t01=0x0174}
0x68ac…68be Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0043, t01=0x0012}
0x68be…68cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0024}
0x68cc…68d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0032}
0x68d6…68e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003c}
0x68e0…6914 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0043, t01=0x0046}
0x6914…6948 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0043, t01=0x007a}
0x6948…697c Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0043, t01=0x00ae}
0x697c…699c Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0043, t01=0x00e2}
0x699c…69a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0102}
0x69a6…69ba Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0043, t01=0x010c}
0x69ba…69cc Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0043, t01=0x0120}
0x69cc…69f8 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0043, t01=0x0132}
0x69f8…6a0c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0043, t01=0x015e}
0x6a0c…6a3e Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0043, t01=0x0172}
0x6a3e…6a52 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0044, t01=0x0014}
0x6a52…6a78 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0044, t01=0x0028}
0x6a78…6a92 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x0044, t01=0x004e}
0x6a92…6aba Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0044, t01=0x0068}
0x6aba…6acc Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x0044, t01=0x0090}
0x6acc…6af2 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x0044, t01=0x00a2}
0x6af2…6b0c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0044, t01=0x00c8}
0x6b0c…6b34 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0044, t01=0x00e2}
0x6b34…6b4e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0044, t01=0x010a}
0x6b4e…6b6e Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x0044, t01=0x0124}
0x6b6e…6b8e Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x0044, t01=0x0144}
0x6b8e…6ba0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0044, t01=0x0164}
0x6ba0…6bb6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x0044, t01=0x0176}
0x6bb6…6bd8 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0044, t01=0x018c}
0x6bd8…6c08 Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0045, t01=0x001e}
0x6c08…6c18 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0045, t01=0x004e}
0x6c18…6c26 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x005e}
0x6c26…6c5e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0045, t01=0x006c}
0x6c5e…6c96 Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x0045, t01=0x00a4}
0x6c96…6cce Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x0045, t01=0x00dc}
0x6cce…6d06 Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x0045, t01=0x0114}
0x6d06…6d3e Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x0045, t01=0x014c}
0x6d3e…6d76 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0045, t01=0x0184}
0x6d76…6d8a Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x0046, t01=0x002c}
0x6d8a…6d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0040}
0x6d94…6d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x004a}
0x6d9e…6db2 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x0046, t01=0x0054}
0x6db2…6dd4 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x0046, t01=0x0068}
0x6dd4…6df0 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x0046, t01=0x008a}
0x6df0…6e20 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x0046, t01=0x00a6}
0x6e20…6e4c Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x0046, t01=0x00d6}
0x6e4c…6e6c Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x0046, t01=0x0102}
0x6e6c…6e94 Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x0046, t01=0x0122}
0x6e94…6eb4 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x0046, t01=0x014a}
0x6eb4…6ecc Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x0046, t01=0x016a}
0x6ecc…6ef0 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x0046, t01=0x0182}
0x6ef0…6f18 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x0047, t01=0x0016}
0x6f18…6f30 Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x0047, t01=0x003e}
0x6f30…6f42 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x0047, t01=0x0056}
0x6f42…6f7c Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x0047, t01=0x0068}
0x6f7c…6f96 Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x0047, t01=0x00a2}
0x6f96…6fc0 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0047, t01=0x00bc}
0x6fc0…6fea Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x0047, t01=0x00e6}
0x6fea…701a Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x0047, t01=0x0110}
0x701a…7032 Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x0047, t01=0x0140}
0x7032…7046 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0047, t01=0x0158}
0x7046…706c Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x0047, t01=0x016c}
0x706c…708c (72, 0, 398) Head {h00=0x001c, h01=0x0050, text=» ST A3,10,A8 SAVE INDEX «, t00=0x0048, t01=0x0004}
0x708c…70c0 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x0048, t01=0x0024}
0x70c0…70de Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x0048, t01=0x0058}
0x70de…70f0 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x0048, t01=0x0076}
0x70f0…7104 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x0048, t01=0x0088}
0x7104…7116 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0048, t01=0x009c}
0x7116…7128 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0048, t01=0x00ae}
0x7128…7154 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x0048, t01=0x00c0}
0x7154…7174 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0048, t01=0x00ec}
0x7174…7194 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x0048, t01=0x010c}
0x7194…71b8 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x0048, t01=0x012c}
0x71b8…71ce Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0048, t01=0x0150}
0x71ce…71e4 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0048, t01=0x0166}
0x71e4…71fa Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x0048, t01=0x017c}
0x71fa…7220 (73, 0, 398) Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x0049, t01=0x0004}
0x7220…7234 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0049, t01=0x002a}
0x7234…7260 Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x0049, t01=0x003e}
0x7260…7276 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x0049, t01=0x006a}
0x7276…729c Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0049, t01=0x0080}
0x729c…72c2 Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x0049, t01=0x00a6}
0x72c2…72ec Head {h00=0x0026, h01=0x0050, text=» LD A3,10,A8 RESTORE BUFFER INDEX «, t00=0x0049, t01=0x00cc}
0x72ec…72fe Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0049, t01=0x00f6}
0x72fe…7320 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x0049, t01=0x0108}
0x7320…732a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012a}
0x732a…735c Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x0049, t01=0x0134}
0x735c…7370 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x0049, t01=0x0166}
0x7370…737e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x017a}
0x737e…7388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0188}
0x7388…7392 (74, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0004}
0x7392…73d2 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004a, t01=0x000e}
0x73d2…740a Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x004a, t01=0x004e}
0x740a…7414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0086}
0x7414…7428 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x004a, t01=0x0090}
0x7428…743c Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x004a, t01=0x00a4}
0x743c…746e Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x004a, t01=0x00b8}
0x746e…7482 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x004a, t01=0x00ea}
0x7482…7496 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x004a, t01=0x00fe}
0x7496…74b6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x004a, t01=0x0112}
0x74b6…74d8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x004a, t01=0x0132}
0x74d8…74f2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0154}
0x74f2…7510 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x004a, t01=0x016e}
0x7510…752a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x018c}
0x752a…753c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x004b, t01=0x0016}
0x753c…7556 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004b, t01=0x0028}
0x7556…7566 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0042}
0x7566…7574 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0052}
0x7574…757e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0060}
0x757e…7588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x006a}
0x7588…75b6 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x004b, t01=0x0074}
0x75b6…75f8 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x004b, t01=0x00a2}
0x75f8…7602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e4}
0x7602…7616 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x004b, t01=0x00ee}
0x7616…7634 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x004b, t01=0x0102}
0x7634…7654 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x004b, t01=0x0120}
0x7654…766e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004b, t01=0x0140}
0x766e…768e Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x004b, t01=0x015a}
0x768e…76a0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x004b, t01=0x017a}
0x76a0…76bc Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x004b, t01=0x018c}
0x76bc…76d2 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x004c, t01=0x0018}
0x76d2…76e6 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x004c, t01=0x002e}
0x76e6…76f8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x004c, t01=0x0042}
0x76f8…7722 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x004c, t01=0x0054}
0x7722…7734 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x004c, t01=0x007e}
0x7734…7754 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x004c, t01=0x0090}
0x7754…7768 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x004c, t01=0x00b0}
0x7768…777a Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x004c, t01=0x00c4}
0x777a…778e Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x004c, t01=0x00d6}
0x778e…77ac Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x004c, t01=0x00ea}
0x77ac…77c0 Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x004c, t01=0x0108}
0x77c0…77e4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x004c, t01=0x011c}
0x77e4…77f4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004c, t01=0x0140}
0x77f4…7800 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004c, t01=0x0150}
0x7800…7804 Head {h00=0x4004, h01=0x0000}
0x7804…7808 00 4c 01 5c ┆ L ┆
0x7808…7810 (77, 1, 8) 20 04 00 00 00 4d 00 04 ┆ M ┆
0x7810…7860 (78, 2, 400) 52 45 44 49 54 3d 31 20 00 05 01 8a 00 14 00 50 5c 4c 44 5c 41 34 2c 44 57 54 57 41 54 2c 41 36 00 06 00 10 00 1e 00 50 5c 52 46 28 5a 29 5c 54 41 42 4f 33 30 5c 49 2f 4f 20 4e 4f 54 20 57 41 49 54 00 06 00 28 00 32 00 50 5c 43 46 5c 41 31 ┆REDIT=1 P LD A4,DWTWAT,A6 P RF(Z) TABO30 I/O NOT WAIT ( 2 P CF A1┆
0x7860…78b0 35 2c 46 52 45 42 4c 4b 5c 49 2f 4f 20 41 4e 44 20 41 43 54 49 56 41 54 45 20 46 52 45 45 20 44 49 53 50 20 42 4c 4b 20 00 06 00 4a 00 1e 00 50 5c 43 4d 5c 44 57 54 57 41 54 2c 41 36 5c 53 45 54 20 4e 4f 54 20 57 41 49 54 00 06 00 80 00 10 ┆5,FREBLK I/O AND ACTIVATE FREE DISP BLK J P CM DWTWAT,A6 SET NOT WAIT ┆
0x78b0…7900 00 50 54 41 42 4f 33 30 5c 45 51 55 5c 2a 00 06 00 a2 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 43 30 30 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 00 06 00 b6 00 18 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 41 42 4f 52 54 00 06 00 d8 ┆ PTABO30 EQU * P LDKL A1,/C000 RETURN CODE P CF A15,TENDIO ABORT ┆
0x7900…7950 00 08 00 50 5c 58 49 46 00 06 00 f4 00 30 00 50 5c 41 42 4c 5c 4c 4b 4d 51 44 49 5c 51 55 45 55 45 20 54 41 53 4b 20 41 4e 44 20 47 4f 20 54 4f 20 44 49 53 50 41 54 43 48 45 52 20 00 06 01 00 00 04 00 50 00 06 01 34 00 30 00 50 54 41 42 4f ┆ P XIF 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER P 4 0 PTABO┆
0x7950…79a0 45 52 5c 41 42 4c 5c 4c 4b 4d 52 51 45 5c 47 4f 20 41 4e 44 20 49 4e 44 49 43 41 54 45 20 4c 4b 4d 20 45 52 52 4f 52 20 00 06 01 3c 00 04 00 50 00 06 01 70 00 04 00 50 00 06 01 78 00 08 00 50 5c 45 4e 44 00 06 01 80 40 04 00 00 00 06 01 8c ┆ER ABL LKMRQE GO AND INDICATE LKM ERROR < P p P x P END @ ┆
0x79a0…79a8 (79, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x79a8…79f8 (80, 0, 400) 20 41 36 20 20 44 57 54 20 41 44 44 52 45 53 53 00 57 01 84 00 06 00 50 2a 20 00 58 00 18 00 1e 00 50 2a 20 20 4f 55 54 50 55 54 3a 20 20 20 41 31 20 20 55 4e 43 48 41 4e 47 45 44 00 58 00 22 00 30 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ A6 DWT ADDRESS W P* X P* OUTPUT: A1 UNCHANGED X " 0 P* ┆
0x79f8…7a48 20 41 32 20 20 41 44 44 52 45 53 53 20 54 4f 20 57 4f 52 44 20 49 4e 20 44 57 54 20 41 52 45 41 00 58 00 44 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 33 20 20 55 4e 43 48 41 4e 47 45 44 00 58 00 78 00 1e 00 50 2a 20 20 20 20 20 ┆ A2 ADDRESS TO WORD IN DWT AREA X D P* A3 UNCHANGED X x P* ┆
0x7a48…7a98 20 20 20 20 20 20 20 41 36 20 20 55 4e 43 48 41 4e 47 45 44 00 58 00 9a 00 06 00 50 2a 20 00 58 00 bc 00 10 00 50 53 54 44 57 54 5c 45 51 55 5c 2a 20 00 58 00 c6 00 10 00 50 5c 43 46 5c 41 35 2c 44 53 50 41 44 00 58 00 da 00 0e 00 50 5c 53 ┆ A6 UNCHANGED X P* X PSTDWT EQU * X P CF A5,DSPAD X P S┆
0x7a98…7ae8 54 52 5c 41 33 2c 41 32 00 58 00 ee 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 58 01 00 00 0a 00 50 5c 45 4a 45 43 54 00 58 01 10 00 06 00 50 2a 20 00 58 01 1e 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 58 01 28 00 0e 00 50 2a 20 53 45 54 49 ┆TR A3,A2 X P RTN A5 X P EJECT X P* X P********** X ( P* SETI┆
0x7ae8…7b38 4e 48 20 2a 00 58 01 3a 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 58 01 4c 00 06 00 50 2a 20 00 58 01 5e 00 40 00 50 2a 20 20 46 55 4e 43 54 49 4f 4e 3a 20 20 49 4e 48 49 42 49 54 20 49 4e 54 45 52 52 55 50 54 53 2c 20 49 46 20 46 44 4f ┆NH * X : P********** X L P* X ^ @ P* FUNCTION: INHIBIT INTERRUPTS, IF FDO┆
0x7b38…7b88 (81, 0, 400) 4e 20 52 4f 55 54 49 4e 45 20 49 53 20 41 43 54 49 56 45 20 00 58 01 68 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 45 53 43 41 50 45 20 56 49 41 20 44 49 53 50 41 54 43 48 45 52 20 45 4c 53 45 20 52 45 53 45 54 20 44 57 54 45 4e ┆N ROUTINE IS ACTIVE X h > P* ESCAPE VIA DISPATCHER ELSE RESET DWTEN┆
0x7b88…7bd8 42 20 41 4e 44 20 00 59 00 1c 00 18 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 00 59 00 5e 00 06 00 50 2a 20 00 59 00 7a 00 22 00 50 2a 20 20 49 4e 50 55 54 3a 20 20 20 20 20 41 36 20 20 44 57 54 20 41 44 44 52 45 53 ┆B AND Y P* RETURN Y ^ P* Y z " P* INPUT: A6 DWT ADDRES┆
0x7bd8…7c28 53 20 00 59 00 84 00 06 00 50 2a 20 00 59 00 aa 00 0e 00 50 53 45 54 49 4e 48 5c 49 4e 48 00 59 00 b4 00 18 00 50 5c 4c 44 5c 41 31 2c 44 57 54 41 32 2c 41 36 5c 46 44 4f 4e 00 59 00 c6 00 1c 00 50 5c 52 46 28 5a 29 5c 53 45 54 3a 31 30 5c ┆S Y P* Y PSETINH INH Y P LD A1,DWTA2,A6 FDON Y P RF(Z) SET:10 ┆
0x7c28…7c78 4e 4f 54 20 41 43 54 49 56 45 00 59 00 e2 00 16 00 50 5c 41 42 4c 5c 54 3a 44 49 53 50 5c 45 53 43 41 50 45 00 59 01 02 00 12 00 50 53 45 54 3a 31 30 5c 52 54 4e 5c 41 35 20 00 59 01 1c 00 08 00 50 5c 58 49 46 00 59 01 32 00 06 00 50 2a 20 ┆NOT ACTIVE Y P ABL T:DISP ESCAPE Y PSET:10 RTN A5 Y P XIF Y 2 P* ┆
0x7c78…7cc8 00 59 01 3e 00 22 00 50 2a 20 20 20 20 44 20 52 20 49 20 56 20 45 20 52 20 20 20 42 20 55 20 46 20 46 20 45 20 52 00 59 01 48 00 14 00 50 42 55 46 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 00 59 01 6e 00 06 00 50 2a 20 00 59 01 86 00 0e 00 50 ┆ Y > " P* D R I V E R B U F F E R Y H PBUF DATA 0,0,0,0 Y n P* Y P┆
0x7cc8…7d18 (82, 0, 400) 5c 49 46 54 5c 49 42 4d 3d 31 00 59 01 90 00 0c 00 50 5c 52 45 53 5c 36 30 20 00 5a 00 12 00 08 00 50 5c 58 49 46 00 5a 00 22 00 0a 00 50 5c 45 4a 45 43 54 00 5a 00 2e 00 06 00 50 2a 20 00 5a 00 3c 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ IFT IBM=1 Y P RES 60 Z P XIF Z " P EJECT Z . P* Z < P**********┆
0x7d18…7d68 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5a 00 46 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5a 00 64 00 1a 00 50 2a 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 20 2a 20 00 5a 00 82 00 1a 00 50 ┆*********** Z F P* * Z d P* DEVICE WORK TABLE * Z P┆
0x7d68…7db8 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 5a 00 a0 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 5a 00 be 00 06 00 50 2a 20 00 5a 00 dc 00 10 00 50 44 57 46 44 30 31 5c 45 51 55 ┆* * Z P********************* Z P* Z PDWFD01 EQU┆
0x7db8…7e08 5c 2a 00 5a 00 e6 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5a 00 fa 00 1a 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 44 57 54 20 53 54 41 54 55 53 00 5a 01 0a 00 18 00 50 5c 44 41 54 41 5c 30 5c 45 43 42 2d 41 44 44 52 45 53 53 20 00 5a 01 28 ┆ * Z P DATA 0 Z P DATA /8000 DWT STATUS Z P DATA 0 ECB-ADDRESS Z (┆
0x7e08…7e58 00 12 00 50 5c 44 41 54 41 5c 30 5c 4f 52 44 45 52 20 00 5a 01 44 00 22 00 50 5c 44 41 54 41 5c 46 44 41 44 52 5c 41 43 54 49 56 41 54 49 4f 4e 20 41 44 44 52 45 53 53 00 5a 01 5a 00 18 00 50 5c 44 41 54 41 5c 30 5c 54 54 41 42 2d 41 44 44 ┆ P DATA 0 ORDER Z D " P DATA FDADR ACTIVATION ADDRESS Z Z P DATA 0 TTAB-ADD┆
0x7e58…7ea8 (83, 0, 398) 52 45 53 53 00 5a 01 80 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 5b 00 0c 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 52 4d 49 4e 41 4c 20 51 55 45 55 45 00 5b 00 34 00 0c ┆RESS Z $ P DATA 0 WAIT/ACTIVATE INDICATOR [ P DATA 0 TERMINAL QUEUE [ 4 ┆
0x7ea8…7ef8 00 50 5c 44 41 54 41 5c 30 20 00 5b 00 52 00 16 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 00 5b 00 62 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 00 7c 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 00 8c 00 18 00 50 5c 44 41 54 ┆ P DATA 0 [ R P DATA 0 SAVE AREA [ b P DATA 0 [ | P DATA 0 [ P DAT┆
0x7ef8…7f48 41 5c 30 2c 30 2c 30 2c 30 5c 53 54 41 43 4b 20 00 5b 00 9c 00 28 00 50 44 57 54 53 54 32 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 53 41 56 45 20 53 54 41 54 55 53 20 57 4f 52 44 00 5b 00 b8 00 0c 00 50 5c 44 41 54 41 5c 2d 31 00 5b 00 e4 ┆A 0,0,0,0 STACK [ ( PDWTST2 EQU *-DWFD01 SAVE STATUS WORD [ P DATA -1 [ ┆
0x7f48…7f98 00 2a 00 50 44 57 54 52 54 59 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 52 45 54 52 59 20 52 45 51 55 45 53 54 20 46 4c 41 47 00 5b 00 f4 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 01 22 00 24 00 50 44 57 54 54 50 5c 45 51 55 5c 2a 2d 44 57 ┆ * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG [ P DATA 0 [ " $ PDWTTP EQU *-DW┆
0x7f98…7fe6 46 44 30 31 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 00 5b 01 32 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5b 01 5a 00 28 00 50 44 57 54 52 43 57 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 54 45 4d 50 20 52 45 54 55 52 4e 20 43 4f 44 45 ┆FD01 TIMER POINTER [ 2 P DATA 0 [ Z ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE┆
0x7fe6…8036 (84, 0, 400) 00 5b 01 6a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5c 00 08 00 2c 00 50 44 57 54 4c 41 42 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 44 49 53 43 20 4c 41 42 45 4c 20 49 4e 44 49 43 41 54 4f 52 00 5c 00 18 00 0c 00 50 5c 44 41 54 41 5c 30 20 ┆ [ j P DATA 0 , PDWTLAB EQU *-DWFD01 DISC LABEL INDICATOR P DATA 0 ┆
0x8036…8086 00 5c 00 48 00 2c 00 50 44 57 54 4c 43 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 44 52 49 56 45 20 4c 4f 43 4b 20 49 4e 44 49 43 41 54 4f 52 20 00 5c 00 58 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 5c 00 88 00 28 00 50 44 57 54 56 4f 30 5c 45 ┆ H , PDWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR X P DATA 0 ( PDWTVO0 E┆
0x8086…80d6 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 30 00 5c 00 98 00 10 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 20 00 5c 00 c4 00 28 00 50 44 57 54 56 4f 31 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 ┆QU *-DWFD01 VOLUME NAME NO 0 P DATA 0,0,0 ( PDWTVO1 EQU *-DWFD01 VOLU┆
0x80d6…8126 4d 45 20 4e 41 4d 45 20 4e 4f 20 31 00 5c 00 d8 00 10 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 20 00 5c 01 04 00 28 00 50 44 57 54 56 4f 32 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 32 00 5c 01 18 ┆ME NAME NO 1 P DATA 0,0,0 ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 ┆
0x8126…8176 00 10 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 20 00 5c 01 44 00 28 00 50 44 57 54 56 4f 33 5c 45 51 55 5c 2a 2d 44 57 46 44 30 31 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 4e 4f 20 33 00 5c 01 58 00 10 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 20 ┆ P DATA 0,0,0 D ( PDWTVO3 EQU *-DWFD01 VOLUME NAME NO 3 X P DATA 0,0,0 ┆