File: EDIT50.LS of Disk: V50/Source/Source-Listing-PAL-1
(Source file text)
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 1
/OS/8 SYMBOLIC EDITOR, V50
/
/
/
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
/ AND 1979 BY DATAPLAN GMBH
/ AND 2015 W. VAN DER MARK
/
/
/
/
/
/
/THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
/SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU-
/SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANT OTHER
/COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE
/TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
/AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
/SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
/
/
/THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
/NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
/EQUIPMRNT COROPATION.
/
/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
/SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
/
/
/
/
/
/
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 2
/5 JULY 1972 EF
/COPYRIGHT 1971,1972 DIGITAL EQUIPMENT CORPORATION
/ MAYNARD, MASSACHUSSETTS 01754
/THE SYMBOLIC EDITOR IS A LINE-ORIENTED
/TEXT EDITOR WITH CHARACTER AND STRING
/SEARCH CAPABILITIES. IT IS DESIGNED
/TO BE COMPATIBLE WITH THE OS/8 SYSTEM.
/THE DESIGN OF THE EDITOR IS SIMILAR
/TO THAT OF THE PAPER TAPE SYMBOLIC
/EDITOR AND THE DISK MONITOR SYSTEM
/EDITOR.
/ OS/8 V3 CHANGES S.R.
/1. ?5 ERROR REMOVED
/2. ALLOW CHAINING TO EDIT
/3. ADDED VERSION # COMMAND (#)
/4. COMBINED ^C ROUTINES, TAKING OUT BRANCH THRU 17667
/5. ALLOWED PARITY CHARACTERS EVERYWHERE
/
/
/ FIX FOR V10 J.K. 1975
/
/ THE CLOSE ERROR MESAGE 2? WAS BEING
/ GIVEN INSTEAD OF FILE FULL MESSAGE
/ WHEN THE INPUT FILE FIT INTO THE EDIT BUFFER
/ BUT WAS TOO LARGE FOR THE AVAILIBLE SPACE ON THE
/ OUTPUT DEVICE.
/ V11 CHANGES 25-MAY-77 DAVID SPECTOR
/1. ESCAPE KEY NO LONGER ECHOED
/2. SCOPE MODE SUPPORTED
/3. ONCE-ONLY CODE MOVED TO INPUT HANDLER
/ AREA IN ORDER TO FREE LOCS 3000-3177
/ V12 CHANGES 27-JUN-77 EDWARD P. STEINBERGER
/
/ALLOWED ESCAPE(233) TO BE AN INPUT CHARACTER IN TEXT MODE.
/ECHOS AS "$" ON TERMINAL OR LINEPRINTER (IF V), OUTPUT
/TO FILE AS ESCAPE
/ V 40 CHANGES 1-JUL-79 W.V.D.MARK
/
/1. DEC PATCH FOR TAB
/2. MULTI8 ADAPTED
/3. SETS ADAPTED
/4. LOWER CASE COMMANDS
/5. SYMBIONT
/6. # COMMAND IMMEDIATE
/7. UPARROW CNTRL'S
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 2-1
/8. XON/XOF FOR VT100
/9. TEXT ERROR MESSAGES
/10. BACKSPACE KEEPS TABS CORRECT
/11. ALL THIS IN SAME SPACE
/ GERMAN=1
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 3
/THE LOADING AND SAVING PROCEDURE FROM PAPER TAPE IS:
/ .R ABSLDR
/ *PTR:/9/P$
/ .SAVE SYS EDIT
/
/THE STARTING ADDRESS IS 00200.
/COMMAND DECODER RULES:
/*OUTPUT FILE<UP TO 9 INPUT FILES/OPTIONS
/OPTIONS:
/A RETURN CONTROL TO EDITOR AFTER FILE CLOSE
/ (CALLS COMMAND DECODER FOR NEW FILES)
/ (DEFAULT IS RETURN TO MONITOR)
/B CONVERT 2 OR MORE SPACES TO TAB ON INPUT
/D DELETE OLD COPY OF OUTPUT FILE BEFORE
/ STORING NEW FILE
/ERROR CODES:
/ 0 FAILURE IN INPUT DEVICE HANDLER
/ 1 FAILURE IN OUTPUT DEVICE HANDER
/ 2 COULD NOT CLOSE FILE
/ 3 COULD NOT OPEN FILE
/ 4 DEVICE HANDLER COULD NOT BE LOADED
DECIMAL
0062 VERSION=50
0330 PATCH="X /PATCH LEVEL X
OCTAL
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 4
/COMMANDS:
/A APPEND TEXT TO BUFFER
/I INSERT TEXT INTO BUFFER
/C CHANGE TEXT IN BUFFER
/L LIST TEXT IN BUFFER
/D DELETE TEXT IN BUFFER
/K KILL BUFFER
/M MOVE TEXT WITHIN BUFFER
/G GET AND LIST TAGGED LINE IN BUFFER
/B LIST # OF CORE LOCATIONS LEFT IN BUFFER
/S CHARACTER SEARCH
/J INTER-BUFFER STRING SEARCH
/F AFTER J, SEARCH FOR NEXT OCCURRANCE
/ OF SAME STRING
/$ INTRA-BUFFER STRING SEARCH
/R READ TEXT INTO BUFFER FROM INPUT DEVICE
/N WRITE BUFFER, KILL, AND READ NEXT PAGE
/Y INPUT TEXT PAGE, NO OUTPUT
/P WRITE TEXT BUFFER TO OUTPUT DEVICE
/T PUNCH TRAILER TAPE
/E OUTPUT BUFFER, TRANSFER REST OF
/ INPUT FILE TO OUTPUT FILE
/ CLOSE OUTPUT FILE
/Q IMMEDIATE END OF FILE
/V PRINT ON LP08
/# TYPE VERSION NUMBER
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 5
/ABBREVIATIONS
/.LT. LESS THAN
/.LE. LESS THAN OR EQUAL TO
/.GT. GREATER THAN
/.GE. GREATER THAN OR EQUAL TO
/ R RIGHT
/ L LEFT
/SPECIAL COMMENTS
/SINCE THE EDITOR IS CODED ACROSS PAGE BOUNDARIES, IT IS
/NECESSARY TO BE AWARE OF THE EFFECTS OF THE INSERTION
/OR DELETION OF CODE. FOR THIS REASON, THE LIMITS
/OF PERMISSABLE PAGE BOUNDARY WANDERING
/ARE INDICATED WITH THE FOLLOWING CONSTRUCTION:
/-----------------------------------------------------------------------
/SOMEWHERE BETWEEN LINES, THE PAGE BOUNDARY MUST OCCUR
/-----------------------------------------------------------------------
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 6
0000 *0
000000 3144 LPT /*WM* FOR SETS
000001 6232 CIF 30
000002 5001 JMP 1 /SYMBIONT
000003 0243 SIGN, "# /V40
000004 0000 ZBLOCK 3 /FOR ODT
000007 0077 C77, 77
NONE, /V40
000010 7737 M41, NOP-CIA /=-41
000011 0100 C100, 100
000012 0277 C277, 277 /QUESTION MARK
/AUTO-INDEX REGISTERS
000013 0000 AXOUT, 0 /OUTPUT INDEX
000014 0000 AXCOMB, 0 /COMBINE POINTER
000015 0000 AXTEM, 0 /TEMPORARY INDEX
000016 0000 AXIN, 0 /STORAGE INDEX
/CONSTANTS
000017 7774 M4, -4 /LETTER COUNT
000020 0177 P177, 177
000021 7563 MCR, -215
000022 7540 M240, -240
000023 0040 P40, 40
000024 0200 C200, 200 /(START & RESTART)
000025 6100 BUFEND, 6100 /WARNING FOR END OF BUFFER
000026 7700 P7700, 7700 /MONITOR CALL LOCATION
000027 7701 M77, -77
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 7
/LISTS
/TAG SEARCH LIST-
0030 LIST7=.
000030 0240 C240, 240 /SPACE
000031 0257 257 /COMMENT DELIMITER (/)
/OUTPUT LIST
0032 LIST4=.
000032 0233 ESC, 233 /ESC-V12
000033 0211 CTAB, 211 /TAB
000034 0215 C215, 215 /CARRIAGE RETURN
000035 0212 212 /LINE FEED
000036 0214 214 /FORM FEED
000037 0377 377 /RUBOUT
000040 0207 207 / ^G BELL
000041 0210 210 / ^H BACKSPACE
000042 7751 M27, -27 /LIST DELIMITER
/SPECIAL CHARACTER LIST FOR
/INPUT IN TEXT MODE
0043 LIST5=. /USED AT AONE
000043 0240 240 /SPACE
0044 LIST6=. /USED AT SFOUND
000044 0225 CTU, 225 / ^U
000045 0214 C214, 214 /FORM FEED
000046 0207 BELL, 207 / ^G (BELL)
000047 0212 C212, 212 /LINE FEED
000050 0377 CRO, 377 /RUBOUT
0051 LIST3=.
000051 0215 215 /LIST BRANCHER
000052 0000 000 /(SEARCH CHARACTER)
000053 1707 RST3I, RESET3 /RESET AND SAVE BUFFER
000054 4645 MCHIN1, -CHIN-1 /LIST DELIMITER
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 8
/CONSTANTS AND POINTERS
0034 CCR=C215 /CARRIAGE RETURN
0047 CLF=C212 /LINE FEED
000055 7770 MTABS, -10 /TAB COUNTER
000056 0635 DELT, DELP
000057 3132 CHI1, CHIN
000060 3133 IGNORE, CHIN+1
000061 0200 END, 200
000062 1641 KEYBD, I33
000063 5414 CCON, JMP I AXCOMB
000064 1327 COM1-1
000065 0531 UTR1, UTRA
000066 1015 FIN1, FIND
000067 0677 LIS1, LIST
000070 0704 LIS, LISTER
000071 0012 NINE, 12
000072 7506 NUMB, -272
000073 3027 OUT1, OUT
0074 OUTL1=.
000074 1651 LOW, OUTL
000075 7000 CZ, NOP /CONTENTS OF START
000076 0224 ONUM, GTOP
000077 0337 SORTJ, SORTB
000100 0457 PACK1, PACBUF
000101 1110 SXS1, TAD CHAR /CONTENTS OF L3
000102 5364 SXS2, SLOOK&177+5200 /JMP SLOOK
000103 0747 L3I, L3 /PATCH POINTER
000104 0745 L2I, L2 /CONTINUE SEARCH - LETTERS
000105 1610 ENDLNI, ENDLN
000106 0455 SPCNO, MOR+4 /PACK
000107 0452 SPCGO, MOR+1 /SORT
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 9
/CHAR IS ALWAYS SET BY OUT, SOMETIMES BY SORTB;
/IT IS ALWAYS USED BY PACK AND SORTB.
000110 0000 CHAR, 0
0111 MOV1=.
000111 0000 COUNTP, 0 /NUMBER OF PAGES
0112 CNT=. /PRINT COUNTER
000112 0000 XCT, 0 /UNPACK SWITCH
000113 0000 XCTIN, 0 /PACK SWITCH
000114 0001 ECHOSW, 1 /NON-ZERO TO PRINT
000115 0000 SAVE, 0
000116 0000 TABIND, 0 /TABS OR SPACES SWITCH
000117 0000 TEMP, 0 /V3
000120 0000 THIS, 0 /LINE POINTER.
000121 1651 OUTDEV, OUTL /POINTER TO OUTPUT SUBROUTINE
000122 2600 GRBAGE, GARBAG /GARBAGE COLLECTOR
000123 0000 MARK, 0 /OBJECT LINE IN G.C.
000124 0000 XSAV, 0 /HOLD INPUT POINTER.
000125 0200 BUFR, 200
000126 0174 CFRS, FRST
000127 1547 KILL1, KILL+3
000130 1501 CHKARG, CHKARX
000131 4143 ERSW, ERROR /ERROR ROUTINE
000132 0723 L1I, L1
000133 0000 EKILLL, 0 /E CMD SWITCH 1 IF E NOT ALLOWED
/I-O RELATED POINTERS AND WORDS
000134 0232 P232, 232 /V3
000135 2031 BUFRDI, BUFRD /OR CHIN...IN DEVICE POINTER
000136 2062 BUFWTI, BUFWT /WRITE OUTPUT TO DEVICE
000137 2006 CLFLI, FLCLOS /SET TO CLOSE FILE
000140 0037 P37, 37 /V3
000141 5250 JMPCH, PUNCH&177+5200 /DESTROYED BY YANK
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 10
/ERROR ROUTINE POINTERS
000142 2721 PRERR, DEVERR
0143 GTEM=. /NEXT 6-BITS OF UNPACK
0143 DTEM=. /NEXT POINTER IN DELETE CHAIN
/ERROR ROUTINE
/REJECTS ILLEGAL COMMAND
/AND TYPES ?
4143 ERROR=JMS .
000143 0000 0 /ALSO TEMP
000144 7600 ELIM, 7600 /GRP2-CLA
000145 1012 TAD C277
000146 4474 JMS I OUTL1 /PRINT "?"
000147 1075 CZONE, TAD CZ /RESET PATCHES
000150 3555 DCA I TE1
000151 5555 JMPTE1, JMP I TE1 /*RETURN TO COMMAND MODE*
000152 1753 MONITOR, MONIT /MONITOR EXIT ROUTINE
000153 0000 STRIND, 0
000154 2400 STRFIN, SFIND1
000155 0203 TE1, START
/VARIABLES
000156 0000 THSN, 0 /CURRENT LINE NUMBER
000157 0000 LSTN, 0 /LAST LINE NUMBER
000160 0000 TCNT, 0 /TAB COUNT
000161 0000 ADD, 0
000162 0000 ARG0, 0
000163 0240 ARG1, 0240
000164 7777 ARG2, -1
000165 7110 POTYPE, OTYPE
000166 1336 COMM5, COM5
000167 7600 K7600, 7600
000170 0000 TEMPO, 0
000171 1210 K1210, 1210
000172 7575 X203, -203
000173 1320 K1320, 1320
000174 0000 FRST, 0 /FIRST LINE ADDRESS
0170 MOV2=TEMPO
000175 0000 LSTCHK, 0 /DIGIT ACCEPTED FLAG
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 11
0177 *177
000177 3000 INIT /INITIALIZATION CODE
/EITHER 3000 OR VALUE OF RESET
0200 *200
000200 7240 STA /V3 NORMAL START OR RESTART ADDR
000201 3117 DCA TEMP /V3 CHAIN START ADDR
000202 5577 JMP I 177 /START AT 3000 OR RESET
/HANDLER FOR ^U (IF IN COMMAND MODE)
000203 7000 START, NOP /V3 MAY BE MODIFIED
000204 1074 TAD LOW /ENTER COMMAND MODE
000205 3121 DCA OUTDEV /INITIALIZE KEYBOARD
000206 3116 DCA TABIND /CLEAR TAB INDICATOR
000207 2114 ISZ ECHOSW /SET UP FOR ECHO
000210 3052 DCA LIST3+1
000211 1101 TAD SXS1
000212 3503 DCA I L3I
000213 1131 TAD ERSW /RESET ERROR SWITCH AT L1
000214 3532 DCA I L1I
000215 1147 TAD CZONE
000216 3566 DCA I COMM5
000217 3175 DCA LSTCHK /CLEAR DIGIT ACCEPTED
000220 1034 TAD CCR /OUTPUT CARRIAGE RETURN
000221 4473 JMS I OUT1
/HANDLER FOR CARRIAGE RETURN (COMMAND MODE)
000222 1003 TAD SIGN /OUTPUT #
000223 4473 JMS I OUT1
000224 3162 GTOP, DCA ARG0 /CLEAR ARGUMENTS
000225 3164 DCA ARG2
/HANDLER FOR SPACE OR +
000226 1010 GEXP, TAD NONE
/HANDLER FOR -
000227 1350 GMIN, TAD CMPT
000230 3242 DCA G2 /SET SIGN TO + OR -
000231 3117 DBCV2, DCA TEMP
000232 4457 CMCHK, JMS I CHI1 /INPUT ONE CHARACTER
000233 1072 TAD NUMB
000234 7100 CLL
000235 1071 TAD NINE
000236 7430 SZL /WAS IT A DIGIT?
000237 5327 JMP COUNT /YES - CONTINUE ACCEPTING NUMBERS
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 12
000240 7200 GLOM, CLA /NO
000241 1117 TAD TEMP /GET ACCUMULATED NUMBER
000242 7402 G2, HLT /(NOP) OR (CIA) TO HANDLE SIGN
000243 1164 TAD ARG2
000244 3164 DCA ARG2 /STORE NEW ARGUMENT
000245 4337 JMS SORTB /WAS LAST CHARACTER SPECIAL?
000246 1342 LIST1-1 /YES - COMPARE TO LIST
000247 0214 OPS1-LIST1 /AND BRANCH TO HANDLER
000250 1110 TAD CHAR /NO - SAVE COMMAND CHARACTER
000251 0260 AND P337 /ACCEPT LOWER CASE IN 'SAVE'
000252 3115 DCA SAVE
000253 4457 JMS I CHI1 /INPUT ONE CHARACTER
000254 4337 JMS SORTB /IS IT CARRIAGE RETURN, ^C, OR ^U?
000255 1365 LIST1A-1 /YES - EXIT TO HANDLER
000256 0217 OPS1A-LIST1A
000257 4143 ERROR /NO - TRY AGAIN
000260 0337 P337, 337
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 13
/CHECK LEGALITY OF ARGUMENTS
/ARG0 CONTAINS FIRST ARGUMENT
/ARG2 CONTAINS SECOND ARGUMENT
000261 1162 RETRN, TAD ARG0
000262 7450 SNA /IS ARG0=0?
000263 1164 TAD ARG2 /YES - ARG0=ARG2
000264 3162 DCA ARG0 /NO
000265 1164 TAD ARG2
000266 7040 CMA
000267 1162 TAD ARG0
000270 7500 SMA /IS ARG0 .LE. ARG2?
000271 4143 ERROR /NO
000272 3163 DCA ARG1 /YES - ARG1=ARG0-ARG2-1
000273 1162 TAD ARG0
000274 7710 SPA CLA /IS ARG0 .GE. 0?
000275 4143 ERROR /NO
000276 1115 TAD SAVE /YES - GET COMMAND CHARACTER
000277 4337 JMS SORTB /IS IT A LEGAL COMMAND?
000300 0302 LIST2-1 /YES - MATCH TO LIST
000301 0062 OPS2-LIST2 /AND BRANCH TO ITS HANDLER
000302 4143 ERROR /NO - TRY AGAIN
/COMMAND IDENTIFICATION LIST
0303 LIST2=. /COMMAND LETTERS
000303 0305 305 /E
000304 0301 301 /A
000305 0311 311 /I
000306 0303 303 /C
000307 0313 313 /K
000310 0304 304 /D
000311 0314 314 /L
000312 0316 316 /N
000313 0320 320 /P
000314 0322 322 /R
000315 0312 312 /J
000316 0306 306 /F
000317 0324 324 /T
000320 0315 315 /M
000321 0307 307 /G
000322 0323 323 /S
000323 0331 331 /Y
000324 0321 321 /Q
000325 0302 302 /B
000326 0326 326 /V
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 14
/DECIMAL ADDITION ROUTINE
/FOR NUMERIC ARGUMENTS OF COMMANDS
/ENTER WITH INPUT DIGIT IN SORTB
/EXIT WITH ACCUMULATED NUMBER IN AC
000327 3337 COUNT, DCA SORTB
000330 2175 ISZ LSTCHK /GOT A DIGIT NOW
000331 1117 TAD TEMP
000332 7106 RTL CLL /V40 ** IS END OF LIST2
000333 1117 TAD TEMP
000334 7004 RAL
000335 1337 TAD SORTB
000336 5231 JMP DBCV2 /RETURN TO MAIN SEQUENCE
/SORT AND BRANCH ROUTINE
/LOOKS FOR MATCH BETWEEN CHAR
/AND ELEMENTS OF TABLE 1 SPECIFIED
/CALLING SEQUENCE:
/ JMS I (SORTB
/ TABLE1-1
/ TABLE2-TABLE1
/ RETURN IF NO MATCH
/DISPATCHES TO CORRESPONDING ADDRESS IN TABLE 2
000337 0000 SORTB, 0
000340 7440 SZA /IS CHARACTER STORED YET?
000341 3110 DCA CHAR /NO - STORE IT
000342 1737 TAD I SORTB /YES
000343 2337 ISZ SORTB
000344 3015 DCA AXTEM /STORE TABLE 1 ADDRESS
000345 1415 TAD I AXTEM /GET TABLE ENTRY
000346 7510 SPA /DONE YET?
000347 5362 JMP SEX /YES - EXIT
000350 7041 CMPT, CIA /NO
000351 1110 TAD CHAR /GET CHARACTER
000352 7640 SZA CLA /DO THEY MATCH?
000353 5345 JMP .-6 /NO - KEEP TRYING
000354 1015 TAD AXTEM /YES - THEY MATCH
000355 1737 TAD I SORTB /GET DISPATCH TABLE ADDRESS
000356 3337 DCA SORTB
000357 1737 TAD I SORTB
000360 3337 DCA SORTB /SET RETURN ADDRESS
000361 5737 JMP I SORTB /--RETURN--VIA DISPATCH TABLE
000362 2337 SEX, ISZ SORTB /MATCH NOT FOUND
000363 7200 CLA
000364 5737 JMP I SORTB /--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 15
/-----------------------------------------------------------------
/DISPATCH LIST FOR COMMAND HANDLERS
000365 1461 OPS2, ENDFIL /E
000366 1231 APP /A
000367 1230 XNS /I
000370 1227 CNGE /C
000371 1544 KILL /K
000372 1742 DELE /D
000373 0677 LIST /L
000374 1310 COMBO /N
000375 1250 PUNCH /P
000376 1300 TELE /R
000377 2243 JERK /J
000400 2271 BARROW /F
000401 1256 PUNCT /T
000402 1413 MOVEM /M
000403 1371 GETTAG /G
000404 1173 XCRET /S
000405 1306 YANK /Y
000406 2000 Q /Q
000407 1042 CORSPC /B
000410 2703 VIEW /V
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 16
/END OF INPUT TEXT LINE ROUTINE
000411 4505 EOL, JMS I ENDLNI /RESET LINK CELLS
000412 2157 ISZ LSTN /INCREMENT LINE POINTERS
000413 2156 ISZ THSN
000414 1025 TAD BUFEND
000415 7141 CLL CIA
000416 1016 TAD AXIN
000417 7620 SNL CLA /IS THE BUFFER FULL?
/------------------------------------------------------------
000420 5251 JMP MOR /NO - KEEP FILLING
000421 1046 TAD BELL /YES - RING WARNING BELL
000422 4474 JMS I OUTL1
000423 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/CONTINUATION OF HANDLERS FOR A, C, AND I COMMANDS
000424 1157 APP1, TAD LSTN /APPEND
000425 3162 DCA ARG0 /RESET ARG0 TO END OF TEXT
000426 5232 JMP INS
000427 4456 CNGE1, JMS I DELT /CHANGE - DELETE LINES AND
000430 1162 XNS1, TAD ARG0 /INSERT
000431 7650 SNA CLA /ANY ARGUMENTS?
000432 2162 INS, ISZ ARG0 /NO - INSERT AT BEGINNING OF TEXT
000433 1162 TAD ARG0
000434 4466 JMS I FIN1 /FIND THE POINTER
000435 3120 DCA THIS
000436 2116 ISZ TABIND /SET TAB INDICATOR
000437 6211 CDF 10
000440 1520 TAD I THIS /GET LINK TO BUFFER
000441 6201 CDF 0
000442 3124 DCA XSAV
000443 7040 CMA
000444 1162 TAD ARG0
000445 3156 DCA THSN /SET LINE POINTER
000446 1125 AONE, TAD BUFR /BEGIN LINE
000447 3016 DCA AXIN
000450 3113 DCA XCTIN
000451 4535 MOR, JMS I BUFRDI /GET A CHARACTER
000452 4477 JMS I SORTJ /IS IT SPECIAL? (SEE LIST)
000453 0042 LIST5-1
000454 0534 INLIST-LIST5 /YES - GO TO ITS HANDLER
000455 4257 JMS PACBUF /NO - PACK IT
000456 5251 JMP MOR /FETCH ANOTHER
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 17
/CHARACTER PACKING ROUTINE
/CONVERTS CHARACTER IN CHAR TO INTERNAL CODE
/AND CALLS PCK1 TO PACK IT INTO BUFFER
/ENTER AND EXIT WITH AC CLEAR
000457 0000 PACBUF, 0
000460 7100 CLL
000461 1016 TAD AXIN /DON'T ADD CHARACTERS
000462 1171 TAD K1210 /IF AXIN ABOVE 6570
000463 7630 SZL CLA /IS THERE ROOM FOR THIS ONE?
000464 4143 ERROR /NO
000465 1110 TAD CHAR /YES
000466 1022 TAD M240
000467 7510 SPA /IS IT 200-237?
000470 5303 JMP ESCA /YES - ATTACH 77
000471 1027 TAD M77
000472 7540 SMA SZA /IS IT 337 OR LESS?
000473 5303 JMP ESCA /NO - ATTACH 77
000474 1023 TAD P40 /YES - IS IT 277?
000475 7650 SNA CLA
000476 5303 JMP ESCA /YES - ATTACH 77
000477 1110 TR1, TAD CHAR /240-337 EXCEPT 277
000500 0007 AND C77 /MASK OUT LEFT 6 BITS
000501 4307 JMS PCK1 /PACK IT
000502 5657 JMP I PACBUF /--RETURN--
000503 7200 ESCA, CLA /200-237, 277,340-377
000504 1007 TAD C77 /PACK A 77
000505 4307 JMS PCK1
000506 5277 JMP TR1 /PACK THE CHARACTER
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 18
/PACK CHARACTERS INTO TEXT BUFFER
/ENTER WITH 6-BIT CODE IN AC
000507 0000 PCK1, 0
000510 2113 ISZ XCTIN /LEFT HALF OR RIGHT HALF?
000511 5322 JMP ROT /LEFT HALF
000512 3331 DCA UTRA /RIGHT HALF - STORE CHARACTER
000513 1331 TAD UTRA /GET CHARACTER
000514 1161 TAD ADD /GET PREVIOUS CHARACTER
000515 6211 CDF 10
000516 3416 DCA I AXIN /STORE IN FIELD 1 BUFFER
000517 6201 CDF 0
000520 3161 DCA ADD
000521 5707 JMP I PCK1 /--RETURN--
000522 7106 ROT, CLL RTL /LEFT HALF
000523 7006 RTL
000524 7006 RTL /ROTATE 6 LEFT
000525 3161 DCA ADD /RETAIN UNTIL NEXT CHARACTER
000526 7040 CMA /IS READY
000527 3113 DCA XCTIN /RESET L OR R SWITCH
000530 5707 JMP I PCK1 /--RETURN--
0457 UTEST=PACBUF /TEMPORARY
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 19
/CHARACTER UNPACKING ROUTINE
/CONVERTS ONE CHARACTER FROM
/BUFFER FORMAT TO 8-BIT ASCII
/EXIT WITH CHARACTER IN AC
000531 0000 UTRA, 0
000532 7240 CLA CMA /INITIALIZE TO -1
000533 3257 DCA UTEST
000534 2112 EXTR, ISZ XCT /LEFT HALF OR RIGHT HALF?
000535 5347 JMP GET3 /RIGHT HALF
000536 6211 CDF 10 /LEFT HALF
000537 1413 TAD I AXOUT /GET BUFFER WORD
000540 6201 CDF 0
000541 3143 DCA GTEM
000542 1143 TAD GTEM
000543 7012 RTR /ROTATE 6 RIGHT
000544 7012 RTR
000545 7012 RTR
000546 5352 JMP GET4 /SKIP TO GETA
000547 7240 GET3, CLA CMA /RESET L - R SWITCH
000550 3112 DCA XCT
000551 1143 TAD GTEM
000552 0007 GET4, AND C77 /MASK OUT LEFT 6 BITS
000553 1027 TAD M77
000554 7100 CLL
000555 7450 SNA /WAS IT 77?
000556 2257 ISZ UTEST /YES - WAS IT LEFT HALF?
000557 5361 JMP GET5 /NO - CONTINUE
000560 5334 JMP EXTR /YES - GET OTHER HALF
000561 1140 GET5, TAD P37
000562 2257 ISZ UTEST /RESTORE THE CHARACTER
000563 7020 CML
000564 7420 SNL
000565 1011 TAD C100
000566 1030 TAD C240
000567 1172 TAD X203 /IS IT A ^C?
000570 7450 SNA
000571 5332 JMP UTRA+1 /YES - IGNORE IT
000572 1042 TAD M27 /NO - IS IT A ^Z?
000573 7450 SNA
000574 5332 JMP UTRA+1 /YES - IGNORE IT
000575 1134 TAD P232 /NO - RESTORE CHARACTER
000576 5731 JMP I UTRA /--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 20
/-------------------------------------------------------------
/INPUT LIST FOR SPECIAL CHARACTERS IN TEXT MODE
0577 INLIST=.
000577 1522 SPACES /SPCS
000600 1476 CTRLU /^U
000601 0606 FULL /FORM
000602 0606 FULL /BELL
000603 1154 RUB4+1 /LINE FEED
000604 1103 RUB1 /RUBOUT
000605 0411 EOL /CARRIAGE RETURN
/HANDLER FOR FORM FEED OR ^G
000606 1060 FULL, TAD IGNORE /
000607 1054 TAD MCHIN1 /
000610 7650 SNA CLA /IN APPEND MODE?
000611 5555 JMP I TE1 /YES*RETURN TO COMMAND MODE*
000612 1157 TAD LSTN /NO - IS BUFFER EMPTY?
000613 7650 SNA CLA /
/--------------------------------------------------------------
000614 5616 JMP I MORI /YES - IGNORE FORM FEED
000615 5555 JMP I TE1 /NO*RETURN TO COMMAND MODE*
000616 0451 MORI, MOR
/SET UP TO READ FROM INPUT DEVICE
/USED BY C AND R COMMANDS
/CALLED WITH SEQUENCE
/ JMS I PSETUP
/ INPUT ROUTINE
/ CONTINUATION OF HANDLER
/EXITS TO CONTINUATION OF HANDLER
000617 0000 SETUP, 0
000620 1617 TAD I SETUP /GET READ AREA FROM ARGS
000621 3135 DCA BUFRDI
000622 1617 TAD I SETUP /LOCATION FOR IGNORED CHARACTERS
000623 7101 IAC CLL /V12
000624 3060 DCA IGNORE
000625 2217 ISZ SETUP /SETUP PROPER RETURN POINT
000626 1617 TAD I SETUP
000627 3217 DCA SETUP
000630 1125 TAD BUFR
000631 1173 TAD K1320
000632 7630 SZL CLA /IS BUFFER FULL?
000633 4143 ERROR /YES - DON'T READ
000634 5617 JMP I SETUP /--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 21
/SUPERVISOR FOR DELETION OF TEXT LINES
000635 0000 DELP, 0
000636 4530 JMS I CHKARG /CHECK ARGUMENT VALIDITY
000637 1162 TAD ARG0
000640 3156 DCA THSN /SET CURRENT LINE #
000641 1163 TAD ARG1 /SAVE # DELETED
000642 3304 DCA LISTER
000643 1162 TAD ARG0 /GET POINTER TO LINE
000644 4466 JMS I FIN1 /TO BE DELETED
000645 3120 DCA THIS /STORE IT
000646 6211 DELP1, CDF 10
000647 1520 TAD I THIS
000650 3123 DCA MARK /CORE ADDRESS OF OBJECT LINE
000651 1523 TAD I MARK
000652 3520 DCA I THIS /CHAIN NEW POINTERS TO DELETE LINE
000653 1123 TAD MARK
000654 6201 CDF 0
000655 4522 JMS I GRBAGE /PHYSICALLY DELETE THE LINE
000656 2163 ISZ ARG1 /ALL SPECIFIED LINES DELETED?
000657 5246 JMP DELP1 /NO - CONTINUE
000660 1157 TAD LSTN /IF 1,/D..MAKE CURRENT=0
000661 7650 SNA CLA
000662 3156 DCA THSN
000663 1304 TAD LISTER /BUMP TOTAL DOWN
000664 1157 TAD LSTN
000665 3157 DCA LSTN
000666 5635 JMP I DELP /YES--RETURN--
/HANDLER FOR <
000667 7344 EXLAS, CLA CLL CMA RAL /PRINT LAST LINE - AC=7776=-2
/HANDLER FOR > OR LINE FEED
000670 1156 EXNEX, TAD THSN /PRINT NEXT LINE
000671 7001 IAC
000672 7450 SNA /IS IT AN EXISTING LINE?
000673 4143 ERROR /NO
000674 3162 DCA ARG0 /YES SAVE EFFECTIVE ARGUMENTS
000675 7040 CMA
000676 3163 DCA ARG1
/HANDLER FOR L COMMAND
000677 1074 LIST, TAD LOW /SET KEYBOARD AS OUTPUT
000700 3121 DCA OUTDEV
000701 2116 ISZ TABIND /SET TAB INDICATOR
000702 4304 JMS LISTER /OUTPUT LINE(S)
000703 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 22
/LISTING OUTPUT ROUTINE
/OUTPUTS LINES INDICATED BY ARG0,ARG1
000704 0000 LISTER, 0
000705 1162 TAD ARG0
000706 7640 SZA CLA /ANY ARGUMENTS?
000707 5317 JMP L0 /YES - SET THEM UP
000710 1175 TAD LSTCHK /ALLOW 0L?
000711 7640 SZA CLA
000712 4143 ERROR /NOPE
000713 1157 TAD LSTN /NO - SET TO LIST BUFFER
000714 7041 CIA
000715 3163 DCA ARG1
000716 2162 ISZ ARG0 /SET TO LINE 1
000717 1162 L0, TAD ARG0
000720 7041 CIA
000721 1157 TAD LSTN
000722 7710 SPA CLA /ARGUMENTS IN RIGHT RANGE?
000723 4143 L1, ERROR /NO -( OR JMP I TE1)
000724 1162 TAD ARG0
000725 4466 JMS I FIN1 /GET POINTERS
000726 3120 DCA THIS /SAVE POINTER
000727 7040 CMA
000730 6211 CDF 10
000731 1520 TAD I THIS /GET START
000732 3013 DCA AXOUT
000733 1413 TAD I AXOUT /SAVE POINTER FOR SEARCH
000734 3124 DCA XSAV
000735 1013 TAD AXOUT /SAVE OBJECT LINE FOR GARBAGE COLLECT
000736 3123 DCA MARK
000737 6201 CDF 0
000740 7040 CMA
000741 3112 DCA XCT
000742 1162 TAD ARG0 /SET POINTER
000743 3156 DCA THSN
000744 2162 ISZ ARG0 /SET FOR NEXT LINE
/(HANDLER FOR FORM FEED DURING CHARACTER SEARCH)
000745 4465 L2, JMS I UTR1 /UNPACK A CHARACTER
000746 4473 JMS I OUT1 /PRINT A CHARACTER
000747 1110 L3, TAD CHAR /OR (JMP SLOOK) **
000750 1021 TAD MCR
000751 7640 SZA CLA /WAS IT END OF LINE?
000752 5345 JMP L2 /NO - KEEP UNPACKING
000753 2163 ISZ ARG1 /YES - DONE YET?
000754 5317 JMP L0 /NO - GET NEXT LINE
000755 5704 JMP I LISTER /YES --RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 23
/SEARCH ROUTINES
/HANDLER FOR CARRIAGE RETURN
000756 4505 SRETN, JMS I ENDLNI /TERMINATE THIS LINE
000757 1123 TAD MARK /AND NOW GARBAGE COLLECT
000760 4522 JMS I GRBAGE
000761 2163 ISZ ARG1 /DONE YET?
000762 5467 JMP I LIS1 /NO - GET NEXT LINE
000763 5555 JMP I TE1 /YES*RETURN TO COMMAND MODE*
IFNZRO SLOOK&1000 <PGERR,XXX>
000764 4477 SLOOK, JMS I SORTJ /SEARCH DONE?
/------------------------------------------------------------
000765 0050 LIST3-1 /(CARRIAGE RETURN OR SEARCH CHARACTER)
000766 1406 LISTGO-LIST3 /YES - GO TO ITS HANDLER
000767 4500 JMS I PACK1 /NO-PACK SEARCHED CHARACTERS
000770 5504 JMP I L2I /CONTINUE SEARCH
/HANDLER FOR ^G DURING CHARACTER SEARCH
/CHANGE SEARCH CHARACTER
000771 4462 SCONT, JMS I KEYBD /FETCH NEW SEARCH CHARACTER
000772 3052 DCA LIST3+1 /STORE IT IN LIST
000773 5504 JMP I L2I /CONTINUE SEARCH
/HANDLER FOR LINE FEED DURING SEARCH
000774 1034 SLINE, TAD CCR
000775 3110 DCA CHAR
000776 4505 JMS I ENDLNI
000777 2162 ISZ ARG0 /MOVE POINT
001000 2156 ISZ THSN /BUMP CURRENT LINE COUNT
001001 2157 ISZ LSTN /ADD A LINE.
/HANDLER FOR _ DURING SEARCH
001002 1034 SBAR, TAD CCR /CTRL-U
001003 4473 JMS I OUT1 /OUTPUT CARRIAGE RETURN
001004 1125 TAD BUFR /RESTART PACK BUFFER
001005 3016 DCA AXIN
001006 3113 DCA XCTIN
/-------------------------------------------------------------------
001007 4457 SFOUND, JMS I CHI1 /GET A CHARACTER
001010 4477 JMS I SORTJ /SPECIAL SEARCH COMMAND?
001011 0043 LIST6-1
001012 1406 SRNLST-LIST6 /YES - GO TO HANDLER
/HANDLER FOR SEARCH CHARACTER FOUND
001013 4500 SGOT, JMS I PACK1 /NO-PACK INSERTS
001014 5207 JMP SFOUND /CONTINUE INPUT
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 24
/SEARCH TEXT BUFFER FOR LINE
/WHOSE NUMBER IS ONE LESS THAN
/THE CONTENTS OF THE AC
/EXIT WITH ADDRESS OF LINK CELL IN AC
001015 0000 FIND, 0 /LOCATE LINE BUFFER
001016 7041 CIA
001017 7500 SMA /IS LINE NUMBER TOO SMALL?
001020 4143 ERROR /YES
001021 3117 DCA TEMP /NO - STORE NEGATIVE OF LINE #
001022 1117 TAD TEMP
001023 7001 IAC
001024 1157 TAD LSTN
001025 7710 SPA CLA /IS LINE NUMBER TOO LARGE?
001026 4143 ERROR /YES
001027 1126 TAD CFRS /NO
001030 5235 JMP FIND1
001031 6211 FIND2, CDF 10
001032 1515 TAD I SAVE /CHAIN THROUGH LIST
001033 6201 CDF 0
001034 7440 SZA /FAILSAFE
001035 3115 FIND1, DCA SAVE
001036 2117 ISZ TEMP /DONE YET?
001037 5231 JMP FIND2 /NO - KEEP CHAINING
001040 1115 TAD SAVE /YES - GET LINE NUMBER
001041 5615 JMP I FIND /--RETURN--
/HANDLER FOR B COMMAND
001042 1125 CORSPC, TAD BUFR /SET UP NUMBER OF LOCATIONS
001043 7161 STL CIA /IN ARG2
001044 1025 TAD BUFEND
001045 1302 TAD K360
001046 7430 SZL /IS ANY CORE LEFT?
001047 7300 CLA CLL /NO - WRITE 0
001050 3164 DCA ARG2 /FALL INTO 'PRNT'
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 25
0111 BOX=COUNTP
0162 VAL=ARG0
/HANDLER FOR : OR =
/PRINTS REQUESTED LINE NUMBER
/WHICH IS FOUND IN ARG2 ON ENTRY
001051 1164 PRNT, TAD ARG2
001052 3162 DCA VAL /SET NUMBER TO BE PRINTED
001053 1017 TAD M4
001054 3112 DCA CNT /SET CHARACTER COUNT
001055 1301 TAD ADDR
001056 3215 DCA FIND /SET ADDRESS OF PWRS OF TEN
001057 7240 FLOOZ, STA /SET TO -1
001060 3111 DCA BOX
001061 7100 ADDXYZ, CLL
001062 2111 ISZ BOX /FIRST TIME: BOX=0 AND SKIP
001063 3162 DCA VAL
001064 1162 TAD VAL
001065 1615 TAD I FIND /TAD I (ADDR) +() SOME DISPLACEMENT
001066 7430 SZL
001067 5261 JMP ADDXYZ /KEEP ADDING THE SAME CONSTANT
001070 7200 CLA
001071 1111 TAD BOX /BOX HAS THE NUMBER COUNT
001072 1300 TAD C260 /MAKE ASCII DIGIT
001073 4474 JMS I OUTL1 /OUTPUT THE DIGIT
001074 2215 ISZ FIND /ADD IN NEXT CONVERSION CONSTANT LATER
001075 2112 ISZ CNT /DONE ALL FOUR?
001076 5257 JMP FLOOZ /NO - KEEP CONVERTING
001077 5555 JMP I TE1 /YES*RETURN TO COMMAND MODE*
001100 0260 C260, 260
001101 1167 ADDR, CON
001102 0360 K360, 360
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 26
/HANDLER FOR RUBOUT IN TEXT OR SEARCH
001103 1016 RUB1, TAD AXIN
001104 7041 CIA
001105 1125 TAD BUFR
001106 1113 TAD XCTIN
001107 7640 SZA CLA /IS THERE ANYTHING ON THIS LINE?
001110 1114 TAD ECHOSW /OR ECHO INHIBITED?
001111 7650 SNA CLA
001112 5460 JMP I IGNORE /YES-IGNORE RUBOUT
001113 6211 CDF 10 /LOOK AT "SCOPE" BIT IN
001114 1766 TAD I P7726 /RESIDENT MONITOR
001115 6201 CDF 00
001116 0024 AND C200
001117 7640 SZA CLA
001120 5323 JMP RP1
001121 1364 TAD SPLAT /NO SCOPE, PRINT BACKSLASH
001122 5330 JMP RP2
001123 1365 RP1, TAD P210 /SCOPE, PRINT BACK SPACE
001124 4473 JMS I OUT1
001125 1030 TAD C240 /THEN A SPACE
001126 4473 JMS I OUT1
001127 1365 TAD P210 /THEN ANOTHER BACK SPACE
001130 4473 RP2, JMS I OUT1
/DELETE CHAR FROM BUFFER
001131 1016 TAD AXIN /GET LAST WORD OF INPUT
001132 3111 DCA MOV1
001133 6211 CDF 10
001134 3525 DCA I BUFR /PREVENTS INFINITE RUBOUTS
001135 1511 TAD I MOV1
001136 2113 ISZ XCTIN /WHICH HALF OF WORD?
001137 5356 JMP RUB2
001140 0007 AND C77
001141 1027 TAD M77
001142 7640 SZA CLA /TEST EXTENSION
001143 5353 JMP RUB4
001144 7040 RUB3, CMA
001145 3113 DCA XCTIN
001146 7040 CMA
001147 1016 TAD AXIN
001150 3016 DCA AXIN
001151 1511 TAD I MOV1
001152 0026 AND P7700
001153 3161 RUB4, DCA ADD
001154 6201 CDF 0
001155 5460 JMP I IGNORE /CHIN+1
001156 0026 RUB2, AND P7700
001157 1011 TAD C100
001160 7640 SZA CLA
001161 5344 JMP RUB3
001162 3511 DCA I MOV1
001163 5345 JMP RUB3+1
001164 0334 SPLAT, 334 /ACKNOWLEDGE RUBOUT
001165 0210 P210, 210
001166 7726 P7726, 7726
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 27
/-----------------------------------------------------------------------
001167 6030 CON, 6030 /CONVERSION CONSTANTS
001170 7634 7634
001171 7766 7766
001172 7777 7777
/I-O SUBROUTINES
/HANDLER FOR S COMMAND
001173 4462 XCRET, JMS I KEYBD /GET THE SEARCH CHARACTER
001174 3052 DCA LIST3+1 /SAVE IT IN LIST
001175 1102 TAD SXS2
001176 3503 DCA I L3I /MAKE LISTER JUMP TO SLOOK
001177 1125 TAD BUFR
001200 3016 DCA AXIN /BUILD NEW TEXT IMAGE HERE
001201 3113 DCA XCTIN
001202 1057 TAD CHI1 /READ POINT IS CHIN
001203 7001 IAC
001204 3060 DCA IGNORE
001205 5467 JMP I LIS1
/LIST OF SPECIAL CHARACTERS FOR G COMMAND
1206 TAGLIST=.
001206 1377 GTAG2 /SPACE
001207 1377 GTAG2 //
001210 1377 GTAG2 /ESC
001211 1377 GTAG2 /TAB
001212 1377 GTAG2 /CARRIAGE RETURN
/HANDLER FOR $ (PART OF M COMMAND)
001213 1162 MOVE, TAD ARG0 /ARG2 .GE. ARG0
001214 7041 CIA
001215 1164 TAD ARG2
001216 7710 SPA CLA /ARE LINES TO BE MOVED LEGITIMATE
001217 4143 ERROR /NO
001220 1162 TAD ARG0 /YES-
001221 3111 DCA MOV1 /SET POINTER TO FIRST LINE
001222 1164 TAD ARG2
001223 3170 DCA MOV2 /SET POINTER TO LAST LINE
001224 5476 JMP I ONUM /CONTINUE COMMAND INPUT
/-----------------------------------------------------------------------
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 28
/SET UP APPEND, CHANGE, INSERT TO WORK
/EACH READS KEYBOARD, NOT DEVICE
001225 7777 CNGEL, CNGE1-XNS1
001226 0004 XNSL, XNS1-APP1
/HANDLER FOR C COMMAND
001227 1225 CNGE, TAD CNGEL
/HANDLER FOR I COMMAND
001230 1226 XNS, TAD XNSL
/HANDLER FOR A COMMAND
001231 1305 APP, TAD APPL
001232 3236 DCA DEST /RETURN POINT
001233 2114 ISZ ECHOSW
001234 4742 JMS I PSETUP
001235 3132 CHIN /KEYBOARD INPUT
001236 0424 DEST, APP1
/SPECIAL OUTPUT LIST
1237 OUTLIS=.
001237 3056 ESCOUT /233 - ESC - V12
001240 3115 OUTTAB /211 - TAB
001241 3100 OUTCRL /215 - CARRIAGE RETURN
001242 3050 OUTX+1 /212 - LINE FEED
001243 3050 OUTX+1 /214 - FORM FEED
001244 3050 OUTX+1 /377 - RUBOUT
001245 3046 OUTX-1 /207 - CNTRL G - BELL
001246 3074 BCKSPC /210 - CNTRL H - BACKSPACE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 29
/HANDLER FOR P COMMAND
001247 3116 PUNCHQ, DCA TABIND /ORIGINAL DEC PATCH
001250 2114 PUNCH, ISZ ECHOSW
001251 1136 TAD BUFWTI /SETUP TO WRITE INTO OUTPUT BUFFER
001252 3121 DCA OUTDEV
001253 4470 PUNC, JMS I LIS /WRITE THE EDITOR BUFFER
001254 1045 TAD C214 /OUTPUT FORM FEED
001255 4521 JMS I OUTDEV
/HANDLER FOR T COMMAND
001256 6211 PUNCT, CDF 10
001257 1567 TAD I K7600
001260 6201 CDF 0
001261 7650 SNA CLA /IS THERE AN OUTPUT DEVICE?
001262 5555 JMP I TE1 /NO*RETURN TO COMMAND MODE*
001263 1136 TAD BUFWTI /YES - SET UP TO WRITE INTO
001264 3121 DCA OUTDEV /OUTPUT BUFFER
001265 1010 TAD M41 /V40
001266 3170 DCA TEMPO /SET TRAILER COUNTER
001267 6212 CIF 10
001270 4565 JMS I POTYPE /
001271 7700 SMA CLA /DIRECTORY DEVICE FOR OUTPUT?
001272 4521 JMS I OUTDEV /NO - OUTPUT LEADER TRAILER
001273 2170 ISZ TEMPO /DONE YET?
001274 5267 JMP .-5 /NO - CONTINUE
001275 6041 TSF /YES - RESET FLAG
001276 5275 JMP .-1
001277 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 30
/HANDLER FOR R COMMAND
1300 TELE=.
001300 6041 TELEN, TSF
001301 5300 JMP .-1
001302 3114 DCA ECHOSW /INHIBIT ECHO
001303 4742 JMS I PSETUP /SETUP TO READ FROM
001304 2031 BUFRD /INPUT DEVICE
001305 0424 APPL, APP1 /APPEND TEXT TO BUFFER
/HANDLER FOR Y COMMAND
001306 1330 YANK, TAD COM1 /YANK KILLS 'P' PART OF N
001307 5311 JMP COMBOA
/HANDLER FOR N COMMAND
001310 1141 COMBO, TAD JMPCH /YANK WIPES COM1-1
001311 3464 COMBOA, DCA I CCON+1
001312 1162 TAD ARG0
001313 7450 SNA /ANY ARGUMENTS
001314 7001 IAC /NO - ASSUME 1
001315 7041 CIA
001316 3111 DCA COUNTP /SET NUMBER OF PAGES TO YANK
001317 1063 TAD CCON /(JMP I AXCOMB)
001320 3555 DCA I TE1 /SET TE1 TO ALLOW LOOPING
001321 1064 COMB, TAD CCON+1 /THROUGH PUNCH, KILL, READ
001322 3014 DCA AXCOMB /CYCLE
001323 3162 DCA ARG0 /CLEAR ARGUMENTS
001324 3164 DCA ARG2
001325 3175 DCA LSTCHK /DON'T INHIBIT LISTER!
001326 3116 DCA TABIND /CLEAR IN CASE OF MULTIPLE N
001327 5253 JMP PUNC /OUTPUT BUFFER
001330 5527 COM1, JMP I KILL1 /KILL BUFFER
001331 5300 JMP TELEN /READ NEW BUFFER FULL
001332 2111 ISZ COUNTP /DONE YET?
001333 5321 JMP COMB /NO - CONTINUE
001334 7324 CLA CLL CML RAL /YES-AC=1 - RESET CURRENT LINE NUMBER
001335 3156 DCA THSN /.=1 ON RETURN
001336 1075 COM5, TAD CZ /RESTORE TE1
001337 3555 DCA I TE1
001340 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/IT IS VITAL TO KEEP DUMB1 AND COM5 ON THE SAME PAGE
001341 2244 DUMB1, JERK1
001342 0617 PSETUP, SETUP /V3
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 31
/-----------------------------------------------------------------------
1343 LIST1=.
001343 0212 212 /LINE FEED
001344 0240 240 /SPACE
001345 0253 253 /PLUS (+)
001346 0254 254 /COMMA (,)
001347 0255 255 /MINUS (-)
001350 0256 256 /PERIOD (.)
001351 0257 257 /SLASH (/)
001352 0274 274 /<
001353 0275 275 /=
001354 0276 276 />
001355 0000 000 /DUMMY FOR . AND /
001356 0243 "# /FOR VERSION V40
001357 0375 375 /ALTMODE ASR-33
001360 0376 376 /ALTMODE ASR-35
001361 0233 233 /ESCAPE KEY
001362 0242 242 /DOUBLE QUOTE (")
001363 0244 244 /DOLLAR SIGN ($)
001364 0377 377 /RUBOUT
001365 0272 272 /COLON (:)
001366 0215 LIST1A, 215 /CARRIAGE RETURN
001367 0225 225 /^U
001370 0203 203 /^C
/HANDLER FOR G COMMAND
001371 2156 GETTAG, ISZ THSN
001372 1162 TAD ARG0
001373 7450 SNA /ANY ARGUMENTS
001374 1156 TAD THSN /NO - BEGIN WITH NEXT LINE (.+1)
001375 3162 DCA ARG0 /YES - SET ARGUMENTS
001376 7410 SKP
001377 2162 GTAG2, ISZ ARG0
001400 7001 IAC
001401 1162 TAD ARG0
001402 4466 JMS I FIN1 /GET NEXT LINE
001403 3013 DCA AXOUT
001404 7040 CMA
001405 3112 DCA XCT
001406 4465 JMS I UTR1 /UNPACK FIRST CHARACTER
001407 4477 JMS I SORTJ /DOES IT BEGIN A TAG?
001410 0027 LIST7-1 /NO - TAGLIST EXITS
001411 1156 TAGLIST-LIST7 /TO GTAG2
001412 5467 JMP I LIS1 /YES - PRINT LINE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 32
0163 MP1=ARG1
0162 MP2=ARG0
0164 MP3=ARG2
/HANDLER FOR M COMMAND
/ENTER WITH FIRST LINE TO MOVE IN MOV1
/LAST LINE TO MOVE IN MOV2
/MOV2 .GT. MOV1
/DESTINATION LINE IN ARG2
001413 1111 MOVEM, TAD MOV1
001414 7041 CIA /ARG2 MAY NOT BE BETWEEN
001415 1164 TAD ARG2 /MOV1 AND MOV2
001416 7710 SPA CLA /IS MOV1 .GT. ARG2?
/-----------------------------------------------------------------------
001417 5225 JMP .+6 /YES - O.K.
001420 1170 TAD MOV2
001421 7040 CMA
001422 1164 TAD ARG2
001423 7750 SPA SNA CLA /IS MOV2 .LT. ARG2?
001424 4143 ERROR /NO-FAULTY LOGIC IN COMMAND
001425 1111 TAD MOV1 /YES
001426 4466 JMS I FIN1
001427 3163 DCA MP1 /STORE FIRST LINE POINTER
001430 7001 IAC
001431 1170 TAD MOV2
001432 4466 JMS I FIN1
001433 3162 DCA MP2 /STORE LAST LINE POINTER
001434 1164 TAD ARG2
001435 4466 JMS I FIN1
001436 3164 DCA MP3 /STORE DESTINATION LINE POINTER
001437 6211 CDF 10 /ALL FOUND
001440 1563 TAD I MP1 /SWAP POINTERS-
001441 3117 DCA TEMP /RESET THE LINK COORDS
001442 1562 TAD I MP2
001443 3563 DCA I MP1
001444 1564 TAD I MP3
001445 3562 DCA I MP2
001446 1117 TAD TEMP
001447 3564 DCA I MP3
001450 6201 CDF 0
001451 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
1452 SRNLST=.
001452 1002 SBAR /BACK ARROW (_)
001453 0745 L2 /FORM FEED
001454 0771 SCONT /BELL
001455 0774 SLINE /LINE FEED
001456 1103 RUB1 /RUB OUT
1457 LISTGO=.
001457 0756 SRETN /CARRIAGE RETURN
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 32-1
001460 1013 SGOT /SEARCH CHARACTER FOUND
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 33
/HANDLER FOR E COMMAND
001461 1133 ENDFIL, TAD EKILLL /IS E COMMAND ALLOWED?
001462 7640 SZA CLA
001463 4143 ERROR /NO-NO INPUT SPECIFIED
001464 7240 CLA CMA /YES-RESET ARGUMENTS
001465 3162 DCA ARG0
001466 1151 TAD JMPTE1 /SKIP LISTER IF EMPTY BUFFER
001467 3532 DCA I L1I
001470 1274 TAD FLCLSI /CLOSE FILE SETUP
001471 3144 DCA ELIM /CLOSES FILE ON READ FAILURE
001472 5673 JMP I COMBOP
001473 1310 COMBOP, COMBO
001474 5537 FLCLSI, JMP I CLFLI
001475 0446 AONEI, AONE
/HANDLER FOR ^U IN TEXT MODE
001476 1034 CTRLU, TAD CCR /AND A CR/LF
001477 4473 JMS I OUT1
001500 5675 JMP I AONEI /AND CONTINUE
/CHECK VALIDITY OF ARGUMENTS
/FOR D COMMAND
001501 0000 CHKARX, 0
001502 1162 TAD ARG0
001503 7041 CIA
001504 7001 IAC
001505 1163 TAD ARG1
001506 1157 TAD LSTN
001507 7710 SPA CLA /DO LINES EXIST?
001510 4143 ERROR /NO
001511 5701 JMP I CHKARX /YES--RETURN--
/HANDLER FOR .
001512 1156 PERI, TAD THSN
001513 7410 SKP
/HANDLER FOR /
001514 1157 SLAS, TAD LSTN
001515 3117 DCA TEMP /SAVE LINE NUMBER
001516 3110 DCA CHAR
001517 2175 ISZ LSTCHK /GOT EITHE . OR / IN ARGS
001520 5721 JMP I .+1 /FETCH REST OF ARGUMENT
001521 0240 GLOM
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 34
/HANDLER FOR SPACE IN TEXT MODE
001522 1114 SPACES, TAD ECHOSW
001523 7200 CLA /OR SZA CLA IF B OPTION
001524 5506 JMP I SPCNO /PACK IT - (MOR+4)
001525 7040 CMA /SET COUNTER
001526 3112 SP2, DCA CNT
001527 4535 JMS I BUFRDI /GET LAST CHARACTER
001530 1022 TAD M240
001531 7650 SNA CLA /WAS IT SPACE?
001532 5326 JMP SP2 /YES-IGNORE EXTRA SPACES
/-----------------------------------------------------------------------
001533 1110 TAD CHAR /NO
001534 3115 DCA SAVE /SAVE NON-SPACE
001535 2112 ISZ CNT /WAS THERE MORE THAN 1 SPACE?
001536 1042 TAD M27 /YES- STORE TAB
001537 1030 TAD C240 /NO-STORE SPACES
001540 3110 DCA CHAR
001541 4500 JMS I PACK1
001542 1115 TAD SAVE
001543 5507 JMP I SPCGO /SORT - (MOR+1)
/HANDLER FOR K COMMAND
001544 1162 KILL, TAD ARG0 /IN CASE HE TYPED N,MK
001545 7640 SZA CLA /INSTEAD OF N,ML. SAVE HIM!!
001546 4143 ERROR
001547 1061 TAD END /RESET BUFFER POINTERS
001550 3125 DCA BUFR /TO REFLECT EMPTY BUFFER
001551 3157 DCA LSTN
001552 3156 DCA THSN
001553 6211 CDF 10 /ZERO FIELD 1 POINTER
001554 3526 DCA I CFRS
001555 6201 CDF 0
001556 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 35
001557 0670 OPS1, EXNEX /LINE FEED
001560 0226 GEXP /SPACE
001561 0226 GEXP /PLUS
001562 2716 FIRS /COMMA
001563 0227 GMIN /MINUS
001564 1512 PERI /POINT(.)
001565 1514 SLAS /SLASH
001566 0667 EXLAS /BACKUP(<)
001567 1051 PRNT /=
001570 0670 EXNEX /ALT(>)
001571 0231 DBCV2 /DUMMY FOR . AND /
001572 2326 VERSN /# VERSION
001573 2235 AMODE /ALTMODE ASR-33
001574 2235 AMODE /ALTMODE ASR-35
001575 2235 AMODE /ESCAPE KEY
001576 2275 DBLQUO /"
001577 1213 MOVE /DOLLAR SIGN
001600 0144 ELIM /COMMAND RUBOUT
001601 1051 PRNT /:
001602 0222 GTOP-2 /CARRIAGE RETURN
001603 0203 START /^U
001604 1753 MONIT /^C (MONITOR RESTART)
001605 0261 OPS1A, RETRN /RETURN
/-----------------------------------------------------------------------
001606 0203 OLDTE1, START /^U
001607 1753 MONIT /^C
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 36
/END OF A NEW TEXT LINE
/PACK CARRIAGE RETURN INTO BUFFER
/SET LINK CELLS AROUND NEW LINE
/ENTER WITH:
/ CHAR CONTAINS CARRIAGE RETURN
/ THIS CONTAINS ADDRESS OF LINK
/ CELL OF PRECEDING TEXT LINE
/ XSAV CONTAINS ADDRESS OF LINK
/ CELL OF FOLLOWING TEXT LINE
/ BUFR CONTAINS ADDRESS OF LINK
/ CELL OF NEW TEXT LINE
001610 0000 ENDLN, 0
001611 4500 JMS I PACK1 /PACK CARRIAGE RETURN
001612 6211 CDF 10
001613 1161 TAD ADD
001614 7440 SZA
001615 3416 DCA I AXIN
001616 1125 TAD BUFR /RESET LINK CELL
001617 3520 DCA I THIS /OF PREVIOUS LINE
001620 1124 TAD XSAV
001621 3525 DCA I BUFR /RESET LINK CELL OF NEW LINE
001622 1125 TAD BUFR
001623 3120 DCA THIS /RESET POINTER TO LINK CELL
001624 2016 ISZ AXIN
001625 1016 TAD AXIN
001626 3125 DCA BUFR /RESET FOR NEXT LINE
001627 3113 DCA XCTIN /CR CHARACTER SWITCH
001630 6201 CDF 0
001631 5610 JMP I ENDLN /--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 37
/CHECK FOR CONTROL C
001632 0000 CTCK, 0
001633 1024 TAD C200
001634 6034 KRS
001635 1172 TAD X203
001636 7450 SNA
001637 5552 JMP I MONITOR
001640 5632 JMP I CTCK
/LOW SPEED INPUT ROUTINE
/CHECKS FOR ^C
/EXIT WITH CHARACTER IN AC
001641 0000 I33, 0
001642 6031 KSF
001643 5242 JMP .-1
001644 4232 JMS CTCK
001645 6036 KRB
001646 0020 AND P177
001647 1024 TAD C200
001650 5641 JMP I I33 /NO--RETURN--
/LOW SPEED OUTPUT ROUTINE
/ENTER WITH CHARACTER IN AC
001651 0000 OUTL, 0
001652 6046 TLS
001653 6041 TSF
001654 5253 JMP .-1
001655 4257 JMS COPSQ /CHECK ^COPSQ
001656 5651 JMP I OUTL /NO, --RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 38
001657 0000 COPSQ, 0
001660 7200 CLA
001661 6031 KSF /IS KEYBOARD ACTIVE?
001662 5657 JMP I COPSQ /NO
001663 4232 CHKAGA, JMS CTCK /GET CHAR, CHECK ^C
001664 1377 TAD (-20+3 /WAS IT ^P?
001665 7440 SZA
001666 7001 IAC /NO, WAS IT ^O?
001667 7450 SNA
001670 5305 JMP CLRCOP /CLEAR EITHER ^O OR ^P
001671 1376 TAD (-23+17 /FINALLY, WAS IT ^S?
001672 7450 SNA
001673 5301 JMP CTRLS /YES, HANG UP
001674 7001 IAC
001675 7001 IAC
001676 7650 SNA CLA /OR WAS IT ^Q?
001677 6032 KCC /YES, THROW AWAY
001700 5657 JMP I COPSQ /NOW GO ON
001701 6032 CTRLS, KCC /CLEAR ^S
001702 6031 KSF
001703 5302 JMP .-1 /WAIT FOR ^Q HOPEFULLY
001704 5263 JMP CHKAGA /INVESTIGATE NEW CHAR
001705 6032 CLRCOP, KCC
001706 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 39
/RESET POINTERS AND SAVE BUFFERS
001707 4346 RESET3, JMS FXSTWD
001710 6212 CIFTEN, CIF 10 /CLEAR BIT 11 OF JSW
001711 4426 JMS I P7700 /CALL USER SERVICE ROUTINES
001712 0010 10 /*LOCK USR IN CORE*
001713 1310 TAD CIFTEN /RESET POINTERS
001714 3741 DCA I BUFRD1
001715 3133 DCA EKILLL
001716 1206 TAD OLDTE1
001717 3155 DCA TE1
001720 1075 TAD CZ
001721 3555 DCA I TE1
001722 1167 TAD K7600
001723 3144 DCA ELIM
001724 1167 TAD K7600
001725 3740 DCA I SPCP1A
001726 1074 TAD LOW
001727 3121 DCA OUTDEV
001730 2114 ISZ ECHOSW
001731 1141 TAD JMPCH
001732 3464 DCA I CCON+1
001733 2346 ISZ FXSTWD /WASTE TIME FOR TTY FLAG
001734 5331 JMP .-3
001735 6213 CIF CDF 10
001736 5737 JMP I .+1 /GO CALL COMMAND DECODER
001737 6606 START1
001740 1523 SPCP1A, SPACES+1
001741 2032 BUFRD1, BUFRD+1
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 40
001742 4456 DELE, JMS I DELT /DELETE THE LINES
001743 6041 TSF
001744 5343 JMP .-1
001745 5555 JMP I TE1
/CLEAR BIT 11 OF JOB STATUS WORD
001746 0000 FXSTWD, 0
001747 6212 CIF 10
001750 4752 JMS I JSWSET /IF NONZERO TEXT,SAVE BUFFER
001751 5746 JMP I FXSTWD /--RETURN--
001752 7126 JSWSET, INSET
/HANDLER FOR ^C
/AND OTHER EXITS TO MONITOR
001753 4346 MONIT, JMS FXSTWD /SET JOB STATUS TO SAVE CORE
001754 6041 TSF /MAKE SURE TTY FLAG IS SET
001755 5354 JMP .-1
001756 5567 JMP I K7600 /****EXIT TO MONITOR****
IFNDEF GERMAN <
001757 0311 REDMES, "I; "n; "p; "u; "t; 0
001760 0356
001761 0360
001762 0365
001763 0364
001764 0000
001765 0304 DEVMES, "D; "e; "v; "i; "c; "e; 0
001766 0345
001767 0366
001770 0351
001771 0343
001772 0345
001773 0000
>
IFDEF GERMAN <
REDMES, "L; "e; "s; "e; 0
DEVMES, "G; "e; "r; "a; "e; "t; 0
>
001776 7774
001777 7763
2000 PAGE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 41
/-----------------------------------------------------------------------
/-----------------------------------------------------------------------
/READ,WRITE,AND RELATED ROUTINES
0004 OURECS=4 /SIZE OF OUTPUT BUFFER
/HANDLER FOR Q COMMAND
002000 4741 Q, JMS I FXSWDI /CLEAR BIT 11 OF JSW
002001 6211 CDF 10
002002 1567 TAD I K7600
002003 6201 CDF 0
002004 7650 SNA CLA /WAS AN OUTPUT DEVICE SPECIFIED?
002005 4143 ERROR /NO-
002006 1157 FLCLOS, TAD LSTN
002007 7650 SNA CLA /IS BUFFER EMPTY?
002010 5215 JMP FLCLS1 /YES-CLOSE FILE
002011 1261 TAD FLCLI /NO-
002012 3155 DCA TE1 /SET UP RETURN FROM P COMMAND
002013 5614 JMP I .+1
002014 1247 PUNCHQ
/CLOSE FILE ON E OR Q COMMAND
002015 6212 FLCLS1, CIF 10
002016 4763 JMS I OCLSI /CLOSE FILE
002017 5225 JMP CLERR /WAS ERROR
002020 7240 CLA CMA /TELL SYSTEM I/O MONITOR IS IN CORE
002021 6211 CDF 10
002022 3426 DCA I P7700
002023 6201 CDF 0
002024 5567 JMP I K7600 /****EXIT TO MONITOR***
002025 7710 CLERR, SPA CLA
002026 4542 JMS I PRERR /**FILE CLOSE FAILED**2*
002027 0002 2
002030 5273 JMP ERWT+2 /RAN OUT OF SPACE WHILE CLOSING
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 42
/INPUT ROUTINE FROM DEVICE
/VIA INPUT DEVICE HANDLER
002031 0000 BUFRD, 0
002032 6212 CIF 10
002033 4660 JMS I ICHARI /FETCH A CHARACTER
002034 5244 JMP ERRD /ERROR IN READING FROM BUFFER
002035 3110 DCA CHAR /INTERFACE LOCATION
002036 1110 TAD CHAR
002037 0020 AND P177
002040 7450 SNA /IS IT L/T?
002041 5232 JMP BUFRD+1 /YES-GET NEXT CHARACTER
002042 1024 TAD C200 /NO RESTORE CHARACTER
002043 5631 JMP I BUFRD /--RETURN--
002044 7710 ERRD, SPA CLA /FATAL OR EOF?
002045 4542 JMS I PRERR /FATAL-OUTPUT ERROR MESSAGE
002046 0000 0 /*FAILED IN READIN DEVICE*0*
002047 1131 TAD ERSW /DISABLE FURTHER READS
002050 3232 DCA BUFRD+1
002051 1566 TAD I COMM5 /IF THIS IS NEGATIVE, DO ONE
002052 7700 SMA CLA /MORE SEARCH (POSSIBLY) IN THE CASE
002053 5232 JMP BUFRD+1 /THAT NO FINAL FORM FEED EXISTS
002054 7201 CLA IAC /SET CURRENT LINE TO 1 AND SEARCH
002055 3156 DCA THSN /ONCE MORE
002056 5657 JMP I .+1
002057 2440 SFIND2
002060 7412 ICHARI, ICHAR /CHARACTER ROUTINES
002061 2015 FLCLI, FLCLS1
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 43
/OUTPUT ROUTINE TO DEVICE
/VIA OUTPUT DEVICE HANDLER
002062 0000 BUFWT, 0
002063 6212 CIF 10
002064 4744 JMS I OCHARI /OUTPUT A CHARACTER
002065 5271 JMP ERWT /OUTPUT FAILED
002066 1136 BUFRTN, TAD BUFWTI /RESET OUTPUT DEVICE HANDLER POINTER
002067 3121 DCA OUTDEV
002070 5662 JMP I BUFWT /--RETURN--
002071 7710 ERWT, SPA CLA /FATAL, OR NO MORE ROOM?
002072 4542 JMS I PRERR /FATAL-OUTPUT ERROR MESSAGE
002073 0001 1 /*FATAL WRITE ERROR*1*
002074 4741 JMS I FXSWDI /FIX JOB STATUS WORD-NO MORE ROOM
002075 1555 TAD I TE1 /STORE POINTERS
002076 3362 DCA PTE1
002077 1144 TAD ELIM
002100 3361 DCA PELIM
002101 1155 TAD TE1
002102 3360 DCA PPTE1
002103 6211 CDF 10
002104 2743 ISZ I PANICI /SET PANIC DUMP
002105 1345 TAD MORECS /PREPARE TO CLOSE PRESENT OUT FILE
002106 1742 TAD I OCNTI /THIS GIVES OPTIMUM CLOSE LENGTH
002107 7510 SPA
002110 5334 JMP OVRFLW
002111 3742 DCA I OCNTI
002112 1747 TAD I OREC /WRITE A ^Z
002113 3322 DCA CLSREC /DIRECTLY TO THE DEVICE
002114 1750 TAD I OHNDL /HANDLER ENTRY POINT
002115 3170 DCA TEMPO
002116 6201 CDF 0
002117 4570 JMS I TEMPO /CALL OUTPUT DEVICE HANDLER
002120 4110 4110 /THE BUFFER IS A PAGE OF THE EDITOR
002121 7000 7000 /WITH A 232 IN THE FIRST LOCATION
002122 0000 CLSREC, 0 /RECORD NUMBER HERE
002123 4542 JMS I PRERR /**WRITE FAILURE** 1*
002124 0001 1
002125 6213 CDF CIF 10
002126 4763 JMS I OCLSI /CLOSE THE FILE IN PANIC MODE
002127 4542 JMS I PRERR /**FILE CLOSE FAILED**2*
002130 0002 2
002131 6212 CIF 10
002132 4424 JMS I C200 /CALL USER SERVICE ROUTINES
002133 0011 11 /*DISMISS USR FROM CORE*
002134 6201 OVRFLW, CDF 0
002135 7200 CLA
002136 4746 JMS I POINT /PRINT 'FULL'
002137 2164 FULMES
002140 5453 JMP I RST3I /-RESET & CALL COMMAND DECODER
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 44
002141 1746 FXSWDI, FXSTWD
002142 7344 OCNTI, OUCCNT
002143 6746 PANICI, PANIC
002144 7015 OCHARI, OCHAR
002145 7775 MORECS, -OURECS+1 /THIS ALLOWS US TO 'MANUALLY' WRITE
/A FORM FEED AND A ^Z.
002146 2331 POINT, PRINT
002147 7270 OREC, OUREC
002150 7215 OHNDL, OUHNDL
/RESET POINTERS STORED PREVIOUSLY
002151 1360 BUFRET, TAD PPTE1
002152 3155 DCA TE1
002153 1362 TAD PTE1
002154 3555 DCA I TE1
002155 1361 TAD PELIM
002156 3144 DCA ELIM
002157 5266 JMP BUFRTN
002160 0000 PPTE1, 0
002161 0000 PELIM, 0
002162 0000 PTE1, 0
002163 7277 OCLSI, OCLOSE /V3 FILE CLOSE ROUTINE
/-----------------------------------------------------------------------
IFNDEF GERMAN <
002164 0306 FULMES, "F; "u; "l; "l; 240; "!; "!; 215; 212; 0
002165 0365
002166 0354
002167 0354
002170 0240
002171 0241
002172 0241
002173 0215
002174 0212
002175 0000
>
IFDEF GERMAN <
FULMES, "V; "o; "l; "l; 240; "!; "!; 215; 212; 0
>
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 45
002176 0000 SRCBUF, ZBLOCK 24 /SEARCH BUFFER
/SPECIAL CHARACTER LIST FOR STRING SEARCH
2222 SLST=.
002222 0247 247 /"
002223 0242 242 /'
002224 0377 377 /RUBOUT
002225 0203 203 /^C
002226 0225 225 /^U
/-----------------------------------------------------------------------
002227 5741 NEXBUF, DUMB1&177+5600 /JMP I DUMB1
/DISPATCH LIST FOR STRING SEARCH
002230 2431 OSLST, QUO1 /"
002231 2430 QUO2 /'
002232 2573 FORGET /RUBOUT
002233 1753 MONIT /^C
002234 0203 START /^U IN STRING SEARCH
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 46
/HANDLER FOR ALTMODE
002235 3153 AMODE, DCA STRIND /NEED SETUP
002236 4554 JMS I STRFIN /SEARCH FOR STRING
002237 4143 ERROR
002240 1156 TAD THSN /RESULT IS LINE NUMBER
002241 5642 JMP I .+1 /LINK TO COMMAND STRUCTURE
002242 0225 GTOP+1
/HANDLER FOR J COMMAND
002243 3153 JERK, DCA STRIND /SETUP FOR SEARCH
002244 4554 JERK1, JMS I STRFIN /SEARCH FOR STRING
002245 5253 JMP GMOR /GET NEXT BUFFER
002246 6041 TSF
002247 5246 JMP .-1 /JUST TO BE SURE
002250 1075 TAD CZ /RESTORE MONITOR EXIT
002251 3555 DCA I TE1
002252 5555 JMP I TE1 /*POSSIBLE RETURN TO COMMAND MODE*
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 47
/GET NEXT BUFFER FOR S SEARCH
002253 1674 GMOR, TAD I CNTRI
002254 7650 SNA CLA /IS BUFFER EMPTY?
002255 4143 ERROR /NO
002256 2153 ISZ STRIND /YES-BYPASS SETUP
002257 1227 TAD NEXBUF
002260 3566 DCA I COMM5 /SET UP READ OF ONE BUFFER
002261 7001 IAC
002262 3162 DCA ARG0
002263 1133 TAD EKILLL
002264 7640 SZA CLA /IS THERE AN OUTPUT DEVICE?
002265 5667 JMP I .+2 /NO
002266 5670 JMP I .+2 /YES
002267 1306 YANK /NO OUTPUT
002270 1310 COMBO /THERE IS OUTPUT
/HANDLER FOR F COMMAND
002271 2153 BARROW, ISZ STRIND /CONTINUES LOOKING FOR EXISTING STRING
002272 2156 ISZ THSN /INCREMENT FOR NEXT LINE
002273 5244 JMP JERK1
002274 2564 CNTRI, CNTR
/HANDLER FOR "
002275 2156 DBLQUO, ISZ THSN /USES STRING NOW IN BUFFER
002276 2153 ISZ STRIND /NO SETUP REQUIRED
002277 5236 JMP AMODE+1
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 48
/ROUTINE TO REASSIGN INPUT HANDLER
/AFTER A PANIC DUMP AND RESTART
002300 6213 PIASGN, CDF CIF 10
002301 1725 TAD I PINEOF
002302 7640 SZA CLA /IS THERE A HANDLER TO RESTORE?
002303 5721 JMP I PIRETN /NO - BACK TO FIELD 1
002304 1723 TAD I IHPAGE /YES -
002305 3312 DCA PIHND /GET HANDLER PAGE
002306 1724 TAD I IDVNO
002307 6201 CDF 0 /I/O MONITOR IS IN CORE AT THIS POINT
002310 4424 JMS I C200 /CALL USER SERVICE ROUTINES
002311 0001 1 /*FETCH HANDLER*
002312 0000 PIHND, 0
002313 4542 JMS I PRERR /**DEVICE HANDLER ERROR**4**
002314 0004 4
002315 1312 TAD PIHND
002316 6213 CDF CIF 10
002317 3722 DCA I PIHNDL /PUT NEW HANDLER ADDRESS BACK
002320 5721 JMP I PIRETN /AND RETURN
002321 6665 PIRETN, PANOPN /GO OPEN OUTPUT FILES
002322 7436 PIHNDL, INHNDL
002323 7564 IHPAGE, I1 /I1 CONTAINS "INDEVH+1"
002324 7411 IDVNO, INDEV
002325 7561 PINEOF, INEOF
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 49
/HANDLER FOR # COMMAND
002326 4331 VERSN, JMS PRINT
002327 2344 VERMES
002330 5555 JMP I TE1 /PRINT VERSION MESSAGE AND RESTART
002331 0000 PRINT, 0
002332 1731 TAD I PRINT /GET ADD OF MESS
002333 2331 ISZ PRINT
002334 3170 DCA TEMPO
002335 7410 SKP
002336 4474 JMS I OUTL1 /ON TTY:
002337 1570 TAD I TEMPO /FETCH CHARACTER
002340 2170 ISZ TEMPO
002341 7440 SZA /DONE YET?
002342 5336 JMP .-4
002343 5731 JMP I PRINT /YES
0005 VV1=VERSION%12
0062 VV2=VV1^12
002344 0326 VERMES, "V; "0+VV1; "0+VERSION-VV2; PATCH; 0
002345 0265
002346 0260
002347 0330
002350 0000
IFNDEF GERMAN <
002351 0317 WRTMES, "O; "u; "t; "p; "u; "t; 0
002352 0365
002353 0364
002354 0360
002355 0365
002356 0364
002357 0000
002360 0305 OPNMES, "E; "n; "t; "e; "r; 0
002361 0356
002362 0364
002363 0345
002364 0362
002365 0000
>
IFDEF GERMAN <
WRTMES, "S; "c; "h; "r; "e; "i; "b; 0
OPNMES, "E; "i; "n; "t; "r; "a; "g; "u; "n; "g; "s; 0
>
2400 PAGE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 50
/-----------------------------------------------------------------------
/-----------------------------------------------------------------------
/STRING SEARCH ROUTINE
/CALLED BY $(ALTMODE) AND J COMMAND HANDLERS
002400 0000 SFIND1, 0
002401 2114 ISZ ECHOSW
002402 1153 TAD STRIND /IS SETUP NECESSARY
002403 7640 SZA CLA
002404 5240 JMP SFIND2 /NO.
002405 1372 TAD MSCNT
002406 3366 DCA BUFCNT /SET COUNTER
002407 1371 TAD SBUF
002410 3016 DCA AXIN /BEGIN SEARCH BUFFER
002411 1361 TAD ATSIGN
002412 4474 JMS I OUTL1 /OUTPUT $
002413 2116 ISZ TABIND
002414 4457 RLOOP, JMS I CHI1 /FETCH CHARACTER FROM TTY
002415 4477 JMS I SORTJ /IS IT SPECIAL FOR SEARCH STRING?
002416 2221 SLST-1 /YES-HANDLE IT
002417 0006 OSLST-SLST
002420 2366 ISZ BUFCNT /NO-SEARCH BUFFER FULL?
002421 5225 JMP STORE /NO-STORE THIS CHARACTER
002422 7240 CLA CMA
002423 3366 DCA BUFCNT /YES-DON'T ALLOW ANY MORE
002424 5213 JMP RLOOP-1 /BUT KEEP ECHOING HIS
002425 1110 STORE, TAD CHAR /STORE CHARACTER IN SEARCH BUFFER
002426 3416 DCA I AXIN
002427 5214 JMP RLOOP
/HANDLER FOR "
002430 1156 QUO2, TAD THSN /START AT .+1
/HANDLER FOR '
002431 7001 QUO1, IAC /START AT .=1
002432 3156 DCA THSN
002433 1016 TAD AXIN
002434 7041 CIA /MAKE UP COUNT OF NO. CHARS NOW IN
002435 1371 TAD SBUF /SEARCH BUFFER
002436 3364 DCA CNTR
002437 3416 DCA I AXIN /END STRING WITH A 0
002440 1364 SFIND2, TAD CNTR
002441 7650 SNA CLA /IS BUFFER EMPTY?
002442 5335 JMP ER1 /YES-PREPARE TO EXIT
002443 4350 JMS NUCHAR /NO GET FIRST STRING CHARACTER
002444 1156 TAD THSN
002445 4466 JMS I FIN1 /GET APPROPRIATE POINTER
002446 3120 DCA THIS /THE TRICK IS TO GET THE NEXT
002447 3370 DCA CHFND
002450 6211 CDF 10 /POINTER SO THAT WE NEVER HAVE TO GO
002451 1520 TAD I THIS /BACK TO THE FIND ROUTINE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 51
002452 3363 COMBAK, DCA TMP2
002453 1763 TAD I TMP2
002454 3367 DCA NEXTPT
002455 6201 CDF 0
002456 1156 TAD THSN
002457 7041 CIA
002460 1157 TAD LSTN
002461 7710 SPA CLA /LAST LINE?
002462 5335 JMP ER1 /YES-FINISHED WITH BUFFER
002463 1363 TAD TMP2 /NO
002464 3013 DCA AXOUT /SET TO UNPACK CHARACTERS
002465 7040 CMA
002466 3112 DCA XCT
002467 4465 UPK1, JMS I UTR1 /UNPACK A CHARACTER
002470 3363 DCA TMP2
002471 1363 TAD TMP2
002472 1021 TAD MCR
002473 7640 SZA CLA /END OF LINE?
002474 5303 JMP NOCR /NO
002475 2156 ISZ THSN /YES-INCREMENT LINE COUNTER
002476 4350 JMS NUCHAR /FORGET PREVIOUS MATCHES ON NEW LINE
002477 3370 DCA CHFND
002500 6211 CDF 10
002501 1367 TAD NEXTPT /AND GET NEXT LINE
002502 5252 JMP COMBAK
002503 1363 NOCR, TAD TMP2 /CHARACTER OTHER THAN CARRIAGE RETURN
002504 1362 TAD TMP1 /GET A CHARACTER FROM SEARCH BUFFER
002505 7640 SZA CLA /DO THEY MATCH
002506 5314 JMP UPK /NO
002507 2370 ISZ CHFND /YES-BUMP A RANDOM POINTER
002510 7240 CLA CMA
002511 3365 DCA FMATCH /SIGNIFY FIRST MATCH
002512 4344 JMS NUCHA /GET NEXT SEARCH CHARACTERR
002513 5267 JMP UPK1 /AND ANOTHER BUFFER CHARACTER
002514 2365 UPK, ISZ FMATCH /WAS THIS FIRST MATCH?
002515 5326 JMP NOTSO /NO-NO PROBLEM
002516 1112 TAD XCT /YES-DON'T LET THE POINTERS BE
002517 7710 SPA CLA /BE CHANGED
002520 5325 JMP WREK
002521 7040 CMA
002522 1013 TAD AXOUT
002523 3013 DCA AXOUT
002524 7040 CMA
002525 3112 WREK, DCA XCT
002526 4350 NOTSO, JMS NUCHAR /GET FIRST CHARACTER OF SEARCH STRING
002527 3370 DCA CHFND
002530 5267 JMP UPK1 /TRY AGAIN
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 52
002531 1370 STFIN, TAD CHFND /END OF STRING-DO COUNTS MATCH?
002532 1364 TAD CNTR
002533 7650 SNA CLA
002534 5342 JMP GOOD /YES-SEARCH SUCCESSFUL
002535 1157 ER1, TAD LSTN /IF BUFFER EMPTY, SET .=0
002536 7640 SZA CLA
002537 7001 IAC
002540 3156 DCA THSN
002541 7410 SKP /CAUSE ERROR RETURN (?)
002542 2200 GOOD, ISZ SFIND1 /INCREMENT RETURN
002543 5600 JMP I SFIND1 /--RETURN--
/GET NEXT SEARCH CHARACTER
002544 0000 NUCHA, 0
002545 1344 TAD .-1 /SET TO RETURN FROM NUCHAR
002546 3350 DCA NUCHAR
002547 5353 JMP NEXX
/GET FIRST CHARACTER OF SEARCH STRING
002550 0000 NUCHAR, 0
002551 1371 TAD SBUF
002552 3016 DCA AXIN
002553 1416 NEXX, TAD I AXIN
002554 7450 SNA /END OF STRING?
002555 5331 JMP STFIN /YES
002556 7041 CIA /NO - NEGATE SEARCH CHARACTER
002557 3362 DCA TMP1 /AND STORE IT
002560 5750 JMP I NUCHAR /--RETURN--
2175 ENDA=SRCBUF-1
002561 0244 ATSIGN, 244
002562 0000 TMP1, 0
002563 0000 TMP2, 0
002564 0000 CNTR, 0
002565 0000 FMATCH, 0
002566 0000 BUFCNT, 0
002567 0000 NEXTPT, 0
002570 0001 CHFND, 1 /MUST BE NONZERO INITIALLY
002571 2175 SBUF, ENDA
002572 7754 MSCNT, -24
/HANDLER FOR RUBOUT IN SEARCH STRING
002573 1034 FORGET, TAD CCR
002574 4473 JMS I OUT1 /OUTPUT CARRIAGE RETURN
002575 5201 JMP SFIND1+1
2600 PAGE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 53
/-----------------------------------------------------------------------
/-----------------------------------------------------------------------
0111 THISX=COUNTP
0143 THISX2=DTEM
/GARBAGE COLLECTION ROUTINE
/ENTER WITH NUMBER OF LINE TO BE DELETED
/IN AC
002600 0000 GARBAG, 0
002601 3267 DCA LINPTR /SAVE OBJECT LINE ADDRESS
002602 1267 TAD LINPTR
002603 3014 DCA AXCOMB /SCAN LINE LOOKING FOR 7715 OR 1500 (CR)
002604 7001 IAC /CNT HOLDS
002605 3112 DCA CNT /TOTAL # LOCS IN THIS LINE
002606 6211 CDF 10
002607 2112 COLECT, ISZ CNT
002610 1414 TAD I AXCOMB /GET A WORD
002611 1270 TAD K63
002612 7450 SNA /IS IT 7715?
002613 5217 JMP FINONE /YES-END OF LINE
002614 1320 TAD K6215
002615 7640 SZA CLA /NO-IS IT 1500?
002616 5207 JMP COLECT /NO-TRY NEXT WORD
002617 1112 FINONE, TAD CNT /YES MINUS CNT GIVES AMOUNT
002620 7041 CIA /TO REDUCE CERTAIN POINTERS
002621 3315 DCA RELCNT
002622 6201 CDF 0
002623 7001 IAC /GO THROUGH LIST OF POINTERS
002624 4466 JMS I FIN1 /& OFFSET POINTERS WHICH WILL BE MOVED
002625 6211 CDF 10 /MOVED ALONG WITH TEXT
002626 3111 GBG2, DCA THISX /SAVE POINTER
002627 1511 TAD I THISX /GET ADDRESS OF THIS LINE
002630 7450 SNA /DONE WITH STRING?
002631 5236 JMP GBGEND /YES
002632 4271 JMS CGEPTR /DECREASE POINTER IF NECESSARY
002633 3511 DCA I THISX /STORE NEW POINTER
002634 1143 TAD THISX2
002635 5226 JMP GBG2 /DO NEXT LINE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 54
002636 6201 GBGEND, CDF 0 /ALL POINTERS ARE REDUCED. NOW,
002637 7120 CLL CML
002640 1125 TAD BUFR /PHYSICALLY MOVE CORE TO
002641 7041 CIA /CORRESPOND WITH POINTERS
002642 1014 TAD AXCOMB /AXCOMB POINTS TO FIRST LOC. TO GO
002643 7520 SMA SNL /POINTERS O.K.?
002644 4143 ERROR /NO
002645 3112 DCA XCT /YES-SET UP OTHER POINTERS
002646 6211 CDF 10
002647 7040 CMA
002650 1267 TAD LINPTR
002651 3013 DCA AXOUT
002652 1414 TAD I AXCOMB /MOVE TEXT
002653 3413 DCA I AXOUT
002654 2112 ISZ XCT /ALL TEXT MOVED?
002655 5252 JMP .-3 /NO-CONTINUE MOVING
002656 6201 CDF 0 /YES
002657 1013 TAD AXOUT
002660 3125 DCA BUFR /RESET TOP OF BUFFER
002661 1125 TAD BUFR /REDUCE AXIN FOR CHARACTER SEARCH
002662 3016 DCA AXIN
002663 1120 TAD THIS /NOW DECREASE THIS IF IT IS NECESSARY
002664 4271 JMS CGEPTR
002665 3120 DCA THIS
002666 5600 JMP I GARBAG /--RETURN--
002667 0000 LINPTR, 0
002670 0063 K63, 63
002671 0000 CGEPTR, 0 /THIS ROUTINE DETERMINES IF THE
002672 3143 DCA THISX2 /OF THE AC MUST BE DECREASED BY RELCNT.
002673 7100 CLL /IF THISX2 IS GREATER THAN LINPTR
002674 1143 TAD THISX2 /DECREASE THISX2 BY RELCNT.
002675 7041 CIA
002676 1267 TAD LINPTR /THIS EFFECTIVELY DECREASE ALL POINTERS
002677 7620 SNL CLA /WHICH HAVE TO BE RELOCATED
002700 1315 TAD RELCNT
002701 1143 TAD THISX2
002702 5671 JMP I CGEPTR
/HANDLER FOR V COMMAND
002703 1377 VIEW, TAD (LPT /SET UP LISTER TO EXIT TO LPT
002704 3121 DCA OUTDEV
002705 2116 ISZ TABIND
002706 4470 JMS I LIS /LIST BUFFER
002707 6254 6254 /SKIP ON MULTI8
002710 1314 TAD XFFCTZ /NORMAL IS FF
002711 1134 TAD P232 /MULTI8 EOF, FF FROM MULTI8
002712 4521 JMS I OUTDEV
002713 5555 JMP I TE1 /*RETURN TO COMMAND MODE*
002714 7762 XFFCTZ, 214-232
002715 0000 RELCNT, 0
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 55
/HANDLER FOR ,
002716 1164 FIRS, TAD ARG2
002717 5476 JMP I ONUM
002720 6215 K6215, 6215
/THE FOLLOWING GIVES ERROR MESSAGES FOR I/O RELATED ERRORS
/EACH IS A FATAL ERROR AND WILL ALWAYS EXIT THROUGH
/7600, SAVING THE TEXT BUFFER.
/N IS THE ERROR IDENTIFICATION CODE
/N=0=> FAILED IN READING DEVICE
/N=1=> FATAL WRITE ERROR
/N=2=> FILE CLOSE ERROR
/N=3=> FILE OPEN ERROR
/N=4=> DEVICE HANDLER ERROR
002721 0000 DEVERR, 0
002722 1721 TAD I DEVERR
002723 6201 CDF 0
002724 1376 TAD (ERRLIS
002725 3334 DCA ERRARG
002726 1734 TAD I ERRARG
002727 3334 DCA ERRARG
002730 6046 TLS
002731 6041 TSF
002732 5331 JMP .-1
002733 4775 JMS I (PRINT /SEND ERROR CODE
002734 0000 ERRARG, 0 /GETS ADDRESS OF MESSAGE
002735 4775 JMS I (PRINT
002736 2745 ERRERR /PRINT "error"
002737 5552 JMP I MONITO /****EXIT TO MONITOR****
002740 1757 ERRLIS, REDMES /0
002741 2351 WRTMES /1
002742 2757 CLSMES /2
002743 2360 OPNMES /3
002744 1765 DEVMES /4
IFNDEF GERMAN <
002745 0240 ERRERR, 240; "E; "r; "r; "o; "r; 240; "^; "C; 0
002746 0305
002747 0362
002750 0362
002751 0357
002752 0362
002753 0240
002754 0336
002755 0303
002756 0000
002757 0303 CLSMES, "C; "l; "o; "s; "e; 0
002760 0354
002761 0357
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 55-1
002762 0363
002763 0345
002764 0000
>
IFDEF GERMAN <
ERRERR, "-; "F; "e; "h; "l; "e; "r; 240; "^; "C; 0
CLSMES, "A; "b; "s; "c; "h; "l; "u; "s; "s; 0
>
002775 2331
002776 2740
002777 3144
3000 PAGE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 56
/-----------------------------------------------------------------------
/-----------------------------------------------------------------------
/THE CODE AT 3000 IS ONCE ONLY CODE. IT TAKES THE FIELD 1
/PART OF THE CODE WHICH IS INITIALLY IN FIELD 0 AND MOVES
/IT UP TO THE PROPER LOCATIONS IN FIELD 1.
3177 XYZTUV=(LPT /IDENTIFIER FOR SET
003000 1376 INIT, TAD (3177 /COLD LOAD STARTS AT 3200
003001 3016 DCA AXIN
003002 1375 TAD (6577 /CODE SHOULD BE IN 6600 OF FIELD 1
003003 3013 DCA AXOUT
003004 1374 TAD (7000 /MOVE 1000 LOCATIONS UP
003005 3226 DCA COUNTA
003006 6201 LOOP, CDF 0
003007 1416 TAD I AXIN /MOVE CODE
003010 6211 CDF 10
003011 3413 DCA I AXOUT
003012 2226 ISZ COUNTA /DONE YET?
003013 5206 JMP LOOP /NO
003014 3016 DCA AXIN /YES-RESET COUNTERS
003015 3013 DCA AXOUT
003016 6201 CDF 0 /PUT A NOP INTO LOC. 203
003017 1374 TAD (NOP
003020 3773 DCA I (START
003021 1053 TAD RST3I /CHANGE START ADDRESS TO SAVE BUFFER
003022 3177 DCA 177
003023 6213 CIF CDF 10
003024 5625 JMP I K6600 /STARTING ADDRESS IS 16600
003025 6600 K6600, 6600 /FIELD 1 STARTING ADDRESS
003026 0000 COUNTA, 0
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 57
/CHARACTER OUTPUT ROUTINE
003027 0000 OUT, 0
003030 3110 DCA CHAR
003031 1114 TAD ECHOSW /IS ECHO SUPPRESSED?
003032 7650 SNA CLA
003033 5627 JMP I OUT /YES--RETURN--
003034 4477 JMS I SORTJ /NO - IS IT A FORMAT CHARACTER?
003035 0031 LIST4-1 /YES - EXIT TO ITS HANDLER
003036 1205 OUTLIS-LIST4
003037 1110 TAD CHAR /SOME OTHER CONTROL CHAR?
003040 1372 TAD (-240
003041 7710 SPA CLA
003042 4266 JMS TERLIN /IS OUTPUT TO OS/8?
003043 7410 SKP
003044 5251 JMP UPARO /YES OUTPUT ^X FORM IF NOT OS/8
003045 2160 ISZ TCNT /NO - COUNT ONE LETTER
003046 1110 TAD CHAR
003047 4521 OUTX, JMS I OUTDEV /OUTPUT THE CHARACTER
003050 5627 JMP I OUT /--RETURN--
003051 2160 UPARO, ISZ TCNT
003052 1371 TAD (336 /PRINT ^
003053 4521 JMS I OUTDEV
003054 1011 TAD C100 /PRINT X
003055 5245 JMP OUTX-2
/ROUTINE TO HANDLE ESCAPE OUTPUT
003056 1457 ESCOUT, TAD I CHI1 /V12 - TAD CHIN
003057 1370 TAD (-CMCHK-1
003060 7650 SNA CLA /COMMAND MODE?
003061 5627 JMP I OUT /YES, DON'T OUTPUT IT NOW
003062 4266 JMS TERLIN /TO TERMINAL OR LPT?
003063 1367 TAD (233-"$ /NO, OUTPUT ESC
003064 1366 TAD ("$ /YES, OUTPUT "$"
003065 5247 JMP OUTX /DO IT
003066 0000 TERLIN, 0 /TEST IF OUTPUT TO FILE
003067 1121 TAD OUTDEV
003070 1365 TAD (-BUFWT
003071 7640 SZA CLA /OUTPUT TO OS/8 DEVICE?
003072 2266 ISZ TERLIN /NO, TO TERMINAL OR LPT
003073 5666 JMP I TERLIN /YES, TO OS8
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 58
/BACKSPACE DECREMENTS TAB COUNTER
003074 7240 BCKSPC, STA
003075 1160 TAD TCNT
003076 3160 DCA TCNT
003077 5246 JMP OUTX-1
/CARRIAGE RETURN HANDLER
003100 1034 OUTCRL, TAD CCR
003101 4521 JMS I OUTDEV /OUTPUT CARRIAGE RETURN
003102 3160 DCA TCNT /CLEAR TAB COUNTER
003103 1047 TAD CLF /OUTPUT LINE FEED
003104 5247 JMP OUTX
/TAB HANDLER - TAB/RUBOUT
003105 1033 OUTRT, TAD CTAB
003106 4521 JMS I OUTDEV /OUTPUT TAB
003107 6212 CIF 10
003110 4565 JMS I POTYPE /TEST TYPE OF OUTPUT
003111 7710 SPA CLA /IS IT DIRECTORY DEVICE?
003112 5627 JMP I OUT /YES--RETURN--
003113 1050 TAD CRO /NO - OUTPUT RUBOUT
003114 5247 JMP OUTX
/TAB HANDLER - SPACES
003115 1116 OUTTAB, TAD TABIND
003116 7650 SNA CLA /OUTPUT TAB/RUBOUT INSTEAD?
003117 5305 JMP OUTRT /YES - GO TO OTHER TAB HANDLER
003120 1160 TAD TCNT /NO -
003121 1055 TAD MTABS /REDUCE SPACE COUNT TO 8 OR LESS
003122 7500 SMA
003123 5321 JMP .-2
003124 3160 DCA TCNT
003125 1030 TAD C240 /OUTPUT SPACES
003126 4521 JMS I OUTDEV
003127 2160 ISZ TCNT /DONE YET?
003130 5325 JMP .-3 /NO - CONTINUE
003131 5627 JMP I OUT /YES--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 59
/TELETYPE CHARACTER FETCH ROUTINE
/ENTER WITH AC CLEAR
/EXIT WITH CHARACTER IN CHAR AND AC
/FORCE CHANNEL 8
/BLANK TAPE & LEADER TRAILER IGNORED
003132 0000 CHIN, 0
003133 3110 DCA CHAR /CLEAR CHARACTER
003134 4462 JMS I KEYBD
003135 0020 AND P177 /MASK PARITY
003136 7450 SNA /IGNORE BLANK AND L/T
003137 5333 JMP CHIN+1
003140 1024 TAD C200 /RESTORE CHARACTER
003141 4473 JMS I OUT1 /ECHO INPUT
003142 1110 TAD CHAR
003143 5732 JMP I CHIN /--RETURN--
/LPT MUST! BE ON THIS PAGE FOR SET(ADDRESS OF LPT IN 3177)
003144 0000 LPT, 0 /*WM* NEW LPT ROUTINE FOR SETS
003145 7040 CMA /NOP OR CMA
003146 6574 6574 /OR OTHER PRINTING IOT
003147 6577 6577 /STROBE FOR PRINTRONIX
003150 7200 CLA
003151 6570 6570 /OR OTHER SKIP IOT
003152 5351 JMP .-1
003153 4764 JMS I (COPSQ /CHECK KEYBOARD
003154 5744 JMP I LPT
/MORE STUFF MAY BE INSERTED HERE
/LITERALS
003164 1657
003165 5716
003166 0244
003167 7767
003170 7545
003171 0336
003172 7540
003173 0203
003174 7000
003175 6577
003176 3177
003177 3144
3200 PAGE
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 60
3200 *3200
/********************************************************************
/CODE MOVED TO 16600-16762
NOPUNC
6600 *6600
ENPUNC
/OURECS=4
/SETUP FOR USING GENERAL INPUT, OUTPUT ROUTINES
4200 INBUF=4200 /INPUT BUFFER AT 04200
0600 INCTL=0600 /INPUT CONTROL - 6 PAGES
0003 INRECS=3 /3 RECORDS INTO FIELD 0
3200 INDEVH=3200 /INPUT HANDLER AT 03200
5600 OUBUF=5600 /OUTPUT BUFFER AT 05600
5000 OUCTL=5000 /OUTPUT CONTROL - 8 PAGES
3600 OUDEVH=3600 /OUTPUT HANDLER AT 03600
7643 MPARAM=7643 /OPTION SWITCHES
006600 4757 JMS I L7700 /CALL USER SERVICE ROUTINES
006601 0010 10 /*LOCK USR IN CORE*
006602 6201 CDF 0 /V3
006603 2764 ISZ I PTEMP /V3 WERE WE CHAINED TO?
006604 5211 JMP CHN /V3 YES
006605 6211 CDF 10 /V3 NO
006606 4744 START1, JMS I L200 /CALL USER SERVICE ROUTINES
006607 0005 5 /*COMMAND DECODER*
006610 0000 0
006611 6211 CHN, CDF 10
006612 1363 TAD K7620 /RESET OUTDMP
006613 3762 DCA I THOLE
006614 1631 TAD I P7600A /OUTPUT LIST
006615 0355 AND C17
006616 7640 SZCL, SZA CLA /IS THERE AN OUTPUT DEVICE?
006617 5223 JMP NXTOP /YES
006620 6201 CDF 0 /NO-DISALLOW E COMMAND
006621 2752 ISZ I EKILSW
006622 6211 CDF 10
006623 1756 NXTOP, TAD I PARAM
006624 7004 RAL /B BIT TO BIT 0
006625 3247 DCA DVHAND /SAVE PARAM. SWITCH
006626 1247 TAD DVHAND
006627 7700 SMA CLA /WAS /B OPTION SPECIFIED?
006630 5236 JMP NEWOP /NO
006631 7600 P7600A, 7600 /YES-
006632 1216 TAD SZCL /SET UP TO CONVERT SPACES TO TABS
006633 6201 CDF 0
006634 3747 DCA I SPCP1
006635 6211 CDF 10
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 61
006636 1247 NEWOP, TAD DVHAND
006637 7006 RTL
006640 7700 SMA CLA /WAS /D OPTION SPECIFIED?
006641 5260 JMP FILOP /NO
006642 1754 TAD I OHANDL /YES-HANDLER BROUGHT IN FOR D OPTION
006643 3247 DCA DVHAND
006644 1631 TAD I P7600A /DEVICE NUMBER
006645 4744 JMS I L200 /CALL USER SERVICE ROUTINES
006646 0001 1 /*ASSIGN*
006647 0000 DVHAND, 0
006650 4332 JMS HGHERR /**DEVICE HANDLER ERROR**4**
006651 0004 4
006652 1631 TAD I P7600A /GET DEVICE NUMBER
006653 4744 JMS I L200 /CALL USER SERVICE ROUTINES
006654 0004 4 /*CLOSE*
006655 7601 7601
006656 0000 0
006657 0157 JLSTN, LSTN /PAGE ZERO. 'AND' SOME ADDRESS
006660 1346 FILOP, TAD PANIC /PANIC CASE?
006661 7450 SNA
006662 4750 JMS I IOPENI /SET BUFFER POINTERS OR RESTORE HANDLER
006663 7640 SZA CLA /YES-
006664 5327 JMP GINDVH /RESTORE INPUT DEVICE HANDLER IN PANIC MODE
006665 4751 PANOPN, JMS I OOPENI /OPEN OUTPUT FILES
006666 7700 SMA CLA /ERROR RETURN
006667 7410 SKP /NORMAL RETURN
006670 4332 JMS HGHERR /**FILE OPEN ERROR**3**
006671 0003 3
006672 1346 TAD PANIC /PANIC CASE?
006673 7650 SNA CLA
006674 5305 JMP NOPAN /NO
006675 1631 TAD I P7600A /YES IF NO OUTPUT,DON'T ALLOW HIM
006676 7650 SNA CLA /TO DESTROY HIS TEXT
006677 5206 JMP START1
006700 1360 TAD K5000 /SET TO WRITE BUFFER
006701 4753 JMS I ODMP /DUMP IT
006702 4332 JMS HGHERR /**FATAL WRITE ERROR**1**
006703 0001 1
006704 7201 CLA IAC
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 62
006705 3247 NOPAN, DCA DVHAND
006706 3346 DCA PANIC /CLEAR PANIC SWITCH
006707 4744 JMS I L200 /CALL USER SERVICE ROUTINES
006710 0011 11 /*DISMISS USR FROM CORE*
006711 4761 JMS I OUSTPI /RE-INITIALIZE OUTPUT POINTERS
006712 7201 CLA IAC
006713 4743 JMS I SETJSI
006714 6201 CDF 0 /IF LSTN#0, CLEAR FRST
006715 1657 TAD I JLSTN /BUT IN FIELD 1
006716 7650 SNA CLA
006717 3174 DCA FRST
006720 6203 CIF CDF 0
006721 1247 TAD DVHAND
006722 7650 SNA CLA /PANIC MODE?
006723 5745 JMP I STRTUP /NO-START THE EDITOR
006724 6046 TLS
006725 5726 JMP I .+1 /YES - RESUME OUTPUT
006726 2151 BUFRET
006727 6203 GINDVH, CDF CIF 0
006730 5731 JMP I .+1
006731 2300 PIASGN
006732 0000 HGHERR, 0
006733 1732 TAD I HGHERR
006734 3341 DCA HGHARG
006735 4744 JMS I L200 /CALL USER SERVICE ROUTINES
006736 0011 11 /*DISMISS USR FROM CORE*
006737 6202 CIF 0
006740 4742 JMS I LOWERR /CALL FIELD 0 ERROR ROUTINE
006741 0000 HGHARG, 0
006742 2721 LOWERR, DEVERR
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 63
006743 7144 SETJSI, SETJSB
006744 0200 L200, 200
006745 0203 STRTUP, START
006746 0000 PANIC, 0
006747 1523 SPCP1, SPACES+1
006750 7401 IOPENI, IOPEN
006751 7201 OOPENI, OOPEN
006752 0133 EKILSW, EKILLL
006753 7251 ODMP, OUTDMP
006754 7362 OHANDL, O1
006755 0017 C17, 17
006756 7643 PARAM, MPARAM
006757 7700 L7700, 7700
006760 5000 K5000, 5000 /OUTPUT BUFF CONTROL WORD
006761 7001 OUSTPI, OUSETP
006762 7261 THOLE, TSTHOL
006763 7620 K7620, 7620
006764 0117 PTEMP, TEMP
/***********************************************************************
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 64
3400 *3400
/***********************************************************************
/CODE MOVED TO 17000-17173
NOPUNC
7000 *7000
ENPUNC
007000 0232 232 /THIS PAGE IS ^Z BUFFER
/SET UP ROUTINE FOR OUTPUT
/INITIALIZES CHARACTERS POINTERS
007001 0000 OUSETP, 0
007002 1774 TAD I PANICJ /IS IT PANIC DUMP TIME?
007003 7640 SZA CLA /IF YES, DONT RESET POINTERS
007004 5601 JMP I OUSETP /--RETURN--
007005 1360 TAD C1 /GET SIZE OF BUFFER IN DOUBLEWORDS
007006 7041 CIA /NEGATE IT
007007 3306 DCA OUDWCT
007010 1361 TAD C2
007011 3304 DCA OUPTR /INITIALIZE WORD POINTER
007012 1305 TAD OUJMPE
007013 3240 DCA OUJMP /INITIALIZE THREE-WAY CHARACTER SWITCH
007014 5601 JMP I OUSETP /--RETURN--
/OUTPUT A CHARACTER
/ENTER WITH CHARACTER IN 8-BIT ASCII
/IN AC
007015 0000 OCHAR, 0
007016 0362 AND C377 /MASK OUT EXTRA BITS
007017 3302 DCA OUTEMP
007020 1363 TAD PAR200 /MASK PARITY
007021 6034 KRS
007022 1364 TAD M203
007023 7650 SNA CLA
007024 6031 KSF
007025 5230 JMP .+3
007026 6203 CIF CDF 0
007027 5770 JMP I C7600
007030 6214 RDF /NO-
007031 1365 TAD CDIF0
007032 3300 DCA OUCRET
007033 1307 TAD OUTINH /IS OUTPUT INHIBITED?
007034 7640 SZA CLA
007035 5324 JMP PSTOP /NO
007036 6201 CDF OUFLD /YES-SET DATA FIELD TO BUFFER'S FIELD
007037 2240 ISZ OUJMP /BUMP THE CHARACTER SWITCH
007040 7402 OUJMP, HLT /3 WAY CHARACTER SWITCH
007041 5275 JMP OCHAR1
007042 5272 JMP OCHAR2
007043 1302 OCHAR3, TAD OUTEMP
007044 7106 CLL RTL
007045 7006 RTL
007046 0366 AND K7400
007047 1703 TAD I OUPOLD
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 64-1
007050 3703 DCA I OUPOLD /UPDATE FIRST WORD OF TWO WITH HIGH
/ORDER 4 BITS OF 3RD CHAR
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 65
007051 1302 TAD OUTEMP
007052 7112 CLL RTR
007053 7012 RTR
007054 7010 RAR
007055 0366 AND K7400
007056 1704 TAD I OUPTR
007057 3704 DCA I OUPTR /UPDATE SECOND WORD FROM LOW ORDER 4 BITS
007060 1305 TAD OUJMPE
007061 3240 DCA OUJMP /RESET SWITCH
007062 2304 ISZ OUPTR
007063 2306 ISZ OUDWCT /BUMP DOUBLEWORD COUNTER EVERY 3 CHARS
007064 5277 JMP OUCOMN
007065 1367 TAD OUCT /LOAD CONTROL WORD FOR A FULL WRITE
007066 4773 JMS I DMPO /DUMP THE BUFFER
007067 5300 JMP OUCRET /OUTPUT ERROR - GIVE ERROR RETURN
007070 4201 JMS OUSETP /RE-INITIALIZE THE POINTERS
007071 5277 JMP OUCOMN
007072 1304 OCHAR2, TAD OUPTR
007073 3303 DCA OUPOLD /SAVE POINTER TO FIRST WORD OF TWO
007074 2304 ISZ OUPTR /BUMP WORD POINTER TO SECOND WORD
007075 1302 OCHAR1, TAD OUTEMP
007076 3704 DCA I OUPTR
007077 2215 OUCOMN, ISZ OCHAR
007100 7402 OUCRET, HLT /RESTORE CALLING FIELDS
007101 5615 JMP I OCHAR /--RETURN--
007102 0000 OUTEMP, 0
007103 0000 OUPOLD, 0
007104 0000 OUPTR, 0
007105 5240 OUJMPE, JMP OUJMP
007106 0000 OUDWCT, 0
007107 0000 OUTINH, 0
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 66
/FETCH OUTPUT DEVICE CONTROL WORD
007110 0000 OTYPE, 0
007111 6214 RDF
007112 1365 TAD CDIF0
007113 3322 DCA OTRTN
007114 6211 CDF 10
007115 1770 TAD I C7600 /FETCH OUTPUT DEVICE NUMBER
007116 0371 AND P17
007117 1372 TAD DCBM1 /+DCB-1
007120 3302 DCA OUTEMP /FETCH DEVICE CONTROL WORD
007121 1702 TAD I OUTEMP
007122 7402 OTRTN, HLT /RESTORE CALLING FIELDS
007123 5710 JMP I OTYPE /--RETURN--
007124 6202 PSTOP, CIF 0 /PRINTS ? WHEN NO OUTPUT DEV
007125 4143 ERROR
007126 0000 INSET, 0
007127 3310 DCA OTYPE /SAVE AC
007130 6214 RDF
007131 1365 TAD CDIF0
007132 3342 DCA INSTRT /SET RETURN FIELDS
007133 6201 CDF 0
007134 1757 TAD I PLASTN
007135 6211 CDF 10
007136 7650 SNA CLA /IS THERE ANYTHING IN BUFFER?
007137 7001 IAC /NO-NO NEED TO SAVE USR AREA
007140 4344 JMS SETJSB /YES-
007141 1310 TAD OTYPE /RESTORE AC
007142 6203 INSTRT, CIF CDF 0 /RESTORE CALLING FIELDS
007143 5726 JMP I INSET /--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 67
/SET JOB STATUS BIT 11 TO SAVE OR NOT SAVE
/ENTER WITH AC=0 OR 1, DEPENDING ON BUFFER
007144 0000 SETJSB, 0
007145 3355 DCA JSBTM /SAVE AC
007146 6201 CDF 0
007147 7344 CLA CLL CMA RAL
007150 0756 AND I PJSBTS /CLEAR BIT 11 OF JSW
007151 1355 TAD JSBTM /SET ACCORDING TO AC
007152 3756 DCA I PJSBTS
007153 6211 CDF 10
007154 5744 JMP I SETJSB /--RETURN--
007155 0000 JSBTM, 0
007156 7746 PJSBTS, 7746
007157 0157 PLASTN, LSTN
7760 DCB=7760
007160 1000 C1, OUCTL&3700
007161 5600 C2, OUBUF
007162 0377 C377, 377
007163 0200 PAR200, 200
007164 7575 M203, -203
007165 6203 CDIF0, CDF CIF 0
007166 7400 K7400, 7400
007167 5000 OUCT, OUCTL
007170 7600 C7600, 7600
007171 0017 P17, 17
007172 7757 DCBM1, DCB-1
007173 7251 DMPO, OUTDMP
007174 6746 PANICJ, PANIC
/***********************************************************************
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 68
3600 *3600
/***********************************************************************
/CODE MOVED TO 17200-17376
NOPUNC
7200 *7200
ENPUNC
/OPEN OUTPUT FILE
007200 0017 O17, 17
007201 0000 OOPEN, 0
007202 7600 OU7600, 7600
007203 1343 TAD OU7601
007204 3223 DCA OUBLK
007205 1362 TAD O1
007206 3215 DCA OUHNDL /SET OUTPUT HANDLER ENTRY
007207 6211 CDF 10
007210 1602 TAD I OU7600 /GET DEVICE NUMBER WORD OF OUTPUT FILE ENTRY
007211 7450 SNA /IS THERE AN OUTPUT DEVICE?
007212 5247 JMP ONOFIL /NO - INHIBIT OUTPUT
007213 4642 JMS I O200 /CALL USER SERVICE ROUTINES
007214 0001 1 /*ASSIGN,FETCH HANDLER*
007215 2600 OUHNDL, 2600 /OUTPUT DEVICE HANDLER ENTRY
007216 4777 JMS I SERRA /**DEVICE HANDLER ERROR**4**
007217 0004 4
007220 1602 OUENTR, TAD I OU7600
007221 4642 JMS I O200 /CALL USER SERVICE ROUTINES
007222 0003 3 /*ENTER OUTPUT FILE*
007223 7601 OUBLK, 7601 /REPLACED WITH STARTING BLOCK
007224 0000 OUELEN, 0 /REPLACED WITH LENGTH OF HOLE
007225 5235 JMP OEFAIL /FAILED - MAYBE WE ASKED TOO MUCH
007226 3344 DCA OUCCNT
007227 3764 DCA I O2 /ZERO OUTPUT INHIBIT FLAG
007230 1223 TAD OUBLK
007231 3270 DCA OUREC /INITIALIZE OUTPUT RECORD NUMBER
007232 4765 JMS I O3
007233 2201 ISZ OOPEN
007234 5601 OORETN, JMP I OOPEN
007235 1602 OEFAIL, TAD I OU7600
007236 0366 AND O7760 /GET REQUESTED LENGTH
007237 7650 SNA CLA /WAS IT AN INDEFINITE REQUEST
007240 5245 JMP ONTERR /YES - CANNOT ENTER THE FILE
007241 1602 TAD I OU7600
007242 0200 O200, AND O17 /MAKE THE REQUESTED LENGTH ZERO
007243 3602 DCA I OU7600
007244 5220 JMP OUENTR /TRY, TRY AGAIN
007245 7330 ONTERR, CLA CLL CML RAR /AC=2
007246 5234 JMP OORETN /TAKE THE ERROR RETURN WITH AC<0
007247 2764 ONOFIL, ISZ I O2
007250 5234 JMP OORETN /TAKE THE ERROR RETURN WITH AC=0
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 69
007251 0000 OUTDMP, 0
007252 3266 DCA OUCTLW /STORE THE CONTROL WORD
007253 4352 JMS OUNREC /COMPUTE NO. OF RECORDS
007254 1344 TAD OUCCNT
007255 3344 DCA OUCCNT
007256 1344 TAD OUCCNT
007257 7120 CLL CML
007260 1224 TAD OUELEN
007261 7620 TSTHOL, SNL CLA /IF ZERO OR POSITIVE,GIVE ERROR
007262 5276 JMP OUERR
007263 6203 CDF CIF 0
007264 6211 CDF 10
007265 4615 JMS I OUHNDL /CALL OUTPUT DEVICE HANDLER
007266 0000 OUCTLW, 0 /CONTROL WORD
007267 5600 OUBUF /BUFFER ADDRESS
007270 0000 OUREC, 0 /RECORD NUMBER
007271 5276 JMP OUERR /THERE ARE NO SOFT OUTPUT HANDLER ERRORS
007272 4352 JMS OUNREC
007273 1270 TAD OUREC
007274 3270 DCA OUREC /UPDATE OUTPUT RECORD NUMBER
007275 2251 ISZ OUTDMP /BUMP OUTDMP TO NORMAL RETURN
007276 5651 OUERR, JMP I OUTDMP /--RETURN--
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 70
/CLOSE OUTPUT FILE
007277 0000 OCLOSE, 0
007300 1361 TAD K7660 /SET UP SNL SZA CLA FOR CLOSE
007301 3261 DCA TSTHOL
007302 6211 CDF 10
007303 1751 TAD I PANICC
007304 7640 SZA CLA
007305 5336 JMP NODUMP
007306 1764 TAD I O2
007307 7640 SZA CLA /IS OUTPUT INHIBITED?
007310 5346 JMP OCISZ /YES - CLOSE IS A NOP
007311 1367 TAD O232 /OUTPUT A ^Z
007312 4770 JMS I O4
007313 5347 JMP OCRET /AND SOME 0'S
007314 4770 JMS I O4
007315 5347 JMP OCRET
007316 4770 FILLLP, JMS I O4
007317 5347 JMP OCRET
007320 4771 JMS I O5 /GET TYPE OF OUTPUT DEVICE
007321 7710 SPA CLA
007322 1372 TAD O100 /IF ITS A DIRECTORY DEVICE FORCE A RECORD
007323 1373 TAD O77 /BOUNDARY-OTHERWISE HALF RECORD
007324 0774 AND I O6
007325 7640 SZA CLA /UP TO THE BOUNDARY YET?
007326 5316 JMP FILLLP /NO - FILL WITH ZEROS
007327 1774 TAD I O6 /GET DOUBLEWORD COUNT LEFT
007330 1375 TAD O7
007331 7450 SNA /A FULL WRITE LEFT?
007332 5336 JMP NODUMP /YES - DON'T DO IT - ^Z IS ALREADY OUT
007333 1376 TAD O8 /PUT IN FIELD BITS AND WRITE BIT
007334 4251 JMS OUTDMP
007335 5347 JMP OCRET /ERROR OCCURRED WHILE DUMPING THE BUFFER
007336 4763 NODUMP, JMS I O7700 /CALL USER SERVICE ROUTINES
007337 0010 10 /*LOCK USR IN CORE*
007340 1602 TAD I OU7600 /DEVICE NUMBER
007341 4642 JMS I O200 /CALL USER SERVICE ROUTINES
007342 0004 4 /*CLOSE OUTPUT FILE*
007343 7601 OU7601, 7601 /POINTER TO THE OUTPUT FILE NAME
007344 0000 OUCCNT, 0
007345 7410 SKP /ERROR WHILE CLOSING THE FILE
007346 2277 OCISZ, ISZ OCLOSE
007347 6203 OCRET, CIF CDF 0 /RESTORE CALLING FIELDS
007350 5677 JMP I OCLOSE /--RETURN--
007351 6746 PANICC, PANIC
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 71
/CONVERT OUTPUT CONTROL WORD
/TO NUMBER OF RECORDS
007352 0000 OUNREC, 0
007353 1266 TAD OUCTLW
007354 7106 CLL RTL
007355 7006 RTL
007356 7006 RTL
007357 0200 AND O17
007360 5752 JMP I OUNREC /--RETURN--
007361 7660 K7660, SNL SZA CLA
007362 3601 O1, OUDEVH+1
007363 7700 O7700, 7700
007364 7107 O2, OUTINH
007365 7001 O3, OUSETP
007366 7760 O7760, 7760
007367 0232 O232, 232
007370 7015 O4, OCHAR
007371 7110 O5, OTYPE
007372 0100 O100, 100
007373 0077 O77, 77
007374 7106 O6, OUDWCT
007375 1000 O7, OUCTL&3700
007376 4000 O8, 4000+OUFLD
007377 6732 SERRA, HGHERR
/***********************************************************************
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 72
0000 INFLD=INCTL&70 /FIELD OF INPUT BUFFER
0000 OUFLD=OUCTL&70 /FIELD OF OUTPUT BUFFER
/***********************************************************************
/CODE MOVED TO 17400 -17574
4000 *4000
NOPUNC
7400 *7400
ENPUNC
/PREPARE TO OPEN NEW INPUT FILE
007400 7400 IN7400, 7400
007401 0000 IOPEN, 0
007402 7240 CLA CMA
007403 3357 DCA INCHCT /SET INCHCT TO FORCE A READ
007404 2361 ISZ INEOF /SET END-OF-FILE FLAG TO FORCE A NEW FILE
007405 1363 TAD I7617
007406 3360 DCA INFPTR /RESET FILE POINTER
007407 5601 JMP I IOPEN /--RETURN--
007410 0000 INPTR, 0
007411 0000 INDEV, 0
/INPUT A CHARACTER
007412 0000 ICHAR, 0
007413 7600 IN7600, 7600
007414 6201 INCHAR, CDF INFLD
007415 2324 ISZ INJMP /BUMP THREE-WAY UNPACK SWITCH
007416 2357 ISZ INCHCT
007417 5324 INJMPP, JMP INJMP
007420 1361 TAD INEOF
007421 7650 SNA CLA /DID LAST READ YIELD END-OF-FILE?
007422 5255 JMP INGBUF /NO-DO ANOTHER
007423 6211 INNEWF, CDF 10
007424 1364 TAD I1
007425 3236 DCA INHNDL /INITIALIZE HANDLER ADDRESS
007426 1760 TAD I INFPTR /GET NEXT CD INPUT FILE ENTRY
007427 3211 DCA INDEV /SAVE IT FOR PANIC
007430 1211 TAD INDEV
007431 7450 SNA /ANY MORE?
007432 5323 JMP EOFERR /NO - OUT OF INPUT
007433 4762 JMS I PINSET /YES-SAVE BUFFER IF NECESSARY
007434 4774 JMS I I7700 /CALL USER SERVICE ROUTINE
007435 0001 1 /*ASSIGN, FETCH HANDLER*
007436 0000 INHNDL, 0
007437 4775 JMS I SERRB /**DEVICE HANDLER ERROR**+**
007440 0004 4
007441 1760 TAD I INFPTR
007442 0365 AND I7760 /GET LENGTH PART OF WORD
007443 7440 SZA /LENGTH OF 0 MEANS LENGTH >=256
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 73
007444 1366 TAD I17 /ADD HIGH ORDER BITS
007445 7132 CLL CML RTR
007446 7012 RTR
007447 3201 DCA INCTR /STORE LENGTH OF FILE
007450 2360 ISZ INFPTR
007451 1760 TAD I INFPTR
007452 3276 DCA INREC /STORE STARTING RECORD NUMBER OF FILE
007453 2360 ISZ INFPTR
007454 3361 DCA INEOF /ZERO END-OF-FILE FLAG
007455 1201 INGBUF, TAD INCTR
007456 7100 CLL
007457 1367 TAD I2
007460 7420 SNL
007461 3201 DCA INCTR /RESTORE INCTR IF IT HASN'T OVERFLOWED
007462 7430 SZL /IS THIS THE LAST READ?
007463 2361 ISZ INEOF /YES - SET END-OF-FILE FLAG
007464 7172 CLL CML CMA RTR /CONSTRUCT A CONTROL WORD FOR THE READ
007465 7012 RTR /FROM THE AMOUNT OF THE OVERFLOW
007466 7012 RTR /(IF ANY) AND THE STANDARD CONTROL WORD
007467 1370 TAD I3
007470 3274 DCA INCTLW
007471 6203 CDF CIF 0
007472 6211 CDF 10
007473 4636 JMS I INHNDL /CALL INPUT DEVICE HANDLER
007474 0000 INCTLW, 0 /CONTROL WORD
007475 4200 INBUFP, INBUF /INPUT BUFFER
007476 0000 INREC, 0 /NUMBER OF RECORDS
007477 5317 JMP INERRX /SOME KIND OF HANDLER ERROR
007500 1276 INBREC, TAD INREC
007501 1367 TAD I2
007502 3276 DCA INREC /UPDATE THE RECORD NUMBER
007503 1274 TAD INCTLW
007504 0213 AND IN7600
007505 7104 CLL RAL
007506 1274 TAD INCTLW
007507 0213 AND IN7600
007510 7040 CMA
007511 3357 DCA INCHCT /COMPUTE THE NEW CHARACTER COUNT
007512 1217 TAD INJMPP
007513 3324 DCA INJMP /RESET THE CHARACTER SWITCH
007514 1275 TAD INBUFP
007515 3210 DCA INPTR /AND THE WORD POINTER
007516 5214 JMP INCHAR /GO BACK AND MAKE BELIEVE THIS NEVER HAPPENED
007517 2361 INERRX, ISZ INEOF /EITHER AN END-OF-FILE OR A ERROR
007520 7700 SMA CLA /WHICH TYPE WAS IT?
007521 5300 JMP INBREC /END OF FILE - RESUME PROCESSING
007522 7330 INERR, CLA CLL CML RAR /BAD - GIVE ERROR RETURN WITH NEGATIVE AC
007523 5355 EOFERR, JMP INRTRN
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 74
007524 7402 INJMP, HLT /3 WAY CHARACTER SWITCH
007525 5346 JMP ICHAR1
007526 5342 JMP ICHAR2
007527 1217 ICHAR3, TAD INJMPP
007530 3324 DCA INJMP
007531 1610 TAD I INPTR
007532 0200 AND IN7400
007533 7112 CLL RTR
007534 7012 RTR /COMBINE THE HIGH-ORDER FOUR BITS OF
007535 1274 TAD INCTLW
007536 7012 RTR /THE TWO WORD TO FORM THE THIRD CHARACTER
007537 7012 RTR
007540 2210 ISZ INPTR
007541 5347 JMP INCOMN
007542 1610 ICHAR2, TAD I INPTR
007543 0200 AND IN7400
007544 3274 DCA INCTLW /SAVE THE HIGH-ORDER BITS FOR THE THIRD CHAR
007545 2210 ISZ INPTR /BUMP THE WORD POINTER
007546 1610 ICHAR1, TAD I INPTR
007547 0371 INCOMN, AND I377
007550 1372 TAD IM232
007551 7450 SNA /IS THE CHARACTER A ^Z?
007552 5223 JMP INNEWF /YES - GET A NEW FILE
007553 1373 TAD I232 /RESTORE THE CHARACTER
007554 2212 ISZ ICHAR /BUMP RETURN TO NORMAL RETURN
007555 6203 INRTRN, CDF CIF 0 /RESTORE CALLING FIELDS
007556 5612 JMP I ICHAR /--RETURN--
007557 7777 INCHCT, -1
007560 7617 INFPTR, 7617
007561 0001 INEOF, 1
7401 INCTR=IOPEN
007562 7126 PINSET, INSET
007563 7617 I7617, 7617
007564 3201 I1, INDEVH+1
007565 7760 I7760, 7760
007566 0017 I17, 17
007567 0003 I2, INRECS
007570 0601 I3, INCTL+1
007571 0377 I377, 377
007572 7546 IM232, -232
007573 0232 I232, 232
007574 7700 I7700, 7700
007575 6732 SERRB, HGHERR
$
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 75
ADD 0161 CNGE1 0427 DVHAND 6647 GLOM 0240
ADDR 1101 CNT 0112 ECHOSW 0114 GMIN 0227
ADDXYZ 1061 CNTR 2564 EKILLL 0133 GMOR 2253
AMODE 2235 CNTRI 2274 EKILSW 6752 GOOD 2542
AONE 0446 COLECT 2607 ELIM 0144 GRBAGE 0122
AONEI 1475 COMB 1321 END 0061 GTAG2 1377
APP 1231 COMBAK 2452 ENDA 2175 GTEM 0143
APPL 1305 COMBO 1310 ENDFIL 1461 GTOP 0224
APP1 0424 COMBOA 1311 ENDLN 1610 G2 0242
ARG0 0162 COMBOP 1473 ENDLNI 0105 HGHARG 6741
ARG1 0163 COMM5 0166 EOFERR 7523 HGHERR 6732
ARG2 0164 COM1 1330 EOL 0411 ICHAR 7412
ATSIGN 2561 COM5 1336 ERRARG 2734 ICHARI 2060
AXCOMB 0014 CON 1167 ERRD 2044 ICHAR1 7546
AXIN 0016 COPSQ 1657 ERRERR 2745 ICHAR2 7542
AXOUT 0013 CORSPC 1042 ERRLIS 2740 ICHAR3 7527
AXTEM 0015 COUNT 0327 ERROR 4143 IDVNO 2324
BARROW 2271 COUNTA 3026 ERSW 0131 IGNORE 0060
BCKSPC 3074 COUNTP 0111 ERWT 2071 IHPAGE 2323
BELL 0046 CRO 0050 ER1 2535 IM232 7572
BOX 0111 CTAB 0033 ESC 0032 INBREC 7500
BUFCNT 2566 CTCK 1632 ESCA 0503 INBUF 4200
BUFEND 0025 CTRLS 1701 ESCOUT 3056 INBUFP 7475
BUFR 0125 CTRLU 1476 EXLAS 0667 INCHAR 7414
BUFRD 2031 CTU 0044 EXNEX 0670 INCHCT 7557
BUFRDI 0135 CZ 0075 EXTR 0534 INCOMN 7547
BUFRD1 1741 CZONE 0147 FILLLP 7316 INCTL 0600
BUFRET 2151 C1 7160 FILOP 6660 INCTLW 7474
BUFRTN 2066 C100 0011 FIND 1015 INCTR 7401
BUFWT 2062 C17 6755 FIND1 1035 INDEV 7411
BUFWTI 0136 C2 7161 FIND2 1031 INDEVH 3200
CCON 0063 C200 0024 FINONE 2617 INEOF 7561
CCR 0034 C212 0047 FIN1 0066 INERR 7522
CDIF0 7165 C214 0045 FIRS 2716 INERRX 7517
CFRS 0126 C215 0034 FLCLI 2061 INFLD 0000
CGEPTR 2671 C240 0030 FLCLOS 2006 INFPTR 7560
CHAR 0110 C260 1100 FLCLSI 1474 INGBUF 7455
CHFND 2570 C277 0012 FLCLS1 2015 INHNDL 7436
CHIN 3132 C377 7162 FLOOZ 1057 INIT 3000
CHI1 0057 C7600 7170 FMATCH 2565 INJMP 7524
CHKAGA 1663 C77 0007 FORGET 2573 INJMPP 7417
CHKARG 0130 DBCV2 0231 FRST 0174 INLIST 0577
CHKARX 1501 DBLQUO 2275 FULL 0606 INNEWF 7423
CHN 6611 DCB 7760 FULMES 2164 INPTR 7410
CIFTEN 1710 DCBM1 7172 FXSTWD 1746 INREC 7476
CLERR 2025 DELE 1742 FXSWDI 2141 INRECS 0003
CLF 0047 DELP 0635 GARBAG 2600 INRTRN 7555
CLFLI 0137 DELP1 0646 GBGEND 2636 INS 0432
CLRCOP 1705 DELT 0056 GBG2 2626 INSET 7126
CLSMES 2757 DEST 1236 GETTAG 1371 INSTRT 7142
CLSREC 2122 DEVERR 2721 GET3 0547 IN7400 7400
CMCHK 0232 DEVMES 1765 GET4 0552 IN7600 7413
CMPT 0350 DMPO 7173 GET5 0561 IOPEN 7401
CNGE 1227 DTEM 0143 GEXP 0226 IOPENI 6750
CNGEL 1225 DUMB1 1341 GINDVH 6727 I1 7564
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 75-1
I17 7566 L200 6744 OHNDL 2150 OVRFLW 2134
I2 7567 L3 0747 OLDTE1 1606 O1 7362
I232 7573 L3I 0103 ONOFIL 7247 O100 7372
I3 7570 L7700 6757 ONTERR 7245 O17 7200
I33 1641 MARK 0123 ONUM 0076 O2 7364
I377 7571 MCHIN1 0054 OOPEN 7201 O200 7242
I7617 7563 MCR 0021 OOPENI 6751 O232 7367
I7700 7574 MONIT 1753 OORETN 7234 O3 7365
I7760 7565 MONITO 0152 OPNMES 2360 O4 7370
JERK 2243 MOR 0451 OPS1 1557 O5 7371
JERK1 2244 MORECS 2145 OPS1A 1605 O6 7374
JLSTN 6657 MORI 0616 OPS2 0365 O7 7375
JMPCH 0141 MOVE 1213 OREC 2147 O77 7373
JMPTE1 0151 MOVEM 1413 OSLST 2230 O7700 7363
JSBTM 7155 MOV1 0111 OTRTN 7122 O7760 7366
JSWSET 1752 MOV2 0170 OTYPE 7110 O8 7376
KEYBD 0062 MPARAM 7643 OUBLK 7223 PACBUF 0457
KILL 1544 MP1 0163 OUBUF 5600 PACK1 0100
KILL1 0127 MP2 0162 OUCCNT 7344 PANIC 6746
K1210 0171 MP3 0164 OUCOMN 7077 PANICC 7351
K1320 0173 MSCNT 2572 OUCRET 7100 PANICI 2143
K360 1102 MTABS 0055 OUCT 7167 PANICJ 7174
K5000 6760 M203 7164 OUCTL 5000 PANOPN 6665
K6215 2720 M240 0022 OUCTLW 7266 PARAM 6756
K63 2670 M27 0042 OUDEVH 3600 PAR200 7163
K6600 3025 M4 0017 OUDWCT 7106 PATCH 0330
K7400 7166 M41 0010 OUELEN 7224 PCK1 0507
K7600 0167 M77 0027 OUENTR 7220 PELIM 2161
K7620 6763 NEWOP 6636 OUERR 7276 PERI 1512
K7660 7361 NEXBUF 2227 OUFLD 0000 PIASGN 2300
LINPTR 2667 NEXTPT 2567 OUHNDL 7215 PIHND 2312
LIS 0070 NEXX 2553 OUJMP 7040 PIHNDL 2322
LIST 0677 NINE 0071 OUJMPE 7105 PINEOF 2325
LISTER 0704 NOCR 2503 OUNREC 7352 PINSET 7562
LISTGO 1457 NODUMP 7336 OUPOLD 7103 PIRETN 2321
LIST1 1343 NONE 0010 OUPTR 7104 PJSBTS 7156
LIST1A 1366 NOPAN 6705 OUREC 7270 PLASTN 7157
LIST2 0303 NOTSO 2526 OURECS 0004 POINT 2146
LIST3 0051 NUCHA 2544 OUSETP 7001 POTYPE 0165
LIST4 0032 NUCHAR 2550 OUSTPI 6761 PPTE1 2160
LIST5 0043 NUMB 0072 OUT 3027 PRERR 0142
LIST6 0044 NXTOP 6623 OUTCRL 3100 PRINT 2331
LIST7 0030 OCHAR 7015 OUTDEV 0121 PRNT 1051
LIS1 0067 OCHARI 2144 OUTDMP 7251 PSETUP 1342
LOOP 3006 OCHAR1 7075 OUTEMP 7102 PSTOP 7124
LOW 0074 OCHAR2 7072 OUTINH 7107 PTEMP 6764
LOWERR 6742 OCHAR3 7043 OUTL 1651 PTE1 2162
LPT 3144 OCISZ 7346 OUTLIS 1237 PUNC 1253
LSTCHK 0175 OCLOSE 7277 OUTL1 0074 PUNCH 1250
LSTN 0157 OCLSI 2163 OUTRT 3105 PUNCHQ 1247
L0 0717 OCNTI 2142 OUTTAB 3115 PUNCT 1256
L1 0723 OCRET 7347 OUTX 3047 P17 7171
L1I 0132 ODMP 6753 OUT1 0073 P177 0020
L2 0745 OEFAIL 7235 OU7600 7202 P210 1165
L2I 0104 OHANDL 6754 OU7601 7343 P232 0134
/OS/8 SYMBOLIC EDITOR, V50 PAL8-V50X 18-JUN-87 PAGE 75-2
P337 0260 STFIN 2531
P37 0140 STORE 2425
P40 0023 STRFIN 0154
P7600A 6631 STRIND 0153
P7700 0026 STRTUP 6745
P7726 1166 SXS1 0101
Q 2000 SXS2 0102
QUO1 2431 SZCL 6616
QUO2 2430 TABIND 0116
REDMES 1757 TAGLIS 1206
RELCNT 2715 TCNT 0160
RESET3 1707 TELE 1300
RETRN 0261 TELEN 1300
RLOOP 2414 TEMP 0117
ROT 0522 TEMPO 0170
RP1 1123 TERLIN 3066
RP2 1130 TE1 0155
RST3I 0053 THIS 0120
RUB1 1103 THISX 0111
RUB2 1156 THISX2 0143
RUB3 1144 THOLE 6762
RUB4 1153 THSN 0156
SAVE 0115 TMP1 2562
SBAR 1002 TMP2 2563
SBUF 2571 TR1 0477
SCONT 0771 TSTHOL 7261
SERRA 7377 UPARO 3051
SERRB 7575 UPK 2514
SETJSB 7144 UPK1 2467
SETJSI 6743 UTEST 0457
SETUP 0617 UTRA 0531
SEX 0362 UTR1 0065
SFIND1 2400 VAL 0162
SFIND2 2440 VERMES 2344
SFOUND 1007 VERSIO 0062
SGOT 1013 VERSN 2326
SIGN 0003 VIEW 2703
SLAS 1514 VV1 0005
SLINE 0774 VV2 0062
SLOOK 0764 WREK 2525
SLST 2222 WRTMES 2351
SORTB 0337 XCRET 1173
SORTJ 0077 XCT 0112
SPACES 1522 XCTIN 0113
SPCGO 0107 XFFCTZ 2714
SPCNO 0106 XNS 1230
SPCP1 6747 XNSL 1226
SPCP1A 1740 XNS1 0430
SPLAT 1164 XSAV 0124
SP2 1526 XYZTUV 3177
SRCBUF 2176 X203 0172
SRETN 0756 YANK 1306
SRNLST 1452
START 0203
START1 6606
ERRORS DETECTED: 0
LINKS GENERATED: 0