|
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: 33154 (0x8182)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/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 X:A * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU X:B * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU X:C * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU X:D * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU X:E EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU X:F * 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…15a4 Head {h00=0x0012, h01=0x0050, text=»GRAFIC EQU X:A«, t00=0x000d, t01=0x0142}
0x15a4…15ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15ae…15ee Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000d, t01=0x0162}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f8…160a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x001c}
0x160a…1620 Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000e, t01=0x002e}
0x1620…162a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x162a…1634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004e}
0x1634…1670 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0058}
0x1670…169a Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x0094}
0x169a…16ac Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00be}
0x16ac…16c2 Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000e, t01=0x00d0}
0x16c2…16cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e6}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d6…1712 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x00fa}
0x1712…174e Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x0136}
0x174e…178a Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x0172}
0x178a…1794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001e}
0x1794…17a6 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0028}
0x17a6…17bc Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000f, t01=0x003a}
0x17bc…17c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0050}
0x17c6…17fa Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x005a}
0x17fa…183e Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x008e}
0x183e…1848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d2}
0x1848…185a Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x00dc}
0x185a…1870 Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:E«, t00=0x000f, t01=0x00ee}
0x1870…187e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0104}
0x187e…1888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0112}
0x1888…18be Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x011c}
0x18be…18de Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x000f, t01=0x0152}
0x18de…18f0 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x0172}
0x18f0…1906 Head {h00=0x0012, h01=0x0050, text=»STEADY EQU X:F«, t00=0x000f, t01=0x0184}
0x1906…1910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x1910…191e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0014}
0x191e…1928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x1928…1932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x1932…1944 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x0036}
0x1944…1956 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0010, t01=0x0048}
0x1956…1968 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0010, t01=0x005a}
0x1968…1972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x1972…197c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x197c…1986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1986…19a6 Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0010, t01=0x008a}
0x19a6…19ca Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0010, t01=0x00aa}
0x19ca…19ee Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0010, t01=0x00ce}
0x19ee…1a12 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0010, t01=0x00f2}
0x1a12…1a44 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0010, t01=0x0116}
0x1a44…1a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a4e…1a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0152}
0x1a58…1a88 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0010, t01=0x015c}
0x1a88…1aa8 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0010, t01=0x018c}
0x1aa8…1ab6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x001c}
0x1ab6…1ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002a}
0x1ac0…1ad4 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0011, t01=0x0034}
0x1ad4…1ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0048}
0x1ade…1b0c Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0011, t01=0x0052}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b16…1b62 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0011, t01=0x008a}
0x1b62…1b98 Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0011, t01=0x00d6}
0x1b98…1ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1ba2…1bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1bac…1bee Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0011, t01=0x0120}
0x1bee…1c28 Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0011, t01=0x0162}
0x1c28…1c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000c}
0x1c32…1c7c Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0012, t01=0x0016}
0x1c7c…1cbc Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0012, t01=0x0060}
0x1cbc…1cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc6…1d16 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0012, t01=0x00aa}
0x1d16…1d64 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0012, t01=0x00fa}
0x1d64…1dae Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0012, t01=0x0148}
0x1dae…1db8 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db8…1dce Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0013, t01=0x000e}
0x1dce…1e14 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0013, t01=0x0024}
0x1e14…1e58 Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0013, t01=0x006a}
0x1e58…1e86 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0013, t01=0x00ae}
0x1e86…1e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e90…1e9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00e6}
0x1e9c…1eda Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0013, t01=0x00f2}
0x1eda…1f1a Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0013, t01=0x0130}
0x1f1a…1f5c Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0013, t01=0x0170}
0x1f5c…1fa0 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0014, t01=0x0022}
0x1fa0…1fc4 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0014, t01=0x0066}
0x1fc4…1fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fce…200e Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0014, t01=0x0094}
0x200e…204e Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0014, t01=0x00d4}
0x204e…2092 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0014, t01=0x0114}
0x2092…20d6 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0014, t01=0x0158}
0x20d6…2114 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0015, t01=0x000c}
0x2114…2142 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0015, t01=0x004a}
0x2142…2154 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0015, t01=0x0078}
0x2154…2178 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0015, t01=0x008a}
0x2178…2192 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0015, t01=0x00ae}
0x2192…21ae Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0015, t01=0x00c8}
0x21ae…21c8 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0015, t01=0x00e4}
0x21c8…21ec Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0015, t01=0x00fe}
0x21ec…2206 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0015, t01=0x0122}
0x2206…221c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0015, t01=0x013c}
0x221c…2242 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0015, t01=0x0152}
0x2242…2266 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0015, t01=0x0178}
0x2266…227e Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0016, t01=0x000c}
0x227e…2294 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x0024}
0x2294…22b0 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0016, t01=0x003a}
0x22b0…22c6 Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0016, t01=0x0056}
0x22c6…22d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x006c}
0x22d2…22e8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0016, t01=0x0078}
0x22e8…231a Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x0016, t01=0x008e}
0x231a…2330 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0016, t01=0x00c0}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x233a…2346 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e0}
0x2346…2350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x2350…2364 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x0016, t01=0x00f6}
0x2364…237e Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x0016, t01=0x010a}
0x237e…2398 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x0016, t01=0x0124}
0x2398…23b4 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x0016, t01=0x013e}
0x23b4…23ce Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x0016, t01=0x015a}
0x23ce…23ea Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x0016, t01=0x0174}
0x23ea…2404 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x0016, t01=0x0190}
0x2404…2426 Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x0017, t01=0x001a}
0x2426…2440 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x0017, t01=0x003c}
0x2440…244a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x244a…2474 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x0017, t01=0x0060}
0x2474…2482 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x008a}
0x2482…24c0 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x0017, t01=0x0098}
0x24c0…24de Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x0017, t01=0x00d6}
0x24de…2512 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x0017, t01=0x00f4}
0x2512…2538 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x0017, t01=0x0128}
0x2538…257e Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x0017, t01=0x014e}
0x257e…25a0 (24, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x0018, t01=0x0004}
0x25a0…25aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0026}
0x25aa…25be Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x0018, t01=0x0030}
0x25be…25e6 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x0018, t01=0x0044}
0x25e6…25fc Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x0018, t01=0x006c}
0x25fc…2620 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0018, t01=0x0082}
0x2620…2646 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x0018, t01=0x00a6}
0x2646…2670 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x0018, t01=0x00cc}
0x2670…2684 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0018, t01=0x00f6}
0x2684…2698 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x0018, t01=0x010a}
0x2698…26c6 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x0018, t01=0x011e}
0x26c6…26dc Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x0018, t01=0x014c}
0x26dc…26f4 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x0018, t01=0x0162}
0x26f4…270a Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x0018, t01=0x017a}
0x270a…272e Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x0018, t01=0x0190}
0x272e…2754 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x0019, t01=0x0024}
0x2754…276a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x0019, t01=0x004a}
0x276a…2796 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x0019, t01=0x0060}
0x2796…279e Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x008c}
0x279e…27a6 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0094}
0x27a6…27ce Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x0019, t01=0x009c}
0x27ce…27e6 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x0019, t01=0x00c4}
0x27e6…281c Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x0019, t01=0x00dc}
0x281c…2858 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x0019, t01=0x0112}
0x2858…2862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014e}
0x2862…2876 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x0019, t01=0x0158}
0x2876…289a Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0019, t01=0x016c}
0x289a…28b2 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x0019, t01=0x0190}
0x28b2…28dc Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001a, t01=0x0018}
0x28dc…28fa Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001a, t01=0x0042}
0x28fa…291e Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001a, t01=0x0060}
0x291e…2934 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001a, t01=0x0084}
0x2934…2960 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001a, t01=0x009a}
0x2960…2978 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001a, t01=0x00c6}
0x2978…29a2 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001a, t01=0x00de}
0x29a2…29b4 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001a, t01=0x0108}
0x29b4…29e0 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001a, t01=0x011a}
0x29e0…29f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001a, t01=0x0146}
0x29f2…2a1c Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001a, t01=0x0158}
0x2a1c…2a2e Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001a, t01=0x0182}
0x2a2e…2a3c (27, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0004}
0x2a3c…2a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0012}
0x2a46…2a70 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001b, t01=0x001c}
0x2a70…2a92 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001b, t01=0x0046}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0068}
0x2a9c…2ab0 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001b, t01=0x0072}
0x2ab0…2ac6 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001b, t01=0x0086}
0x2ac6…2af0 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001b, t01=0x009c}
0x2af0…2b04 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001b, t01=0x00c6}
0x2b04…2b2c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001b, t01=0x00da}
0x2b2c…2b38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0102}
0x2b38…2b4c Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001b, t01=0x010e}
0x2b4c…2b82 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001b, t01=0x0122}
0x2b82…2baa Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001b, t01=0x0158}
0x2baa…2bc4 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001b, t01=0x0180}
0x2bc4…2bd8 Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001c, t01=0x000a}
0x2bd8…2bee Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001c, t01=0x001e}
0x2bee…2c24 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x001c, t01=0x0034}
0x2c24…2c3a Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x001c, t01=0x006a}
0x2c3a…2c66 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x001c, t01=0x0080}
0x2c66…2c92 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x001c, t01=0x00ac}
0x2c92…2cba Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x001c, t01=0x00d8}
0x2cba…2cd2 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x001c, t01=0x0100}
0x2cd2…2cf0 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x001c, t01=0x0118}
0x2cf0…2d0a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x001c, t01=0x0136}
0x2d0a…2d26 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x001c, t01=0x0150}
0x2d26…2d44 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x001c, t01=0x016c}
0x2d44…2d5e Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x001c, t01=0x018a}
0x2d5e…2d7e Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x001d, t01=0x0014}
0x2d7e…2d9a Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x001d, t01=0x0034}
0x2d9a…2db2 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x001d, t01=0x0050}
0x2db2…2dd0 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x001d, t01=0x0068}
0x2dd0…2dee Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x001d, t01=0x0086}
0x2dee…2e16 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x001d, t01=0x00a4}
0x2e16…2e30 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x001d, t01=0x00cc}
0x2e30…2e4a Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x001d, t01=0x00e6}
0x2e4a…2e64 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x001d, t01=0x0100}
0x2e64…2e80 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x001d, t01=0x011a}
0x2e80…2eac Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x001d, t01=0x0136}
0x2eac…2ec0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x001d, t01=0x0162}
0x2ec0…2ee6 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x001d, t01=0x0176}
0x2ee6…2f0a Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x001e, t01=0x000c}
0x2f0a…2f2c Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x001e, t01=0x0030}
0x2f2c…2f46 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x001e, t01=0x0052}
0x2f46…2f66 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x001e, t01=0x006c}
0x2f66…2f80 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x001e, t01=0x008c}
0x2f80…2f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a6}
0x2f8a…2fb0 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x001e, t01=0x00b0}
0x2fb0…2fbc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00d6}
0x2fbc…2fd4 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x001e, t01=0x00e2}
0x2fd4…300e Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x001e, t01=0x00fa}
0x300e…3030 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x001e, t01=0x0134}
0x3030…3048 Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x001e, t01=0x0156}
0x3048…3062 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x001e, t01=0x016e}
0x3062…3078 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x001e, t01=0x0188}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x001f, t01=0x000e}
0x308c…30b0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x001f, t01=0x0022}
0x30b0…30d6 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x001f, t01=0x0046}
0x30d6…30ec Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x001f, t01=0x006c}
0x30ec…3102 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x001f, t01=0x0082}
0x3102…3128 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x001f, t01=0x0098}
0x3128…314c Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x001f, t01=0x00be}
0x314c…3164 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x001f, t01=0x00e2}
0x3164…3186 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x001f, t01=0x00fa}
0x3186…31b4 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x001f, t01=0x011c}
0x31b4…31ca Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x001f, t01=0x014a}
0x31ca…31f0 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x001f, t01=0x0160}
0x31f0…320a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x001f, t01=0x0186}
0x320a…321e Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0020, t01=0x0010}
0x321e…324e Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0020, t01=0x0024}
0x324e…3260 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0020, t01=0x0054}
0x3260…3272 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0020, t01=0x0066}
0x3272…329a Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0020, t01=0x0078}
0x329a…32b0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0020, t01=0x00a0}
0x32b0…32d6 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0020, t01=0x00b6}
0x32d6…32e8 Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0020, t01=0x00dc}
0x32e8…3312 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0020, t01=0x00ee}
0x3312…3324 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0020, t01=0x0118}
0x3324…333e Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0020, t01=0x012a}
0x333e…3350 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0020, t01=0x0144}
0x3350…337c Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0020, t01=0x0156}
0x337c…338e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0020, t01=0x0182}
0x338e…33a0 (33, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0021, t01=0x0004}
0x33a0…33be Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0021, t01=0x0016}
0x33be…33e0 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0021, t01=0x0034}
0x33e0…33fa Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0021, t01=0x0056}
0x33fa…3404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0070}
0x3404…341a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0021, t01=0x007a}
0x341a…3444 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0021, t01=0x0090}
0x3444…3458 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0021, t01=0x00ba}
0x3458…348e Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0021, t01=0x00ce}
0x348e…349a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0104}
0x349a…34b0 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0021, t01=0x0110}
0x34b0…34c6 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0021, t01=0x0126}
0x34c6…34da Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0021, t01=0x013c}
0x34da…34f8 Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0021, t01=0x0150}
0x34f8…3516 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0021, t01=0x016e}
0x3516…352a Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0021, t01=0x018c}
0x352a…353e Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0022, t01=0x0010}
0x353e…3558 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0022, t01=0x0024}
0x3558…357a Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0022, t01=0x003e}
0x357a…359c Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0022, t01=0x0060}
0x359c…35c0 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0022, t01=0x0082}
0x35c0…35d6 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0022, t01=0x00a6}
0x35d6…35f8 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0022, t01=0x00bc}
0x35f8…361e Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0022, t01=0x00de}
0x361e…3642 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0022, t01=0x0104}
0x3642…3658 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0022, t01=0x0128}
0x3658…366e Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0022, t01=0x013e}
0x366e…36a8 Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0022, t01=0x0154}
0x36a8…36d2 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0022, t01=0x018e}
0x36d2…36de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0028}
0x36de…36f0 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0023, t01=0x0034}
0x36f0…36fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x36fa…3704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x3704…371a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0023, t01=0x005a}
0x371a…372e Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0023, t01=0x0070}
0x372e…374e Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0023, t01=0x0084}
0x374e…3762 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0023, t01=0x00a4}
0x3762…377a Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0023, t01=0x00b8}
0x377a…3790 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0023, t01=0x00d0}
0x3790…37b0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0023, t01=0x00e6}
0x37b0…37c8 Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0023, t01=0x0106}
0x37c8…37ec Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0023, t01=0x011e}
0x37ec…3800 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0023, t01=0x0142}
0x3800…3828 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0023, t01=0x0156}
0x3828…3850 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0023, t01=0x017e}
0x3850…3864 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0024, t01=0x0016}
0x3864…3884 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0024, t01=0x002a}
0x3884…389e Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0024, t01=0x004a}
0x389e…38be Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0024, t01=0x0064}
0x38be…38d0 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0024, t01=0x0084}
0x38d0…38f0 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0024, t01=0x0096}
0x38f0…3924 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0024, t01=0x00b6}
0x3924…3938 Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0024, t01=0x00ea}
0x3938…3962 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0024, t01=0x00fe}
0x3962…397a Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0024, t01=0x0128}
0x397a…39a2 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0024, t01=0x0140}
0x39a2…39c6 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0024, t01=0x0168}
0x39c6…39da Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0024, t01=0x018c}
0x39da…39fe Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0025, t01=0x0010}
0x39fe…3a1a Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0025, t01=0x0034}
0x3a1a…3a3e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0025, t01=0x0050}
0x3a3e…3a60 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0025, t01=0x0074}
0x3a60…3a74 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0025, t01=0x0096}
0x3a74…3a86 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0025, t01=0x00aa}
0x3a86…3a92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00bc}
0x3a92…3aa0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00c8}
0x3aa0…3aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3aaa…3ac8 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0025, t01=0x00e0}
0x3ac8…3ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fe}
0x3ad2…3ae6 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0025, t01=0x0108}
0x3ae6…3afc Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0025, t01=0x011c}
0x3afc…3b1c Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0025, t01=0x0132}
0x3b1c…3b2e Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0025, t01=0x0152}
0x3b2e…3b3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0164}
0x3b3c…3b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b46…3b5e Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0025, t01=0x017c}
0x3b5e…3b68 (38, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0004}
0x3b68…3b7c Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0026, t01=0x000e}
0x3b7c…3bac Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0026, t01=0x0022}
0x3bac…3bbe Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0026, t01=0x0052}
0x3bbe…3bf0 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0026, t01=0x0064}
0x3bf0…3c02 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0026, t01=0x0096}
0x3c02…3c14 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0026, t01=0x00a8}
0x3c14…3c2a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x0026, t01=0x00ba}
0x3c2a…3c5e Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x0026, t01=0x00d0}
0x3c5e…3c70 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0026, t01=0x0104}
0x3c70…3c86 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x0026, t01=0x0116}
0x3c86…3ca6 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x0026, t01=0x012c}
0x3ca6…3cd8 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x0026, t01=0x014c}
0x3cd8…3cf0 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x0026, t01=0x017e}
0x3cf0…3d20 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x0027, t01=0x0008}
0x3d20…3d4a Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x0027, t01=0x0038}
0x3d4a…3d60 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x0027, t01=0x0062}
0x3d60…3d72 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0027, t01=0x0078}
0x3d72…3d9c Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x0027, t01=0x008a}
0x3d9c…3db8 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x0027, t01=0x00b4}
0x3db8…3de8 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0027, t01=0x00d0}
0x3de8…3e02 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x0027, t01=0x0100}
0x3e02…3e1c Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x0027, t01=0x011a}
0x3e1c…3e30 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x0027, t01=0x0134}
0x3e30…3e3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0148}
0x3e3e…3e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0156}
0x3e48…3e66 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x0027, t01=0x0160}
0x3e66…3e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e70…3ea6 Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x0027, t01=0x0188}
0x3ea6…3ebc Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0028, t01=0x002e}
0x3ebc…3ee2 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0028, t01=0x0044}
0x3ee2…3f06 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x0028, t01=0x006a}
0x3f06…3f20 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY170 YES«, t00=0x0028, t01=0x008e}
0x3f20…3f2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00a8}
0x3f2c…3f40 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0028, t01=0x00b4}
0x3f40…3f62 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0028, t01=0x00c8}
0x3f62…3f7c Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x0028, t01=0x00ea}
0x3f7c…3f92 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0028, t01=0x0104}
0x3f92…3fb4 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x0028, t01=0x011a}
0x3fb4…3fca Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0028, t01=0x013c}
0x3fca…3fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0152}
0x3fd4…3ffc Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x0028, t01=0x015c}
0x3ffc…401e Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x0028, t01=0x0184}
0x401e…404c Head {h00=0x002a, h01=0x0050, text=» CWK A4,/24 REQ LENGTH > 36 **********«, t00=0x0029, t01=0x0016}
0x404c…407a Head {h00=0x002a, h01=0x0050, text=» RB(G) ADY170 YES EV 781205 **********«, t00=0x0029, t01=0x0044}
0x407a…4094 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x0029, t01=0x0072}
0x4094…40b2 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0029, t01=0x008c}
0x40b2…40c4 Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x0029, t01=0x00aa}
0x40c4…40de Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x0029, t01=0x00bc}
0x40de…40f6 Head {h00=0x0014, h01=0x0050, text=» AD A4,DWTAP,A6 «, t00=0x0029, t01=0x00d6}
0x40f6…410a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0029, t01=0x00ee}
0x410a…4122 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTPOS,A6«, t00=0x0029, t01=0x0102}
0x4122…4136 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0029, t01=0x011a}
0x4136…4148 Head {h00=0x000e, h01=0x0050, text=» CWR A4,A3«, t00=0x0029, t01=0x012e}
0x4148…415e Head {h00=0x0012, h01=0x0050, text=» RF(NL) ADY190«, t00=0x0029, t01=0x0140}
0x415e…4178 Head {h00=0x0016, h01=0x0050, text=»ADY185 LD A3,10,A8«, t00=0x0029, t01=0x0156}
0x4178…418c Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x0029, t01=0x0170}
0x418c…419e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0029, t01=0x0184}
0x419e…41ce Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002a, t01=0x0008}
0x41ce…41f0 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002a, t01=0x0038}
0x41f0…420e Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002a, t01=0x005a}
0x420e…4226 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002a, t01=0x0078}
0x4226…423a Head {h00=0x0010, h01=0x0050, text=»ADY190 EQU *«, t00=0x002a, t01=0x0090}
0x423a…4252 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTAP,A6 «, t00=0x002a, t01=0x00a4}
0x4252…4266 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x002a, t01=0x00bc}
0x4266…4278 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x002a, t01=0x00d0}
0x4278…428a Head {h00=0x000e, h01=0x0050, text=» RB ADY186«, t00=0x002a, t01=0x00e2}
0x428a…4296 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00f4}
0x4296…42a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0100}
0x42a4…42ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010e}
0x42ae…42dc Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002a, t01=0x0118}
0x42dc…42e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0146}
0x42e6…42fa Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002a, t01=0x0150}
0x42fa…4304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0164}
0x4304…431a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002a, t01=0x016e}
0x431a…4340 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002a, t01=0x0184}
0x4340…4364 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002b, t01=0x001a}
0x4364…437e Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002b, t01=0x003e}
0x437e…43b4 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002b, t01=0x0058}
0x43b4…43c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x008e}
0x43c0…43ee Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002b, t01=0x009a}
0x43ee…4420 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002b, t01=0x00c8}
0x4420…4440 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002b, t01=0x00fa}
0x4440…4452 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002b, t01=0x011a}
0x4452…4468 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002b, t01=0x012c}
0x4468…447e Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002b, t01=0x0142}
0x447e…44ac Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002b, t01=0x0158}
0x44ac…44d4 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002b, t01=0x0186}
0x44d4…44ee Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002c, t01=0x001e}
0x44ee…4526 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002c, t01=0x0038}
0x4526…453a Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x002c, t01=0x0070}
0x453a…4562 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x002c, t01=0x0084}
0x4562…457a Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x002c, t01=0x00ac}
0x457a…45ac Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x002c, t01=0x00c4}
0x45ac…45cc Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x002c, t01=0x00f6}
0x45cc…45e8 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x002c, t01=0x0116}
0x45e8…4616 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x002c, t01=0x0132}
0x4616…4636 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x002c, t01=0x0160}
0x4636…4658 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x002c, t01=0x0180}
0x4658…467e Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x002d, t01=0x0012}
0x467e…4690 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x002d, t01=0x0038}
0x4690…46a2 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x002d, t01=0x004a}
0x46a2…46c2 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x002d, t01=0x005c}
0x46c2…46ec Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x002d, t01=0x007c}
0x46ec…4712 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x002d, t01=0x00a6}
0x4712…4724 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x002d, t01=0x00cc}
0x4724…472e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00de}
0x472e…4748 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x002d, t01=0x00e8}
0x4748…4752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0102}
0x4752…4788 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x002d, t01=0x010c}
0x4788…47b4 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x002d, t01=0x0142}
0x47b4…47dc Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x002d, t01=0x016e}
0x47dc…47f6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x002e, t01=0x0008}
0x47f6…481c Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x002e, t01=0x0022}
0x481c…4830 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x002e, t01=0x0048}
0x4830…4852 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x002e, t01=0x005c}
0x4852…486c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x002e, t01=0x007e}
0x486c…488c Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x002e, t01=0x0098}
0x488c…48a6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x002e, t01=0x00b8}
0x48a6…48ca Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x002e, t01=0x00d2}
0x48ca…48dc Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x002e, t01=0x00f6}
0x48dc…490a Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x002e, t01=0x0108}
0x490a…491c Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x002e, t01=0x0136}
0x491c…4950 Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x002e, t01=0x0148}
0x4950…4972 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x002e, t01=0x017c}
0x4972…498c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x002f, t01=0x000e}
0x498c…499e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002f, t01=0x0028}
0x499e…49cc Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x002f, t01=0x003a}
0x49cc…49f0 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x002f, t01=0x0068}
0x49f0…4a0a Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x002f, t01=0x008c}
0x4a0a…4a2e Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x002f, t01=0x00a6}
0x4a2e…4a58 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x002f, t01=0x00ca}
0x4a58…4a78 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x002f, t01=0x00f4}
0x4a78…4a8a Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x002f, t01=0x0114}
0x4a8a…4abc Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x002f, t01=0x0126}
0x4abc…4aec Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x002f, t01=0x0158}
0x4aec…4b10 Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x002f, t01=0x0188}
0x4b10…4b32 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0030, t01=0x001c}
0x4b32…4b5c Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0030, t01=0x003e}
0x4b5c…4b6e Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0030, t01=0x0068}
0x4b6e…4b94 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0030, t01=0x007a}
0x4b94…4bae Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0030, t01=0x00a0}
0x4bae…4bd0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0030, t01=0x00ba}
0x4bd0…4be6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0030, t01=0x00dc}
0x4be6…4c22 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0030, t01=0x00f2}
0x4c22…4c2e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x012e}
0x4c2e…4c58 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0030, t01=0x013a}
0x4c58…4c6c Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0030, t01=0x0164}
0x4c6c…4c82 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0030, t01=0x0178}
0x4c82…4c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018e}
0x4c8c…4cb6 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0031, t01=0x0008}
0x4cb6…4ccc Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0031, t01=0x0032}
0x4ccc…4cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0048}
0x4cd6…4ce2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0052}
0x4ce2…4cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005e}
0x4cec…4cfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0068}
0x4cfa…4d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0076}
0x4d04…4d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0080}
0x4d0e…4d4a Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0031, t01=0x008a}
0x4d4a…4d82 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0031, t01=0x00c6}
0x4d82…4d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00fe}
0x4d8c…4da0 Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0031, t01=0x0108}
0x4da0…4dca Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0031, t01=0x011c}
0x4dca…4de4 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0031, t01=0x0146}
0x4de4…4dfe Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0031, t01=0x0160}
0x4dfe…4e12 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0031, t01=0x017a}
0x4e12…4e24 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0031, t01=0x018e}
0x4e24…4e48 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0032, t01=0x0010}
0x4e48…4e60 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0032, t01=0x0034}
0x4e60…4e86 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0032, t01=0x004c}
0x4e86…4e9c Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0032, t01=0x0072}
0x4e9c…4eca Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0032, t01=0x0088}
0x4eca…4ee0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0032, t01=0x00b6}
0x4ee0…4f0a Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0032, t01=0x00cc}
0x4f0a…4f20 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0032, t01=0x00f6}
0x4f20…4f34 Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0032, t01=0x010c}
0x4f34…4f5c Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0032, t01=0x0120}
0x4f5c…4f80 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0032, t01=0x0148}
0x4f80…4fb4 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0032, t01=0x016c}
0x4fb4…4fd8 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0033, t01=0x0010}
0x4fd8…4ff8 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0033, t01=0x0034}
0x4ff8…500c Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0033, t01=0x0054}
0x500c…5028 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0033, t01=0x0068}
0x5028…503e Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0033, t01=0x0084}
0x503e…5062 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0033, t01=0x009a}
0x5062…507a Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0033, t01=0x00be}
0x507a…50aa Head {h00=0x002c, h01=0x0050, text=»ADY420 LD A4,DWTAP,A6 GET CURSOR POINTER«, t00=0x0033, t01=0x00d6}
0x50aa…50d8 Head {h00=0x002a, h01=0x0050, text=» ST A4,10,A8 POSITION IN CONTROL WORD «, t00=0x0033, t01=0x0106}
0x50d8…50fc Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0033, t01=0x0134}
0x50fc…5124 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0033, t01=0x0158}
0x5124…512e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0180}
0x512e…5144 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0033, t01=0x018a}
0x5144…514e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0010}
0x514e…515c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x001a}
0x515c…5166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0028}
0x5166…5180 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0034, t01=0x0032}
0x5180…518a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x004c}
0x518a…519e Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0034, t01=0x0056}
0x519e…51b2 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0034, t01=0x006a}
0x51b2…51de Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0034, t01=0x007e}
0x51de…5208 Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0034, t01=0x00aa}
0x5208…5228 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0034, t01=0x00d4}
0x5228…523e Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0034, t01=0x00f4}
0x523e…5250 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0034, t01=0x010a}
0x5250…527a Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0034, t01=0x011c}
0x527a…528c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0034, t01=0x0146}
0x528c…52b0 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0034, t01=0x0158}
0x52b0…52d2 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0034, t01=0x017c}
0x52d2…52dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x000e}
0x52dc…52f8 Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0035, t01=0x0018}
0x52f8…5302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0034}
0x5302…5326 Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0035, t01=0x003e}
0x5326…5344 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0035, t01=0x0062}
0x5344…534e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0080}
0x534e…5360 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0035, t01=0x008a}
0x5360…5372 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0035, t01=0x009c}
0x5372…5384 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0035, t01=0x00ae}
0x5384…5396 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0035, t01=0x00c0}
0x5396…53a8 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0035, t01=0x00d2}
0x53a8…53bc Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0035, t01=0x00e4}
0x53bc…53d0 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0035, t01=0x00f8}
0x53d0…5400 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0035, t01=0x010c}
0x5400…5428 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0035, t01=0x013c}
0x5428…5454 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0035, t01=0x0164}
0x5454…5466 Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x0035, t01=0x0190}
0x5466…5474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0012}
0x5474…547e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0020}
0x547e…5498 Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x0036, t01=0x002a}
0x5498…54a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0044}
0x54a2…54c8 Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x0036, t01=0x004e}
0x54c8…54e6 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0036, t01=0x0074}
0x54e6…54f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0092}
0x54f0…5508 Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x0036, t01=0x009c}
0x5508…551a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0036, t01=0x00b4}
0x551a…552c Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0036, t01=0x00c6}
0x552c…553e Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0036, t01=0x00d8}
0x553e…5550 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x0036, t01=0x00ea}
0x5550…5562 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0036, t01=0x00fc}
0x5562…557a Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x0036, t01=0x010e}
0x557a…5590 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x0036, t01=0x0126}
0x5590…55a6 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x0036, t01=0x013c}
0x55a6…55be Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x0036, t01=0x0152}
0x55be…55d4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x0036, t01=0x016a}
0x55d4…55e6 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0036, t01=0x0180}
0x55e6…55f8 (55, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x0037, t01=0x0004}
0x55f8…5610 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x0037, t01=0x0016}
0x5610…5622 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0037, t01=0x002e}
0x5622…5636 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x0037, t01=0x0040}
0x5636…5648 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0037, t01=0x0054}
0x5648…565c Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x0037, t01=0x0066}
0x565c…566e Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x0037, t01=0x007a}
0x566e…5678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008c}
0x5678…5684 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0096}
0x5684…568e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a2}
0x568e…569c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00ac}
0x569c…56a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ba}
0x56a6…56d6 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x0037, t01=0x00c4}
0x56d6…5706 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x0037, t01=0x00f4}
0x5706…5732 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x0037, t01=0x0124}
0x5732…5746 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x0037, t01=0x0150}
0x5746…5772 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x0037, t01=0x0164}
0x5772…57a8 Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x0037, t01=0x0190}
0x57a8…57ba Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0038, t01=0x0036}
0x57ba…57ea Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x0038, t01=0x0048}
0x57ea…57fa Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0038, t01=0x0078}
0x57fa…5804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0088}
0x5804…583e Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x0038, t01=0x0092}
0x583e…5872 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x0038, t01=0x00cc}
0x5872…58b4 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x0038, t01=0x0100}
0x58b4…58be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0142}
0x58be…58d2 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x0038, t01=0x014c}
0x58d2…58fe Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x0038, t01=0x0160}
0x58fe…5912 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0038, t01=0x018c}
0x5912…5948 Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x0039, t01=0x0010}
0x5948…595c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0039, t01=0x0046}
0x595c…5982 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x0039, t01=0x005a}
0x5982…5998 Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x0039, t01=0x0080}
0x5998…59c8 Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x0039, t01=0x0096}
0x59c8…59de Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x0039, t01=0x00c6}
0x59de…59ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00dc}
0x59ec…59f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ea}
0x59f6…5a0a Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x0039, t01=0x00f4}
0x5a0a…5a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0108}
0x5a14…5a2a Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x0039, t01=0x0112}
0x5a2a…5a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0128}
0x5a34…5a46 Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x0039, t01=0x0132}
0x5a46…5a64 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x0039, t01=0x0144}
0x5a64…5a7a Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0039, t01=0x0162}
0x5a7a…5a98 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x0039, t01=0x0178}
0x5a98…5aae Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003a, t01=0x0008}
0x5aae…5ae0 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003a, t01=0x001e}
0x5ae0…5afa Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003a, t01=0x0050}
0x5afa…5b32 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003a, t01=0x006a}
0x5b32…5b40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00a2}
0x5b40…5b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b0}
0x5b4a…5b5e Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003a, t01=0x00ba}
0x5b5e…5b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ce}
0x5b68…5b94 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003a, t01=0x00d8}
0x5b94…5b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0104}
0x5b9e…5ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010e}
0x5ba8…5bd4 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003a, t01=0x0118}
0x5bd4…5bf4 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003a, t01=0x0144}
0x5bf4…5bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0164}
0x5bfe…5c14 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003a, t01=0x016e}
0x5c14…5c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0184}
0x5c1e…5c3c Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003a, t01=0x018e}
0x5c3c…5c54 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003b, t01=0x001c}
0x5c54…5c72 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003b, t01=0x0034}
0x5c72…5c84 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003b, t01=0x0052}
0x5c84…5cb4 Head {h00=0x002c, h01=0x0050, text=» CF A15,SAVE8 SAVE 8 REGISTERS ON STACK «, t00=0x003b, t01=0x0064}
0x5cb4…5cdc Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD«, t00=0x003b, t01=0x0094}
0x5cdc…5cf2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003b, t01=0x00bc}
0x5cf2…5d14 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003b, t01=0x00d2}
0x5d14…5d30 Head {h00=0x0018, h01=0x0050, text=» IFT STEADY-WHATDY=1«, t00=0x003b, t01=0x00f4}
0x5d30…5d56 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAM «, t00=0x003b, t01=0x0110}
0x5d56…5d74 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/20 PTS 6386? «, t00=0x003b, t01=0x0136}
0x5d74…5d8e Head {h00=0x0016, h01=0x0050, text=» RF(Z) RCDY05 NO! «, t00=0x003b, t01=0x0154}
0x5d8e…5db8 Head {h00=0x0026, h01=0x0050, text=» LDK A2,STILL SEND 'CURSOR STEADY'«, t00=0x003b, t01=0x016e}
0x5db8…5dce Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x0008}
0x5dce…5de2 Head {h00=0x0010, h01=0x0050, text=»RCDY05 EQU *«, t00=0x003c, t01=0x001e}
0x5de2…5dee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0032}
0x5dee…5df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003e}
0x5df8…5e0e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x003c, t01=0x0048}
0x5e0e…5e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005e}
0x5e18…5e3e Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x003c, t01=0x0068}
0x5e3e…5e64 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x003c, t01=0x008e}
0x5e64…5e7c Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x003c, t01=0x00b4}
0x5e7c…5eae Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x003c, t01=0x00cc}
0x5eae…5ec4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x00fe}
0x5ec4…5ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0114}
0x5ece…5eda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x011e}
0x5eda…5ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012a}
0x5ee4…5ef2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0134}
0x5ef2…5f06 Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x003c, t01=0x0142}
0x5f06…5f28 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x003c, t01=0x0156}
0x5f28…5f3e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003c, t01=0x0178}
0x5f3e…5f66 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x003c, t01=0x018e}
0x5f66…5f7c Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x003d, t01=0x0026}
0x5f7c…5fa2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x003d, t01=0x003c}
0x5fa2…5fbc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x003d, t01=0x0062}
0x5fbc…5fd2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x003d, t01=0x007c}
0x5fd2…600c Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x003d, t01=0x0092}
0x600c…602e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x003d, t01=0x00cc}
0x602e…604c Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x003d, t01=0x00ee}
0x604c…6072 Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x003d, t01=0x010c}
0x6072…608c Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x003d, t01=0x0132}
0x608c…609a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x014c}
0x609a…60a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x015a}
0x60a4…60d0 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x003d, t01=0x0164}
0x60d0…60da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0190}
0x60da…60ee Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x003e, t01=0x000a}
0x60ee…610a Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x003e, t01=0x001e}
0x610a…6124 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x003e, t01=0x003a}
0x6124…6150 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x003e, t01=0x0054}
0x6150…6162 Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x003e, t01=0x0080}
0x6162…618c Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x003e, t01=0x0092}
0x618c…61a2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x003e, t01=0x00bc}
0x61a2…61da Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x003e, t01=0x00d2}
0x61da…61ee Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003e, t01=0x010a}
0x61ee…6204 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x003e, t01=0x011e}
0x6204…6236 Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x003e, t01=0x0134}
0x6236…625a Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x003e, t01=0x0166}
0x625a…6274 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x003e, t01=0x018a}
0x6274…6282 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0014}
0x6282…628c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0022}
0x628c…62a4 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x003f, t01=0x002c}
0x62a4…62ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0044}
0x62ae…62e2 Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x003f, t01=0x004e}
0x62e2…62ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0082}
0x62ec…6300 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x003f, t01=0x008c}
0x6300…6318 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x003f, t01=0x00a0}
0x6318…6332 Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x003f, t01=0x00b8}
0x6332…6354 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x003f, t01=0x00d2}
0x6354…635e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f4}
0x635e…6374 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x003f, t01=0x00fe}
0x6374…637e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0114}
0x637e…6392 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x003f, t01=0x011e}
0x6392…63ba Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x003f, t01=0x0132}
0x63ba…63ce Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x003f, t01=0x015a}
0x63ce…63d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x016e}
0x63d8…63e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0178}
0x63e4…63ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0184}
0x63ee…6400 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x003f, t01=0x018e}
0x6400…6420 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0040, t01=0x0010}
0x6420…6434 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0040, t01=0x0030}
0x6434…6450 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0040, t01=0x0044}
0x6450…647a Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0040, t01=0x0060}
0x647a…64aa Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0040, t01=0x008a}
0x64aa…64bc Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0040, t01=0x00ba}
0x64bc…64f4 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0040, t01=0x00cc}
0x64f4…6520 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0040, t01=0x0104}
0x6520…652a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0130}
0x652a…6540 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0040, t01=0x013a}
0x6540…654a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0150}
0x654a…655e Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0040, t01=0x015a}
0x655e…658a Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0040, t01=0x016e}
0x658a…659e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0041, t01=0x000a}
0x659e…65c2 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0041, t01=0x001e}
0x65c2…65ea Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0041, t01=0x0042}
0x65ea…6604 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0041, t01=0x006a}
0x6604…6616 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0041, t01=0x0084}
0x6616…6624 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0096}
0x6624…662e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a4}
0x662e…6640 Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0041, t01=0x00ae}
0x6640…664a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c0}
0x664a…665e Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0041, t01=0x00ca}
0x665e…668a Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0041, t01=0x00de}
0x668a…669e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0041, t01=0x010a}
0x669e…66c2 Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0041, t01=0x011e}
0x66c2…66d8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0041, t01=0x0142}
0x66d8…6702 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0041, t01=0x0158}
0x6702…6724 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0041, t01=0x0182}
0x6724…673c Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0042, t01=0x0014}
0x673c…6756 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0042, t01=0x002c}
0x6756…6768 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0042, t01=0x0046}
0x6768…6774 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0058}
0x6774…67a2 Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0042, t01=0x0064}
0x67a2…67dc Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0042, t01=0x0092}
0x67dc…67fc Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0042, t01=0x00cc}
0x67fc…681e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0042, t01=0x00ec}
0x681e…6842 Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0042, t01=0x010e}
0x6842…6856 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0042, t01=0x0132}
0x6856…6878 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0042, t01=0x0146}
0x6878…688a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0042, t01=0x0168}
0x688a…68b8 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0042, t01=0x017a}
0x68b8…68ca Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0043, t01=0x0018}
0x68ca…68d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x002a}
0x68d8…68e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0038}
0x68e2…68ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0042}
0x68ec…6920 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0043, t01=0x004c}
0x6920…6954 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0043, t01=0x0080}
0x6954…6988 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0043, t01=0x00b4}
0x6988…69a8 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0043, t01=0x00e8}
0x69a8…69b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0108}
0x69b2…69c6 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0043, t01=0x0112}
0x69c6…69d8 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0043, t01=0x0126}
0x69d8…6a04 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0043, t01=0x0138}
0x6a04…6a18 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0043, t01=0x0164}
0x6a18…6a4a Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0043, t01=0x0178}
0x6a4a…6a5e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0044, t01=0x001a}
0x6a5e…6a84 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0044, t01=0x002e}
0x6a84…6a9e Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x0044, t01=0x0054}
0x6a9e…6ac6 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0044, t01=0x006e}
0x6ac6…6ad8 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x0044, t01=0x0096}
0x6ad8…6afe Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x0044, t01=0x00a8}
0x6afe…6b18 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0044, t01=0x00ce}
0x6b18…6b40 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0044, t01=0x00e8}
0x6b40…6b5a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0044, t01=0x0110}
0x6b5a…6b7a Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x0044, t01=0x012a}
0x6b7a…6b9a Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x0044, t01=0x014a}
0x6b9a…6bac Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0044, t01=0x016a}
0x6bac…6bc2 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x0044, t01=0x017c}
0x6bc2…6be4 (69, 0, 400) Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0045, t01=0x0004}
0x6be4…6c14 Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x0045, t01=0x0026}
0x6c14…6c24 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0045, t01=0x0056}
0x6c24…6c32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0066}
0x6c32…6c6a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0045, t01=0x0074}
0x6c6a…6ca2 Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x0045, t01=0x00ac}
0x6ca2…6cda Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x0045, t01=0x00e4}
0x6cda…6d12 Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x0045, t01=0x011c}
0x6d12…6d4a Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x0045, t01=0x0154}
0x6d4a…6d82 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0045, t01=0x018c}
0x6d82…6d96 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x0046, t01=0x0034}
0x6d96…6da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0048}
0x6da0…6daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0052}
0x6daa…6dbe Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x0046, t01=0x005c}
0x6dbe…6de0 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x0046, t01=0x0070}
0x6de0…6dfc Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x0046, t01=0x0092}
0x6dfc…6e2c Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x0046, t01=0x00ae}
0x6e2c…6e58 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x0046, t01=0x00de}
0x6e58…6e78 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x0046, t01=0x010a}
0x6e78…6ea0 Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x0046, t01=0x012a}
0x6ea0…6ec0 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x0046, t01=0x0152}
0x6ec0…6ed8 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x0046, t01=0x0172}
0x6ed8…6efc Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x0046, t01=0x018a}
0x6efc…6f24 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x0047, t01=0x001e}
0x6f24…6f3c Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x0047, t01=0x0046}
0x6f3c…6f4e Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x0047, t01=0x005e}
0x6f4e…6f88 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x0047, t01=0x0070}
0x6f88…6fa2 Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x0047, t01=0x00aa}
0x6fa2…6fcc Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0047, t01=0x00c4}
0x6fcc…6ff6 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x0047, t01=0x00ee}
0x6ff6…7026 Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x0047, t01=0x0118}
0x7026…703e Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x0047, t01=0x0148}
0x703e…7052 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0047, t01=0x0160}
0x7052…7078 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x0047, t01=0x0174}
0x7078…7098 Head {h00=0x001c, h01=0x0050, text=» ST A3,10,A8 SAVE INDEX «, t00=0x0048, t01=0x000a}
0x7098…70cc Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x0048, t01=0x002a}
0x70cc…70ea Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x0048, t01=0x005e}
0x70ea…70fc Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x0048, t01=0x007c}
0x70fc…7110 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x0048, t01=0x008e}
0x7110…7122 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0048, t01=0x00a2}
0x7122…7134 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0048, t01=0x00b4}
0x7134…7160 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x0048, t01=0x00c6}
0x7160…7180 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0048, t01=0x00f2}
0x7180…71a0 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x0048, t01=0x0112}
0x71a0…71c4 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x0048, t01=0x0132}
0x71c4…71da Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0048, t01=0x0156}
0x71da…71f0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0048, t01=0x016c}
0x71f0…7206 Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x0048, t01=0x0182}
0x7206…722c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x0049, t01=0x0008}
0x722c…7240 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0049, t01=0x002e}
0x7240…726c Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x0049, t01=0x0042}
0x726c…7282 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x0049, t01=0x006e}
0x7282…72a8 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0049, t01=0x0084}
0x72a8…72ce Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x0049, t01=0x00aa}
0x72ce…72f8 Head {h00=0x0026, h01=0x0050, text=» LD A3,10,A8 RESTORE BUFFER INDEX «, t00=0x0049, t01=0x00d0}
0x72f8…730a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0049, t01=0x00fa}
0x730a…732c Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x0049, t01=0x010c}
0x732c…7336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012e}
0x7336…7368 Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x0049, t01=0x0138}
0x7368…737c Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x0049, t01=0x016a}
0x737c…738a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x017e}
0x738a…7394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018c}
0x7394…739e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0008}
0x739e…73de Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004a, t01=0x0012}
0x73de…7416 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x004a, t01=0x0052}
0x7416…7420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x008a}
0x7420…7434 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x004a, t01=0x0094}
0x7434…7448 Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x004a, t01=0x00a8}
0x7448…747a Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x004a, t01=0x00bc}
0x747a…748e Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x004a, t01=0x00ee}
0x748e…74a2 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x004a, t01=0x0102}
0x74a2…74c2 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x004a, t01=0x0116}
0x74c2…74e4 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x004a, t01=0x0136}
0x74e4…74fe Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0158}
0x74fe…751c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x004a, t01=0x0172}
0x751c…7536 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0190}
0x7536…7548 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x004b, t01=0x001a}
0x7548…7562 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004b, t01=0x002c}
0x7562…7572 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0046}
0x7572…7580 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0056}
0x7580…758a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0064}
0x758a…7594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x006e}
0x7594…75c2 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x004b, t01=0x0078}
0x75c2…7604 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x004b, t01=0x00a6}
0x7604…760e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e8}
0x760e…7622 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x004b, t01=0x00f2}
0x7622…7640 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x004b, t01=0x0106}
0x7640…7660 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x004b, t01=0x0124}
0x7660…767a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004b, t01=0x0144}
0x767a…769a Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x004b, t01=0x015e}
0x769a…76ac Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x004b, t01=0x017e}
0x76ac…76c8 Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x004b, t01=0x0190}
0x76c8…76de Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x004c, t01=0x001c}
0x76de…76f2 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x004c, t01=0x0032}
0x76f2…7704 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x004c, t01=0x0046}
0x7704…772e Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x004c, t01=0x0058}
0x772e…7740 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x004c, t01=0x0082}
0x7740…7760 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x004c, t01=0x0094}
0x7760…7774 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x004c, t01=0x00b4}
0x7774…7786 Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x004c, t01=0x00c8}
0x7786…779a Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x004c, t01=0x00da}
0x779a…77b8 Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x004c, t01=0x00ee}
0x77b8…77cc Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x004c, t01=0x010c}
0x77cc…77f0 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x004c, t01=0x0120}
0x77f0…7800 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004c, t01=0x0144}
0x7800…780c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004c, t01=0x0154}
0x780c…7810 Head {h00=0x4004, h01=0x0000}
0x7810…7814 00 4c 01 60 ┆ L `┆
0x7814…781c (77, 1, 8) 20 04 00 00 00 4d 00 04 ┆ M ┆
0x781c…786c (78, 0, 400) 00 32 00 46 20 20 49 44 45 4e 54 20 20 54 3a 41 53 47 30 20 20 20 50 2c 33 2e 32 2c 37 38 2d 30 39 2d 31 35 2c 38 37 30 31 33 36 39 34 30 33 32 30 20 00 46 00 04 00 0c 00 08 01 03 a4 41 53 53 47 4e 00 46 00 3a 00 2c 00 28 03 13 00 00 00 01 ┆ 2 F IDENT T:ASG0 P,3.2,78-09-15,870136940320 F ASSGN F : , ( ┆
0x786c…78bc 00 00 00 00 00 02 00 00 41 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 46 00 4a 00 0e 00 0a 05 04 bc 41 53 53 47 4e 00 2e 00 46 00 7a 00 0e 00 0a 02 04 c2 54 3a 46 44 53 50 41 00 46 00 8c 00 2c 00 28 03 13 ┆ AB F J ASSGN . F z T:FDSPA F , ( ┆
0x78bc…790c 00 20 00 21 00 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 01 28 04 ff f9 00 00 f6 a1 00 00 00 02 81 22 e1 41 00 46 00 9e 00 0e 00 0a 02 04 c2 49 3a 45 56 41 30 00 00 46 00 ce 00 2c 00 28 03 13 81 01 00 3f 20 00 00 0b f6 a1 00 00 00 04 ┆ ! ( " A F I:EVA0 F , ( ? ┆
0x790c…795c 9d 06 01 08 80 a0 00 0c f6 a1 00 00 e1 32 94 a0 00 01 87 04 e7 41 00 0a 00 46 00 e0 00 2c 00 28 03 13 00 04 00 5d 40 20 f6 a1 00 00 00 04 9d 06 01 06 f6 a1 00 00 1f 01 5c 10 f6 a1 00 00 00 04 81 c1 00 2c 07 00 80 a0 00 46 01 10 00 2c 00 28 ┆ 2 A F , ( ]@ , F , (┆
0x795c…79ac 03 13 80 09 00 79 00 00 00 0a 28 04 00 0f 01 00 87 1c 50 00 01 02 82 56 00 02 e1 49 ff fe 81 40 00 2c 87 25 80 a0 00 06 00 46 01 40 00 0c 00 08 02 03 a2 49 3a 52 54 31 00 46 01 70 00 2c 00 28 03 13 20 00 00 99 08 00 28 04 ff f8 00 00 8f 20 ┆ y ( P V I @ , % F @ I:RT1 F p , ( ( ┆
0x79ac…79b4 (79, 0, 8) 19 30 19 38 19 40 19 48 ┆ 0 8 @ H┆
0x79b4…7a04 (80, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 20 49 4e 54 56 4d 41 20 5c 52 45 4c 20 38 2e 32 20 37 38 2d 30 39 2d 31 35 20 20 38 37 30 31 30 35 30 34 30 38 32 30 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 38 00 50 2a 2a 2a 2a ┆ 2 P IDENT INTVMA REL 8.2 78-09-15 870105040820 P : P* B 8 P****┆
0x7a04…7a54 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 00 00 4c 00 06 00 50 2a 20 00 00 00 88 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 53 20 54 45 ┆*********************************************** L P* $ P* PHILIPS TE┆
0x7a54…7aa4 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 92 00 06 00 50 2a 20 00 00 00 ba 00 34 00 50 2a 20 20 20 49 4e 54 56 4d 41 20 3d 20 49 4e 54 45 52 52 55 50 54 20 56 45 43 54 4f 52 53 20 41 4e 44 20 53 59 53 54 45 4d 20 53 54 ┆RMINAL SYSTEM PTS P* 4 P* INTVMA = INTERRUPT VECTORS AND SYSTEM ST┆
0x7aa4…7af4 41 52 54 20 00 00 00 c4 00 34 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 49 54 4f 52 20 41 4e 44 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 4f 4e 20 4f 4e 45 20 43 41 53 20 00 00 00 fc 00 06 00 50 2a 20 00 00 01 34 00 06 00 50 2a 20 ┆ART 4 P* MONITOR AND APPLICATION ON ONE CAS P* 4 P* ┆
0x7af4…7b44 00 00 01 3e 00 06 00 50 2a 20 00 00 01 48 00 06 00 50 2a 20 00 00 01 52 00 06 00 50 2a 20 00 00 01 5c 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ > P* H P* R P* 8 P******************************************┆
0x7b44…7b94 (81, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 00 01 66 00 04 00 50 00 01 00 12 00 04 00 50 00 01 00 1a 00 04 00 50 00 01 00 22 00 06 00 50 2a 20 00 01 00 2a 00 06 00 50 2a 20 00 01 00 34 00 38 00 50 2a 20 20 20 54 48 49 53 20 4d 4f 44 55 4c 45 20 43 4f ┆********* f P P P " P* * P* 4 8 P* THIS MODULE CO┆
0x7b94…7be4 4e 54 41 49 4e 53 20 48 41 52 44 57 41 52 45 20 49 4e 54 45 52 52 55 50 54 20 56 45 43 54 4f 52 53 2c 00 01 00 3e 00 2e 00 50 2a 20 20 20 43 4f 4d 4d 55 4e 49 43 41 54 49 4f 4e 20 56 45 43 54 4f 52 20 54 41 42 4c 45 2c 53 54 41 43 4b 20 41 ┆NTAINS HARDWARE INTERRUPT VECTORS, > . P* COMMUNICATION VECTOR TABLE,STACK A┆
0x7be4…7c34 52 45 41 20 00 01 00 7a 00 24 00 50 2a 20 20 20 41 4e 44 20 4d 4f 4e 49 54 4f 52 20 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 2e 20 00 01 00 ac 00 06 00 50 2a 20 00 01 00 d4 00 06 00 50 2a 20 00 01 00 de 00 04 00 50 00 01 00 e8 00 04 00 50 ┆REA z $ P* AND MONITOR INITIALIZATION. P* P* P P┆
0x7c34…7c84 00 01 00 f0 00 04 00 50 00 01 00 f8 00 04 00 50 00 01 01 00 00 04 00 50 00 01 01 08 00 04 00 50 00 01 01 10 00 04 00 50 00 01 01 18 00 04 00 50 00 01 01 20 00 04 00 50 00 01 01 28 00 0a 00 50 5c 45 4a 45 43 54 00 01 01 30 00 04 00 50 00 01 ┆ P P P P P P P ( P EJECT 0 P ┆
0x7c84…7cd4 01 3e 00 04 00 50 00 01 01 46 00 1e 00 50 5c 45 4e 54 52 59 5c 43 56 54 4d 53 5a 5c 4d 45 4d 4f 52 59 20 53 49 5a 45 20 00 01 01 4e 00 1c 00 50 5c 45 4e 54 52 59 5c 43 56 54 53 54 42 5c 53 54 41 43 4b 20 42 41 53 45 00 01 01 70 00 32 00 50 ┆ > P F P ENTRY CVTMSZ MEMORY SIZE N P ENTRY CVTSTB STACK BASE p 2 P┆
0x7cd4…7d24 (82, 0, 400) 5c 45 4e 54 52 59 5c 43 56 54 53 42 41 5c 41 44 44 52 45 53 53 20 54 4f 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 20 50 4f 4f 4c 20 00 01 01 90 00 30 00 50 5c 45 4e 54 52 59 5c 43 56 54 45 42 41 5c 41 44 44 52 45 53 53 20 54 4f 20 45 ┆ ENTRY CVTSBA ADDRESS TO START OF BUFFER POOL 0 P ENTRY CVTEBA ADDRESS TO E┆
0x7d24…7d74 4e 44 20 4f 46 20 42 55 46 46 45 52 20 50 4f 4f 4c 20 00 02 00 36 00 2c 00 50 5c 45 4e 54 52 59 5c 43 56 54 49 4e 50 5c 49 4e 54 45 52 50 52 45 54 45 52 20 41 44 44 52 45 53 53 20 54 41 42 4c 45 20 00 02 00 6a 00 1e 00 50 5c 45 4e 54 52 59 ┆ND OF BUFFER POOL 6 , P ENTRY CVTINP INTERPRETER ADDRESS TABLE j P ENTRY┆
0x7d74…7dc4 5c 43 56 54 44 4b 5c 53 54 41 52 54 20 55 50 20 44 49 53 43 00 02 00 9a 00 26 00 50 5c 45 4e 54 52 59 5c 43 56 54 41 50 41 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 41 44 44 52 45 53 53 20 00 02 00 bc 00 2c 00 50 5c 45 4e 54 52 59 5c 43 56 54 ┆ CVTDK START UP DISC & P ENTRY CVTAPA APPLICATION ADDRESS , P ENTRY CVT┆
0x7dc4…7e14 41 50 53 5c 41 50 50 4c 49 43 41 54 49 4f 4e 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 02 00 e6 00 22 00 50 5c 45 4e 54 52 59 5c 43 56 54 43 4c 4b 5c 52 45 41 4c 20 54 49 4d 45 20 43 4c 4f 43 4b 20 00 02 01 16 00 1a 00 50 5c 45 4e 54 ┆APS APPLICATION START ADDRESS " P ENTRY CVTCLK REAL TIME CLOCK P ENT┆
0x7e14…7e64 52 59 5c 4c 4f 4f 50 5c 49 44 4c 45 20 4c 4f 4f 50 20 00 02 01 3c 00 1e 00 50 5c 45 4e 54 52 59 5c 49 4e 49 4d 34 30 5c 4d 4f 4e 43 4f 4e 20 45 4e 54 52 59 00 02 01 5a 00 32 00 50 5c 45 4e 54 52 59 5c 43 56 54 4c 53 42 5c 53 45 47 4d 45 4e ┆RY LOOP IDLE LOOP < P ENTRY INIM40 MONCON ENTRY Z 2 P ENTRY CVTLSB SEGMEN┆
0x7e64…7eb4 (83, 0, 398) 54 20 4c 4f 41 44 20 42 4c 4f 43 4b 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 00 02 01 7c 00 28 00 50 5c 45 4e 54 52 59 5c 46 52 45 50 41 52 5c 46 52 45 45 20 50 41 52 54 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 00 03 00 22 00 22 00 50 5c 45 ┆T LOAD BLOCK TABLE ADDRESS | ( P ENTRY FREPAR FREE PARTITION POINTER " " P E┆
0x7eb4…7f04 4e 54 52 59 5c 50 41 52 4c 45 4e 5c 50 41 52 54 49 54 49 4f 4e 20 4c 45 4e 47 54 48 00 03 00 4e 00 26 00 50 5c 45 4e 54 52 59 5c 4e 55 4d 50 41 52 5c 4e 55 4d 42 45 52 20 4f 46 20 50 41 52 54 49 54 49 4f 4e 53 00 03 00 74 00 04 00 50 00 03 ┆NTRY PARLEN PARTITION LENGTH N & P ENTRY NUMPAR NUMBER OF PARTITIONS t P ┆
0x7f04…7f54 00 9e 00 2c 00 50 5c 45 58 54 52 4e 5c 49 48 50 46 41 52 5c 50 4f 57 45 52 20 46 41 49 4c 20 2f 20 41 55 54 4f 20 52 45 53 54 41 52 54 20 00 03 00 a6 00 1e 00 50 5c 45 58 54 52 4e 5c 49 48 4c 4b 4d 5c 4c 4b 4d 20 49 4e 54 45 52 52 55 50 54 ┆ , P EXTRN IHPFAR POWER FAIL / AUTO RESTART P EXTRN IHLKM LKM INTERRUPT┆
0x7f54…7fa4 00 03 00 d6 00 20 00 50 5c 45 58 54 52 4e 5c 49 48 52 54 43 5c 52 45 41 4c 20 54 49 4d 45 20 43 4c 4f 43 4b 00 03 00 f8 00 1a 00 50 5c 45 58 54 52 4e 5c 49 48 54 57 5c 54 59 50 45 57 52 49 54 45 52 00 03 01 1c 00 1e 00 50 5c 45 58 54 52 4e ┆ P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN┆
0x7fa4…7ff2 5c 49 48 54 43 5c 43 41 53 53 45 54 54 45 20 54 41 50 45 20 00 03 01 3a 00 28 00 50 5c 45 58 54 52 4e 5c 49 48 53 4f 50 5c 53 59 53 54 45 4d 20 4f 50 45 52 41 54 4f 52 53 20 50 41 4e 45 4c 20 00 03 01 5c 00 06 00 50 2a 2a 00 03 01 88 ┆ IHTC CASSETTE TAPE : ( P EXTRN IHSOP SYSTEM OPERATORS PANEL P** ┆
0x7ff2…8042 (84, 0, 400) 00 06 00 50 2a 2a 00 04 00 04 00 06 00 50 2a 2a 00 04 00 0e 00 06 00 50 2a 2a 00 04 00 18 00 06 00 50 2a 2a 00 04 00 22 00 06 00 50 2a 2a 00 04 00 2c 00 2a 00 50 5c 45 58 54 52 4e 5c 43 48 52 54 31 5c 52 45 4d 4f 54 45 20 43 48 41 4e 4e 45 ┆ P** P** P** P** " P** , * P EXTRN CHRT1 REMOTE CHANNE┆
0x8042…8092 4c 20 55 4e 49 54 20 4e 4f 2e 20 31 00 04 00 36 00 2a 00 50 5c 45 58 54 52 4e 5c 43 48 52 54 32 5c 52 45 4d 4f 54 45 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 4e 4f 2e 20 32 00 04 00 64 00 10 00 50 5c 45 58 54 52 4e 5c 43 48 52 54 33 00 04 ┆L UNIT NO. 1 6 * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 d P EXTRN CHRT3 ┆
0x8092…80e2 00 92 00 10 00 50 5c 45 58 54 52 4e 5c 43 48 52 54 34 00 04 00 a6 00 28 00 50 5c 45 58 54 52 4e 5c 49 48 43 43 31 5c 43 41 53 53 45 54 54 45 20 43 48 41 4e 47 45 52 20 4e 4f 2e 20 31 20 00 04 00 ba 00 28 00 50 5c 45 58 54 52 4e 5c 49 48 43 ┆ P EXTRN CHRT4 ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 ( P EXTRN IHC┆
0x80e2…8132 43 32 5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 00 04 00 e6 00 28 00 50 5c 45 58 54 52 4e 5c 49 48 43 43 33 5c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 00 04 01 12 00 2a 00 50 5c 45 ┆C2 2 ( P EXTRN IHCC3 3 * P E┆
0x8132…8182 58 54 52 4e 5c 43 48 4c 54 31 5c 4c 4f 43 41 4c 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 4e 4f 2e 20 31 20 00 04 01 3e 00 2a 00 50 5c 45 58 54 52 4e 5c 43 48 4c 54 32 5c 4c 4f 43 41 4c 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 4e 4f 2e 20 ┆XTRN CHLT1 LOCAL CHANNEL UNIT NO. 1 > * P EXTRN CHLT2 LOCAL CHANNEL UNIT NO. ┆