Digital PDFs
Documents
Guest
Register
Log In
DEC-9U-SR3A-LA
February 2007
111 pages
Original
38MB
view
download
Document:
FOCAL
Order Number:
DEC-9U-SR3A-LA
Revision:
Pages:
111
Original Filename:
http://bitsavers.org/pdf/dec/pdp9/DEC-9U-SR3A-LA_FOCAL.pdf
OCR Text
IDENTIFICATION PRODUCT CODEs DEC-9U-SRlA-IA PART 7 PRODUCT NAME. Listing of PDP-9 Advanced Software System V4E POCAL MTEI February 20, 1970 FOCAL PAGE 1 1 • TITLE FOCAL EOIT 1~ 1--21--79 iSAME AS EDIT 8 EXCEPT VERSION NO. CHANGE TO 6A I I IFOCAL FOR THE PQP-9 ADVANCED SOFTWARE SYSTEM I ICOPYRIGHT 1969 IDIGITAL EQUIPMENT CORP. IMAYNARO. MASS. I IDAVE LENEY '2-7-6 9 I 'FOCAL IS A REGISTERED TRADEMARK OF' IDIGITAL EQUIPMENT CORPORATION I 'DEFINE MULTI:N IF' MULTI-USER VERSION WHERE N=2 OR 4 USERS 'DEFINE BF=9 IF RACKGROUNO-FOREGROUNO MONITOR . • IF'iER HuLTl-4 USR4=1 .ENOC , ,'GLOBAL CALLS TO F4 ARITHMETIC PACKAGE , .GLORl .AA .GLOel .AB .GlOBl .AC .GLOBL .AO .GLOel 'AP .GLOBl .AQ .GLOBl .AR • Gl08L .AS .GL08L .AT .GL08L .AX .GL08L .8A .GL08l .AN .GLOBL .CO .GLOBL .BH .GLOBL OSIN .GLOBL OCOS .GLOBL OAlAN .GLOBL OLOC .GLOBL OEXP .GLOBL OSQRT .GLOBL .ER lEXPONENT lHIGH ORDER MANTISSA llOW ORDER MANTISSA ILOAO (3 MOROS) ISTORE (3 NOROS) lAOO ISUBTRACT ,"UL T!PLY . 'DIVIDE IFIX INEGATE 'FLOAT INORMAlIlE IAue-PONER ISINE 'COSINE 'ARCTANGMENT ILOGARITH" IEXPONENTIAL ISQUARE ROOT I.OTS ERROR (?36) I.GLOBL REF"ERENCES FOR EXTERNAL FUNCTIONS I .GLOBL .GLOeL .GLOeL .GLOBL .GLOeL .GLOe L .NEWF' XPUSHJ XPUSHA P02 PD3 UTRA IFUNCT!OIl TABLE IPUSH JUMP IPUSH AC 'PUSH FLOA TI NG ,POP FLOaTING IUNPACK FOCAL PAGE 2~ , .GLOaL .GLOaL .GLOaL .GLOaL .GLOBL .GLOaL .GLOaL .GLOaL '.GLOaL .GLOaL •.GLOa L .GLOaL .GLgaL .GL al f ', ", ' 111001110 10001110 20811100 310000 3111000111 41000111 500000 61111001 - 71000" 111010 """000 000O03 100011 010100 00000O A A A A A A A A A A A A A A A Ff"O"=10111110 FAOO=111000 FSUB=200110 FMPY=310000 FHUl=300000 fOIV= .. "00"0 XSPNOR rUNERR EFUN3 FINT CHAR EVAl LASTV BOTTOM LINENO FlARG aUFST)( XGETLN XPOPJ F'ETVAR IIGNORE SPACES IERROR I~ EXTERNAL FUNCTION IFUNCTiON RETURN IFLOATING INTERPRETER ICHRACTER STORAGE IEVAlUATION ROUTINE I£NO or TEXT/VARIABLES 1ST ART OF PUSH_OOWN LIST ICURRENT LINE IflOATING ARGUMENT IPOINTER TO 3 Wo UNPACK AREA If ETCH LINE NUMBER IPOp JUMp IGET 3,6.0R 9 .SIXRT CHARS IPSEUOO_flOATING POINT INSTRUcTIONS. FGET=5810~UI fPUT=6000111 F'NOR=7111111000 FEXT=I FXIT=I WORDS=3 DIGITS=l1 .SCOI1=1IrJ0 XX:I .EJECT " FOCAL PAGE 3 000176 000775 011111111103 1i!I!I"'005 A A A A .IF'UNO .Ioon MULTI -3.-2.3.5 .ENOC .IF'OEF' .IOOEV .IFoEF .IOoEV .ENoC MULTI 1.2.3.4 USR4 5.6.7.10 .IFoEF USR4 TTI=776 TTO=775 BKI=3 BKO=5 TTI=0 TTO"0 BKI:0 BKO-", TTl1"1 TT01=1 BKI1=2 BK01=2 TT12=3 TT02=3 BK12=4 BK02=4, TT13=5 TT03,.5 BKI3=6 BK03=6 TTl4=7 TT04=7 BKI4=U! BK04-U! COMEIN .. 0 COMOUT=", I "BUFF::1jJ INBUF',.1jJ aUTBUF::0 8I!I"'0UJ 1110"'011 1jJ0111~12 "'00013 0"'0014 """"'15 00"016 A A A A A A A .ENoC .[NOC IAUTO-INDEX REGISTERS ISTORAGE INDEX AXIN=UI IEXTRA XR XRh11 XRT2=12 IEXTRA XR poLXR=13 IPUSHOOWN LIST INDEX REGISTER. FL TXR=14 IIOBUF'-1 XR14 FOR FLOATING POIIIT IF'OR COMMON RESTORE X15=15 IF'OR COMMON RESTORE )(16=16 I liN THE MULTI USER SYSTEM 15 AND 16 ARE ALSO USED BY THE SWAP ROUTINES I .EJECT FOCAL PACE " I ITHE FOllOWING BLOCK IS THE ENTIRE IMPURE I AREA fOR EACH FOCAL JOB I SWPSlE SWPBCN=. I RESTAR cTLP BWAIT .IF'DEF MULTI SWPBGN-SWPEND IBLOCK SliE XSRECN XX XX IRESTART ADDRESS FOR THIS JOB iAoDRESS OF' 'P SWITCH FOR THIS USER ""e I.AA SAVE I.AB SAVE I~AC SAVE 0 IFRST SAVE III 5T3+1 SA YE I FLAC 'I FRSTSY LIST31 I AUTOXR " """ IXla SAVE '/XU SAVE IXl2 SAVE IX13 SAVE IXl4 SAVE I " ItteFSY IHBf2S INBFSY OTBFSY .FLINP .XJ33 .XOUTL .INPUT .OECON .OECNV .IMACR .IHACW XX XX XX XX XX XX XX XX XX XX XX XX IBUFrER HEADER POINTERS xx IRCALa1 IRCALII3 IWCALII1 IWCALII3 IWCALe" ILBINU ILBINlA AB I N02 ILBIN03 ILBOUT1 jLBOUT2 IlBOUTJ ILBOUT" IFILE"1 IF'! LEI1I2 IFILE83 a I XX xx xx XX XX XX XX XX XX XX XX XX XX xx XX .ENoC ISUBROUTINE ENTRY POINTERS ,-OeAl PAGE 5 I IREENTRANT VARIARLES I 00100 11001 R R 000000 000000 A A BOTTOM BurSTX xx xx ITOP or PUSH-DOWN LIST 13 REC AREA BELOW TEXT AND VARIABLES ~SED IIHI)II2 .1.13 4 ",," 0""15 00006 11107 1011" ""111 IUI012 101113 R R R R R R R R R R 01014 001 1 5 U016 10017 00"2" 1iI"021 1iI""22 1i10023 OO0 2 4 1i11025 1iI""26 iii 0 iii 27 lIIJ031i1 lIiII31 .IiII32 01133 III iii 34 11135 101i136 11137 R R R R R R R R R R R R R R R R R R R R 111I41i1 111141 li.42 111.43 10.", '0145 lIIJ046 00047 00050 10151 I IJIII 52 R R R R R R R R R R R Ii1II53 R O00000 100000 000000 000003 "0000'" 00000O 003756 ",,4066 ""3125 003131 003213 IH10014 000000 000000 000000 000""" 000215 000000 0000011) 777777 000000 000000 001i1776 000775 "00003 001""5 001010 0""00" "0 iii "II 1i100010 0"IIIJI'0 101001i1 lIIiI1iI36 .01U135 101034 iii 00 " 1 iii 00000" '000000 ' ' ' Jill iii 0 1/1 0 I"" "00000 00000O U0000 000000 00011100 10001110 lIiI1053 01/11i1001i1 A A A R A A R R R R R R A A A A A A A A A A A A A A A A A A A A R R R A A A A A A A A A A A R A XX ENDT XX START V XX BurR LASTCV=STARTV rRSTCv XX XX LASTV COMBur COMEIN COMBOT cOMOUT IMBUrr+2 IMBUr P INBurp INBur+2 OTBurP OUTBur+2 TEXTPa. XX AXOUT XCTX 0 I GTEM HOOBur 0 ENOCR 215 GETVCT SAVEOT 0 PUTCNT -1 TEMPK 0 INSUB TTIN TTl TTOUT TTO BKI BlKIN BLKOUT BKO LIBRSW EXl iii ACIH I ACIL OVERl 0 OVER2 0 OTEHPaOVERl LTEMPaACIL HTEMP:ACIH rISW 10 GETP GETCX 0 0 GET1X 0 GET2 GET3 0 PUTP PUTC PUT6 iii SORTCN LASTOP 0 ErOP:. ATSW 0 ° ° TO CONSTRUcT VARIABLES AND FILE INAMEs(rILE01 AND rILE02 CONTAIN SAME AODR) 1ST ART or TEXT ILAST LOCATION or TEXT INEXT LOCATION IN BurrER tVARIABLES) IABDRESS Or LAST COMMON VARIABLE IADORESS or rlRST COMMON VARIABLE IADDRESS or LAST VARIABLE IcOMMAND BUrrER START lAND END 1BUrrER DATA POINTERS ITEXT POINTERS IOUTPUT INDEX IUNPACK SW ITCH IUNPACK STORAGE IPOINTER rOR MODIry IlAST CHAR rOR CETC IVARIABLE COUNT IOUTPUT CHAR IOUTPUT COUNTER rOR HEADER PAIR /TEMP rOR PACK 10: GETC; .O a READC " .. lIN lIBRARY MODE '" . /ASCII STRINC POINTER ICHAR COUNTER (2'S COMP) /TEMP /TEMP n£MP IASCII STRING POINTER ICHAR COUNTER ITEMP INUMBER IN TABLE rRO" SORTC ILAST OPERATION rOR [VAL If UNCTION CODE. IA$K..:TYPE CODE. °° " VOCAL PAGE 11154 1/11/11/155 11156 1/11/11/157 1/11/1868 11/11/16 1 11/1862 1/18163 88164 18165 18166 111 67 le878 11171 •• 872 .""73 .887 4 .1175 .al76 lean 11/1118 · 11/1181 118182 .811.3 R R R R R R R ~ R R R R R R R R R R R R R R R 777760 A 00000 4 A 000000 A 000000 A 000"01 A 000 2 15 A 000e80 A 1/100114 R 000000 A 1/100000 A 01/10000 A 10000 1 A 000001 A 101/1000 A 1/100008 . A 181/1000 A· 080000 A 180000 A 000000 A 008000 A 800000 A 1/100000 A I/IU81/10 A 1/1 0 IUJ00 A CNTR DECP ADD XCTIN NAGS'" CHAR LINENO PC THISLN THISOP LASTLN DEBGSW DI1PSW PACKST PT1 i~ SACH FLARG -20 4 xx XX 0001 215 80"'0 F RST+1 e o 1/1 1 1 1/1 I I· 1/1 I 8 8 I IDELETE AND ERROR COUNTER(USED BY F.P. ALSOl INUMBER OF DECIMAL POINTS ICHAR. BUF. IN. (DEBUG AIDS.SEE BELOW.) IPACK swITCH INOT ALL ANo/OR GROUP SWITCH (4008=ONE:l=ALLJ8=GROUP) ITHE MOST IMPORTANT REGISTER ILINE NUMBER READ BY GETLN IPROGRAM COUNTER ILINE POINTER FROM 'FINOLN' 'CURRENT 'EVAL' OPERATIC~ 'BACK POINTER FROM 'FINOLN' 'OEBUG SWITCH; NON_lERO FOR LITERAL. 1=8 FOR TRACE ON. IRuBOUT PROTECTION IVARIABLE POINTER ITEMPORARY REGISTER - HAIN ITEMP REGISTER- FOR NEW INST. ROUTINES. ISEARCH CHAR STORAGE IOATA TEMPORARY STORAGE 1/1 •• .rFDEF MULTI SWPEND=. .ENOC I INON-REENTRANT VARIABLES I '8184 .8U5 .1116 '"187 118118 18111 .8112 '8113 R R R R R R R 1/100009 800800 1/10001/10 0U1QJ7 000000 505175 I/lIiH!l000 01111/1008 lell/lee A A A R A A A A A 'in:" R R 88U5 '8116 18117 81121 81121 R e34886 R 171301 R 147141/1 R 266601 R 771580 A A A A A 11122 81123 R R 18124 11125 R R R A. A R A A A 1I12~ 000000 e88000 le8124 080008 080088 11/11/10"" BOX ER2T ERR2CT OP RANPT FRST • IrOR olen PRINT IERROR TEMP IERROR COUNT 1 1/1 XX .SU9T 1 1/1 I IVARIABLE NAME (.SIXBT) /( )=1 IPUSEOO RANDOM POINTER /TEXT POINTER IDUHMY LINE NUMBER .rFDEF PDP15 .SIX9T IC FOCAL15 V6A/(77)<15) .ENOC .IFUNO PDP15 .SIXBT IC FOCAL9 V6A/(77)<15) SIGN2 SCOUNT PLCE=. FCOUNT TEMPO REMAIN .ENOC 8 8 1 I 8 ITEHP SIGN FOCAL 0111127 00 1 30 0111131 00132 111111133 PACE 7 R R 1110111"'''''' 0001'l0" 00"'''0''' 00001110 000"'00 00111134 000"'00 000135 0"0000 000000 000137 00000'" 000"''''0 00000'" 000000 R R R 01111H R 00135 00136 R 00137 0111 14 0 0CH41 0"'142 R R R R R A A A A A R A R A A o IC IT ISICN oNUMSR SEXP SEXP MOoBF"l=. JUMP M008F2=. JUMP2 AoOR R xv: . A A A A FUNAME rUNcTR F"UNPTR . ARRAyN "" lotc IT STORAGE (CURRENT) IIII=HINUS,-l=PLUS INUH~ER or DIGITS 0"" 10ECIMAL ExP0NENT ~ '" 0 0 0 ITEMP F"LOATING POINT IF"UNCTION NAME IrUScTION COUNTER IrUNcTION POINTER !ARRAY NAME 0 0'" 0 I ICONSTANTS I 00143 00144 00145 00146 00147 00150 00151 00152 00153 O0154 00155 00156 00157 00 1 60 00161 111111162 111111163 00164 00165 00166 R R R R R R R 000Q17 7 R R R R R 000260 777700 00020'" 000177 000005 000113 000076 060314 000171 000306 000314 777641 000337 11100167 0000e1 20000'" 00 IiH'J"'''' 0"'0000 e00"'00 00004'" 00iH40 77764e 004"'02 00000'" A A A A A A A A A A A A R R A R A A A A R A A A A A A A A A A 43237111 340630 A A R R R R R R R R 80167 lIIe17111 00171 00172 0e173 0111174 1110175 IIIfIl176 0U77 00200 R R R R R R R R R R 00201 09202 R R 00111 01 3 000017 000277 000003 000002 000100 P13 P17 C277 p3 P2 CU0 C77 C260 "'100 C200 Pl77 CINC crRS F'URGP F"ILEXT CF'RSX C306 C314 H137 P337 Cl=. FLTONE F"LHER P40 C140 "'14111 F"OCAL9 13 17 277 3 2 100 77 260 -1"'0 200 177 WOROS+2 F'RST F'LARC .SIXBT F'LTi!ER 31116 314 -137 337 10UMMY LINE ADDRESS IDATA ADDRESS IF'cLI 0eelll1ll1 21110000 00"'e0e 000e0e 000000 4111 140 -140 40"'2 0 • (F"OEF" POP15 • ASCII IF"OCAL15 V6A/<15> .ENDC .IrUND POP15 .ASCII IF'OCAL9 V6A/<15> IFLOATING 0 ADDRESS IFLOATIN' 1.O IF'LOA TINe ,.O F:OCAL PACE 8 00203 00204 002P5 0021i16 R R R R 633202 00207 00210 ''H'I211 00212 00213 09214 00215 0111216 00217 00220 00221 0foJ222 0111223 00224 R R R R R R R R R R R R R R 345~12 06400~ A A A 000000 0001i13? 0001i112 01i14045 000144 777634 0001i104 2401300 o111 0 iii 001 0001'143 020000 017777 000007 6?0404 000376 R A R A A A A A A A A A R R CEXl RN02 BUF"ST C1H 1'4144 TEN P43 INORCT MASK7 C7 TABLE OPTA8L ;ENOC 01-1 DIGITS+1 BUF"FER-1 144 -144 000004 24001HI 0foJIlI0foJfoJ 43 20000 17777 7 JI1P. OPTABS .EJECT IF'LOATINC 10·0 IT ABLE rOCAl PAGE 9 / /SUBROUTINE CONVENTIONS I /l)USE AC OR 'CHAR' ON ENTRY / SORT J / PRINTC /2)USE 'CHAR' ONLY ON ENTRY / PACKC / SORTc / SPNOR / TESTN / TESTC /3)RETURN WITH 'CHAR' IN AC I READC / CETC / PACKC / SPNOR / SORTC / PRINTC / TESTe / INPUT /4)USE AC ONLY ON ENTRY / OECON / .EJECT ~. :: F'OCAL PACE 10 /~EW INSTRUCTIONS: .OrF'IN PUSHJ,A JMS XPUSHJ /RECURSIVE SUBROUTINE CALL A .ENOM .OrF'IN LAC • • ENOM .OEF'IN POPJ XPOPJ JMP .ENOM .OEF'IN PUSH A JMS XPUSHA /RESTORE AC /SUBROUTINE RETURN /SAVE AC .E~OM .OEr! N PUSHF',A JMS PD2 ISAVE GROUP OF' DATA A .ENOM .OEF'IN POPF',A JMS PD3 \ IRES TORE CROUP A .ENOM .OrF'IN CErC JMS UTRA .ENO'" .OEF'IN PACKC JHS PACBUF' .ENoH .oU IN SORTJ.A.B SORTB J"'S IUNPACK A CHARACTER IPACK A CHARACTER ISORT AND BRANCH ON AC OR CHAR A-1 .ENOM .OErIN J"'S B-A SORTJX.A XSORTX ISORT • BRANCH ON COMMAND A-1 .ENoH .orrIN SORTC.A J"'S XSORTC A-1 .ENoH .OEF'IN PRINTC J"'S XOUTL .END'" .OErIN READC J"'S XI33 ' .ENOH .oEF'IN PRNTLN J"'S XPRNT .ENoM .oEF'IN CETLN JMS XGETLN .ENoM .OErIN rINDLN JHS XrINO ISORT CHAR IPRINT AC OR CHAR IREAO KSR-33/35 INTO CHAR /PRINT C'LINENO) IUNPACK 4ND F'ORM A LINENUMBER PACE 11 .ENOM .OF:F'IN ENOLN JMS l(ENOLN .ENOM .OEFIN RTL6 JMS XRTL6 .ENOM .OEFIN SPNOR XSPNOR JMS .ENOM .OEFIN TESTN JHS XTESTN .ENOM .OEFIN TSTLPR LPRTST JMS .ENOM .OEF'IN TSTGRP JMS GRPTST .ENOM .OEFIN TESTC JMS XTESTC .ENoM .OEFIN ERROR." .OEC JMP ERR2-A .ENoM .OEFIN GETSGN LAC. .AS .ENoH .OEFIN RETURN JMP EFUN3 .ENOH .IFoEF SF .OEF'IN .RLxlT.A ., A CAL 20 ·ENoH .ENOC .[FUNO SF .OEF'IN .RLXIT,A OBR JHP • • ENOH .ENOC .EJECT IINSERT L[NE POINTERS IROT ATE LEFT S I X IIGNORE SPACES ISKIP IF 5<SORTCN<= 11 (I.E. AN L-PAR> ISK[P [F ,CAC> = GCLJNENO> IERROR HSG FOCAl 00 22 5 00226 90227 00230 00231 09232 IJ0233 09234 00235 00236 00237 002"0 002"1 1102"2 00243 0024" 00245 00246 00247 00250 00251 00252 00253 0025" 00255 90256 00257 09260 90261 00262 09263 00264 00265 00266 00267 0027B B0271 00272 00273 00274 00275 00276 00277 00300 00301 00302 00303 00304 1J0305 00306 00307 00310 / -, - .. .. - - -... PACE R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 12 777756 110600 60.1351'1 041701'1 60077" 07170fi1 601176 071724 170000 601176 230 5 24 00011100 601407 061722 000001'1 601407 031715 15 05 16 2401'100 6012H'1 031716 241116 2505ge 601210 052201 230500 692633 272211 240500 601234 151704 110631 000000 601705 212511 2411.1000 600512 220524 252216 011.10000 602262 520000 60,,155 012313 000000 601603 243120 050000 601604 141102 220122 310090 A A R A R A R A A R A A R A A R A A A R A A A R A A R A A R A A A R A A R A A A R A R A A R A A R A A A I IFOCAL COMMAND TABLES I COf'4LST -22 IIFill .SIXBT JMP IF .SIXRT 100ill JMP DO - . S I XBT IGOill J/1P COTO .SIXBT ICOTOill JMP .SIXRT COTO ISET.I JKP .SIXBT SET IFORill JHP .SIXBT FOR ICOMMENTill j/1P .SIXBT COHMEN ICONTINUEIilI jHP .SIXBT COHHEN IERASEill JMP .SIXBT ERASE IWRITEill JMP .SIXBT WRITE IHOo I FYill jHP .SIXBT HODIFY IQUITill jHP .SIXBT START IRETURNill jHP .SIXBT JMP .SIXBT RETURX I_ill HSPX IASKIilI J/1p .SIXBT ASK ITYPEill J/1P .SIXFlT TYPE ILIBRARYill ~ .-- . - " fOCAL PAGE 88311 8111312 0111313 00314 00315 003 1 6 00317 0111320 00321 ~0322 00323 90324 90325 00326 00327 00330 00331 R R R R R R R R R R R R R R R R R 13 6041'167 031715 l'H 716 0000QHl 6 I'll 513 777777 011414 0001'100 600755 777776 011414 000000 602644 031715 151716 001H100 61110543 00332 00333 00334 80335 00336 00337 003421 00341 00342 00343 00344 00345 00346 00347 00350 R R R R R R R R R R R R R R R 777773 172524 000000 604157 111600 604Hl5 031417 230500 M'l4177 131114 140000 604205 272211 240500 604220 11103 5 1 1110352 1110353 1110354 00355 0i'!356 0111357 00360 0111361 00362 00363 00364 00365 00366 00367 00370 . 00371 R R R R R R 777766 231116 604340 031723 604334 012416 604315 0531'120 604272 141707 604321 232124 605363 010223 6"'2514 230716 602510 R R R R R R R R R R R R A A A R A A A R A A A R A I ALLCMl I ALLCM2 JHP .SIXBT LIBRAR ICOMMONtal JHP COHMON -1 .SIXBT IALLlIl - JHp GEXIT -2 .SIXBT IAL!.. .. I JHp .SIXBT XSBEGN ICOMHONlil JHP STARTQ -5 .SIXBT IOUTlil JHp .SIXBT JHP .SIXBT LBOUT IINlil LBIN ICLOSEliI JHP .SIXBT L8CLOS IKILLlII JHP .SIXBT L8KILL IWRITEliI A A R A A A R A R A A R A I LI BCMO A R A A R A A R A R A R A R A R A R A R A R JHP L8WRIT I /TA8LES fOR fOCAL fUNCTIONS ( INTERNAL> I fNTABf rNTABE-.-1/2\777777+ 1 ISINI .SlXe T JHP rSIN .SIXBT ICOSI JHp fCOS .SpBT IATNI ARTN JHP .SIX8T IEXPI JHP fEXP .SIXeT ;LOGI JHP nOG .SIXBT ISQTI XSQRT JHP .SIXBT IABSI JHP XABS .SIxeT ISGNI JHP XSGN "" " FoCAL PAGE 14 R R R 112422 6Q12506 220116 603734 000376 00372 00373 "'03H 00375 R A R A R R .SIXRT JMP .SIXRT JMP I ITRI XINT IRANI XRAN FNTAqE= . I IOPERATION TABLES FOR FLOATING POINT INTERPRETER 1/J0 3 76 00377 R R (II~400 R I1Il11401 0"41'12 004"'3 R 00 4 0 4 0Q1405 00406 00407 00410 00 411 00412 00413 R R R R R R R R R R 5 2 01117 2 120072 220Q17:) 420072 320072 02011172 00 5234 005226 005222 1/J05337 005352 00 521 6 005212 005232 R R R R R I OPTABS R R R R R R R R R I IT ABLE FGnFADOFSUBFOIVFMUL_ FPOW. PH PH PH pTl PT1 PT1 EXITF FLAO FLSU FLMY FLQV FLGT rLPT NORr ". lEX IT OR POWER 114 00 ISUBTRACT IMUL TIPL Y IDIVIOE IGET nOA T I NG POINT IPUT rLOATING POINT INORHALJ lE I !TABLE OF TERMIN4 TORS (FOR EVAL AND GETVAR) 00 4 14 00415 R R 0(11416 00417 R R 00420 00421 00422 00423 00424 00"25 00426 00427 00430 00431 00432 00433 00434 004 3 5 R 00"436 00437 00440 00441 00442 00443 ,~ " R R R R R R R R R R R R R R R R R R R I 000 3 0 5 000256 000416 000240 000253 000420 000255 000257 000252 000336 000250 000333 00111274 000251 000335 000276 000254 000273 00021 5 000 2 75 A A R A A R ,A A A A A A A A A A A A A A M'!1670 61111645 601655 601661 603657 6016'7 R R R R R R C30 5 PER TERMS:. C240 C255=. SHIN C252 C250 C251 C254 C273 30 5 256 l. 24(11 253 1+ 255 257 252 336 250 333 274 251 335 276 254 273 215 275 C275 I ICONTROL TABLE rOR ASK/TYPE OPERATIONS I JHP ATLlST TINTR TQUOT JHP JHP TCRLr JMp TCRLF2 JHP TOUHP TASK4 J"P IE - rOR INPUT NUMBERS - fOR INPUT NUMBERS ISPACE • 1 111 I. It I( I[ I( /) I] I) I. " ICR I,. ~ 3 4 5 6 L - PARENS 7 1, 11 R - pARENS 12 13 14 15 16 17 PAGE 15 00444 00445 00446 R R R 601657 601203 6012H'I R R R 00 44 7 00450 QJQl451 00452 00453 00 454 00455 0"'456 00457 R R R R R R R R R 000 245 000242 01110241 000243 Ql00244 000 24 0 000254 01110273 000215 A A A A A A A A A rOCAl 00460 00461 00462 R R R 601405 601203 6012111' 00 4 6 3 00464 R R 601 44 7 61.H507 00465 R 603462 00466 00467 00470 R R R 6014 33 601203 601210 00 4 71 00472 00473 R R R 601512 M'l1203 601210 80 4 7 4 08475 00476 08477 00500 R R R R R 00501 00502 R R 00,,225 000375 000207 000212 99"377 000501 000511J1 000215 000000 fUl503 00504 00505 00506 005f1l7 0!!15le 0!!1511 R R R R R R R 6017 44 61111731 601724 601726 602003 69176 2 601750 JMP JMP JMP I ALIST C242 GLIST TLIST TLI STX 245 242 241 243 244 24", 254 273 215 TASK4 PROCES PCl - F"LOATING F"ORMAT I" - LITERAL I~ n - CR AND IF" I' - CR OPcLY IS - SYHBOL DUMP ISPACE - END NAMES I. - END EXPRESSIONS I l - END COMMANDS IC.R. - END STRINGS I IDISPATCH TABLES F"OR IF" AND COHMON STATEMENTS I R JI1P ILIST In I. R JHP PROCES Il R PCl JMP ICR I JHP R rLl S T2 rLll1IT I. . I; R JMP rINrIN ERROR 11 ICR GEN.DEC R GENJMP ERR2-11 I R JMP F"L1SH FINCR I. I; R JMP PROCES PCl R ICR JHP I R CLI STX JMP COI1110N-l I. R JHP Il PROCES R PCl ICR JHP I ICONTROL TA8LE FOR MODIFY OPERATION I 225 A LIST 6 I'U - KIll LINE A C375 375 IALTHOOE - NEXT OCCURANCE OF SEARCH CHAR. A 207 18£LL - NEw SEARCH CHAR A C212 212 IL.r. - END LJNE SAVING REST A 377 IRUSOUT - DELETE LAST CHAR C377 R L1 ST 3= • R CCR=. A IC.R • ..; END LINE DELETING REST C215 215 A 000 ISEARCH CHAR I I.U SRNLST JHP R SBAR R JHP SCHAR IF.t. JMp ISELL R SCONT R JMP SCONTX IL.F. R JMP SCRUB IRUBOUT R L1STGO JHP SRETN ICR R JI1P srOUND ISEARCH CAiAR I .EJECT fOCAL PACE 16 • I fOEF' MULTI I ITHIS CODE CONTR0LS THE MULTI-USER PROCESSING I Of TWO OR rOUR CONCURENT rOCAL USERS. I RUFFER: • "START lAC. (.SCOM+2 OAC Tl JMS TWOS TAO· (.SCOM+3 IGET S I lE ClURAR loIVIDE BY TWO OR fOUR .lfoEF' USR4 ClURAR .ENoC . oAC ENoT IAMT F'OR EACH 10ETERMINE iF' BG OR F'G IN Bf ENVIRONMENT I.SCOH+26 = 0 If fC. z 1 IF' BC lAC. (.SC0I1+26 SNA JMP fGR'!' lAC BCl .lfOEf USR" OAe SCANQ ISET PROCESSING LOOP TO BYPASS IOlEC JHP fGBY .ENoe oAC WAIn rGeY LAC T1 IGO INITIALI~E REGS oAC Burl OAe f I LA! OAe fILBl rILCl OAe (3 TAO ENOTl OAe ENOTl+l OAC OAe ENOTl+3 OAe ENOT1+" LAW -1 TAO H TAO ENOT OAe BOH TAO C1 OAe H OAe BUF"2 OAt F"I LA2 OAC fILB2 OAC fILC2 TAD (3 OAe ENOT2 OAe ENOT2+1 OAe ENOT2+3 OAC ENoT2+" LAW -1 TAD H ENOT TAD OAC BOT2 ;,: .1 rOCAL PAGE 17 .Irorr TAD OAC OAC OAC OAC OAC TAO OAC OAC OAe OAC LAW TAD TAn OAC TAO OAC OAC OAC OAC OAC TAO OAC OAC OAC OAC LAW TAD TAO OAC .ENOC .INIT .INIT .lrOEF" .INIT .INIT .ENOC • WR ITE • WRITE · I rOEF" • WRITE • WR ITE .ENOC JI1P CTLP1 CTlP2 o o CTlP3 CTLP4 f1I 91 CP1 o .IFOEF USR4 C1 T1 Bur3 F'llA3 F'ILB3 F"ILC3 (3 ENOH ENOH+1 ENOT3+3 ENOT3+4 -1 T1 ENOT BOll C1 T1 BUF'4 F'ILA4 rllB4 rllC4 (3 ENOT4 ENOT4+1 ENOT4+3 ENOH+4 -1 T1 ENOT BOH TT01.1.C P 1+400000 TT02.1.CP2+400000 USR4 TT03.1,CP3+4~000~ TT04,1,CP4+4~0000 TT01,2.FOCAl9.40 TT02.2.F"OCAL9,40 USR4 TT03,2.FOCAl9.40 TT04,2.FOCAl9.40 WA IT! USR4 .ENOC lSi! CTLPl .RLXIT CPI , CP2 o rOCAL PACE 18 lSi! CTLP2 .RLXIT CP2 .IroEr USR4 CP3 CTLP3 "lSi! ,RLX IT CP3 CP4 ~ lSi! CTLP4 ,RLXIT CP4 ,ENOr. ,EJECT IMAIN PROCESSING LOOP ,WAlTH WAITl TTI1,WAiT2 ,WAITR WAITBl TTIlt WAl T2 LAC ( AREA1-l JMS RUN ,WA ITR TTI2,WAlT3 ,WA ITR TTI2,WAiT3 LAC (AREA2-1 JMS RUN ,lrUNO USR4 NOP IWILL BE JMP WAITl IN 2 USER CASE ,ENoC , I rOEF" USR4 • WA ITR TTI3,WAiT4 ,WA ITR TTI3.WAiT4 LAC (AREA3-1 JMS RUN ,'''AITR TTI4.SCANQ ,WAITR TTI4.SCANQ LAC (AREA4-l JMS RUN ,ENoC SCANQ CAL INS - GIVE BCD SOME TIME ISCANQ WILL CONT, JMP WAITl IN CASE or 4USER 14 IOLE+7f11f/1000 -12 CAL+Ul00 I,IotEC ROUTINE wILL BYPASS THiS ON ITIMER OVERrLOW 17 CAL+HHlf/l 14 IOLE+7P0000 BGl 8 JMP WA IT1 IGO SEE '~ANYTHINC I ,EJECT IRUN INiTIALli!ATION RUN NEWUSR oAC SAO CURUSR JMP RESTAX (MVSi!E LAC (16 oAC· (BWAIT LAC " ICHECK FOR SAME USER I? /YES _ tIIO SWAP ISET TO SAVE INLINE ITEMPOR.R I ES DONE NOW rOCAL PACE 19 OAC· LAC OAC LAC. OAC LACOAC_ IS~ RESTAX JI'1P LAC OAC· LAC OAC. OAC LAC OAC LAC OAC LAC. OAC. LAC. OAC. lSi! I Si! JMP LAC OAC· LAC OAC· LAC OAC LAC. OAC LAC. OAC. I Sl JI'1P CAL (17 MVSi!E RUNCT ISAVE RECS LOOP 16 RUNTP RUNTP 17 RUNCT .-5 CURUSR (16 NEWUSR (17 CURUSR (SWP8CN RUNTP SWPSi!E RUNCT RUNTP ISWAP USERS INITIALIi!ATION INOW 00 SWAP 16 17 RUNTP RUNTP RUNCT .-6 (MVSi!E (16 (BWAIT (17 I1VSi!E RUNCT ISET TO RESTORE INLINE ITEMPORARIES 16 IRESTOR RECS LOOP RUNTP 17 RUNTP RUNCT .-5 .~ 14 T II'1E+70'HUleI -12 OlM OELAY LAC. CTLP Si!A JHP RECOVR JMP· RESTAR ICOSTART UP USER 11/0 BUSY OR OUT or TIME RETURNS HERE IOBUSY 0 LAC • -1 ICET RETURN PC OAC RESTAR • IrOEF BF CAL+le100 ICLEAR OUT CALL rOR TIME 14 TI"'E+700000 o FOCAl PAGE 20 .ENoe JMP. RUN I RUNTP RUNCT DELAY f p "E ~ '" '" ISET DELAY III I IDLE O~ OVERFLOW lSi! DELAY .HLXIT TIME IFORCE RETURN TO FGD 1/1 .RLXtT IDLE I .EJECT I ICOMMUNICAT10N BLOCK -I cURUSR NEWUSR SWPBGN-1 1/1 ICURRENT USER AREA-l INEW USER AREA-l I ISPECIAL POINTERS FOR SAVE/RESTORE I MVSlE FLACH FLAC15 FLAC16 .+1-MVE~D XX xx xx FRST LlST3+1 10 11 12 13 14 IMBF01 IMBF02 IN8F01 OTBF01 FLINTP XI33 XOUTL INPUT DECON DECONV IMAGER IMAGEW RCAL01 RCAL03 WCAL01 WCAL03 WCAL04 LBIN01 LB I NU LBIN02 LBIN03 I,U I,AB I.AC PAGE ?1 lBOUTl lBOUT2 LBOUT3 lBOUH FILE01 F'ILEP2 F'llE~3 /'4VEND:. I ISAVE AREAS AND 8UFFERS 'OR EACH JOB I AREAl XSSEGN CTLPl WAITel .,. o o '11 ''1"1 IRESTART -1 REG In AC -3 RECS IFRST IlIST3+1 IAUTOXR -5 REGS o'" o 0' IMBl IMBl INBl OTRl o o o o o o IBurFER HEADER poiNTERS -4 REGS ISUBROUTIME ENTRY POINTS - la(s) REGS A '11 200a+TTll 3a"'I/I+TTll 2001/1+TTOl 3000+TTOl 2a00+TTOl ICAl SAVES -14(8) REGS o 1/1 pi rllAl rllBl rllCl BOTl Burl - ENOH "1/o1 "" POI~TERS " IrilE - 3 REGS XX XX IFREE COR£ POINTERS - 6 REGS Q! A XX fOCAL PAGE 22 xx XX xx XX CMB1 CM81+77 IMR1+2 INB1+2 OTB1+2 o R ., o 215 111 8 -1 1/1 8 TTl1 TTOl BKU SK01 " 111 o fI o '1111" 'otl" ., tl OT81+2 III 8 I 8 ICOHBUF=COMEIN ICOHBOT=COMOUT II HSUfP=IHRUF"F"+2 IINSUfp=INBUF"+2 IOTBUfP=OUTBUF"+2 IAXOUT (TEXTP) IXCTX ICTE" I"OOBUf IENOCR IGElVeT ISAVEOT IPUTCNT /TEHPK IINSUB ITT IN ITTOUT IBLKIN IBLKOUT ILIBRS" IEXl IAC1H IAC1L IOVERl IOVER2 IfIS .. IGElP IG£1CX IGETlX IG£12 IG£13 IPUTP IPUTC IPUT6 ISORTCH ILASTOP 1/1 IATS" (HOP) -28 ICNTR IDECP IADO IXCTIN INAGS" ICHAR ILINENO IPC ITHISLN ITHISOP ILASTLN IDEBGSW IDHPSW -/PACKST .- o 1" '215 o FRST+l 11! o i'! 1 1 8 f"OCAl PAGE 23 IPH ITt IT2 ISACH If"LARG -3 REGS III 'III" (/I 'P!" III '" o if"lARG2 -3 REGS 1/1 AREUS:. -AREAl IHBl 2003: (/I: 0: -1 INBl .BLOCK 60 (15) • ASC II OTBl 1I/ll'll/l .BLOCK 57 .ASCII (15) CHBl .BLOCK 100 215 I AREA2 XSBEGN CTlP2 IIA[TB2 IRESTART - 1 REG '" If"lAC - 3 REGS III (/I 1/1 III III If"RST ILlST3+1 IAUTOXR - 5 REGS 'III" III III IH82 IH82 IBUf"f"ER HEAOER POINTERS - 4 REG INB2 OT82 1/1 1/1 8 ISUBROUTINE ENTRY POINTS - 10(8) REGS III III fi!J o 2000+ '3000+TTI2 " TT 12 2000+TT02 3001/1+TT02 2000+ TT02 1/1 'III" 8 " ICAl SAVES - 14(8) REGS FOCAL PAGE 24 III F'IlA2 FIlB2 FIlC2 BOT2 f:lUF'2 ENOT2 III III III 0 1F'llE POINTERS - 3 REGS ""XX IFREE CORE POINTERS - 6 REGS XX XX XX XX XX XX CHB2 CMS?+77 1"'82+2 lNB2+2 OT82+2 ICOMBUF=COMEIN ICOMBOT=COMOUT IINBUF'P=IMBUH+2 llNBUF'P= INBUF' +2 loTaUFP=OUTBUF'+2 IAXOUT <TEXTP) " "":US " IleeTX If IGTEM 'MeoaUF lENDeR 'G£lVCT ISAVEOT IPUTCNT !TEMPt( 1'1 NSUB tTTIN ITTOUT 18lKIN 18lKOUT ILlBRSW IEXl IAClH IACll 10VERl IOVER2 IFISW IGETP IC£TCX 1/1 -1 It It lT12 TT02 BKI2 BI<02 lit "e " " "" " "OT82+2 "" "" "-20 4 I/J 10 IGETtX I/J e I 1 .. ICET2 IGET3 IPUTP IPUTC IPUT6 ,SORTCN ILASTOP IATSW(EF'OP) ICNTR IDECP IADO IXCTIN IHAGSW FOCAL PACE tiS ICHAR ILINENO IPC ITHISLN ITHISOP ILASTLN IDEBGSW IOMPSW IPACKST IP T1 215 o FRST+l III o ~ 1 1 III o ITt III o IT2 "", ISACH IFLARC - 3 REGS o'" III III IFLARG2 - 3 REGS o III AREA2S=.-AREA2 IH92 2003: ~: IHB2 .BLOCK .ASCII OTB2 1000 .BLOCK .ASCII CHB2 • BLOCK -1 60 <15) 57 <15) 100 215 1 AREA3 .IFDEF XSBECN CTLP3 WAITB3 o USR4 IRESTART - 1 REG IFLAC - 3 REGS III o III o o o IFRST ILIST3+1 IAUTOXR - 5 REGS III o'" IHB3 IBUFFER HEADER POINTERS - 4 REG 11183 INB3 OTB3 '" III o o o o '" "", ISUBROUTINE ENTRY POINTS - 18(8) REG F'OCAl PACE 26 20"'0+ TT 13 3000+TT13 20"'0+ TT03 3000+ TT03 2000+TT03 ICAl SAVES - 14(8) RECS "'" 111 111 "" III F'IlA3 F'IlB3 F'llC3 BOT3 BUr3 ENOT3 "III IF'IlE POINTERS - 3 RECS "'xx" IrREE CORE POINTERS - 6 RECS xx xx xx XX lfX )Of CHB3 CHB3+77 IHA3+2 JNA3+2 OTR3+2 III 8 o o 215 " " "TTJ3 QI -1 TT03 81<13 BI<03 III " III III III "1111 " III III III 8 OTB3+2 ICBHBUF" .. COMEIN Ic8H80T=COHOUT IIHBurp=IHBUF"F"+2 IINBUF"p::INBUF"+2 IOTBUF"P=OUTBUF"+2 IAXOUT <TEXTP) IXCTX IGTEH IHOOBUF" I[NDCR IGETVCT ISAVEOT IPUTCNT lTEMPI< IINSUB ITTIN , ITTOUT IBlKIN °/BlKOUT ILIBRSW IEXl IAC1H IACll 10VERl IOVER2 IF"ISW IGETP IGETCX IGET1 X IGET2 ICET3 ' /PUTP PACE 27 ." IPUTe IPUT6 ." III ILASTOP IATSW<EF'OP) ICNTR IDEep IAOD IXCTIN INACSw ICHAR IUNEND IPC /THlsLN /THISOP ILASTLN IDEBCSW IOMPSW IPACKST IPT1 e e ISORTe~ -2A 4 ." ." 1 215 e F'RST+1 "e III 1 1 "ee "ee "e ITt IT2 ISACH IF'LARG - 3 RECS GIl IF'LARG2 - :3 REGS GIl GIl AREA3S=.-AREA3 IMB3 2003: ~: INB3 .BLOCK • ASC II OTB3 100" .BLOCK .ASCII CMB3 .BLOCK e: -1 60 <15) 57 <15) 1I!Ie 215 I AREH XSBECN CTLP4 WA ITB4 IRESTART - 1 REG "ee e B ." ." IF'RST ILIST3+1 IAUToXR - 5 RECS e e GIl IMB4 IMB4 " ",INB4 IBUF'F'ER HEADER POINlERS - 4 REC F'OCAl PAGE 28 OTR" III ISUBROUTINE ENTRY POINTS - 111l (8) REG o III 'III" III o III 211l011l+TTI4 311l1ll0+TT 14 211l00+TT04 3000+TT04 2011l0+TTO" ICAl SAVES - 14(8) REGS o ""e o o F'IlA4 F'I l84 F'IlC4 BOT" 8UF4 ENOT4 III III III o o XX XX XX XX IFIlE POINTERS - 3 REGS IFREE CORE POINTERS - 6 REGS XX XX XX CM84 CM84+77 11'18 4 +2 IN8"+2 OT84+2 o o III o 215 III III -1 o 8 TTl" TTO" 8KI4 BK04 o o o o ICOHBUF=COMEIN ICOMBOT=COMQUT IIMBUFP=IM8 UFF+2 IINBUFP=INBUF+2 IOT8UF'P,=QUTBUF+2 IAXOUT(TEXPT) IXCTX IGTEM IHOOBUF lENDeR IGETVCT ISAVEOT IPUTCNT ITEMPK liN5UB ITTIN ITTOUT IBlKIN IBKOUT IlIBRSW IEXl IAC1H IACll rOCAL PAGE 29 9 9 19 0 PI 0 9 9 OTB"+2 9 9 0 9 0 ..9-20 9 1 215 III rRST+1 III III III 1 1 PI 9 0 III 9 9 9 0 0 ,' ; . ' III III AREHS=.-AREA4 IHB .. 2003: 0: 9: -1 INB .. .BLOCK 60 .ASCII <15> un · OTB .. .BLOCK' 57 .ASCI [ <15> CHB .. .BLOCK 190 215 I .ENOC .ENOC .EJECT IOVER1 IOVER2 IrlSW IGETP IGETCX ICETlX ICET2 ICET3 IPUTP IPure IPUT6 ISORTCN ILASTOP IATSWcEF'OP) ICNTR 10ECP IAOO IXCTIN INAGSW ICHAR ILINENO IPC ITHISLN ITHISOP ILASTLN 10EBGSW 10HPSW IPACKST IPTl ITt IT2 ISACH IrLARC - 3 RECS . IrLARc2 - 3 RECS FOCAL PAGE 00512 0"'513 005 1 4 O0515 00516 09517 99529 90521 00522 00523 90524 00525 09526 00527 08539 fiIJ'9531 00532 00533 00534 005 3 5 00536 00537 00540 095.41 80542 00543 90544 99545 00546 00 54 7 00550 09551 00552 00553 00554 00555 00556 00557 80560 00561 80562 1;0563 00564 00565 00566 00567 80570 90571 R R R R 30 200~05 R R R GEN. R IBAR R DAC- R R R 040~73 R 200005 340 614 340073 065540 200004 040005 340614 065541 290073 103752 365540 540003 60054 1 220015 060016 600531 225541 600545 200004 040005 040003 040006 R R R R R R R R R R R R R R R R R R R R 2~015f1! R R A R R R R R R R R R R R R R 200010 065542 440070 140502 203327 505543 540026 741000 600575 R 203~12 R R R R R R R R 505543 540027 600571 200422 U3273 600575 200422 R R R R R R R 00572 00573 R 103362 290475 R GEN. R 80574 08575 00576 103362 R 200007 'R . 065544 R R R R R R R R 440~67 R 141146 R R R R STARTL R R A A R R R R R R R R R R R R R R R R A R R START FRSTCY LAC SAO LASTCY JHP STARTQ HOY COM LAC SZA!CLA LAC CU9 oAC T1 LAC FR"Sl'CY TAO I'll TAD Tl OAC. (X15 BUFR LAC FRSTCY OAC I'll TAD OAC. (X16 LAC T1 JKS TWOS TAO. (X15 SAO LASTCY JMP ShRTC X15 LAC· OAC. X16 JMP STARTL LAC. ( X16 JMP STARTB BUFR LAC FRSTCY OAC LASTCY OAC LASTV oAC IS1 oEBGSW DiM MOVCOM LAC COMBOT oAC. (PolXR IS1 DMPSW DiM LIST3+1 LAC RCAle! (777 AND SAO TTIN SKp JMP IBAR LAC WCAL9l AND <777 SAD TTOUT JMP IBARX LAC C252 JMS IMAe EW JMP IBAR LAC C252 PRINTC JMS XOUTL · lAC C375 PRINTC JMS XOUTL COHBUF lAC 540Pl03 600543 201146 750200 STARTC STARTQ STARTB STARH IBARX (A~IN IANY COHMON? INa - GO RESET POINTERS ISETUP NEW COMMON START IANY MORE COMMON? INO IYES - MOYE REG ISET NEil LAST AOOR lAND VARIABLE POINTERS 10ISABLE TRACE FOR INPUT IPROTECT COMMAND BUFFER IINIT UNPACK AND TRACE SWITCH ICLEAR SEARCH CHARACTER rOR INPUT 115 INPUT TTY IN? 108N·T PRINT. 1M AI([ SURE TTY OUT IIF NOT TTY OUT USE IMAGE MODE IANNOUNCE PRESENCE IINITIALIZE COMMAND BurrER, ,.DeAL PAGE 31 "0577 11J1o} 6 III 0 00601 00602 - 00602 0061113 6110604 R R R R R R R 14011'57 200162 040P63 R R R 103322 540'501 6""607 R GOh R R 0061115 0061116 R 111'3'562 611!0602 R GEN_ R "0607 0061117 00610 00611 00612 00613 00614 00615 R R R R R R 00616 00617 00620 R R IGNOR 11111 10 3 56 2 440063 211'0007 34"167 040014 777777 040015 IRETN R GENR R R GONE R A I'll R R 102752 2111011100 065542 R GENR R 00621 R 102233 R GEN- 006 22 R 10 22 4 2 R GEN- 006 2 3 00624 00625 00626 00627 R 603474 74100111 600640 140067 140~62 GEHR GENA R R R 10 11 00 001204 220063 74120111 600547 040063 3 4 0167 600612 R GENR GENR A R R R R 00~~01 00 00632 00633 006304 . 00635 006 3 6 00637 R R R R R R R R R R R R R R R 0i!!4 LAC OAC READC JHS SAD JMP PACKC JMS JHP PACKC JHS lSi! LAC TAO OAC LAW OAC CETc JHS LAC OACSPNOR JHS TESTN JHS ERROR .OEC JHP SKP JHP OlH OlH PUSHJ JMS LACSNA JMP OAC TAD JMP XCTIN CF'RSX PC IREAD COMMAND STRINe Xl33 C215 IRETN ISAvr STRING CHARACTER, PACBUF' iGNOR I PACK C,R. PACBUF' Pc COHBUF' Cl AXOUT -1 XCTX UTRA BOTTOM (POLXR IINITIALIi!E "TEXTp· ISETUP CURRENT LINE IRE AD FIRST CHARACTER. IINIT PUSH-QOWN-L1ST XSPNOR XTESTN 1 109ES THE LINE BEGIN WITH 1-9? ERR2-1 IHPUTX OEBGSw LINENO PROC XPUSHJ PROC PC STARH PC Cl GONE IYES IENABLE TRACE IPROCESS I MMED IA TE COHMAND. lCHECK NEXT LINE (X-MEM) lEND OF PROeRAM? IYES ISAVE NEil LINE NO, ISTART NEW LINE IPROcESS OTHER COMMANDS 11111 806 4 0 80640 006041 00642 1/J0643 00644 00645 00646 - 1110647 R R R R R R R R R INPUTX U18664 21110060 7501"'0 611'3473 lIH146 200004 065544 140057 R GENR A GENR GENR R R R GElLN JMS LAC SMA!CLA ERROR .DEC JMP JHS LAC OAC_ DiM IREAO THIS LINE NUMBER XGETlN HAeS W /TEST F'OR S I NGL E LIIIE 2 ERR2-2 MOVCOM BUFR (AXIN XCTIN IOFFSET ~110N ISET POINTERS F'OCAL PACE 32 88658 8065 1 80652 R 2"'8062 R 060~1111 R 751""00 R A A 80653 R 102752 R GEN_ 00654 00655 00656 00657 R R R R 1"'3562 540501 74111100 600653 R GEN_ R A R 09660 00661 R R 101100 "866 2 R R 10 3 05 1 60051.2 "'0663 0"'255~ R GENR GENR GEN· R LAC OACSKP!ClA GETC JMS PACKC JMS SAO SKP JMP PUSHJ JMS ENOlN JMS JHP .EJECT LINENO AXIN UTRA PACBUF' e215 ISAVE LINE I(X-MEM) II IREAD 1ST Af'"TER LJNENO TERMINATOR. /SAVE SPACE AND OTHERS - RESTORE DATA F"I ELO /TEST FOR END .-4 DELETE XPUSHJ DELETE XENDLN START /REMOVE OLD LINE. IF' ANY. /INSERT NEW LINE FOCAL PAGE 33 ITEXT LINE BUrfEq fORHATPOINTER OR i!ERO IN LAST 112 : llNENO 1fl.3 - 'N+1 : TEXT I'N : C.R. XGETlN 0 SPNOR JHS XSPNOR TESTN JHS XTESTN NOP JHP TESTA INSUB Oi!'" DlH- .AB Oi!"'- .AC DiM OVER2 DECON JHS lAC OVER2 RTl6 JHS XRTl6 RAl DAC LINENO AND P177 Si!A!CLA ERROR 3 .OEC JHP ERR2-3 lAC- .AC SZA 3 ERROR .OEC JHP ERR2-3 TESTN JHS XTESTN GElC JHS UTRA IOTHER TESTN JHS XTESTN ERROR 5 .DEC JHP ERR2-5 JHP GEXIT Cll RTl SORTCN TAO RAl LINENO TAO lINENO DAC GETC JMS UTRA TESTN XTESTN JHS ERROR 5 .OEC 111 00664 R 0P10000 A 00665 R 102233 R GEN- 80666 80667 O067O 00671 00672 00673 00674 00675 00676 R R R R R R R R R 102242 74000P1 600736 140025 165522 165523 140037 104550 2(110037 R GEN_ A R R E E R R R 00677 00700 00701 00702 00703 R R R R R 1e077~ 0401'162 500155 750200 R GEN_ A R R A 740~10 0P1704 00705 00706 R R R 6(11347 2 225523 740200 GEN· R GENE A 00707 R 603472 GEN. R GEN. 00710 R 102242 R GEN. 007 11 R 102 75 2 R GEN· ''''7 12 R 10 22 4 2 R GENGEN. 71 "" 007143 80715 00716 "0717 00720 00721 00722 R R R R R R R R 6 0 3470 6(1'0755 744000 7420U 340051 740"'110'1 340062 040062 R Gn~· R A A R A R R 00723 R 102752 R GEN_ 00724 R 102242 R GEN_ GEN· - 10EVElOP 1.0. "CETlN" IIGNORE lEADING i!EROS AND SPACES. ICAll 'GETC' fROM 'INPUT' fROH 'OECON' IGROUP TOO lARGE IYES IGROUP TOO lARGE ITESH IREAO STEP NUHBER. !TEST 4 100UBlE PERIOoS 10THER INUHBER -12 IGET fiNAL o IG IT /TEST5 IMUlTIPlE PERIODS rOCAl PAG£ 34 R GEN· R R 603470 600755 34011!62 2140;>62 .~0731 R 102752 R GEN • 00732 O0733 00734 R 1e2242 74 1°00 600755 R GEN· A R M'!3 467 200061 540450 604224 140062 GEN· R GEN· R TESTA R R R 807415 R 00726 00727 00730 R R R R R R 00735 IU/736 00737 00740 10741 R 03142 R 007-43 00744 00745 00746 00747 00750 00751 R 00752 80753 00754 00755 00756 007'57 80761!1 80761 00762 110763 00764 10765 1fil766 88767 R R GEN. R R A R R A R R R 102('140 0003 15 R GEN· R GEN· R R R R R R R R R R R R R R R R R Ql0770 R R R R R R 80775 R R 111'1321 0(/10453 600755 777767 102110 22011'01 741200 600755 00771 00772 00773 Ql0774 R 603446 200062 500155 754200 740002 3<40062 501347 751200 3<40147 740020 040060 620664 000000 744000 742010 742010 74211110 620770 JMP JMP TAD OAC GElc JMS TESTN JMS SKP JMP ERROR .OEC JMP lAC SAO J"'p OlM SORTC JHS R GEN· JMP lAW JHS lAC. SNA J"'P SORTJX JMS A A A A A R UTRA XT£STN GEXIT 6 lOT HER ITEST FOR CORRECT TERMINATOR ITEST6 - I. E. NOT A NUMBER OR ITOO lARGE A lINE NUMBER. ERR2-6 CHAR C242 lBTEXT lINENO GLIST XSORTC GLIST-l GEXIT -11 F"ETVAR BUFSTX GEXIT AllCMl XSORTX AllCM1-l 23 ERROR .OEC JHP ERR2- 2 3 LAC llNENO ITEST FOR GROUP NUMBER. AND Pl77 SlA!CLA!Cll CMl LINENOTAO ANO P7600 SNA:CLA TAO P2 RAR OAC NAGSW JHP. XGETlN IRANGE OF ACCEPTtBlE lINE NUMBERS = 1. IU TO 99.99 INAGSW: IGROUP=000000 IlINE=400000 IALl::000001 XRTl6 IROTATE AC LEFT SIX - "RTl6'" Cll RTl RTl RTl JMP. XRTl6 .EJECT GEN· R GEN· R GEX IT R A A R R A R A R R ER R2-5 G£X IT LINENO llNENO F'OCAl PAGE 35 IRECURSIVE OPERATE. EXECUTE. OR CAll 00 GETlN IEXECUTE ONE LINE. A CROUP.OR All R GENJMS XCETlN R Pc lAC ISAVE ADDRESS PUSHA 10F' CURRENT lINE R GENJMS XPUSHA PUSHf TEXTP ISAVE REST 0. THIS LINE R GENJHS P02 R GENTEXTP PUSH. OGRP NAGSW ISAVE NAGSW: CHAR: AND LINENO. JMS P02 R GENR GEN_ NAGSW R NACSW LAC ICHECK DATA fROH GETlN. SPA!CLA A ISKIP If GROUP OR ALL R JHP ONE 100 ONE LINE flNOlN IINIT F'OR GROUP AND SET THISlN JMS XF'INO R GENR JHP TGRP2 PUSHJ OGRPl PROCES-2 IEXECUTE OBJECT LINE AND SET Pc. R GENJHS XPUSHJ R GENPROCES-2 NAGSW POPf IRES TORE THE DATA R GENJHS P03 R GEN_ NAGSW R Pc ICHECK FOR END 0. TEXT (X-HEH) lACA SNA jHP R oeONT IAll DONE TAD Cl R R OAe PTl ISAVE POINTER TO llNENO R NAGSW LAC . ICHECK fOR GROUP SMA!SZA!CLA A jHP R 100 ALL .+4 PTt R ITEST CROUP (X-HEH) TAOTSTGRP R GEN_ JHS GRPTST R JMP OCONT INeT IN GROUP R Ph IREAO NEXT LI NE NO, U-HEH) lACR OAC LINENO R JHP ICONTINUE THE SUBROUTI NE OGRP 00776 00776 00777 R R R 1ril0664 200063 011H'I0 R 101055 01001 01002 01003 01003 01004 0Ul05 0Ul06 101113 000014 810~'17 R R R R R R R R 81010 81011 1/J1012 01012 01013 R R R R R 102675 601047 01014 01015 01016 01017 01020 91021 01022 01023 01024 01 0 25 0 1 0 26 R R R R R R R R R R R 101132 0001l!60 220063 741200 601042 340167 0401l!72 200060 750300 60 1°31 3 6 007 2 01027 01030 01031 0103 2 01033 R R R R R 101343 6011!l42 220072 04006 2 601003 01034 01034 R R 102675 R GEN- 01035 R 603466 GENR GEN- 01036 01037 R R 101100 001203 001037 R GENR GENR lPROcS=.-l 0111140 01041 01042 01042 IIf043 R R R 101132 000060 R GENR GEN- R 10113 2 0011101.4 R GENR GEN- 101113 000060 200060 751100 601034 101100 001201 11111 R ONE F'INOlN JMS ERROR ·OEc JHp PUSHj jHS POP. jHS OCONT POPF JHS IF'INO THE LINE XFlNo 7 ERR2-7 PROCES XPUSHJ PROCES NAGSW P03 NAGSW TEXTP P03 TEXTP IEXECUTE [T IRES TORE CHAR IRES TORE TEXT PO INTE·' S rOCAL PAGE 36 R R R 220013 040"'63 01044 01045 0Hl A 6 01 047 6~1204 011.'51 R R R 2"'1",,64 065545 22011111 R R A 01052 R 11111343 R GEN. 01053 0111154 R 603465 601012 ~1050 R POP A LAC· OAC JMP A GEN· R R GENR GEN. R IRES TORE ADDRESS or CURRENT LINE. PDLXR Pc PROC ICONTINUE PROCESSING THIS LINE. THISLN (XRT XRT !TEST rOR GOOD GROUP · NUMBER. 1111111 TGRP2 LAC OAC· LACTSTGRP JMS ERROR ' .DEC JHP JHP .EJECT GRPTST 8 ER R2-8 DCRP1 " / rOc AL PAGE 111112155 121112156 !lI10';? R R R ~1060 R R R R R R R R R R R R I2IU61 010(-2 0112163 01064 I2I1Mo; I2IU66 Ql1067 01070 01071 1211072 0U73 0112174 0U75 121112176 01077 0111110 011f111 1211102 (/I1U3 0111214 12111(/15 01106 1211107 0111121 01111 01112 1211113 1211114 01115 01116 01117 01120 81121 1211122 01123 01124 1211125 01126 1211127 01130 01131 i!1132 01133 1111134 01135 81136 01137 .1148 37 0(111210121(11 0 4 0(117 4 7'50(1101 10H167 2~0(/174 R 0Ml013 75001211 101067 200074 621(/155 1211210(/10(11 365542 065542 H'l3752 744000 340(/11216 7514ee R R R R R 6 121 3464 621067 12112112100(/1 2211121" 04121074 R R 7500101 R 101067 R _ 3411 (/10 R 340167 R 060013 R 750001 R 1 0 1 067 R 62121074 R 0Q100001 R 7 5 000 1 R 361113 R 12165545 R 441113 R 77777'5 R 121400H R 101067 R 2200111 R 1216121013 R 440074 R 601123 R 201120 R 101""67 R 621113 R 00001910 R 750001 R 36113 2 R 441132 R 065545 R 201120 R 04212174 IPUSHDOWN LI ST CONTROLS XPUSHA ~ T2 OAC CLAlCHA A R JMS PCHK R LAC T2 PDLXR A DAC. CLAlCI1A A R JMS PCHK R T2 LAC R XPUSHA JMP· pCHK A 121 R TAO. (PDLXR R ( POUR DAC· R JI'IS TWOS A CLl TAO R LASTV A sll!CLA ERROR 9 GEN· .DEC JMP R GEN· ERR2-9 JMP. R PCHK A XpUSHJ e R LAC. XPUSHJ R OAC T2 CUlCHA A R PCHK JI1,S R XPUSHJ TAD R TAO C1 PDLXR A DAC. CLAlCMA A R JMS PCHK R JHP. T2 (/I PD2 A CLAlC"'A A R P02 TAO· OAC. (XRT R R PD2 ISl MFLT LAW A -WORDS R OAC T2 JMS R PCHK XRT A LAC. PDLXR A DAC· R ISl T2 JHP R .-3 R LAC HFLT JHS R PCHK R JMP. PD2 ' PD3 A 0 CLAlCMA A R TAO· PD3 R ISl PD3 DAC. R (XRT LAC HFLT R R DAC T2 A R IPUSHDOWN THE AC - "PUSHA" IBACKUP POINTER lAND THEN ICHECK CORE USAGE 10K IPUSH DOWN LIST POINTER IBACKUP AGAIN IINC IN AC ISTORAGE rlLLED 8' PUSH-DOWN LIST IRECURSIvE SUBRoUTINE CALL - "PUSHJ" ISAVE SUBR. ADDR. ISAVE RETURN ITRANSFER CONTROL ISAVE A FLOATING POI~T NUMBER - "PUSHF" ICOMPUTE VARIABLE "OOR IFIx RETURN IcaMPUTE PUSH. POINTER I(X-HEM) IRESET POiNTER RESTORE A FLOATJN~ POINT NUMBER - "POPF" IGET VAR. ADOR. I rOCAl PAGE 011'1 011'2 011'3 01144 "1145 R R R R R 0 114 t- R 38 220013 060QJ11 44""74 601141 b21132 A A R R R LAC. OAC· ISl JMP JMP· POLXR XRT T2 .-3 p03 IHOVE IEXIT 11111 01147 01150 "-'1151 "-'1152 01153 "1154 'H155 01156 01157 01160 01161 0 11 6 2 01163 01164 01165 01166 01167 1111170 1111171 01172 01173 01174 01175 R p R R R R R R R R R R R R R R R R R R R R R 000"'0'" 200005 54""'03 6211-4(, "4""'1 7 2"''' ~ 03 040074 340150 "4"c;!73 111'3752 365542 741100 60~415 22 " 4 060073 200074 540017 621146 340614 04111074 20111QJ73 340614 040073 601163 A R R R R R MOVCCH R R R R R A GEN· R GEN· MOVUPX R R R R R R R R R R R IHOVE COMMON AREA 9' lAC SAO JHP. OAC LAC OAe TAO OAC JHS TAD. SPA F'RROR .OEC JMP lAC· OAC. LAC SAO JHP. TAO OAC lAC TAD OAC JHP I .EJECT rRSTcV lASTCV MOVCOH MOOeUr LASrCy T2 CU0 T1 TWOS <POlXR IANY COMMON? 1"10 ICURRENT END INEW END IOVERFLOW 16 ERR2- 16 T2 T1 T2 MOOeUr HOVeO" "11 T2 T1 H1 T1 HOyUPX IHOVE BLOCK 115 IT AT END? IYES - [X IT 1"10 - BACKUP POINTERS rOCAL PAGE 39 01176 01176 R R 1Q1\il664 01177 R 10267'5 01200 0121111 0121112 01203 0121113 R R R R 6"'3466 2"'0064 040\il63 R 1027'52 001204 01204 01205 0121116 01207 01210 012U R R R R R R 20\il433 040456 200061 540501 01211 U212 012 1 3 01214 01215 01216 01217 01220 01221 R R R R R R R R R 101321 000453 6.,,1203 21110032 740010 200061 540164 601223 741400 01222 1111223 01224 R R R 603436 777767 102110 1111225 01226 °122 7 R R R 11"1321 00\il453 741 000 01230 R 603463 01231 1/11232 R R 10204f1 000224 01233 R 603463 60226'5 IPRIMARY CONTROL AND TRANSF'ER GOTO GETLN IREAD THE LINE NUMBER REQUESTED R GENJMS XGETLN F'lNDLN ILOCATE IT AND RESET TEXTP R GENJMS XF"INO 7 ERROR INOT THERE GEN.DEC JMp ERR2-7 R GENR THISLN LAC ISET PC R PC OAC PROCES GETC ITEST F"OR END OF' LINE R GEN_ JMS UTRA R PROC=. .lrOEr MULTI LAC DELAY SiA JHS IOElUSY .ENDC R LAC C273 R TLISTX OAC IRESET IN CASE ENTRY rROM COMMON STI'IT R CHAR LAC IrlRST CHARACTER READY = USE PROC R SAO C215 POPJ PCl IEXIT "PROCESS" R GENXPOPJ JMP SORTC GLIST IIGNORE "SPACE".".". AND ":". R GENJHS XSORTC R GENGLlST-1 R JHP PROCES R L1eRSW LAC A RAL LAC CHAR R SAO R C314 JHP R .+3 Si!L A ERROR 31 GEN_ .DEC JMP R GENERR2-31 LAW A -11 R JHS F"ETYAR IGET COMMAND (3 WORDS) SORTe GLIST JMS XSORTC R GEN_ R GENGLIST -1 SKP A ERROR 10 GEN. .DEC JHP R GEN. ERR2-10 SORTJX COMLST IGO 00 eO""AND JMS R GEN· XSORTX R GENCDHLST-l ERROR 10 IILLEGAL COMMAND .DrC GEN· JHP ERR2-10 R GEN.EJECT FOCAL PAGE 4O 11111 00121~ R 01247 R 102752 01250 0125 1 01252 O1253 0125<4 01255 O1256 01 2 57 01260 012fl1 01262 01263 R R R R R R R 103362 540501 74te!00 601247 R R R R 741200 601276 34'!i67 040072 200060 750100 360072 0 12 64 O1265 01266 01267 IH270 R R R R R 10 13 43 601273 22011172 04011162 61111236 COHHEN:PC1 lIS CONTINUE OR COMMENT IOUTPUT COMMAND TEXT WRITE GETLN ISET LINENO R GrN· JHS XGdLN ISiZ OEBGSW IDISABLE TRACE (ALWAYS DURING WRITE) R F"lNOLN ISEARCH FOR LINE NUMBER R GEN. JHS XFIND R JHP WTESTG INOT THERE OR GROUP R LAC LINENO SlA!CLA A R JHP • +4 LAC C215 R PRINTC R GEN. JMS XOUTL A SKP PRNTLN IPRINT LINE NUMBER R GEN. JMS XPRNT GETC R GEN. JMS UTRA PRINTC IPRINT TEXT OF A LINE. _XOUTL R GENJHS R SAO C2 1 5 SKP ISKIP I F END OF LINE A R .-4 JMP LACTHISLN /TEST FOR END or TEXT ex-MEM> R A WTEST2 SNA R JMP WRITEO IEXP:OO NEXT INDIREcT LINC. R TAO C1 R PTl OAC ISAVE POINTER TO LINENO OF' NEXT (X-MEM) LAC R NAGSW A SMA!CLA TAD_ R PH I(X-I'4EM) TSTGRP /TRY NEXT LINENO FOR GROUP. R GEN· JMS GRPTST R WX JMP LAC. R WALL PTl ISET LINENO (X-HE") OAC UNENO R R JHP WRITE+2 01 271 01272 R R 20006 4 601255 R R 01273 01274 01275 01276 R R R 200060 750300 601266 R 2~050t R A R R 01277 R 11113362 R GEN. 01300 R 60226'5 01H300 R GEN. R LPOPJ=.-1 01235 R R R 1"0664 01236 01237 0 12 40 01241 01242 01243 R R R R R R 60 12 71 20006 2 75020111 6"1246 21110501 01244 012<45 R R 103362 741000 1oH2<46 R 103065 0 123 4 012~4 R 440~67 1~2675 220~64 //1 WTESTG LAC JMP THISLN WTEST2 IINIT GROUP PRINTOUT 1//// WX WRITED NAGSW LAC SHA!SlA!CLA WALL JHP LAC C215 PRINTC JMS XOUTL POPJ JHP XPOPJ .EJECT ISKIP IF NOT ALL F"OCAL PAGE 41 11111 0 13 0 1 R 01302 000~0'" A R 1ri12233 R GEN- 01303 01304 0 13 05 IU306 0131'17 01310 R R 101321 000415 601317 441301 540163 6ri11316 R GEN_ R GrNR R R R 01311 01312 01313 1Il1314 1Il1315 01316 01317 01320 01321 01322 1Il1323 1Il1324 0 1325 1Il1326 O1327 1Il1330 01331 01332 1Il1333 01334 81335 81336 01337 1Il1340 813041 01342 1/11343 813H 01345 1Il1346 01347 81350 01351 01352 01353 01354 R R R 11'12242 601317 741ri100 601317 441301 441301 21'1006 1 621301 000000 221321 065546 220 0 12 7 411 0O 601337 540"'61 7 4 1"'00 601324 221321 740001 365546 040051 741000 441321 441321 200061 621321 000000 5°134: 103752 040074 777600 500062 340074 751200 441343 621343 R GEN_ R A R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R XTESTC XT3 XTESTX R A R R A A R XSORTC R A R R A R R A R R R R A R R R A R R A R R '" SPNOR JMS SORTC JMS SEXC GRPTST P7600 JMP lSi! SAD JMP TESTN JMS JMP SKP JMP lSi! lSi! LAC JMP0 LAC. OAC. LAC· SPA JMP SAD SKP JMP LAC. CMA TAO. OAC SKP lSi! lSi! LAC JMP. 0 AND JMS OAC LAW AND TAO SNA!CLA lSi! JMP. .EJECT ITEST THE NATURE OF THE NEXT ALPHANUMERIC - "TESTC" IIGNORE SPACES AND i!EROS HERE XSpNOR TERMS ITEST THE VARIABLE TERMINATOR FOR EVAL XSORTC TERMS-1 XTESTX IYES - SORTCN IS SET XTESTC C306 /TEST FOR "F" XT3 ITEST FOR OR 0-9 XTESTN XTESTX XTESTX XTESTC XTESTC IRETURNS:T;N;r;A CHAR XTESTC ISORT CHAR AGAINST TABLE - "SORTC" xSORTC (XRT2 11ST ARC IS LIST-1 XRT2 ILIST IS ENDED BY A NEGATIVE NUMBER SEXC 12ANO EXIT = NOT IN LIST CHAR ICOMPARE .. -5 XSORTc IC9MPUTE INCREMENT o - N (XRT2 SORTCN 11S T EX IT = YES XSORTc XSORTC CHAR XSORTC lAC VS LINENO - "TSTCRP" P7600 TWOS T2 17680 LINENO T2 GRPTST GRPTST PAGE FOCAl 42 (IJ13O;5 01356 01357 01360 IH361 01362 R R 1"1275? R R R R 541'1416 601355 540424 7411'10111 01363 R 603462 1/11364 0 1 365 R R te111'10 00227 1 .1366 01367 R R A 11\1275 2 777776 040073 200077 741100 441'111173 11370 111371 lH372 01373 111374 81375 a 1 316 81377 11400 01401 IH402 81403 '1404 161405 01405 "1406 R R R R R R R R R R R R R R R 200~61 75130~ 440073 74U00 601176 102013 1/100454 000003 102752 601400 102752 601375 ICONnlTIONAL TRANSFER PROCESS. GETC IIF CEXP) A.B,C; R GEN· JHS UTRA R IF LAC CHAR SAD C240 R JHP IF'-1 R R SAO C25e A SKP ERROR INO SPACE AFTER IF OR ILLEGAL FORHAT. 11 GEN. .DEC R GEN_ JMP ERR2-11 PUSHJ IEVALUATE EXPRESSION EVAL-1 R GENJHS XPUSHJ R GENEVAl-1 CETe IHOVE PAST ")" R GENUTRA J"S 1'42 LAW -2 A OAC R T1 R LAC FLARG·1 /TEST -,0.+ A SPA R ISl ITO -1'-2·-3 '1 SPA!SNA!CLA A R lSi IF3 ICOUNT COMMAS T1 SKP A R JMP COT a !TRANSFER TLIST.ILIST SORTJ ISEARCH TEXT UNTILL • ; C. R. R GEN_ JHS SORTe R GEN_ TLIST-l A GEN. JLIST-TLlST CETC R GEN_ R R GEN. R I.F t JI'tS JI'tP UTRA .-4 JHS JHP ,EJECT UTRA IF3 eETC IMOVE PAST rOcAl PAGE 43 1/111 0 1 42 7 01430 01431 R R 10 2 0 1 3 000454 000011 01432 R 603460 IlOOP CONTROL STATEHENT R SET=. ISUSSET OF "FOR". rOR PUSHJ ILOOPS, ETC. GETARG JHS XPUSHJ R GEN· GEN_ R GETARG SPNOR IIGNORE SPACES R GEN. JHS XSPNOR R SAO C275 SKP A ERROR IlEn or ":" IN ERROR: 'FOR' OR 'SET' 12 GEN.OEC R GENJHP ERR2-12 R PT1 LAC PUSHA ISAVE POINTER TO VARIASLE JHS xPUSHA R GENPUSHJ EVAL-1 IGET INITIAL VALUE EXPRESSION JHS R GEN· XPUSHJ R GEN· EVAL-1 POP A GEN_ POLXR A LAC. R OAC Ph R JHS FINT /INITIALIZe: NOW. R FGET FLARG rpur. Ph R FXIT A SORTJ TLlST,FLIST1 ITEST LAST CHAR rROH "EVAL" R GEN· JHS SORTS R GEN· TLlST-1 A GENrLIsT1-TLlST ERROR IEXCESS R-PAR 13 GEN. .OEC JHP R GEN. ERR2-13 0 1433 U434 01'435 01436 11'437 R R R R 20 1 0 3 7 041460 201300 041501 200072 R R R R R 11'440 R U!1055 R GEN. 1//144 1 1111442 R 101100 002271 R GEN· R 01443 11444 11445 R R R 102013 000454 000006 R GEN. R GENA GEN. 603457 GEN· R GEN. 0014liH 01'407 0H07 1/J1410 R R R U!110111 002135 01411 01412 01413 R R R 102233 540435 0 1 41 4 11'1415 R R 60346 1 200072 U416 R U!1055 01417 01420 R 11111100 002271 01421 01422 01423 01424 01425 01426 R R R 1U446 R R R R R R R 0 144 7 R 01'447 R 11'450 "R 7410100 220013 040072 105140 500076 620072 000000 11111 rlNCR rINCRX R GENSORTJ JHS ERROR .OEC JHP 11111 rLlHIT 101113 000076 LAC OAC LAC OAC lAC PUSH A JHS PUSHJ JHS R GENR GEN"* PUSHF JHS LPROCS FPUSHJ LPOPJ rpOPJ Ph ISET OPERATION ISET EXIT ISAVE VARIABLE ADDRESS _ XPUSHA IEVALUATE THE INCREMENT,IF ANY. EVAL-l XPUSHJ EVAL-l TLIST.rLlsT2 ITEST TERMINATORS SORTe TLIST-1 rLlST2-TLIST 14 ERR2-14 rLARG P02 nARG ISAVE THE INeRE. • F'OCAL .. PACE 44 11)1451 01452 11) 14 5 3 01453 01454 R R 1"" 111iH'l 002271 R GEN_ R GEN- 11H113 000~76 R GENR GEN- 01455 01456 R R 101113 000014 R GEN. R GEN. 0 1 457 11)1468 R R 101100 001203 811)1460 R GEN· R GEN· 101132 000014 R GEN. R GEN· R GEN· R R R F'CONT R 81463 01464 R R 10113 2 800076 01465 01466 R R 101132 000101 R GEN. R GEN_ 1/11467 11)1471/1 01471 1Il1472 01473 1/11'474 01475 1/11476 R A GEN. R R 220013 040072 10514111 520072 11'10101 620072 200076 000000 ·1/11477 81501/1 R R 225522 750300 E GEN. A 8 1 51/11 R R R R R R R R R 11503 R 101055 R 01584 1151115 1151116 R R 101113 000101 601453 R GEN· R GEN· R 8 15 07 81507 1/11511/1 81511 R R 101113 R 000167 R 601453 popr JMS EVAL-l XPUSHJ EVAL-1 FLARG P02 F'LARG TEXTP P02 TEXTP PROCES XPUSHJ PROCES TEXTp P03 TEXTP FLARG P03 rLARG FLAR G2 P03 rLARG2 .... _--_ _.. ICET THE LUIIT IS AVE THE LIMIT - ISAVE TEXT OF OBJECT STATEMENTS 100 THE OBJECT STATEMENTS IRESTORE REMAINING TEXT. IGET LIMIT IGET INCREHENT POP A IGET VAR lABLE ADDRESS POLXR LAC. OAe PTl JMS FINT IINCREMENT AND TEST FGET. PTl ILOAD THE VARIABLE FADD F'LARG2 IINCREMENT IT F'PUT. PTl ICHANGE IT F'SUS FLARG ITEST IT F'X IT GETSGN LAC. .AS SMA !SH !CLA POPJ lEND OF LOOP JMP XPOPJ R R R R A GEN- R pOpr JHS popr JHS R 81502 R PUSHJ JMS R GEN. 602 2 65 1/1 III 1501 21'10072 PUSHF JMS PUSHF' JMS F'PUSHJ=.-l R 01461 11462 R PUSHJ JMS ~- F'POPJa.-l LAC PUSHA JMS PUSHF' JMS R GEN. JHP 11111 F'INF'IN R GEN· R GEN· R PUSHr JMS JHP .EJECT PTi XPUSHA FLARG2 Po2 F'LARG2 F'eONT FLTONE PD2 FLTONE F'CONT ISAVE ADDRESS • ISAVE INCREMENT AlaiN. ISET INCREHENT TO ONE. FOCAL PAGE 45 111512 01513 0 1514 01515 111516 R 102752 R R 54 0006 741000 6012Hl R GEN. R COMMON R A R 01517 01520 0 1521 R R R 102233 540424 60 1 ?34 R GEN. R R 01522 fi!l1523 fi!l1524 "1524 ,,15 2 5 01526 01527 R 101100 R 01/12135 R R 102233 R 200006 R 040003 R 200061 R GEN. R GEN. R GEN· R R R 01530 01531 01532 R R R 102013 000454 000014 R GEN. R GEN. A GEN. GEN· R GEN· R R 200~03 COMMX 01533 01534 01534 R R R 6 0 3430 102752 R GEN· 01535 81536 01537 R R R 101301 740000 740000 R GEN. A A 603456 777775 1111211f/l 21110061 540432 741""0 GEN. R eEN. A R R R A 603430 220001 040142 GEN. R GEN. R R 101100 002271 105140 R 500076 R 690137 R 1/10001/10 R 201573 R 040072 R 21/11/1427 R 041/1456 R GENR GENR R R A R R R R 01540 01541 IU542 01543 81544 01545 R R R R R R 01546 11547 01550 R R R 1155 1 01552 "1553 01554 1/11555 01556 01557 01560 01561 11562 R' R R COHARY GETC JMS LAC SAD SKP JMP SPHOR JMS SAO JMP PUSHJ JMS SPNOR JMS LAC OAC LAC SORTJ JMS ERROR .DEC JMP GETC JMS TESTC JMS NOP NOP ERROR .DEC JMP LAW J"S LAC SAD SKP ERROR .DEC JMP LAC. OAC PUSHJ JMS JMS FeET FPUT rXIT LAC OAe LAC OAC UTRA STARlY USTV COMMEN XSPNOR C251/1 COMARY GET ARC XPUSHJ GETARG XSPNOR LASlY LASTCV CHAR TLIST.CLISTX SORTB TLI ST-1 CLISTX-TLIST 37 ICHECK FOR LEGAL I TV IOF COMMON STATEMENT INOT LEGAL - COMMENT 10K lIS IT LEFT PAREN IYES - PROCESS ARRAY INO - NOR"AL VARIABLE ISET END or COMMON ICHECK FOR TERMINATOR IFORMAT ERROR ERR2-37 UTRA ICHECK FIRST CHAR XTESTC 15 IrORMAT ERROR ERR2-15 -3 FETVAR CHAR C254 IGET WHOLE VARIABLE INAME 37 ,rORMAT ERROR ERR2-37 BurSTX ARRAYN EVAL-1 XPUSHJ EVAL-1 FINT FLARe XY LITX PTt c251 TLtsTX IMUST BE A COMMA IGET VARIABLE NAME ISKIP COMMA AND EVALUATE IUSE x A5 COUNTER ISET T[RM1NATOR F"OCAL PACE 11563 1111564 IU565 1111566 1111567 1157111 R R R R R R R 'lfl R '1 72 111573 11574 '1575 11576 11577 '16"111 '1611 '16'~ R R R R R R R " ~6 205547 041460 205550 "41501 601437 200142 11161110,,1 125524 000137 602160 200"06 11141110"3 200061 54111427 6 0 1524 60343" R R R R R R R E R R R COHDEe LITX COHEND R R R R GENR GEN- LAC OAC LAC OAC JHP LAC OACJMSXY JMP LAC OAC LAC SAO JHP ERROR .OEC JHP (COHOEC F'PUSHJ (JHP COHENO F'POPJ F'INCRX ARRAYN BUF'STX .1. 0 cS1A LASTY LASTcV CHAR C251 COHHX 31 ISET OPERATION ISET EXIT ICO PROCESS ARRAY OEF' ICET NAHE' ICET cOUNTER ILAST PAREN.? IYES INO- FORHAT ERROR ERR2-37 I •.EJECT " rOCAL PAGE 47 R 751001 R 040053 140067 R 750~HH'I A A R R A 0161111 01611 01612 01613 01614 R R R R R 102013 000446 777767 440053 601636 R GEN. R GEN. A GEN. R R 01 615 81616 1111617 R R R Ipt1100 002135 760272 R GEN· R GEN· A IH620 01621 R R 103362 200475 R GEN .. R 01622 R 103362 R GEN. 016 2 3 01624 11J1625 81626 01627 01630 1111631 01632 R R R R R R R R 1011355 440025 200501 040020 200167 105042 200501 040020 R GEN- R R R R R R R 81633 01634 01635 R R R 220013 04011161 601603 A GEN. R R 8 163 6 81636 01637 01640 R R R R 101100 002272 104672 R GEN· R GEN· R 8.1 641 01642 0 1 643 R R R 101321 000453 601604 R GEN. R GEN· R iI1644 R 603471 GEN· R GEN· IH603 01604 ''I161il5 016e6 01607 R R 7~0000 IINpUT-OUTpUT STATEMENTS ASK St<P!CL4!CMA IREMEMPER WHICH CALL. (-1) rOR ASK TYPE CLA 10 rOR TYPE ATSW nAC Di!H TASK DEaGSW IRE-ENAaLE THE TRACE CLA SORTJ ALI ST, AlL I ST ISPECIAL CHARACTER? JMS SORTa ALI ST-l AlLl ST -AL 1ST lSi! ATSW ITEST QUOTE SW ITCH JHP TYPE2 PUSHJ 100 ASK; SETUP PT1 GETARG JI1S XPUSHJ GETARG 272 LAW ITYPE COLON PRINTC JMS XOUTL LAC C375 PRINTC JMS XOUTL PUSHA ISAVE IN-LINE CHARACTER JMS XPUSHA lSi! INSUB /INDICATE 'REAOC' LAC C215 DAC ENDCR IPOINT PAST CHAR LAC C1 JMS rL INTP IREAD DATA AND SAVE LAC C215 ENDCR DAC paPA IRE-TEST LAST TERMINATOR POLXR LAC. OAC CHAR JMP ASK ICONTINUE PROCESSING 1/1/ TYPE2 PUSHJ JHS Jl1s SORTc JMS JMP ERROR .OEC JHP EVAL XPUSHJ EVAL rLOUTP GLlST XSORTC GLlST-l TYPE 4 100 TYPE " IPRINT ERR2-4 1/11/ 01 645 R 440067 R 0 1 646 01647 01650 01651 81652 R R R R R 10275 2 540450 601657 R GEN· R R R R 540~01 6CH210 TQUOT lSi! GETc JMS SAO JI1P SAO JHP PRINTC DEaGSW UTRA C242 TASK4 C215 PCl IDISABLE TRACE ITYPE LITERALS I" ICR PAGE 48 Ql1653 01654 R R 103362 601646 R 0 1 6 55 R 200 5 0 1 R FOCAL R GEN_ JMS JMP XOUTL TQUOT+1 TCRLF LAC CCR TASK4 PRINTC JMS GETC JMS JMP 111111 R GEN_ 01656 01657 0 1 657 01660 R R R R 103362 10275 2 601606 R GENR 01661 R 200475 R 01662 01663 01664 01665 0'1666 0'1667 R R R R R R' 103362 200501 103273 200154 103273 61'1657 01670 01610 R R 102752 01611 01672 01673 01614 01675 IU676 01617 01700 91701 01702 01703 11704 R R R R R R R R R R R R 100664 2001(162 500151 040055 200Q162 740020 742020 742020 742020 500151 040040 601606 ISLASH:CR';LF, XOUTL IH6Vr TO NEXT CHARACTER UTRA TASK 1111 TCRLF2 LAC C3 7 5 PRrNTC JMS R GEN_ XOUTL R LAC C215 JMS R IHAGEW R LAC C2>le JMS IMAGEW R JMP R T.t;SK4 IIF DEBGSW:0 : E~ABlE FLIP-FLOP "DHPSW" I S, #0: DISABLE AND RETURN ALL"?" IIF DMPSW : 0: TRACE ON, IF ENABLED #0: TRACE orF I IIr ROTH : 0 : PRINT TRACE, GErC IpASS PERCENT SIGH TrNTR JMS R GENUTRA CETlN tREAD FORMA T CONTROL: "X7.03" R GEN· JMS XGETLN R LAC LINENO R AND C77 DAC DECP R lAC lINENO R RAR A IHR A RTR A RTR A AND R C77 FISW R OAC JHP R TASK .EJECT . FOCAL PAGE 49 1111 ISEARCH ROUTINFS MOD I FY GETLN JI'1S FINOLN JI'1S ERROR .OEC JHP JMS LAC OAC" OlM LAC SNA ERROR .DEC JHp OAC" LAC" OAC LAC DAC SCONT JMS SKP SCONTX CLA DAC 0 1 705 01705 R R 1"l0664 R GEN" 01706 R lQ'2f>75 R GEN" 603466 101146 200004 065544 14121"57 2"'0062 741 2 00 GEN" R GEN" R R R R R A GEN" R GEN" A R R R R R A A R R R SCHAR R 0 1 707 017U 01711 01712 01713 81714 0 1 71 5 R R R R R R R 01716 01717 0172121 01721 01722 01723 01724 01725 01726 01727 0 1 730 1091731 01732 R R R 603466 0601'11111 225544 040071 209007 940"'17 H!3307 741Q101'1 750000 040075 440P.67 21210075 040502 01733 91734 81735 01736 01737 R R R R R 102752 040061 060017 4401'l17 11'13273 R GEN" R R R R 0 1 740 01741 01742 fiH 743 R R R R 1"' 201 3 00050'" 000907 601731 R GEN" R GEN" A GEN" R 0 1 7 44 01745 01746 01747 01750 01 7'51 01752 R R 769 3 91'1 103273 21'191'107 040017 140502 103307 040061 A R R R R R R 01753 01754 01755 S1756 01757 R R R R R R R R R R R R R R R R 102013 R 0f1J0473 R .090007 R 200061 R 060017 IS~ IREAD LI NE NO. XGETLN XFINO 7 ERR2-7 MOVCOM SUFR (AXIN XCTIN LINENO 7 ERR2-7 AXIN (AXIN PACKST COMBUF MODBlIf' IHAGER SACH OEBGSW ILOOK IT UP NOW. INOT THERE = BAD COMMAND UNLESS ~ERO. 10ISPLACE COMMON ISET POINTERS IFOR INPUT ICOPY THE SAME LINE NUMBER. ICHECK FOR ALL I(X-MEM> ISAVE START OF NEW LI NE ISET MODIFY COMMAND BUFf"( R IGET SEARCH CHAR ICLEAR SEARCH CHAR ISAVE SEARCH CHARACTER INO BREAKS. LAC SACH OAC LIST3+1 IPUT IN "SORTJ" LIST GETC JMS UTRA OAC CHAR ISAVE FOR SORTJ MODBUF OAC" ISl MODBUF JMS IHAGEW SORTJ L I ST3. LI STGO ILOOK FOR MATCH JHS SORTB LIST3-1 LIS TG O-LIST3 JHP SCHAR 11111 R GEN" R GEN" A GEN" R R SBAR SFOUND LAW JHS LAC DAC DlM JHS DAC SORTJ JMS LAC DAC. IECHO (I FOR tU 300 IHAGEW COMBUF IRESET TO BEGINNING OF BUFFER MODBUF LIST3+1 IREAI) FROM KEYBOARD IHAGER CHAR LIST6.SRNLST ICHECK FOlR ACTION CHANGE SORTS LIST6-1 SRNLST-LIS T6 CHAR "OOBUF IPACK CHAR rOCAL PAGE 50 01760 01761 01762 01763 01764 01765 01766 1il1767 R R R R R R R R 440017 60175111 21'10'501 060017 21il0007 0401il17 220017 040061 01770 01771 01772 0 1 773 01774 111775 81776 R R 103'562 440017 540501 741000 601766 200477 103273 01771 112000 ~ 02001 02002 02003 02004 020f/!5 020(116 02007 02010 02011 02012 R R R R R R R R R R R R R R R R R R R ISiJ JMP SRET~ R R R R R R GEN. R R A R R R 101100 ·R GEN. 0e2550 R GEN· 103C1l5t 61110'512 200017 540(1107 601750 34061 4 04O\"17 760334 103273 60175O R GEN. R R R R R R A R R SCRUe LAC MOOBUF' SrOUND C21 5 MOoeUF' COMBUF' MOOBUr MOOBUF CHAR nACo LAC OAC LAC. DAC PACKC JMS PACeUF' lSi! MooeUF SAO C215 SKP JMP ,-6 LAC C212 JMS IMAGEw PUSHJ DELETE JMS XPUSHJ OELETE ENOLN JMS XENDLN JMP START LAC MCOBur SAO COHeUF' SF'OUNO JKP TAO Ml OAr. MOOBUF' LAW 33<4 JHS IHAGEW JP1P SrOUNO ,EJECT IGO GET _MORE ISAVf cR IFINISH LINE AND SAVE IT lEND LINE? IYES IREPlACE WITH NEW LINE IRE SO POINTERS IAT AEGINNING? IyEs INO IECHO BACK SLASH IGO PROCESS NEXT raCAL 02013 020 1 4 02015 02016 11I2111t7 02020 1112021 02022 1112023 020?4 02025 020?6 02027 02030 02031 11.1211.132 02033 02034 02035 02036 02037 PACE 51 R 011101110111 74120111 20011161 040074 22211113 442 111 13 0"'5<;46 2?0 01 2 74110111 60211135 54011174 74111100 60211122 225546 362013 040074 75000111 62011174 442013 754000 622013 R R R R R R R R R R R R R R R R R R R R A A R R R R R A A R R A R R R SORTe R A R R A R SEX 111 SNA LAC OAC LAC. ISl DAC· LAC· SPA JMP SA[1 SKP JMP LAC. TAn· OAe CLA JMP. ISl CLA:CLL JMP· ISORT AND SRANCH ROUTINE. - "SORTJ" CHAR T2 SORTB SORTB (XRT2 XR T2 IASSUME CHAR IF AC=" ISAVE SORT ITEM IFIRST ARG IS LI ST LESS ONE /2AND IS INTRA-LIST LENGTH I··LIST ENDED BY NECATIVE NUMBER •• SEX T2 .-5 (XRT2 SORTB T2 IFIND ADDRESS IMATCH rOUND. T2 SORTB IMATCH NOT FOUND. SORTs IRETURN TO CALLING SEQUENCE. I ISORT AND SRANCH ON COMMAND 0 2 040 02041 02042 1112043 02044 02045 02046 02047 02050 0 2 05 1 02052 02053 02054 02055 02056 020 57 02060 02061 02062 02063 02064 02065 02066 02067 02070 02071 02072 02073 02074 02075 02076 I R R R 0001110111 222040 065546 R 2201i!12 R 040074 R 20011101 R 040134 R 14013<; R 22 00 12 R 560 1 34 R 6021716171 R 042013 R 505551 R 56011101 R 602070 R 6 020 77 R 500151 R 741200 R 620012 R 440134 R 440135 R 602050 R 220012 R 7411110111 R 21712013 R 500151 R 740200 R 60211166 R 21110135 R 741200 R 620012 A R R A R R R XSORTX ANYMAT R A R R R R MORMAT R R R R A [NOHAT A R R R A A R R A R R A A YESHAT 0 LAC· DAC. LAC. OAC LAC OAC olM LAC· SAO· JHP OAC AND SAO. JMP JHP AND SNA JMp. ISl ISl JHP LAC· SKP LAC AND SlA JMP LAC SNA JHP· XSORTX (XRT2 XRT2 T2 surSTX MODB r l MOOBF2 XRT2 MOOBFl ENOMAT SORTB ( 770000 8UFSTX YESHAT NOTHAT C77 XRT2 MOOBFl HODBF2 HORHAT XRT2 SORTB C77 I"SORTJX" IGET TABLE START ISET sIlE IGET COMMAND POINTER IGET COMMAND TABLE ENTRY IFULL WORD MATcH ISAVE FOR END TEST lONE LETTER MATCH lIS IT END OF COHHANO IOISpATCH IDISABLE ON[ LETTER "ATCH ·/TEST REST OF COHHAND ITEST FOR COMHANO EI/jID YESHAT-2 MOOBF2 lONE LETTER OK XRT2 IDISPATCH FOCAl 02077 021"0 02U'1 02102 021"3 02104 02105 0 21 06 02107 PACE 52 R 220 0 12 5"'5552 545<;53 R R A NOT",.T R LAC· A~D R SA[) SKP JMp R R 602"'77 440"'74 6"'2045 442e40 A R R R R R 622~40 R R Ii R 741~~0 lSi! JMP lSi! JMP· I • EJEcT XRT2 ( 71110000 ( 600000 ISKIP REST OF CO""ANO lENDS WITH JMP .-4 T2 ANYMAT XSORTX XSORTX /ANY HORE I N TABLE IYES INO _ ERROR RETURN ... FOCAL pAGE 53 02110 02111 02112 02113 02114 02115 0 2 116 02116 R R R R R R R R 02117 R te2752 02120 R 02121 -R 02 1 22 R 02123 R 02124 R 02125 R 02126 R 02127 R 02130 R 02131 R 02132 R 0 21 33 R 02134 R 1111P21 011l0 410; 611l2 1 311l 440 021 61112116 777777 040021 M!l2117 440021 75100'" 6221111l 1036 2 3 602130 02135 02135 02136 02137 R R R R 101301 74000!i1 740"'00 0 21 40 02141 02142 R R R 6"'3456 777775 111121111l 02143 02144 82145 R R 102536 602161 21110052 R 0"'0~ '311l 040"'21 777777 3400'101 065544 1400'157 103562 02146 02147 R R 101055 220001 02150 R 1I1l1055 021~1 02152 R R 11111100 002271 02153 02154 R R 220013 060001 02155 R 1!i1275 2 02156 1Il2t57 R . 220013 R 040052 IFETCH VARI"RLE FROM INPUT FETVAR II! CETVCT 1-3 OR -6 OR -9 OAe LAw I(BUFFER-1 -1 TAO BurSTX (AXIN OAC" nZM XCTIN IBEGIN PACK or VARIABLE NAME: GETV"P PACKC IPACK CHAR jMS R GEN" PACBUF CETC jHS UTRA R GENSORTC TERMS ICHECK FOR TERMINATORS ,J"4S R GEN" XSORTC R GEN" TERHS-1 jHP R GETVAX R ISZ CETVCT IHAVE THREE CHARS BEEN USED CETVAp R jMP INO-GO PACK THIS ONE A LAw /IGNORE REST -1 R OAC GETVCT jMP R GETVAP+1 R CETVAX ISZ CETVCT A SKP!CLA R jMP" FETVAR R JMS PCK1 IUSE NULLS R JMP GETVAX IFINO OR ENTER A VARIABLE IN THE LIST. GETARG TESTC IFIRST LETTER OF' ARC; jMS R GEN~ XTESTC A NOP NOP A I FUNCTION OR NUMBER IS NOT AN ARG. ERROR IBAO ARGUEMENT IN 'rOR', 'SET', OR 'ASK' 15 GEN~ .OEC jHP R GEN" ERR2- 15 -3 LAW CETV"R A FETVAR R jMS TSTLPR ILeOK rOR SUBSCRIPT VIA SORTCN R GEN. JMS LPRTST R JHP GS1 INOT SUBSCRIPTED BY L-PAR. R LASTOP ISAVE LAST OPERATION LAC PUSHA R GEN .. JMS XPUSHA R BUrSTX ISAVE NAME LAC" PUSHA R GEN" JMS XPUSHA PUSHJ IMOVE PASTL-PAR ANO EVA~UATE SUBSCRIPT EVAL-1 R GEN" XPUSHJ JHS R GEN" [VAL-1 POPA A GO.. pDLXR LAC" R BUrSTX IRES TORE 'lAME DAC" IMOVE PAST R-PAR GETC R GEN" UTRA JMS POPA A GENe PDLXR LAC" R USTOP IRECALL LAST OPERATION OAC A R A R R R FOCAL PAGE 54 02160 02161 0 21 6 2 02163 02164 02165 02166 02167 R R R R R R R R 105343 042233 20000<; 040072 540(,106 602174 2;101'172 560001 R R R R R R R R 0 21 70 02171 02172 02173 02174 1121'75 112176 02117 022 0 0 02201 R R R R R R R R R R 60 2221 200(,172 340156 602163 200006 340143 744000 103752 365542 750400 R R R R R R A R R A GEN. R GEN. R R R R R R R R R R R R A 0221112 ~ R R 02211r4' 02205 02206 92207 02210 02211 02212 02213 1112214 02215 02216 02217 R R R R R R R R R R R 603455 200006 340156 040006 220001 06007;> 440072 2(112233 060072 440072 105140 500171 620072 000000 02220 R 602265 R GEN- 12221 1112222 02223 "2224 02225 02226 02227 022 3 9 12231 R R R R R R R R R 20007 2 065545 220011 103752 342233 750200 602171 44007 2 440072 R 02232 R 602265 R GEN_ I1I22A3 R GS1A GS1 GS3 GS4 JMS DAC LAC DAC SAD JMP LAC. SAO· rrX sUes rRSTcv PH LASTV GS2 PT1 BUFSTX JMP LAC GrN01 PTl GINC GS3 LASTV P13 TAO GS2 JI1P LAC TAD ell JMS TAO. SNL!CLA ERROR .OEC JMP lAC TAO OAC LACDACrSl LAC OACISl JMS FGET rpUT- PT1 rXIT POPJ JMP ISAVF: SUeSCRIPT ISEARCH FOR VARIABLE ITEST FOR END OF LIST lEND SEARCH IGET TABLE ENTRY IrOUNO xx ITRY NEXT ONE IAOO THE VAR I .\8t.E ITEST RAN LIMITS TWOS CPOlXR 16 ERR2-16 LASTV GINC LASTV BUFSTX PTl PH SUBS PH PT1 rINT Fl HER XPOPJ ISAVE fUME ISAVE SUBSCRIPT ISET PTl IEXIT 1111 R A R R A R R R GrND1 lAC OACLACJMS TAO SlA!ClA JMP ISl ISl POPJ JMP .EJECT PH eXRT X!H TWOS sues IrOUND SAME ITEST SUBScRIPTS GS4 PTl PTl IWRONG SUBSCRIPT ISET POINTER TO DATA XPOPJ f'OCAL PAGE C;O; /III 002233 02233 02234 02235 02236 02237 R 0r0~01'1 R R R R 21'101'161 540416 7411'100 622233 02240 02241 02242 02243 0224<4 02245 02246 02247 02250 02251 02252 02253 02254 02255 02256 02257 02260 02261 R R 102752 61'12235 0001'100 777522 340061 750200 442242 777521'1 340061 040051 751101'1 602260 777507 340061 751300 442242 20005 1 622242 02262 02263 02264 02265 02266 02267 02270 R R R R R R R R R R R R R R R R R R R R R R R 200157 340167 040063 220013 0401'174 750000 620074 III IGNORE LEADING SPACES - "SPNOR" R SUFlS=. A XSPNOR 1'1 R LAC CHAR R SAn C240 A SKP jMP. R XSPNOR CETC jMS R GEN. UTRA jMP R XSPNOR+2 XTESTN IRETURNS: A OTHER: NUMBER - "TESTN" 0 MPER LAW A -256 R TAD CHAR A Si!A!CLA lSi! XTESTN R A LAW -260 R TAO CHAR R SORTCN OAC ISAVE VALUE SPA:CLA A jMP R HESTN LAW A -271 R TAO CHAR SPA!SNA!CLA A R lSi! XTESTN IIf' A NUMBER R i!TESTN SORTCN LAC R jMP· XTESTN IEXIT FROM A "DO" SUBROUTINE R CFRS LAC I(PC) => 0 RETuRX R TAO ITS PRETEND END OF TEXT C1 R PC OAC XPOPJ PDLXR A LAC. IRE CURS I VE EX IT - "POPJ" R OAe T2 A CLA R JMP. T2 .EJECT .. FOCAL PAGE , '>6 02271 02272 R R 02273 02274 02275 02276 R R R R 101301 602306 60241 7 6P.2431 02277 0231110 1112301 1112301 1112302 1112303 1112304 R R R R R R R 11111301 602332 740000 740000 02305 R 603454 02306 02307 R R 200061 540435 02310 R 02311 82312 R 02313 82314 02315 02316 02317 023211l 02321 ,02322 92323 82324 02325 02326 02327 02330 02331 02332 02332 1Il2333 R R R 1II?]36 R 11111 ETERM1 R R GENR GEN101132 000076 200160 040072 201367 340051 141200 602335 340167 751200 602411 34 00 51 342537 751100 61112475 R R R R R R R R R 102536 R 741000 02334 1112335 R 603454 R R R R R R R R IEVALUATE AN EXPRESSION WHICH ITERMINATES WITH AN R_PAR,; OR C.R, AND ILEAVE THE RESULT IN FLAC AND IN FLARG, GETC IMOVE PAST R GENJMS UTRA R OlM LASTOP IEVAUATION CONTROLLER TESTC ITEST CHARACTER AND IGNORE SpACES R GEN_ JMS XTESTC R JMP ETERH1 ITERMINATION R JMP EHUH INUMBER R JMP tFUN IFUNCTION PUSHJ GETVAR IFINO OR CREATE VARIABLE:ALSO SET PT 1 • JMS R GENXPUSHJ R GENGETVAR TESTC OPNEXT IpT1=)ARG R GEN_ JI1S R JI1P IT NOP A IN-ERROR IN FORHAT NOP A IF ERROR IL - HISSING OPERATOR 17 GEN_ .DEC R GEN_ JMP ERR2-17 603453 209051 '4011165 LAC CH~R SAD C275 ERROR .DEC JMp PUSHF JI1S POPF' JI1S R GEN. R GEN. R R R R A R R LAC OAC LAC A SNAlCLA JHP TAO SNA JI1P TAO R R R TAO A R ETERMN R GEN. A GEN_ R GEN_ R ETERM R TAO SPAlCLA JI'IP TSTLPR JMS SI(P ERROR .DEC , JI'IP lAC OlC 17 ERR2-17 FLTlER PD2 F'LUER FLARG PD3 FLARG FLARGP IINITIALllE RESULT TO lERO, ISET PT1. PH 1'12 SORTCH ITEST FOR UNARY OPERA T IONS ETERH C1 ICREATE OUMHY FOR UNARY HINUS ARGNXT SORTCN 1111 IIGNORE UNARY PLUS ITEST FOR NULL PARENS. ELPAR ---/HIGHT BE AN L-PAR, LPRTST 18 10PERATOR MISSING BEFORE PAREN ERR2-18 SORTCH THISOP ISET F'ROH "TESTC·-"SORTC" FOCAL 02337 02340 0234 1 02342 rIl2343 02344 1i!12345 112346 "'2347 1i!12350 02351, 02352 rIl2353 02354 02355 0 2 356 PAGE 57 R 342537 750100 040"'65 200065 1"'3752 340"'52 75110111 61,2376 340"'52 340224 042362 222362 0 4 236? 21110"'52 75120'" 602361 R R R R R R R A R R R R R A R 0 2 357 02360 R R 1i!12361 02362 02363 02364 02365 rIl2366 02367 02370 023 7 1 R R R R R R R R 10113 2 0"'0000 01"236'" 1"'514111 0"'0001l1 61:'0076 0"'O000 2"'016111 040072 2~0065 R 34011152 751200 0 23 7 2 R 60 22 65 0 23 7 3 02374 02375 R 22~Hl13 0 23 76 02376 02377 02400 il241111 R 040052 R ' 602342 R A R R R R A R R R R R R R A R rTERM2 TAO SPA !CU JMP TAD TAO nAC LAC_ DAC LAC SNA!CLA JMP .+3 POPF JMS "'11 THISOP THISOP TWOS LASTOP EPAR LAS TOP OPTABL F'LOP FLOP FLOP LASTOP 11111 R [PAR R R R R GENA R R 02 4 02 fil2403 02"04 R R R 1010 55 200072 042406 R GENR R 12405 rIl2"06 02407 0 2 410 02411 02411 R 101113 rIl00000 200065 04005 2 R GEN_ A GEN_ R R 102752 R GEN- 1013r1l1 602475 R GEN_ R R R R R R R R R ARGNXT TSTLPR JMS SKP JMP LAC PUSHA JMS LAC nAC PUSHF JMS LAC DAC GOC JMS TESTe JMS JHP lEND? I"THISOP" EOUIV. TO END OF EXP. ICOMPARE PRIORITIES ICONTINUE IFIND OPERATION FROM TABLE /TEST FOR END OF DATA INTO FLOATING AC. XX R GENPo3 XX A GENR FLAC1=.-1 R JMs FINT A FLOP 00 R FPUT fLARG F"X I T A R LAC nARGP R DAC PH R THISOP LAC R LASTOP TAO A SNA!CLA POPJ R GENJMP XPOPJ POP A A GENPDLXR LACR LASTOP nAC R ETERM2 JHP 102536 741000 MI2477 20r1l052 02412 ·02413 TAO SMA!CLA DAC LAC JMS IGET LAST DATA I.AA I(FLOPR I PT1)+--1 .ISAVE RESULT 1=18? IEXIT "EVAL" IGET PRIOR OP ICOMPARE THIS OP ITEST FOR SUB-EXPRESSION LPRTST EPAR2 USTOP XPUSHA PTl .+2 XX Po2 XX THISOP LASTOP IGO EVALUATE EXPRESSION ICONTINUE READING THE EXPRESSION ISAVE "LASTOP", ISAVE LAST ARGUMENT IMORE TO COME IRE AD 1ST CHAR Or Ali ARG. UTRA 100 SPECIAL CHECK XTESTc ELPAR IC8ULO BE LEFT PARE~ rOCAL PAGE 58 02414 0 2 4 15 02416 R R R 602417 60243 1 602277 0 241 7 02417 02420 R R R 02421 02422 02423 02424 0 2425 R R R R R R R R 11111 ENUM JMP JMP JMP ENUM ErUN OPNEXT-2 IN IF IL PUSHF JMS XX P02 XX ITO PROCESS A NUMBER,SAVE AC LAC OAC OlM CLA JMS POPF JMS FLARGP PT1 INSUB 1IIl1113 000000 002420 200160 040072 140025 750000 10 5 0 42 R GENA GENFLAC2= . -1 R R R R A R 1IIl1132 000000 802427 60 23 0 1 R GENA GEN. R FLAC3=.-1 R JMP 02426 82427 R R 0 2 43 0 !If 02431 02431 02432 02433 112434 R R R R R 102752 777775 102110 200051 R GEN· 02435 02436 R R H'!1055 200052 R GEN. R 02437 02440 R R lIH055 220001 R GEN. R 02441 R 101055 R GEN. 02442 R 1IIl2536 R GEN_ FLINTP XX p03 XX I.AA ISET POINTER AS FOR VARIABLE. IPOINT TO 'GETc' AND USE CHAR IREAO NEXT IRE AD TEXT NUMBER :> (PU) IRES TORE THE AC OPNEXT F.AA ICONTINUE UTRA -3 FETYAR SORTCN IGET FUNCTION NAME ISAVE 'SORTCN'.'LASTOP'.AND 'EFOP' 11111 HUN A R R R 60345 2 GENR GEN· 82444 02445 R R 101 100 002271 R GEN· R GEN. 02446 02447 0 2 450 02451 82452 02453 R R 220013 040137 205554 102455 205537 102455 A GEN. R R R E R 0 2 443 0 2 454 02455 02456 02457 12460 82461 R R R R R R R R R R 60345 1 000000 040141 220141 740UH'I 622455 GEN· R GENA FUNCHK R R A R GElC JMS LAW JMS LAC PUSHA JHS LAC PUSHA JHS LAC· PUSHA JMS TSTLPR JMS ERROR .OEC JMP PUSHJ JHS POPA LAC. OAC LAC JMS LAC JHS ERROR .DEC JMP 0 OAC LAC. SHA JHP. XPUSHA LASTOP XPUSHA BUFSTX ISAVE FUNCTION NAME XPUSHA LPRTST 19 IHUST BE FOLLOWED BY PARENS TO SET ARGUMENT ERR2-19 EYAL-1 XpUSHJ EVAL-1 IYES POLXR FUNAHE CFNTABF FUNCHK .NEw F rUNCHK 20 ISAVE FUNCTION NAHE lIS IT INTERNAL FUNCTION lIS IT EXTERNAL FUNCTION IILLEGAL FUNCTION NAME ERR2-20 F"UNPTR F"UNPTR rUNCHK IOISPATCH ON FUNCTION NAME IFUNCTICN TABLE START FoCAL PAGE ~ 02462 02463 0 2 464 02465 02466 02467 02470 02471 0 24 72 02473 02474 R R R R R R R R R R 02H5 il2475 R R 59 040140 440141 2001 :37 560141 6C112473 440141 440140 602463 6 224 55 440141 620141 R R R R R R R R R R R rUNLOP FUNF~D 11111 ELPAR 102536 R GEN- 02476 il2477 R R 6Q13450 200051 GENR GEN_ R EPAR2 02500 02501 R R 101055 2001!152 R 8251!12 R Hl11!155 R GEN_ il 2 51!13 02504 R R 1I!I111!10 002271 R GENR GEN- 02505 R 602517 R GEN- R GEN_ DAC IS~ LAC SADJMP ISl ISl JMP JHPISl JMP_ TSTLPR JP1S ERROR .DEC JP1P LAC PUSHA JP1S LAC PUSH A JP1S PUSHJ JP1S RETURN JMP .EJECT rUNcTR rUNPTR rUNAME FUNPTR rUNFND rUNPTR rUNcTR FUNLOP rUNCHK rUNPTR rUNPTR IFUNCTION TABLE COUNT IPOINTS TO NEXT NAME IRIGHT FUNCTION? IYES - Co DISPATCH INO - TRy ~EXT IANY MORE IN TABLE? -/'toES INO - RETURN ITO FUNCTION ADDRESS IDISPATCH LPRTST 21 IDeURLE OPERATORS ERR2-21 SORTCN ILEFT PARENS rOUND. XPUSHA LASTOP ISAVE DATA XPUSHA EVAL-1 XPUSHJ EVAL-1 EFUN3 IEVALUA TE THE EXPRESSION FOCAL PAGE 60 11111 "'?506 R 1~5343 02507 025U "'2511 02512 02513 02514 02514 "'2515 02516 R R R R R R R R R 692517 125524 000 1 67 200077 74111'00 8 251 7 02517 02520 02521 02522 02523 02524 02525 225522 751100 125534 R R 220013 "'40"'52 125536 125525 000076 200160 040"72 02526 02527 02530 02531 0 25 3 2 R R R R R 220013 340146 103752 340051 750 2 "'0 0 2 533 R 603447 02534 02535 02536 0 2 537 02540 02541 112542 02543 02544 12545 02546 82547 R R 102752 6"'2301 000000 777767 340051 750100 622536 777773 340f1151 750300 442536 622536 R R R R R R R R R R R R R R R R ISOME MINOR FUNCTIONS XINT JMS FIX IINTF"GER PART RETURN R GEN_ JMP HUN3 XSGN JMSE .AO ITAKE SIGN-1 OF FLARG R FLTONE R FLARG+1 LAC A SKP GETSGN HE'S ITAKE ABSOLUTE VALUE OF FLAC LAC_ E GEN_ .AB SPA!CLA A ISKIP TO CONTINUE JMSE INEGATE THE FLOATING AC .BA ICONTINUATION OF FUNCTION CALLS. EFUN3 POPA IRESTORE LAST OPERATION A GENPOLXR LACOAC LASTOp R JMS_ E INORMALI~E FUNCTION RETURN .CO JMSE .AP ISAVE FUNCTION VALUE R FLARG R FLARGP LAC ISET POINTER R OAC PTl paPA IGET LAST PAREN CODE. LAC_ POLXR A GEN_ R TAD P3 R JMS TWOS ICHECK FOR PAREN MATCH. R TAD SORTCN I(STILL SET FROM THE LAST "EVAL") SlA!CLA ISKIP IF MATCH A ERROR 22 IPAREN ERROR GEN.OEC R GEN· JHP ERR2-22 IHOVE PAST R-PAR. AND RETURN TO OPNEX. GETc JHS UTRA R GENR JHP OPNEXT IFUNTION RETURN IS OK LPRTST ISKIP IF LEFT PARE". A 'TSTLPR' 0 1111 A LAW -11 R SORTCN TAD A SHA!CLA JHp. LpRTST R A LAW -5 R TAD saRTCH SHA!SlA!CLA A R IS~ LPRTST R JHPLPRTST .EJECT R - FOCAL PAGE 61 0 255 0 02550 R R 1"2~7'; 02551 02552 R M'!226'; 44011167 1 2 553 12554 02555 025';6 02557 02560 02561 82562 02563 02564 02565 1112566 02567 0 2 570 02571 02572 02573 02574 02575 02576 02577 82601'1 0 2 60 1 02602 02603 026134 10275 2 54051111 R 75111101 R 6012553 R 3401314 R 7413001 R 340"64 R 0401354 R 22011164 R 060"66 R 2130157 R 040074 R 2201374 R 741 2 00 R 61'12605 R 04311173 R 213311164 R 744333 R 1"'3752 R 340073 R 75140'" R 34011154 R 34 0137 3 R 06131374 R 2013073 R 6111256(' R R R ITHE DELETE 4 Ll~E ROUT! NE ISETS "THISLN" AND "LASTLN". DELETE FINDLN R GEN· JMS lCFIND POPJ IALREADY GONE R GEN. JMP XPOPJ R lSi! DEBGSW IDISABLE TRACE GETC IMEASURE LENGTH R GENUTRA J"'S R C215 SAD A SKP!r.LA!CMA JMp .-3 R R AXDUT TAD ISAVE LAST ADDRESS CM4 A R TAD THISLN R CNTR DAC ILENGTH < 0 R THISLN LAC. IDIScONNECT R OAC. LASTLN R LAC CFRS 1ST ART LIST AT TOP R ODK DAC T2 IEXAMINATION ADDRESS R LACT2 IGET THE NEXT ADOR. SNA A ITEST F"OR END R JMP IYES-WRAP UP ALL. DONE .DAC T1 ISAVE NEXT ADDRESS. R R THISLN LAC ICBMPARE LINE POSITIONS A CLL R JMS TWOS R TAO T1 Si!L!CLA A ISKIP IF THISLN > X R TAD CNTR ICHANGE (X) TO ACCOUNT FOR R TAD T1 IGARBAGE COLLECTION. T2 R DAC· R LAC T1 IGET NEXT JMP DOK R .EJECT rOCAl PAGE 62 11111 0 2 61115 0261116 0261117 "261" 02611 02612 02613 "2614 0 26 15 02616 1112617 02620 02621 82622 '2623 02624 82625 02626 0262 7 026314 82631 02632 R R R R R R R R R R R R R R R ~ R R R R R R 750 (iHl1 3401'164 065545 21'10054 740001 340064 11165546 200054 340004 040004 225544 740001 365546 040073 225544 340054 065544 220 0 12 0600 11 440073 602626 602550 A R R R A R R R R R R A R R R R R A A R R R IGARBAGE COllECTiON DONE CLA!CMA TAn THISLN DAC. eXRT LAC CNrR CI1A TAD THISLN OAC. e XRT 2 CNTR LAC TAn BUrR BUrR OAC LAC. (AXIN CPU TAO. (XRT2 OAC T1 LAC. ( AXIN TAO CNTR DAC. (AXIN LAC· XRT2 XRT OAC· ISl T1 JI1P .-3 JI1P DELETE I1111 .EJECT 'BACKUP L FOR XR IsETUP END OF HOsE 'CORREcT END OF BUFFER POINTER. 'COMPUTE COUNT 'SIPHON LOWER PART. 'REsET 'LASTLN,.oTHIsLN'o AND DATA FIELD. rOCAL PAGE 63 02633 0 2 6 33 0<'634 02635 R R R R 602672 6'''265'''' R 02636 02637 02640 R R R 603446 777767 1{112110 GEN_ R GEN_ A R 02641 02642 R R 1020'40 1/J01/J321 R GENR GEN- 6 0 3 4 46 20 I/J III III 2 1/J40004 160157 600512 GENR GENR XSBEGN R R R 0 2 643 02644 02645 02646 02647 0 265 0 02651/J 02651 02652 02653 R R R R R R R R R R ERASE 1'i'1~01 R GENR ERROR .OEC JHP LAC OAC Oi!MJHP IT£ST THE SECOND WORD, IF" ANY. XTESTC ERVX ERL 23 IERASE VARIABLES IL INES OR GROUPS ER R2-23 -11 rETVAR ALLCM2 XSORTX ALLCH2-1 23 ERR2- 2 3 ENOT BUrR crRS START /BAO ARG rOR ERASE. /ERASE ALL TEXT -/POINTERS HAY BE DIHERENT NOW. //1/// ERL 11''10664 51/J1347 74121/J0 R GENR R A 603466 201/J11l04 1/J65544 GEN_ R GEN_ R R R GENR GENR R A R 2"'0e62 f/J2654 02655 f/J2656 8 2 657 02657 02660 82661 02662 02663 82664 R R R R R R R R R 101100 002550 441/J064 200060 751/J111l0 360064 12 665 82666 02667 82670 82671 R R R R R 1013 43 601/J51Z 221/J064 1/J41/J062 60.2657 R GENR R R R 8 2672 82673 R R 20000 3 040006 R R 82674 R 602265 R GEN- R TESTe JMS JMP J"'p ERROR .DF:C JMP LAW JMS SORTJX JMS ERG GETLN JMS LAC AND SNA ERROR .DEC JMP LAC OAC· PUSHJ JMS lSi! LAC SMA !CLA TAO· TSTGRP JMS JHP LAC. OAC JHP 1///1 ERVX LAC oAC POPJ JHP .EJECT IERASE LINES. XGETLN LINENO P7600 7 ERR2-7 BurR (AXIN DELETE XPUSHJ DELETE THISLN NAGSW 'EX TRACT ONE LINE THISLN /(X-MEM) ISKIP IF" G(AC) GRPTST START THISLN LINENO ERG STARTV LASTV XPOPJ IPROTEcT REST or TEXT. = G(LINENO) I(X-MEH) IINIT VARIABLES HAY B[ IN THE TEXT FOCAL PAGE 02675 02676 02677 0:ne0 02701 02702 02703 02704 02705 02706 02797 0:n10 02711 02712 12713 02714 02715 02716 02717 12720 02721 02722 02723 02724 . 02725 02126 82727 82730 82731 02732 "2733 82734 · 02735 '2736 82737 02741 / ~--. 02741 02742 02743 02744 02745 02746 .2747 "275' R R R R R R R 64 000"100 200157 040066 040"'64 065546 200"'62 741100 R 60344? 103752 36 00 1? R 741200 R 61112721 R 75111100 R 602722 R 340064 R 040066 R 22111"'64 R 74111200 R 6111270'" R 741£1100 R 44267? R 21110064 R 340147 R 040014 R 777777 R 04001? R R R R R R R R R R R R R R R R R R R R 20011167 348070 750200 622675 200 0 22 540501 7411110111 54111475 602742 200475 103362 21113125 540501 602747 200501 11113273 200477 103273 IROUTINE CALLED VIA "FINDLN": ISEARCH FOR A GIVEN LINE 1.0. :( "L1NENO" 11ST RETURN IF NOT FOUND. I2AND IF FOUND. I"THISLN" : FOUNn LINE OR NEXT L4RGER. I"LASTLN" = LESSER AND/OR LAST. I"TEXTP" IS SET XFIND A 0 R CFRS IINITIALIlE POINTERS TO FIRST LINE LAC R LASTLN DAe R FINON ISAVE THIS ONE THISLN DAC OAC. (XRT2 R lAC LINENO R SPA A .,HAX 99.99 ERROR 24 GEN. .OEC R GEN. JMP ERR 2-24 R JHS TWOS TAD· XRT2 A 'LINENO=0 WILL ALSO BE FOUND SNA A R JHP FEN02 IFOUNO IT. A. SHA!CLA JHP FEN03 IPAST IT. ~ R TAD THISLN IHOVE POINTERS R LASTLN OAC R LAC. THISLN A SlA R . JI4P FINON SKP A . FEN02 R JS~ XFINO /2NO EXIT = FOUND R THISLN FEN03 LAC R TAD P2 R AXOUT ,SET "TEXTP". OAe A LAW -1 R XCTX OAC • I FUND HUL TI R LAC OEeesw R TAO OHPS'" A Si!A!CLA R JHP. XFINO R LAC SAVEOT R SAn C215 A SKP R SAO C375 R JHP .+3 R LAC C375 PRINTC R GEN. JHS XOUTL R LAC JHRUFF+2 R SAO C215 R JHP .+3 R LAC C215 R JHS IMAGEW R LAC C212 R JHS IMAGEW F'OCAL PAGE 65 02751 02752 0 2 753 02754 02755 02756 02757 82760 82761 82762 82763 R R R R R R R R R 62267'5 02764 02765 112766 02767 02770 82771 82772 02773 02774 02775 R R R R R R R R R R R R 000~01ll 103026 751100 340150 34016'5 341311161 741209 603914 340166 040061 R A R A R R R A R R R UTE UTa R R A R R R GEN. R R R R A R R R R UTRAX R A R R R R R R R R R R R R 103362 200061 103273 200061 5 4 0'50 1 74113130 613313137 2130477 103273 201311161 83"10 R 622752 R 11 3 8 11 831iJ12 831iJ13 R R R 10 3 0 2 6 740001 602754 R A R 8 3 0 14 "3015 83016 83017 83820 03021 . 113022 113023 0 3 024 83025 83026 03027 83"30 83831 UTRA 2001367 341311170 750200 61113 007 21110022 540501 7410130 5413475 692777 200475 82776 02777 03000 03001 0 3 00 2 "3003 "3004 83005 03006 03007 R ,ENOC JMP. XF'IND IUNPACK CHARACTER. - "GETC" JMS GETl SPA!CLA INORM & EXTEND TAD C100 130A-337 & 340-376 14 137 TAD 1240-276 & 200-236 TAD CHAR SNA JMP UTX 1"1" F'OU~O ·· · TAO P337 OAC CHAR ,If UNO "IULTI LAC DEBGSW TAO DMPSW SlA!CLA IPRINT ONLY If BOTH ARE lERO, JHP UTRAX SAVEOT LAC SAO C215 SKp SAD C375 JI'1P ,+3 LAC C375 PRINTC JHS XOUTL LAC CHAR JHS IHAGEW LAC CHAR If IX fOR TRACE fEATURE .• ,WAD, •• SAO C21 5 I l f cR OUTPUT Lf SKP JHP UTRAX INOT A CR. NO Lf LAC C212 IOUTPUT Lf JHS IHAGEW I., ,END Of flX",JUNE 69 CHAR LAC ,ENDC JI'1P. UTRA III 1/1/1/ EXTR JHS CHI. JHP GET1 LAC SlA!cLA JHP . TAD SNA!CLA TAO DAC JHP TAO JMP DEBGSW ITEST fOR TRACE-ENABLED UTXP6 OHPSW If LIP THE TRACE fLOP Cl OHPSW UTRA+l C277 UTO ISl 'JHP " xCTX GENDX LAW -3 UTE 1/1 R R R R R R R R R R R R R R 200067 750200 603024 340"'70 7'51200 340167 040070 602753 34 014 '; 602763 000001ll 440~15 603036 777775 R A R R A R R R R R A R R A UTX UTXP6 GET1 IGET NEXT CHARACTER INSTEAD. ITRACE DISABLED: RETURN "1" IUNPACK 6-8 ITS ISTARTS=-l rOCAL PACE 66 13032 03033 03034 03035 03036 R R 040015 220014 441H114 040016 200016 83137 83040 83041 83042 83043 03844 83845 "3146 83847 83858 R R R R R R R R R R R R R 100770 040 016 740010 500151 040061 540151 603011 777740 340"61 623026 R R DAC LAC· R R R IS~ R GEN. R A R R R R A R R CENoX DAe LAC RTL6 JMS OAe RAL AND oAC SAD J'HP .LAW TAO JMP. .EJECT XCTX AXOUT AXQUT CTEM cTEM INEXT WORD XRTL6 CTEM C77 CHAR ISAVE e77 EXTR -41/J CHAR CE Tl IEXTENDED F'OCAL 83051 8311J52 03053 03054 0300;5 03056 03057 03060 03061 03062 03063 03064 83065 03066 ·13867 83070 83071 83072 83073 93974 .:. PAGE 67 R R 000030 220"'1'>6 060004 R R R R R R R R R R R R R R R R R R 83075 IIJ311J76 03077 IIJ3100 R ",31",1 03102 83103 IIJ3104 83UI5 IIJ3106 83107 83110 83111 113112 83113 83114 83115 R R R R R 83116 13117 fiJ3120 R R fiJ3121 83122 R R R R R R R R R R R R R R 200~04 A XENDLN R R LAC DAC. LAC 52A DAC· LAC· R R 060066 200056 740200 060"'11'1 225544 340167 040004 6231'151 000001'1 200062 7421'120 142020 142020 7401'120 103101 200415 A R A A A A R R 103362 200062 103101 62306'5 R GEN. R R R 000000 500155 043322 200152 040104 203322 603112 440104 043322 344770 140UJ0 603110 200104 A R R R R R R R R R A R R 103362 203322 340152 R GEN. R R R A A R R R R "LAC. DAC. TAO XPRNT DAC JHP. 0 LAC RTR RTR RTR RAR JHS LAC PRINTC JHS LAC JHS JHP. III/II 103362 623HH R GEN. R PRNT XH 0 AND CAC LAC nAC LAC JHP 1St OAC TAO SHA JHP LAC PRINTC JHS LAC TAO PRINTC JHS JHP. .EJECT ITERHINATE THE BUttERED LINE - "ENOLN" LASTLN ISAVr OLD POINTER RUtR BUtR LASTLN ADD AXIN (AXIN Cl BUtR XENOLN IPRINT A LINE NUMBER - "PRNTLN" LINENO PRNT PER XOUTL LINENO PRNT XPRNT /PRINT TWO DIGITS P177 VAL C260 BOX VAL ,+3 BOX VAL 1412 XYi!-1 BOX XOUTL VAL C2611J XOUTL PRNT .. ", FOCAL PAGE 68 03123 03124 03125 03126 03127 03207 032Hl 03211 03212 03271 03272 R R R R R R R R R R R 002l1!Iil3 o I'l 01'1 lIII'I 00001'll'l 777777 O6400O 01'l0"'0'" A A A A A A A A A A A 03273 03274 03275 R R R 03276 1113276 03277 03300 01'l0000 043306 060011 003301'l A R R R R R R 003770; 000011 003123 83301 R 777775 1113302 0331113 R 001il775 1il1il1il012 0331'1" 83305 03306 03307 R R R R R R 1il641'10'" 000"'01'1 01HliIlI!'" 20331il6 623273 01il 0 1'101il (IH'l0000 003312 1113310 tlJ3310 03311 83312 R R R R 003776 000010 003123 83313 R 777775 03314 03315 R R (;)1(10776 0001il12 03316 03317 03320 1113321 R R R R 220011 500155 240154 623307 .IFUND ~ULTI IMBurr 2~03; iii; INBUF .BlOCK 61'1 .ASCII <15> OUTsur 1000 .SlOCt< 57 • ASCI I <15> IMAGEW .ENDC 0 DAC IMAC DAC· 0; -1 ISTORE AC rOR SORTB I"BUrp IM8rI'l1= . +2 WCALIil3 .WRITE -3,3,I,..Burr.3 A GEN. CAL+3.1000 -3&777 A GEN. 11 R GEN. IMRurr GEN. .DEC A GEN. -3 .lrUND MULTI .WAIT -3 A GEN. CAL -3H77 A GEN. 12 .ENDe • I rOEr MULT I J"S IOBUSY .ENDC R LAC HUC IRESTORE AC rOR SORTEI R JHP. IHAGEW IMAC A ISTORAGE rOR olC A IMAGER R IMBrIil2=.+2 RCAL03 .READ -2.3.IMBurr.3 A GEN. CAL+3.UJ00 -2&777 A GEN. 10 R GEN. IHBurr GEN. .DEC A GEN. -3 .IFUND MULTI .WAIT -2 A GEN. CAL -2&777 A GEN. 12 .ENDC .lrOEr MULTI JHS IOAUSY .ENDC R LAC. I"BUrp R AND Pl77 R XOR C200 R JMP. IMAGER .EJECT °° FOCAL PACE 69 liHI3322 03322 03323 0332" 033?5 03326 R R 000~liH'1 R 540501 03327 033?7 5'13330 1Il3331 R R R R 000010 1Il03127 03332 R 777720 13333 13333 8333" R R 909776 01110012 R R R R R R R 223331 50014" 545555 83335 83336 03337 03340 03341 03342 13343 033H 833"5 03346 83347 03350 03351 83~52 83 53 1335" 83355 83356 03357 03360 03361 R R 2~002~ 74100~ 693345 003331 0~2776 R R R R R R R R R R R R R R R 6~4152 545556 6"",,15 2 201HH2 105374 105401 240154 540154 693345 540500 6 0 3345 540477 603345 5"""15 200501 040020 0"0061 623322 R A R R A R R 11111 VAL =. XI33 P lAC SAO SKP JMP ENDCR C215 XI33NX I"READC" IWAS lAST INPUT CR lyES INO - GO GET NEXT FROM BUFFER INBFI;H=.+2 RCAl01 -2.2.INBUF.48 · RO[1 A GEN. CAl+2.1000 -2&777 A GEN. 10 R GEN. IN~UF GEN. .DEC A GEN. -48 .IFUNO MULTI RCAl02 -2 • WA IT A GEN. CAL -U.777 A GEN. 12 .ENOC • IFOEF MUL T I jHS IOBUSY .ENOC R LAC. INSF01 R AND P17 R SAD (5 IEOF? R JHP RDEOH IYES R (6 SAO IEeH? jHP R RoEOM IYES R LAC INsUFP R jMS • GET I IUNPACK INITIALIZATION jHS R IUNPACK CHARACTER .GET xI33 Nx XOR R C209 R SAO IIGNORE NULL C200 jMP R XI33 NX R SAD IIGNORE RUSOUTS C377 R JI1P XI3~NX R IIGNORE LI NE-FEEo c21 SAD R XI33NX JHP SAO R C375 IUSE CR FOR ESC R LAC C21S R DAC ENDCR R DAC CHAR jHP. R XI33 .EJECT FOCAL PAGE 03362 0 33 6 3 03364 03365 03366 03367 03370 ,,33 7 1 03372 03373 03374 03375 03376 0 33 77 034"" 03401 13402 13403 03404 0341115 83406 13407 034U 03411 R R R R R R R R R R R R R R R R R R R R R R R R 70 "''''0010''' 7 4 1 2 0'" 2C/10"'61 04002::» 440"'23 6(113377 223 4 14 54555 7 61113404 345560 063 4 14 777773 040023 223 414 545557 603404 21110022 1"'5435 21'10C/122 540501 603412 540475 603412 603426 "03412 11113414 03412 03412 0.3413 13414 R 03415 03416 1113417 113420 1113421 R R R 13422 03422 03423 R R 01HH75 000012 R 205560 063414 200061 623362 03424 1113425 1iJ3426 03427 R R R R R 002775 0110011 003211 777720 200"'13 1115431 777777 040023 R R R R A A R XOUTL R R R R R R R R A R R R R XQUTLC R R R R R R .. R XOUTL I I"PRINTC" IUSE AC OR CHAR PI SNA LAC DAe lSi' JMP LAC· SAO JMP TAO DAC. LAW OAC LAC· SAD JHP LAC JMS LAC SAD JMP SAO JHP JMP CHAR SAvEoT PUTCNT XQUTLC OTsr01 ( 31 000 XOUTLI ( 1000 OTeF01 ISAVF CHAR IREADy TO RUMP wPC? INO IYES IHAS THE SUFFER OVERF~OWEO? IY~S - IGNORE CHAR IN - uPDATE wPC -5 PUTCNT OTSF01 (3U00 XOUTL I SAVEOT .PUT SAVEOT C215 XOUTLX c375 XQUTLX XOUTLi! IRESET COUNT ISUFFER OVERFLOWED - DONT SAVE CHAR IGET CHAR IQ.UTPUT SUFFER ON CR OR ESC XOUTLX= • OTSF01=.+2 WCAL01 • wR HE -3.2.0uTeuF,48 A GEN. CAL+2.t000 -3&777 A GEN. 11 R GEN. OUTeur GEN. .OEC A GEN. -48 R LAC OT8UFP R JHS .PUTI LAW A -1 R DAC PI,ITCNT .IFUNO HUL TI WCAlI/J2 .WAIT -3 A GEN. CAL -3&777 A GEN. 12 .ENOC .lFOEr MULTI JHS loeUSY .ENOC R LAC (1000 R DAC. OTSFI/J1 R XOUTLl LAC CHAR JMP. R XOUTL .EJECT R R FOCAL PAGE 71 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 440Uf) 440106 44010(, 4401\!!6 440106 4401\!!6 440106 440106 440106 440106 44 0 10 6 440106 44011116 440106 44 0 10 6 440106 44 0 106 440106 440106 440106 440106 440106 440106 440106 440106 440106 440106 440106 44 0 1 0 6 44 0 1 0 6 44 0 1 0 6 44 0 1 0 6 44 0 1 0 6 44 0 1 0 6 44 0 1 0 6 44 0 1 iM 44 0 1 0 6 R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPr R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT R *RPT 03475 R 003475 200145 R R 03476 03477 03500 03501 03502 03503 03504 0351115 03506 0351117 R R R R R R R R R R 103362 200106 103101 140106 440063 741200 603512 040062 200416 R GEN* R R R R R A R R R 035U1 R 103362 R GEN_ 03430 03431 03432 03433 03434 03435 03436 03437 03440 03441 03442 03443 03444 03445 03446 03447 03450 03451 03452 03453 03454 03455 03456 03457 03460 03461 03462 03463 03464 03465 03466 03467 03470 034 7 1 034 7 2 03473 034 7 4 22006~ .oEC .REPT :"1 lSi! ERR2CT R R *RPT ERR2=. ERRPCX .ocf LAC C277 PRINTC JI'1S XQUTL LAC ERR2CT JI'1S PRNT Di!M ERR2CT lSi! Pc PC LACSNA JHP ERR2T OAC LINENO LAC C240 PRINTC JHS XOUTL ,CLEAR FOR NEXT ERROR 'PRINT LINENO IF" INDIRECT COMMAND ,SAVE rOR PRINTINC -roCAL PAGE 72 R R 10306'5 200501 R GEN. R ERR2T R 11113362 603527 04011116 200145 R GEN. R FUN ERR R R R GEN· R 03511 1113512 03513 03514 03515 03516 R R R 0351 7 03520 R R 103362 603475 03521 R 200<;01 R 03522 R 103362 R GEN. RECOVR REcOVR 03523 03523 03525 R R R R 03526 R 03~24 03527 03530 03531 03532 i3533 83534 83535 83536 • 353 7 03540 03541 rn542 03543 R R 002775 000011 000177 777730 603527 200013 105431 R 200501 R 040020 R 777777 R 0411'-'!23 R 205560 R 063414 R 200026 R 103553 R 200027 R 103544 R 600547 WCALIi'4 A GEN· A GEN· R GEN* GEN· A GEN· R RECVR=. R R R R A R R R R R R R R PRNTLN JMS XPRNT UC CCR PRINTC JMS XOUTL JMP RECVR ('lAC ERR2CT LAC C277 PRINTC JMS XOUTL JMP ERRPCX .IrUNO MULTI LAC CCR PRINTC J.MS XOUTL .ENOC MULTI .frOEr Oi!M. CT_LP LAC CCR PRINTC JMS IOBUSY .[NOC .WRITE -3.2.rOCAL9.4e CAL+2*1 000 -3&777 ISAVE TWO DIGIT ERROR cOOE IPRINT OOUALE ? U rOCAL9 .OEC -40 .lrOH MULTI jHS IOFlUSY .ENoe LAC on,urp JMS .PUTi LAC e2l5 OAC ENDCR LAW -1 DAC PUTCNT LAC (1000 OAC- OTsr01 TTIN LAC JHS SETRCL LAC TTOUT JHS SETWCL JHP SHRTi! .EJECT IRESET CAL FOR NOR~AL INPUT FOCAL PACE 73 03544 R 000000 A @35<45 R 043422 R (1135<46 R 2<45560 R 035<47 03550 03551 0355 2 R R R R 044165 3455611l 0<43412 6 2 3544 R R R R 03553 R 000000 A &13554 03555 R R 0<43333 2<45561 R R 03556 03557 03560 03561 R R R R 0<43327 3<45560 044123 623553 R R R R IS(T WRITE CAL'S SUBROUTINE SETWCL 0 MULTI .IFUNO QAC WCAL02 .ENOC XOR (1001'1 MULTI .IrOEr OAC. BWA iT .ENOC OAC LBO UT 1 TAO (1000 OAC WCAL01 JMP· SETWCL ISET READ CAL'S SUBROUTINE SETRCL fill .IFUNO MULTI OAC RCAL02 XOR (2000 .EIIIOC .IFOEr MULTI XOR ( 1000 BWAIT OAC· TAD (1000 .ENoC OAC RCALfiH TAO ( 1000 OAC LBINlA JMP. SETRCL I .EJECT I. WA IT IPROPER .WAiTR 1.INiT I.WRITE I. WA iT IPROPER .WAITR I.REAo FOCAL PAGE 74 1113562 03563 1113564 03565 03566 03567 03570 03571 03572 03573 R 000000 777501 340"'61 741200 340174 340153 7 4 120'" 740040 340500 040074 A A R A 0 35 7 4 03575 03576 1113577 1113600 036°1 036 0 2 t'l3603 1113604 03.605 1113606 1113607 03610 03611 03612 036 1 3 03614 03615 1113616 1113617 R R R R R R R 5 00 1 7 5 340176 7402O'" 340175 7'H200 6 0 3 6 2'" 2 00074 511l0t51 740200 103623 200074 540501 603613 2"'0061 623562 200057 751200 603611 Hl3623 603613 R R R R A R R R R R R 200 1 5 1 103623 603602 R R R 036 2 0 03621 t'l3622 R R R R R R R R R R R R R R R R R R R R R R PACBUF 0 LAW TAO S~A R R TAD A A R S~A HLT R DAC R R A R A R R R A AND TAD SlA' TAD SNA!CLA JMP LAC AND SlA JMS LAC SAD· JMP LAC JMP. LAC SNA!CLA JMP JI1S JI1P TAO TAO TR1 R R R PACBXT IPACK A CHARACTER - "PACKC" -277 CHAR ICHANGE 277 TO 337 P40 1'1100 ITEST FOR RUBOUT. C377 T2 C140 "1140 LAC JI1S JI1P .EJECT ICHAR LOOK LIKE A LEFT_ARROW IDATA WORD. C14111 ESCA T2 C77 PC K1 T2 C215 .+3 CHAR PACBUF XCTIN PACBXT pCK1 .-4 111111 ESCA ISAVE INPUT ITEM ISO THAT QUESTION DOESN'T MAKE C77 PCK1 TR1 1340-377 AND 208-237 1248-337 IIGNORE 300 rOCAL 03623 036<'4 03625 03626 03627 03630 03631 03632 03633 PACE 75 R R R 000000 04"1"124 2P101l157 345562 043631 200P156 0000130 603651 60365? A R R R R R A R R R GEN. R R A R R A R R R A R R R R R R R 03634 03635 03636 03637 03640 0 3641 03642 03643 03644 03645 03646 03647 R R R R R R R R 10077111 1413"'57 34011124 1360010 14011156 225542 74411101 340167 340143 365544 7<;0400 623623 03650 R 6 0 3455 GENR GEN· 03651 03652 1113652 1113653 1113654 03655 1113656 R R R R R 750000 A R R R R PC K1 0 nAC LAC PCKT8 TAD OAC LAC XX JMP JMP RTL6 JMS 0i!I'! XCTIN TAD OAC. Oi!'" LAC· CHAlCLL TAD TAO TAO. SNLlCLA JHP. ERROR .OEC JMP TEMPK XCTIN 1=1 TO START (JMP PCKTB ,+2 ADD ROT-l ROT XRTL6 TEMPK UIN ADO (PDLXR Cl P13 (AXIN PC Kl 16 ERR2-16 1/111 R R RoT 100770 340e24 040056 440057 623623 R GEN· R R R R CLA IHL6 JMS TAO OAC lSi! JMP. .EJECT XRTL6 TEMPK ADO XCTIN PCKl ICLEAR PACKING WORD ICHECI< rOR OVERFLOW (TAO P7600) TO PROTECT (X-MEM) IRESERVA TI ONS (FULL BurrER PACE 76 03657 03660 03661 03662 03663 0.3664 R R 2NHl05 R 440P7~ R R R R R 04007? 540"03 Hl372" 540V''lf> R 03665 03666 0 3 667 03670 03671 03672 03673 03674 03675 03676 03677 03700 03701 03702 03703 03704 03705 83706 037fil7 03710 R R 602;>65 R R R F"QCAL R R R R R R R R R R R R R 22Q1~7? 0 4 .,110 2 (7! 01Q17 340167 040~14 777777 040"15 777774 103716 440~n 220 ~ 72 103 1 0 1 777776 103716 4401?72 125524 4001?72 TOUMP R R R CEN. R R R A R A R R A R 1"'4~72 211"'501 R R R R R GEN. R R R R R 03711 03712 1113713 03714 83715 R 103362 200156 341367 340072 603661 03716 03717 R R 1Il00000 040073 A 03720 R 102752 R GENe R 103362 440073 6 0 3720 623716 000000 200421'1 03721 "3722 93723 03724 03725 03726 R R R R R 1113727 03730 R 03731 03732 03733 R R R R F"RSTCV nMPSW LASTCV TOUMPC LASTV XPOPJ PT! QP+l OP Cl AXOUT -1 XCTX -4 TOUMPX PTl PTl PRNT -2 TDUMPX PTl .AO III TOUMPX R R GEN. R R R A R TOUMPC 0 OAC GETC JHS PRINTC JMS lSi' JMP JMP. 0 LAC . PRINTC Hl3362 2 0050 1 R GEN. JMS R 11113362 200072 623725 R GEN. R R LAC PRINTC JMS LAC JHP. .EJECT IINIT POINTER FOR SYMBOL OUMP. /TURN OF"F THE TRACE F"OR EXIT PTl LAC· JMS LAW JMS lSi! JMS. PT1+400000 F"LOUTP JHS LAC e215 PRINTC JMS XOUTL LAC CINC TAD "'2 TAD Ph JMP TDUMP+2 R R R IS~ R R R E R R R R LAC lSi' OAr: SAD JMS SAD POPJ JMP LAC· DAC LAC TAD nAC LAW DAC LAW JMS Tl UTRA XOUTL T1 .-3 TDUMPX C255 XOUTL C215 XOUTL Ph TOUMPC ITEST F"OR END OF" LIST. I(DCA I XOP)-F"OR(X_MEM) IREAO SUBSCRIPT TO 99 ,PICK UP VALUE ,PRINT VALUE FOCAL PAGE 77 0 3 7304 03735 03736 03737 03740 03741 03742 037043 037404 03745 1113746 "'3747 03750 R R R R R R R R R R R R 220 11 <' 0440112 74011110 340112 36007? 7040\'1U1! 065522 360112 065523 165<;21 20111112 565563 140112 1113751 R 602517 03752 03753 037504 03755 R R 000000 740001 340167 623752 R R R R R A R R A E R E E R R R III XRAN LAC· IS~ IIANPT RANPT RAL TAO RANPT TAO. PT1 RAL flAC • • AB RANPT TAO. DAC • • AC OlM. • A A RANPT LAC SAD. (.SCOM DiM RANPT RETURN JHP R GEN. EF'UN3 ITWOS COMPLEMENT - CIA TWOS A ~ CMA A R TAD C1 R TWOS J"'P. .EJECT IRANOOM NUMBER GENERATOR. F"OCAl PAGE 78 .IF"UNO 03756 0370;7 03760 03 76 1 03762 R 225564 R R R R 1i!41i!~1i!'" R 225565 R R R Ii! 4 Ii! 0 Ii! 1 R 0~763 R R 044140 044173 044125 345566 04011102 040000; 040003 040006 204140 345567 042360 200161 062360 R R R R R R R R R R 000775 000001 003521 000000 A GEN. A GEN. R GEN. A GEN. A GEN· A GEN· R GEN· GEN" A GEN· 003751'1 03764 03765 03766 03767 03770 "3771 03772 83773 03774 03775 03776 R R R R R R R R R R 03777 04000 04001 04002 R R R 04003 0401114 04005 R R R 002770; 011l1ll11l11 1i!01i!177 1J4006 R 777731i! R COMEIN=. BE.GIr-.j R R R MULTI LAC. (.SCOM+3 OAC BOTTOM LAC. (.SCOM+2 OAC RUF"STX DAC F"ILE01 OAC F"ILE02 OAC F"ILE03 TAD (3 OAC ENOT OAC F"RSTcV OAC LASTCV OAC LASTV lAC F"llEIJi TAD (2 OAC F"lACl LAC F"IlEXT OAC· F"LACl .INIT -3,0,RECOVR CAl+0.1000 -3&777 1 RECOVR+0 0 • WRITE -3,2,F"OCAl9,40 CAL+2·1000 -3&777 11 F"OCAL9 .OEC -40 .ENOC MULTI .IFOEF BEGIN=. R .ENOC LAC • Ale OAC F"lACl OAC FLAC2 OAC F"lAC3 .IFUNO MUL TI LAC (OUTBUF+2 JMS .PUT! JMP XSBEGN BUFF"ER=COMEIN+70 R COMOUT=COMEIN+ll~ 04007 IH010 04011 04012 R R R R 205521 042360 042420 042427 E R R R 04013 R 84014 R 041iH5 R 205571i! 105431 61i!2f>44 004046 004066 R R R 04066 04066 R R 000215 A .LOC 215 .ENOC .IFOEF OAC TAD OAC TAO OAC JKP .ENOC COMOUT ,STOPPER MULTI F"lAC14 (1 F"LAC15 (1 F"LAC16 MSTART PACE 79 .EJECT F'OCAL PAGE 80 ILIBRARY COMMAND FORMAT: LIBRARY IN FILE LIBRARY OUT FILE LIBRARY WRITE "ANY COMMAND L1I?RARY WR ITE ALL LIBRARY WRITE XX.rara LIBRARY WRITE XX. yy LIBRARY KILL -lIBRARY CLOSE I I I I I I I I I 0 4 067 04067 04070 R R R 11112233 5405fiH R GEN· R 1114071 1114072 R R 602265 540433 R GEN .. R 1114073 04074 04075 R R R 602265 777767 102110 R GEN. A R 04076 04077 04100 R R R 1131321 000453 741000 R GEN .. R GEN· A LIBRAR 04101 R 603435 GEN. R GEN. 04102 04103 R R 102040 00033 1 R GEN· R GEN· 603 4 35 GEN" R GEN· 04104 R SPNOR JMS SAD POPJ JHP SAD POPJ JMP LAw JHS SORTC JHS SKP ERROR .DEC JHP SORTJX JHS ERROR .DEC JHP IIGNORE SPACES XSPNOR C215 IIGNORE COMMAND IF CR XPOPJ C273 IIGNORE IFl XPOPJ -11 FETVAR GLIST XSORTC GL! ST-1 32 ERR2-32 LIBCHO XSORTX LIBCMO-1 32 IBAD LIBR CHD ARG ERR2-3 2 I R 10 42 34 200030 040032 044114 1344136 044266 103'553 R R R R R R R 1114114 04 114 04115 04116 04117 R R R R R 000000 000001 003521 000000 A GEN. A GEN .. R GEN. A GEN. 04.120 04121 '1114122 R R 20412'5 505571 044125 R 0 41 05 04106 04107 04110 04111 04112 04113 R R R R R R R R R LBIN LBIN01 JHS LBFILE LAC eLKIN OAC LIeRSW LBIN01 OAC OAC LBIN02 LBIN03 OAC SETRCL JMS HULTI .IFOEF JHS loeUSY .ENOC .INIT 0.0.RECOVR CAL+0 .. 1000 0&777 1 RECOVR+0 0 MULTI .IFOEF IOBUSY JHS .ENOC FILE03 LAC . (77777 AND FILE03 DAC IGET FILE NAME ISEtuP INPUT CAL'S ISIGN BIT 0 , i- i~ i I , FOCAL PAGE 81 004125 R ~Hl3'H"1J A GEN. A GEN· A GEN· R 04123 .,4123 0 4 124 04 1;;>5 041;;>6 04127 O413O 04131 O4132 04133 04134 R R R R R R R R R 00000;:> 0" 0~'HHl 044234 204125 505552 741200 604136 2Q14234 74121"0 O4135 R 603433 GEN. R GEN. 004140 R 04136 O4136 04 137 04140 R R 04141 04142 "4143 04144 R R R R R R R R 04145 04146 84147 R R 84150 04151 04152 04153 04154 04155 04 1 56 R R R R R R R R 2 XX OAC LBFILE FILE03 LAC AND (71110000 SNA JMP .+4 LAC LBFIlE SNA ERROR 34 .DEC JMP ERR2-34 .IFOEF MULTI JI1S IOAUSY .ENOC R R A R R A R R R R R R A GEN. A GENe 200162 040063 200061 540501 602265 540433 61H203 R 10 4234 200031 O44171 O44202 04421111 103544 O4165 11J4165 84166 R R R 00000O 0011J001 R ."XX 0&777 11112752 604144 104260 200501 60334/ Ul42611l 6 0 4 1 43 0fl0"'00 0OO003 00000111 R R CAL+30~0 FILE01=.+2 .SEEK ~,XX LBIN02 A GEN· CAL 0&777 A GEN· 3 A GEN· XX MULTI .IFOEF JHS IOBUSY .ENOC R CFRSX LAC R OAC PC R LBINLP LAC CHAR R SAO C215 POPJ R GEN. JHP XPOPJ R SAO C273 R JHP PROCES GErC R GEN. JHS UTR-A R JHP LBINLP+l R JHS ROEOH LBIENO R LAC C215 R X133NX+2 JHP R HSPX JHS LBIENO R JHP LBINLP 11J 415 7 11J4160 11J4161 "4162 "4163 11J4164 R R FILE"3=.+2 LBIN1A .FSTAT IALL DONE IHORE IN COME IN lEND LIBR IF OPEN lEND LIBR IF OPEN I LBOUT LBOUTl JHS LBFILE LAC BLKOUT OAC LBOUT2 OAC LBOUT3 OAC LBOUT4 JHS SETWCL HULTI .IFOEF JHS IOBUSY .ENOC .INIT 0,0,RECOVR CAL+0.1"00 0&777 1 IGET FILE NAHE ISETUP OUTPUT CAL'S fOCAL PAGE 1114167 04170 R R 82 ~H'I3'521 01110~'H" 004173 R GEN. A GEN_ RECOVR+0 ""• 1FO£f" JMS .ENOC R MULTI IOBUSY 1114171 04171 04 1 7 204173 R R R R 1110000111 000004 0001110111 04174 ... 04 175 04176 R R R 777777 04011132 604143 FILEIII2=.+2 LBOUT2 .ENTER 0,XX A GEN· CAL 0&777 A GEN· 4 A GEN· XX MULTI .IFOEF JMS IOBUSY .ENOC A LAW -1 R OAC LIRRS\oI R JMP LBINLP 04177 04200 R R 200032 740100 R A 04 201 R 6 0 343 2 II GEN· 042A2 04202 0421113 04204 04205 04206 R R R R R R 00000A 01110006 61114214 21110032 740100 04207 R 603432 04210 04210 04211 04212 04213 04214 04215 04 21 6 04217 R R R R R R R R R 000001'1 00011101 003521 000001'1 140032 200027 10 3544 604143 I L8CLOS GEN· LBOUT3 A GEN. A GEN. R R L8KILL A GEN. R GEN. L80UT4 A GEN. A GEN. R GEN. A GEN. R LBOUTl R R R LI8RSW LAC SMA 35 ERROR .OEC JMP ERR2-35 MULTI .IFOEt JMS IOBUSY .ENOC .CLOSE 0 CAL 0&777 6 JMP LBOUTl LAC LIBRSW SMA ERROR 35 .OEC JMP ERR2-35 MULTI .ItOEF JHS I08USY .ENoe .INIT 0,0,RECOVR . CAL+lh1000 0&777 1 RECOVR+0 A OlM LAC JMS JMP LIBRSW HOUT SETWCL L8INLP I 04 22 0 04221 04 222 04223 04224 04225 R 21110A32 R .74010111 R R R R 60343" 601234 200032 740100 R LBWRIT A GEN· R GEN· R LBTEXT R A LAC SMA [RROR .OEC JMP JMP LAC SMA LI BRSW 35 ERR2-35 IoIRITE LIBRSW ICLEAR LI8R SWITCH IRE SET WRITE CAL'S IGO FINISH cMo FOCAL PAGE R 83 GEN. R GEN. 04226 04227 1114227 R 102752 R GEN· 24230 04231 R R 103 362 540501 R GENR 04232 04233 R R 602265 604227 R GEN. R 603465 L8TEXX R 0 4234 R 04235 R 04236 R 04237. R fU240 R 1114241 R 1114242 R 1114243 R 042H R 1114245 · R 000000 2""4125 345567 044260 200161 064260 200061 540416 741000 604250 A R R R R R R R A R R R 102752 604243 777772 102110 200061 540501 741000 540433 624234 R GEN. R A R R R A R R R 603434 GEN. R GEN_ 84246 1114247 04250 1!J4251 04252 04253 04254 6114255 04256 1114257 R R R R R R R E'RROR .DE'C JMP GETC JMS PRINTC JMS SAO POPJ JMP JHP 8 ERR2-8 UTRA IPUT COMMAND INTO IOUTPUT BUFFER XOUTL C215 XPOPJ L8TEXX I ALL DONE? IYES INO-MORE I. L8FILE fI LAC TAD DAe LAC DACLAC CHAR SAD C240 SKP JMP .+3 GETC JMS JMP .-4 LAW JMS LAC SAO SKP SAO JMP. ERROR .DEC JMP FILE03 <2 LBIEND FILEXT L8IENO ISETUP 'FCL' AS EXTENSION UTRA -6 FETVAR CHAR e215 C273 L8FILE 33 IGET FILE NAME ICR I: ERR2-33 I 04 2 60 1114261 04262 84263 84264 1114265 04266 04266 0"267 04270 04271 R R R R R R R R R R R 0"'HI00 200026 1Ql3553 200032 741200 624260 A R R R A R 000000 00\HJ06 140032 624260 A GEN. A GEN. R R LBIEND III LBIN03 TTIN LAC SETRCL JMS LAC . LIBRSw SNA JMP. LBIENO .CLOSE 0 CAL 04777 6 OlH LIBRSW JHPLBI[ND I .EJECT IRES TORE INPUT /I F LI BRARy OPEN, ICLOSE IT ICLEAR SWITCH fOCAL PAGE ",,272 04272 04273 0"274 84275 04276 R 042 77 04300 14301 04302 04303 84304 '4305 R R R R R R R R R 8<4 225522 750H'J0 6IH277 125534 750001 R 040122 125525 000076 125515 604305 000076 440122 14306 04307 84310 84311 04312 04313 R R R R R R 602517 105140 600137 500167 400137 0000"0 04314 R 602517 84315 04316 . 14317 R R R 125513 604320 000076 14320 R 602517 04321 04321 14322 R R R R R 225522 741200 143 2 3 R 04324 · R 04325 R 1114326 R 04327 R 04330 R 1114331 R 04332 R 61113444 751101ll 125534 125525 000076 125516 604333 000076 04333 R 602517 04334 04335 04336 R 125<;14 604337 0001/176 04337 14340 043<H 04342 R R R R R R 602517 125517 604343 'UJ0076 InOATING POINT ARITHMETIC INTrRPRETrR FOR FOCAL InOATING POINT PACKAGE - EXPONENTIAL FEXP GETSGN E GEN· LAC· .AR A SMA!CLA JMp .+3 R JMS. E .8A A CLA!CMA R E R E SIGH2 OAC IC(SIGN)"-l IF' X<, JMS. IPUT .AP F'lARG JMS. OEXP JMP .+2 R "FLARG R R 1St SIGH2 RETURN JMP R GEH. EFUN3 R JMS FINT R FPUT XY R FGET flTONE R F'OIV XY fEXT A RETURN R GEN. JMP EF'UN3 InO"TING POINT ARC TANGENT ARTN JMS. OATAN E R JMP .+2 R fLARG RETURN R GEN. JMP EfUN3 Ino" TI NG lOGARITHM flOG GETSGN lAC. .AB E GEN. SNA A ERROR IZERO ARGUEMENT fOR LOG 25 GEN· .DEe R GEN· JMP ERR2-25 SPA!eLA A E .8A INEGATIVE ARGUMENT JMS· JMS. .AP E IPUT R flARG JMS. E DlOG JMP R .+2 R fI..ARG RETURN JMP R GEN. EFUN3 IflOA TI NG POINT SINE AND COSINE reos JMS. DCOS E R JMP .+2 R fLARC RETURN R GEN. JKP EfUN3 fSIN JMS. DSIN E R JMP .+2 R flARG rOCAL 14343 PACE 85 R 602517 R GEN. RETUPN JMP .EJECT EF"UN3 PACE 84344 84345 84346 84347 84350 843~1 1114352 , 84353 84354 84 3 55 84356 84357 Il4368 14361 84362 8436 3 84364 84365 84366 84367 8437111 84371 84372 1114373 84374' 84375 &4376 84377 1114488 8 44 8 1 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R (114402 R 84403 " 4484 84485 84406 8 44 0' 84418 84411 844 12 8 4413 84414 04415 R 04416 84417 84420 ' 84421 R, R R R R R R R R R R R R R 86 01110000 040123 20004111 741200 604372 103752 34'Hl55 741100 604361 75800 1 340040 040055 750001 340132 740100 7 5 0000 340040 741100 604-H3 344505 74010111 750000 340210 040125 34 0 211 840124 2"0125 103752 040125 205555 460124 360124 34477£1 75110" 604416 060124 440125 604453 460124 200132 345572 040132 20011140 741 2 00 604502 193752 A R R A. R R R A R A R R A R A A R A R R A A R R R R R R R R R R R A R R R R R R R R R A R R IINPUT/OUTPUT ROUTINES fOR THE FOCAL IfLOATING POINT PACKAGE. lIN THE COMMENTS BELOW:I f' NUMBER OF DIGITS TO eE OUTPUT =FlSW I 0 NUMeER or DEcIMAL PLACES =OECP I E DECIMAL EXPONENT =BEXP I P NUMBER Of PLACES REMAINING TO BE I PRINTED eEFORE DECiMAL POINT TCO I1J SCOUNT OAC FISW LAC SNA IFLOATINC OUTPUT? R 6 / Y E S . ROUND oFr TO 6 PLACES JMP JMSTI'OS INO, COMPUTE fIELD . SI;!ES TAO DECP , SPA I F-O > II ? JMP .+5 IYES cLA!CMA IND. TAD fISW OAC OECp CLA!CHA TAO BEXP IC6MPARE DECIMAL EXPONENT SMA I F-O > E7 INa, ROUND Off TO .F PLACES CLA TAD IYES FISW I O+E < e ? SPA JMP lyES. NO ROUNDING ~EEDEO. GO TO PRINT TAO INO, ROUND TO D+E PLACES. SMA ITO A MAXIMUM OF D PLACES CLA R6 TAD RN02 I .ROUND UP • TEMPO OAC ISAVE NUMBER+l or PLACES TO ROUND TO BurST TAD ISET UP BUFFER ADDRESS AT WHICH OAC IROUNDINC OFF SHOULD START PLCE LAC TEMPO JMS TWOS ISET UP COUNT Of "AXIMUM NUHBER · TEMPO OAC 10f CARRIES ALLOWABLE (5 LAC ILITTLE EXTRA ON fiRST DIGIT. PET IS;!. PLCE IADO 1 TO DICIt AT CURRENT POSITION TADe PLCE TAO 1'112 SPA!CLA ICARRY REQUIRED? JMP FPRNT INO. CO TO OUTPUT PLCE IYES. HAKE CURRENT DICIT lERO OAC· TEMPO IBEGINNING OF RUfFER REACHED? 1St JMP DECR INO. DECREMENT BUFFER ADDRESS AHD REPEAT IS;!e PLCE IYES. SET MANTISSA TO 0.1 RETl LAC BEXP ICOMPENSATE BY INCRE~ EXPONENT TAD (1 If IX fOR OUTPUT OF .t OAC BEXp I ••• WAD JuNE 69 ,FORMERLY IS~ BE~P REPLACED ABOVE THREE INSTRUcTIOtS FPRNT LAC FISW IAUTO-INDEX REGISTER ALREADY SET. - .PRINT. SNA I f = 0 ? JMP FLOP X IYES' OUTPUT AS FLOATING NUMBER JMS TWOS INO. PAGE 87 14422 94423 04424 1 442 5 04426 04427 14430 04431 14432 84433 14434 0 443 5 84436 84437 14440 14441 04442 04443 214444 84445 84446 04447 04450 R R R R R R R R R R R R R R R R R 040124 340132 740300 60 4 500 340055 740100 75000111 103752 340132 103752 040125 200 1 32 340125 75120111 604465 340125 340167 751100 77776111 104460 440125 604435 21110415 04451 04452 R R 103362 604435 04453 84454 04455 84456 14457 R R R R R 750001 340124 040124 75000111 604402 FOCAL R R R R R R R R A R R A A R R R R R BACK R A R R R A A R IN R R R R GEN· R OAC TAO SMAlSlA JMP TAO SMA CLA JMS TWOS TAO JMS TWOS OAC LAC TAO SNAlCLA JMP TAO TAO SPA lCLA LAW JMS ISl JMP LAC PRINTC JMS JMP F'COUNT eEXP XXX OECP eExP TEMPO eEXP TEMPO DIG TEMPO C1 240- 2 60 OUTA TEMPO BACK PER ISET UP COUNT TO PRINT F' PLACES I E ) F' ? IYES, PRINT X'S I E < F'-O ? lNG, TAKE P = E IYES, TAKE P = r-D ISET UP MINUS P IPRINT 00.000 I P =E ? lyES, PRINT DIGIT INO, I P ) 1 ? IYES, TAKE SPACE: OTHERWISE lERO IPRINT CHARACTER Ip CHARACTERS PRINTED? INe IYES, IPRINT DECIMAL POINT XOUTL BACK 11111 8 44 60 14461 84462 14463 14464 R R R R R A OECR R R A R 000000 105036 440124 624460 624344 A R R R R 7501i!101 340132 040132 440123 604476 75111'''01 040123 750000 604445 220014 604445 A R R R R A R A R A R CUlCMA TAO oAC CLA JMP PLCE PLCE 0 JMS lSi! JMP. JP1P. OUT DC F'COUNT. OUTA TCO IPRINT CHARACTER IF' CHARACTERS PRINTED? INO, RETURN ,YES, NUMBER F'INSHEO eEXP BEXP SCOuNT OICP5 IREOUCE E, BY 1 RET 11/1/ OUTA 11/1/ 14465 "4466 14467 14470 84471 84472 04473 04474 14475 04476 04477 R R R R R R R R R R R DIG DIG P5 CLAlCMA TAO OAC lSi! JMP CLA lCMA oAC CLA JI1P LAC· JMP SCOUNT IN F'LTXR IN III/ 100 F'LOATINC OUTPUT 0451H'r R 14501 R 04582 R 21110040 741000 200(/155 R A R XXX rLOPX LAC SKP LAC f'ISW OECP IARE ALL SIC. rICS. USED? INa IYES, IRE SET COUNT TO -1 lAND LEAVE CCAC) = 0 ITAKE NEXT DICIT F'RO" surrER F"OCAL PACE 88 11451113 04504 84505 045216 0451'17 04510 1114511 R 114512 8.5 13 114514 14515 14516 1451 7 14~20 4 21 R 1I1J3362 R 444 3 44 '4522 '4523 R R R R R R R R R R R R R R 103752 741200 777767 040124 7501'101'1 105036 2U415 220014 11114460 440123 61114 5 14 750001 040123 750000 604515 R A A R A R R R CENR A R R R A R A R HD JHS SNA LAW DAe CLA JMS LAC PRINTC JMS lSi! LAC· JMS IS~ JHP CLA!CHA DAC CLA JHp .EJECT TWOS -0 I CITS F"COUNT OUTDC PER XDUTL TCO FLTXR OUTA SCOUNT 16 ,SET COUNT TO PRrNT DICITS AFTER DEC I HAL POINT IPRINT "0" IPRINT " " ·-3 'SEND RETURN ITAKE NEXT DICIT FROM BUFFER IpRINT IT ,TEST FOR END OF INPUT lAND REPEAT SCOUNT 'OUTpUT EXTRA lEROS. .-6 rOCAl PACE 89 A E E R R 000000 165522 165523 1401'137 140131 750001 040130 777525 34011161 74120111 604543 341367 750200 604544 040130 104662 540416 61114543 04546 84547 R R 1f/I4550 624524 R R 8 4 55" 04551 04552 R R 000000 540414 624550 R 045<'4 04525 04526 04527 84530 . Ql4531 04532 84533 04534 1114535 1114536 04537 04540 04541 04542 84543 04544 "4545 R "4553 84554 84555 84556 84557 456 8 " 14561 14562 84563 84564 84565 84566 84567 84570 14571 84572 1114573 04574 04575 04576 Ql4577 1 46 80 R R R R R R R R R R R R R R R R R R R R R R R R R A R A R A R R A R R R R R 11/1/ 102242 62455111 604565 040127 440131 10 46 0'" 740200 R. 603443 104662 R 604551 ""4565 R 777477 R 340061 R 751100 R 624550 R 777445 R A R GEN .. R R R OSAVE R R A GEN· R CEN. R R R A R A R A R R R R R 000000 A R R R OECON R 34011161 75011111/1 62455[;1 2[;10061 51110151 604556 R loOUBLE PRECISION DECIMAL-BINARY IINPUT AND CONVEQSION rOR + OR - XXX ••• OECONV III Oi!M. .A9 OlM. .AC Oi!M OVER2 OlM ONUHBR ClA!CHA OAC ISIGN LAW -253 TAO CHAR SN4 JHP .+5 I+SIGN: CET NEXT ho M2 ICHECK - SIGN SlA!ClA JHP .+3 OAC ISIGN JMS INPUT IGET NExT SAO C240 JHP .-2 IfORMERlY WAS JHP .-4 JMS OECON JMP. OECONV R A R R HINUSA=. OTST "SAO JI1P. TESTN JMS JHP. JI'4P OAC lSi! JMS Si!A ERROR .DEC JI'4P JI'4S JMP LAW TAO C305 DEC ON XTESTN OECON OTST DIGIT ONUMBR MUl H0 IYES - SORTCH IN AC IINOEX NUMBER or DIGITS IREMAIN MUST =0 SINCE OVERfLOW IS CHECKED 26 'INPUT-OVERfLOW ERROR ERR2-26 INPUT DECON+1 ICONTINUE -301 CHAR SPA!CLA JHP. DECON LAW -333 ILAW -332 CHANGED TO lAW -333 TAO CHAR SHA!ClA JMP. OECON CHAR LAC AND C77 JHP OSAVE III/I HUL Tl8 p. ITEST lEAD CHARACTER rOR TERMINATOR •••• WAo •••. JUNE 69 rOR 0i! BUe IROUTINE TO HUl TrPl Y rOGAL PAGE 046"1 046~2 ~4611!3 Ql46~4 '11461.'15 1/1461116 '-"'461.'17 04610 QJ4~11 .., R R R R R R R R R R R R R 90 2~0~37 040036 225';23 04003'; 22552'2 1114003 4 14012f> 11i'!4 6 23 104~23 04 12 04613 04614 04615 04616 1114617 34620 1'4621 04622 R R 140"'35 1401/134 104641 200126 6246011' 0 4623 04624 04625 04626 iJ4627 6114630 04631 04632 . 04633 04634 04635 04636 04637 04640 04641 04642 04643 04644 "4645 .846"6 04647 .. "4650 04651 04652 04653 04654 04655 04656 04657 04660 04661 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 000001i'! 200037 74411'11.'1 04'''1137 225523 740111H" 065523 225522 7401"1111 065522 21110126 74001111 040126 624623. o 1/10 Ii'! 111 0 754000 200037 34011'36 040037 750010 365523 340 111 35 065523 7501111111 365522 3401i'!34 065522 750011i'! 34 0 12 6 040126 624641 R R R l1i'!4 41 U'4623 2"'0127 040~36 R R E R E R R R R R R R R R R R R R Dl'" DiM JMS LAC JMP. /FROM TAD IDOURLE PRECISION WORD IBY TEN (OECIMAL) IREMAIN:REMAINOER ICALL SUBROUTINE TO IMULTIPLY eY TWO IcALL DOUBLE AIJD IADD LAST DIGIT RECEIVED IEXIT WITH REMAINDER lIN AC 11111 A R A R E A E E A E R A R R A A R R R A E R E A E MULT2 DU8LAD "LAE CL ! RAL IMULTIPLY OVER2, LORD, HORD BY 2 OVER2 DAC LAC. RAL OAC. LAC. RAL DAC. LAC RAL DAC JMP. OVER2 R R R 00000111 200025 750200 .AC .AB .AB TAD OAC CU!RAL TAD· .AC TAD DAC· .AC CLA!RAL ,TAD. .AB TAO OAC • . • AB CLA!RAL TAO DAC . JMP. R E A R R R A R A .AC "" CLA!CLL LAC 11111 0 4 66 2 04663 '4664 OVE R2 OTEMP ·AC LTEMp .A8 HTEMP REMAIN MULT2 MULT2 OUeLAO MuLT2 DIG IT OTEMP LTEMP HTEMP DUBLAD REMAIN MUL T10 LAC OAr LAC· DAC LAC. DAC ol", jMS jMS jMS JMS LAC OAC REMAIN REMAIN MULT2 ITRIPLE PRECISION ADDITION OVER2 OVER1 OVER2 ACIL AC1H REMAIN REMAIN DUALAO IINPUT FROM TEXT OR KEYBOARO: INPUT IINPUT A CHARACTER INSUB LAC INeN-zERO rOR KEYSOARD SZA!CLA '" PACE rOCAL 91 604"7~ R R 1~2752 R 624662 R GEN. R 04665 R 04666 04667 R 103322 624662 04670 04671 R R GrN. R JHP CElC JHS JMP. REAOC JHS JMP* .EJECT .+3 UTRA INPUT XI33 INPUT rOCAL PAGE "4672 04673 04674 04675 04676 R 0~0001'! R R R 225522 750100 77776:r. 3 4 0 4 2A "4677 047AA 04701 04702 0471/13 0471114 0471115 047A6 R R R R R R R R R "4?HJ R R R R R R R R R R R R R Hl3362 225522 751UA 125534 750001 36552t 1'1"5521 140132 225521 74010" 61114723 3 4 0214 75010A 61/14727 12553A 000214 750P!01 340132 040132 61/14707 125531 01110214 2"'0167 604720 04125 R 047'26 R Vf41 2 7 1 4 0 1 27 R 104623 21110211 R R 0t'i5573 R 225521 R 045"'36 R 10 4 600 R 604753 R 7441/121/1 R 044344 R 225522 R 74002111 R 0fo5522 R 225523 R 740020 R . 065523 R 200"'37 R 7401/120 R 0401'137 Q 2'14344 R 4451'136 R 6"'4737 R 741200 04730 04731 /14732 14733 14734 1IJ 4 7 3 5 1114736 04n7 "r - - ., R 0.7~7 0'4711 if4712 04713 04714 04715 04716 047t7 0'47'20 047'21 El47:?2 04723 04724 i' j" Q2 1114740 04741 04742 04743 04744 04745 "4746 047047 04751/1 04751 ,,4752 04753 84754 84755 R IrLOAT[NG OUTPUT CONvERSION ROUT[NE' F'LOUTP ~ /NUMAER>~?? LAC· .AR SMA!CLA LA~J IPR[NT DASH OR SPACE 240-255 TAn SMIN PRINTC R GEN. JMS XOUTL E LAC· .Ie ITAKE ABSOLUTE VALUE SPA!CL4 A JMS· E .BA A CLA!CMA ISUBTRACT 1 rROM BINARY EXPONENT TAD. E .AA ICOMPENSATE AT F'G04 E OAC. • .1.1 R OlM 8EXP IINITIALIlE DECIMAL EXPONENT LAC· • AA F'G 0 2 E lIS -4<EXPONENT<-1? SMA A R JI'IP rG03 R TAO TEN A SMA !CLA R JMP F'e04 JMS. • .15 /MULTIPLY E· R TEN CLA!CMA A R BEXP rG03M2 TAO R OAC I3EXP R JMP F'G02 JMS. Fe03 .AT IOIVIOE E R TEN R LAC Cl R JMP re03M2 A E A A R o R,. 11111 rC04- R R R E R R R A R E A E E A E R rc05A A R R R R A rCQ5 ol,.. JMS LAC OAC. LAC· .U OAC OUTOG JMS JMP CLL!RAR DAC LAC. .AB RAR OAC • . AB LAC. .AC RAR OAC • .AC LAC RAR DAC LAC ISl JHP SNA OLGrT ,",ULT2 BurST crLTXR II'IULTIPLY BY TIlO LEn IINIT 8UrrER pOINTER II·E.S~qrT ITEMP COUNT HUL'T 1111 IMULTIPLY BY TEN rG05 TGO /TEMP OVER2 OVER2 Teo OUTDe rG05. ,TEMP ,TEMP COUNT IISF'lRST DIGIT A lERO FOCAL PAGE 93 R 04172 04173 R 61115 111 25 01'-0014 2111477(1) O65521 1111460'" 06011114 465521 6111476 2 20111211 065573 0111477'" 777766 l1il4344 624672 200414 04174 R 103362 04775 04176 04777 050(110 05001 01501112 050(1)3 05004 R R R R R R 200132 74110111 103752 065521 200132 750100 777776 340420 050(1)5 0'5006 0501117 05010 05011 0'5012 05013 0501" 05015 05016 05017 R R R R 914156 0 4, 5 7 R 047t.0 R 04761 R 041f.2 R la'47t13 0416" R ~4765 04766 04167 04170 ~4171 R R R R R R R R R R R R 103362 165522 2255 21 465522 340213 740100 61115"'10 340212 065521 750001 365522 740 2 0'" 105036 225521 10311ill 624672 750"'01 3 40 132 0 4 0 1 32 225522 74121il'" 365")23 7512111111 040132 60476111 R 85031' R 000000 340152 1Il~020 III 021 1115022 05023 05024 05025 ~5026 0'50 2 7 05030 1115031 05032 05033 05~34 1110;035 050 3 6 R R R R R R R R R R R R R R R R R R R A R E R A E R R R R A R FG06 JI'4P OAC· LAC OAC. JMS OAr.. lSi'· JHP LAC OAC. FG07 F"LTXR OCOUNT IYES, IGNORE IMULTIPLICATiONS YIELO MUL TUJ F"LTXR liE • • 672X10=6+.72 •• ETC • AA • AA .-3 BUFST CF"LTXR IALL OIGITS OUTPUT1? INO: CONTINUE IINIT BUFFER POINTER H12=. OCOUNT LAw -OIGITS-l JMS TGn JMP. R FLOUTP R c305 LAC PRINTC JMs XOUTL R GEN· IOUTPUT THE E"XPO"'ENT R BEXP LAC SPA A R TWOS JMS OA('. .U E R LAC BExP SMA!CLA A LAW A 253-255 R TAO SMIN PRINTC JMS R GEN. XOUTL OlM. E .AB LAC· .U E lSi'. .AB E TAD R Ml44 A SMA JMP R .-3 R TAO C144 E DAC • • AA CU!CM. A E TAD· .AB SlA A R JMS OUTOG E LAC. .U R JMS PRNT R JMP. FLOUTP FG07 A CLA!CMA R TAO BEXP R OAC BEXP LAC· .AB E A SNA E TAO. .AC A SNA !CLA R OAe BEXP R JMP FG06 IOUTPUT MANTISSA AND EXPONENT ITAKE ABSOLUTE VALUE OF" EXPONENT IPRINT SIGN ICLEAR COUNT ISAVE TENS AND UNITS IOUTPUT HUNDREDS IUNLESS lERO IPRINT TWO DiGITS IIGNORE FIRST DIGIT ISUBTRACT 1 FROM 10ECIMAL EXPONENT lIS MANTISSA iZERO? IYES:EXP=0 1/111 A R OUTOG III TAD IOUTPUT ONE DIGIT C260 rOCAL PAGE ~511J40 R 0=;0 4 1 R 94 10336? 625""36 R GEN. R PRINTC JMS JMP. .EJECT XOUTL OUTDG FOCAL 0 5 0 42 05043 05044 05045 05046 0'HI47 050511J 05051 05052 1115053 050<;4 05055 05056 05057 £15060 05061 85862 05063 85064 05065 85866 05067 05070 85071 05072 85073 85074 05075 85076 05077 85100 0511111 05102 05 1°3 o0~1\lJ~ UI 051'116 85107 05110 05111 05 112 0 5 113 05114 05115 05116 05117 05120 05121 PAGE Q5 R R 0001110Q1 75020111 1"'4662 54~:14 16 605i1'44 1"'4524 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 2~01l161 342243 75020111 61115:>161 11114662 140131 1"'4<;5111 200131 11113752 040133 2250:;23 74111'111 603442 225523 065522 291011137 065523 200217 0650:;21 125536 440130 12 5534 125525 400072 777473 340""61 75"200 61115 11 5 lrIJl66 2 10 524 2111011137 44013'" 103752 341iH33 0 4 0 1 33 125524 4001117;> 2Q'0133 74120111 625042 750101'1 6P1513P1 IF'LOATING POINT INPUT rLINTP IIF C(AC) = 0. USE CHAR 91 SH!CLA Ilr C(AC) NON-lERO • eET NEXT JMs INPUT IGET rlRST CHARACTER SAD C240 IIGNORE LEAOING SPACES R JMP .-2 R JHS OECONY IREAn rlRST DIGIT GROUP R LA.C CHAR R TAn MPER A SlA!CLA IENOEO BY PERIOD? R JHP rIGOl R JHS INPUT IYES. READ 2AND GROUP R DiM ONUMBR R JMS OECON R ONUMeR LAC INUM8ER OF' DIGITS IN SEXP R JMS TWOS INO R nCOl OAC SEXP E LAC· .AC A SPA IFORMERLY A LAC· .AS SiA SEQUENCE WHICH ALLOWED OVERF'LOW INTO ISIGN BIT ERROR 27 .OEC GEl'''. R GEN. JHP ERR2-27 E LAC • • AC E OAC • • A9 R LAC OYER2 E OAC. .AC R LAC P43 E OAC. .AA E JMS. INORMALIlE FIRST .CO" R [S[GN ISl ISK[P [F' POSITIVE JMS. E .BA JMS. E .AP R PTi+401l100e ISAVE NUMBER A LAw -385 R TAO CHAR A SlA! eLA I-E- READ IN? R JHP INO ENOFIX R JMS INPUT R JMS IYES - CONVERT DECIMAL EXPONENT OEC ONY LAC OYER2 10ECIMAL pOINT IS R R lSi ISIGN R JMS TWOS R SEXP IC(SEXP)PLACES TO RI&HT TAO R SEXP OAC lor LAST DICIT lEND Of fLOATING POINT INPUT ICOMPENSATE fOR nECIMAL EXPONENTS JMS. E ENOFI IRESTORE MANTI 5SA .AO R PTi+401l1000 R tNOn X SEXP LAC ITEST OECIMAL EXPONE~T A SNA R JHP. F'L1NTP A SHA!CLA R JHP FIG04 A A R R F'OCAL PACE 05122 1115123 05124 05125 95126 1115127 0513111 1115 131 05 1 3 2 05133 111'5134 05135 05136 111'5137 R R R R R R R R R R R R R R 96 105141/1 41110214 6 2 01'17? 011101110111 200167 605135 1\11514111 30021 4 62011172 00000111 75011101 340133 040133 605115 R R R A R R R R R A A R R R rIGO" FIC04X JMS F'OIV F'PUT· F'EXT LAC JMp JMS rI NT FMPY TEN F'PUT· F'EXT CLA!CI'1A TAD OAC JMP .EJECT F'INT TEN PH I. IS TO THE LEFT: IT IM[S .1000 C1 F'IG04X I. IS TO THE RIGHT: IMULTIPLY BY 1'" PH SExP SEXP ENDFIX FOCAL PAGE 97 05140 05141 05142 05143 05144 05145 05146 05147 05150 R R R R R R R R R 005140 000000 225140 445140 741200 625140 040134 500221 040136 205140 R A R R A R R R R R 0515~ R 505574 R 1!15152 1!15153 1!15154 05155 05156 1!15157 0'516 0 05161 05162 05163 05164 05165 05166 05167 15170 05171 15 1 72 15173 1115174 .5175 15176 115177 15200 15201 05202 R R 240136 040136 200220 500134 751200 605162 220 136 040136 200136 500221 741200 605201 200136 040135 200207 065573 2 011 2 0 040054 220135 060014 440135 .. 0054 6051H 140036 200134 R R 15~03 15 04 15205 1115206 15207 05210 05211 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 74~010 74 010 500222 340223 045211 200136 000"'00 R R A R R R R R A R R R R R R R R A R R R R R A A R R R R A IBASIC F'LOATING-POINT INTERPRETER. F"lNT=. F'PNT 111 LAC_ F'PNT IGET NEXT INSTRUCTION lSi' F'PNT SNA JMP. F'PNT JUMP DAC AND MASK7 IGET 13 BIT ADDRESS OAC ADDR . LAC F'PNT .IF'DEF' POP15 AND (7"000 IMASK BK + PG BITS .ENOC .IF'UND POP15 AND (6.,,000 IMASK BK BITS .ENOC XOR ADOR OAC ADOR LAC INDRCT IINDIRECT BIT=l? AND JUMP SNA!CLA JMP LOOP01 INO-GO ON LAC· AOOR IYES ,DEF'ER ,WIO AUTO-INDEX OAC AOOR LAC AOOR LOOP01 AND MASK7 SNA JMP F'NULL LAC AODR JUHP2 OAC LAC CEX1 ISAVE F'LOATING ARGUEHENT (F'LTXR DACLAC MF'LT CNTR DAC LACJUHP2 DACFLTXR JUHP2 ISZ ISZ CNTR JMP .-4 FNULL OVER1 OZ'" JUMP LAC IGET COI1I1AND RTL RTL AND C7 IGET BITS '-2, IE OPCOOE TAO TABLE ILOOKUP I N TABLE DAC .+2 LAC AODR XX IGO THERE .EJECT fOCAL PAGE 98 11111 85212 15213 85214 85215 85216 .5217 8522" 85221 85222 115223 05224 115225 85226 ' 15227 .5239 85231 85232 15233 R R R R .5234 15235 .5236 85237 85249 85241 85242 15243 .5244 15245 15246 15247 85250 85251 15252 845214 125525 0'H"000 605141 R 045220 R 125524 R 0f!011!00 R 6"5141 R 045224 R 125527 F'lPT R R 605141 945230 125526 888080 695141 125536 6051 41 E A R R E A R R E A R R E A R E R R R R 8 4 5 3 10 349167 940194 R R R R 225522 749200 605245 165521 165523 685141 758198 605251 125534 750001 045372 205 1 40 E GEN. A R E E R A EX ITrl R E A R R R R R R R R R R R R R R R R R R R R 00"~0111 15 2 53 .5254 85255 15256 85257 85260 .5261 15262 .5263 R 18111155 • 5264 05265 05266 05267 85270 R R 85271 F'lGT F'lSU F'lAD NORF' 11111 EXITr R GEN· R R R A R E R R R R 225522 744202 744000 295372 74061/10 E GEN. A A R A R 693441 R GEN. R R R R R R R 1ST ORE IlOAO ISUBTRACT /ADD XX 115140 6110137 525310 ''''011100 115343 840037 125527 405310 R OAC .+2 JHS •• AP XX JHp F'PNT+1 OAC • +2 JHS •• AO XX JHP F'PNT+1 OAC .+2 J"S • • AR XX J"P F'PNT+1 DAC .+2 JI'IS • • AQ R GEN. J"P F'PNT+1 JMS • • CD JMP F'PNT+1 OAC TAD OAC CETSCN lAC. SlA JMP DlM. .U DlM. .AC JHP SMAlClA JMP J"S. . CUlC"A OAC lAC PUSHA J"S J"S INORMAlllE X.BH C1 BOX IPeWER .AB EXITF'l F'PNT+1 .+3 .BA SAVPOW F'PNT lIS BASE NEGATIVE INO IYES ISAVE SIGN or BASE ISAVE INTERPRETER ENTRY XPUSHA rPNT xv fPUT rGET. X.BH rXIT F'Ix J"S OAC OVER2 JMS. .AR X.I3H+400000 GETSGN lAC • .AB SlAlClL!CHl Cll lAC SAVPOW SNUSlA 28 ERROR .oEC JHP ERR2-28 ISAVE BASE ANO CET POWER IGET INTEGER POWER ISEE IF' INTEGER Il-1 IF' INTEGER POINTER IL=9 IF' NON-INTECER INON-INTEGER POW£lI 0 F' INEG NUMBER FOCAL 8'5272 05273 '5274 05 2 75 05276 05277 0';3"''' 0';301 0'5302 8531113 05304 0'5305 0'53"'6 0'5307 05318 85311 05312 05313 05314 05315 05316 05317 0'5320 05321 05322 053L'3 053 2 " 05325 05326 05327 05330 05331 05332 0'5333 05333 "5334 05335 85336 PACE 99 R 200037 7"010111 60'5302 12 55 24 405310 lL'5534 1<'5525 40531111 2<'IIH04 74 1200 61115331 125524 000 137 125535 00001110 205372 7<40100 605320 2000'137 7"00 2 0 7"1400 1?553" 21il0037 74010111 605333 11/1514111 600 1 37 500167 400137 000000 61115333 125524 000167 R A R E R E E R R A R E R E A R A R R A 220013 0"5 1 4" 125536 605141 A GENR E R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R JI1P EXITFO JMS* .AO X.PH+4"'0000 .BA JI1S· JI1S. .AP X.RH+41l1Q1000 BOX LAC· EX ITFO ICHECK POWER IPOS OR NEG? IPOSI~EG - CHA~GE SIGN IWITH GET.NEGATE,PUT S~A X.BH EXITFP R A R E R OYER2 SI1~ A E R A R R R R R R LAC lERPQW EXnF"X , JMP JMSXY JMSXX LAC SMA JMP LAC RAR SlL JI1SlAC SMA JMP JI1S FPUT rGET FDIV F"XI T JMP JMS_ nTONE POPA LACOAC FPNT JMS- .CD JMP lERPOW .AO IGET BASE .BH SAYPOW IGET SIGN OF BASE EX ITFP OYER2 IPOS BASE IGET POWER IPUT 000 OR EVEN I" LINK .BA OyER2 ICHANGE SIGN IGET POWER EXnFX FPNT XY FLTONE XV INO CHANGE IOIYIDE ANSWER INTO ONE ExITF"x .AO IANY BASE TO lERO POWER lIS ONE PDlXR FPNT+l ////1 05337 0534.0 053<41 05342 053"3 05344 053,,5 . 05346 05347 0'5350 05351 05352 05353 0535" fl5355 R R R R R R R R R R R R R R R ""534 1 125530 000000 611151"1 R E A R 000000 1L'5533 0,,0037 125532 20",q:37 140037 6253"3 0"5361 440136 220136 5 0 5575 A E R E R R R R R R R F"LMV OAt .+2 IHUL TIPLY JMS- .4S XX JMp F"PNT+l I FORM AN INTEGER FROM C(FLAC-FLAC+1) rlX IVIA (INTEGER) 0 JMS- .A)( IrIX OAC OYER2 JMS- .AW IFLOAT LAC OYER2 OlM OyER2 JMP_ FIX FLDV OAe FU'lVX ISl AOOR LAC- AOOR AND (377177 PAGE 11110 F"OCAL 0")356 05357 05360 05361 1115362 R 741?0Q1 R R R 6 0 34411' 125'i31 R 61"5141 01'1 0 il'0i1' A GEN· R GEN· E A F"LDVX R SNA r;:RROR 29 .DE'C JMP ERR2-29 JMS· .AT XX JMP F"PNT+1 .EJECT IDIVISION BY i!ERO IDIVIDE rOCAL PACE 101 053f,3 ~5363 1'15364 R R R InDA T I NG SQUARE ROOT FUNCTt ON XSQRT 225522 70;1100 E GENA CENR GEN_ E R R R GEN_ 05365 05366 -05367 05370 R R R 603437 12552111 605371 0111111"'76 05371 R 602517 R GETSGN LACSPA!CLA E"RROR .orc JI1P JMS_ JI1P FLARG RETURN JMP .AS 30 ER R2-30 DSQRT .+2 EFUN3 I I.OTS ERROR ROUTTNE I 05372 05373 R R 005372 00000111 R A 61113 4 31 GEN. R GEN. SAVPOW=. .ER 'ERROR " .OEC JMP .EJECT 36 ERR2-36 INUI1RER IS NEGATIVE=II1AGINARY ROOTS rOCAl PAGE 1(112 I IUNPACK INyTIALIi'ATION 05 3 7 4 05375 05376 05377 054"'0 R R R R R • I 000(1100 040~41 777777 040042 625374 A R A R R •. GETI Pi oAe LAw OAC JMP. CETP -1 GElcx ,GET I IPOINTER IN AC IINIT POINTER lIN IT COUNTER I IUNPACK 054"'1 05402 05403 05404 11541'15 054"'6 05407 05410 05411 05412 85413 15414 054 1 5 05416 85417 0542O 05421 05422 05423 05424 85425 ~5426 05427 05430 R R R R R ~ R R R R R R ~ R R R R R R R R ~ R R I 000000 A 440042 R 605414 R 220041 · R 440041 R O40"'43 R 220041 R 440041 R 040044 R 777773 A 040042 R 77777VJ A 04004<3 R 200044" R 7401'110 A 440"'45 R 605424 R 500155 R 625401 R 040044 R 200043 R 740"'10 A 0401'143 R 605416 R .GET '1St " Ji"p GET4 GET5 lAC. ISl OAe lAC· rSt oAC LA\; DAC LAW oAG LAC RAL 1St JMP AND JMP· oAC lAC RAL OAt JMP GETCX GEH CETP " GETP GET1 X GETP GETP GET2 -5 GElCX -UI GET3 CET2 GET3 ,+3 P177 .GET GEl2 GET1X IWORo PAIR STARTED INEEO NEXT PA [R IflRST PART IlAST pART IRESET CHAR COUNT ISH IrT LOOP 7 +1/2 TII1ES IDOUeLE AC ROTATE LOOP IKEEP LOOPING IGOT CI4ARACTER IEXIT WITH CHARACTER IN AC G(T1X GET5 I '5 4 31 05432 05433 05434 R R R R 000000 040046 140047 625431 A R R R IPACK INITIALIlATION I ,PUT! 0 PUTP oAC olM PUTC JMP. ,PUTI IPOINTER IN AC I I NIT PO I NT ER IINIT COUNTER I 115 43 5 05436 05437 05440 05441 05442 05443 05444 05445 85446 R R R R R R R R R R 00000'" 500155 04011150 744000 200047 345576 045445 200050 000000 005453 A R R A R IPACK I ,PUT R R R A R PIjT7 0 AND oAC eLL LAC TA[1 OAC lAC xx PUTI ICHARACTER IN AC P177 pUT6 PUTC CJ"'p. PUT7 '+? PUT6 ISAVE C..ARACTER ICHARACJER POSITION IBUILD fllSPATCH IGET CM.tRACTER II10DIrIED JI1P. PUT7 ICHARI FOCAL PACE 103 05447 111545"" 05451 1115452 05453 05454 05455 05456 05457 05460 05461 05462 05463 05464 05465 15466 15467 05470 05 4 71 1115472 15473 85414 85475 05476 05477 05477 05500 055"'1 85502 85503 8 55 0 4 85505 85506 85507 05510 05511 85512 85513 85514 05515 05516 85517 855?0 05521 85522 05523 05524 05525 05526 85527 05530 05531 85532 05533 R R R R R R 01115461 005464 1/11/15477 R 742021/1 742020 16011146 61115504 742 01 H' 142I11H" 605504 1421112111 740"20 500144 260046 060 0 46 4400 4 6 200050 742020 742020 505552 605457 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 0~55~2 7421112"" 742~20 100770 7420110 605504 1401il47 741°1"" 4400 4 7 2t>0046 06011146 200047 14120111 44011146 625435 11JIIl3756 005513 005514 005515 005516 01115517 00552111 01115521 005522 005523 005524 0050:;25 005526 005527 01115'5301 005531 005532 005533 R R R R A A A A R R A A R A A R R R R R A A R R PUTI PUT8 PUT2 PUT3 puT#, R GEN. A R R PUT5 A R PUT9 R R R A R R R E .ETV E .ElV E .ElV E .ETV E .ElV E .ETV E .ETV E .ETV E .ElV E .ETV E .ElV E .ElV E .ETV E .ETV ( .ETV E .ElV E .ElV PUT2 pun PUT4 PUT5 RTR RTR RTR RTR DiM. JMP RTl RTl JMP RTR RAR AND XOR. DAC· lSi lAC RTR RTR AND JHP RTL6 JHS RTl JHP Di!M SKP!RAl lSi! XOR* OAC. lAC SNA ICHAR2 ICHAR3 ICHAR4 ICHAR5 18 RIGHT PUTP PUT9 IClEAR DATA WORD 14 lEF'T PUT9 13 RIGHT - 1ST HALF' P17 PUTP PUTP PUTP PUT6 14 BITS ONLY 1Ft NI SH 1ST WORD OF' PAIR ITO lAST WORD OF' PAIR IGET CHARACTER 14 RIGHT - 2ND HALF' (700000 PUT8 13 BITS ONLY 18 lEFT XRTl6 PUT9 PUTe PUTe PUTP pUTp PUTe lSi! PUTP JHP. .PUT .ENO BEGIN IRE SET 5/7 COUNTER 11 LEFT ITO NEXT CHARACTER IMERGE INTo WORD PAIR 12ND WORD COMPLETE IRETURN _w__,, __ ,.. ~,,_,._ ,.__ .'. PAGE Hl4 F"OCAL 05534 05535 1i15536 05537 055'111 055'1 05542 05543 1i155'4 05545 05546 05547 05551!1 05551 05552 05553 • 5554 05555 85556 05557 '5560 85561 85562 05563 1115564 85565 05566 1115567 05570 85571 05572 05573 85574 1115575 1115576 R R R R R 005534 11105<;35 0(115'>36 005537 01111111111<; 0011111116 ( ( ( ( _(TV .(TV _(TV _£TV _LIT _LIT _LIT .. .... R R 01110777 .. _LIT -L IT R 0001111111 A R 000011 ..A -LI T R 1!I(/I0012 R ~H\0013 R R R R R R R R R R R R R R R R R R R R R R R R 0111157111 601575 77000111 701i1(/100 60011100 1!100351 0011H'I05 0111000f, 1!13111100 1!101000 0111200111 603632 0(110100 1!100103 000102 01110003 11111111111102 003213 077777 00011101 000014 06000111 377777 625446 R R -LI T -LI T -LI T -LIT -LI T ..... _L IT T . -LI _LI T .. _LIT ... -L_LlITT .. _LIT R _LIT R A _L IT .. -L_LITIT .... _LIT .. -LI T R -LI T .. -LI T .. _LIT .. -LIT .. _LIT ..R _LIT _L iT NO ERROR LINES FOCAL AC1H AetL ADD AOOR ALIST ALLC"'l ALlCM2 ANYMAT ARGNXT ARRAYN ARTN ASK ATLIST ATSW AXIN AXOUT RACK REGIN REXP RKI RKO ALKIN RLKOUT ROTTO,", ROX RUHER RUFR RUFST AUFSTX CCR COl CFRS CFRSX CHAR CLISH CNTR COMARY COMBOT COMBUF COMOEC COMEIN COME NO COMLST COM"EN COMMON COMMX COMOUT (':1 C100 r.140 Cl44 C200 C212 C215 C240 PAGE 105 0~034 R 00035 01110<;6 "111136 0"'447 00316 00322 02A45 02411 0A142 04315 01603 00436 0A053 0000 Hl 00014 04435 03756 0A132 "00003 00 III I/HI 5 eA030 00031 000"'0 00H14 004046 00004 00211 00001 . - 000501 00207 00157 0U62 00061 00471 00054 01534 009 10 1Il"007 01570 003756 01575 00225 00121A 01513 01524 004066 000H7 00150 00175 00212 00154 00477 80501 00416 R R R R R R R R R R R R R A ·R R R R A A R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R FOCAL PACE Hl6 FoCAL PACE 107 C242 r.25111 e'17 ee151 R FNUM R [PAR R f"PAR2 R FRASE R FRC R fRL R fRROR R [RRPCX R FRR2 R [RR2CT R f"RR2T R [RYX R FR2T R [SCA R £T[RM R [T[RMN R £T[RMl E [TERM2 R FYAL f [XIH R rx I TFP R [XITFC R OITFX R [X lTf"iI R rXTR R [Xl R FAOD E FCONT R rcos R FCOUNT R FOIV R FEND2 & rEN03 R FETVAR r rEXP R FEXT R FCET R FC02 R F'G03 R rC03"2 R rC04 E rG05 E FC05A R FC06 R FC07 R FlCOl R FlC04 R rlC04X R FILEXT R FILE01 R FILE02 R FILE03 FINCR R FINCRX R f'lNDLN 02417 02376 02417 02633 02657 02650 "ACRO 03475 "03475 00106 e377 00450 00424 00427 00422 00432 000420 001"i2 00433 00435 0U45 00414 00163 0111164 8A475 1U1500 r.251 C252 C254 C2'i5 C260 C273 C275 C277 CJCII5 C396 C314 11375 f!7 n~HN DeONT DCOS DCOUNT DE8CSIoi OECON Dt:CON V DECP O~CR nnnr OEXP nGRP O(;RPl Ole; Dlen OIGITS DICPS DLOC DMPSW DNUHBR 00 nolC OONE DSAV[ nSIN o$Oln OTST Dueuo (rap [FUN rrUN3 ELP.AR ENDCR [NOr I (NOrI X ENOLN [NO"AT rNDT /' 8(11222 '5~t3 0lfl 4 2 05514 04770 00067 04550 US2" 80055 0 44 53 112558 05515 IH003 01812 1111465 110127 000011 04476 05516 0A070 00131 10776 . 12566 1:?6A5 1'556 05517 15520 04565 04641 000053 02431 02517 0:?475 00020 115113 05115 "ACRO 12860 e011l02 R R R R R R R R R 0~512 R 02672 0011'15 03621'1 02335 1112332 "?306 02342 02272 05234 05320 85302 , 0,5333 05245 03011 111"033 · 100000 01453 04334 00124 40A000 02721 02722 02110 04272 0e001i1A 50011100 1114707 04723 84720 04727 04753 04737 04760 05025 05061 05130 05135 00161 004140 004173 004125 01433 01437 "ACRO R R R R R R R R R R R R R R R A R R R A R R R R A A R R FI R R R R R R R R R R R R R R 1~8 FOCAL PACE FINON FINFIN FINT Frsw FIX FLACl FLAC2 FLAC3 FLAO FLARC FLARCP FLARC2 FlOY FLOVX nCT nl"IT FLlNTP rllS T1 HIS T2 rLMY FLOC FLOP FLOP X FLOUTP nPT FLSU nTONE FLTXR A?700 015A7 005140 00040 05343 11102360 002420 002427 05226 00076 0111160 00lAl 05352 05361 05216 1!11447 05042 00466 0A463 05337 04321 02362 84502 04672 05212 05222 001£>7 000014 00171 300000 300000 700000 000376 00351 0521i11 e0177 01407 15140 "IU501 o era 0 0 0 14416 001460 60""00 III III 113 00005 04340 20011100 00137 02455 00140 03515 0<'473 02463 1Il0141 1Il00000 HHER rHPY F'HUL rNOR FNTAB[ rNTABF FNULL rOCAL9 FOR F'PNT F'POPJ F'POW F'PRNT FPUSHJ FPUT FRST rRSTCY FSIN rSUB F'UNAME F'UNCHK FUNCTR FUN ERR F'UNrNO FUNLOP rUNPTR F'~JT R R R R R R R R R R R R R R R R R R R R R R R R R R R A R A A A R R R R R R R A R R A R R R A R R R R R R R A FOCAL PACE 109 CENDX C(TARC GETC CETCX CElL"" CElP GETSCN CETVAP CETVAR GETVAX GETVCT CEll '£f1 X .. CET2 CET3 CET4 GET5 GEXIT GF"IOl GINe GLIST GONE GOTO GRPTST CSl GSU GS2 CS3 GS4 GTEM HSPX HTEMP IBAR IBARX IF IFl IF'3 IGNOR I LIST' IMAC . IMAGER IMAGEW tMBF01 IHRF'02 tMRUFF I"BUFP IN TNAF01 INAUF (NBUF'P TNORCT TNPUT INPUTX INSUB IRETN 1113036 1112135 MACRO IU'"42 MACRO 0111041 MACRO 02116 1112141 111213111 00021 1113026 IiUIIII43 11111111144 00045 05414 05416 00755 02221 00156 00454 00612 01176 01343 02161 02160 1112174 1112163 02171 1110016 1114155 11100034 00575 0111571 01356 1141115 11375 00602 00460 03306 03307 03273 003300 003312 03123 1IJ0011 1114445 003331 031?] 00012 0022111 04662 00640 00025 00607 FOCAL PACE 110 ISICN IT ABLE JUMP R JUMP2 LASTCV R LASn"l LASTOP R LASTV R LBCLOS R LBFILE R LBIENO R ' lBIN R L91NLP R LBINllll R l81N02 R LBIN03 R LBINIA R lBKllL R LBOUT R LBOUH R lBOU Tl R lBOUT2 R l80U T3 R LBOUT4 R LBTEXT R UH£XX R lBWRIT R L1BCHO R LlBRAR R LI8RSW R llNENO R L1STeO R L IST3 R UST6 R LITX R LOOP01 R lPOPJ R LPROCS R lPRTST P, lTfMP R MASK7 R "0 R MF'LT R MINUSA R MODerl R HODBr2 R MOOBUF R HOD I F'Y R MORMAT R MOVCOH R HOVUPX R "PER R MUL H0 R MULT2 R .M1 1110130 004"'4 00134 00135 0000"'3 09066 09052 00006 1114177 1114234 1114260 04105 04143 1114114 04136 04266 114123 "4205 04157 84214 1114165 04171 1114202 04210 04224 042<>7 1114220 1110332 04067 111111032 0011162 00510 80051"1 111111414 01573 05162 011300 IH'l Ul 37 02536 000035 80221 14505 1111120 0B4565 000134 000135 00017 1111705 1112050 01146 01163 02243 04600 "4623 1110614 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R FOCAl PACE 111 MIP0 M11 M12 M137 M14111 M1'44 M2 NACSW NORF' NOTMAT ONE OP OPNEXT OPTABL OPTABS OTAF'01 OTBUFP OTE:HP aUlA QUTBUF OUToe OVERl OVER2 PACBUF' PAC8XT PACKC PACKST PC 00153 1112537 004770 00165 00176 18111213 81367 001116'" 05232 02077 81034 l1li107 0231H 1110224 00376 003414 111011113 000036 04460 03211 111511136 00036 0011137 03562 03611 HACRO 11111111171 00063 1111067 83632 03623 01210 01110013 1111113 1111132 11415 100124 MACRO MACRO MACRO MACRO 03101 MACRO IUI121114 "1203 00072 MACRO MACRO MACRO 111111047 PC~K PCKTB PCKl PCt POLXR P02 P03 PER PLCE POPA POPF' POPJ PRINTC PRNT PRNTLN PROC PROCES PH PUSHA PUSHF' PUSHJ PUTc PUTCNT PUTP PUTl PUT2 PUT3 000t13 0011146 05453 "5461 15464 FOCAL R R R q R R R R R R R R R R R R R R R R R R R R R R R R R R R , R R R R R R R R R R R R R R PUT4 PUTS PU T6 PUT7 PUT8 PUT9 P13 P17 , Pl77 P2 P3 P337 P40 P43 P7600 RANPT RCALlll "CALIII2 RCAL03 ROEOM READC RECOVR R[CVR R[HA I.N "ET RETURN R[TURX RUl RN02 ROT RTL6 A6 SACH SHEOT SAVPOW SeAR SCHAR SCONT SCONTX SCOUNT SCRUB SET SETRCL SETWCL SEX SEXC SEXP SF'OUNO SICH2 SHIH SORTR SORTC SORTCN SORTJ 50RTJX PACE 112 05477 055"'2 00050 05446 05457 05504 IUl143 1110144 .' , 1110155 11111147 l1li146 00166 0111174 0111217 013047 00112 03327 1113333 03310 1114152 HACRO 03521 . , 003527 00126 044('12 HACRO 02262 04413 0111210 03652 MACRO 1114372 0007'5 111111022 01115372 01744 1111731 11724 01726 011123 0211103 01111407 03553 03544 02035 01337 00133 017'50 0111122 00420 02013 MACRO 00051 MACRO MACRO R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R rOCAl PAGE 113 SPNOR SRETN SRNlST START STARTR STARTC STAiHl STARTQ STARTV STARH SURS TARLE TASK TASK4 TCRU' TCRlr2 TOUMP TOUMPC TDUHPX ·TEMPI( TEMPO TEN TERMS TESTA TESTC TESTN TEXTP TGO TGRP2 THISlN THISOP TJNTR TLIST TLISTX TQUOT TRl TSTGRP TSTlPR TTl TTIN no nOUT TWOS TYPE TYPE2 T1 T2 UTE UTO UTRA UTRAX UTX UTXP6 VAL . ' WAll MACRO 01762 0051'13 00512 0054':i 00541 00531 110543 10003 00547 082233 00223 01606 016'57 01655 1U661 03657 03725 03716 0""24 00125 00214 008416 08736 MACRO MACRO 000014 04344 81047 00064 00065 IU670 80455 8A456 O1645 03602 MACRO MACRO 0811776 00026 080175 00027 83752 81604 01636 88073 88074 8270;4 02763 02752 83007 03014 83024 883322 1U266 R R R R R R R rOCAl PAGE 114 WCAl01 WCAl02 WCAl03 WCAU'I4 WORDS WRITE WRtTED WTESTG 03412 03422 03276 03523 000003 O1234 01276 . 01271 R 01255 01273 "2514 000'57 '''HH5 03051 02675 00664 02506 033?2 03345 113362 03404 83377 003412 03426 02265 03065 01055 01100 03734 000011 00770 001''''12 02644 02510 1'1321 1121140 02233 85363 01301 02242 01317 01316 000000 04500 00111137 83111 05310 000015 00011'16 020711' 11'5331 11'22('11' 85521 05522 15523 R R R R R R R R . WTrST2 WX lUBS XCTJN XCTX R XENDlN R XFlNO XGETlN R R XINT R XI33 XI33NX R R XOUTl R XDUTll R XOUTlO R XOUTlX XOUTLi! XPOPJ R !CPRNT R XPUSHA R XPUSHJ XRAN R R XRT R XRTl6 lCRT2 R R XSBECN XSCN R XSORTC R XSORTX XSPNOR A XSORT XTESTC R A XTESTN XffSTX R R X13 xx R XXX R R R XY XYZ X.RH X15 X16 YESMAT i!FRPOW nESTN R R R R R R R R .U . "'''~ ·r ) R R R A R R R rOCAl PAGE 115 .AO .AP .AO .AR .AS 05524 05525 85526 85527 85530 85531 115532 85533 85534 .5535 15536 85372 115401 85374 115537 15435 85431 MACRO 000100 .AT .AW .AX .BA .BH .CO R .ER R • GET .GfTl .NEWF" .PUT .PUTI .RlXIT .SCOM R R R R R R R R R R R R R R R R R A R A R R R R R R R R R R A R R R R A A R R R E E E F: E E E E E E E E E F: R R R E R R A , FOCAL [NOLN ERROR F'INOLN GElC GElLN GElSGN 'ACKC POPA POPF' POPJ PRINTC PRNTLN PUSHA PUSHF' PUSHJ IItEADC RtTURN RtL6 SORTC SORTJ SORTJX SPNOR TESTC T[STN TSTGRP TST(PR .RLXIT AOTTOM rEXT F'POW FXtT xx AursTX '· [NOT BKI LASTCv STARTY WORDS lurR AKO F'RSTCV USTY COMBur AXIN COHBOT OICITS IMBUF'P XRT tNBUF'P XRT2 OTBUF'P PDLXR AXOUT FLTXR . ·~TEKTP r' PACE 116 FOCAL PAGE 117 MACRO MACRO MACRO MACRO MACRO MACRO MACRO MACRO MACRO MACRO "ACRO MACRO "ACRO MACRO MACRO "ACRO "ACRO "ACRO "ACRO "ACRO MACRO HACRO MACRO "ACRO MACRO MACRO "ACRO 00000 090900 890000 - 800009 118009 11i1801 1811192 801003 800003 88"03 1..,083 11804 110805· .0805 . • 1006 .0 lUI 7 lCCTX X15 eTfM X16 MOO8Ur (NOCR GETVCT SAVEDT PUTCNT TEMPI( INSUR TT IN TTOUT RLKIN RLKOUT , LlBRSW EXl AC1H HTEHP AC1L LTEHP OTEHP OVF.'R1 OVER2 F'lSW GElP CETcX GET1 X GEl2 GEl3 PUTP PUTC PUT6 SORTCH LASTOP ATSW [F'OP CNTR OECP ADO XCTIN NAGSW CHAR LtNENO PC THISLN THtSOP LASTLN OE8GSW OMPSW PACKST P11 11 T2 SACH IH!lI!I15 00011115 111011116 000016 """"10 111010 0"0011 11011 •• eeu 80012 0.0012 80813 "0"813 11814 8.11814 811'14 R A A A A R R A R R A R A R R R A R A R A R A R A R A R 0~11I17 0011120 00021 00022 001111'3 1110024 00025 0011126 000:?7 1110030 IU'031 00032 00033 0111034 000034 "0035 000035 000036 01!1036 O0037 00"40 00041 00042 00043 00044 00045 0(IJ046 00047 8111050 90051 0080;2 0e053 0"8053 00054 00055 0",,0;6 0"'057 0111060 "0061 00062 00063 00064 00065 00066 00067 00070 00071 00072 ""073 08074 00075 R A R A R R R R R R R R R R R R R R R R R R R R R R R FOCAL PAGE 11 8 FLARG .SCO'" rLARG2 ROX F:R2T 00076 000Hl0 00Hll 001~4 001~5 r.~R2CT 0~H'l6 OP RANPT F'RST SIGN2 SCDUNT tCOUN" 00H17 00112 00113 0111122 00123 0011'4 000124 0011'5 0Pl126 ~LCE TEMP. ~E"'AIN fif(;it iSICN tiJllUHRR RtxP stxp JUMP MOO-e rl JUMP2 ~OO8r2 'DOR rUN.HE XY F'UNCTR R F"UNPTR R ARRAYN R Pt3 R P17 R C277 R · P3 R P2 R tu" R ·r.71 R C268 R Hl"0 R e2A0 R P.177 R tlNC R crRS R F"lARGP R riLEXT R tF'RSX R C306 r,31. R R M137 R P3j7 R Cl R F"lTONE R F'LTlER R "48 R \::140 R I .. "iiii7 I1Hlfi30 ~~i3i 00i32 fJIlii33 llillii34 01110134 00135 000135 ellli36 80137 000137 0111140 00141 Qi0142 00143 110144 81'1145 80146 0"147 00150 00151 0111152 01111 5 3 00154 IUl155 iil0156 90157 00160 00161 00162 00163 01'1164 00165 00166 00"167 00H>7 00171 "0174 1iJ0175 R FOCAl' PACE 119 "'140 111111176 iH'll77 00207 ""210 0111211 00212 00213 111"214 00217 00220 01112?1 00222 00223 00224 09225 00316 00322 00332 003'51 O00376 00376 0111404 00414 1110415 1110416 O00416 000420 0041'0 00422 00424 004('7 00432 00433 90435 00436 80447 00450 "" 4 5 4 00455 00456 0046O 00463 0"466 00471 00474 00475 00477 0051110 00051'11 005"'1 000501 (lJ0503 00510 0111512 00531 • rOCAL9 R COl R RN02 R BUrST R r,144 R Ml44 R TEN R P43 R INORCT R MASK7 R . C7 R TA8LE R OPTABL R CO"'LST R ALLCMl R ALLCM2 R LI8CMO R 'rNTABF R F'tH ABE R OPTABS R ITABLE R C3"5 R PER R C240 R TERMS R C255 R SHIN R C252 R C250 R C2'51 R C254 R C273 R C275 . R ATLIST R ALiST R C242 R GLiST R rLiST R TLlSTX R tLIST R rLtST2 R F'l r S11 R CLlSTX R LlST6 R C375 R C212 R r,317 R r,CR R r,215 R usn R SRNLST R USTGO R START R STARTL R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R ~ R R R R R R R R R R .R R R R R FOCAL PAGE 120 ShRTC STARTQ STARTS STARTi! IBARX TBAR TCNOR IRETN GONE I'll INPUTX XCfTLN 00541 00543 0054'; 00547 90571 00575 00602 00607 90612 0111614 00640 00664 0111n6 087"i5 'JIll 770 008775 8e 77 6 o lUI 776 01003 01012 1iU034 8"1037 81042 lat947 81955 910(,7 e1100 01113 81120 01132 11114"6 01163 81176 01203 991204 001210 81210 81234 01255 01266 01271 01273 01276 001300 TESTA GEXIT ~ XRTL6 TTO 00 TTl nCRP nCRP1 ONE LPROCS nCONT TCAP2 XPUSHA PC~K XPUSHJ P02 HF'LT P03 MOYCOM MOYUPX GOTO PROCES PAoe COMMEN PCl WRITE WTF.ST2 WALL WTESTG Ill( WRIlED LPOPJ XTESTC XT3 XTESTX XSORTC S[XC GRPTST P7600 IF 142 tr3 It l ' fo:~ FOCAL R R R R R R R R R R R R R R R A R , R R R R R R R R R R R R R R R R R R R R R R R R R R 013~l R 81316 81317 01321 01337 01343 01347 1i11356 81367 1i11375 1i11405 R R R R R R R R R R F'OR SET FINCR FINCRX F'lIMIl FCONT F'PUSHJ F'POPJ FINF'IN COMMON COMMX COMARY COHDEC lUX COMEND ASK TYPE TASK TYPE2 TQUOT TCRlF' , TASK4 TCRlF'2 TINTR ' MODIFY SCONT SCONTX SCHAR S8AR srOUND SRETN SCRUB SORTB SEX XSORTX ANYMAT "ORMAT ENDHAT YESMAT .NOT"AT F'ETVAR GnYAP GnVAX GETARG G[TVAR CSU GS1 GS3 GS4 GS2 GFND1 SU~S X. SPNOR XTESTN MPER .'. PACE 121 FOCAL PAGE 122 111407 001407 111433 01437 01447 81453 88141'>0 001501 81507. 111513 01524 81534 81570 01573 81575 81603 91604 9161116 81636 81645 "1655 01657 81661 01670 01705 nrSTN RETURX XPOPJ F.YAl OPNEXT • flERMl F'TERMN rTFRH ,;. rTERH.2 F'lACl F'LOP F.PAR lRGNXT [NUM F'lAC2 FLAC3 EFUN fUNCHK F'UNlOP FUNF'ND flPAR fPAR2 X[NT X5GN XA8S F.FUN3 LPRTST 1112260 022('2 92265 02272 92301 02306 02332 92335 02342 092360 02362 02376 02411 02417 082420 082427 12431 12455 02463 02473 02475 112477 112506 82519 82514 82517 02536 02537 025';0 112566 0261115 92633 92644 026511l 82657 82672 82675 8270111 · 82721 02722 112752 82754 112763 8311107 11311111 111311114 11I31i124 03826 03836 1113051 113065 03101 1i13111 83123 03127 91124 01726 01731 91744 91750 81762 02903 02013 02035 92040 82045 02050 02 111 6 III 1i12070 0211177 82110 82116 1i12130 1112135 02141 82160 0216 1 92163 1i12171 02174 1112221 01112233 92233 82242 1112243 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R 1411 DELETE nOK DONE FRASE XSREGN ERL FRG R F.RYX R xrIND R F'INDN R FEND2 R r[ND3 R UTRA R R R R R R R R R R R R R R un: UTQ UTRAX EXTR UTX UTXP6 CETl GENOX lIENOLN lIPRNT PRNT xu IMBurr JnuF' I R R R R R R R R FOCAL PAGE 123 OUTBur IMAGEW WCAl03 IMRF0! 113211 R 11~273 R R R R R R R R R R R R R R R R R R R R R R R nuc IMACER RCAl83 IM8F'ez VAL XI33 ACAl01 INBF01 AClUI2 X[33"'X XOUTL XOUTLQ XOUTLJ WCAl01 XOUTLX R R R R R R R R R R R R OT~F01 R WCALIII2 R , XOUTll R EARPClt R ERR2 R F:RR2T R F'UNERR R RECOYR R WCAUI4 R RECVR R S[TWCl R S[TRCl R PAC8UF R TRI R PACBXT R ESCA R PCKl R PCKT8 R ROT R TDUMP R TOUMPX R TDUHPC R XRAN R TWOS R REGIN R COM[[N R RUFFER R r.OMOUT R lIBRlR R LBIN R lBIN01 R lBTN1A R F'[ LE03 R LB[N02 R F'llE01 R lBINlP 03276 083300 83306 03307 03310 083312 111113322 113322 03327 093331 03333 03345 03362 83377 83404 83412 083412 883414 83422 83426 834 75 883475 03512 83515 03521 03523 083527 83544 03553 83562 83602 03611 83620 03623 1136.3 2 13652, 113657 83716 83725 83734 83752 83756 003756 1i184046 084066 841i167 84105 04114 1114123 0041~5 04136 1i104140 1114143 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R FOCAL PACE 123 OUT8ur IHACEII WCAL03 IHAr0l flUC IHACER RCAL03 IH8F'''2 VAL XI33 RCAlI!! IN8F0t ACAl02 X133"X XOUTl XOUTlQ XOUTlI WCAl01 XOUTlX 13211 OT~r01 WCAU'I2 . XOUTll ERRPCX FAR2 r.RR2T F'UNERR RECOVR WCAU'14 RECVR SETWCl SETRCL PACBUF TRl PAC8XT (SCA PCKl PCKTB ROT TOUHP TOUMPlC TDUMPC XRAN TWOS REelN COMEIN RUFFER COHOUT LIIJRAR lBIN LBINfII1 lBI N14 rlLE03 LBIN02 rILE"1 LBINLP 9~273 03276 01113300 03306 83307 13310 0"3312 083322 13322 1113327 013331 13333 13345 13362 13377 03404 13412 013412 0"3414 "3422 13426 "34 75 003475 03512 13515 13521 03523 01113527 03544 03553 1113562 "3602 "3611 13620 13623 1113632 1113652, "3657 13716 13725 83n4 1113752 03756 0"3756 01114"46 "04066 "4"67 04105 04114 0U23 0041::>5 IiH136 0"414' 04143 R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R R FOCAL PACE 124 ROEOM HSPX Ll30UT lBOUTl, lBOUT2 F'llE02 lBCLOS t80UTl LAKllL lBOUT4' lBOUTi! lBWRI1' LBTEW lBTEXX .L8F' I lE '.l.i81£NO .L81N03 14152 14155 1410;7 04165 04171 014173 04177 04202 flJ4205 04210 04214 04220 14224 14227 '4234 ,1",2M' ' "4266 14272 14315 "4321 "4334 ."340 14344 :.8.4372 ,.4402 04413 04416 04435 1114445 1114453 94460 "4465 14476 "4500 0451112 14505 1<4524 8455" 1114556 1114565 ·01114565 84600 14623 1114641 "4662 14672 11147"7 14720 14723 "4727 1114737 14753 14760 14770 .89477111 ;J"£xp ARTN 'FL.OG 'reos 'F'S I N TGO R6 !tET RET 1 rPRNT BACK IN DECR · OU,TA DIG DIGP5 XXX F'LOPX NO D£CONV DECOf( ,nSAVE ,-., nT'ST 'MINUSA 'MUl H8 NUL T2 ' DtJelAD ,INPUT J"LOUTP Fe02 ,TG03M2 rG03 TG04 'rG05A <F',COo; f:'C06 DCOUNT ,"12 / R R R R R R R R R R R R R R R R R R R R R R R R R R FOCAL PACE 125 FC07 OUTOC rLINTP FIGOl (NOrl FNDFIX FIG04 F'IG04X rlNT rPNT lOOP01 FNUll F'LPT rLeT 15825 111511136 95842 95961 85113 85115 85131 85135 885140 1115140 05162 05201 15212 15216 15222 15226 15232 85234 05245 15302 15311 85320 1115331 "5333 15337 853<43 15352 05361 15363 1"5372 05372 15374 "5401 ,"5414 . i5416 1115431 85435 15446 1115453 85457 85461 1115464 85477 15502 05504 05513 85514 15515 8'5516 05517 85520 1115521 1115522 15523 15524 n-su rLAO ,.ORF [XITF FXUFl F'XITFO X.8H EXITFP lERPOW nuFX F'lMV rIX R FlDV R F'lOVX R . XSORT R SAVPOW R .E~ R R .,c tt r R R R CET4 eET5 .PUlI .PUT PUT7 PUTl PUTa PUT2 PUT3 PUT4 PUT5 PUT9 OATAN DCOS nEXP nLOC nSIN nSORT R .Ai R R R R R R R R R R R R R R R .GET ' R .AB R .AC R .AO R R R R R R R R R R R FOCAL PACE 126 .AP .AO .AR .AS R R R FMOL '01'1 "5525 95526 95527 85530 "'5531 15532 8'5533 1115534 15535 85536 1115537 101000 21111000 318'00 381100 411100 R 'PUT', rHOR 611000 7i1,,1"'0 R R R R R R R R R R R R R R R R R R R If 'R R R R R R R R R R E E E f F f r r E f .~T .AW .AX .BA .BH .CD .NEMF rADO rSU8 FHpy 'GET ~'''00' E F f F E' E' E r f E E A A A A A A A A
Home
Privacy and Data
Site structure and layout ©2025 Majenko Technologies
