Skip to main content

Full text of "ibm :: 1620 :: programs :: 1620-CN-06X AD-APT Numerical Control Processor :: 1620-1311 AD-APT Numerical Control Processor Listings"

See other formats


OR. JOHN MANIOTES 
COMPUTER TECHNOLOGY DEPT. 
PURDUE UNIVERSITY 
CALUMET CAMPUS 
HAMMOND. IN 46323 



- 1 i.J. G. - 
NOV 2 o 1066 




IBM 1620/1311 AD-APT NUMERICAL CONTROL PROCESSOR 

LISTINGS 



1620-CN-06X 




DR. JOHN MANIOTES 



40 Saw Mill River Road 
Hawthorne, New York 10532 
WHite Plains 9-1900 (Code 914) 



International Business Machines Corporation 



SEPTEMBER, 1965 



ADDRESS CHANGE ; 

ANY DISCREPANCY BETWEEN MATERIAL RECEIVED AND THE 
MATERIAL ORDERED SHOULD BE FORWARDED TO THE PROGRAM 
INFORMATION DEPARTMENT, NOW LOCATED AT 40 SAW MILL RIVER 
ROAD, HAWTHORNE, NEW YORK - 10532 



PROGRAM INFORMATION DEPARTMENT 



0~ 



IBM 1620/1311 AD -APT NUMERICAL CONTROL PROCESSOR 
1620-CN-06X 

LISTINGS 



PROGRAM 

AD -APT -INTRAN 

ALPHA 

WASH 

DICT 1 

DICT 2 

DICT 3 

ALSCAN 

POSIMP 

CALC 

TYPERR 

SIMPLE 

COMPUT 

POSTPA 

OUTPUT 

FINDZ 

ZSURF 

MACRO 

CALL 

REP LAC 

FILE 1 

FILE 2 

FILE 3 

FILE 4 

ITDUMP 

IT LOAD 

POINT 

RTHETA 

RING 

CIRCON 

LINC 

LINE 

LMOD2 

LMOD3 

FM105 

FM2665 

UNEQL 

EQUAL 

CIRCLE 

FM21 

FMTANT 

FM2459 

FM2603 

FM617 

FM153 

PLANE 
PLFM21 

VECTOR 



TABLE OF CONTENTS 

PAGE 
1 

12 

14 

15 

17 

19 

20 

22 

23 

25 

26 

30 

33 

37 

39 

39 

40 

42 

43 

44 

47 

48 

50 

51 

52 

53 

55 

55 

57 

58 

59 

61 

63 

64 

66 

68 

69 

71 

73 

75 

77 

78 

80 

81 

82 

84 

85 



PROGRAM 



PAGE 



FM25 


86 


MATRIX 


87 


TABCYL 


89 


LTPTAB 


94 


G CONIC 


96 


ELLIPS 


97 


POCKET 


98 


LN/ CON 


99 


LPT CON 


100 


LTNPRC 


102 


PTSLCT 


103 


MOVDAT 


104 


CANOUT 


105 


LIS TAD 


109 


SQRTFA 


114 


SINFA 


116 


ATANFA 


117 


EXP FA 


118 


LOGFA 


120 


LINLIN 


121 


CINCIR 


122 


CIRCIR 


124 


DYDX 


126 


LINCON 


127 


DISTF 


129 


UNITV 


130 


LCNON1 


130 


SELECT 


131 


NORMLN 


132 


NORMCR 


133 


NORMCN 


134 


LNCUBE 


136 


FISH 


139 


LNSTRT 


140 


CRSTRT 


141 


TANF 


143 


SPSIS 


143 


STACK 


144 


STOL 


144 


ERPROC 


145 


FSPKG 


146 


SCUT 


151 


SFROM 


152 


SINDRP 


153 


SINDRV 


154 


SGDLTA 


155 


SGOTO/ 


156 


SGO/ 


157 



♦ # 

II 



PROGRAM 



PAGE 



STPOT 


158 


START 


158 


DSCOUT 


159 

x -/ 7 


ARELEM 


160 


LINDS 


174 


CIRDS 


176 


CONDS 


178 


TABDS 


183 


SOFFST 


188 


SENSE 


193 


LINCS 


194 


CIRCS 


197 


CONCS 


203 


TABCS 


204 


PTBUFR 


204 


LROFFS 


208 


FBOFFS 


209 


DTDS 


210 


STRACT 


210 


LINLOC 

X_JX X >l XJ V«/ Va# 


211 


PNTLOC 


212 


LINTAB 

X-JX A ~ X Xt- XJf 


213 


TRSTRT 

X XJ <J X Xv X 


218 


ENDPNT 


220 


PA RAM 


221 


CHORD L 


223 


XYFORM 


224 


PNTREF 


225 


ELIMF 


226 


AEDUMP 


227 


A E LOAD 


229 


TANCON 


230 


CNSTRT 


232 


Z COORD 


238 


ACI253 


239 


ACI255 


240 


ACI217 


244 


LCNON2 


247 



1 1 1 



9RCYL3 00519 
9CCYL2 0211% 
ZSURFX 02901 
TSAVEl 024)6 
T0ATA8 09392 
TDATA3 03350 
STRIPE 06528 
SIMPLE 02416 
RETAOD 10974 
POSTPR 02416 
NOWRIT 07890 
NBLANK 07747 
MAPENT 13120 
LOLOAD 12598 
ITDUMP 02416 
INDATl 07395 
NILOAD 11316 
ERR OUT 02416 
E NO TAB 12110 
0IM504 08840 
CLSTOP 08072 
CHKMOO 08120 
ARGOSA 07753 
ADO IT 10526 
AIR EC 07569 
CAPAC 09292 
CHKO 08576 
CORO 10923 
DEX 07883 
ERR 07682 
FILE2 02416 
FORM 07712 
HISEQ 07636 
IND 07707 
LEFT 10420 
MCT 07876 
NEXT 08816 
NORM 09200 
NRT 03345 
NUMB 09448 
PSHO 10112 
RNO 03341 
SAVE3 08071 
SEQNO 07656 
SET41 08620 
START 07904 
SYMB2 04301 
SYMB7 04335 
TSTNO 06484 
XCALLE 11028 
XDIMNO 10978 
XEROIM U690 
XHI 00434 
XL00E1 11256 
XNNE 00008 
XPROGX 12974 
XSTOIM 11172 



9RCYL2 00517 
9CCYLI 02113 
ZSURFD 02531 
TEMALS 07696 
T0ATA7 03382 
T0ATA2 03348 
STRAOO 12050 
S£ TSU6 09664 
REPLAC 02416 
P0S1MP 02416 
NNEOVF 12226 
MONITR 10980 
MACSUB 05188 
LCTAPE 07706 
INTRUP 07904 
INCR14 10780 
GOALPH 08656 
ERROIM 03090 
0SA506 02476 
0IM503 08780 
CLENT1 13030 
CHKOOL 09684 
At TEMP 07726 
A 00 2 08224 
ALSEQ 07567 
CHECK 08696 
CL16 08632 
COSFN 02436 
OICT 02416 
ETC 08072 
FILE4 02416 
FOUND 07628 
HUB 08680 
INI r 07976 
LOAOX 07940 
MLBR 08804 
NFLW 03329 
N02 08059 
NSEC 03927 
PIN 07391 
PUNC 09620 
RTYPE 07595 
SCAN 08852 
SETFL 08284 
SFIMP 08996 
STOP 07713 
SYMB3 04303 
TOATA 03333 
TVPe 10890 
XCNTR 11001 
XONSC 00201 
XERENT 12798 
XIOENT 10968 
XLOPRM 12457 
XNOFIT 12894 
XRANGE 11468 
XTEMP 11769 



SYMBOL ¥ ABLf 

9RCYLI 00515 
9CCYL0 02111 
TVPERR 02416 
TOATU 03422 
T0ATA6 03372 
TOATAt 03336 
STNTAV 11524 
SEESAV 09564 
PSHOMN 10040 
POINTR 11046 
NNECON 00140 
MEMORY 20000 
MACSAV 07721 
LAMLOP 12656 
INSRT1 09516 
INCORE 12862 
FLZERO 07680 
ERASE 1 11444 
0SA502 02466 
0IM502 10340 
CLEAR2 12830 
CALLNE 11850 
ALSERR 10940 
A0D20 08108 
BEGIN 08204 
CHK 07691 
CODE 07715 
CT 07748 
0IG1 07684 
EXIT 00796 
FLAGC 10822 
FSTMD 07734 
IAT1 07731 
INIT2 10268 
LOGFN 02451 
NAT! 07661 
NJUMP 07607 
N03 07898 
NSRF 03351 
PLACE 07743 
READ 08120 
SAVE 05187 
SCOSA 07763 
SETM 08192 
SFLAG 07769 
STORE 09008 
SYMB4 04305 
TOEX 07386 
WASH 02416 
XCOMP 11492 
XENTRY 02136 
XEXIT 12414 
XINOEX 12190 
XNE 00030 
XNUOIM 11100 
XRESET 11376 
XVARB 11308 



9RCYL0 00513 
Z SURF 2 02521 
TSTUFF 07881 
T0AT10 03412 
T0ATA5 03362 
T ABOUT 07770 
SftTVPE 07597 
SEEMAC 08976 
PROCES 10224 
OUTPUT 02416 
NEQUAL 07733 
MEMGAP 13082 
MACPIK 07719 
IWTEMP 07704 
1NFILE 09984 
ILNEXT 07698 
FINISH 09820 
ENTRY2 02421 
0SA501 02466 
0IM501 10870 
CLEARl 12914 
BACKIN 09428 
ALSCAN 02416 
A003 08212 
CALC 02416 
CHKO 08156 
COMMA 09752 
CTFLG 08588 
0IG2 07686 
EXPFN 02446 
FLCON 07617 
FULL 10180 
IAT2 07627 
INRED 09199 
LPAR 10277 
NAT2 07666 
NO 02461 
N04 07901 
NSRT 03349 
PRIME 08132 
RECNO 07640 
SAVE1 08011 
SOSA 10816 
SETZ 08376 
SINFN 02431 
SVMB 08932 
SYMB5 04315 
TERM 07744 
WORD I 06091 
XCOSN 11670 
XERAS 10979 
XEXTNT 12634 
XINMAP 12422 
XNECON 00141 
XNUENT 11160 
XSCAN 11040 
XWRERR 12262 



9CCYL3 02117 
ZSURFY 02511 
TSTPUT 08108 
T0ATA9 03402 
TDATA4 03352 
SUBT12 09360 
SQRTFN 02426 
RETURN 12282 
PRETEM 07732 
NSTFLG 07746 
NCORES 11364 
MAXMAJ 07689 
LOMHIP 12718 
IWPREV 07699 
1N0AT4 07409 
IFJUMP 07745 
FILFLG 07714 
ENTRY1 02416 
DIM506 10846 
DELOIM 00000 
CHKSAV 08688 
ATANFN 02441 
AOCT 08600 
ALPHA 02416 
CALLX 09892 
CHK IF 09268 
C0MP1 10468 
C22 10304 
ENOL 07381 
FILE 02416 
FL2Z 07670 
GPPR 09956 
INCR 10822 
KEYER 08352 
MCOUT 07717 
NEST 02532 
NOGET 07893 
NPW 07622 
NT 07874 
PRTNO 09492 
RGTPR 10548 
SAVE2 08047 
SEP 1065? 
SET22 09224 
SSNO 03337 
SYMB1 04289 
SVMB6 04325 
TNEST 07738 
ZEROK 07648 
XCSELF 12762 
XERASE 11758 
XFIT 12530 
XLO 12389 
XNEOVF 13062 
XOVOFF 11572 
XSETPT 11420 



01010* 


IBM 1620*1311 AO-APT 


INTRAN MA 


INLINE PROGRAM 






01020« 


THIS PROGRAM CONTROLS 


CALLING 


ALL INTRAN SUBPROGRAMS 




01030* 














01040* 














01050* 














01060* 


MAINLINE COMMON AREA 










01070 




OSA 


MONITR , RE TURN 




02406 
02411 


00005 
00005 


J0980 
J2282 


01080 


ENTRY1 


OS 


5 




02416 


00005 




01090 


ENTRY2 


OS 


5 




02421 


00005 




01100 


SQRTFN 


OS 


5 




02426 


00005 




Oil 10 


SINFN 


OS 


5 




02431 


00005 




01120 


COSFN 


OS 


5 




02436 


00005 




01130 


ATANFN 


OS 


5 




02441 


00005 




01140 


EXPFN 


OS 


5 




02446 


00005 




01150 


LOGFN 


OS 


5 




02451 


00005 




01160 


ALPHA 


OS 


,2416 




02416 


00000 




01170 


POSTPR 


OS 


• 2416 




02416 


00000 




01180 


MASH 


OS 


,2416 




02416 


00000 




01190 


ALSCAN 


OS 


• 2416 




02416 


00000 




01200 


FILE 


OS 


• 2416 




02416 


00000 




02010 


REPLAC 


OS 


• 2416 




02416 


00000 




02020 


OUTPUT 


OS 


• 2416 




02416 


00000 




02030 


POSIMP 


OS 


• 2416 




02416 


00000 




02040 


TYPERR 


OS 


• 2416 




02416 


00000 




02050 


OICT 


OS 


• 2416 




02416 


00000 




02060 


CALC 


OS 


• 2416 




02416 


00000 




02070 


SIMPLE 


OS 


• 2416 




02416 


00000 




02080 


ITDUMP 


OS 


• 2416 




02416 


00000 




02090 


FILE2 


OS 


• 2416 




02416 


00000 




02100 


FILE4 


OS 


• 2416 




02416 


00000 




02110 


TSAVEl 


OS 


5 




02456 


00005 




02120 


NO 


oc 


5*0 




02461 


00005 


J0268 


02130 


0SA501 


OSA 


INIT2 




02466 


00005 


02140 




DSC 


5.03071 




02467 


00005 


J0870 


02150 


0SA506 


OSA 


0IM506*24 




02476 


00005 


02160 




osc 


5.03101 




02477 


00005 


J0360 


02170 


0SA502 


OSA 


01*502*20 




02466 


00005 


02180 




osc 


5.03081 




02487 


00005 




02190 


EXIT 


OS 


•00796 




00796 


00000 




02200* 


ZSURF PLANE COEFFICIENTS 








03010 


ZSURFX 


OS 


10 




02501 


00010 




03020 


ZSURFY 


OS 


10 




02511 


00010 




03030 


ZSURFZ 


OS 


10 




02521 


00010 




03040 


ZSURFO 


OS 


10 




02531 


00010 




03050* 


NCST TABLE 




02532 


00001 




03060 


NEST 


OS 


1 






03070 


OS 


800 




03332 


00600 




03080* 


TOATA TABLE 






00001 




03090 


TOATA 


OS 


1 




03333 




03100 


T0ATA1 


OS 


3 




03336 


00003 




03110 


T0ATA2 


OS 


12 




03346 


00012 




03120 


T0ATA3 


OS 


2 




03350 


00002 




03130 


T0ATA4 


OS 


2 




03352 


00002 




03140 


T0ATA5 


OS 


10 




03362 


00010 




03fS0 


T0ATA6 


OS 


10 




03372 


00010 




03160 


TOATAT 


OS 


to 




03382 


00010 




03170 


T0ATA6 


OS 


10 




03392 


00010 




03160 


T0ATA9 


OS 


10 




01402 


00010 





page 3 



03190 tOATlO 0$ 


to 


03412 


00010 


03300 TQAT1I 


OS 


10 


03422 


00010 


0*010 ^ 


OS 


863 


04285 


00863 


040 20* > 


OUTPUT FORMAT-™— USING TOATA TABLE AS TEMPORARY STORAGE 


04030 NSEC 


OS 


,T0ATA~6« 


NUMBER Of ADDITIONAL SECTORS TO READ 








0332? 


00000 


04040 NPLW 


OS 


«TD*TA-4» 


NUMBER OP PLOAT ING POINT WOROS 








03329 


00000 


04050 SSNO 


OS 




SOURCE STATEMENT NUMBER 








03337 


00000 


04060 RNO 


OS 


•TOATA* 8/ 


INTERNAL RECORD NUMBER 










03341 


00000 


04070 NRT 


OS 


tTOATA*U, 


MAJOR RECORD TYPE 03345 


00000 


04080 NSRT 


OS 


»T0ATAH6, 


SUBRECORD TYPE 03349 


00000 


04090 NSRP 


OS 


♦TOATA+18, 


SURFACE TYPE 03351 


00000 


04100* SYM6 




tO COLLECT CANONICAL PORN TO STORE 




04UO 


OS 


I 


04286 


0000 1 


04120 SYMBl 


OS 


3 


04289 


00003 


04130 SYMB2 


OS 


12 


04301 


00012 


04140 SYMB3 


OS 


2 


04303 


00002 


04150 SVMB4 


OS 


2 


04305 


00002 


04160 SYHBS 


OS 


10 


04315 


00010 


04170 SYMB6 


OS 


10 


04325 


000 10 


04100 SVM87 


OS 


10 


04335 


00010 


04190 


OS 


851 


05186 


00851 


04200* 


MAC SUB TABLE — 


'USEO TO STORE VALUES POR A MACRO 




05010 SAVE 


OS 


I 


05187 


00001 


05020 MACSUB 


OS 


1 


05188 


00001 


05030* 


LEVEL I 






05040 


OS 


300 


05488 


00300 


05050* 


LEVEL 2 






05060 


OS 


300 


05788 


00100 


050 70* 


LEVEL 3 






05080 


OS 


301 


06089 


00301 


05090* 


MORDL TABLE USEO TO STORE ELEMENTS OP INPUT STATEMENT 


05100 WOROL 


DAS 


1 


06091 


00002 


051 10 


OC 


50.0 


06141 


00050 


05120 


DC 


50*0 


06191 


00050 


05130 


OC 


50,0 


06241 


00050 


05140 


OC 


50,0 


06291 


00050 


05150 


OC 


50,0 


06341 


00050 


05160 


OC 


50,0 


06391 


00050 


05170 


OC 


50,0 


06441 


00050 


05180 


OC 


50,0 


06491 


00050 


05190 


OC 


50,0 


06541 


00050 


05200 


OC 


50,0 


^06591 


00050 


06010 


OC 


50,0 


06641 


00050 


06020 


OC 


50,0 - 


06691 


00050 


06030 


OC 


50,0 


06741 


00050 


06040 


OC 


50,0 


06791 


00050 


06050 


OC 


50,0 


06841 


00050 


06060 


OC 


50,0 


06891 


00050 


06070 


OC 


50,0 


06941 


00050 


06080 


DC 


50,0 


06991 


00050 


06090 


DC 


50,0 


07041 


00050 


06100 


OC 


50,0 


07091 


00050 


06110 


OC 


50,0 


07141 


00050 


06120 


OC 


50*0 


07191 


00050 


06130 


OC 


50,0 


07241 


00050 


06140 


DC 


50,0 


07291 


00050 



f»AC,e 4 



06150 




OC 


50,0 














07341 


00050 


06160 




OC 


40,0 














07381 


00040 


06170 


ENOL 


OS 


f • 














07381 


00000 


06180 


TOEX 


OC 


5,0 














07386 


00005 


06190 


PIN 


OC 


5,0 














07391 


00005 


06200* 


MACRO STATEMENT 


INPUT 


AREA 










07010 


INOATt 


OC 


4,144 














07395 


00004 


07020 




OC 


12,999999999999 










07407 


00012 


70 30* 


CARD OR TYPEWRI 


TER 


INPUT 


AREA 








07040 


I NOAM 


DAS 


72 














07409 


0014* 


07050 


ALSEQ 


OS 


16 














07567 


00016 


07060 


ALREC 


OAC 


1,» 














07569 


00002 


070 70 




OC 


l,» 














07570 


00001 


07080 




OS 


23 














07593 


00023 


07090* 


RECORO ANO SUBRECORD TYPE 




TEMPORARY 


STORAGE 




07100 


SRTYPE 


OS 


4 














07597 


00004 


07110 


RTVPE 


DS 


.SRTVPE-2 














07595 


00000 


07120* 


STORAGE POR IF 


OR 


JUMPTO 


STATEMENT NUMBER 






07130 




DC 


8, I 0000000 














07605 


00008 


07140 


NJUMP 


OC 


2,1 














07607 


00002 


07150 




DC 


8,0 














07615 


00008 


07160 


PLCON 


OC 


2,-99 














07617 


00002 


07170* 


TEMPORARY STORAGE 


POR 


NUMBER 


OF PARAMETER WORDS 




07180 


NPM 


DS 


5 














07622 


00005 


07190 


IAT2 


OS 


5 














07627 


00005 


07200 


POUNO 


DS 


1 














07628 


0000 1 


08010 


HISEQ 


DC 


8,0 














07636 


00008 


08020 


RECNO 


OS 


4 














07640 


00004 


08030 


ZEROK 


DC 


8,0 














07648 


00008 


08040* 


TEMPORARY STORAGE 


POR 


SOURCE 


SEQUENCE 


NUMBER 






06050 


SEQNO 


DS * 


B 














07656 


00008 


08060 


NAT 1 


DS 


5 














07661 


00005 


08070 


NAT2 


OS 


5 














07666 


00005 


08080 




OC 


2*0 














07668 


00002 


08090 


PL22 


DC 


2.0 














0T670 


00002 


08100 




OC 


6,0 














07678 


00008 


081 10 


PLZERO 


DC 


2.-99 














07680 


00002 


08120 


ERR 


DC 


2,0 














07682 


00002 


08130 


DIG1 


OC 


2,0 














07684 


00002 


08140 


0IG2 


OC 


2,1 














076B6 


00002 


08150 


MAXMAJ 


DC 


3,124 














07689 


00003 


08160 


CHK 


OS 


2 














07691 


00002 


08170 


TEMALS 


OS 


5 














07696 


00005 


08180 


ILNEXT 


OS 


2 














07698 


00002 


08190 


1MPREV 


OS 


I 














07699 


0000 1 


08200 


1MTEMP 


OS 


5 














07704 


00005 


09010 


I NO 


OS 


3 














07707 


00003 


09020 


LCTAPE 


OS 


1 














07708 


00001 


09030 


PORM 


OS 


4 














07712 


00004 


09040 


STOP 


OS 


1 














07713 


00001 


09050 


PILPLC 


OS 


I 














07714 


00001 


09060 


CODE 


OS 


1 














07715 


00001 


090 70 


MCOUT 


OS 


2 














07717 


00002 


09080 


MACPIK 


OS 


2 














07719 


00002 


09090 


MACSAV 


OS 


2 














07721 


00002 


09100 


ALIEMP 


OS 


S 














07726 


00005 


09110 


IATI 


OS 


» 














07731 


00005 


09120 


PRE TEN 


OS 


1 














07732 


00001 


09130 


N EQUAL 


OS 


1 














07733 


00001 


09140 


PS TWO 


OS 


I 














07734 


00001 



091 $0 


TNESf 


0$ 


4 




077 38 


00004 




091 60 


place 


OS 


$ 




077*3 


00009 




09170 


TSAN 


OS 


I 




07744 


00001 




091 80 


IF JUMP 


01 


'. & 




07749 


0000 1 


09190 


WSIFI© 


OS 


' I 




07746 


0000 1 


09100 


NBLANX 


OS 


1. 




07747 


00001 




10010 


£7 


OS 


I 




07748 


00001 




10020 


AAGDSA 


OSA 


NATl,MAT2 




07793 
07758 


00005 -7661 
00005 -7666 


100 30 


SCOSA 


OSA 


INST 




07763 


00005 -7976 


10040 




osc 


9# 0)10t 




07764 


00005 




10090 


SPLA6 


OS 


1 




07769 


0000 1 




10040 


TABOUT 


OS 


1 




07770 


00001 




10070 




OS 


99 




07869 


00099 




100(0 




OCM 






07870 


00001 




10090 


NT 


OS 


4 




07874 


00004 




10100 


NCt 


OS 


2 




07876 


00002 




101 10 




01 


9 




07881 


00001 




101 20 


Of X 


oc 


2»0 




07883 


00002 




101 30 




oc 


4»0 




07687 


00004 




10140 


NOW* if 


oc 


3,0 




07090 


00003 




10190 


NOGET 


OS 


3 




07093 


00003 




10160 


N03 


oc 


9,0 




07090 


00009 




10170 


N04 


oc 


3,0 




07901 


00003 




10180 




682 






07902 


42 00000 


00000 


10190* 


INITIALIZE TO START 


RUN 








10200 


START 


TFN 


R£CN0,i6« 


1 N I T 1 At. 1 1 E 


RECORO COUNT 

07904 


16 07640 


0-000 


11010 




TFN 


IN0,,9, 


INITIAL I IE 


ERROR INDICATOR 
07910 


16 07707 


00-00 


11020 




TM 


TSTUFF,TAB0UT*|3 


it INITIALIZE 


IWOIX TABLE 

07926 


16 07881 


-7783 


11030 




CF 


SFLAG 




07940 


33 07769 


00000 


11040 




CF 


LC TAPE 




07952 


33 07706 


coooo 


11090 




TFL 


2SURFX.FL2ERO 




07964 


06 02901 


07680 


11060 




TFL 


ISURFV.FLIERO 




07976 


06 02911 


07680 


11070 




TFL 


*SURFZ,PL£ERO 




07986 


06 02921 


07680 


11080 




TFL 


2SURFO.FL2ERO 




08000 


06 02931 


07680 


11090 




CF 


CT 




00012 


33 07748 


COOOO 


11100 




SF 


FILFLC 




00024 


32 07714 


00000 


11110 




TF 


SEQNO.ZEAOK,, 


INITIALIZE 


SEQUENCE NUMBER 
00036 


26 07696 


07648 


11120 




TFN 


HACPI*ni0» 


INITIAL HE 


CALL MACRO COUNTER 














00040 


16 07719 


000-0 


11130 




TFN 


NACSAV.,10. 


INITIALIZE 


SAVE MACRO COUNTER 














00060 


16 07721 


000-0 


11140 




CF 


IFJUNP 




00072 


33 07749 


00000 


11190 




TON 


OtO 




00004 


19 00000 


00000 


11160 




TFN 


AL TEMP, 1 1 71 1 




00096 


16 07726 


-OOOJ 


11170 


A0020 


AM 


ALTfMP 9 20000 




00100 


11 07726 


KOOOO 


mao 


CMKMQD 


TH 


ALT£MP t ALREC— I ,6 




08120 


31 07720 


07566 


11190 




BNR 


AD020#0 




08132 


45 08106 


00000 


11200 




BV 


•♦12 




08144 


46 08196 


01400 


12010 




AM 


AL TEMP, 1,10 




08196 


11 07726 


000-1 


12020 




BNV 


SETN 




06160 


47 08192 


01400 


12030 




TFN 


ALTEHP, 99996 




08180 


16 07726 


R9998 


12040 


SETH 


NOP 






08192 


41 00000 


00000 


12090 


BEGIN 


TRA 






08204 
08216 
08223 


10 00969 
49 00716 
00002 2K 


-8223 
00000 



12060 
12070 

12080 INTRUP 

12090 

12100 

12110 LOAD! 

12120 

12130 

12140 IfllT 

12150 

12160* 

12170 

12160 

12190 SAVE1 
12200 

13010 

13020* 

13030 

13040 

13050 SAVE2 
13060 
13070* 
13080 N02 
13090 

13100 

13110 SAVE) 
13120* 

13130 CLSTOP 
13140* 
13150 
13160 

13170 TSTPUT 
I 31 80 READ 

13190 PRIME 

13200* 

14010 

14020 CHKO 

14030 

14040 

14090 

14060 

14070 A003 
14060 A 002 
14090* 
14100 
14110 
, 14120 
1*1 10 

14140 
14190* 



TCO START 

OORG START 

6TM HONITR ( 03230 

B IT DUMP,.* 

TF . XALQi ALTEHP 

BTN MONITR, 03010 

BTM MONITR.03020 

BTN MON I TR t03060 

BC4 INTRUP 

TFL SATYPE.FL2Z 

NSTFLG IS FLAGGED FOR THE FIRST NEST 
SF NSTFLG 
OORG *-4 



08229 0O0O9 -8231 

08230 00001 • 
06231 00006 U9763 
00237 00003 -03 
08240 00006 -0000* 
07904 

07904 

07904 17 10980 -3230 
07916 49 02410 00000 
07928 26 12369 07726 
07940 17 10980 -3010 
07992 17 10980 -3020 
07964 17 10980 -3060 
07976 46 07904 00400 
07988 06 07997 07670 



TFN STORE ♦6.W0R0L,, 

A FLAG AT FSTWO INDICATES THE FIRST UORO OF 
SF FSTMD 
OORG *-4 
OC 5,0 
SF PRE TEN 

PRE TEN IS USEO IN DETERMINING THE NATURE OF 
DC 9t0»* 
SF lMPREVtvf 



08000 32 07746 00000 

08007 

OC StO 08011 OOOOS 

TFN THE ST,,, INITIALIZE POINTER IN TOATA TABLE 

08012 16 07738 -0000 
NITIAL UE AOORESS TO STORE A WORD 

08024 16 09014 -6091 
A STATEMENT 
08036 32 07734 00000 
08043 

08047 00005 

08048 32 07732 00000 
A ♦ OR - SIGN 

0B059 00009 
INPREV IS USED TO DETECT A SUBSCRIPT 

08060 32 07699 00000 
OORG *-4 08067 
OC 5,0 08071 00009 

FLAG AT STOP INOICATfS THE ENO OF THE STATEMENT 
CF STOP 06072 33 07713 00000 

IF KACPIK IS SET GET MACRO FROM FILE 
CM MACP1K 9V I0 08084 14 07719 000-0 

BNf INF I LE 08096 47 09984 01200 

t KEVER 0810S 49 08392 00000 

RACO IN0AT4,,, READ STATEMENT INTO INPUT AREA 

OB 120 37 07409 00300 

8 NCI SETFL 

COMMENCE SCAN FOR FIRST OIGIT IN STATEMENT 
TFN CHK0*lli!N0AT4*l9t 
BO A0O2t99*9 
SN CH«0*lltlftO 
BO A003fCHKD*tWll 
SN CMU»ll»!tlO 
AT CM*© - 
AN €*®$0*ltt!*IO 
AM CK*D*lli2.10 

SET RECORD MARR AFTER LAST CHARACTER FOR TVPfOUT 
TON CHRIKtltt* 0B2IA 1» OBlAP 00000 

DC 00247 00001 

fICrv 0B24B 14 00000 00102 

MATY INOAT4 v ,i TVPi STATfNENT OR) TfPf KRITfR 

0B240 SO 07409 00100 

TOM CHRO*ll»t*t CLEAR OUT RECORO MARR 08272 It OBlAP 00000 

SET FLAGS IN EVERY QTttffR 000 POSITION IN INPUT AREA 



06132 47 08284 00100 

08144 16 08167 -7**7 
08196 43 08224 09999 
081*6 12 081*7 000-1 
08180 4) 08212 OBlAP 
06192 12 08167 000-1 
OB 204 49 08194 00000 
08212 11 08167 000-1 
08224 11 OB 16 7 000-2 



141 Aft 4SffCt 


irn at if I * lit 1NDAT4- 1 


08284 


16 


08302 


•7408 




SF 9999 


08296 


32 


09999 


00000 


141 SO 
* 


CM ' SETFL*|6« IN0AT4*|49 


08308 


14 


OR 30 2 


-7592 


1*1 90* 


BRANCH TO START PROGRAM 






I 4200 


BE TSTNO 


08 320 


46 


08484 


01200 


1 50 1 


•M at TrL + IB««t lv 


08332 


11 


08302 


000-2 




SETPl* 12 


08344 


49 


06296 


00000 




*—3 


08352 








150*0* 


^1 tit tut luanf aajt a 

(•LcAR lift I NfUi AMI A TO IEROS 












rail «st»*a iunAti.1 


08392 


16 


08982 


-7407 




*M alflvAtVllw 


08364 


11 


06382 


000-8 


1 ju r u at 1 f 


IP ?999,ftRuK 


08376 


26 


09999 


07646 


19080 


CM SETZ**t IN0«T*4|9B 


08 388 


14 


06362 


-7967 


15090 


•Nf KEVERH2 


08400 


4f 


06364 


01200 


191 00 


8NC2 MAO 


08412 


4? 


08120 


00200 


19110 


ACT* 


68424 


34 


00000 


00102 


19170 


MTV IN0AY4, , • AC AO STATf MINT FROM 


TYPEWRITER 








08436 


37 


07409 


00100 


191 30 


8C4 KEVEA 


08448 


46 


08352 


00400 


151*0 


AM SEQN0,1,I0, INCREMENT SEQUENCE NUMBER 












06460 


tl 


07696 


000- 1 


151 50 


B PHI ME 


08472 


49 


06132 


00000 


1 * I » C fun 
I?16Q fa fly 


BC2 CL16 


08484 


46 


06632 


00200 


151 70* 


FLAG AT CT INDICATES NO ORIGINAL STATEMENT 


NUMBERS 








15180 


8NF STRIPE.CT 


08496 


44 


06528 


07746 




KEEP INTERNAL SEQUENCE NUMBER 










15200 


AM SEQN0,1,I0 


08506 


11 


07696 


000-1 


i Aft In 


8 CL16 


08520 


49 


06632 


00000 


• 


DORS *-3 


06528 








1 60 30* 


COMPARE CARO SEQUENCE NUMBER 










16040 aiKIPc 


TNS AlSEQtHlSEQ 


08528 


72 


07567 


07636 


16050 


C HI SEQt SEQNO 


08540 


24 


07636 


07656 


16060 


BL TYPE.,, CARO OUT OF SEQUENCE 


08552 


47 


10890 


01300 


16070 


TF SEONO.HISEQ 


06564 


26 


07656 


07636 


16080 CHKO 


BO SET4t,ALSE0-l 


08576 


43 


06620 


07566 


16090 CTFLG 


SF CT,,» INDICATE NO ORIGINAL 


STATEMENT 


NO. 








08586 


32 


07748 


COOOO 


16100 AOCT 


AM SEQNO* 1 » 10 


06600 


11 


07656 


000-1 


161 10 


B CL16 


06612 


49 


06632 


00000 


16120 


OORG *-3 


06620 








161 30* 


THERE ARE STATEMENT NUMBERS —-00 NOT MARE 


PREVIOUS CHECK 




161*0 SET41 


TFM CHK0*1.*9,10 


08620 


16 


06577 


000M9 


16150 CL16 


CM MAC$AV,,10, IS A MACRO BEING SAVEO 












08632 


14 


07721 


OCO-0 


16160 


BNE CHKSAV 


06644 


47 


08686 


01200 


161 70* 


LOAD AND CALL ALPHA SUBPROGRAM 










16180 GOALPH 


8TM MONITR»03010 


' 08656 


17 


10960 


-3010 


16190 


BTM ALPHA f '.610 


06666 


17 


02410 


000-0 


16200* 


ALPHA CHECKS FOR SPECIAL WORDS ANO SETS THIS BRANCH 






17010 HUB 


87 9999 


08680 


49 


09999 


00000 


17020 CHKSAV 


NOP 


06686 


41 


00000 


00000 


17030* 


CALL ANO LOAO FILE* SUBPROGRAM 








17040* 


STORE A MACAO STATEMENT 










17050 


BTM MONtTA, 03200 


06 700 


17 


10980 


-3200 


1 7060 


BTM F!LE2,INDATI,67 


06712 


17 


02410 


-7399 


17070* 


CALL ANO LOAO ALPHA SUBPROGRAM TO CHECK FOR 


TERMAC 








17060 


BTM MONITR. 03010 


08724 


17 


10960 


-3010 


17090 


BTM ALPHA, ,610 


08736 


17 


02410 


000-0 


17100 


BNF IN|T,TERM,9 IF NO TERMAC SAVE NEXT STATEMENT 








06746 


44 


07976 


07744 



17110* 
17120 
17130 
17140* 

17190 0IM503 
17140 

17170 ML6R 
17160 NEXT 
17190 

17200* 

16010 0IM504 
16020 SCAN 
16030 

16040 

18050 

16060* 

16070 CHECK 

16060 

18090 

16100* 

16110 SYMB 

18120 

16130 

16140 

18190 SEEM AC 
16140 

16170 

16160* 

18190 SFIMP 

16200 STONf 

19010 

19020 

19090 

19040 

19090* 

19060 

19070 

19080 

19040 



TURN OFF MACRO SNITCH 



MACRO ALL SAVED- 
TFM MACSAV.,10 
B7 INI T 

CALL ANO LOAO MASH SUBPROGRAM 
BTM MONITR.03020 
BTM «ASH,!NOAT4,A7 
8 9999 

TFM ALTEMP.22,610 
TFM SCAN*ll,IN0AT4 vt 



06760 16 07721 
08772 44 07976 



06760 17 10960 
06792 17 02410 
08804 49 09999 
06816 16 07720 
INITIAL I2E ADDRESS OF SCAN 

08828 16 06863 
CALL ANO LOAO At SCAN SUBPROGRAM TO COMMENCE SCAN 
BTM KOMI T A, 03040 06840 17 10980 

BTM ALSCAN, 9999,67 06652 17 02410 

CM ERR, ,10, MAS AN ERROR OETECTEO IN ALSCAN 

08664 14 07682 

BE CHECK 
•7 ALSERR 

DETERMINE NATURE OF MOftO COLLECTED 
CM CMK.2.10. 
BE NUMB 
BH PUNC 

ELEMENT MAS A SYMBOL 
NOP 
NOP 
NOP 

B7 SEEMAC 
CP IMPREV 
B STORE,,, 



06876 46 06696 
0688B 49 10940 

06896 14 07491 
06906 46 0944B 
06920 46 09620 

08932 41 00000 
06944 41 00000 
06956 41 00000 
0896B 49 0B976 
08976 39 07699 



BRANCH TO STORE THE ELEMENT 

06966 49 09008 



OORG *-3 

STORE THE ELEMENT COLLECTED IN ALSCAN 



06996 



SF 
TF 
IF 
AM 
TF 
TON 



IMPREV 
9994.CHK,,, 
IWTtMP,STORE*« 
STORE*** tit 10 
STORE**,PLACE t*ll» 
S70AE*3*,2 



STORE THE HORO TYPE 



06996 32 07*99 
09006 26 09999 
09020 26 07704 
09032 11 09014 
STONE THE HORO ITSELF 09044 26 090 IN 
09054 19 09044 



IF FIRST HORO 00 NOT CHECK FOR STATEMENT NUMBER 



19100 
19110 



19120 
19190 



BMP 

T'N 

CF 
CM 

•HE 
TPN 



191 40* 
19190 
191*0 
191 TO 

19160 INAEO 
19190 NORM tNP CAPAC.STOP.. 



09068 44 09200 
. 09060 1* 091*9 
09092 99 07734 
CHECK FOR RIGHT PAREN AS SECOND CHAR 
09104 14 07*96 
0911* 4T 042*6 
REINITIALIIE SCAN PON PARENTHESIS 

09126 I* 09199 
CHECK PON If ON JOHN SWITCH 

09140 ** 09200 
STONE THE STATEMENT NUMBER 

0*192 0* 0T*1T 

CMCCK PON IP ON JtfPJPtO STATEMENT NUMBER 



NOAM.PSTMO 
INREOttfONOL 
FSTWO 

lLMC*r,4,10, 

cm if 

INREB,MO«OL*26,. 



MNP NORM, IF JUMP,, 
TFL FLCON, STORE ♦*•! It 



FSUN FLCON.NJUMP 
•Nf IMIT 
CP IP JUMP 



19200 

20010 SET22 
20020 



tTORf#*»a«to 

STORf»* t 22«*10 
ST0*§»*»12*10 



091*4 02 07*17 
09 IT* 4T 0T9T* 
09168 11 07745 
091*4) 00000 
CHECK PON 0NO OP HONO LIST 

09200 44 09292 
09212 II 0901* 
09224 1* 090 1M 
0921* II 0901* 



ooo-o 

00000 

-3020 
-7409 
00000 
000*? 

-7409 

-10*0 
-9999 

000-0 
01200 
00000 

000-2 
01200 
01100 

00000 

ooooo 

00000 

ooooo * 
ooooo 

ooooo 



ooooo 

07*91 
09014 
000J2 
0TT4L 
00002 

0TT9* 
-*091 

OOOOO 

C00-4 
01200 

-*I19 

07T*f 

090 IN 

07407 
01200 
OOOOO 



0TTI1 
000-2 
00OK2 
000J2 



200 30 


ton 


ST0RE*6,,6 




15 


0901M 


nnnnrt 

VUOOO 


20040 


DC 


!,»,* 


09259 


00001 






BRANCH TO PROCESS THE 










20060 


8 


PROCES 


09260 


49 


10224 


nnnnn 


20070 


DQRC 


•-3 


09268 








cuUBv vWRIr 


BNF 


NORM i IF JUMP 


09268 


44 


09200 


07745 




® 


INIT 


09280 


49 


07976 


UUUUQ 


culUv l*Hir«»» 


AM 


STORE*6,14,SO 


09292 


It 


09014 


000 J4 


201 10 


CM 


ST0RE+6,ENDL« • 


CHECK FOB WORDL TABLE OVERFLOW 












09304 


14 


09014 


•7381 


201 20 


8NH 


SUB T 1 2 


09316 


47 


09360 


01 too 


201 30* 


CALL AN0 L0A0 TVPERR 


TO TYPE ERROR MESSAGE 








20140 


BTM 


MON1TR 9 03090 


09328 


17 


10960 


-3090 


20150 


BTM 


TYPERR, 105,67 


09340 


17 


02410 


-0105 


20160 


6 


INIT 


09352 


49 


07976 


00000 


201 70 


DORG 


•-3 


09360 








201 80 SU8T12 


$M 


ST0RE«6,12,10 


09360 


12 


09014 


000J2 


20190 


CM 


CHK.2, 10, 


CHECK TO SEE IF A NUMBER WAS STORED 










09372 


14 


07691 


000-2 


20200 


06 


BACK IN 


09384 


46 


09428 


01200 


21010 


AM 


PLACE ,2, 10 


09396 


It 


07743 


000-2 


21020 


TF 


SCAN* 11, PL ACE 


09408 


26 


08863 


07743 


21030 


87 


OIM504 t(t 


BRANCH TO CONTINUE SCAN 














09420 


49 


08840 


nnnnn 


2 1040* 


I MI TI At 1 Z€ SCAN SINCE 


NUMBER HAS BEEN STOREO 








Z1U30 BftfcKIN 


TF 


SCAN*ll,TEMAlS 


09426 


26 


08863 


07696 


2 1060 


87 


DIM504,,, 


BRANCH TO CONTINUE SCAN 














09440 


49 


08840 


00000 




TFM 


PLACE, 98,, 


STORE THE FLOAfEO NUMBER IN 


WORDL 










09448 


16 


07743 


-0098 


2 1080 


TOM 


ST0REO6 


09460 


15 


09044 


OCOOO 


2 1090 


AM 


TCMALS.2,10 


09472 


11 


07696 


000-2 


21100 


8 


SF1WP, ,, 


BRANCH TO STORE THE NUMBER 














09484 


49 


06996 


nnnnn 


21110 


DORG 


•-3 


09492 








21120* 


SET PART NUMBER PARAMETERS 








21130 PRTNO 


TFM 


NSRT, 1045,8 


09492 


16 


03349 


0J045 


2 1 1 40 


B 


INSRT1*12 


09504 


49 


09528 


00000 


21150* 


SET INSERT PARAMETERS 










21160 INSRTl 


TFM 


NSRT, 1046,8 


09516 


16 


03349 


0J046 


21170 


TFM 


NSRF,,10 


09528 


16 


03351 


000-0 


21180 


TFM 


NPH, 144,8 


09540 


16 


07622 


0— 144 


21190 


TFM 


NR T , 2 » 8 


09552 


16 


03345 


0-002 


21200 SEESAV 


CM 


MACSAV,,10, 


IS A MACRO BEING SAVED 














09564 


14 


07721 


COO-0 


22010 


BNE 


INFILE 


09576 


47 


09984 


01 200 


22020* 


CALL AND LOAO OUTPUT 


TO OUTPUT A RECORD 








22030 


BTM 


MONITR.O3130 


09586 


17 


10980 


-31 30 


22040 


BTM 


OUTPUT, INDAT4-1 ,67 


09600 


17 


02410 


-7408 


22050 


B 


INIT,,, 


BRANCH TO GET NEXT INPUT RECORD 










09612 


49 


07976 


00000 


22060 


DORG 


•-3 


09620 








22070 PUNC 


CM 


PLACE, 24, 610, 


CHECK FOR RIGHT PARENTHESIS 














09620 


14 


0774L 


00OK4 


22080 


BNE 


CHROOL 


09632 


47 


09684 


01 200 


22090 


BNF 


SETSUB,IWPREV 


09644 


44 


09664 


07699 


22100 


B 


SFlWP,,, 


BRANCH TO Sf ORE THE ELEMENT 














09656 


49 


08996 


00000 


22U0 


DORG 


•-3 


09664 








22120* 


POSSIBLE SUBSCRIPT ~ 


— SET TYPE TO -I 









22130 SETSUB 


TOM IWTEMP,-1,6 






09664 


15 


0770M 


OOOOJ 


22140 


B SF1WP,,, 


BRANCH TO STORE 


THE 


ELEMENT 
09676 


49 


08996 


00000 


22150 


DORG »-3 






09684 








22160 CHKDOL 


CM PLACE, 13,610, 


CHECK FOR DOLLAR 


SIGN 09684 


14 


07741 


000J3 


22170 


BNE COMMA 






09696 


47 


09752 


01200 


22180 


CM 11NEXT, 13,10, 


CHECK FOR OOUBLE 


OOLLAR SIGN 














09708 


14 


07698 


000J1 


22190* 


ONE DOLLAR SIGN 


-ITS A CONTINUE 












22200 


BNE ETC 






09720 


47 


08072 


01200 


23010* 


DOUBLE DOLLAR SIGN 


IF ITS FIRST WORO 


IGNORE 








23020 


BNF NORM«24,FSTWO 






09732 


44 


09224 


07734 


23030 


B INIT 






09744 


49 


07976 


OCOOO 


23040 


DORG »-3 






09752 








23050* 


CHECK FOR COMMA 


IF SO IGNORE 












23060 COMMA 


CM PLACE.23,610 






09752 


14 


0774L 


0OOK3 


23070 


BNE SFIWP 






09764 


47 


08996 


01200 


23080 


SF IWPREV 






09776 


32 


07699 


00000 


23090 


AM PLACE, 2,10 






09788 


11 


07743 


000-2 


23100 


TF SCAN+11, PLACE 






09800 


26 


08863 


07743 


231&0 


B 01M504,,, 


BRANCH TO CONTINUE 


SCAN 
















09812 


49 


08840 


00000 


23120 


DORG *-3 






09820 








23130* 


SET FINI PARAMETERS 














23140 FINISH 


TFM NPW»,8 






09820 


16 


07622 


0-000 


23150 


TFM NRT,14,8 






09832 


16 


03345 


0-014 


23160 


TFM NSRF,,10 






09844 


16 


03351 


000-0 


23170 


TFM NSRT , ,8 






09856 


16 


03349 


0-000 


23180* 


LOAD AND CALL OUTPUT TO OUTPUT A RECORD 












23190 


BTM MONI TR, 03130 






09868 


17 


10960 


-3130 


23200 


BTM OUTPUT, TDATA5-9, 


8? 




09880 


17 


02410 


-3333 


24016 CALLS 


NOP EXIT 






09892 


41 


00796 


00000 


24020ft 


INTRAN COMPLETE — 


CALL ARELEM 












24030 


TFM 9RCYLO,10,10» 


SET CYLINDER OUTPUT 


SECTOR 
















09904 


16 


00513 


OOOJO 


24040 


BMP GPPR,LCTAPE , , 


CAN THE ARITHMETIC 


ELEMENT BE BYPASSED 










09916 


44 


09956 


07708 


2409© 


CALL LINK, ARELEM 






09928 


10 


00565 


-9947 








09940 


49 


00716 


00000 










09947 


00007 LKO-237 










09954 


00001 • 




24060 W* 


CALL LINK,MOVDAT 






09956 
09966 


to 

49 


00565 
00716 


-9975 
00000 










09975 


00007 LK0-S97 










09982 


00001 • 




24070* 


BRING IN NEXT MACRO 


STATEMENT PROP flit 












24080* 


LOAD ANO CALL FtLf4 


SUBPROGRAM 












24090 tWFUe 


8TM HONITR903220 






09984 


17 


10960 


-3220 


2®1®0 


87 FfLE4##6 






09996 


49 


02410 


00000 


241 I0» 


LOAD AND CALL At WW* 


SUM*!**** to checr 


Pfgit ?ERMAC 








24120 


mn MONITR«@I010 






10004 


IT 


10960 


-3010 


24130 


BTM SLf»MA»9*!0 






10016 


if 


02410 


000-0 


1414© 


§ffP ®OALPH,f€ft*r» 


If NO TgRMAC SCAN TMf STATEMENT 








10028 


49 


08636 


07144 



24190* 

24ti@ p%mwt 

U IT© 

mm 
mm 

•41 ©# 



ft* MfttflKtltt* 

CP IFJUMf 

C« ftAVItt* 

m p*m 



10040 12 07T19 ©e©~ s 
10092 S3 07141 0000© 
10064 14 0004 T -0000 
10976 4? tOtlt 01200 
tOOti It 0001 i -9000 



25010 


8 


INIT 


10100 


49 


07976 


00000 


25020 P$M0 


TF 


SAV*1,SAVE2,, 


PUSHOOMN SECTOR ADDRESS 














10112 


26 


08011 


08047 


250 30 


in 


MACSUB »MACSUB*30I»» 


PUSHOOMN MACSUB TABLE 10124 


31 


05188 


05489 


250*0 


cm 


SAVE3tt 


10136 


14 


08071 


-0000 


25050 


BNE 


FULL 


10148 


47 


10180 


01200 


25060 


TFM 


SAVE2», 


10160 


16 


08047 


-0000 


25OT0 


B7 


INI? 


10172 


49 


07976 


00000 


25080 FULL 


TF 


SAVE2»SAVE3tt 


PUSHOOMN SECTOR ADDRESS 














10180 


26 


0804 7 


08071 


25090 


TR 


MACSUB*30l*MACSU8**0ltt PUSHDOWN MACSUB TABLE 














10192 


31 


05489 


05789 


25100 


TFM 


SAV63,, 


10204 


16 


08071 


-0000 


25110 


87 


INIT 


10216 


49 


07976 


00000 


25120* 


COMPLETE STATEMENT IN 


MOROL ---—NOW PROCESS 








25130* 


IP 


MACRO STATEMENT REPLACE DUMMY VARIABLES WITH CALL VALUES 




25140 PROCES 


CM 


MACPlKt tlO 


10224 


14 


07719 


000-0 


25150 


BE 


INIT2 


10236 


46 


10268 


01200 


25160* 


LOAD AND CALL SUBPROGRAM RE PL AC 








25170 


BTM 


MONJTR, 03180 


10248 


17 


10980 


-3180 


25180 


87 


REPLAC,** 


10260 


49 


02410 


00000 


25190 INIT2 


tfn 


LPAR.,10, 


INtTIALItE PARENTHESIS COUNTERS 










10268 


16 


10277 


000-0 


25200 LPAR 


OS 


»*-2 


10277 


00000 




26010 


TF 


NATl t INREO 


10280 


26 


07661 


09199 


26020 


TF 


LEFmtlNRED 


10292 


26 


10426 


09199 


26030 C22 


CM 


LEFT*6,22,610, 


CHECK FOR ENO OF WORD LIST 














10304 


14 


10420 


C00K2 


26040 


BNE 


LEFT 


10316 


47 


10420 


01200 


26050 


TF 


NAT2,LEFT*6 


10328 


26 


07666 


10426 


26060* 


LOAD AND CALL CALC TO 


PROCESS SIMPLE STATEMENT 








26070 0IM502 


BT 


MONITR, 0SA502*5 


10340 


27 


10980 


02491 


26080 


B 


CALC, 6 


10352 


49 


02410 


00000 


26090 


DOR 6 


•-3 


10360 








26100 


BNF 


INITfSFLAGt t 


MUST SIMPLE BE CALLED 10360 


44 


07976 


07769 


26110 


CF 


SFLAG 


10372 


33 


07769 


00000 


26120 


CF 


ARGDSA+l 


10384 


33 


07754 


00000 


26130* 


LOAO AND CALL SIMPLE SUBPROGRAM 








26140 


BT 


MONITR, SCDSA*5 


10396 


27 


10980 


07768 


26150 


BT 


SIMPLE, ARGDSA45. 6 


10408 


27 


02410 


07758 


26160 LEFT 


CM 


9999,3,10, 


CHECK FOR PUNCTUATION 10420 


14 


09599 


000-3 


26170 


BNE 


ADDIT 


10432 


47 


10528 


01200 


26180 


TF 


•♦30tLEFT*6#, 


INITIALIZE SCAN FOR PARENTHESIS 










10444 


26 


10474 


10426 


26190 


AM 


•♦18,12,10 


10456 


11 


10474 


000J2 


26200 COMF1 


CM 


9999,24,10, 


CHECK FOR LEFT PARENTHESIS 














10468 


14 


09999 


00OK4 


27010 


BNE 


RGTPR 


10480 


47 


10548 


01200 


27020 


TFM 


LPARtl«10 


10492 


16 


10277 


000- 1 


270 30 


TF 


NATl.LEFT+6,, 


STORE ADDRESS OF LEFT PARENTHESIS 










10504 


26 


07661 


10426 


27040 


AM 


NATl, 14, 10, 


INCREMENT TO LOOK AT NEXT WORD 












10516 


11 


07661 


O0OJ4 


27050 ADD IT 


AM 


L£FT*6.14»10 


10528 


11 


10426 


0OOJ4 


27060 


8 


C22 


10540 


49 


10304 


00000 


27070 


DOR 6 


•-3 


10548 








27080 RGTPR 


CM 


C0HP1*6,4,610, 


CHECK FOR RIGHT PAREN 10548 


14 


1047M 


C00-4 


27090 


BNE 


ADDIT 


10560 


47 


10528 


01200 


27100 


TF 


NAY2,C0MPl*6, , 


STORE AOORESS OF RIGHT PARENTHESIS 










10572 


26 


07666 


10474 


27110 


SM 


NAT2,26,10 


10584 


12 


07666 


000K6 


27120 


SM 


LPAR. 1,10 


10596 


12 


10277 


000-1 


27130 


BE 


SEP 


10608 


46 


10652 


01200 


27140* 


NO 


CLOSED SET OF PAREN 


—LOAD ANO CALL TYPERR 








27150 


BTM 


MONITR, 03090 


10620 


17 


10980 


-3090 


27160 


BTM 


TYPERR, 106,67 


10632 


17 


02410 


-0106 


27170 


B 


INIT 


10644 


49 


07976 


00000 


27180 


DORG 


•-3 


10652 








27190 SEP 


TF 


•♦18, NATl,, 


SCAN BETWEEN NAU-NAT2 FOR SLASH 










10652 


26 


10670 


07661 


27260 


CM 


9999,3,10 


10664 


14 


09999 


000-3 


28010 


BNE 


I NCR 


10676 


47 


10822 


01200 


28020 


AM 


SEP*18,12, 10 


10688 


11 


10670 


000J2 


28030 


CM 


SEP«18,2l,610t 


CHECK FOR SLASH 10700 


14 


1067- 


OOOKl 


28040 


BNE 


INCR14M2 


10712 


47 


10792 


01200 


28050* 


CHECK PREVIOUS WORD FOR SYSTEM WORD 








28060* 


LOAD AND CALL 0ICT1 SUBPROGRAM 








28070 


BTM 


MONITR, 03030 


10724 


17 


10980 


-3030 


28080 


SM 


SEPU8, 14,10 


10736 


12 


10670 


000J4 


28090 


TF 


•♦23,SEP*18 


10748 


26 


10771 


10670 


28100 


BTM 


0ICT,9999,67 


10760 


17 


02410 


-9999 


28110 


87 


OIM506,,, 


BRANCH TO LOAO SIMPLE 10772 


49 


10846 


00000 


28120 INCR14 


AM 


SEP*18,12,10, 


INCREMENT TO LOOK AT NEXT WORD 












10780 


11 


10670 


000J2 


28130 


AM 


SEP*18.2,10 


10792 


11 


10670 


000-2 


28140 


8 


SEP»l2ttt 


BRANCH TO CONTINUE SCAN FOR 


SLASH 










10804 


49 


10664 


00000 


28150 


DOR 6 


•-3 


10812 








28160 SOSA 


OSA 


NATl t NAT2 


10816 


00005 -7661 








10821 


00005 -7666 


28170 FLAGC 


CF 


S0SA*1 


10622 


33 


10817 


00000 


28180 


TRA 




10834 


10 


00565 


J0853 








10846 


49 


00716 


00000 








10853 


00002 2K 










10855 


00005 J0861 








10860 


00001 • 










10861 


00006 149783 








10867 


00003 -03 








10870 


00006 -0000* 


28190 


TCO 


FLAGC 


10822 








28200 


00R6 


FLAGC 


10822 








29010 INCH 


C 


SEPM8.NAT2,, 


CHECK FOR ENO OF WORD LIST 














10822 


24 


10670 


07666 


29020 


BNE 


INCR14 


10834 


47 


10780 


01200 


29030* 


LOAO ANO CALL SIMPLE TO REDUCE A NEST 








29040 OIH506 


BT 


MONITR V DSA506*9 


10846 


27 


10980 


02481 


29050 


8T 


SIMPLEtS0SA»S»8 


10858 


27 


02410 


10821 


29060* 


LOAO ANO CALL POSttt* 










29070 0IM501 


BT 


H0NITR*DSA901*9 


10870 


27 


10980 


02471 


29080 


8 


P0SIMP t ,4 


10882 


49 


02410 


00000 


29090 


OORG 


•-3 


10890 








29100* 


CARD SEQUENCE ERROR ™ YVFE WARNING MESSAGE 








29iio rm 


RCTV 




10890 


34 


00000 


00102 


29120 


MATY CORO 


10902 


39 


10923 


00100 


291 30 


8? 


CMKO 


10914 


49 


08974 


00000 


29140 CORO 


OAC 


9.CAAD SEQ* 


10923 


00018 




29190* 


iOAO ANO CALL TVPfft* 


SUBPROGRAM TO TYPE MESSAGE 








29140 At $f ft* 


8TN 


MONITR* 03090 


10940 


17 


10980 


-3090 


29170 


•T 


TYFERR t PLACE.* 


10992 


27 


02410 


07741 


291 to crc 


OS 


, CI STOP 


08072 


00000 





PAf.F 12 



6 



291 90 


HEAD 


29200* 




10010* 




$0020* 




30030* 




30040* 




30030* 




30060* 




30070* 




30080* 




30090* 




30100* 




30110* 




30120* 




301 30* 








301 50* 




301 60* 




301 t0* 




301 60* 








30200* 




31010* 




31020* 




31030* 




31040* 




31050* 




31060* 




31070* 




31080 IDENT 


OS 


31090 


oc 


31100 


oc 


31110 RETAOD 


OS 


31120 OIMNO 


OS 


31130 ERAS 


OS 


31140* 




31190 N0N1TR 


SF 


31 160 


DOUG 


31170* 




31180 


OSA 


31190* 




31200 


NOP 


32010 


TFM 


32020 


BO 


32030* 




32040 CALLS 


TFN 


32050 SCAN 


c 


32060 


BE 


32070* 




32080 


AM 


32090 


SM 


32100 


BNt 


32110* 




32120 NUDIM 


SM 



00000 



IftM H20-13U AO-APT SUBPROGRAM FOR SUPERVISING 
THE LOADING OF AO-APT SUBROUTINES AND SUBPROGRAMS 

RCS 

1 ENRAGE - BTM MOM TR»NNNN0#67, (ERASABLE PROG.) 

BT MQNt TR»D$ALBL*5*6» (NON-ERASABLE PROG.) 

NNNN IS THE MONITOR I DIM NO. CF CALLED PROGRAM 

FIELD AT DSALBL+5 IS EQUIVALENT TO FOLLOWING* •• 
0SAL8L DSA RA , RETURN ADDRESS TO CALLING PROG* 

DSC 4 i NNNN* MONITOR I DIM NO. 

DSC l»tt ANY NON-ZERO DIGIT 

•ERASABLE PROGRAMS NEVER CALL OTHER PROGRAMS 
•NON-ERASABLE PROGRAMS CALL OTHER PROGRAMS * 

•ERASABLE PROGRAMS MUST EXIT BY BRANCH 8A6M 
BR M BRANCH .ITQ A «!*EB ABQRe&$> 

•NON-ERASABLE PROGRAMS MUST EXIT BY BRANCH 
INDIRECT TO RETURN I IN AO-APT SYSTEM COMMON AREA ) 



5 10968 00005 

It* 10969 00001 

10,0 10979 00010 

5,*-5, RETURN ADDRESS FOR BRANCH-EXIT PROGRAMS 

10974 00005 

4,*-l, SPS II-O MONITOR PROGRAM DIM NO. 

10978 00004 

!,*, ERASABILITY INOICATOR 10979 00001 

DlMNO-3 10980 32 10975 00000 

•-4 10987 



MAPENT*0*20-15 



CNTR.NEttO 
CALLNE tERAS* * 



10991 00005 J 3 105 

10992 41 00000 00000 
11004 16 11001 OOOLO 

IF CALLING NON-ERASABLE PROGRAM 

11016 43 1.1850 10979 



P0INTR.MAPENT*20*NNE-16 11028 16 11046 J3264 

iDIMNOt * SEARCH ERASABLE PROGRAM TABLE FOR OIM NO 

11040 24 00000 10978 
INMAPt t » BRANCH IF OIMNO LOCATED 

11052 46 12422 01200 



P0INTR-I*2 f l0 

CNTR.1.10 

SCAN,,, 



P0INTR-l v 2*10f 



11064 11 11045 000-2 
11076 12 UOOI 000-1 
BRANCH IF END OF TABLE NOT ENCOUNTERED 

11088 47 11040 01200 

DIM NO NOT ENTERED IN ERASABLE PROG. TABLE 



32130 


CM 


P0INTR.MAPENT*NNE*20- 


32140 


BNP 


NEOVF* t * BRANCH II 


32150* 






32160 


CM 


P0INTR,,68, 


32170 


BNE 


NUDIM,,, 1 


32180* 






32190 NUENT 


AM 


POINTRt It 10 


32200 STOIM 


TF 


P0INTR#ERAS*6» ! 


33010 


AM 


P0INTR,5»10 


33020 


TFM 


VARB*6,HIL0AD 


33030 


TF 


NC0RES*U*H1«« ! 


33040* 






33050* 






33060 


TP . 


P0INTR,HI,6, ! 


33070* 






33080 


TF 


L00El*25*0tMN0 


33090 


AM 


LODEl*25fOELDlMfB« J 


33100 LODE I 


CALL 


LOAD.O,, .. 1 



1 1100 12 11045 000-2 
11112 14 11046 J3244 
TABLE CAPACITY EXCEEOEO 

11124 47 13062 01100 



SEARCH FOR UNUSEO TABLE ENTRY 





11136 


14 


11040 


0-000 


BRANCH IF ENTRY IS 


NOT ZERO 










11148 


47 


11100 


01200 




11160 


11 


11046 


OCO-l 


STORE OIMNO AND ERASABILITY 


DIGIT 






11172 


26 


11040 


10979 




11184 


11 


11046 


000-5 




11196 


16 


11314 


J1316 


SAVE LOAO ADDRESS 


11208 


26 


11375 


00434 


STORE LOAO ACORESS 


11220 


26 


11040 


00434 




11232 


26 


11281 


10978 



AOO OIM NO. INCREMENT 11244 11 11281 0-000 
LOAO DlSC-STpRED RELOCATABLE PROGRAM . 

11256 10 00565 J1275 
11268 49 00716 00000 
11275 00007 L20-000 
11282 00001 • 



33110* 

33120 

33130 

33140 VARB 

33150 

33160* 

33170 HILOAD 
33180 
33190* 
33200 

34010* 
34020 

34030 NCORES 

34040* 
34050 RESET 

34060* 

34070* 

34080* 

14090* 

34100 

34110 

34120 

34130 

34140* 

34150 SETPT 



AM 

TF 
B 

OORG 

AM 
TF 



POINTRtStlO 
POINTRt ENTRY*6t 



STORE ENTRY ADDRESS 



P0INTR»5 ( 10 
COKP*ll«HItt 



80 STRADOf ERASt 



P0INTR,HI,,6 
P0INTR,,6, 



11284 11 11046 000-5 
11296 26 11040 02136 
11308. 49 00000 00000 
11316 

11316 11 11046 000-5 
MOVE HI INDICATOR 11328 26 11503 00434 

BRANCH IF NON-ERASABLE ENTRY 

.11340 43 12050 10979 

11352 26 11040 00434 
STORE NO* CORES (HI-LOAD ADORE SS ) . 

11364 12 11040 00000 

RESTORE Ml INDICATOR TO EFFECT OVERLOAO 

11376 26 00434 11375 



TFM 
TFM 
8 

DORG 
SM 



34160 
34170* 
34180* 
34190* 



TP 



CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE HIGHEST. 

CORE EXCEEDS THE LOAO ADDRESS OF THE LAST LOAOEO 

ERASABLE PROGRAM 
PROGX-lBtSlETPT IUM A* 12956 J 1420 

PR0GX*>3,HI ,11400 I* 12997,-0434 

CLEAR1 11412 49 12914 00000 

•*3 . • 11420 

POINTRo-ltlt 10, P01NTR INDICATES ADDRESS OF LOAO AOORESS 

11420 12 11045 000- I 

LOPRMsLO* • MOVE LO INDICATOR 11432.2*- 124*1 12349 

• i •..•■>■■/■> > ' * 

ERASE ALL PROGRAMS WHOSE LOAO AOORfSSES 
ARE LESS THAN HIGHEST CORE POSITION USEO 



1*200 ERASE! 

no to 

35020 HANGS 
ISO 10 

350*0* 

35060 

35070 
35060 
35090* 

35100 SfNtRf 



35110 

m 



35150* 
35160 OVOFP 



TFM 
AM 

CM 
BP 



' CM 



C0MP*6»HAPENT*20«NN€-l*20-t0 
COMP*5 t 2 t 10 

C0MP«6»MAPENT**0*MJNE*20*NE- 1*20* 10 
STNTftV,,, BRANCH IF ERAS! 



EROIH, 



8 

DOAG 



HANGE**'!} 
*-| 

ENTRY* »ENTftY,t 
ftttftYttllltftViM 

•♦Urn 





16 


11498 


J3250 


11456 


11 


11491 


000-2 


11466 


14 


11490 


J 3650 


COMPLETED 








11410 


46 


11524 


01100 


11492 


14 


00000 


-0000 


destroyed 








11504 


4? 


11690 


01300 


11516 


49 


11496 


00000 



PAGE 15 



11524 

SET PROGRAM ENTRY ADDRESSES 

11524 26 02416 02136 
1ft SYSTEM COMMON AREA 11536 26 02421 02416 

IKANftN IP £*Uie mU#«|J S tl iiNj?Il!f ftS * fftl 
11560 46 11670 01200 

TURN OFF PON I TOR 1 OVERFLOW 









11572 


*6 


1158* 


01*00 


35170 


BNC4 


•♦84 


1158* 


*7 


11668 


co*oo 


35180 


NOP 




11596 


*1 


00000 


00000 


35190 


NOP 




11608 


*i 


00000 


00000 


35200 


NOP 




11620 


*l 


00000 


00000 


36010 


NOP 




11632 


*1 


00000 


ooooo 


36020 


NOP 




116** 


*l 


00000 


00000 


36030 


NOP 




11656 


41 


00000 


ooooo 


360*0 


B8 




11668 


*2 


00000 


ooooo 


36050 


00ft G 


•-9 


11670 








36060* 














36070 COSN 


AH 


ENTRY2 v 72,10t 


FABRICATE ENTRY ACORESS TO COSF SUBR, 










11670 


11 


02*21 


00OP2 


36080 


a 


OVOFF 


11682 


49 


11572 


CCOOO 


36090 


DOR 6 


•-3 


11690 








36100* 














36110 EROIM 


C 


C0MPf6, POINTR 


11690 


2* 


11*98 


110*6 


36120 


BE 


RANGE- 12,,, 


NO ERASURE IF PROGRAM JUST LOADED 










11702 


*6 


11*56 


01200 


36130* 














36U0 


SM 


C0MP+6»5tl0 


1171* 


12 


11*98 


000-5 


36150 


BNF 


ERASE*C0MP*6»U 


t BRANCH IF PROGRAM NOT ERASED 












11726 


44 


11758 


11*90 


36160* 














36170 


AM 


COMP+6,25,10 


11738 


It 


11498 


0COK5 


36180 


B 


RANGE 


* 11750 


*9 


11468 


CCOOO 


3619Q 


00ft G 


•-3 , 


11758 








36200* 














37010 ERASE 


SF 


C0MP+6,»6 t 


ERASE PROGRAM FROM MEMORY 














11758 


32 


11*90 


OCOOO 


37020* 














37030 


AM 


COMP+6,5,10 


11770 


11 


11*98 


000-5 


370*0 


C 


C0MP*6tLOPRM t 6 


11782 


24 


U*9Q 


12*57 


1705Q 


BN 


RANGE- 12a tt 


BRANCH IF PROGRAM NOT LOAOEC BY 


LO 


INDICATOR 








1179* 


47 


11*56 


01300 


37060* 














37070 


AM 


COMPOS* It 10 


11806 


11 


11497 


000- 1 


37080 


A 


L0*COMP*6,ll v 


RE-DEFINE LO INDICATOR 














11818 


21 


12389 


U*9Q 



37100 


AM 


COHP+5,1, 10 


11830 11 11*97 


000- 1 


371 10 


B 


RANGE 


118*2 *9 11*68 


ooooo 


37120 


00ft G 


•-3 


11850 




37130* 










371*0* 




•ENTRY FOR 


CALLING NON-ERASABLE PROGRAM 




37150 CALLNE 


TFM 


POINTR, NAPENT*0*20-15 11850 16 110*6 


J3105 


37160 


BNF 


INDEX*POINTRtll« 


BRANCH IF USEO ENTRY 11862 4* 12190 


110*0 


17170* 










37180 


SM 


POINTR, 1,10 


1187* 12 110*6 


000- 1 


37190 


C 


DIMNO, POINTR, 11 


11886 2* 10978 


110*0 


37200 


BNE 


ST01M-12.,. 


BRANCH IF PROGRAM MUST BE LOADED 

11898 *7 11160 


01200 


38010* 










38020 


AM 


POINTR, 6, 10, 


NCN-ERASAQLE PROGRAM IS IN MEMORY 

11910 11 110*6 


000-6 


38030 


C 


POINTR, MI, 6 


11922 2* 110*0 


00*1* 


380*0 


BNE 


MEMGAP, , , 


1191* *7 11082 


01200 


38050 


SM 


POINTR.5,10 


119*6 12 11046 


000-5 


38060 


CF 


POINTR,, 6, 


CLEAR ERASURE FLAG M1958 31 110*0 


OOOOO 


38070* 










38080 


AM 


POINTR-1,1.10 


11970 11 11045 


000- 1 


18090 


TF 


ENTRY 1 »P0I NTR « 1 1 t 


SET ENTRY AOORESS IN SYSTEM COMMON AREA 






11982 26 02416 


110*0 


38100* 










38110 


AM 


PQINT«,5,10 


1199* 11 110*6 


000-5 


38120 


TF 


C0MP*ll,POINTR,ll 


• RESTORE COMP*tl I SIMULATE LOADING) 

12006 26 11503 


110*0 


38130 


TF 


POINTR, R6TA00, 6, 


REPLACE RETURN ADDRESS 

12018 26 110*0 


10974 


381*0 


TF 


HI,COMP*ll,, 


RESTORE H| INDICATOR 12030 26 00434 


11503 


38150 


8 


STNTRY+12 


12042 *9 11916 


OOOOO 


38160 


OOftG 


*-3 


12C50 




38170* 










36180 STRADO 


TF 


PO I NTR t RE TAOO « 6 • 


STORE RETURN AOORESS 12050 26 11040 


1097* 


18190* 










18200* 




CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE LOAD 




39010* 




ADDRESSES 


ARE LESS THAN THE HI INDICATOR 




19020 


SM 


POINTR-1,1.10 


12062 12 11045 


00 Q- 1 


19030 


TF 


ENOTAB*! 8 t POINTR 


1207* 26 12128 


110*6 


190*0 


AM 


ENOTAB*17t2*10 


12086 11 12127 


000-2 


19050 


CM 


ENOTAB* lit MAPENT*20»NNE- 10 12098 1* 12128 


J1270 


19060 ENOTAB 


BNN 


SETPT*12»t t 


BRANCH IF ENO OF TABLE ENCOUNTERED 

12110 46 11412 


01100 


19070* 










19080 


C 


•HI 


12122 24 OOOOO 


00*1* 


19090 


BNN 


ENOTAB-24, t • 


BRANCH IF ENTRY NEEO NOT RE CLEAREO 
12134 *6 12086 


01100 


19100* 










19110 


SM 


ENDTAB*16«Stl0 


12146 12 12128 


000-5 


19120 


TFM 


ENOTAB* IB t •6711* 


CLEAR NON-EN AS ABLE ENTRY FROM TABLE 
12158 16 12120 


-000- 


39130 


AM 


ENDTAB*lB»25f 10 


12170 11 12128 


000*5 


391*0 


B 


EN0TAB-12 


12182 49 12098 


OOOOO 


19190 


OOftG 


«-J 


12190 




19160* 










19170 INOEI 


AN 


POINTA-l.2.10 


12190 11 11045 


000-2 


19180 


CM 


P0lNTft 9 MAPEN7**«f**0«lS 12202 14 110*6 


J1264 


39190 


BN 


CALLME*12ttt 


BRANCH if NON-ERASABLE PROGRAM TABLE 








12214 47 11662 


OtlOQ 



39200* 






CAPACITY NOT EXCEEDED 




40010* 












40020 NNEOVF 


TFM 


WRERR+ 1 1 .NNEC0N.9 


12226 16 1227) 


00J40 


40030 


TFM 


L0.20000.. 




ft f: -DEFINE LO INDICATOR 












12238 16 12389 


KOOOO 


40040 


BTN 


MONITR.ERROIMt* 


CALL ERROR PROCESSING SUBPROGRAM » 












12250 17 10980 


-3090 


40050 wrerr 


BTM 


ERROUT.,67 




12262 17 024^0 


-COOO 


40060 


CALL 


EXIT**. 




EXIT AO-APT SYSTEM I NON- RECOVERABLE 












12274 49 00796 


00000 


40070* 








NONITR TABLE OVERFLOW ERROR) 




40080* 












40090* 












40100* 




•ENTRY 


FOR 


INDIRECT RETURN TO NCN-ERASABLE PROQS. 




40110 RETURN 


TFM 


POINTR .MAPENT- 


1*20-15* * SEARCH FOR LAST EXITEO PROGRAM 










12282 16 11046 


J3085 


40120 


AM 


POINTR-1,2,10 




12294 11 11045 


000-2 


401)0 


BNF 


•-t2.P01NTR,U 




BRANCH IF PROGRAM NOT ERASED 












12306 44 12294 


11040 


40140* 












40150 


SM 


POtNTR.5.10 




12318 12 11046 


000-5 


40160 


TF 


EXI T+6, POINTR, 


11* 


SET RETURN AOORESS 12330 26 12420 


11040 


40170 


IF 


P0INtR*HI*6* 




SAVE HI INDICATOR 12342 26 11040 


00434 


40180* 












40190 


IF 


COMP*ll.HI*» 




STORE HI INDICATOR 12354 26 11503 


00434 


40200* 












41010 


SM 


POINTR«15*10 




12366 12 11046 


O0OJ5 


41020 


SF 


POINTR, ,6, 




SET NON-ERASABLE PROGRAM EXIT FLAG 












12378 32 11040 


00000 


41030 10 


DC 


5.-1.*. 




LO INDICATOR 12389 00005 




41040* 












41050 


AM 


POINTR, 5, 10 




12390 11 11046 


000-5 


41060 


TF 


HI.POINTR.il. 




RESET HI INDICATOR TO EFFECT OVERLOAD 










12402 26 00434 


11040 


41070 EXIT 


B 


» » . 




RETURN TO CALLING PROGRAM 












12414 49 OOOCO 


00000 


41080 


DORG 


•-3 




12422 




41090* 












41100* 




DIM NO 


IS 


IN ERASABLE PROGRAM TABLE 




411 10 INMAP 


AM 


POINTR, 1,10 




12422 11 11046 


COO-t 


41120 


BNF 


INCORE , POINTR, 


11, 


BRANCH IF PROGRAM IS IN PEMORY 












12434 44 12862 


11040 


41130* 












41140 


CF 


POINTR. ,6. 




CLEAR ERASURE FLAG 12446 33 11040 


00000 


41150 


AM 


POINTR.15.10. 




LOAD ERASABLE PROGRAM INTO UPPER MEMORY 










12458 11 11046 


O0OJ5 


41160 


TF 


TEMP, 10,, 




IF (10-NO. CORES 1 IS NOT LESS THAN Hi 












12470 26 11769 


12389 


41170 


TF 


LOPRM.LO*. 




SAVE LO INDICATOR 12482 26 12457 


12389 


41180 


S 


TEMP, POINTR, 11 


* 


TEMP-UO-NO. CORES) 12494 22 11769 


11040 


41190*. 












41200 


c 


TEMP , HI 




12506 24 11769 


C0434 


42010 


BL 


NOF IT* . . 




BRANCH IF HI EXCEEDS (LO-NO. CORES) 












12518 47 12894 


01300 


42020* 












42030 FIT 


TF 


10, TEMP,, 




RE-DEFINE LO INDICATOR 












12530 26 12389 


11769 


42040* 












42050 


SM 


POINTR-1,1,10 




12542 12 11045 


OCO-l 


42060 


TF 


TEMP, HI,, 




SAVE HI INDICATOR 12554 26 11769 


00434 



42070 
42080 
42090 
42100 
42110* 

42120 LOLOAD TF 
42130* 
42140* 
42150* 
42160* 
42170* 



TF HI, 10,, 
TFM VARB+6, LOLOAD 
B L00E1-36 
DORG *-3 



SET HI TO LO 



12566 26 00434 12389 

12578 16 11314 J2598 

12590 49 11220 00000 
12598 



HI, TEMP,, 



RESTORE HI INDICATOR 12598 26 00434 11769 



ERASE ENTRIES OF ERASABLE PROGRAMS WHOSE HIGHEST 
CORE IS GREATER THAN LO INDICATOR, AND WHOSE LOAD 
ADDRESS IS LESS THAN THE PREVIOUS LO INDICATOR 



42180 


TFM 


LAMLOP*6.,MAPENr*20*NNE-l*20-10 


12610 


16 12664 


J3250 


42190 


AM 


LAMLOP*5,2,lO 




12622 


11 12663 


000-2 


42200 EXTNT 


CM 


LAMLOP*6,MAPENT*20*NNE*20*NE-l*20-lO 


12634 


14 12664 


J3850 


43010 


BP 


CLEAR2... 


BRANCH IF ERASING COMPLETED 












12646 


46 12830 


01100 


43020* 














430 30 LAMLOP 


C 


•LOPRM 




12658 


24 OOCOO 


12457 


43040 


BNN 


EXTNT-12,,, 


BRANCH IF PREVIOUS 


LO EXCEEOS 


LOAD AOORESS 








12670 


46 12622 


01300 


43050* 














4 3060 


TF 


L0MHIP + U»LAML0P*6 




12682 


26 12729 


1266M 


4 30 70 


AM 


LAHLOP+5,1,10 




12694 


Ll 12663 


000-1 


43080 


A 


L0MHIP*ll»LAML0P*6 


• 11 


12706 


21 12729 


1266M 


43090 LOMHIP 


CM 


LO 


/ : 


12718 


14 12389 


-0000 


43100 


BN 


CSELF, .. BRANCH IF HIGHEST CORE 


USEO EXCEEDS PRESENT LO 








12730 


47 12762 


01300 


43110* 














43120 


AM 


LAMLOP*5,l,lO 




12742 


11 12663 


000-1 


43130 


B 


EXTNT 




12754 


49 12634 


00000 


43140 


DORG 


•-3 




12762 






43150* 














43160 CSELF 


SM 


LAMLOP+6.15.10 




12762 


12 12664 


000J5 


43170 


C 


LAML0P*6,ERAS*6 




12774 


24 1266M 


10979 


43180 


BE 


ERENT* 12, t * 


BRANCH IF ENTRY 


IS SAME AS DIMNO 








12786 


46 12810 


01200 


43190 ERENT 


SF 


LAML0P*6,*6, 


ERASE ENTRY 


12798 


32 1266M 


00000 


43200 


AM 


LAML0P*6, 25,10 




12810 


11 12664 


000K5 


44010 


B 


EXTNT 




12822 


49 12634 


00000 


44020 


DORG 


•-3 




12830 







44030* 
44040» 
44050* 
44060* 

44070 CLEAR2 
44080 
44090 
44100 
44110* 
44120* 
44130* 

44140 INCORE AM 
44150 TF 



CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE 
HIGHEST CORE EXCEEOS THE LO INDICATOR 



TFM PROGX- IB.STNTRY 
TFM PROGX*23»LO 
B CLEAR 1 
OORG *-3 



128 30 


16 


12956 


J1524 


12842 


16 


12997 


J2389 


12854 


49 


12914 


00000 


12862 









PROGRAM GALLED IS IN MEMORY 



POINTR-1,1,10 
EMTRYl, POINTR, 11, 



44160 

44170 

44160* 

44190* 

44200* 

49010 NOF IT 



B STNTRVM2 
OORG «~3 



12862 11 11045 000- I 
SET ENTRY AOORESS IN SYSTEM COMMON AREA 

12874 26 02416 11040 
12886 49 11136 00000 
12894 



CALLED PROGRAM MUST BE LOADED PER HI IN01CAT0R 
P01NTR-t»l.lO I2B94 12 11045 000-1 



45020 


ft 


ST0IKW4 




12906 49 11196 


00000 


45030 


OORG 


•-3 




12914 
















450 5® CLEAR! 


TFM 


PR 0C1- W MA PENT- 


1*20-15 


12914 16 12973 


J3085 


45060 


A* 


PROGR*2,2aO 




12926 11 12972 


000-2 




CM 


PR0GX-l*HAPENHNNE»20-l*20- 


15 12938 14 12973 


43245 


45080 


BP 


• • t 


BRANCH 


IF ENTRY CLEARING COMPtFTEO 

1 2950 46 00000 


OH 00 


45090* 












45100 


6NF 


CLEARl*12 » • t 


BRANCH 


IF PROGRAM NOT EXITED 

12962 44 12926 


ccooo 


45110* 












45120 PROGX 


AM 


PROGX-1,15,10 




12974 11 12973 


O0OJ4 


45130 


C 


PROGX-1,,6 




12986 24 1297L 


CCOOO 


45140 


BP 


CLENTl,,, 


BRANCH 


IF ENTRY CLEARING IS REOUIRfC 
1299B 46 110 30 


01100 


45150* 












451 60 


AM 


PROGX-1,5, 10 




13010 11 12973 


0C0-5 


451 70 


ft 


CLEARU24 




13022 49 12938 


coooo 


45180 


DORG 


•-3 




no *o 




451 90* 












45200 CLENTl 


SM 


PROGX-1,15,10 




13030 12 12973 


O0OJ5 


460 tO 


TFM 


PROGX-t, ,6711 9 


CLEAR N0N-ERASA8LF PROGRAM ENTRY 












13042 16 12971 


-000- 


46020 


B 


ClEARl+12 




13054.49 12926 


OCOOO 


460 30 


OORG 


•-3 




I 3062 




46040* 












46050 NEOVF 


TFM 


WRERR*ll,NECON, 


9 


13062 16 12273 


00J41 


46060 


B 


NNE0VFM2 




13074 49 12238 


COOOO 


460 70 


DORG 


•~3 




13082 




46080 MEHGAP 


SM 


P01NTR,6tlO 




13082 12 11046 


000-6 


46090 


B 


STDIM-12 




13094 49 11160 


ocooo 


461 00 


OORG 


•-4 




13101 




46110* 












46120 NNE 


OS 


2,8 




00008 00002 




46130 NE 


OS 


2,30 




00030 00002 




46140 MAPFNT 


OSB 


20. NNE 




13120 00160 




461 50 


DSB 


20, NE 




13280 00600 




46160* 












461 70* 




•FORMAT 


OF NON-ERASABLE PROGRAM ENTRIES... 




461 80* 












46190* 




MONITOR 


I NON-ZERO 


LOAC ENTRY RETURN 




46200* 




OIM NO 


DIGIT 


AOORESS AOORESS AODRfSS 




47010* 




XXXX 


X 


XXXXX XXXXX XXXXX 




47020* 












47030 


OORG 


HAPENT*0*20-19 




13101 




4 7040 


DC 


5,-0 




13105 00005 




47050 


DC 


5,0 




13110 00005 




4 7060 


DORG 


HAPENT*0*20-4 




131 (6 




47070 


DC 


5,0 




13120 00005 




4 7080 


OC 


5,-0 




13125 0000 r j 




47090 


DC 


5,0 




13130 00005 




47100 


DORG 


MAPENT+1«?0~4 




13136 




47110 


OC 


5,0 




13140 00005 




4 71 20 


DC 


5,-0 




13145 00005 




47130 


OC 


5,0 




13150 00005 




47140 


DORG 


MAP£NT*2*20-4 




13156 




47150 


DC 


5,0 




13160 00005 




47160 


OC 


5,-0 




13165 00005 




471 70 


OC 


5,0 




13170 000O5 





47160 


OORG 


MAPFNT*3*20-4 


1 31 76 




47190 


OC 


5,0 


13180 


0000S 


47200 


nc 


5,-0 


13185 


OOOOS 


48010 


OC 


5,0 


13190 


00005 


48020 


DORG 


MAPENT»4*20-4 


13196 




480 30 


DC 


5,0 


13200 


OOOOS 


48040 


OC 


5,-0 


1 3205 


00005 


48050 


DC 


5,0 


13210 


0000*> 


48060 


OORG 


MAPENT»5*20-4 


11216 




48070 


OC 


5,0 


13220 


00005 


48080 


OC 


5,-0 


13225 


00005 


48090 


DC 


5,0 


13210 


00005 


48100 


OORG 


MAP£NT»NNE*20-2*20-4 


13236 




48110 


OC 


5.0 


13240 


00005 


48120 


DC 


5,-0 


13245 


00005 


48130 


OC 


5,0 


13250 


00005 


48140 


OORG 


MAPENT*NNE*20-i*20-4 


13256 




48150 


DC 


5,0 


13260 


00005 


48160* 










48170* 




•FORMAT OF ERASABLE PROGRAM ENTRIES... 




48180* 










48190* 




MONITOR I ZERO LOAD 


/ENTRY NUMBER 


48200* 




OIM NO DIGIT AOORESS AOORESS 


CORES 


49010* 




XXXX X XXXXX 


XXXXX 


XXXXX 


49020* 










490 30 


DORG 


MAPENT*NNE*20*0»20-19 


13261 




49040 


DC 


4,0302,, WASH OIMNO 


13264 


00004 


49050 


DC 


1,0 


13265 


00001 


49060 


OC 


5,99999,, DUMMY LOAO ACORESS 


13270 


00005 


49070 


DORG 


HAPENT*NNE»20*0*20-4 


13276 




49080 


OC 


5,290,* MASH CORE LENGTH 


13280 


00005 


49090 


DC 


4,0301,, ALPHA OIMNO 


13284 


00004 


49100 


OC 


1*0 


13285 


00001 


49U0 


OC 


5,99999. , OUMMY LOAD AOORESS 


13290 


00005 


49120 


DORG 


MAPENT«NNE*20*t*20~4 


13296 




49130 


OC 


5,1042 


13300 


00005 


49140 


OC 


4,0306, * ALSCAN OIMNO 


13304 


00004 


49150 


OC 


ItO 


13305 


00001 


49160 


OC 


5,99999,, OUMMY LOAD ADDRESS 


13310 


00005 


49170 


OORG 


MAPENT*NN£* 20*2*20-4 


13316 




49180 


OC 


5,1644 


13320 


00005 


49190 


OC 


4,0303,, 0ICT1 OIMNO 


13324 


00004 


49200 


OC 


1,0 


13325 


00001 


50010 


OC 


5,99999,, OUMMY LOAD AOORESS 


13330 


00005 


50020 


DORG 


MAPENT*NNE*20*)*20~4 


13336 




500 30 


OC 


5,1170,, DICT1 CORE LENGTH 


13340 


00005 


50040 


OC 


4,0313,, OUTPUT OIMNO 


13344 


00004 


50050 • 


DC 


1,0 


13345 


00001 


50060 


OC 


5,99999,, DUMMY LOAO AOORESS 


13350 


00005 


50070 


OORG 


MAPENT*NNE*20+4*20-4 


13356 




50080 


DC 


5,704 


13360 


00005 


50090 


DC 


4,0319,* F ILE1 OIMNO 


13364 


00004 


50100 


OC 


1*0 


13365 


00001 


50110 


OC 


5* 99999* » DUMMY LOAO AOORESS 


13370 


00005 


50120 


OORG 


NAPENT*NNE»20*S»20-4 


13376 




50130 


OC 


9*2130*» FILE1 CORE LENGTH 


13380 


00005 


50140 


OC 


4*0314** F1N0Z OIMNO 


1)384 


00004 


50150 


OC 


no 


13365 


00001 


50160 


OC 


5,99999, , OUMMY LOAO AOOftCSS 


1)390 


00005 


50170 


OOR 6 


MAPENT>NNE»20*M20~* 


1)396 





50180 OC 5,170 13400 00005 

50190 DC 4,0315,, 2 SURF DIMNO 13404 00004 

50200 OC 1 1 13405 00001 

51010 OC 5,99999,, OUMHV LOAO ADDRESS 13410 00005 

51020 DOUG MAPENT*NNE*20*7*20-4 13416 r 

51030 OC 1»302»» 2SURF CORE LENGTH 13420 OOOOS 

51040 OC 4,0200,, SQRTF DIMNO 13424 00004 

51050 OC 1*0 13425 00001 

51060 OC 5,99999,, DUMMY LOAD AOORESS 13430 00005 

51070 OORG HAPENT*NNE*20*8*20-4 13436 

51080 OC 5*446 tt SQRTF CORE LENGTH 13440 00005 

51090 DC 4,0212,, LCNCN1 DIMNO 13444 00004 

51100 OC ItO 13445 00001 

51110 OC 5 i 99999, » DUMMY LOAO AOORESS 13450 00005 

51120 OORG HAPENTtNNE*20*9*20-4 13456 

51130 OC 5,292,, LCN0N1 CORE LENGTH 13460 00005 

51140 OC 4,0214,, NOR ML N OIMNO 13464 00004 

51150 OC 1,0 13465 00001 

51160 OC 5,99999,, DUMMY LOAD ACORESS 13470 00005 

51170 OORG MAPENT*NNE*20*10*20-4 13476 

51160 OC 5,236*, NORMLN CORE LENGTH 13480 00005 

51190 OC 4,0205,, L1NLIN DIMNO 13484 00004 

51200 OC 1,0 13485 00001 

52010 OC 5,99999,, DUMMY LOAD AOORESS 13490 00005 

52020 OORG NAPENT*NNE*20*l I *20-4 13496 

52030 OC 5,228,, LINLIN CORE LENGTH 13500 00005 

52040 OC 4,0213,, MINF OIMNO 13504 00004 

52050 OC 1,0 ' 13505 00001 

52060 UC 5,99999,, DUMMY LOAO ACCRESS 13510 00005 

52070 OORG MAPENT*NNE*20*12*20-4 13516 

52080 OC 5,92, • MINF CORE LENGTH 13520 00005 

52090 OC 4,0201,, SINF COSF OIMNO 13524 00004 

52100 OC 1*0 13525 00001 

52110 OC 5,99999,, DUMMY LOAD ACORESS 13530 00005 

52120 OORG MAPENT*NNE*20+1 3*20-4 13536 

52130 OC 5,488,, SINF COSF CORE LENGTH 13540 00005 

52140 DC 4,0202,, ATANF DIMNO 13544 00004 

52150 DC 1,0 13545 00001 

52160 DC 5,99999, , DUMMY LOAD AOORESS 13550 00005 

52170 DORG MAPENT*NNE*20M4*20-4 13556 

52180 DC 5,738,, ATANF CORE LENGTH 13560 00005 

52190 DC 4,0203,, EXPF OIMNO 13564 00004 

52200 DC 1*0 13565 00001 

53010 OC 5,99999,, DUMMY LOAD AOORESS 13570 00005 

53020 DORG MAPENT*NNE*20*l5*20-4 13576 

53030 DC 5,768,, EXPF CORE LENGTH 13580 00005 

53040 OC 4,0204,, LOGF DIMNO 13584 00004 

53050 DC 1*0 13585 00001 

53060 OC 5,99999, , DUMMY LOAO ACORESS 13590 00005 

53070 OORG NAPENT*NNE*20*16*20-4 13596 

53060 -OC 5,632,, LOGF CORE LENGTH 13600 00005 

53090 OC 4,0318,, REPLAC DIMNO 13604 00004 

53100 DC 1,0 13605 00001 

53110 DC 5,99999,, DUMMY LOAO AOORESS 13610 00005 

53120 OORG MAPENT*NNE*20*l7*20-4 13616 

53130 OC 5,484,, REPLAC CORE LENGTH 13620 00005 

53140 OC 4,0309,, TYPERR OIMNO 13624 00004 

53150 OC 1*0 13625 00001 

53160 OC 5*99999,, OUMHY LOAO AOORESS 13630 00005 

53170 OORG HAPENT*NNE*20*l8*20-4 13636 



PAGE 21 



53180 

53190 

53200 

54010 

54020 

54030 

54040 

54050 

54060 

54070 

54080 

54090 

54100 

54110 

54120 

54130 

54140 

54150 

54160 

54170 

54180 

54190 

54200 

55010 

55020 

55030 

55040 

55050 

55060 . 

55070 

55080 

55090 

55100 

55110 

55120 

55130 

55140 

55150 

55160 

55170 

55180 

55190 

55200 

56010 

56020 

56030 

56040 

56050 

56060 

56070 

56080 

56090 

56100 

56110 

56120 

56110 

56140* 

S61S0 CNTR 

§6160 POINTR 

1*170 HI 



DC 5*396 13640 00005 

OC 4,0304,, 0ICT2 OIMNO 13644 00004 

DC 1,0 13645 00001 

DC 5*99999,, DUMMY LOAO AOORESS 13650 00005 

OORG MAPENT*NNE*20*l9*20-4 13656 

OC 5,1192 13660 00005 

OC 4,0305,, DICT3 DIMNO 13664 00004 

OC 1,0 13665 00001 

DC 5,99999,, DUMMY LOAO AOORESS 13670 00005 

OORG MAPENT*NNE*20*20*20-4 13676 

OC 5,520,, DICT3 CORE LENGTH 13680 00005 

OC 4,0320,, FILE2 OIMNO 13684 00004 

OC 1,0 13605 00001 

OC 5*99999 13690 00005 

OORG MAPENf+NN£*20*21*20-4 13696 

OC 5,610,, FILE2 CORE LENGTH 13700 00005 

OC 4,0321,, FILE3 DIMNO 13704 00004 

DC 1,0 13705 00001 

OC 5*99999 13710 00005 

DORG MAPENT*NNE*20*22*20-4 13716 

OC 5*1656 13720 00005 

OC 4,0322,* FILE4 OIMNO 13724 00004 

DC 1,0 13725 00001 

DC 5,99999,, DUMMY LOAO ADDRESS 13730 00005 

D0R6 MAPENT*NNE*20*23*20-4 / 13736 

DC 5,128,, FILE4 CORE LENGTH 13740 00005 

DC 4,0360,, PTSLCT DIMNO 13744 00004 

OC 1,0 13745 00001 

OC 5,99999,, DUMMY LOAO AOORESS 13750 00005 

OORG MAPENT*NNE*20*24»20-4 13756 

OC 5,310,, PTSLCT CORE LENGTH 13760 00005 

OC 4,0323,, ITOUMP DIMNO 13764 00004 

DC 1,0 13765 00001 

DC 5,99999, , DUMMY LOAD AOORESS 13770 00005 

OORG MAPENT+NNE*20+25*20~4 13776 

OC 5,474, , ITOUMP CORE LENGTH 13780 00005 

OC 4,0251,, OTDS DIMNO 13784 00004 

DC 1,0 13785 00001 

OC 5*99999 13790 00005 

OORG NAPENT*NNE*20*26*20-4 13796 

OC 5,136,, OTDS CORE LENGTH 13800 00005 

DC 4,0,, OPEN DIMNO FIELD 13804 00004 

DC 1,0 13805 00001 

OC 5,99999 i 13810 00005 

OORG MAPENt*NNE*20*27*20-4 13816 

DC 5,0,» OPEN CORE LENGTH FIELD 13820 00005 

OC 4,0,, OPEN DIMNO 13824 00004 

DC 1,0 13825 00001 

OC 5,99999, # DUMMY LOAO AOORESS 13830 00005 

OORG NAPENT*NNE»20*2§*2©-4 13836 

DC 5,0, , OPEN CORE LENGTH 13840 00005 

OC 4,0, , OPEN OIMNO FIELO 13844 00004 

OC 1,0 13845 00001 

OC 5,99999, » OPEN LENGTH FIELO 13850 00005 

OORG NAPE NT *NNI* 20 ♦*! #20-20-4 13656 

OC 5.0,. l*"0 00005 



PAGE 22 



OS 2,M0NITR*21 
OS tSCAN** 
OS 9*414 



I 1001 00002 
11046 00000 
00434 0000ft 



36100 


ENTRY 


OS 


5,21*16 


07136 


00005 


56190 


ONSC 


OS 


4,0201 


00201 


00004 


56200 


TEMP 


OS 


5, ERASE*!! 


11769 


00005 


57010 


10PRM 


OS 


5 S I WAP* »f 


12457 


00005 


5*020 


NECON 


OS 


♦ 141 


00141 


00000 


57030 


NNECOW 


OS 


• 140 


00140 


00000 


57040 


EAROIM 


OS 


•01090 


03090 


00000 


57050 


ERAOUT 


OS 


• 2416 


02416 


00000 


57060 


MEMORY 


OS 


•20000 


20000 


00000 


57070 




OIND 


t SMUT*** 


07926 





TYPERR 02416 
PARTNO 01023R 
INSERT 00999R 
01*503 08780 
A0011 00378R 
CHEK4 00542R 
HUB 08680 
PRTNO 09492 
SF 00862R 



TERHAC 00987R 

0VFL03 00334R 

IN0AT4 07409 

CHK0F2 00204R 

A002 003L4R 

CHKOF 001 36R 

HUB 2 08968 

RO 00586R 

TERM 07744 



SYPBOL TABLE 

SETOIG 00474R 
HONITR 02406 
IFJUMP 07745 
BR8ACK 00960R 
ALPHA 00002R 
CLEAR 00276R 
INIT 07976 
SAVO 009 12R 
TPOS 00975R 



\ 

SEEMAC 08976 
HACSAV 07721 
FL2ER0 00985R 
AOOTMO 00850R 
BOIC 00346R 
FINI 01035R 
NJUHP 07607 
SETFI 00754R 
TRAMO 004 14R 



REMARK 0101 1R 
INSRT1 09516 
FINISH 09820 
AOOI! 00026R 
CF 00038R 
FLCCN 07617 
PLACE 07743 
SETF2 00838R 
TRYO 00554R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100 

Oil 10 ALPHA 

01120* 

01130 

01140 AOOIt 

01150 CF 

01160 

01170 

01180 

01190 

01200 

02010 

02020 

02030* 
02040 

02050 CHKOF 

02060 

02070 

02060 

02090 

02100 

02110 CHKOF 2 

02120 

02130 

02140 

02150 

02160* 
02170 

02160 CLEAR 

02190 

02200 

03010* 

03020 

03090 A002 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM ALPHA 
THE FUNCTION OF THIS SUBPROGRAM 
IS TO CHECK FOR SPECIAL WORDS 
PARTNO INSERT REMARK FINI TERMAC 
LINKAGE IS BTM MONI TR,NNNNO 

B ALPHA 



OC 
CF 

TFM 
AM 

CF 
CM 
BNC 
BV 

C 

BV 

BNE 

TFM 



BB2 
BV 

C 

BV 

BNE 

TFM 

B7 
BV 

C 

BV 
BNE 
TFM 



TFM 

CF 

CM 

BNE 

882 
AM 



2.0 

TERM,,, 

CF*6,IN0AT4-1 

CF*6»2,10 

9999 

CF*6,IN0AT4*141 
AOOI I 
• ♦12 



00001 

CLEAR TERMAC INOICATOR 00002 
CLEAR FLAGS IN THE INPUT AREA 

00014 
00026 
00038 
00050 
00062 
00074 

IN0AT4*10,AEMAftK*10»* CHECK FOR REMARK 00086 
CHKOF 00098 
CHKOF 00110 
HU6*6,INIT,, SET AOORESS IN MAINLINE TO I 

00122 

RETURN TO CALLING PROGRAM 

00134 

•♦12 00136 
lNDAT4*l0 v INSEftT*10 tV CHECK FOR INSERT 00148 
CHKOF 2 00160 
CHK0F2 00172 
MU6*6,INSRT1,,SET AOORESS IN MAINLINE TO INSRT1 

00184 

CLEAR-12 00196 
•♦12 00204 
IN0AT4*10tPARTNO*t0* • CHECK FOR PARTNO 00216 
0VFL03 00228 
0VFL03 00240 
HUa**«PftTNOf»SfT AOORESS IN MAINLINE TO PRTNO 

00252 

PART NO —CLEAR FLAGS IN INPUT 



00002 

33 07744 OCOOO 



J6 00044 
Jl 00044 
33 09999 
J 4 00044 
M7 00026 
M6 00086 
2M 07419 
M6 00136 
M7 00136 
NIT 

16 08686 



-7408 
000-2 
00000 
-7550* 
01200 
01400 
01021 
01400 
01200 

-7976 



CL£AA*4»IN0AT4-1 

9999 

Cl€AA*4 t lN0AT4*l57 
A002 

RETURN TO CALLING PROGRAM 

CLE AA**t2*iO 



00264 
00276 
00288 
00300 

00312 
00114 



42 00000 00000 
M6 00148 01400 
2M 07419 01009 
M6 00204 01*00 
M7 00204 01200 

16 08666 -9516 
M9 00264 OCOOO 
M6 00216 01400 
2M 07419 01033 
M6 00334 01400 
M 7 00334 01200 

16 08666 -9492 
AREA 

J6 00282 -7408 
3J 09999 00000 
J4 00262 -7566 
M7 00314 01200 

42 00000 00000 
Jl 00262 000-2 



12 



030*0 




67 


CLEAR 






00326 


M9 


00276 


00000 


03050 


0VFL03 


TFM 


601G*tl»!NDAT*-l, 9 SET 


UP 


AOORESS 


TO CHECK FOR 


1ST DIGIT 














0033* 


J6 


00357 


- 7*08 


03060 


601G 


BO 


A0011t9999tt CHECK 


FOR 


A OIGtT 


003*6 


M3 


00376 


09999 


03070 




AM 


BDIG*lt»2»10i INCREMENT 


TO NEXT 


004 f rink 






















j I 


00357 


000 2 


03060 




67 


BOlC 






00370 




niliit t 


uuuuu 


03090 


ADDtl 


TFL 










nn 






03100 




BNF 


tntu » I p JUMP 






Anion 


Hi. 


005*2 


att^k 


03110 




TFM 


it TO I 0*6 ,r LCUN—9 






00*02 


Jo 


00*80 


- 7608 


03120 


TRANO 


TO 


TPOStBDIG+ll, 11 






00* 1* 


KN 


00975 


0035P 


03130 




CF 


TPOS 






00*26 


L3 


00975 


00000 


03140 




CM 


iPuS»r,lO 






00*38 


J* 


00975 


000-7 


03190 




BNE 


CHEK* 






00*50 


M7 


005*2 


01200 


03160 




AM 


BDIG+ll, If 10 






00*62 


Jt 


00357 


000- 1 


031 70 


SETDIO 


TO 


9999,BDIG*l 1 ill 






00*7* 


2N 


09999 


0035P 


03180 




AM 


FLCON (1*10 






00*86 


It 


07617 


000- 1 


03190 




SF 


FLC0N — 9 






00*98 


32 


07608 


OOOOO 


03200 




AM 


SETDIG+6, 1*10 






00510 


Jl 


00*80 


000- 1 


0*010 




AM 


tit"! i A* i i . i . 1 A 

90111*1 If if IQ 






00912 


Jl 


00SI7 


060* 1 


0*020 




87 








nn^l? 


1* 




nnnnn 
UUuuU 


0*030 


CHEK* 


TFM 


Tfivn*t 1 - IMniT4*lil 










nn«A« 




0*0*0 


TRVD 


BO 


R0f9999 










nn«AA 
aa«!!k 


0999*) 


0*050 




SM 


TB vn* 1 1 . 9 . 1 A 






nn^AA 


J2 






0*060 




B7 


TRYO 








1* 


nn«K4 


An Ann 


0*070 


RO 


SM 


tb vn* 11. in. in 






nn*AA 




nn«A«! 




0*080 




SF 


to vn* 1 1 . . f. 

1 I* IU~ 111 fO 






nn^QA 


19 


nn«AM 


nnnnn 


0*090 




AN 


tb vn* it. it. in 






nn* n 






n?2nn 


0*100 




BV 
















0*110 




C 


tb vn* 11. TP B MAC* i ft . A 






aaaia 


KM 






0*120 




BV 








nn«!&«! 






A 1 


0*130 




BNE 


CPTPI 






aaa*a 


M7 


00754 


l?00 


0*1*0 




SF 


TERM 






nn#.7n 


32 


077*4 


AAA AA 


0*150 




BNF 


CPTP9 . tP IIIMO 






nn*A9 




nnAiA 




0*160 




CF 








nn7n2 




ATTAR 


A A A A A 


0*170 




FSUB 


ci rnki.M iiimd 










A7A1 T 




0*180 




BE 








aati a 


MA. 


nnA*A 


ni inn 


0*190 




BTM 


nun i iniU)UTU|Oi 






00730 


17 


no**? n 


-in<jn 


0*200 




BTM 


1 TrcKK|l)U|Ol 






007*2 


17 


nn*A<! 


a 1 «iA 


05010 


SETFI 


SM 


TRY0*lli 7t 10 






0075* 


J2 




000 7 


05020 




SF 


to vn ill « 






00766 


L2 




uuuuu 


05030 




AM 


TRY0*U t 7tl0 






00778 


Jl 




A^AAA 


050*0 




BV 


• ♦12 






00790 


M6 


00802 


ni n! i 


05050 




C 


TR YD* 1 1 #F I Nt +6,6 , CHECK 


FOR 


FINI 


00802 


KM 




nl^AA 


05060 




BV 


SETF2 






0081* 


M6 


00838 




05070 




BE 


SAVO 






00826 


M6 


00912 


1200 


05080* 




RESET THE 


FLAGS IN THE INPUT ARM 






05090 


SETF2 


TFM 


SF«6,INDAT*~1. 






0083A 




00868 


7*08 


05100 


AOOTWO 


AM 


SF+6,2,10 






00850 


n 


00868 


0C0-2 


05110 


SF 


SF 


9999 






00862 


32 


09999 


00000 


05120 




CM , 


SF*6, IN0AT*t141 






0087* 


J* 


00868 


— 7550 


05130 




BNE 


AOOTWO 






00886 


M7 


00850 


01200 


051*0 




TFM 


HUB*6,DIM503,, SET MAINLINE BRANCH TO 01*503 


















00898 


16 


08686 


-8780 


05150* 




RETURN TO 


CALLING PROGRAM 








05160 




BB2 








00910 


*2 


00000 


00000 


05170 


SAVO 


CM 


MACSAV,,10, CHECK 


FOR 


MISSING 


TERMAC 

00912 


1* 


07721 


COO-O 


05180 




BE 


BRBACK 






0092* 


M6 


00960 


01200 


05190* 




LOAD AND 


CALL TYPERR 


SUBPROGRAM 









05200 
06010 

06020 BRBACK 

06030* 
060*0 

06050 TPOS 
06060 

06070 FLZERO 
06080 TERMAC 
06090 INSERT 
06100 REMARK 
06110 PARTNO 
06120 FINI 
06130* 

061*0 INDAT* 
06150 INIT 
06160 PLACE 
06170 TERM 
06180 PRTNO 
06190 HUB 
06200 HUB2 
07010 INSRT1 
07020 SEEMAC 
07030 FINISH 
070*0 0IM503 
07050 TYPERR 
07060 MACSAV 
07070 MONITR 
07060 FLCON 
07090 NJUMP 
07100 IF JUMP 
07110 



BTM MONITR t 03090#67 00936 17 02*00 -3090 

BTM TYPERR, 129, 67 009*8 17 02*10 -0129 

TFM HUB*6,FI Ml SH, , SET MAINLINE BRANCH TO FINISH 

00960 16 08686 -9820 

RETURN TO CALLING PROGRAM 

00972 *2 00000 00000 

00975 00002 

00983 00008 

00985 00002 

00987 00012 

00999 00012 

01011 00012 

01023 00012 

01035 00008 



BB2 
DC 
OC 
OC 
OAC 
DAC 
OAC 
OAC 
OAC 



2,0 
8,0 
2,0 

6, TERMAC 
6, INSERT 
6, REMARK 
6, PARTNO 
_ *,FINI 
COMMON AREA 

OS 
OS 
DS 
OS 
DS 
DS 
OS 
OS 
DS 
DS 
OS 
DS 
OS 
OS 
DS 

DS 

DS ,077*5 
OENO ALPHA 



,07*09 

,07976 

,077*3 

,077** 

,09*92 

,08680 

,08968 

,09516 

,08976 

,09820 

,08780 

,02*16 

,07721 

•02*06 

,7617 

• 7607 



WITH MAINLINE 



07*09 00000 
07976 00000 
077*3 00000 
077** 00000 
09*92 00000 
08680 00000 
08968 00000 
09516 00000 
08976 00000 
09820 00000 
08780 00000 
02*16 00000 
07721 00000 
02*06 00000 
07617 00000 
07607 00000 
077*5 00000 
00002 



13 



symbol table 



TYPE** 02416 
IN0AT4 07409 
MLB* 06004 

TCHA* 00066* 



SftLANR 00192* 

tNOATt 07395 

NEXT 0801ft 

HASH 00000(1 



NBLANK 07747 
ALTEMP 07724 
FLUS2 00176* 
X*EC 002708 



MOV*EC 00222* 
ERROR 00042* 
$P£C 00200* 



MONITR 02406 
INI T 07976 
STEMP 001 50* 



01010* 








01020* 












01030* 


INTRA* SUBPROGRAM 


WASH 






01040* 


THE FUNCTION OF THIS SUBPROGRAM IS TO 






01050* 


COMPRESS THE BLANKS IN THE INPUT STATEMENT 






01060* 


LINKAGE IS 


BTM MONITR, NNNNO 






01070* 






BTM MASH* IN0AT4 






01060* 






IN0AT4 IS THI 1ST POSITION IN # INPUT AREA 




fliife 

01100 


OC 


6*0 


00005 


00006 




Oil 10 NASH 


TP* 


IN0AT4*144»»10# 


SET RECORD MARK AT ENO OF INPUT AREA 










00006 


16 07553 


000-0 


01120 


OC 


l.S* 


00017 


00001 




01130 


SF 


IN0AT4*144,, V 


FLAG RECORD MARK 00018 


32 07553 


00000 


01140 


BNR 


TCHA A, HASH- 1,11 


t CHECK FO* RECORO MARK IN INPUT STATEMENT 








00030 


MN 00066 


OOOON 


01190* 






LOAD AND CALL TYPE** SUBPROGRAM 






01160 ERROR 


BTH 


MONI TR, 03090* 67 


00042 


17 02400 


-3090 


01170 


BTM 


TYPERR, 107,67 


000 54 


17 02410 


-0107 


01180 TCHA* 


BN* 


SBLANK.WASM-l ,11, CHECK FOR ENO OF INPUT AREA 












00066 


MN 00152 


OOOON 


01190 


BNF 


ERROR, WASH- I, 11 


« TEST FOR RECORO MARK IN STATEMENT 










000 78 


MM 00042 


OOOON 


01200 


BNF 


SPEC » NBLANK, , 


CHECK FOR BLANK CAKO 00090 


M4 00208 


07747 


02010 


TFH 


MLBR*6,NEXT », 


NO BLANK CARO-— SET MAINLINE 


BRANCH 










00102 


16 08810 


-8816 


02020 


CF 


HASH- It 9 6 


00114 


L3 OOOON 


00000 


02030 


CF 


NBLANK 


00126 


33 07747 


00000 


02040 STEMP 


TF 


AL TEMP, WASH- I 


00138 


20 07726 


00005 


02050* 






RETURN TO CALLING PROGRAM 






02060 


8B2 




00150 


42 00000 


00000 


02070 S BLANK 


CM , 


WASH-1,,610, 


CHECK FOR BLANK 00152 


J4 OOOON 


000-0 


02080 


BE 


MOVREC 


00164 


M6 00222 


01200 


02090 PLUS2 


AM 


WASH- I, 2, 10, 


INCREMENT TO NEXT CHARACTER 












00176 


Jl 00005 


000-2 


02100 


SF 


NBLANK 


00166 


32 07747 


00000 


02110 


B 


TCHAR 


00200 


M9 00066 


OOOOO 


02120 


00* G 


♦-3 


00206 






02130 SPEC 


TFH 


HLBR*6,INIT,, 


BLANK CARD SET MAINLINE BRANCH 










00206 


16 08810 


-7976 


02140* 






RETURN TO CALLING PROG* AM 






02150 


BB2 




00220 


42 00000 


OOOOO 


02160* 






PREPARE AOORESS TO ELIMINATE BLANK 




02170 MOVREC 


TF 


XREC+6.WASH-1 


00222 


KO 00276 


00005 


02160 


TF 


XREC* I I, WASH- I 


00234 


KO 00261 


00005 


02190 


SM 


XREC+6,1,10 


00246 


J2 00276 


OCO-1 


02200 


AM 


XREOU,1.10 


00258 


Jl 00281 


000- 1 


03010 XREC 


T* 


t * f 


MOVE LEFT TO ELIMINATE BLANK 












00270 


31 00000 


OOOOO 


03020 


osc 


2,49 


00282 


00002 




03030 


OSA 


TCHA* 


00288 


00005 -0066 



03040* 


COMMON AREA WITH f 


IA INLINE 






03050 MLBR 


OS 


,06804 




08804 


OOOOO 


03060 INIT 


OS 


,07976 




07976 


OOOOO 


03070 NEXT 


OS 


•08816 




08816 


OOOOO 


03060 NBLANK 


OS 


,07747 




07747 


OOOOO 


03090 MONITR 


OS 


,02406 




02406 


OOOOO 


03100 TYPERR 


OS 


,02416 




02*16 


OOOOO 


03110 IN0AT1 


OS 


,07395 




07395 


OOOOO 


03120 INDAT4 


OS 


,07409 




07409 


OOOOO 


03130 At TEMP 


OS 


,07720 




07726 


OOOOO 


03140 


OCNO 


MASH 




00006 





SYMBOL TABLE 



SRTVPE 07597 MAXMAJ 00225R AOSPOT 00150R D1CT 00006R MAJOR OQ227R 
MATCH ©005AR M JRT 00937R NXTRY 00200R RTYPE 07595 SPOT O0222R 



01010* 
C1020* 
01030* 
010*0* 
01050* 
01060* 
01070* 
01080* 
01090* 



IBM 1620-1311 AD-APT • 



1NTRAN SUBPROGRAM OfCTl 

THIS SUBPROGRAM 006 S A TABLE LCOKUP OF AO-APT SYSTEM WORDS 
TO DETERMINE IP A GIVEN WORD IS A MAJOR SYSTEM WORD 
BTM MONI TR,NNNNO 
BTM DICT1. PLACE 
PLACE IS THE AOORESS OF THE WORD TO BE LOOKED UP 



01100 


DC 


6*0 




00005 


00006 




OHIO OtCT 


TFM 


SP0T,,9» 


INITIALIZE NUMBER 


OF TRIES COUNTER 












00006 


J6 


00222 


00-00 


01120 


CP 


SRTYPE-1 




00018 


33 


07596 


00000 


01130 


TFM 


MATCH*6tMAJ0R«l0tt 


INITIALIZE TO COMPARE FIRST 


SYSTEM WORO 










000 30 


JO 


00060 


-0237 


Oil AO 


BV 


•♦12 




000*2 


M6 


0005* 


01*00 


01150 MATCH 


C 


9999, DICT-l, lit 


COMPARE WORD WITH 


SYSTEM WORD 














0005* 


2M 


09999 


OOOON 


01 160 


BV 


AOSPOT 




00066 


M6 


00150 


01*00 


01 1 70 


BNE 


ADSPOT 




00078 


M7 


00150 


01200 


01180* 


INOEX TO RECORO CORRESPONDING TO MORO FOUND 








01190 


MM 


SPOT,*, 10 




00090 


J3 


00222 


000- * 


01200 


AM 


99»MJRT 




00102 


1J 


00099 


-0937 


02010 


TF 


SRTYPE, 99, 11 , 


STORE RECORD IN COMMON AREA 
















0011* 


26 


07597 


0009R 


02020 


SF 


SRTYPE-l 




00126 


32 


07596 


00000 


02030 


BB 


t » t 


RETURN TO CALLING 


PROGRAM 
00138 


*2 


00000 


00000 


020*0 AOSPOT 


AM 


SPOT, 1,9, 


AOO 1 TO NUMBER Of 


TRIES 
00150 


Jl 


00222 


00-01 


02050* 


CHECK TO SEE IF ENTIRE 


DICTIONARY HAS BEEN SCANNED 








02060 


C 


SPOT, MAXMAJ 




00162 


KM 


00222 


00225 


02070 


BNH 


NXTRY 




0017* 


M7 


00200 


01100 


02080 


TFM 


SRTYPE, ,8, 


SET COMMON STORAGE 


AREA TO ZEROS 












00186 


16 


07597 


0-000 


02090 


BB2 


if t 


RETURN TO CALLING 


PROGRAMS 
00198 


*2 


00000 


00000 


02100 NXTRY 


AM 


MATCH*6,l2,10t 


INCREMENT TO NEXT 


DICTIONARY WORO 












00200 


Jl 


00060 


00OJ2 


02110 


B 


MATCH- 12,,. 


BRANCH TO COMPARE 


WITH NEXT 


WORO 












00212 


M9 


000*2 


00000 


02120 


DORG 


•-3 




00220 








02130* 


COMMON AREA WITH MAINLINE 










02140 SPOT 


DC 


i.o 




00222 


00003 




02150 RTYPE 


DS 


,07595 




07595 


00000 




02160 SRTYPE 


OS 


,07597 




07597 


00000 




02170 MAXMAJ 


DC 


3,58 




00225 


00003 




02180* 


DICTIONARY WORDS 












02190 MAJOR 


DAC 


6,CLEARP 




00227 


00012 




02200 


OAC 


1,X 




00239 


00002 




03010 


OAC 


5, TMARK 




002*1 


00010 




03020 


DAC 


6, REWIND 




00251 


00012 




03030 


DAC 


6.FE0RAT 




00263 


00012 





030*0 


OAC 


1 


X 


00275 


00002 


03050 


DAC 


5 


DELAY 


00277 


00010 


03060 


DAC 


6 


MACHIN 


00287 


00012 


030 70 


DAC 


1 


X 


00299 


00002 


03080 


DAC 


5 


SEQNO 


00301 


00010 


03090 


OAC 


6 


AUXFUN 


00311 


00012 


03100 


OAC 


6 


TOOLNO 


00323 


00012 


03110 


OAC 


6 


COOLNT 


00335 


00012 


03120 


DAC 


6 


SPINOL 


003*7 


00012 


03130 


OAC 


6 


TRACUT 


00359 


00012 


031*0 


DAC 


1 


X 


00371 


00002 


03150 


DAC 


5 


TLLFT 


00373 


00010 


03160 


OAC 


1 


X 


00383 


00002 


03170 


OAC 


5 


TLRGT 


00385 


00010 


03180 


DAC 


2 


XX 


00395 


0000* 


03190 


DAC 


* 


TLON 


00399 


00008 


03200 


DAC 


3 


XXX 


00*07 


00006 


0*010 


DAC 


3 


CUT 


00*13 


00006 


0*020 


DAC 


6 


DNTCUT 


00*19 


00012 


0*030 


DAC 


3 


XXX 


00*31 


00006 


0*0*0 


DAC 


3 


END 


00*37 


00006 


0*050 


OAC 


2 


XX 


00**3 


0000* 


0*060 


DAC 


* 


STOP 


00**7 


00008 


0*070 


OAC 


6 


OPSTOP 


00*55 


00012 


0*080 


DAC 


1 


X 


00*67 


00002 


0*090 


DAC 


5 


RAPIO 


00*69 


00010 


0*100 


DAC 


6 


INOIRP 


00*79 


00012 


0*110 


DAC 


6 


►INDIRV 


00*91 


00012 


0*120 


DAC 


2 


XX 


00503 


0000* 


0*130 


DAC 


* 


>FROM 


00507 


00008 


0*1*0 


DAC 


6 


GODLTA 


00515 


00012 


0*150 


DAC 


2 


,XX 


00527 


0000* 


0*160 


OAC 


* 


GOTO 


00531 


00008 


0*170 


DAC 


1 


X 


00539 


00002 


0*180 


DAC 


5 


TOLER 


005*1 


00010 


0*190 


DAC 


I 


»X 


00551 


00002 


0*200 


DAC 


5 


,INTOL 


00553 


00010 


05010 


DAC 


6 


OUTTOL 


00563 


00012 


05020 


DAC 


6 


CUTTER 


00575 


00012 


05030 


DAC 


2 


,XX 


00587 


0000* 


050*0 


DAC 


* 


,PS!S 


00591 


00008 


05050 


DAC 


* 


XXXX 


00599 


00008 


05060 


DAC 


2 


rGO 


00607 


0000* 


05070 


OAC 


6 


OFFSET 


00611 


00012 


05080 


DAC 


1 


X 


00623 


00002 


05090 


DAC 


5 


GOLFT 


00625 


00010 


05100 


OAC 


I 


X 


00635 


00002 


05110 


DAC 


5 


rGORGT 


00637 


00010 


05120 


DAC 


I 


X 


006*7 


00002 


05130 


DAC 


5 


GOFWO 


006*9 


00010 


051*0 


DAC 


6 


GOBACK 


00659 


00012 


05150 


DAC 


2 


XX 


00671 


0000* 


05160 


DAC 


4 


LINE 


00675 


00008 


05170 


OAC 


6, 


CIRCLE 


00683 


00012 


05180 


DAC 


6 


GCONIC 


00695 


00012 


05190 


OAC 


6, 


TABCYL 


00707 


00012 


05200 


OAC 


6 


VECTOR 


00719 


00012 


06010 


OAC 


6 


ELL I PS 


00731 


00012 


06020 


OAC 


6. 


MATRIX 


007*3 


00012 


06010 


OAC 


!< 


X 


0075$ 


00002 



06040 


DAC 


5*PIAN£ 


00757 


00010 


06050 


OAC 


UX 


00767 


00002 


06060 


DAC 


5, POINT 


00769 


00010 


06010 


OAC 


6, POCKET 


00779 


00012 


06080 


OAC 


6.NOP0ST 


00791 


00012 


06090 


OAC 


6, LEADER 


00803 


00012 


06100 


OAC 


6,l00PST 


00815 


00012 


061 10 


OAC 


6tlO0PN0 


00827 


00012 


06120 


DAC 


6*RESERV 


00839 


00012 


06130 


OAC 


2*XX 


00851 


00004 


06140 


OAC 


4«CAU 


00655 


00008 


06150 


OAC 


l»X 


00863 


00002 


06160 


OAC 


5*MACR0 


00865 


00010 


06170 


OAC 


6, JUHPTO 


00875 


00012 


06180 


OAC 


l»X 


00887 


00002 


06190 


DAC 


5*2SORF 


00889 


00010 


06200 


DAC 


4,XXXX 


00899 


00001 


07010 


OAC 


2. IP 


00907 


00004 


07020 


OAC 


61CPMTVP 


00911 


00012 


07030 


OAC 


6,CPMPUN 


00923 


00012 


07040* 


A 6 CORD TYPES COMESPONDINC TO SVSTIP NOMOS 






07050 HJRT 


DC 


4« 204 


00937 


00004 


07060 


DC 


4,205 


00941 


00004 


07070 


DC 


4*206 


00945 


00004 


07080 


DC 


4 209 


00949 


00004 


07090 






00953 


00004 


07100 


DC 


4» 2 1 5 


00957 


00004 


on 10 


DC 


4,219 


00961 


00004 


07120 


DC 


4*222 


00965 


00004 


071 30 


DC 


4§225 


00969 


00004 


07140 


DC 


4,230 


00973 


00004 


07150 


DC 


4*231 


00977 


00004 


07160 


OC 


4*238 


00981 


00004 


071 70 


DC 


4,401 


00965 


00004 


07180 


DC 


4,402 


00989 


00004 


07190 


DC 


4(403 


00993 


00004 


07200 


OC 


4,410 


00997 


00004 


08010 


DC 


4,411 


01001 


00004 


06020 


DC 


4,421 


01005 


00004 


08030 


OC 


4,422 


01009 


00004 


08040 


DC 


4,423 


01013 


00004 


08050 


DC 


4,425 


01017 


00004 


08060 


DC 


4,501 


01021 


00004 


08070 


DC 


4,502 


01025 


00004 


06080 


DC 


4,503 


01029 


00004 


08090 


OC 


4,504 


01G33 


00004 


081 00 


DC 


4,505 


01037 


00004 


08110 


DC 


4,602 


01041 


00004 


081 20 


DC 


4,60* 


01045 


00004 


081 30 


DC 


4,605 


01049 


00004 


08140 


OC 


4,606 


01053 


00004 


08150 


DC 


4,611 


01057 


00004 


08160 


OC 


4,701 


01061 


00004 


08170 


OC 


4,702 


01065 


00004 


08180 


DC 


4,801 


01069 


00004 


08190 


DC 


4,802 


01073 


00004 


08200 


DC 


4,803 


01077 


00004 


09010 


DC 


4,804 


01081 


00004 


09020 


DC 


4*1001 


01085 


00004 


09030 


DC 


4* 1002 


01089 


00004 



09040 


DC 


4*1003 


01093 


00004 


09050 


DC 


4*1004 


01097 


00004 


09060 


DC 


4*1005 


01101 


00004 


090 70 


DC 


4*1006 


01105 


00004 


09080 


DC 


4.1007 


01109 


00004 


09090 


DC 


4*1006 


01113 


00004 


09100 


DC 


4*1009 


01117 


00004 


09110 


DC 


4*1010 


01121 


00004 


09120 


DC 


4*1101 


01125 


00004 


09130 


DC 


4*1102 


01129 


00004 


09140 


DC 


4*1103 


01133 


00004 


09150 


DC 


4*1104 


01137 


00004 


09160 


f>f. 


4*1105 


01141 


00004 


09170 




4*1201 


01145 


00004 


09180 


OC 


4*1301 


01149 


00004 


09190 


OC 


4*1401 


01153 


00004 


09200 


DC 


4*1501 


01157 


00004 


100 10 


OC 


4*1901 


01161 


00004 


10020 


DC 


4*2101 


01165 


00004 


10030 


DC 


4*2102 


01169 


00004 


10040 


DEND 


01CT 


00006 





IS 



SYMBOt TABU 



SRTVPE 07597 MAXMAJ 002 19* AOSPOT 00140* OICT 00006* MA JO* 00217* 
MATCH 00054* MJ*T 00951* NXTRY 00190* «TYPE 07595 SPOT 00212* 



01010* 


IBM 1620-1311 A0- 




















01020* 
























01030* 


t NTRAN SUBPROGRAM 


0ICT2 
















01040* THIS SUBPROGRAM LOOKS 


UP 


MINO* MOOIF 


IER 


WORDS 








01050* 


IN 


THE AO-APT OICTICNARY 
















01060* 


LINKAGE IS 


BTM MONITR 


• NNNNO 












1070* 






BTM 0ICT2, 


PLACE 












01060* 


PLACE IS THE ADDRESS 


OF THE WORD 


TO 


BE LOOKED UP 






01090* 
























01 too 


DC 


6*0 














00005 


00006 




1 1 10 OICT 


TFM 


SPOT, ,9, 




INITIALIZE 


NUMBER 


OF TRIPS COUNTER 






















00006 


J6 00212 


00-00 


01120 


CP 


SRTYPE-l 














00016 


33 07596 


00000 


01 1 30 


TFM 


MATCH*6,MAJ0*H0»t 


INITIALIZE 


TO 


COMPARE 


FIRST SYSTEM WORO 




















00030 


JO 00060 


-C227 


01 1 40 


BV 


• ♦12 














00042 


M6 00054 


01400 


Oil ?0 rUlwn 


C 


9999,01CT-l,tl 


* 


COMPARE 


WORD 


WITH 


SYSTEM WORD 






















00C54 


2M 09999 


OCOON 


Oil 60 


BV 


AOSPOT 














00066 


M6 00140 


01400 


Oil 70 


8NE 


ADSPOT 














00078 


M7 00140 


01200 


01180* 


INDEX TO RECORO CORRESPONDING 


TO 


WORD FOUND 








01 1 90 


MM 


SPOT,*, 10 














00090 


J3 00212 


000—4 


1200 


AM 


99 V MJ*T 














00102 


1J 00099 


-0951 


020 10 


TF 


SRTYPE, 99,11, 




STORE RECORD 


IN COMMCN 


AREA 
























00114 


26 07597 


0009R 


02020 


SF 


SRTVPE-l 














00126 


32 07596 


00000 


020 30 


BQ2 


» * * 




RETURN 


TO 


CALLING 


PROGRAM 
























00138 


42 00000 


00000 


02040 AOSPOT 


AM 


SPOT, 1,9, 




AOO I TO NUMBER OF 


TRI 


ES 
























00140 


Jl 00212 


00-01 


02050* 






CHECK FO* 


ENO 


OF 


DICTIONARY 






02060 


C 


SPOT»MAXMAJ 














00152 


KM 00212 


00215 


02070 


BNH 


NXTRY 














00164 


M7 00190 


01 100 


02060 


TFM 


SRTYPE,*8, 




SET COMMON 


STORAGE 


AREA TO ZERO 






















00176 


16 07597 


0-000 


02090 


BB2 


t * * 




RETURN 


TO 


CALLING 


PROGRAM 
























00188 


42 00000 


00000 


02100 NX FRY 


AM 


MA TCH*6,12*10, 




INCREMNT TO NEXT 


ICTIONARY WORO 




















00190 


J I 00060 


0COJ2 


02110 


B 


MATCH- 12,,, 




BRANCH 


TO 


COMPARE 


NEXT 


WORD 
























00202 


M9 00042 


00000 


02120 


DO*G 


•-3 














00210 






021 30* 


COMMON AREA WITH 


MAINLINE 
















02140 SPOT 


DC 


3,0 














00212 


00003 




OZ 1 50 R 1 Trt 


OS 


,07595 














07595 


00000 






OS 


,07597 














07597 


00000 




A)| TO UlVMi 1 


DC 


3,60 














00215 


00003 






DICTIONARY WORDS 




















02190 MAJOR 


DAC 


6, ATANGL 














00217 


00012 






DAC 


6, CENTER 














00229 


00012 




030 10 


DAC 


1 * X 














00241 


00002 




03020 


DAC 


5, CROSS 














00243 


00010 




03030 


DAC 


1 * X 














00253 


00002 




03040 


OAC 


5, INTOF 














00255 


000 1 






DAC 


1»X 














00265 


00002 






DAC 


5, LARGE 














00267 


00010 




030 70 


DAC 


2, XX 














00277 


00004 




03080 


OAC 


4, LEFT 














0028 1 


00008 




03090 


DAC 


6, LENGTH 
















000 1 2 




031 00 


DAC 


l,x 














00 30 1 


00002 




03110 


OAC 


5, MINUS 




















031 20 


OAC 


3, XXX 














00313 


00006 




031 30 


OAC 


3,N0Z 














00319 


00006 




03140 


DAC 


6, PARLEL 














00325 


00012 




031 50 


DAC 


6,PERPT0 














00337 


00012 




03160 


OAC 


2, XX 














00349 


00004 




031 70 


DAC 


4, PLUS 














00353 


00008 




03180 


DAC 


6,RA01US 














00361 


00012 




03190 


OAC 


liX 














00373 


00002 




03200 


DAC 


5, RIGHT 














00375 


00010 




040 10 


OAC 


It X 














00385 


00002 




04020 


DAC 


5, SCALE 














00387 


00010 




0*0 30 


DAC 


l,X 














00397 


00002 




04040 


DAC 


5, SMALL 














00399 


00010 




04050 


DAC 


ItX 














00409 


00002 




04060 


DAC 


5, TANTO 














00411 


00010 




04070 


OAC 


l,X 














00421 


00002 




04080 


OAC 


5, TIMES 














00423 


00010 




04090 


DAC 


6, TRANSL 














00433 


00012 




04100 


OAC 


2, XX 














00445 


00004 




041 10 


DAC 


4, UNIT 














00449 


00008 




04120 


OAC 


6, XLARGE 














00457 


00012 




04130 


OAC 


6, XSMALL 














00469 


00012 




04140 


OAC 


6,XYPLAN 














00481 


00012 




04150 


OAC 


ItX 














00493 


00002 




04160 


DAC 


5, XYROT 














00495 


00010 




04170 


OAC 


6* YLARGE 














00505 


00012 




04180 


DAC 


6, YSMALL 














00517 


00012 




04190 


OAC 


6, ZLARGE 














00529 


00012 




04200 


OAC 


6,ZSMALL 














00541 


00012 




05010 


DAC 


6,*THETA 














00553 


00012 




05020 


OAC 


6,INTERC 














00565 


00012 




05030 


OAC 


l«x 














00577 


00002 




05040 


OAC 


5, SLOPE 














00579 


00010 




05050 


OAC 


4,XXXX 














00589 


00008 




05060 


OAC 


2, IN 














00597 


00004 




05070 


OAC 


3,XXX 














00601 


00006 




05060 


OAC 


3, OUT 














00607 


00006 




05090 


OAC 


6,N0M0RE 














00613 


00012 




05100 


OAC 


2, XX 














00625 


00004 




05110 


DAC 


4, CCLM 














00629 


00008 




05120 


OAC 


3, XXX 














00637 


00006 




05130 


OAC 


3.CLW 














00643 


00006 




05140 


OAC 


6, MEDIUM 














00649 


00012 




05150 


OAC 


2, XX 














00661 


00004 




05160 


OAC 


4, HIGH 














00665 


00008 




05170 


OAC 


3, XXX 














00673 


00006 




05180 


OAC 


3»L0W 














00679 


00006 




05190 


OAC 


4#XXXX 














00685 


00008 




05200 


OAC 


2*T0 














00693 


00004 




06010 


DAC 


4»XXXX 














00697 


00008 




06020 


OAC 


2. ON 














00705 


00004 




06010 


OAC 


St XXX 














00709 


00006 





06040 


DAC 


3,QFF 


00715 


00006 


06030 


DAC 


2, XX 


00721 


00004 


06060 


DAC 


4,PAS¥ 


00725 


00006 


060 70 


OAC 


i*X 


00733 


00002 


060S0 


OAC 


5«FL000 


00735 


00010 


06090 


OAC 


2»XX 


00745 


00004 


06100 


OAC 


4, MIST 


00749 


00008 


061 10 


DAC 


3#XXX 


00757 


00006 


061 20 


DAC 


3, TAP 


00763 


00006 


061 30 


OAC 


6* SPLINE 


00769 


00012 


06140 


OAC 


3, XXX 


00781 


00006 


06150 


OAC 


3» ALL 


00787 


00006 


06160 


OAC 


6.BEN0IX 


00793 


00012 


061 70 


OAC 


2tXX 


00805 


00004 


061 80 


OAC 


4 f BURG 


00809 


00006 


06190 


DAC 


ltX 


00617 


00002 


06200 


DAC 


5»CINCY 


00819 


000 10 


07010 


DAC 


6»CONCR0 


00829 


00012 


07020 


DAC 


6,DVLIEG 


00841 


00012 


070 30 


DAC 


6,DYNPAT 


00853 


00012 


07040 


DAC 


3»XXX 


00865 


00006 


07050 


DAC 


3»ECS 


00871 


00006 


07060 


DAC 


6,F0SDIK 


00877 


00012 


07070 


OAC 


6»GECENT 


00689 


00012 


07060 


DAC 


6t HI LWAK 


00901 


00012 


07090 


DAC 


6t PRATTM 


00913 


00012 


7100 


DAC 


6 f TRUTRA 


00925 


00012 


07110 


OAC 


3»XXX 


00937 


00006 


7120 


OAC 


3, TRW 


00943 


00006 


071 30» 


RECORD TYPES CORRESPONDING 


TO DICTIONARY WOROS 




07140 HJRT 


DC 


4,301 


00951 


00004 


07150 


DC 


4,302 


00955 


00004 


07160 


DC 


4,303 


00959 


00004 


07170 


DC 


4,305 


00963 


00004 


07180 


DC 


4,307 


00967 


00004 


07190 


DC 


4,308 


00971 


00004 


07200 


DC 


4,309 


00975 


00004 


08010 


OC 


4,310 


00979 


00004 


08020 


DC 


4,316 


00983 


00004 


08030 


DC 


4,317 


00987 


00004 


08040 


DC 


4,318 


00991 


00004 


08050 


OC 


4,319 


00995 


00004 


08060 


OC 


4,323 


00999 


00004 


08070 


OC 


4,324 


01003 


00004 


08080 


OC 


4,325 


01007 


00004 


08090 


OC 


4,326 


01011 


00004 


08100 


DC 


4,327 


01015 


00004 


081 10 


OC 


4,328 


01019 


00004 


08120 


DC 


4,329 


01023 


00004 


081 30 


DC 


4,330 


01C27 


00004 


08140 


OC 


4,331 


01031 


00004 


08150 


DC 


4,332 


01035 


00004 


08160 


OC 


4,333 


01039 


00004 


06170 


DC 


4,334 


01043 


00004 


08180 


DC 


4,335 


01047 


00004 


08190 


DC 


4,336 


01C51 


00004 


08200 


OC 


4,339 


01055 


00004 


09010 


OC 


4,340 


01059 


00004 


09020 


DC 


4,342 


01063 


00004 


09030 


DC 


4,34b 


01067 


00004 



09040 


DC 


4,347 


01071 


00004 


09050 


DC 


4,348 


01075 


00004 


09060 


DC 


4,349 


01079 


00004 


090 70 


DC 


4,353 


01083 


00004 


09080 


OC 


4,359 


01087 


00004 


09090 


DC 


4,360 


01091 


00004 


09100 


OC 


4,361 


01095 


00004 


091 10 


OC 


4,362 


01099 


00004 


09120 


DC 


4,363 


01103 


00004 


091 30 


DC 


4,369 


01107 


00004 


09140 


DC 


4,371 


Olill 


00004 


09150 


OC 


4,372 


01115 


00004 


09160 


OC 


4,376 


01119 


00004 


09170 


DC 


4,389 


01123 


00004 


09180 


DC 


4,390 


01127 


00004 


09190 


. DC 


4,391 


01131 


00004 


09200 


OC 


4,392 


01135 


00004 


100 10 


DC 


4,393 


01139 


00004 


10020 


DC 


4,2001 


01143 


00004 


10030 


OC 


4,2002 


01147 


00004 


10040 


DC 


4,2003 


01151 


00004 


10050 


DC 


4,2004 


01155 


00004 


10060 


OC 


4,2005 


01159 


00004 


10070 


DC 


4,2006 


01163 


00004 


10080 


OC 


4,2007 


01167 


00004 


10090 


DC 


4,2008 


01171 


00004 


10100 


OC 


4,2009 


01175 


00004 


101 10 


DC 


4,2010 


01179 


00004 


10120 


OC 


4,2011 


01163 


00004 


10130 


OC 


4,2012 


01187 


00004 


10140 


OC 


4,2013 


01191 


00004 


101 SO 


OEND 


DICT 


00006 





SYMBOL f ABLE 



SRTYPE 07597 
HATCH 0005*11 



MAXMAJ 00215R 
MJRT 00447R 



AOSPOT 00140ft 
NXTRY 00190* 



OICT 00006R 
RTVPE 07595 



MAJOR 00217R 
SPOT 002 12R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090 

01100 DICT 

Oil 10 
01120 

01130 

011*0 MATCH 

01150 

01160 

01170* 

01180 

01190 

01200 

02010 
02020 



IBM 1620-1311 AO-APT. 



SRTYPE-l 

MATCH*6,MAJ0RM0,« 



• ♦12 

9999,DICT-l,ll v 



99, MJRT 
SRTYPE, 99, 11, 



02030 AOSPOT 

020*0* 

02050 
02060 
02070 

02080 

02090* 
02100 NXTRY 



021 10 

02120 
02130* 
021*0 SPOT 
02150 RTYPE 
02160 SRTYPE 
02170 MAXMAJ 
02180* 
02190 MAJOR 
02200 
03010 
3020 
03030 



I NTRAN SUBPROGRAM 0ICT3 

THIS SUBPROGRAM LOOKS UP FUNCTION COMPUTE HOROS 
LINKAGE IS BTM MONI TR«NNNN0 

BTM 01CT3, PLACE 
PLACE IS THE AOORESS OP THE WORD TO BE LOOKED UP 

OC 6*0 00005 00006 

TFM SPOT,, 9, INITIALIZE NUMBER OP TRIES MADE 

00006 J6 00212 00-00 

00018 33 07596 00000 

INITIALIZE TO LOOK AT FIRST WORD 

00030 JO 00060 -C227 

00042 M6 0005* 01*00 
COMPARE WITH SYSTEM WORD 

0005* 2M 09999 OCOON 

AOSPOT 00066 M6 001*0 01*00 

AOSPOT 00078 M7 001*0 01200 

INDEX THE CORRECT RECORO TYPE 

SPOT,*, 10 00090 J3 00212 000-* 

00102 IJ 00099 -0**7 
STORE CORRESPONDING RECORO IN COMMON ARE 

0011* 26 07597 0009R 

SRTYPE-l 00126 32 07596 00000 

ttt RETURN TO CALLING PROGRAM 

00138 *2 00000 00000 
AM SPOT. 1,9, INCREMENT NUMBER OF TRIES MADE 

001*0 Jl 00212 00-01 
CHECK TO SEE IF ENTIRE DICTIONARY HAS BEEN SCANNED 

C SPOT, MAXMAJ 00152 KM 00212 00215 

BNH NXTRY 0016* M7 00190 01100 

TFM SRTYPE , ,8, SET COMMON AREA TO ZEROS 

00176 16 07597 0-000 
BB2 ,,, RETURN TO CALLING PROGRAM 

00188 *2 00000 00000 

INCREMENT AND CHECK NEXT DICTIONARY WORO 
AM MATCH+6,12,l0t INCREMENT TO NEXT WORD 

00190 Jl 00060 O0OJ2 
B MATCH— I2t i t BRANCH TO COMPARE NEXT WORD 

00202 M9 000*2 00000 
DQRG *-3 00210 

COMMON AREA WITH MAINLINE 

OC 3,0 00212 00003 

DS ,07595 07595 00000 

DS ,07597 07597 00000 

DC 3,18 00215 00003 

DICTIONARY WORDS 



CF 
TFM 



BV 
C 



BV 
BNE 



AM 

TF 



SF 
BB2 



DAC 
DAC 
DAC 
DAC 
DAC 



ltX 

5, SORTF 
2, XX 
*,SINF 
2, XX 



00217 00002 
00219 00010 
00229 0000* 
00233 00008 
002*1 0000* 



030*0 


DAC 


*,COSF 


002*5 


00008 


03050 


DAC 


1,X 


00253 


00002 


03060 


DAC 


5, ATANF 


00255 


00010 


03070 


DAC 


2, XX 


00265 


0000* 


03080 


DAC 


*,ABSF 


00269 


00008 


03090 


DAC 


l,x 


00277 


00002 


03100 


DAC 


5,LNTHF 


00279 


00010 


031 10 


DAC 


2, XX 


00289 


0000* 


03120 


DAC 


*,L0GF 


00293 


00008 


031 30 


DAC 


2, XX 


00301 


0000* 


031*0 


DAC 


*,expf 


00305 


00008 


03150 


DAC 


2, XX 


00313 


0000* 


03160 


DAC 


*, TANF 


00317 


00008 


031 70 


DAC 


*, XXXX 


00325 


00008 


0H9Q 


DAC 


2, IF 


00111 


0000* 


03190 


OAC 


2, XX 


00337 


0000* 


03200 


DAC 


*,SORT 


003*1 


00008 


0*010 


DAC 


3 » X X X 


003*9 


00006 


0*020 


OAC 


3, SIN 


00355 


00006 


0*0 30 


DAC 


3, XXX 


00 361 


00006 


0*0*0 


DAC 


3, COS 


00367 


00006 


0*050 


DAC 


2, XX 


00373 


0000* 


0*060 


DAC 


* , ATAN 


00377 


00008 


0*070 


DAC 


3, XXX 


00385 


00006 


0*080 


OAC 


3,ABS 


00391 


00006 


0*090 


DAC 


2, XX 


00397 


0000* 


0*100 


DAC 


*, LNTH 


00*01 


00008 


0*1 10 


OAC 


3, XXX 


00*09 


00006 


0*120 


DAC 


3, LOG 


00*15 


00006 


0*130 


OAC 


3, XXX 


00*21 


00006 


0*1*0 


OAC 


3, EXP 


00*27 


00006 


0*150 


DAC 


3, XXX 


00*33 


00006 


0*160 


OAC 


3, TAN 


00*39 


00006 


0*170* 


RECORO TYPES CORRESPONDING TO SYSTEM WOROS 






0*180 MJRT 


DC 


4,-901 


00*47 


0000* 


0*190 


DC 


*,-902 


00*51 


00004 


0*200 


DC 


*,-903 


00*55 


0000* 


05010 


DC 


*,-90* 


00*59 


0000* 


05020 


OC 


*,-905 


00*63 


0000* 


05030 


OC 


*,-906 


00*67 


0000* 


050*0 


DC 


*,-907 


00*71 


0000* 


05050 


DC 


4,-908 


00*75 


0000* 


05060 


DC 


*,-909 


00*79 


0000* 


05070 


DC 


*,1901 


00*83 


0000* 


05080 


DC 


*,-90l 


00*87 


0000* 


05090 


DC 


*,-902 


00*91 


00004 


05100 


DC 


*,-903 


00*95 


00004 


05110 


DC 


4,-904 


00*99 


00004 


05120 


DC 


*,-905 


00503 


00004 


05130 


OC 


4,-906 


00507 


00004 


051*0 


DC 


4,-907 


00511 


00004 


05190 


OC 


4,-908 


00515 


00004 


05160 


OC 


*,-909 


00519 


00004 


05170 


DENO 


OICT 


00006 





TVPEKR 02416 
NXTC.MK 001428 
ADAL 00678R 
CHKNO 01030R 
DIGIT 00958R 
ERROR 01620R 
FINK O12S0R 
L0G03 01170R 
N0T70 00946R 
PLUS 00054ft 
SCAM 08S52 
STOP 07713 
1*0 01643ft 



TEMAI.S 07*96 
M0N1 TR 02406 
ALPHA 005 74R 
CHK03 0U46R 
EAOO 01305R 
ERR? 00710R 
FLAG 00466R 
LOG 70 00894R 
ODD 00B09R 
POSE 01306R 
SCHK3 00178R 
STRIP 007 38R 



SYMBOL 


TABIC 


SE TERR 


006SBR 


I LNE XT 




CHAR 


000 1 5R 


CHK2 


00Z^4R 


EMOO 


01414ft 


E TYPE 


1294 R 


I ND 


07707 


MINUS 


00374R 


OPS 


00098ft 


POSN 


00894ft 


SIGNE 


01302ft 


TEMP 


00039ft 



RETURN 00274R 
C0H5CN 00737R 
CHK 07691 
CHK70 00870R 
ERR 07682 
EXIT 01510R 
INIT 07976 
NEGE 01560ft 
PAREN 00118ft 
ftEOPT 01114ft 
SIGNN 00925ft 
TftUNC 01600ft 



PRETEM 07712 
ALSCAN 00006ft 
CHKE 012 TOR 
OECPT 01078R 
ERRNO 07707 
EXP 00098 
IWP 00187R 
NEGM 00926R 
PLACE 07743 
SAVER 00202R 
SRT 01580R 
TSIGN 01512ft 



01010* 


IBM 1620-1311 AD- 












OIO20* 














01030* 


INTRAN SUBPROGRAM 


ALSCAN 








01040* 


THE FUNCTION OF THIS 


SUBPROGRAM 








01050* 


IS TO SCAN THE ELEMENTS IN THE INPUT STATEMENT 








01060* 


A NO COLLECT A SYMBOL • 


NUMBER, OR PUNCTUATION 








01070* 


LINKAGE IS 


BTM MONI TR ,NNNNO 








01080* 




BTM ALCAN, PLACE 








01090* 


PLACE tS THE ADDRESS 


OF THE FIRST CHARACTER OF THE 


MORO 




01100* 














Oil 10 


OC 6,0 




00005 


00006 




01120 ALSCAN 


SF *,,, 




ALSCAN IS FLAGGED FOR THE FIRS1 


r WORD 










00006 


L2 


00006 


00000 


01130 CHAR 


OS ,*-2 




00015 


00000 




01140 


TFM CHK, ,10* 




INITIALIZE CHECK INDICATOR 














00018 


16 


07691 


000-0 


01150 


TFM CHAR., 10, 




INITIALIZE CHARACTER COUNT 














00030 


J6 


00015 


000-0 


01160 TEMP 


OS ,*-2 




000 39 


00000 




01170* 


STORE FIRST CHARACTER 










01180 


TF TEMP, ALSCAN- 1 , 


11 


00042 


KO 


00039 


OOOON 


01190 PLUS 


CM TEMP, 10, 10* 




CHECK FOR PLUS SIGN 00054 


J4 


00039 


OOOJO 


01200 


BNE MINUS 




00066 


M7 


00374 


01200 


02010* 


CHECK FOR OPERATION 


Oft SIGN 








02020* 


PRETEM HAS A FLAG 


IF 


IT IS A SIGN 








020 30 


BNF SCHK 3, PftETEM 




00078 


M4 


00178 


07732 


02040 


B CHK2,,* 




FLOAT A NUMBER 00090 


M9 


00294 


00000 


02050 


DOR 6 *-3 




00098 








02060 OPS 


CF PRETEM,,, 




RESET PRETEM SWITCH 00098 


33 


07732 


00000 


02070 


B SCHK 3* • , 




BRANCH TO SPECIAL CHARACTER 














00110 


M9 


00178 


coooo 


02080 


OORG »~3 




00118 








02090 PAREN 


CM TEMP, 04, 10, 




CHECK FOR RIGHT PARENTHESIS 














00118 


J4 


00039 


000-4 


02100 


BE OPS 




00130 


M6 


00098 


01200 


02110 


CM TEMP, 24, 10, 




CHECK FOR LEFT PARENTHESIS 














00142 


J4 


00039 


000K4 


02120 


BE OPS 




00154 


M6 


00098 


01200 


02130* 


THE ELEMENT IS A 


SPECIAL CHARACTER NOT A LEFT OR RIGHT 




02140* 


PARENTHESIS 












02150 


SF PRETEM, , » 




SET PRETEM SWITCH 00166 


32 


07732 


00000 


02160 SCMK 3 


TFM CHK ,3,10, 




SET CHK«3 FOR SPECIAL CHARACTER 





02170 IWP 
02180 



OS ,»-2 

AM ALSCAN-1,2,10, 



02190 SAVER TF 



02200* 
03010* 
03020 

030 30* 
03040 
03050 

03060 

OK) TO 

03080* 

03090 RETURN 
03100 

03110 CHK 2 
03120* 
03130 
03140 

03150 

03160* 

03170 NXTCHK 

03180 
03190 

03200 MINUS 
04010 
04020 

04030 
04040* 
04050* 
04060 
04070 
04080 

04090 

04100 
04110* 
04120* 



• ♦24 

STOP,,, 



ALSCAN-1,2,10, 
PI ACE, ALSCAN- I,, 



00178 16 07691 000-3 
00187 00000 
INCREMENT TO NEXT CHARACTER 

00190 J I 00005 000-2 
ILNEXT,ALSCAN-l,ll, STORE NEXT CHARACTER IN ILNEXT 

00202 20 07698 OCOON 
IS THIS THE END OF THE STATEMENT 
IF SO INDICATE BY SETTING A FLAG AT STOP 
CM ILNEXT,22»10t END OF STATEMENT IS INDICATED BY— 

00214 14 07698 CC0K2 

A 22 IN ILNEXT 

00226 M7 00250 01200 
FLAG AT STOP INDICATES END OF SCAN 

00238 32 07713 GCOOO 
DECREMENT TO ADDRESS OF ELEMENT 

00250 J2 00005 000-2 
STORE THE AOORESS OF THE ELEMENT 

00262 20 07743 00005 

RETURN 
TF TEMALS,ALSCAN-1 
B7 SCAN«12,,« 
TFM CHK ,2,10, 

BRANCH TO FLOAT THE NUMBER 
BTM STRIP, ALSCAN-1 00306 JP 00738 -0005 

ERRT, INO-2, , DIGIT IN I NO INDICATES BAD NUMBER 

00318 M3 00710 07705 
1LNEXT,ALSCAN-I»ll» STORE CHARACTER FOLLOWING NUMBER IN— 

00330 20 0769B OOOON 

ILNEXT 

IS IT A LEGAL CHARACTER 

00342 14 07698 00OK4 
00354 M7 00214 01100 
ILLEGAL PUNCTUATION GO TO ERROR 

00366 M9 00710 00000 
CHECK FOR MINUS SIGN 00374 J4 00039 OOOKO 
00386 M6 00078 01200 
SEPARATE ALPHA AND NUMERIC FROM PUNCT 

00398 J4 00039 OOOMO 
00410 M6 00466 01100 



BNE 

SF 



SM 
TF 



BO 
TF 

CM 

BNH 
B7 

CM 
BE 
CM 



00274 20 07696 00005 
RETURN TO MAINLINE 00286 49 08864 00000 
SET CHK»2 FOR NUMBER 00294 16 07691 00 0-2 



ILNEXT, 24, 10. 

SAVER*12 

ERRT,,, 

TEMP, 20, 10, 
PLUS*24 
TEMP, 40, 10, 



8H 



FLAG 

IT tS PUNCTUATION 
CHECK IF ITS THE FIRST CHARACTER OF THE WORD 
BNF RE TURN- 72 , ALSCAN 00422 MM 00202 00006 

CM TEMP, 03,10, IS IT A OECIMAL POINT 00434 J4 00039 000-3 

BE CHK2, , , BRANCH TO FLOAT A NUMBER 

00446 M6 00294 01 2 
B PAREN, ,, SET UP FOR SPECIAL CHARACTER 

00458 M9 00118 00000 
OORG *-3 00466 

IS IT THE FIRST CHARACTER OF THE WORD — IF SI SKIP OVER 
DETERMINATION OF TYPE 

00466 MM 00574 00006 
ITS A SYMBOL Oft NUMBER —CLEAR PRETEM 

004 7« 33 07732 00000 
CLEAR FIRST MORO FLAG 00490 L3 00006 00000 
TRANSFER 1ST DIGIT TO CHECK INDICATOR 

00502 20 07691 00039 
•0514 15 07691 00000 

00526 14 07691 OOOPO 

BRANCH TO FLOAT NUMBER 



04130 FLAG 


BNF 


ALPHA, ALSCAN 


04140 


CF 


PRETEM, # » 


04150 


CF 


ALSCAN* * » 


04160 


TF 


CHK, TEMP, 9 


04170 


TOM 


CHK, , 


04180* 


IS 


IT A NUMBER 


04190 


CM 


CHK, 70* 10 


04200 


BE 


CMK2**» 



20 













00536 


M6 


00294 


01200 


05010 


TFM 


CHK.l.lO, 




SET CHK«l FOR A SYMBOL 


















00550 


16 


07691 


000- 1 


05020 


8 


ALPHA* 36. , , 




BRANCH TO COLLECT NEXT CHARACTER 














00562 


M9 


00610 


00000 


0*030 ALPHA 


SM 


ALSCAN-l.l.lO 






00574 


J2 


00005 


000- 1 


05040 


CP 


ALSCAN-l.,6. 




CLEAR THE FLAG FOR THIS CHARACTER 














00586 


L3 


OOOON 


00000 


05050 


AM 


ALSCADHl.lt 10 






00598 


Jl 


00005 


000-1 


05060 


AM 


CHAR .1,10. 




INCREMENT CHARACTER COUNT 


















00610 


Jl 


000 15 


000-1 


05070* 


SIX IS MAXIMUM NUMBERS OF CHAR 










05080 


CM 


CHAR, 6,10 






00622 


J4 


00015 


000-6 


05090 


BNH 


ADAL 






00634 


M7 


00678 


01100 


05100 


TFM 


PLACE 1 102 • , 




ERROR CONDITION 


00646 


16 


07743 


-0102 


05110 SETERR 


TFM 


ERR, 2, 10 






00658 


16 


07682 


000-2 


05120 


87 


SCAN*12,,, 




RETURN TO MAINLINE 


00670 


49 


08864 


00000 


05130* 


INCREMENT TO LOOK 


AT 


NEXT CHARACTER 










05140 A DAI 


AM 


ALSCAN-l.2.10 






00678 


Jl 


00005 


000-2 


05150 


TF 


TEMP. ALSCAN-l .! 


kit 


STORE NEXT CHARACTER 


IN TEMP 
















00690 


KO 


00039 


OOOON 


05160 


B 


MINUS*24 






00702 


M9 


00398 


00000 


051T0 




•-3 






00710 








05180 ERRT 


TFM 


PLACE. 101,, 




ERROR CONDITION 


00710 


16 


07743 


-0101 


05190 


B7 


SETERR 






00722 


M9 


00658 


00000 


05200 


BB2 








00730 


42 


00000 


00000 


06010 COMSCN 


DC 


6,0 






00737 


00006 




06020* 




IBM 1620-1311 


AOAPT NUMERIC STRIP SUBROUTINE 








06030* 














RCS 


06040* 




LINKAGE - BTM 


STRIP, COMSCN 










06050 STRIP 


TFL 


EXP.ZRO,, 




CLEAR FLOATING-POINT 


WORC 
00738 


00 


00098 


01643 


06060 


TOM 


STR1P+19..U 






00750 


J5 


00757 


0000- 


06070 


CF 


LDG03UI 






00762 


L3 


01181 


00000 


06080 


TFM 


CHKN0+18.D1GIT 






00774 


JO 


01048 


-0958 


06090 




0IG1T+18.EXP-9 






00786 


J6 


00976 


-0089 


06100 


CF 


SIGNM. . . 




ASSUME POSITIVE MANTI 


SSA 

00798 


L3 


00925 


00000 


061 10 


TF 


ODD, COMSCN, 11, 




MOVE AD0R6SS AT WHICH 


SCAN BEGINS 














00810 


KO 


00809 


0073P 


06120 


CM 


000,20.610 






00822 


J4 


0080R 


OOOKO 


06130 


BE 


NEGM,,, 




BRANCH IF NEGATIVE MANTISSA 


















00834 


M6 


00926 


01200 


06140 


CM 


000,10,610 






00846 


J4 


0080R 


OOOJO 


06150 


BE 


POSM, ,, 




BRANCH IF LEAOING ♦ SIGN 


















00858 


M6 


00894 


01200 


06160 CHK70 


CM 


000,70,610 






00870 


J4 


0080R 


OOOPO 


06170 


BNE 


N0T70... 




BRANCH IF NOT LEAOING 


ZERO 
00882 


M7 


00946 


01200 


06180 LDG70 


AM . 


000,2.10 






00894 


Jl 


00809 


000-2 


06190 


SF 


LOGO 3 ♦ 11 






00906 


L2 


01181 


00000 


06200 


B 


CHK70 






00918 


M9 


00870 


00000 


7010 


OORG 


•-4 






00925 








07020* 


















07030 SIGNM 


OC 


ltO 






00925 


00001 




07040 NEGM 


SF 


SIGNM,,. 




LEAOING - SIGN 


00926 


L2 


00925 


00000 


07050 


B 


LDG70 






00938 


M9 


00894 


00000 


07060 


OORG 


•-3 






00946 








070 70* 


















07080 NOT70 


BL 


CHK03, , , 




BRANCH IF NCN-OIGIT 


00946 


M7 


01146 


01300 



07090 


DIGIT 


AM 


EXP, 1,10, 


07100 




TO 


,000,11, 


07110 




CM 


DIGITUS, EXP-2 


07120 




BNL 


TRUNC , , , 


07130 




AM 


DiGime, 1,10 


07140 




AM 


000,2,10 


07150 


CHKNO 


CM 


000,70,610 


07160 




BNL 




07170 




CM 


000,3,610 


07180 




BNE 


CHKE,,, 


07190 


DECPT 


TFM 


CHKN0*18.DIGIT*12 


07200 




TF 


REDPT+6.00D 


08010 




AM 


REDPT*6,2,10 


08020 


REOPT 


CM 


9999,3,10 


08030 




BE 


ERROR 


08040 




B 


ChKNO-12 


08050 




OORG 


•-3 


08060* 






08070 


CHK03 


CM 


000,3,610 


08080 




BNE 


EXIT-72,,. 


08090 


LOGO 3 


TOM 


STRIP+19 


08100 




AM 


000,2*10 


081 10 




CM 


000,70,610 


08120 




BNE 


FINK,,, 


08130 




TOM 


STRlP*19.,ll 


08140 




SM 


EXP,l.lOt 


08150 




B 


L0G03*12 


08160 




OORG 


•-3 


08170* 






08180 


F INK 


SM 


000,2.10 


08190 




B 


OECPT 


08200 




DORG 


•-3 


09010* 






09020 


CHKE 


CM 


000,45,610 


09030 




BNE 


EXIT-72. ,. 


09040 


6TYP6 


CF 


SIGNE..910* 


09050 




AM 


000,2,10 


09060 




CM 


000,70,610 


09070 




BL 


TSIGN, , , 


09080 




AM 


000,2,10 


09090 




TNS 


000, E ADD, 6. 


09100 




CM 


000.70.610 


09110 




BL 


SR T , » . 


09120 




AM 


boo, 2, 10 


09130 




MF 


EADO. S1GNE . . 


09140 


EMOO 


A 


EXP.EADO.. 


09150 




BV 


ERROR.. . 


09160 




MF 


EXP-2.SIGNM.. 


09170 




SF 


6XP-9... 


09180 




TF 


COMSCN, OOD. 6 


09190 




BO 


EXlT.EXP-9,, 



INCREMENT EXPONENT 


00958 


11 


00098 


CCO- I 


STRIP ALPHA WORD 


00970 


2N 


00000 


0080R 




00982 


J4 


00976 


-0096 


BRANCH IF 8 SIGNIFICANT DIGITS 


STRIPPEO 




00994 


M6 


016C0 


01300 




01006 


Jl 


00976 


OCO-1 




01018 


Jl 


00809 


000-2 




01030 


J4 


0080R 


OOOPO 


BRANCH IF DIGIT 


01042 


46 


00000 


01300 




01054 


J4 


0080R 


000-3 


BRANCH IF NOT DECIMAL 


POINT 










01066 


M7 


01270 


01200 




01078 


JO 


01048 


-C970 




01090 


KO 


01120 


00809 




01102 


Jl 


01120 


COO-2 




01114 


14 


09999 


000-3 




01126 


M6 


01620 


01200 




01138 


M9 


01018 


OCOOO 




01146 










01146 


J4 


0080R 


000-3 


BRANCH IF NOT DECIMAL I 


POINT 










01158 


M7 


01438 


01200 




01170 


J5 


00757 


00000 




01182 


Jl 


008C9 


000-2 




01194 


J4 


0080R 


OOOPO 


BRANCH IF NOT LEAOING 


ZERO 










01206 


M7 


01250 


01200 




01218 


J5 


00757 


0000- 


DECREMENT EXPONENT 


01230 


12 


00098 


000- 1 




01242 


M9 


01182 


00000 



01250 J2 00809 000-2 

01262 M9 01078 00000 
01270 

01270 J4 0080R O0OM5 

BRANCH IF E TYPE NUMBER 

01282 M7 01438 01200 

ASSUME POSITIVE EXPONENT AOOENO * 

01294 L3 01302 00—0 

01306 Jl 00809 000-2 

01318 J4 0080R OOOPO 

BRANCH IF NON-DIGIT 01330 M7 01512 01300 

01342 Jl 00809 000-2 

STRIP EXPONENT ADDEND 01354 PK 0080R 01305 

01366 J4 0080R OOOPO 
BRANCH IF 1-OIGIT AOOENO 

01378 M7 01580 01300 

01390 Jl 00809 000-2 
SET SIGN EXPONENT AOOENO 

01402 PJ 01305 01302 

ADJUST EXPONENT 01414 2J 00098 01305 
BRANCH IF NUMBER OUT OF RANGE 

01426 M6 01620 01400 

SET MANTISSA SIGN 01438 7J 00096 00925 

SET HIGH-OROER FLAG 01450 32 00089 00000 

01462 KO 00T3P 00809 
BRANCH IF NUMBER IS NOW-IERO 



page 5 













01474 


M3 01510 


00089 


09200 


TFM 


EXP,-99,10 






01486 


16 00098 


COORR 


10010 


BHF 


ERR0R(STR1P*19 






01498 


MM 01620 


00757 


10020 EXIT 


BB 








01510 


42 00000 


OGOOO 


10030 


DORG 


'•*9 ■ 






01512 






10040* 
















10050 TSIGN 


CM 


000. 10.6&0 






01512 


J4 0080R 


000 JO 


10060 


BE 


POSE • f * 


BRANCH IF 


POSITIVE 


EXPONENT 
01524 


AOOENO 
M6 01306 


01200 


10070 


CM 


000,20,610 






01536 


J4 0080R 


OOOKO 


10080 


8N6 


ERROR 


BRANCH IF 


NOT * SIGN 01548 


M7 01620 


01200 


10090 NEGE 


SF 


SIGNEtf t 


SET SIGN 


EXPCNENT 


AOOENO 

01560 


L2 01302 


00000 


10100 


B 


POSE 






01572 


M9 01306 


00000 


iOilO 


DORG 








01580 






10120* 
















10130 SAT 


TF 


EADD,EAD0-1 






01580 


KO 01305 


01304 


10140 


B 


EM00-12 






01592 


M9 01402 


00000 


10150 


DORG 


•-3 






01600 






10160* 
















10170 TRUNC 


TEN 


0IGIT*i8.CHK03-l 






01600 


JO 00976 


-1145 


10160 


6 


CHKNO-12 






01612 


M9 01018 


00000 


10190 


DORG 


•-3 






01620 






10200* 
















11010 ERROR 


TFM 


ERRNO, 100,9 






01620 


16 07707 OOJOO 


11020 


B8 


» » t 


EXIT 




01632 


42 00000 


00000 


11010 


DORG 


•-9 






01634 






11040* 
















1 1050 


OC 


8,0 






01641 


00008 




11060 IRQ 


DC 


2,0 






01643 


00002 




1 1070* 
















11080 000 


OS 


5,STRIP*ll»l2*5 






00809 


00005 




11090 POSM 


OS 


♦L0G70 






00894 


00000 




11100 SIGNE 


OS 


,ETYPE»8 






01302 


00000 




11110 EADO 


OS 


3,SIGNE*3 






01305 


00003 




11120 POSE 


OS 


,ETYPE*l2 






01306 


00000 




11130 EXP 


OS 


10,98 






00098 


00010 




11140* 


COMMON AREA MI TM MAINLINE 










11150 INO 


OS 


,07707 






07707 


00000 




11160 ERRNO 


OS 


, INO 






07707 


00000 




11170 SCAN 


OS 


,08852 






08852 


00000 




11180 ERR 


OS 


,07682 






07682 


00000 




1U90 TYPERR 


OS 


,2416 






02416 


00000 




11200 PRETEM 


OS 


,07732 






07732 


00000 




12010 STOP 


OS 


,07713 






07713 


00000 




12020 PLACE 


OS 


,07743 






07743 


00000 




12030 CMK 


OS 


,07691 






07691 


00000 




12040 ILNEXT 


OS 


,07698 






07698 


00000 




12050 TEMALS 


OS 


,07696 






07696 


00000 




12060 INIT 


OS 


,07976 






07976 


00000 




12070 MONITR 


OS 


,2406 






02406 


00000 




1 20 80 


DEND 


ALSCAN 






00006 







SYMBOL TABLE 



TYPERR 02416 
RETURN 02411 
ERR 108 14062 
FUN 14086 
SET 12 14182 



SUBSCR 14306 
REOUCE 14146 
A0013 14378 
NAT1 07661 
SET4 14274 



SRTYPE 07597 
POSIMP 13862 
0ICT3 02416 
NAT2 07666 
SVMB2 04301 



SQUEE2 14242 
MGNITR 02406 
EXP2 14410 
PL 12 14206 
SYMB3 04303 



SKIPER 13862 
ERR 134 144 30 
FL22 07670 
RTVPE 07595 
SYM85 04315 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM POSIMP 

•THE FUNCTION OF THIS SUBPROGRAM 
IS TO COMPRESS THE STATEMENT IN WOROL 
BY REPLACING A NEST WITH ITS EQUIVALENCE 

LINKAGE IS BT MONI TR,0SALBL*5,6 

87 POSIMP,, 6 



01100 


OORG 


13862 


13862 






Oil 10 POSIMP 


SM 


NATl, 20, 10, . 


SET POINTER TO ADDRESS BEFORE LEFT PAREN 








13862 


12 07661 


00OK8 


01120 


AM 


NAT2.27, 10, 


SET POINTERTO CHARACTER FOLLOWING RIGHT 








13874 


11 07666 


OOOKT 


01130* 






PAREN 






01140 


CM 


NATl, -1,610, 


CHECK FOR SUBSCRIPT OR FUNCTION 










13886 


14 0766J 


CCO-J 


01150 


BNE 


REDUCE 


13898 


47 14146 


01200 


01160 


AM 


NATl, 12, 10, 


INCREMENT TO CHECK FOR FUNCTION WORO 










13910 


11 07661 


O0OJ2 


01170* 


LOAO AND CALL DICT3 


SUBPROGRAM TO CHECK FOR FUNCTION WORD 




01180 


BTM 


MONITR, 03050, 67 


13922 


17 02400 


-3050 


01190 


BT 


DICT3*NAT1.6 


13934 


27 02410 


07661 


01200 


CM 


RTYPEttlO 


13946 


14 07595 


OCO-0 


02010 


BE 


SUBSCR 


13958 


46 14306 


01200 


02020 


CM 


RTVPE, 9, 10, 


CHECK FOR FUNCTION— RTVPE-9 










13970 


14 07595 


000-9 


02030 « 


BE 


FUN 


13982 


46 14086 


01200 


02040 


CM 


RTYPE, 19,10, 


CHECK FOR IF— RTVPE- 19 












13994 


14 07595 


000J9 


02050 


BNE 


ERR108 


14006 


47 14062 


01200 


02060* 


IGNORE IF AND PREPARE TO COMPRESS NEST 






02070 


SM 


NATl, 12, 10 


14018 


12 07661 


000J2 



02080 TFH NAT1,1(6I0 

02090 TFL SRTYPE «FL22 

02100 87 REOUCE 

02110* LOAO AND CALL TYPERR SUBPROGRAM ERROR 



14030 16 0766J 000-1 
14042 06 07597 076 70 
14054 49 14146 00000 



108 



02120 ERRIOS BTM 



02130 
02140 FUN 

02150 

02160 
02170 



02180 
02190* 

02200 REOUCE 
01010* 



14062 17 02400 -3090 
14074 17 02410 -0108 
SUBSTITUTE FUNCTION EQUIVALENCE 

14086 26 0766.1 07597 
14098 06 07597 07670 
14110 IS 14218 00000 
PREPARE TO COMPRESS STATEMENT 

14122 12 07661 O00J2 
SIT f¥PE«S FOR A FUNCTION 

14114 16 076*4 000-3 
COMPRESS A NEST IN WOROL 
AM NATl « 14, 10 I A 148 tt Of 681 O0OJ4 

IF A NUMBER MERE CALCULATED TVPI-02 



8TN 
TP 

TFL 
TON 
SM 



HON I T A, 03090, 6 7 
TYPERR(108(67 
NATl, SRTYPE, 6, 

SRTYPE »FL2Z 

PL12*12 

NATltUdOt 



TPN NAT1,3,610, 



page ? 

03020* otherwise a nest name is stored in worol 



0)030 




CM 


RTYPE « » 10 


1415B 14 


07595 


000-0 


03040 




BNE 


$€T4 


14170 47 


14274 


01200 


03050 


SET 12 


TDM 


PL 1 2* 1 2 


I4i82 15 


14218 


COOOO 


03060 




TF 


NA T I » SYMB3 ,6, 


SUBSTITUTE NUMBER CALCULATED IN COMPUT 










14194 26 


0766J 


04303 


03070 


PL 12 


AH 


NAT 1 « I2 t 10 


14206 11 


07661 


000 J 2 


03080 




TF 


NATl ,SYHB2»6* 


SUBSTITUTE NAME FOR GEOMETRIC NEST 












14218 26 


0766J 


04301 


03090 




AM 


NAT I , I , 10 


14230 11 


07661 


000- 1 


03100 


SQUEE2 


TR 


NATltNAT2t6ll» 


TRANSMIT RECORO TO COMPRESS NEST 












14242 31 


0766 J 


07660 


031 10 




TFL 


SRTYPE»FL2I 


14254 06 


07597 


07670 


03120 




B 


RETURN, ,6, 


RETURN TO CALLING PROGRAM 














14266 49 


0241J 


00000 


03130 




OORG 


•-3 


14274 






03140 


SET* 


TFM 


NATl, 4, 610 


14274 16 


0766J 


000-4 


03150 




TOM 


PL12*12*2 


14286 15 


14218 


00002 


03160 




B 


PL12 


14298 49 


14206 


00000 


031T0 




DOR 6 


•-3 


14306 






03180* 


SAVE THE SUBSCRIPT 


AND ELIMINATINEST ) FROM WORDS LIST 






03190 


SUBSCR 


SM 


NATl, 12,10 


14306 12 


07661 


O0OJ2 


03200 




TFM 


NATl, ,610 


14318 16 


0766J 


000-0 


04010 




CM 


SYMB5,2,10 


14330 14 


04315 


0C0-2 


04020 




BE 


EXP2 


14342 46 


14410 


01200 


04030 




BH 


ERR134 


14354 46 


14430 


01100 


04040 




TO 


NATl,SYMB5-9,6 


14366 25 


0766J 


04306 


04050 


A0013 


SF 


NATl, ,6 


14378 32 


0766J 


OCOOO 


04060 




AM 


NATl, 13, 10 


14390 11 


07661 


000J3 


04070 




B7 


SOUEEZ 


14402 49 


14242 


00000 


04060 


6XP2 


TF 


NATl,SVMB5-8.6 


14410 26 


0766J 


04307 


04090 




B7 


A0013 


14422 49 


14376 


OCOOO 


04100 


ERR134 


BTM 


MONI TR, 03090, 67 


14430 17 


02400 


-3090 


04110 




BTM 


HON I TR, 1 34,67 


14442 17 


02400 


-0134 



04120* COMMON AREA WITH MAINLINE 

04130* 



04140 


NATl 


OS 


,07661 


07661 


00000 


04150 


NAT2 


OS 


,07666 


07666 


00000 


04160 


RTYPE 


OS 


,07595 


07595 


00000 


04170 


SRTYPE 


OS 


,07597 


07597 


oocoo 


04180 


FL2Z 


OS 


,07670 


07670 


00000 


04190 


SVMB2 


OS 


,04301 


04301 


00000 


04200 


SYMB3 


OS 


,04303 


04303 


00000 


05010 


SYMB5 


OS 


,04315 


04315 


00000 


05020 


RETURN 


OS 


,2411 


02411 


00000 


05030 


MONI TR 


OS 


,2406 


02406 


00000 


05040 


TYPERR 


OS 


,2416 


02416 


00000 


05050 


DICT3 


OS 


,2416 


02416 


00000 


05060 


SKIPER 


OS 


,POSIMP 


13862 


00000 


05070 




OENO 


.POSIMP 


13862 





PAGE 1 

SYMBOL TABLE 



TYPERR 


02416 


JSAVEl 


02456 


SRTYPE 


07597 


SIMPLE 


02416 


RETURN 


02411 


POSTPR 


14156 


POSTPA 


02416 


MONITR 


02406 


MISDSA 


14660 


MAJMOO 


14176 


MACPIK 


07719 


MACHER 


145L2 


MACOSA 


14670 


IGNORE 


14116 


IFJUMP 


07745 


FLJERO 


07680 


ERR123 


14332 


CALDSA 


14680 


ARGCS A 


13866 


ADD 14 


14036 


A002 


14016 


A02 


14296 


BRMAJ 


14124 


CAL 


14236 


CALC 


13872 


CALL 


02416 


CHKRT 


14080 


OICT 


02416 


DSAPP 


14650 


ERR 


07682 


ERT 


14512 


FUNC 


14216 


GOFWD 


14356 


I ATI 


07731 


IFS 


14412 


INIT 


07976 


ISI Tl 


13932 


JHI 


14492 


JTO 


14276 


JUMP 


14472 


LP AR 


10277 


MAC 


14256 


MACRO 


02416 


MA JR T 


14540 


MCOUT 


07717 


MIST1 


14512 


NAT I 


07661 


NAT2 


07666 


NJUMP 


07607 


PHASE 


14512 


RTYPE 


07595 


SAVE 


05187 


SAVE1 


08011 


SFLAG 


07769 


SIMP 


14104 


TEMP 


02451 


WOROL 


06091 















IBM 1620-1311 AO-APT. 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10» 
01120* 
01130 

01140 ARGDSA 



01150 CALC CM LPARt , 10 



01160 

01170 

01180* 

01190 

01200 

02010 IS1TI 

02020 
02030 

02040* 

02050* 

02060 

02070 

02080* 

02090 

02100 

02110* 

02120 A002 

02130 

02140 

02150 A0014 

02160 
021T0 



INTRAN SUBPROGRAM CALC 

THIS SUBPROGRAM SCANS THE SIMPLE STATEMENT IN THE WOEOL 
TABLE TO DETERMINE WHICH ROUTINE TO CALL TO PROCESS IT 
LINKAGE IS BT MONI TR ,0SALBL+5,6 

B7 CALC, ,6 

OSALBL IS THE RETURN AODRESS TO THE CALLING PROGRAM 
DSALBL+5 IS THE ADDRESS OF THE DIM NUMBER CORRESPONDING 
TO SUBPROGRAM CALC 

A NO 1 DIGIT INDICATING THAT IT IS A NON-ERASABLE PROGRAM 

OORG 13862 13862 

OSA NATl ,NAT2 13866 00005 -7661 

13871 00005 -7666 
CHECK FOR CORRECT NUMBER OF PAREN 

13872 14 10277 OCO-O 

BNE ERT 13884 47 14512 01200 

TF IAT1, NATl 13896 26 07731 07661 

SET NAT2 BACK TO TYPE OF LAST WORD 
SM NAT2.14.10 13908 12 07666 0C0J4 

RTYPE,, 10 13920 16 07595 000-0 

1ATI,1,610, CHECK WOROL FOR A SYMBOL 

13932 14 0773J 000-1 

ADD I 4 13944 47 14036 01200 

IAT1,12,10, INCREMENT TO SYMBOL NAME 

13956 11 07731 000J2 
LOAD ANO CALL OICTl SUBPROGRAM 
LOOK UP SYMBOL IN DICTIONARY 
BTM MONITR, 03030*67 
BT 0ICT,IATt»6 

WAS IT FOUND-"*-- IP SO BRANCH TO BttMAJ 
CM RTYPE , ,10 
BNE BRMAJ 

LOOP BACK TO NEXT WORO 
AM IATl.2,10 
B IS! Tl 

DOUG *-3 14036 
CM IATl.22,610, CHECK FOR C NO OF STATEMENT 

14036 14 0773J 00OK2 

BE CHKRT 1404B 46 14080 01200 

AM IAT1,14,10, INCREMENT TO NEXT WORO IN WOROL 

14060 It 07731 O0OJ4 



TFM 
CM 



BNE 
AM 



13968 


17 


02400 


-3030 


13980 


27 


02410 


07731 


13992 


14 


07595 


000-0 


14004 


47 


14124 


01200 


14016 


It 


07731 


000-2 


14028 


49 


13932 


00000 



23 



o?ieo 


8 ISIT1,,, 




BRANCH 


10 


CHECK FOR SYMBOL 








02190 












14072 


49 


1 3932 




DORG »-3 










14080 








02200 CHKRT 


CM RTYPE,,10 










14080 


14 


07595 


000-0 


03010 


8NE RETURN, ,6, 




RETURN 


TO 


CALLING 


PROGRAM 








03020* 












14092 


47 


0241 J 


01200 


SCT FLAG TO INOICATE 


SIMPLE MUST 


BE CALLED 








03030 SIMP 


SF SFLAG 










14104 


32 


07769 


00000 


03040 


8 RETURN, »6* 




RETURN 


TO 


CALLING 


PROGRAM 

14116 


49 


0241 J 


00000 


03050 


OORG *-3 










14124 








03060* 


INOEX TO CORRECT ROUTINE DEPEMDING ON RTVPE 








03070 BRMAJ 


MM RTYP6,-5,9 










14124 


1 3 


07595 


OO-ON 


03060 


SM 99.MAJRT 










14136 


12 


00099 


J4540 


03090 


B 99,, 6 










14148 


49 


0009R 


UUUUU 


03100 


OORC *-3 










14156 








03110* 


LOAD AND CALL POSTPA 














03120 POSTPR 


6T M0NITR,0SAPPf5,6 


» 








14156 


27 


02400 


14655 


03130 


87 POSTPA i ,6 










14168 


49 


02410 


00000 


03140* 


LOAD AND CALL POSTPA 
















03150 HAJMOO 


8T M0NITR,MIS0SA*5, 


6 








14176 


27 


02400 


14665 


03160 


BT POSTPA, ,6 










14188 


49 


02410 


UUUUU 


03170 


SM IATI, 14,10, 




PREPARE 


TO LOOK AT 


NEXT WORD 








6 ISITl,,, 










14196 


12 


07731 


000J4 


03180 




BRANCH 


TO 


LOOK FOR 


SYMBOL 
14208 


49 


1 3932 


nnnnn 


03190 


DORG »-3 










14216 








03200* 


FUNCTIONAL COMPUTE 


ROUTINE 














04010 FUNC 


TFM SRTYPE,,10 










14216 


16 


07597 


000-0 


04020 


B SIMP 










14228 


49 


14104 


00000 


04030 


DORG *-3 










14236 








04040* 


CALL STATEMENT 


















04050* 


LOAD AND CALL CALL 


SUBPROGRAM 














04060 CAL 


BT M0NITR,CAL0SA*5, 


6 








14236 


27 


02400 


14685 


04070 


87 CALL, ,6 










14248 


49 


024 10 


00000 


04080* 


MACRO STATEMENT 


















04090* 


LOAD AND CALL MACRO ! 


SUBPROGRAM 














04100 MAC 


BT M0NITR,MACDSA*5, 


6 








14256 


27 


02400 


14675 


04U0 


B7 MACRO, ,6 










14268 


49 


024 10 


00000 


04120* 


JUMPTO STATEMENT 


















04130 J TO 


BD AD2,MACPIK 










14276 


43 


14296 


07719 


04140 


B7 ERR123 










14288 


49 


14332 


00003 


04150 A02 


AM UT1,2,10 










14296 


11 


07731 


000—2 


04160 


CM 1ATI,2,610, 




CHECK FOR 


STATEMENT NUMBER 




















14308 


14 


0773J 


000—2 


041 70 


BE GOFWD 










14320 


46 


14356 


01200 


04180* 


LOAD AND CALL TYPER* 


SUBPROGRAM 












nil on 


BTM MONI TR, 03090, 67 










14332 


17 


02400 






ATM TYPERR, 123,67 










14344 


17 


02410 


ni »•» 


w7i/iv uurnu 


AM IATI, 12, 10 










14356 


11 


07731 


000J2 


05020 


TFL NJUMP, IATl,l t , 




STORE STATMENT NUMBER 14368 


06 


07607 


0773J 


05030 


SF IF JUMP,,, 




INDICATE JUMPTO STATEMENT 


















14380 


32 


07745 


nnonn 


05040 


TF SAVEI,TSAVE1, , 




STORE NEXT SECTOR 


ADDRESS OF 


; MACRO 
















14392 


26 


08011 


02456 


05050 


B7 RETURN, ,6, 




RETURN 


TO 


CALLING 


PROGRAM 

14404 


49 


0241J 


00000 


05060* 


IF STATEMENT 


















05070 IPS 


AM IATI, 14, 10 










14412 


11 


07731 


000J4 


05080 


TFL TEMP, IATI, 11, 




STORE ARGUMENT IN 


TEMP 













14424 


06 


02451 0773J 


05090 


FSUB TEMP ,FL2ER0, , 


TEST — HIGH, L ON, EQUAL 14436 


02 


02451 07680 


05100 


BH JHI 


14448 


46 


14492 01100 


05110 


8L JTO 


14460 


47 


14276 01300 


05120* 


INCREMENT TO CORRECT 


STATEMENT NUMBER OEPENOING ON 


HI, 


LQ.EQU 


05130 JUMP 


AM IATI, 14, 10 


14472 


11 


07731 000J4 


05140 


87 JTO 


14484 


49 


14276 00000 


05150 JHI 


AM IATI, 28, 10 


14492 


11 


07731 000K8 


05160 


B7 JTO 


14504 


49 


14276 OCOOO 


05170* 


LOAD AND CALL TYPERR 


SUBPROGRAM 






05180 EAT 


BTM MONI TR ,03090,67 


14512 


17 


02400 -3090 


05190 


BTM TYPERR, 110,67 


14524 


17 


02410 -0110 


05200 MAJRT 


OSA MISTl.MISTl, POSTPR 


, AD02 , MA JMOO, POSTPR, POSTPR, POSTPR, POSTPR 











14540 


00005 


J4512 










14545 


00005 


J4512 










14550 


00005 


J4156 










14555 


00005 


J4016 










14560 


00005 


J4176 










14565 


00005 


J4156 










14570 


00005 


J4156 










14575 


00005 


J4156 










14580 


00005 


J4156 


06010 




OSA 


FUNC .SIMP, IGNORE ,CAL,MAC, JUMP , S I MP, PHASE • 


PHASE, PHASE 












14585 


00005 


J4216 










14590 


00005 


J4104 










14595 


00005 


J4U6 










14600 


00005 


J4236 










14605 


00005 


J4256 










14610 


00005 


J4472 










14615 


00005 


J4104 










14620 


00005 


J4512 










14625 


00005 


J 4.512 










14630 


00005 


J4512 


06020 




OSA 


IFS, PHASE, SIMP 


14635 


00005 


J4412 










14640 


00005 


J4512 










14645 


00005 


J4104 


06030 


OSAPP 


OSA 


CHKRT+12 


14650 


00005 


J4092 


06040 




DSC 


5,03121 


14651 


00005 




06050 


MISOSA 


OSA 


MAJMOO+20 


14660 


00005 


J4196 


06060 




OSC 


5,03121 


14661 


00005 




06070 


MACOSA 


OSA 


CHKRT+12 


14670 


00005 


J4092 


06080 




OSC 


5,03161 


14671 


00005 




06090 


CALOSA 


OSA 


CHKRT* 12 


14680 


00005 


J4092 


06100 




OSC 


5,03171 


14681 


00005 




06110* 


COMMON WITH MAINLINE 








06120 


DICT 


OS 


,2416 


02416 


00000 




06130 


MONI TR 


OS 


,2406 


02406 


00000 




06140 


SIMPLE 


OS 


,2416 


02416 


00000 




06150 


POSTPA 


OS 


,2416 


02416 


00000 




06160 


MACRO 


OS 


,2416 


02416 


00000 




06170 


TYPERR 


OS 


,2416 


02416 


00000 




06180 


RETURN- 


OS 


,2411 


02411 


00000 




06190 


CALL 


OS 


,2416 


02416 


00000 




06200 


IATI 


OS 


,07731 


07731 


00000 




07010 


IF JUMP 


OS 


,07745 


07745 


00000 




07020 


NAT I 


OS 


•07661 


07661 


00000 




07030 


NAT2 


OS 


,07666 


07666 


00000 




07040 


RTYPE 


OS 


•07595 


07595 


00000 




07050 


SRTVPf 


OS 


,07597 


07597 


00000 




07060 


INIT 


OS 


•07976 ' 


07976 


00000 





07070 


HOROL 


OS 


,05091 


06091 


00000 


07080 


NJUMP 


OS 


.07607 


07607 


00000 


07090 


MCOUT 


OS 


•07717 


07717 


00000 


07100 


ERR 


OS 


,07682 


07682 


00000 


07110 


SAVE 


OS 


,05187 


05187 


00000 


07120 


SFLAG 


OS 


,07769 


07769 


00000 


07130 


TSAVE1 


OS 


,02456 


02456 


00000 


07140 


SAVEl 


OS 


,08011 


0801 1 


00000 


07150 


PHASE 


OS 


*ERT 


14512 


00000 


07160 


MACHER 


OS 


♦ ERT 


14512 


00000 


07170 


MIST1 


OS 


,ERT 


14512 


00000 


07180 


FLZERO 


OS 


•07680 


07680 


00000 


07190 


TEMP 


OS 


,02451 


02451 


00000 


07200 


LPAR 


OS 


.10277 


10277 


00000 


08010 


IGNORE 


OS 


.SIMP+12 


14116 


00000 


08020 


MACPIK 


OS 


.07719 


07719 


00000 


080 30 




OENO 


CALC 


13872 





TYPERR 00006R 
ERRHES 00299R 
ERNF 00387R 
MOVE 00042R 
SSNF 00361R 



MONITR 02406 
ENDMAN 13900 
ERR 07682 
NE 00030 



SYMBOL TABLE 

MAPENT 13238 
CALLX 09892 
HI 00434 
NNE 00008 



MACPIK 07719 
CLEAR 00054R 
INO 07707 
SEQNO 07656 



ERROUT 00102R 
CTR 00015R 
INI T 07976 
SET9 00278R 



01010* 

01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01080* 

01090* 

01100 

Oil 10* 

01120* 

01130 TYPERR 
01140 CTR 
01150 
01160 

01170 MOVE 

01180 CLEAR 

01190 

01200 

02010 

02020* 

02030* 

02040 ERROUT 

02050 

02060* 

02070 

02080 

02090* 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170* 

02180 

02190 

02200 • 

03010 

03020 SE79 

030 30* 
03040 

03050 ERRMCS 

03060 SSNF 
03070 ERNF 



IBM 1620-1311 AD-APT, 



I NTRAN SUBPROGRAM TYPERR 

THE FUNCTION OF THIS SUBPROGRAM IS TO TYPE AN ERROR MESSAGE 
LINKAGE IS ETM MONITR, NNNNO 

BTM TYPERR. CCCCC 

CCCCC IS THE ERROR CODE 

PC 6,0 00005 00006 

CLEAR OUT THE MONITR NON-ERASABLE TABLE 

SO THAT RESTART MAY BE EFFECTED 
TFM CTR, NNE, 10 
DS ,*-2 

TF MOVE ♦ 11, MONITR 
AM MOVE+lltll.lO 
TF CLEAR*6,9999 
TFM 9999. .711 
AM CLEAR+6.20.10 
SM CTR. I. 10 
BHl CLEAR 

TRANSMIT THE SOURCE STATEMENT NUMBER IN ERROR TO THE ERROR 
MESSAGE 

TNF SSNF, SEGNO 00102 P3 00361 07656 

SF TYPERR-3 00114 L2 00003 00000 

TRANSMIT THE ERROR NUMBER TO THE ERROR MESSAGE 
TNF ERNF.TYPERR-l 00126 PL 00387 00005 

RCTV 00138 34 00000 00102 

TYPE THE ERROR MESSAGE 



00006 J6 00015 000-8 
00015 00000 

00018 K6 00053 02406 

00030 Jl 00053 OOOJl 

00042 K6 00060 09999 

00054 16 09999 -COO- 

00066 Jl 00060 OCOKO 

00078 J2 00015 000-1 

00090 M7 00054 01200 



HATV ERRMES 
RCTY 

TOM I NO- 2 
TFM ERR. . 10 
TFM MACPIK..10. 



AM 
TF 



CLEAR+6»N£»20-3 
HI,CLEAR*6 



00150 L9 00299 00100 
00162 34 00000 00102 
00174 15 07705 00000 
00186 16 07682 000-0 
CLEAR MACRO PICK INDICATOR 

00198 16 07719 000-0 
00210 Jl 00060 -0597 
00222 20 00434 00060 



TEST SENSE SWITCH 3 TO SEE IF INTERVENTION IS DESIRED 



BNC3 SET9 

H . 

BNC3 SET9 
B7 INI T 
TDM CALLX*l*9»llt 



B7 
DAC 



DS 
DS 



IN1T 



00234 M7 00278 00300 
00246 48 00000 00000 
00258 M7 00278 00300 
00270 49 07976 OCOOO 
SET INDICATOR TO CALL EXIT 

00278 15 09893 0000ft 
TO CALL EXIT INSTEAD OF THE NEXT SUBSVST 

00290 49 07976 OCOOO 



49, SOURCE STATEMENT NO* 



• ERRM£S02*2~2 
»SSNF«13*2 



ERROR • •• 

00299 00098 

00361 00000 

00387 00000 



PACE 2 



03080 NE 


OS 


#30 


00030 


00000 


03090 NNE 


OS 


2*8 


00008 


00002 


03100* 


COMMON AREA M1TH THE MAINLINE 






031 HO SEQNO 


OS 


,07656 


07656 


00000 


03120 INIT 


OS 


#07976 


07976 


00000 


03130 MAPENT 


OS 


#13238 


13238 


00000 


03140 ENDMAN 


OS 


•13900 


13900 


00000 


03150 CALIX 


OS 


♦09892 


09892 


00000 


03160 HI 


OS 


#434 


004 3* 


00000 


03170 ERR 


OS 


#07682 


07682 


00000 


03180 I NO 


OS 


#07707 


07707 


00000 


03190 MONITR 


OS 


#02406 


02406 


00000 


03200 MACPIR 


OS 


#07719 


07719 


00000 


0*010 


OENO 


TYPERR 


0000* 





VECTOR 02416 
TSTRAO 16174 
TDATA4 03352 
TABCYL 02416 
SETAP6 15396 
PRJECT 15672 
POIOSA 16355 
NSTFLG 07T46 
MATOSA 16395 
FM2665 02416 
COMPUT 02416 
CALF 14892 
CODE 07715 
C1TC2 15748 
ERR 07682 
ER 1 1 3 16154 
F1LE2 02416 
FOUNO 07628 
IAT1 07731 
LIN 15648 
NAMST 14088 
POCK 15954 
SETEQ 13980 
SYMB1 04289 
SYMB6 04325 
TATl 13991 
TREC 16106 
VARB 15640 



VECSUR 15854 
TRNEST 14628 
T0ATA3 03350 
STORAO 14168 
SAVNST 14156 
PRECAL 14872 
POCKET 02416 
NEOUAL 07733 
LINOSA 16365 
ELLIPS 02416 
COMDSA 16335 
CAN 15974 
COO IT 14904 
OESI 15216 
ERR I 15308 
ER144 14276 
FILE3 02416 
GEOMT 15328 
IAT2 07627 
LINE 02416 
NEST 02532 
PQ! 15488 
SETID 14676 
SYMB2 04301 
SYMB7 04335 
TOATA 03333 
T2 14203 
WERM 14560 



SYMBOL TABLE 

VECOSA 16385 
T0ATA7 03382 
T0ATA2 03348 
SRTVPE 07597 
RETURN 02411 
POSNST 14496 
PLAOSA 16435 
MONITR 02406 
LCTAPE 07708 
ELLOSA 16415 
CIROSA 16375 
C6CT0 16285 
COMP 15428 
OICT 02416 
ER103 14544 
ER316 16186 
FLCSA 16345 
GOERR 16154 
10 14389 
LINER 15704 
NT 07874 
POINT 02416 
SETUP 16094 
SYMB3 04303 
SYMOD 14708 
TFILE 14451 
UNOEF 15308 
MPILE 07747 



TVPERR 02416 
T0ATA6 03372 
TOATAl 03336 
SIMPLE 13872 
RESCOM 16250 
POSNBR 14344 
OUTFIL 16010 
MAXNST 14147 
GOFILE 15072 
OIFCOO 16226 
CIRCLE 02416 
CMKF 15144 
CCMP2 14004 
0ICT2 02416 
ER104 15468 
FILE 02416 
FH63 15544 
HERE! 14963 
103 14380 
MAT 15874 
PLA 15778 
RTYPE 07595 
SSS1 14180 
SVMB4 04305 
TAB* 15894 
TNEST 07738 
UPl 15048 
2 SURF 02416 



TSTZRO 16206 
TDATA5 03362 
TABDSA 164*5 
SETOAT 14580 
PRTPUN 15376 
POKOSA 16425 
OUTOSA 16455 
MATRIX 02416 
GCONIC 02416 
CONDSA 16405 
CANOUT 02416 
CIR 15798 
CONIC 15914 
ELLIP 15934 
ER112 15308 
FtLEl 02416 
FORM 07712 
M2DSA 15771 
INIT 07976 
MCT 07876 
PLANE 02416 
SAVE 13979 
SVN24 14192 
SYMB5 04315 
TAKE2 15012 
TR 14915 
UP 2 14296 



01010* 
01020* 

010 30* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 

011 10* 
01120* 
01130* 
01140* 
01150* 
01160 
01170 

01180 SIMPLE 
01190 

01200 

02010 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM SIMPLE 

THIS SUBPROGRAM PERFORMS AN OPERATION 
INOICATEO WITHIN A NEST 
THIS OPERATION MAY BE TO COMPUTE SOME 
ALGEBRAIC OR GEOMETRIC DEFINITION 
AND TO STORE THE RESULT 

LINKAGE IS BT MONI TRtDSALBL+5«6 

BT S!MPLE»SDSA*10#6 

SOSA IS THE AOORESS OF THE FIRST ELEMENT 
IN THE NEST 

ANO 0SAL8L IS THE AOORESS OF THE LAST 

ELEMENT IN THE NEST 

DORG 13862 l*Bt>2 

OC 10. 13«71 00010 

TF C0NP2*6fSIMPLE~6«ll 13872 26 14010 13860 

TFM ERR* • 10* INITIALIZE ERROR POSITION 

13884 16 07682 000-0 
IATl,SIMPLE-6.ll, STORE AOORESS OF FIRST ELEMENT 

13896 26 07731 13860 
IAT2,S!NPLE-l,Ut STORE AOORESS OF LAST ELEMENT 



02020 
020 30 



TF 
TF 
TFM 

TF* 



STORAO* lt#NEST» • 
NT, ,8, 



13908 26 07627 1187 J 
INITIALIZE NEST TABLE AOORESS 

13920 16 14179 -2532 
INITIALIZE TOATA TABLE POINTER 



26 











13932 


16 07874 


0-000 


02040* 






CHECK FOR FIRST NEST IN STATEMENT 




02050 




BNr 


SETEQ, NSTFIG 


13944 


44 13980 


07746 


02060 




TFN 


TNEST , ,8, 


INITIALIZE POINTER IN NEST TABLE 




02070 




CF 


NSTFIG, • t 


13956 


16 07738 


0-000 




CLEAR FIRST NEST FLAG 13968 


33 07746 


00000 


02060 


SAVE 


OS 


»• 


139 79 


00000 




02090 


SETEQ 


CP 


NEOUAL,, » 


CLEAR EQUAL FLAG 13980 


33 07733 


00000 


02100 


TATl 


OS 


»• 


13991 


00000 




02110 




AM 


•♦18, 14, 10, 


INCREMENT TO SECOND ELEMENT 


IN NEST 












13992 


11 14010 


000J4 


02120 


C0MP2 


CM 


9999,3,10, 


IS IT PUNCTUATION 14004 


14 09999 


000-3 


02130 




BNE 


SAVNST 


14016 


47 14156 


01200 


02140 




AM 


C0MP2*6» 12,10 


14028 


It 14010 


000J2 


02150 




CM 


C0MP2+6, 33,610, 


IS IT AN EQUAL SIGN 14040 


14 1401- 


000L3 


02160 




BNE 


SAVNST 


14052 


47 14156 


01200 


02170* 






INOEX TO SYMBOL NAME 






02180 




TF 


NAMST*ll,C0MP2+6 


14064 


26 14099 


14010 


02190 




SH 


NAMST+11,14,10 


14076 


12 14099 


000J4 


02200 


NAMST 


TF 


SYMR2,9999,» 


SAVE THE SYMBOL NAME 14086 


26 04)01 


09999 


03010 




$M 


NAMST»U,12,10, 


INDEX TO SUBSCRIPT 14100 


12 14099 


000J2 


03020 




TF 


SYMB3,NAMST#11 C U 


• STORE THE SUBSCRIPT 14112 


26 04 303 


1409R 


030 30 




AM 


IAT1,26,10, 


SKIP OVER THE EQUAL SIGN 














14124 


11 07731 


000K8 


03040 




SF 


NEQUAL , , , 


INDICATE THEIR MAS AN EQUAL 














14136 


32 07733 


00000 


03050 


MAXNST 


OC 


4, 1000,* 


14147 


00004 




03060 




B 


SVN24 


14148 


49 14192 


OCOOO 


03070 




OORG 


•-3 


14156 






03080 


SAVNST 


A 


STORAO+ll, TNEST 


14156 


21 14179 


07738 


03090 


STORAD 


TFH 


SVMB2,9999,, 


STORE THE NEST AOCRESS AS NAME 












14168 


16 04301 


-9999 


03100 


SSS1 


TFM 


SYMB3,4, 10, 


STORE NEST TYPE* 4 14180 


16 04303 


000-4 


03110 


SVN24 


SF 


SRTYPE-l 


14192 


32 07596 


00000 


03120 


T2 


OC 


2,0,* 


14203 


00002 




03130 




TF 


SYMB4 , SRTYPE » , 


STORE THE RECORD TYPE 14204 


26 04305 


07597 


03140 




CM 


SRTYPE,,10, 


CHECK FOR SLASH TYPE STATEMENT 












14216 


14 07597 


ooo-o 


03150 




BE 


UP2+12 


14226 


46 14308 


01200 


03160 




AM 


IAT1,26,10, 


INCREMENT 1AT1 TO SLASH 














14240 


11 07731 


0C0K6 


03170 




CM 


IAT1,21,610 


14252 


14 0773J 


C00K1 


03180 




BE 


UP 2 , , , 


BRANCH IF SEPARATOR IS A SLASH 












14264 


46 14296 


01200 


03190 


ER144 


TFM 


WERM*ll, 144,9, 


SET ERROR NO. -144 14276 


16 14579 


0CJ44 


03200 




B7 


WE R M- 1 2 


14288 


49 14556 


00000 


04010 


UP2 


AM 


IAT1,2,10, 


INCREMENT IAT1 TO WORD FOLLOWING SLASH 










14296 


11 07731 


OCO-2 


04020 




TFM 


FORM, ,8, 


INITIALIZE FORM TO ZERO 














14308 


16 07712 


0-000 


04030 




TFM 


MCT,,10, 


INITIALIZE MINOR ELEMENT COUNT 












14320 


16 07676 


OCO-O 


04040 




TF 


TATl , I ATI , , 


TRANSMIT AOCRESS IN WORCL TO TATl 












14332 


26 13991 


07731 


04050 


POSNBR 


CM 


TAT 1 ,2,610, 


CHECK TYPE CF FIRST ELEMENT 














14344 


14 1399J 


C00-2 


04060 




BL 


SYMOD 


14356 


47 14708 


01300 


04070 




BH 


POSNST 


14368 


46 14496 


01100 


04080 


10) 


TFM 


10,3,10, 


10-3 FOR A NUMBER 14380 


16 14389 


000-3 


04090 


10 


OS 


,•-2 


14389 


00000 





04100 




AM 


TATl, 14,10, 


04110 




AM 


MCT,l,10, 


04120* 






04130 




MM 


FORM, 4, 10 


04140 




A 


99,10 


04150 




SF 


96 


04160 


TFILE 


OS 


»• 


04170 




TF 


FORM, 99 


04180 




C 


TATl , I AT2, , 


04190 




BH 


GEOMT 


04200 




B 


POSNBR,, , 


05010 




DORG 


•-3 


05020 


POSNST 


CM 


TATl, 4, 610, 


05030 




BE 


SETOAT 


05040 




CM 


RTYPE, ,10, 


05050 




BE 


103*12 


05060 


ER103 


TFM 


WERM*ll, 103,9, 


05070 




BTM 


MONITR, 03090, 67, 


05080 


WERM 


BTM 


TYPERR, ,6, 


05090 


SETOAT 


AM 


TATl, 12,10 


05100* 






05110 




TFM 


TRNEST+6,TDATA 


05120 




A 


TRNEST*6,NT 


05130 




SF 


TATl 


05140 


TRNEST 


TR 


9999, TATl, 11 


05150 




CF 


TATl 


05160 




AM 


TRNEST+6,3,10 


05170 




A 


NT,TRNEST*6»U, 


05180 


SETIO 


TFM 


10,1,10, 


05190 




SM 


TATl, 12, 10 


05200 




B 


103*12 


06010 




DORG 




06020 


SVMOO 


CM 


TATl , I ,610, 


06030 




BL 


PRECAL 


06040 




AM 


TATl , 12,10, 


06050 




TFL 


SAVE, SRTYPE, t 


06060* 


LOOK THIS WORO UP I 


06070* 






06080 




BTM 


MONI TR ,03040, 67 


06090 




BT 


DICT2,TAT1,6 


06100 




CM 


RTYPE,,10, 


06110 




BE 


CALF 


06120 




TFM 


10,2,10, 


06130 




TF 


TATl, SRTYPE, 6, 


06140 




TFL 


SRTYPE , SAVE* , 


06150 




SM 


TATl, 12, 10 


06160 




TFM 


TATl, 3, 610, 


06170 




B 


103*12 


06180 




OORG 


•-3 


06190 


PRECAL 


AM 


TATU12,10 



INCREMENT TO NEXT ELEMENT 

14392 11 13991 000J4 
INCREMENT ELEMENT COUNT 

14404 11 07876 000-1 

CALCULATE FORM COUNT 

14416 13 07712 000-4 
14428 21 00099 14389 
14440 32 00096 00000 

14451 00000 

14452 26 07712 00099 
IS THIS THE ENO OF THE NEST 

14464 24 13991 07627 
14476 46 15328 01100 
RETURN TO CHECK NEXT ELEMENT 

14486 49 14344 00000 



IS IT A NEST 

IS IT A COMPUTE NEST 



SET ERROR NO. -103 



14496 

14496 14 1399J 

14508 46 14580 

14520 14 07595 

14532 46 14392 

14544 16 14579 



000-4 
01200 
COO-0 
01200 
00J03 



CALL TYPERR SUBPROGRAM VIA MONITR 







14556 


17 


02400 


-3090 


WRITE ERROR MESSAGE 




14568 


17 


02410 


00000 




14580 


11 


13991 


O0OJ2 


TRANSMIT CORRECT NEST 


TO 


TDATA 


TABLE 








14592 


16 


14634 


-3333 






14604 


21 


14634 


07874 






14616 


32 


13991 


00000 






14628 


31 


09999 


1399 J 






14640 


33 


13991 


00000 






14652 


11 


14634 


000-3 


UPDATE NT COUNTER 




14664 


21 


07874 


1463M 


10 « t FOR A NEST 




14676 


16 


14389 


000- 1 






14688 


12 


13991 


000J2 






14700 


49 


14392 


00000 






14708 








CHECK FOR A SYMBOL 




14708 


14 


1399J 


COO-l 






14720 


47 


14872 


01300 


INCREMENT TO SYMBOL 


NAME 












14732 


11 


13991 


000 J 2 


SAVE T*E SUBRECORO 


TYPE 












14744 


06 


13979 


07597 


i THE DICTIONARY IT MAY 


8E A MODIFIER 




LOAD ANO CALL 0ICT2 SUBPROGRAM 












14756 


17 


02400 


-3040 






14768 


27 


02410 


13991 


CHECK TO SEE IF IT 


WAS 


, FOUND 








14780 


14 


07595 


000-0 






14792 


46 


14892 


01200 



A MODIFIER IS 10-2 14804 16 14389 000-2 
REPLACE MODIFIER WITH EQUIVALENCE 

14816 26 1399J 07597 
RESTORE SRTYPE 14828 06 07597 13979 

14840 12 13991 000J2 
SET TYPE • 3 IN WORO LIST 

14852 16 1399J 000-3 
14864 49 14392 00000 
14872 

14872 11 13991 000J2 



06200 


87 


COO IT 


14884 


49 


14904 


00000 


07010 CALF 


TFL 


SRTYPE »SAVE * • 


RESTORE SRTYPE 14892 


06 


07597 


13979 


07020 COO IT 


CF 


TR 


14904 


33 


14915 


00000 


07030 TR 


OS 




14915 


00000 




07040 


TON 


CODE « 1 11 


14916 


15 


07715 


0000- 


07050* 






SET UP ARGUN EN TS TO FILE SUBPROGRAM 




07060 


TFN 


FLOSA, TOATA 


14928 


16 


16345 


-3333 


07070 


TF 


FLDSA*5,TATl 


14946 


26 


16350 


13991 


07080 


CF 


FLOSA»l 


14952 


33 


16346 


CCOOO 


07090 HEREI 


OS 


t* 


14963 


00000 




07100 


A 


FLOSA t NT 


14964 


2 1 


16345 


07874 


O7U0 


TO 


T2»FL0SA 


14976 


25 


14203 


16345 


07120 


CM 


T2,,10 


14988 


14 


14203 


ooo-o 


07130 


BE 


GOFILE 


15000 


46 


15072 


01200 


07140 TAKE2 


SM 


T2.2.10 


15012 


12 


14203 


000-2 


07150 


BE 


GOFILE 


15024 


46 


15672 


01200 


07160 


BNL 


TAKE2 


15036 


46 


15012 


01300 


07170 UPl 


AM 


FLOSA, 1,10 


15046 


1 1 


16345 


000-1 


07180 


SF 


TR 


15066 


32 


14915 


00000 


07190* 






LOAD ANO CALL FILE SUBPROGRAM 








07200 GOFILE 


BTN 


MONITR, 03210, 67 


15072 


17 


02400 


-3210 


08010 


BT 


FILE3,FLDSA*5*6 


15084 


27 


02410 


16350 


08020 


BNF 


CHKF , TR 


15096 


44 


15144 


14915 


080 30 


TF 


HEREi, FLOSA 


15108 


26 


14963 


16345 


08040 


SM 


FLOSA, I, 10 


15120 


12 


16345 


000-1 


08050 


TR 


FLOSA, HEREI, 611 


15132 


31 


1634N 


1496L 


08060* PILE MILL BRING A SYMBOL OR SYM NUMBER INTO TOATA 








08070* 


IF 


IT WAS NOT FOUND 


IT WAS UNOEFINEO 








08080 CHKF 


BNF 


UNOEF tFOUNO 


15144 


44 


15308 


07628 


08090 


TFN 


DESI*6, TOATA 


15156 


16 


15222 


-3333 


08100 


A 


DESU6.NT 


15166 


21 


15222 


07874 


08110 


AM 


0€SU6,3,iO 


15180 


It 


15222 


000-3 


08120 


A 


NT,DESI+6,11, 


UPDATE NT 15192 


21 


07874 


1522K 


08130 


AM 


DESI+6, 16,10 


15204 


11 


15222 


000J6 


08140 DESI 


CM 


9999* t 10* 


IS IT A SCALAR QUANTITY 














15216 


14 


09999 


COO-O 


08150 


BH 


SET ID 


15228 


46 


14676 


01100 


08160 


BL 


ERR1 


15240 


47 


15308 


01300 


08170 


AM 


DES1*6, 10*10 


15252 


11 


15222 


OOOJO 


08180* 






REPLACE THE NAME IN NOROL WITH 


THE SCALA 


08190 


TFL 


TAT1 ,DESl+6*6tl 


15264 


06 


1399J 


1522K 


08200 


SM 


TATl.12.10 


15276 


12 


13991 


000J2 


09010 


TFN 


TATl»2,610» 


SET TYPE * 2 FOR A NUMBER 














15268 


16 


1399J 


000-2 


09020 


B 


103 


15300 


49 


14360 


00000 


09030 


OORG 


•-3 


15306 








09040 ER112 


TFN 


WERM*U, 112*9, 


SET ERROR N0.-U2 15308 


16 


14579 


00J12 


09050 


B7 


WERM-12 


15320 


49 


14556 


00000 


09060 GEOMT 


CN 


RTYPE. »10* 


CHECK FOR COMPUT NEST 15328 


14 


07595 


000-0 


09070 


BE 


COMP 


15340 


46 


15428 


01200 


09080 


CM 


RTYPE, 21*10 


15352 


14 


07595 


O0OK1 


09090 


BNE 


SE TAPE 


15364 


47 


15396 


01200 


09100 PRTPUN 


BT 


MONITR, OUTOSA*** 


6 15376 


27 


02400 


16460 


091 10 


87 


CAN0UT**6 


15388 


49 


02410 


00000 


09120* 






INDEX TO CALL SUBPROGRAM FOR VARIOUS 




09130* 






GEOMETRY TYPES 








09140 SETAPE 


MM 


SRTYPE*-5,9 


15396 


13 


07597 


00-ON 


09150 


SM 


99.CG0T0-5 


15408 


12 


00099 


J6280 


09160 


B 


99,, 6 


15420 


49 


0009R 


00000 


09170 


OORG 


•-3 


15428 









09180* 
09190 COMP 
09200 
10010 
10020 
100 30 

10040 ER104 
10050 
10060 POI 

10070 

10080 

10090* 

10100 

10110 

10120* 

10130 FM63 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

11010 

11020 VARB 
11030 LIN 
11040 
11050* 

11060 PRJECT 

11070 

11080 

11090* 

11100 LINER 

11110 

11120* 

11130 

11140 

11150* 

11160 C1TC2 

11170 

11180 H20SA 

11190 

11200* 

12010 PLA 

12020 

12030 

12040 CIR 

12050 

12060 

12070* 

12080 

12090 

12100 

12110* 

12120 VCCSUR 
12130 
12140 
12150* 



BT 


H0NITR,C0H0SA*5 


• 6 


B 


COMPUT* .6 




OORG 


•-3 




80 


ER104.ERR 




87 


CAN 




TFN 


W6RM*ll, 104,9* 




B7 


WERM-12 




CM 


FORM, 63, 8, 




TFN 


VARB+6.CAN 




BE 


FM63 




BT 


H0NITR*P0I0SA»5 


< 


87 


POINT, ,6 


i 


TFN 


SYMB1.51*8 




TON 


SYMB7*l 




OC 


1*S* 




AN 


IAT1, 12,10 




TFL 


SYMB5*IATl*ll 




AN 


IATI, 14*10 




TFL 


SYM86, IAT1.11 




AN 


IATI, 14, 10 




TFL 


SYMB7*IAT1*U 




87 






CN 


RTYPE* 15*10. 




BNE 


LINER 


i 


BTN 


MONITR, 03150, 67 




BTN 


ZSURF.,610 




8T 


CAN 


< 


CN 


F0RH»266S*6 




BE 


C1TC2 


i 


BT 


M0NITR*LIN0SA»5 


• 6 


87 


LINE, ,6 


I 


8T 


M0NITR*H20SA*$» 


6 


87 


FM266S**6 




OSA 


CAN 




DSC 


5*03341 


1 


8T 


H0N1TR*PLA0SA*5 


• 6 


8 


PLANE, « 6 




OORG 


•-3 




CN 


FORM, 63, 8, 




TFN 


VARB*6*TSTRA0 




BE 


FM63 


1 


BT 


HONITR*CIR0SA*5 


.6 


8 


CIRCLE,, 6 




OORG 







CHECK FOR 2 SURF 



6T 

8 

OORG 



MONITR, VECOSA** 
VECTOR # »* 



LOAD ANO CALL CCPPUT SUBPROGRAM 

15428 27 02400 16340 
15440 49 02410 00000 
15448 

15448 43 15468 07682 
15460 49 15974 OCOOO 
SET ERROR N0.«104 15468 16 14579 OOJ04 

15480 49 14556 00000 
CHECK FOR SIMPLE DEFINITION 

15488 14 07712 0-063 
15500 16 15646 J5974 
15512 46 15544 01200 
LOAD ANO CALL POINT SUBPROGRAM 

15524 27 02400 16360 
15536 49 02410 00000 

PROCESS SIMPLE DEFINITION 

15544 16 04289 0-051 
15556 15 04336 00000 

15567 00001 

15568 11 07731 O00J2 
15580 06 04315 0773J 
15592 11 07731 00OJ4 
15604 06 04325 0773J 
15616 11 07731 000J4 
15628 06 04335 0773J 
15640 49 00000 00000 
15648 14 07595 00OJ5 

. 15660 47 15704 01200 
LOAD AND CALL 2SURF SUBPROGRAM 

15672 17 02400 -3150 
15684 17 02410 000-0 
15696 49 15974 00000 
CHECK FOR LINE TANGENT TO TWO CIRCLES 

15704 14 07712 0K665 
15716 46 15748 01200 
LOAD ANO CALL LINE SUBPROGRAM 

15728 27 02400 16370 
15740 49 02410 00000 
LOAD ANO CALL FM2665 SUBPROGRAM 

15748 27 02400 15776 
15760 49 02410 00000 

15771 00005 J5974 

15772 00005 
LOAO ANO CALL PLANE SUBPROGRAM 

15778 27 02400 16440 
15790 49 02410 00000 
15798 

CHECK FORMS IPPLC CIRCLE DEFINITION 

15798 14 07712 0-063 
15810 16 15646 J6 174 
15822 46 15544 01200 
LOAO AND CALL CIRCLE SUBPROGRAM 

15834 27 02400 16360 
15846 49 02410 00000 
15854 

LOAO ANO CALL VECTOR SUBPROGRAM 
A 15854 27 02400 16390 

15866 69 02410 00000 
15874 

LOAO ANO CALL MATRIX SUBPROGRAM 



28 



12160 MAT 


8T 


MQNITR,MAT0SA*5, 


* 15874 27 


02400 


16400 


121 70 


87 


MATR|X««6 


15886 49 


02410 


00000 


12 180* 






LOAO AND CALL TABCYL SUBPROGRAM 






12190 TAB 


BT 


MQNI TR »TA6DSA*5« 


6 15894 27 


02400 


16450 


12200 


B7 


TABCYL, ,6 


15906 49 


02410 


00000 


13010* 






LOAO A NO CALL GCCNIC SUBPROGRAM 






13020 CONIC 


BT 


M0NITR,C0N0$A*5, 


6 15914 27 


02400 


16410 


1)030 


B7 


GCONIC.,,6 


15926 49 


02410 


00000 


13040* 






LOAD AND CALL ELLIPS SUBPROGRAM 






13050 ELL IP 


BT 


M0NITR,ELL0SA«9» 


6 15934 27 


02400 


16420 


13060 


BT 


ELLIPS, ,6 


15946 49 


02410 


00000 


13070* 






LOAD AND CALL POCKET SUBPROGRAM 






13080 POCK 


BT 


M0NITR«P0K0SA*5 V 


6 15954 27 


02400 


164 30 


13090 


87 


POCKET,, 6 


15966 49 


02410 


00000 


13100* 






CHECK FOR A PREVIOUS EQUAL SIGN 






13110 CAN 


BNF 


0UTFIL*24,NEQUAL 


15974 44 


16034 


077)3 


131 20 


CM 


RTYPE • t 10, 


CHECK FOR A COMPUTE NEST 












15986 14 


07595 


000-0 


13130 


BE 


OIFCOO 


15998 46 


16226 


01200 


13140* 






LOAD ANO CALL FILE SUBPROGRAM 






13190 OUTFIL 


BTH 


MONITR,03200,6T 


16010 17 


02400 


-3200 


13160 


BTM 


FtLE2,SVN8l,67 


. 16022 17 


02410 


-4289 


13170 


CM 


RTYPE * 1 10« 


CHECK FOR COMPUTE NEST 16034 14 


07595 


OCO-0 


13180 


BE 


RESCOM 


16046 46 


16290 


01200 


13190* 






CHECK FOR PREVIOUS EQUAL SIGN 






13200 


BNF 


SETUP, NEQUAL 


16058 44 


16094 


077)3 


14010* 


THE SYMBOL MAS ALREADY BEEN STORED IN THE CANONICAL PORN 




14020* 


TABLE NOW GIVE 


IT A NEST AOORESS 






14030 


A 


STORAD+l 1 , TNEST 


16070 21 


14179 


077)8 


14040 


TF 


SYMB2,ST0RA0*ll 


16082 26 


04301 


14179 


14050* 


STORE SYMBOL AND DATA IN PROPER PLACE IN NEST TABLE 






14060 SETUP 


TF 


TREC*6,ST0RA0+ll 


16094 26 


161 12 


14179 


14070 TREC 


TR 


9999, SYMBl-3,6 


16106 31 


0999R 


04286 


14080 


A 


TNEST, SYMB1,, 


UPDATE POINTER IN NEST TABLE 












16118 21 


07738 


04289 


14090 


C 


TNEST tMAXNST 


16130 24 


07738 


14147 


14100 


BL 


RETURN*, 6 


16142 47 


0241 j 


01)00 


14110 ER113 


TFM 


MERM+U, 113,9, 


SET ERROR NO. -113 16154 16 


14979 


OOJl) 


14120 


B7 


WERM-12 


16166 49 


14556 


00000 


14130 TSTRAD 


BNF 


TSTZRO, SYMB7-2,, 


BRANCH IF RADIUS IS NON-NEGATIVE 










16174 44 


16206 


04333 


14140 ER316 


TFM 


WERM4U, 316,9, 


SET ERROR NO. -316 16186 16 


14579 


00L16 


14150 


B7 


WERM-12 


16198 49 


14556 


CCOOO 


14160 TSTZRO 


BD 


CAN,SYMB7-9», 


BRANCH IF RAOIUS tS NON-ZERO 












16206 43 


15974 


04326 


14170 


B7 


ER316 


16218 49 


16186 


00000 


14180 OIFCOO 


BTM 


MONITR,03190,67 


16226 17 


02400 


-3190 


14190 


BTM 


FILEI,SYMB1,67 


16238 17 


02410 


-4289 


14200* 


COMPUT LEFT ANSWER 


IN SYMB5 






15010 RESCON 


TFL 


SYMB2,SVMB5 


16250 06 


04301 


04315 


15020 


TFM* 


SYMB3,2,10 


16262 16 


04)03 


000-2 


15030* 






RETURN TO CALLING PROGRAM 






15040 


B 


RETURN, ,6 


16274 49 


0241J 


00000 


15050 


OORG 


•-4 


16281 






15060 CGOTO 


DSA 


LIN,CIR,CONIC,TAB,VECSUR*ELLlP 16285 00005 J5648 



16290 00005 J5798 

16295 00005 J5914 

16300 00005 J5894 

16305 00005 J 5 854 



15070 




OSA 


MAT, PLAtPOI, POCK 


16315 


00005 


J5874 










16320 


00005 


J5778 










16325 


00005 


J5488 










16330 


00005 


J 5954 


15080 


COMOSA 


OSA 


COMP+20 


16335 


00005 


J5448 


15090 




OSC 


5,03111 


16336 


00005 




15100 


FLDSA 


OSA 


9999, TATl 


16)45 


00005 


-9999 










16350 


00005 


J3991 


15110 


POINT 


OS 


,2416 


02416 


00000 




15120 


POIOSA 


DSA 


CAN 


16355 


00005 


J5974 


15130 




OSC 


5,03251 


16356 


00005 




15140 


LINE 


OS 


• 2416 


02416 


00000 




15150 


LINOSA 


DSA 


CAN 


16365 


00005 


J5974 


15160 




OSC 


5,03301 


16366 


00005 




15170 


CIRCLE 


OS 


,2416 . 


02416 


00000 




15180 


CIROSA 


OSA 


TSTRAO 


16375 


00005 


J6174 


15190 


MATRIX 


OS 


,2416 


02416 


00000 




15200 




OSC 


5,03371 


16)76 


00005 




16010 


VECTOR 


OS 


,2416 


02416 


00000 




16020 


VECOSA 


DSA 


CAN 


16)85 


00005 


J5974 


16030 




DSC 


5,03461 


16)86 


00005 




16040 


MATDSA 


OSA 


CAN 


16)95 


00005 


J5974 


16050 




DSC 


5,03481 


16)96 


00005 




16060 


GC0N1C 


OS 


,2416 


02416 


00000 




16070 


CONDSA 


OSA 


CAN 


16405 


00005 


J5974 


16080 




OSC 


5,03521 


16406 


00005 




16090 


ELLIPS 


OS 


,2416 


02416 


00000 


J5974 


16100 


ELLDSA 


OSA 


CAN 


16415 


00005 


16110 




OSC 


5,03931 


16416 


00005 




16120 


POCKET 


OS 


,2416 


02416 


00000 


J5974 


16130 


POKOSA 


OSA 


CAN 


16425 


00005 


16140 




DSC 


5,03541 


16426 


00005 




16150 


PLANE 


OS 


,2416 


02416 


00000 


J5974 


16160 


PLADSA 


OSA 


CAN 


164)5 


00005 


16170 




DSC 


9,03441 


164)6 


00005 




16180 


TABCYL 


OS 


,2416 


02416 


00000 


J5974 


16190 


TABOSA 


OSA 


CAN 


16445 


00005 


16200 




DSC 


5,03501 


1*4*6 


00005 




17010 


CANOUT 


OS 


,2416 


02416 


00000 


J6274 


17020 


OUTDSA 


OSA 


RESC0M*24 


16455 


00005 


17030 




OSC 


5,03981 


16456 


00005 




17040* 




COMMON WITH MAINLINE 








17050 


SYMBl 


OS 


,04289 


04289 


00000 




17060 


SYMB2 


OS 


,04301 


04)01 


00000 




17070 


SYMB3 


OS 


,04303 


04)0) 


00000 




17080 


SYMB4 


DS 


,04305 


04305 


00000 




17090 


SYMB9 


OS 


,04315 


04315 


00000 




17100 


ERR 


DS 


,07682 


07682 


00000 




17110 


IAT1 


0$ 


,07731 


07731 


00000 




17120 


IAT2 


DS 


,0762? 


07627 


00000 




17130 


FORM 


OS 


,07712 


07712 


00000 




17140 


TOATA 


OS 


,03333 


03333 


00000 




17150 


TDATA1 


OS 


•03336 


03336 


00000 




17160 


T0ATA2 


OS 


•03348 


03346 


00000 




17170 


T0ATA3 


OS 


•03350 


03350 


00000 




17180 


T0ATA4 


OS 


•033S2 


03352 


00000 




17190 


T0ATA5 


OS 


•03362 


03362 


00000 




17200 


T0ATA6 


OS 


•03372 


03372 


00000 




18010 


TOATA? 


OS 


•03302 


0)382 


00000 




18020 


COOE 


OS 


•07?l» 


0??19 


00000 





18030 NSTFLG 


OS 


•07746 


07746 


onnnn 

U UvvU 


18040 RTYPE 


OS 


•07595 


07595 


nnnnn 

wu uu 


18050 SRTYPE 


OS 


•07597 


07597 


00000 


13060 ERR I 


OS 


>6Ri 12 


15308 


00000 


16070 UNDEF 


OS 


•ER112 


15308 


00000 


18080 60ERR 


OS 


•ER113 


16154 


00000 


18090 FOUNO 


OS 


,07628 


07628 


00000 


18100 NEST 


OS 


,02532 


02532 


00000 


16110 INtT 


OS 


,07976 


07976 


00000 


18120 WFIlE 


OS 


,07747 


07747 


00000 


18130 NEQUAL 


OS 


,07733 


07733 


00000 


18140 TNEST 


OS 


,07736 


07738 


00000 


1B150 LCTAPE 


OS 


,07708 


07708 


00000 


18160 MCNITR 


OS 


• 2406 


02406 


00000 


18170 OICT 


OS 


,2416 


02416 


00000 


18180 TYPERR 


OS 


♦ 2416 


02416 


00000 


18190 FILE 


OS 


,2416 


02416 


00000 


16200 COMPUT 


OS 


• 2416 


02416 


00000 


19010 RETURN 


OS 


,241 1 


02411 


00000 


19020 ZSURF 


OS 


»2416 


02416 


00000 


19030 NT 


OS 


,07674 


07874 


00000 


19040 MCT 


OS 


,07876 


07876 


00000 


19050 SYMB6 


OS 


,04325 


04325 


00000 


19060 SYH67 


OS 


•04335 


04335 


00000 


190T0 FILEl 


OS 


• 2416 


02416 


ooooo 


19060 FILE2 


OS 


• 2416 


02416 


00000 


19090 F11E3 


OS 


• 2416 


02416 


ooooo 


19100 0ICT2 


OS 


• 2416 


02416 


ooooo 


19110 FM266S 


OS 


,2416 


02416 


ooooo 


19120 


OENO 


SIMPLE 


13872 





180/PI 18543 
T0ATA6 03372 
TDATAl 03336 
PI/180 18533 
ERR116 17996 
BRLOPl 16970 
BATAN 17652 
BOUT 18470 
CONT 18020 
ERR 07682 
FL1 16563 
IATl 07731 
IPOP 16470 
NEXT1 18148 
PAST 16878 
SINF 02416 
SYMB5 04315 
TEMP2 18513 
0.0 . 18523 



TYPERR 02416 
TOATAS 03362 
TANOSA 17641 
NOrOUN 16670 
ERRFLG 18370 
BPUNCT 16706 
BCOS 17592 
BSIN 17548 
COSF 02421 
EXPF 02416 
FTYPE 17433 
IAT2 07627 
LOGF 02416 
NNOTZ 17920 
PDIV 16958 
SQRTF 02416 
TAKE1 18172 
TEMPI 18593 



SYMBOL 


TABLE 


TVALUE 


18503 


T0ATA4 


03352 


RETURN 


024U 


MONITR 


02406 


COMPUT 


16462 


ANOTZ 


17984 


BEXP 


17796 


BSQRT 


17480 


CPENO 


18402 


FIX 


18112 


FUNCT 


16834 


I END 


16469 


. LCP 


16471 


NOP 


16481 


PPLUS 


17150 


SVLOP 


17282 


TANF 


02416 


TLAST 


16614 



TSTSYM 16546 
TOATAS 03350 
RAOIAN 18238 
FUNCHK 17338 
CHKEXP 17864 
ATANF 02416 
BLNTH 17716 
BTAN 18226 
CPNUM 16590 
FLE49 18573 
G01 17516 
I FUN 16484 
LSIGN 16482 
NOTl 17106 
SETOP 17026 
SX 18080 
TANSA 18219 
VALUE 18593 



T0ATA7 03382 
T0ATA2 03348 
PMINUS 17170 
EXPFUN 16338 
BRL0P2 17182 
BABS 17696 
BLOG 18270 
CHKO 17820 
CT 17805 
FLO 18583 
GQ2 18306 
INIT 07976 
MORD 17226 
NPLUS 17964 
SETl 17900 
SYMB1 04289 
TOATA 03333 
X 18503 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100 

OHIO COMPUT 

01120 

01130 

01140 

01150 

01160 

01170 

01180* 

01190 TSTSYM 

01200 
02010 
02020 
02030 

02040 CPNUM 

02050 

02060* 

02070 TLAST 

02080 

02090 

02100* 

02110 

02120 

02130 

02140* 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM COMPUT 

THIS SUBPROGRAM COMPUTES AN ALGEBRAIC NEST OR 
A FUNCTION 

L INK AGE IS 8T N0NITft 9 0SALBL*5 9 6 

B COMPUT 



D0R6 16462 
TFM ERR, ,10 
IEN0.0 
LSIGN.-l 
LQP.-l 
IPOPt-O 
TVALUE .0,0 
VALUE, 0.0 



TOM 
TOM 
TOM 
TOM 
TFL 
TFL 



CM IATl,2,610, 

BE CPNUM, , # 

BH BPUNCT, •• 

B CPENO-12 

OORC *-3 

AM IATI.12,10, 

TFL TVALUE*! ATI til* 

TOM 1P0P.*1 

C IATI,IAT2 

8L NOTOUN 

TOM IENOil 

8 BAL0P2 

00R6 «-l 



INITIALIZE COUNTERS AND SWITCHES 

164*? 

164*>* 16 07682 
16474 15 16469 
16486 15 16482 
16498 15 16471 
16510 15 16470 
16522 06 1B503 
16534 06 18553 
IAT2 IS INDICATOR OF POSITION IN UOROL 
CHECK THE ELEMENT TYPE 

16546 14 0773J 
NUMBER 16558 46 16590 

PUNCTUATION 16570 46 16706 

16582 49 18390 
16590 

STEP INDICATOR TO GET NUMBER 

16590 11 07731 
STORE THE NUMBER 16602 06 18503 

TEST FOR LAST NORO 

16614 15 16470 
16626 24 07731 
16638 AT 16670 
LAST MORO SET €N0 INDICATOR 

16650 15 16469 
16662 At 17182 
16670 

NOT COMPLETE •• TEST IF NEXT 



COO-0 
CCOOO 
COOOJ 
OOOOJ 
OOOOO 
18523 
18523 



COO-2 
01200 
01100 
OOOOO 



C0OJ2 
0773J 

OOOOJ 
07627 
01300 

C0001 
OOOOO 



02150* 






UOftO IS PUNCTUATION 










021 60 NOTOUN 


AM 


IAU,2,10 




16670 


U 


07731 


O0O-2 


02170 


CM 


IATI.3,610 




16662 


14 


0773J 


000-3 


02180 


BNE/ 


TSTSVM06,,* 


ERROR CONDI TICN 


16694 


47 


16582 


01200 


02190* 






BRANCH ON PUNCTUATION OF 


THIS WORD 




02200 BPUNCT 


AM 


UTUUtlO 




16706 




0773 1 


C0OJ2 


03010 


CM 


IATI«10,610, 


TEST ♦ 


16718 


14 


0773 J 


OOOJO 


03020 


BE 


PPLUS 




16730 


46 


17150 


01200 


030 30 


BL 


FUNCT 




16 742 


47 


16834 


01300 


03040 


CM 


IATl,l*«610 v 


TEST • 


16754 


14 




000J4 


03050 


BE 


PAST 




16766 




^6878 


01200 


03060 


CM 


IAT1#20,610, 


TEST - 


16778 


14 


0773 J 


COOKO 


03070 


BE 


PMINUS 




16790 


46 


171 70 


01200 


03080 


CM 


IAT1, 21,610, 


TEST / 


16802 


14 


0773 J 


00OK1 


03090 


BE 


POIV 




16814 


46 


16958 


01200 


03100 


B 


TSTSYM06,,, 


ERROR CONDITION 


16826 


49 


16582 


00000 


03110 


DORG 


•-3 




16834 








03120 FUNCT 


TF 


lFUNtlATl.il 




16834 


26 


16484 


0773J 


03130 


CM 


IFUNtlOt 10 




16846 


14 


16464 


OOOJO 


03140 


BH 


TSTSYM06*,t 


ERROR CONDITION 


16858 


46 


16582 


01100 


03150 


B 


PUNCH* 




16870 


49 


17338 


COOOO 


03160 


DORG 


•-3 




16878 








03170 PAST 


TOM 


NOP, 3 




16878 


15 


16461 


00003 


03180 


TFM 


IFUN. 10,1011 




16890 


16 


16484 


OOOJ- 


03190 


SM 


IATI,14,10 




16902 


12 


07731 


0C0J4 


03200 


CM 


1ATI, 14,610, 


CHECK FOR ASTERISK— (EXPONENTIATION) 












16914 


14 


0773J 


000J4 


04010 


BE 


FUNCHK-12,,, 


BRANCH TO FUNCTIONAL ROUTINES 














16926 


46 


17326 


01200 


04020 


AM 


IATl, 14,10* 


INCREMENT TO NEXT WORD 


16938 


11 


07731 


O0OJ4 


04030 


B 


BRLOPl 




16950 


49 


16970 


COOOO 


04040 


00 RG 


•-3 




16958 








04050 PDIV 


TOM 


NOP, 9, , 


DIVIOE— SET NEW OPERAT 1 


ON 

16958 


15 


16481 


0C009 


04060* 


/OR*. ...BRANCH ON 


LAST OPEEATION 










04070 BRL0P1 


BNF 


•♦32, LOP 




16970 


44 


17002 


16471 


04080 


TFL 


TEMP2, TVALUE, , 


STORE PRESENT VALUE IN 


TEMP2 
16982 


06 


18513 


18503 


04090 


B 


SETOP 




16994 


49 


17026 


00000 


04100 


OOP. 6 


•-3 




17002 








04110 


TO 


•♦13, LOP,. 


SET FMUL OR FOIV 


17002 


25 


17015 


16471 


04120 


TFL 


TEMP2, TVALUE t • 


ALWAYS MODIFIED FOR FMUL OR 


FDIV 












17014 


06 


18513 


18503 


04130 SETOP 


TO 


LOP, NOP 




17026 


25 


16471 


16481 


04140* 






IPOP USEO AS INCICATOR FOR FIRST 






04150* 






OPERATION ANO ALSO CCNSECUTIVE 


OPERATORS 


04160* 






TEST ILLEGAL ALGEBRA 










04170 


BO 


NOT 1,1 POP 




17038 


43 


17106 


16470 


04180 


CM 


IATI,14,610, 


CHECK FOR ASTERISK— MULTIPLICATION 












17050 


14 


0773J 


CC0J4 


04190 


BE 


TSTSYM+36,,, 


ERROR CONOITICN 


17062 


46 


16582 


01200 


04200 


CM * 


IATI,21,610, 


CHECK FOR SLASH— DIVIDE 
















17074 


14 


0773J 


COOK I 


05010 


BNE 


NOTltU 




17086 


47 


17118 


01200 


05020 


B 


TSTSYM+36,,, 


ERROR CONDITION 


17098 


49 


16582 


00000 


05030 


OORG 


•-3 




17106 








05040 N0T1 


BNF 


TSTSVMO6,IP0P 




17106 


44 


16582 


164 70 


05050 


TOM 


IPOP.l 




17118 


15 


16470 


COOOl 


05060 


AM 


IAT1,2,10, 


READY NEXT WORD 


17130 


11 


07731 


000-2 


05070 


B 


TSTSVM 




17142 


49 


16546 


OCOOO 



05080 
05090* 
05100 PPLUS 
05110 
05120 

05130 PMINUS 
05140 BRL0P2 
05150 
05160 

05170 
05180 

05190 MORO 
05200 

06010 

06020 

060 30 

06040 

06050* 

06060 SVLOP 

06070 

06080 

06090 

06100 

06110* 

06120 

06130 FUNCHK 
06140 



TOM 

B 

DORG 

TDM 

BNF 

TD 

TFL 



DORG 

TO 

TFL 

TFL 

TD 

B 

DORG 

TO 
TO 
BD 
B 

OORG 



06150 
06160 
06170 

06180 

06190 
06200 
07010 

07020 FTYPE 



AM 
AM 

CM 

BNE 

AM 

TFL 



NOP.-l 
BRL0P2 
•-3 

N0P.-2,, 
MORD.LOP 
•♦13, LOP, , 
VALUE, TVALUE t, 

SVLOP 
•-3 

♦♦13, LOP,, 
TEMP2, TVALUE,, 

TVALUE, TEMP2## 

L0P,LSIGN,« 

BRL0P2 

•-3 

LSIGN.NOP 
LOP, NOP 
CPEND,IENO,# 
SETOP+12 
•-3 

IATl,14,10, 

IAT1,2,10 

IATl.2,610, 

ERRFLG 

IATI,12*10 

X.IATl.llt 



17150 

OR - ••• BRANCH ON LAST OPERATION 

17150 15 16481 OOOOJ 
17162 49 17182 OCOOO 
17170 

17170 15 16481 OOOOK 
17182 44 17226 16471 
17194 25 17207 16471 
ALWAYS MOOIFIEO FOR FAOO OR FSUB 

17206 06 18553 18503 
17218 49 17282 00000 
17226 

SET FMUL OR FDIV 17226 25 17239 16471 

ALWAYS MOOIFIEO FOR FMUL OR FOIV 

17238 06 18513 18503 



SUBTRACTION— NOP— 2 
SET FADD OR FSUB 



RESTORE TVALUE 
UPDATE SIGN 



SAVE LAST OPERAT ICN» 



TEST FOR ENO OF NEST 



MM IFUN, 5,9, 



17250 06 18503 18513 
17262 25 16471 16482 
17274 49 17182 00000 
17282 

UPDATE SIGN 
17282 25 16482 16481 
17294 25 16471 16481 
17306 43 18402 16469 
17318 49 17038 OCOOO 
17326 

FUNCTION OR PREPARE TO EXECUTE 

INCREMENT TO NEXT WORO 17326 11 07731 000J4 
17338 11 07731 000-2 
CHECK THAT ARGUMENT IS A NUMBER 

17350 14 0773J COO-2 
17362 47 18370 01200 
17374 11 07731 000J2 
STORE THE ARGUMENT IN X 

17386 06 18503 0773J 
1N0EX TO PROPER FUNCTION TYPE 

17398 13 16484 00-05 



SM 99, •♦18 
B 99, ,6 
DORG *-4 

DSA BSORT , BS I N , BCOS , BAT AN , BA8S , BLNTH , BLOG 



OSA EXPF UN »BT AN, BEXP 



07040* 
07050* 
07060 BSORT 

07070* 

07060 

07090 

07100* 

07110 GO! 

07120 

07130 



BNF G01tX-2 



BTM 

BTM 

BTM 
BTM 
8 



WON I TR, 03090, 67 
TYPERR, 117,67 

MONI TR ,02000 tt? 
SQRTF,X,A7 

TLAST 



17410 12 00099 J7428 
17422 49 0009R 00000 
17429 

17433 00005 J7480 
17438 00005 J7548 
17443 00005 J7592 
17448 00005 J7652 
17453 00005 J7696 
17458 00005 J7716 
17463 00005 J8270 
17468 00005 J8338 
17473 00005 J8226 
17478 00005 J7T96 
EVALUATE FUNCTION 
SQUARE ROOT 

CHECK FOR NEGATIVE ARGUMENT 

17480 44 17516 18501 
LOAD ANO CALL TYPERA SUBPROGRAM 

17492 17 02400 -3090 
17504 17 02410 -0117 
iOAO ANO CALL SQRTP SUBPROGRAM 

17516 17 02400 -2000 
17526 17 02410 J6503 
17540 49 16614 00000 



31 



07140 


O0RG 


•— 3 


175*8 














LOAD AND CALL 5 INF SUBPROGRAM 








ATI Art kttM 


BTM 


Hun I In 1 020 10 » 67 


17548 


17 


02400 


-2010 


071 70 


F MIS I, 


X# P I / 1 80 » «. 


tHANbt AnbLc TO RADIANS 














17560 


03 


18503 


18533 


07180 


BTM 




17572 


17 


02410 


J8503 


07190 


8 


TLAST 


17584 


49 


16614 


A A AAA 
00000 


07200 


0QRG 


•—3 


17592 








UOU l u • 






i nin Akin rn i f aci tunaanrn >u 
LUAU ANO WALL CUSP SUBPROGRAM 








nfinift nr Ac 
uou/u Owua 




MniUf TO A1AI A.4f 

WUNS IK f U«OIOfOf 


17592 


17 


02400 


-2010 


080)0 




X# PI / 1 80 1 t 


f UttM«e A&iAl A? TA AiAf iut 

CHANGE ANGLE TO RACIANS 














17604 


03 


18503 


18533 




BTM 


l.U5r i«iOr 


17616 


17 


0242J 


J8503 


AOaHa 






17628 


49 


16614 


00000 


08060 




*— 4*5* 1— 1 1 


17639 








08070 


NOP 


X» X 


17640 


41 


18503 


18503 


UOvJQV 


00RG 




17637 








UoOtU 1 AnU)A 


DSA 


PL 1 


17641 


00005 J8563 


081 00 


0QAG 


•♦5*3-4 


17652 








UBllO 0AIAN 


BTM 


HON I TRt02020|O7 


17652 


17 


02400 


-2020 


08120 


BT 


ATANr t TAND5A* lOt 


6 17664 


27 


02410 


17651 


081 SO 


FMUL 


X» 180/PI # t 


CHANGE ANGLE TO RADIANS 














17676 


03 


18503 


18543 




B 


TL AST 


17688 


49 


16614 


00000 


081 50 


DORG 


•«• 3 


17696 








081 60* 






ABSOLUTE FUNCTICN... CLEAR FLAG 






QUI rU BAD) 


ft 


X— 2 


17696 


33 


18501 


00000 


081 80 


B 


TLAST 


17708 


49 


16614 


ocooo 


08190 


DQRG 


•-3 


17716 








a a i Art a 
OaZOO* 






COMPUTE LENGTH FUNCTION OF VECTOR 






09010 8LNTH 


FMUL 


TDATA5 1 T0ATA5 


17716 


03 


03362 


03362 




TFL 


X, T0ATA5 


17728 


06 


18503 


03362 


nan tn 


FMUL 


TDAIA6tlDATA6 


17740 


03 


03372 


03372 


nontn 




X» TOAT A6 


17752 


01 


18503 


03372 


!! « #! 


FMUL 


TAIT17 TniTil 

IUAIA f f 1 OA 1 A f 


17764 


03 


03382 


03382 


01060 


FAO0 


X» TDATA7 


17776 


01 


18503 


03382 


09070 


B 


BSQRT 


17788 


49 


17480 


00000 


09080 


O0RG 


•-3 


17796 








09090* 






EXPONENTIAL FUNCTION.. • 








091 00* 






CHECK FOR FIX OR FLOATING 








09110 8 EXP 


TFM 


CT ,8, 10 


17796 


16 


17805 


000-8 


09120 CT 


DS 


♦ •-2 


17805 


00000 




091 30 


TFM 


CMKO* 11» TVALUE-2 


17808 


16 


17831 


J8501 


09140 CHK0 


B0 


CHKEXP«9999 


17820 


43 


17864 


09999 


091 50 


SM 


CTtltiO 


17832 


12 


17805 


000-1 


09160 


SM 


CHKD*il» It 10 


17844 


12 


17831 


000- 1 


09170 


87 


CHKO 


17856 


49 


17820 


00000 


09180 CHKEXP 


C 


CT,TVALUE 


17864 


24 


17805 


18503 


09190 


BZ 


FIX 


17876 


46 


18112 


01200 


,09200* 






FLOATING EXPONENT 








10010 


' B0 


NNOTZ t TVALUE**9f » 


CHECK FOR ZERO EXPONENT 














17888 


43 


17920 


18494 


10020 SEfl 


TFL 


X,FLl» t 


Af»0* I 17900 


06 


18503 


18563 


10030 


B7 


TLAST 


17912 


49 


16614 


COOOO 


1 nnin UklflTT 

LUU4u nnuii 




AMflT 1 - TCMD9_a 
*|>IU 111 ltHr(£*7 


17920 


43 


17984 


18504 


10050 


BNF 


NPLUS- TVALUE-2 


17932 


44 


17964 


18501 


10060 


TFL 


X-FLE49 


17944 


06 


18503 


18573 


10070 


B7 


TLAST 


17956 


49 


16614 


00000 


10080 NPLUS 


TFL 


X.FLO., 


0*«N« 17964 


06 


18503 


18583 


10090 


B7 


TLAST 


17976 


49 


16614 


COOOO 



10100 A NOT 2 


BNF 


C0NT.TEMP2-2 


10110* 






10120 ERRU6 


BTM 


MONI TR, 03090. 67 


10130 


BTM 


TYPERR. 116, 67 


10140* 






10150 CONT 


BTM 


MOM TR. 02040, 67 


10160 


BTM 


LOGF,TEMP2,67 


10170 


FMUL 


TEMP2t TVALUE 


10180* 






10190 


BTM 


MONITR, 02030*67 


10200 


BTM 


EXPF.TEMP2.67 


11010 SX 


TFL 


X.TEMP2 


11020 


TOM 


LOP.-l 


11030 


B7 


TLAST 


11040* 






11050 FIX 


BNF 


NEXTl.TVALUE-2 


11060* 






11070 


BTM 


MONI TR, 03090, 67 


11080 


BTM 


TYPERR, 115.67 


11090* 






11100 NEXT1 


TFL 


X, TVALUE 


11110 


TFL 


TEMPI, TEMP2 


11120 TAKE I 


FSUB 


XtFLl 


1U30* 






11140 


BZ 


SX 


11150 


FMUL 


TEMP2, TEMPI 


11160 


B7 


TAKE I 


11170 TANSA 


OSA 


RAOI AN+24 


11180 


DSC 


5,02211 


11190* 






11200 BTAN 


BT 


MONITR,TANSA*5,< 


12010 RAOtAN 


FMUL 


X, PI/160,. 


12020* 






12030 


BTM 


TANF, X, 67 


12040 


87 


TLAST 


12050 BLOG 


8NF 


G02.X-2.. 


12060* 






12070 


BTM 


MONI TR, 03090, 67 


12080 


BTM 


TYPERR, 118,67 


12090 G02 


BTM 


HON I TR, 02 040, 67 


12100 


BTM 


L0GF.X.67 


12110 


87 


TLAST 


12120* 






12130 EXPFUN 


BTM 


MONI TR. 02030, 67 


12140 


BTM 


EXPF.X.6T 


12150 


B7 


TLAST 


12160 ERRFLG 


TOM 


ERR»-1 


12170 


8 


CPENO 


12180 


0QR6 


•-3 


12190 


TOM 


ERR* I 


12200 CPENO 


TFL 


SYMBS* VALUE** 


13010 


TFM 


SYMBltlltBt 


13020 


TOM 


SYM89*l 


130)0 


DC 


!*•*• 


13040* 






I10S0 


•V 


BOUT 



17984 44 18020 18511 

LOAD AND CALL TYPERR SUBPROGRAM 

17996 17 02400 -3090 
18008 17 02410 -0116 

LOAD AND CALL LOGF SUBPROGRAM 

18020 17 02400 -2040 
18032 17 02410 J8513 
18044 03 18513 18503 

LOAO AND CALL EXPF SUBPROGRAM 

18056 17 02400 -2030 
18068 17 02410 J8513 
16080 06 18503 18513 
18092 15 16471 OOOOJ 
18104 49 16614 00000 

FIXEO EXPONENT 

18112 44 18148 18501 
LOAO ANO CALL TYPERR SUBPROGRAM 

18124 17 02400 -3090 
18136 17 02410 -0115 



PERFORM FIXEO MULTIPLY 



CHECK IF OONE 



18148 06 18503 18503 

18160 06 18593 18513 

18172 02 18503 18563 

18184 46 18080 01200 

18196 03 18513 18593 

18208 49 18172 00000 

18219 00005 J8262 

18220 00005 



LOAO TANF SUBPROGRAM 
» 18226 
CHANGE ANGLE TO RAOIANS 

18238 

CALL TANF SUBPROGRAM 

18250 
18262 

CHECK FOR NEGATIVE ARGUMENT 
18270 

CALL ANO LOAO TYPERR SUBPROGRAM 



LOAO AND CALL EXPF SUBPROGRAM 



SET RECORO LENGTH IN SYMB1 



RETURN TO CALLING FROG* AM 



2T 


02400 


18224 


03 


18503 


18533 


17 


02410 


J8503 


49 


16614 


00000 


44 


18306 


18501 


17 


02400 


-3090 


17 


02410 


-0118 


17 


02400 


-2040 


17 


02410 


J8503 


49 


16614 


00000 


17 


02400 


-2030 


17 


02410 


J8503 


49 


16614 


ooooo 


15 


07682 


OOOOJ 


49 


18402 


00000 


15 


07682 


00 00 1 


Bf 






06 


04115 


18551 


16 


04289 


0-011 


15 


04116 


ooooo 


0000 1 




46 


18470 


01400 



1 JO 60 




BXV 


bOUT 






19450 


46 18470 


13070 




67 


RETURN* »6 






18462 


49 0241J 


13080* 






LOAO AND CALL 


TVPERR 


SUBPROGRAM 




13090 


BOUT 


BTN 


MONl TR •03090*6? 






18470 


17 02400 


13100 




BTN 


TVPERR, 122,6? 






18482 


17 02410 


13U0 


t END 


OS 


l»COMPUT»? 






16469 


00001 


13120 


I POP 


OS 


1, COMPUTES 






16470 


00001 


13130 


LOP 


OS 


l»C0MPUT*9 






16471 


00001 


13140 


NOP 


OS 


1»C0MPUT*19 






16481 


00001 


13150 


(.SIGN 


OS 


1 »COMPUT»20 






16482 


00001 


13160 


I FUN 


OS 


2*COMPUT+22 






16484 


00002 


13170 


TVALUE 


OS 


10 






18503 


00010 


13180 


TENP2 


OS 


10 






18513 


00010 


13190 


X 


OS 


lOt TVALUE 






18503 


00010 


13200 




oc 


8*0 






18521 


00006 


14010 


0.0 


oc 


2*-99 






18523 


00002 


140 20 




DC 


8* 17453292 






18531 


00008 


14030 


PI/180 


DC 


2t-l 






18533 


00002 


14040 




OC 


8*57295779 






18541 


00008 


14050 


lao/Pi 


DC 


2t2 






18543 


00002 


14060 


VALUE 


OS 


10 






18553 


00010 


14070 




OC 


8* 10000000 






18561 


00008 


14060 


PL 1 


OC 


2* 1 






18563 


00002 


14090 




OC 


8* 10000000 






18571 


00008 


14100 


FLE49 


OC 


2»49 






18573 


00002 


14110 




DC 


8*0 






18581 


00008 


14120 


FLO 


DC 


2*-99 






18583 


00002 


14130 


TEMPI 


DS 


10 






18593 


00010 


14140* 






COMMON WITH 


MAINLINE 






14150 


IAT2 


OS 


*07627 






07627 


00000 


14160 


IAT1 


OS 


»0773l 






07731 


00000 


14170 


SVMBl 


DS 


♦04289 






04289 


00000 


14180 


SVMB5 


OS 


#04315 






04315 


00000 


14190 


TOATA 


DS 


*03333 






03333 


00000 


14200 


T0ATA1 


DS 


* 03336 






03336 


00000 


15010 


T0ATA2 


OS 


,03348 






03348 


00000 


15020 


T0ATA3 


DS 


,03350 






03350 


00000 


15030 


T0ATA4 


OS 


,03352 






03352 


00000 


15040 


TDATA5 


DS 


,03362 






03362 


00000 


15050 


TDATA6 


OS 


t03372 






03372 


00000 


15060 


TDATA7 


OS 


,03382 






03382 


00000 


15070 


ERR 


DS 


*07682 






07682 


00000 


15080 


INIT 


DS 


,07976 






07976 


00000 


15090 


SQRTF 


DS 


*2416 






02416 


00000 


15100 


EXPF 


DS 


,2416 






02416 


00000 


15110 


ATANF 


OS 


,2416 






02416 


00000 


15120 


COSF 


OS 


,2421 






02421 


00000 


15130 


SINF 


DS 


,2416 






02416 


00000 


15140 


LOGF 


OS 


,2416 






02416 


00000 


15150 


TANF 


OS 


,2416 






02416 


00000 


15160 


TVPERR 


OS 


,2416 






02416 


00000 


151 70 


MONITR 


OS 


,2406 






02406 


00000 


15180 


RETURN 


OS 


,2411 






02411 


00000 


15190 




DENO 


COMPUT 






16462 





TYPILL 16178 
IDATA6 03372 
HCTURN 02411 
NESTED 15780 
FILOSA 15924 
BR8AK 17262 
CS 16702 
DICT2 02416 
FL2Z 07670 
1ATI 07731 
MIST2 17318 
NRT6 16654 
0UT3 17238 
SYMB4 04305 
TEMPI 17431 
TR31 15640 



TVPERR 02416 
T0ATA5 03362 
POSTPA 14696 
MONITR 02406 
FEEOER 17022 
B720 16538 
C69 16390 
ER121 17294 
FOUND 07628 
INOEX 17346 
MM0D4 15120 
NSRF 03351 
PRAMT 15344 
SVM85 04315 
TEMP2 17441 
UNOEF 17316 



SYMBOL 


TABLE 


TEMPAD 


15075 


T0ATA4 


03352 


OUTPUT 


02416 


LCTAPE 


07708 


ERR120 


16938 


CLFLG 


15040 


C71 


16446 


FILE 


02416 


FRGO 


16962 


INIT 


07976 


NAT2 


07666 


NSRT 


03349 


RTYPE 


07595 


TDAT 


16026 


TENEQ 


15212 


2A00 


15736 



T0ATA8 03392 
SRTYPE 07597 
NUMBER 15688 
FL ZERO 17406 
AC010 15368 
COOE 07715 
C76 16502 
FILE3 02416 
GOOF 16202 
I NSRT 15027 
NPM 07622 
OUTER 15248 
SETO 15668 
TOATA 03333 
TRAN 15028 



T0ATA7 03382 
SETDAT 16618 
NOMORE 17270 
FILTER 15930 
ALOAT 16782 
COUT 16094 
DICT 02416 
FLONE 17396 
HALF 1 17421 
MINOR 15524 
NRT 03345 
0UT2 17190 
SVMBl 04289 
TEMPO 17411 
TRY2 14956 



01010* 

01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01080* 

01090* 

01100 

OHIO 

01120 POSTPA 
01130 



I8M 1620*1311 AO-APT* 



INTRAN SUBPROGRAM POSTPA 
LINKAGE IS BT MONI TR,0SALBL»5 

6 POSTPA 

IATI IS SET TO MAJOR WORD TO LEFT OF SLASH OR 

POSSIBLY TO MAJOR MODIFIER WORD 

NAT2 HAS ADDRESS OS LAST MINOR ELEMENT 



OORG 

OC 

TFM 



01140 
01150 

01160 

01170 
01180 
01190 
01200 
02010 

02020 
02030 
02040 
02050 

02060 
02070 
02060 
02090 

02100 

02110* 

02120* 



TFM 
TFM 



14690 
5.0 

NPW.t6* 



TFM NSRF * * 10* 



NRT,, 8* 
NSRT, ,8, 



AM IATI, 16, 10, 



CM 

ONE 

CM 

BNE 

TFM 

TOM 
OC 
TFM 
TFM 

CM 
6NE 
AM 
fFL 



RTYPE, 6, 10, 
TRY2 

SRTYPE, 2, 10 
TRV2 

NPW,10,8, 

TDAT AS* t 
lt't* 
NRT*6»6* 
NSRT, 4, 8, 

IATI, 2, 610 
TYPILL 
IATI, 12. 10 
T0ATA5* I ATI * 



FMUL T0ATA5»HALF1»# 



14690 

14694 00005 
INITIALIZE CHARACTER COUNT 

14696 16 07622 0-000 

INITI AINI TI ALIZE SURFACE TYPE 

14708 16 03351 000-0 

INITIALIZE RECORO TYPE 14720 16 03345 0-000 

INITIALIZE SU6REC0R0 TYPE 

14732 16 03349 0-000 

INCREMENT TO FIRST PARAMETER WORD 

14744 11 07731 O0OJ6 

CHECK FOR TOLER 14756 14 07595 000-6 

14768 47 14956 01200 

14780 14 07597 000-2 

14792 47 14956 01200 

SET CHARACTER COUNT TO 10 

14804 16 07622 0-010 

14816 15 03363 00000 

14827 00001 

SET RECORO TYPE TO 6 14826 16 03345 0-006 
SET SU6AEC0R0 TYPE TO 4 

14840 16 03349 0-004 

14652 14 0773J 000-2 

14864 47 16178 01200 

14676 11 07731 0OOJ2 
STORE THE TOLERANCE IN TOATAS 

14686 06 03362 0773J 

INTOL-TOLER/2 14900 01 01362 17421 

LOAO AND CALL OUTPUT SUBPROGRAM 
OUTPUT INTOL RECORD 



11* 



02 1 30 


ATM 


NUFS I IK,U)130, 


67 


14912 


17 


02400 


•31 30 


021 40 




UU I FU I i TDA I ft 5 


**9 


t67 14924 


17 


02410 


-335) 


021 


TFM 


NSRT ,5 , 8 1 




SET SUBRECORD TYP6 TO 5 

14936 


16 


03349 


0—005 


021 60 


87 


miT) 

UU 1 c 




14948 


49 


1 7190 


00000 


02170* 








tncvR run iHNbUi 








ft? t Aft TRV9 
vet ou inic 


CM 


n I ice i « 1 1U 




14956 


14 


07595 


' . _ 
000—2 


021 90 


BNE 






14968 


47 


15028 


01200 


02200 


TFM 


NSH f — Z , lu, IV 




14980 


16 


03147 


00OJ0 


030 10 


CM 


to TV AC . ii . i a 




t4992 


14 


07597 


00OL8 




BUS 


TRAN 




15004 


47 


15028 


01200 


03030* 








PIAC AT LCTAPE. ..ARELEN MUST BE 


CALLED 




03040 


SF 


LCYAPE 




15016 


32 


07T08 


OOOOO 


Aintn tkjcaT 
INaKT 


0$ 


»* 




15027 


00000 




03060 IRAN 


TP 


NRTiRTYPE i » 




STORE THE RECORD TYPE IN OUTPUT 


AREA 












15026 


26 


03345 


07595 


03070 CUIG 


CP 


NRT-i 




15040 


31 


03)44 


00000 


03080 


TP 


uenr cut woe 
N5K 1 t 5RT YPC » » 




STORE THE SUBRECORD TYPE 

15052 


26 


03349 


07597 


03090 


CF 


N5RT-1 




15064 


33 


03348 


OOOOO 


nil nn TCuDtn 

UJIUU ICnrHU 




t* 




15075 


00000 




03110 




NSRF , , 10* 




INITIALIZE THE SURFACE TYPE 
15076 


16 


03351 


000-0 


03120 


MM 


Kf YPfc 




INDEX THE CORRECT BRANCH* .ON 


RTYPE 












15088 


13 


07595 


00-ON 


03130 


SM 


99* IN0EX 




15100 


12 


00099 


J7346 


031 AO 








15112 


49 


0009R 


OOOOO 




OORG 


*— 3 




15120 








0U60* 








RECORD TYPE 4 MAJOR MODIFIER 






« it in MMnn& 
ii j i i u nnuus 


CM 


SK I TPC , tw f lO» 




CHECK FOR CUT STATEMENT 

15120 


14 


07597 


0C0J0 


31 80 


BE 


TENEQ 




15132 


46 


15212 


01200 


031 90 


61 


OUTER 




15144 


47 


15248 


01300 


3200 


CM 


SRTYPE,2l,lO» 




CHECK FOR END STATEMENT 

15156 


14 


07597 


OOOK 1 


040 10 


BL 


TENEQ 




15168 


47 


15212 


01300 


04020* 


END, STOP, QPSTOP 


OR 


RAPID 








040 30 


TFM 


NRT,2,8, 




SET RECORO TYPE TO 2 15180 


16 


03345 


0-002 


04040 


SN 


NSRT t 20,8 




15192 


12 


03349 


0-020 


04050 


B 


OUTER 




15204 


49 


15248 


00000 


04060 


OORG 


•-3 




15212 








040 70* 








CUT OR ONTCUT STATEMENT 








04080 TENEQ 


SM 


NSRT, 10,8 




15212 


12 


03349 


0-010 


04090 


TFM 


NRT.6,8, 




SET RECORD TYPE TC 6 15224 


16 


03345 


0-006 


04 1 00 


SF 


LCTAPE 




15236 


32 


07708 


00000 


041 10* 








LOAD AND CALL OUTPUT SUBPROGRAM 








04120 OUTER 


am 


M0NITR, 03130, 


67 


15248 


17 


02400 


-3130 


041 30 


am 


OUTPUT, TDATAS 




,67 15260 


17 


02410 


-3353 


04140* 








TEST IF OS OR CS TO BE OUTPUT 








04150 


TFM 


NRT,3,8 




15272 


16 


03345 


0-003 


04 1 60 


TFM 


NSRT, 2,0 




15284 


16 


03349 


0-002 


041 70 


CM 


RTYP£,7,10, 




CHECK FOR GO OR OFFSET STATEMENT 












15296 


14 


07595 


000-7 


04 1 80 


BL 


BRBAK 




15308 


47 


17262 


01 300 




BE 


GOOF 




15320 


46 


16202 




04200 


SF 


LCTAPE, * , 




ARELEM MUST BE CALLED 15332 


32 


07708 


C0000 


05010* 








LOOK UP AND STORE ALL PARAMETERS 






05020 PRAMT 


C 


IATl,NAT2*« 




CHECK FOR END OF STATEMENT 

15344 


24 


07731 


07666 


05030 


BH 


AID AT 




15356 


46 


16782 


01100 



05040 AO010 


AM 


NPM, 10,8, 


ADO 10 TO CHARACTER COUNT 

15368 11 


07622 


0-010 


05050* 






DETERMINE TYPE OF ELEMENT 






05060* 






SYMBOL*! NUMBER*? MODIFIER-3 






05070 


CM 


IATl.2,610 


15380 14 


0773J 


C00-2 


05080 


BE 


NUMBER 


15392 46 


15688 


01200 


05090 


BH 


NESTED 


15404 46 


15780 


01100 


05100* 






SYMBOL. ..PREPARE TO DO TABLE LOOKUP 




05110 


AM 


IATI»12,10 


15416 11 


07731 


000J2 


05120* 






LOAD AND CALL 0ICT2 SUBPROGRAM 






05130 


BTM 


MONI TR, 03040, 67 


15428 17 


02400 


-3040 


05140 


BT 


DICT2.IAT1.6 


15440 27 


02410 


07731 


05150 


CM 


RTYPE, ,10, 


HAS THE UORO FOUNO IN THE DICTIONARY 










15452 14 


07595 


COO-0 


05160 


BE 


FILTER, » v 










15464 46 


15930 


01200 


05170 


TFM 


NIN0R*6»TDATA4» , 


SET UP ADDRESS IN TOATA STACK 

15476 16 


15530 


-3352 


05160 


A 


MIN0R*6,NPW,» 


INCREMENT TO NEXT AVAILABLE BLOCK 










15488 21 


15530 


07622 


05190 


TFL 


MiNOR*6tFL£ER0f6 


i* CLEAR THE BLOCK TO ZERO 

15500 06 


1553- 


17406 


05200 


SM 


MlNOR+6,8,10 


15512 12 


15530 


000-8 


06010 MINOR 


TF 


9999.SRTYPE,* 


STORE THE WORD EQUIVALENCE 

15524 26 


09999 


07597 


06020 


AM 


MIN0R*6,8,10 


15536 11 


15530 


0C0-8 


06030 


TFM 


M1N0R+6, 5,610* 


SET EXPONENT TO 10**5 15548 16 


1553- 


000-5 


06040 


CM 


RTYPE, 20, 10, 


CHECK FOR MACHINE CONTROL TYPE 
15560 14 


07595 


OOOKO 


06050 


BNE 


SETO 


15572 47 


15668 


01200 


06060* 






SET UP MACHINE TYPE PARAMETER 






06070 


SM 


MINOR*6,6,10 


15584 12 


15530 


000-6 


06080 


TF 


TEMPO, MIN0R*6 


15596 26 


17411 


15530 


06090 


SM 


TEMPO, 2, 10 


15608 12 


17411 


000-2 


06100 


TF 


MINOR+6, TEMPO, 611 15620 26 


1553- 


1741J 


06110 


TFM 


TEMPO, 10,610 


15632 16 


1741J 


OCOJO 


06120 


SM 


MINOR+6, I, 10 


15644 12 


15530 


000- 1 


06130 


CF 


MINOR+6,, 6 


15656 33 


1553- 


OOOOO 


06140 SETO 


TFL 


SRTYPE»FL2Z 


15668 06 


07597 


07670 


06150 


B 


2AD0 


15680 49 


15736 


OOOOO 


06160 


OORG 


•-3 


15688 






06170* 






NUMBER.. .INCREMENT TO RtGTMOST POSITION 




06180 NUMBER 


AM 


IATI,12,10 


15688 11 


07731 


000J2 


06190 


TFM 


•♦30.TDATA4,. 


INITIALIZE TO TOATA STACK 










15700 16 


15730 


-3352 


06200 


A 


•*1B*NPW* V 


INCREMENT TO NEXT AVAILABLE BLOCK 






15712 21 


15730 


07622 


07010 


TFL 


9999.IATI, 11, 


STORE THE NUMBER IN THAT BLOCK 










15724 06 


09999 


0773J 


07020 2A00 


AM 


IAT1*2«10» 


INCREMNT TO NEXT PARAMETER 










15736 11 


07731 


000-2 


07030 


CM 


NRT,3,8, 


CHECK FOR DRIVING SURFACE RECORO 




15748 14 


03345 


0-003 


07040 


BE 


COUT 


19760 46 


16094 


01200 


07050 


B 


PRAMT, ,# 


BRANCH 70 OBTAIN NEXT PARAMETER 








15772 49 


15)44 


OOOOO 


07060 


OORG 


»-l 


19TB0 






07070* 






NEST 


07731 




07080 NESTED 


AM 


IAT1, 12*10 


15780 11 


000J2 


07090 


TF 


TEMPAD, 1 ATI, 11, 


STORE THE NEST AOORESS IN TEM»AO 













15792 


26 


15075 


0773J 


07100 


AH 


TE*PAO,20, 10 




15604 


11 


15075 


OOOKO 


071 10 


TM 


?»3l*6,TDATA4-9.. 


INITIAL?/? TOATA STACK 15816 


16 


15646 


-3343 


07120 


A 


TR3l»6.NPW, • 




INCREMENT TO NEXT AVAILABLE LOCATION 












15828 


21 


15846 


07622 


07130 TR 31 


TR 


9999* ?£MPA0»ll« 




STORE THE PARAMETERS IN THE TOATA STACK 










15840 


31 


09999 


1507N 


071*0 


SM 


TEMPAD, 17. 10 




15852 


12 


15075 


00OJ7 


071 50 


A 


NPW, TEMPAO.U, 




UPOATE THE NPM FIELD 15864 


21 


07622 


1507N 


07160 


SM 


NPW, 31 * 10 




15876 


12 


07622 


000L1 


07170 


AM 


T£MPA0, 16,10 




15688 


11 


15075 


O0OJ6 


07180 


TP 


NSRF i TEMPAO. 11* 




SET THE SURFACE TYPE 15900 


26 


03351 


1307N 


07110 


8 


2A00 




15912 


49 


15736 


00000 


07200 


DORG 


•-3 




15920 








08010 FILOSA 


OSA 


SVMBl-3,9999 




15924 


00003 -4286 










15929 


00005 -9999 


08020* 






SYMBOL. .LOOK IN CANON TABLE 








08030 FILTER 


TF 


FILDSA*5, I AT 1 




15930 


26 


15929 


07731 


080*0 


CF 


FILDSA+1 




15942 


33 


15925 


00000 


08050* 






LOAO AND CALL THE F 1 LE3 SUBPROGRAM 






08060 


BTM 


HONI TR, 03210,67 




15954 


17 


02400 


-3210 


08070 


6T 


FILE3.FlLDSA»5.6 


i 


15966 


27 


02410 


15929 


08080 


BNF 


UNDEF .FOUND, • 




NO FLAG INDICATES AN UNDEFINED SYMBOL 












15978 


44 


17318 


07628 


08090 


TF 


NSRF t SYMB4, , 




SET THE SURFACE TYPE 15990 


26 


03351 


04305 


08100 


CM 


NSRF t » 10 




16002 


14 


03351 


COO-0 


081 10 


BL 


6RBAK 




16014 


47 


17262 


01300 


08120 TOAT 


TFN 


• ♦30. TDATA4-9,, 




INITIALIZE TO TOATA STACK 
















16026 


16 


16056 


-3343 


081 30 


A 


• ♦ IStNPMt t 




INCREMENT TO NEXT OPEN BLOCK 
















16038 


21 


16056 


07622 


08140 


TR 


9999t SVNB5-9. . 




STORE THE PARAMETERS IN THE TOATA STACK 










16050 


31 


09999 


04306 


081 50 


A 


NPW , SVHB 1 1 1 




UPDATE THE CHARACTER COUNT 
















16062 


21 


07622 


04289 


08 1 60 


SM 


kiou it . i a 
N"W f J I • 1 U 




16074 


12 


07622 






g 


2A00 




16086 


49 


15736 


OOQOO 


081 80 


OORG 


•—3 




16094 








nai an f flliT 


CM 


NSRF,4,10tCHECK 


VALIO SURFACE 16094 


14 


03351 








TYPI LL 




16106 


46 


16178 


01 100 


»!!/!••!? 




HON I TR,03130«67 




16118 


17 


02400 


— 3 1 30 


09020 


ATM 
BTM 


OUTPUT .TDATA5-9, 


,67 


16130 


17 


02410 


— 3353 


090 30 


C 


1AT1.NAT2,, 




CHECK FOR ENO OF STATEMENT 
















16142 


24 


07731 




09040 


BH 


BRBAK 




16154 


46 


17262 


ni i nn 


09050 


BNF. 


GOOF 




16166 


47 


16202 


01200 


09060* 






LOAD A NO CALL TVPERR SUBPROGRAM 








09070 TVPILL 


BTM 


MONI TR, 03090, 67 




16178 


17 


02400 


- 3090 


09060 


BTM 


TYPERR,132.6T 




16190 


17 


02410 


-01 32 


09090* 






GO 


OR OFFSET STATEMENT 








09100 GOOF 


TFM 


NSRT, 3,6, 




SET THE SUBRECORO TYPE TO 3 
















16202 


16 


03349 


0-003 


091 10 


SF 


LC TAPE • • t 




ARELEM MUST BE CALLEO 16214 


32 


07706 


COOOO 


091 20 




NPW, 10,6, 




SET THE CHARACTER COUNT TO TEN 














16226 


16 


07622 


0-010 


09130 


CM 


IATl.2,610, 




CHECK TYPE OF NEXT ELEMENT 
















16238 


14 


0773J 


C00-2 


09140 


BE 


TYPILL 




16250 


46 


16178 


01200 


09150 


BH 


NESTEO 




16262 


46 


15780 


01100 


09160* 






SYMBOL... LCOK UP IN DICTIONARY 








091 70 


AM 


lATlt 12 t 10 




16274 


11 


07731 


000 J 2 


09180* 






LOAO A NO CALL 0ICT2 SUBPROGRAM 








09190 


BTM 


Mrflftjff T (ft AlAAA 

ItUNI IK»OJO*Ot*» 




16286 


17 


02400 


-3040 


09200 


BT 


p\ I /■ v •» lift ^ 




16298 


27 


02410 


07731 


10010 


CM 


•TvtC 1 A. 

R J TFC , t ■ 




IF NOT FOUND LOOK IN CANON TABLE 










16310 


14 


07595 


000-0 


10020 


BE 


FILTER 




16322 


46 


15930 


01200 


100 30 


CM 


SRTYPE.27.10. 




CHECK FOR TANTO MOOIFIER 














16334 


14 


07597 


000K7 


10040 


BL 


TVPILL 




16346 


47 


16178 


01300 


10050 


BH 


C69 




16358 


46 


16390 


01100 


10060 


TFM 


INSAT.*«B« 




SAVE A IN INSRT 16370 


16 


15027 


0-006 


100 70 


B 


B720 




16382 


49 


16538 


COOOO 


10060 


OORG 


*-3 




16390 








10090 C69 


CM 


SRTVPE.69.l0t 




CHECK FOR TO MODIFIER 16390 


14 


07597 




10100 


BL 


TVPILL 




16402 


47 


16178 


01300 


101 10 


BH 


C71 




16414 


46 


16446 


01 100 


10120 


TFN 


IN^Hf.J.V. 




SAVE 3 IN INSRT 16426 


16 


15027 


0—003 


10130 


B 


B720 




16438 


49 


16538 


COOOO 


10140 


OORG 


•-3 




16446 












SRTYPEtTl .10. 




CHECK FOR ON MODIFIER 16446 


14 


07597 


O00P1 


10160 


BL 


TVPILL 




16453 


47 


16178 


01300 


10170 


OH 


C76 




16470 


46 


16502 


01100 


101 80 


TFM 


IMSRT.5.6. 




SAVE 9 IN INSRT 16482 


16 


15027 


0-005 


10190 


_ 


0720 




16494 


49 


1653B 


00000 


10200 


OORG 


*~3 




16502 








11010 C76 


CM 


SRTYPE.76.10v 




CHECK FOR PAST MODIFIER 




07597 


00OP6 






16502 


14 


11020 


8NE 


TVPILL 




16514 


47 


16178 


01200 


11030 


TFM 


INSRT.4.8. 




SAVE 4 IN INSRT 16526 


16 


15027 


0-004 


11040 6720 


AN 


IAT1.2.10, 




INCREMENT TO NEXT PARAMETER 


11 


07731 


000-2 






16538 


1 1050 


CM 


IAT1,2,610« 




CHECK ELEMENT TVPE 16550 


14 


0773J 


000-2 


11060 


BL 


CS 




16562 


47 


16702 


01300 


UOTO 


BE 


SETOAT 




16574 


46 


16616 


01200 


11080 


CM 
BHC 


IATI,4.410, 




CHECK FOR NEST TVPE 16566 


14 


0773 J 


000-4 


11090 


TVPILL 




16598 


47 


16178 


01200 


11100 


87 


CS 




16610 


49 


16702 


00000 


111 10 SETDAT 


AM 


IAT1.12.10, 




INCREMENT TO PARAMETER WORD 




07731 


000J2 






16618 


11 


11120 


TPL 


T0ATA5. I ATI .lit 




STORE PARAMETER MORO IN T0ATA5 


03362 


0773J 




16630 


06 


11130 


AM 


IATl.16.10t 




SKIP PAST INTOP 16642 


11 


07731 


000J6 


11140 NRT* 


TFM 


NRT.6.0. 




SET RTVPE TO * 16**4 


1* 


03343 


0-006 


11150 


TFN 


NSRF.. 10, 




SCT SURFACE TVPE TO ZERO 




03351 


000-0 






16*66 


1* 


11160* 






LOAO AND CALL OUTPUT SUBPROGRAM 




02400 


-3130 


11170 


BTM 


MOHITR .03130**7 




1**76 


17 


11180 


BTN 


OUTPUT »T0ATA*-9«*7 


1**90 


* ? 


02410 


-3353 


11190* 






CHECK SURFACE RECORD 




03345 


0-003 


11200 CS 




MRT.3.6. 




SET Rf CORO TVPE TO 3 1*702 


1* 


12010 


TF 


NSRT. INSRT* * 




RESTORE THE SUBRECORO TVPE 




03349 


15027 




14714 


2* 


12020 


CM 


IAT1.2.A10, 




CHICK Mf XT ELEMENT TYPE 






000-2 




1*72* 


14 


0773J 


12030 


be 


TVPILL 




1*738 


4* 


1*178 


01200 


12040 


OH 


NESTEO 




1*750 


4* 


157B0 


01100 


12050* 


SYMBOL* ••LOO* If t*P I* CANON TABLE 




000J2 


120*0 


AM 


{ATI, 12.10 




1*7*2 


II 


07731 


12070 


•7 


FILTER 




1*774 


49 


15910 


00000 



12080* 








ALL THE OAT* HAS BEEN ACCUNULATEO 






12090 ALOAT 


CM 


NAT, 5. 8, 




CHECK FOR A ACCORD TYPE 3 

16782 14 


03345 


0-6*6 




BE 


FAGO 




16794 4« 


16962 


01*0 


121 10 


6L 


wn 




16606 47 


17190 


013*0 


12120 


CM 


NSATt 1 1»B 




16811 44 


03349 


0-011 


I? 110 


BL 


OUT 2 




46830 4? 


17190 


•UMO 


12140 


BH 


6RBAK 




4 16841 4« 


11262 


01100 


12150 


cm 


Nft T » 6 , 8 




16414 I* 


03345 


0-t)Q6 


12160 


BNE 


TYF1LL 




16*64 41 


1*176 


01200 


121 TO* 








PART SURFACE <PSt$» 






12100 


tfm 


NSRTtltl* 




SfT SUBRECORO TVM TO t 

168 IB 16 


03349 


0-001 


12190 


TFM 


NR T , 3 » 6 , 




SfT RECORO TYPE TO } 1689Q 16 


03345 


0-003 


12200 


CM 


NSAF.I.IO, 




CHECK FOR PLANE SURFACE 

16991 16 


01)11 


CO 0-1 


DO 10 


BNI 


ERR120 




16914 47 


16991 


01280 


nozo 


BO 


OUT2tT0ATA7-9 


t * 


CHECK FOR ffRO C COEFFICIENT 

16926 4} 


17190 


03373 


13030* 








LOAO AND CALL TVPER* SUBPROGRAM 






13040 ERR120 


BTM 


M0NlTA,03090t 


67 


16936 17 


02400 


-J090 


13050 


BTM 


TYPERR, 120*67 




16950 17 


02410 


-0120 


13060* 








FROM,GOTO,GOOLTA,INOIRP ( IN01AV 






130 70 FRGO 


CM 


NPW,30»8» 




CHECK FOR PROPER NUMBER OF PAAAMETEAOS 










16962 14 


07622 


0-030 


13080 


BE 


0UT2 




169 74 46 


17190 


01200 


13090 


BH 


FEEOEA 




16986 46 


17022 


01100 


13100* 








LOAO A NO CALL THE TVP-ERR SUBPROGRAM 




13110 


BTM 


MONITR, 03090, 


6? 


16996 17 


02400 


-3090 


13120 


BTM 


TYPEAA,130,67 




17010 17 


02410 


-0130 


13130* 








OUTPUT FEEDRATE SEF8»E GO TO 






13140 FEEDER 


TF 


INSAT, NSATt , 




SAVE THE SUBRECORO TYPE IN INSAT 












17022 26 


15027 


03349 


13150 


TFM 


NA T , 2 1 8 , 




SET THE RECORC TYPE TO 2 

17034 16 


03345 


0-002 


1 3160 


TFM 


NSRT, 1009,8, 




SET UP PEEORATE RECORD NSRT-1009 












17046 16 


03349 


0J009 


13170 


TFM 


NPW,10,8* 




ONE PARAMETER fcfORO 17058 16 


07622 


0-010 


1 31 80* 








SAVE THE FIRST TWO PARAMETERS 






13190 


TFL 


TEMPI i T0ATA5 




17070 06 


17431 


03362 


1 3200 


TFL 


TEMP2 , T0ATA6 




17082 06 


17441 


03372 


140 10 


TFL 


T0ATA5,T0ATA8 


* * 


PUT THf. FEEDRATE IN THE FIRST BLOCK 












17094 06 


03362 


03392 


14020* 








LOAO AND CALL THf OUTPUT SUBPR8GRAM 






BTM 


nun i infUJi , 


67 


17106 17 


02400 


-3130 


14040 


BTM 


nilTPIlT . Tf}Af 44 


-9t 


,67 17118 17 


02410 


-3351 


1 4050 


TFM 


NA T , 9 , , 




SET THE RECORO TVPf EiUAL TO 5 








jf 






17130 16 


03S45 


0-OOf 


1 4060 






RESTORE THE SUBRECORO TYPE 

17142 26 


03349 


15027 


14070 


TFM 


NPW, 30 ,6* 




THREE PARAMETER MOROS 17154 16 


07622 


0-030 


14080* 








RESTORE THE FIRST T MO PARAMETERS 






14090 


TFL 


T0ATA5, TEMPI 




17166 06 


03362 


17431 


14100 


TFL 


T0ATA6,TEMP2 




17178 06 


03372 


17441 


141 10* 








LCAO ANO CALL THE OUTPUT SUBPROGRAM 




14120 0UT2 


CM 


NSRT, 1038,8 




171*0 14 


03349 


OJ038 


14130 


BNE 


0UT3 




17202 47 


17236 


01200 


14140 


CM 


NSRF,7,10 




17214 14 


03351 


000-7 


14150 


BNE 


NOMORE • 1 • 




BRANCH IF ELEMENT IS NOT A MATRIX 












17226 47 


17270 


01200 



14160 0UT3 


BTM 


14170 


BTM 


14180 BRBAK 


B 


14190 


OORG 


14200 NOMORE 


CM 


15010 


BE 


15020* 




15030 ER121 


BTM 


15040 


8TM 


15050* 




15060* 




15070 UNOEF 


BTM 


15080 


BTM 


15090 INOEX 


OS* 



MONITR, 03130, 67 
OUTPUT, T0ATA5-9, 6? 
RETURN, ,6, 



T0ATA5-B»53« 10 
0UT3,,, 



1723B 17 02400 -3130 
17250 17 02410 -3353 
RETURN TO CALLING PROGRAM 

17262 49 0241J COOOO 
17270 

17270 14 03354 0C0N3 
BRANCH IF TRACUT /NOMORE 

17282 46 17238 01200 



15100 




DC 


8, 10000000 


15110 


FLONE 


OC 


2*1 


15120 




OC 


BiO 


15110 


FL2ER0 


OC 


2.0 


15140 


TEMPO 


OS 


» 


15190 




OC 


0,90000000 


15160 


HALF1 


OC 


2.00 


15170* 






15160 


FILE3 


OS 


,2414 


15190 


OUTPUT 


0$ 


• 2416 


15200 


TYPERR 


OS 


•2414 


16010 


FILE 


OS 


• 2416 


16020 


OICT 


OS 


• 2416 


16030 


HON I Tit 


DS 


• 2406 


16040 


RETURN 


OS 


• 2411 


16050 


TOATA 


OS 


•03333 


16060 


NAT 


OS 


•03349 


16070 


NSRT 


OS 


•03349 


16030 


NSRF 


OS 


•03391 


16090 


RTYPE 


OS 


,07993 


16100 


SRTVPf 


OS 


•07397 


16110 


LCTAPf 


OS 


•07700 


16120 


IAT1 


OS 


•07731 


16130 


NAT2 


OS 


•07644 


14140 


FOUND 


OS 


•0742B 


14190 


SYNBI 


OS 


•0420% 


16140 


SYM94 


OS 


•04309 


16170 


SVMB9 


OS 


•04319 


14160 


CODE 


OS 


•07719 


161^0 


MPM 


OS 


•07622 


1623® 


iNir 


OS 


•07974 


17010 


FL22 


OS 


•07470 


17020 


T0ATA4 


0$ 


•03392 



HON! TR, 03090, 67. CALL TYPERR SUBPROGRAM VIA MONITR 

17294 17 02400 -3090 
TYPERR, 121,69, WRITE ERROR MESSAGE. .. EXIT 

17306 17 02410 00.121 
LOAO ANO CALL THE TVPf RR SUBPROGRAM 
UNOEF INEO SYMBOL 
HON I TR, 03090 ,67 17318 17 02400 -3090 

TYPERR, 131.67 17330 17 02410 -0131 

MI ST2, BRBAK, PRA«T,M1ST2,NN004,PRAMT,PRAMT, OUTER, OUTER 

17346 00005 J7318 
17351 00005 J7262 
17356 00005 J 5 344 
17361 00005 J7316 
17366 00009 ,15120 
17371 00005 J5344 
17376 00005 J5344 
17301 00005 J5248 
17 366 00005 4924* 
17394 J00G8 
17396 000G2 
17404 00008 
17406 00002 
17411 00005 
17419 00008 
17421 00002 



02416 00000 
02416 00000 
02416 00000 
02416 00000 
02414 00000 
02404 00000 
02411 00000 
03333 00000 
03349 00000 
03349 00000 

03391 00000 
07595 00000 
07997 00000 
0770* 00000 
07731 00000 
07444 00000 
07420 00000 
042*9 000*0 
04305 00000 
04315 00000 
07715 00000 
07422 00000 
07974 00000 
07670 00000 

03392 00000 



36 



1 to so 


T0ATA5 


OS 


«0 1161 




UUUUU 


1 7040 


T0AT46 


OS 


«03172 


01172 


uuuuu 


1 7050 


TQATA7 


OS 


,01)42 




AAAArt 

uuuuu 


17060 


TOATAS 


OS 


♦03392 


01192 


00000 


170 70 


TEMPI 


OS 


10 




00010 


17090 


TEMPJ 


OS 


10 


17441 


00010 


17090 


MIST2 


OS 


♦UNDIF 


17111 


00000 


17100 


0ICT2 


OS 


• 2*16 


024 1* 


00000 


17110 




DENO 


POSTPA 


14*9* 





TYPERR 02416 
SETOUT 00222ft 
PUTCOR 0069711 
ENOSEC 01399 
EXM6S 00609R 
NRT 03)45 
REGNO 07640 
SSNO 03337 
TSECT 001 38R 



TESTIO 00532R 
FUTSEC 00692R 
OUTPUT 00006R 
BAKER 0051 OR 
1NIT 07976 
NSEC 03327 
RNQ 03341 
TOATA 03333 
MREX 00486R 



SVMB°L TABLE 

T0ATA5 03362 
PUTOSK 00689R 
OUTCON 00666R 
CALLX 0909? 
NFIW 03329 
NSRF 03351 
RTVPE 07595 
TFLW 00015R 



SRTVPE 07597 
PUTCOM 00676R 
MONITR 02406 
CHKI4 00450R 
NO 02461 
NSRT 03349 
SEONO 07656 
THARK 00270R 



SETSEC 00282R 
PUTOOA 00684R 
IM0AT4 07409 
DIGIT 08007 
NPU 07622 
PUT IT 00378R 
SETG 00306R 
TREC 00576R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 

oioeo* 

01090* 
01100 

01 1 10 OUTPUT 
01120 TFLM 
01130 
01140 
01150 
01160 

01170 



IBM 1620- 111 T AD-APT. 



INTRAN SUBPROGRAM OUTPUT 

THIS SUBPROGRAM OUTPUTS ONE RECORD IN AO-APT FORMAT 
LINKAGE IS 8TH MONITR. NNNNO 

8TM OUTPUT. T0ATA5-9 

T0ATA5-9 IS THE ADDRESS OF THE FIRST 
WORO OF THE RECORO TO BE OUTPUT 



01200 
02010 
02020 

020 30 

02040 TSECT 

02050 
02060 
02070 

02080 
02090 



02100 

02110 SETOUT 

02120 

02130* 

02140 

02150 

02163* 

0?iTO TM4RR 



oc 

SF 

OS 

TR 

TOM 

OC 

TF 

TF 

TFH 

TF 

CF 
TF 

SN 

BM 
TF 

CF 
AM 
CM 

BE 
CM 

BE 
CM 



6 ,0 00005 00006 

NPrf-2 00006 32 07620 

,,-2 00015 00000 

PbT00A»l,0UTC0N-4 tf INITIALIZE OUTPUT COA 00018 LJ 00685 



MSRFM 

SSNO.SEQNO.. 

RNO.RECNO. * 

MSEC, .10. 

NFLW.NPM*1»* 

NPM-2 

TFLW.NFLM 

TFLW.T.IOr 

TESTIO 

FUTSEC .NSEC»t 

FUTSIC-I 

PUTSEC.1.9 

NSRT.l04S.8t 

TREC 

NSRT.I046.0* 

TREC 
NPM..0* 



BE SETSEC 



00010 15 03352 

00041 00001 
SETUP OUTPUT SEQUENCE NO. 

00042 26 03137 
SETUP OUTPUT RECORO NUMBER 

00054 26 03341 
1NITIALI2E SECTOR COUNT 

00066 16 03327 
STORE NO. FLOATING POINT MOROS 

00078 26 03329 
00090 33 07620 
00102 K6 00019 
TEST FOB MORE THAN ONE SECTOR 

00114 J2 00015 
00126 M6 00532 
SETUP SECTOR COUNT IN 00 A 

00138 K6 00692 
00150 L3 00691 
00162 Ji 00692 
CHECK FOftJ FARTNO RECORO 

00174 14 03349 
00186 M6 00576 
CHECK FOB INSERT RECORO 

00198 14 03349 
00210 M6 00576 
CHECK FOR NO FLOATING POINT MOROS 

00222 14 07622 
00234 M* 00282 



CALCULATE POSITION OF TERMINATING ftECOftO MARK 
TF TRARK«6*0UTPUT*I 
A TMARK*6tNI»lf 

SET RfCORO MARK 
TOM 



00246 RO 00276 
0025B Kl 0027* 



00662 
00000 



07656 

07640 

000-0 

07621 
00000 
03329 

000-7 
01100 

03327 
00000 
00-01 

0J04S 
01200 

0J046 
01200 

0-000 
01200 

00005 
07622 



37 



00270 15 09999 00000 



Oil 80 


OC 


I • e ♦ • 


00281 


00001 




02 | 90* 


CALCULATE POSITION OF GROUP NARK 










02200 SETSEC 


TFN 


$gTG*6 t NS£C-l*100 


00262 


J6 


00312 


-3426 


03010 




5ETG*4 f NSEC 


00294 


Kl 


00310 


03327 


03010* 


SSI GROUP MARK 










0)0)0 SITS 


TDM 


9999 


00306 


15 


09999 


OOOOO 
uvvvv 


0)040 


MM 


» 


00317 


0000 1 




01090* 


CALCULATE NEXT OUTPUT SECTOR AOOftESS 










030*0 


A 


PUTDSK.NO 


00316 


Kl 


00689 


92461 


03070 


CM 


PUTOSK.ENOSECm CHECK TO SEE IF 1 


Utll ~V 1 AKtA 


EXCEEOEO 








PUT IT 


00330 


J4 


00669 


•3399 


03080 


61 


0034? 


M7 


00376 


01 300 


03090* 


LOAO AND CALL SUBPROGRAM TVf»ERR 








03100 


BTW 


MON I TR* 03090*67 


00354 


17 


92400 


•3090 


03110 


BTM 


TVPERft, 142,47 


00 346 


17 


02410 


-014? 


031 20* 


OUTPUT ONE RECORD IN AO- APT FORMAT 










U 11 lw rU III 


PUT 


PUTOONtRBC 


00376 


10 


005*3 


• 0401 








00390 


4R 


00520 


-0676 


03140 


AM 


RECN0*1*|« INCREMENT RECORD 


NUMBER 














00402 


It 


07640 


0-001 


031 90 


A 


NOiNSECtt INCREMENT SECTOR 


COUNT 














00414 


21 


02461 


03S27 


031 60 


AM 


NO, 1 ao 


00426 


11 


02461 


000-1 


031 70 


TOM 


SETG»6»*6« CLEAR GROUP MARK 


00436 


J5 


003 IK 


00000 


nil HO CMK 14 


CM 


NRT.14 t 6, CHECK FOR FINI 


00450 


14 


03345 


0-014 


03190 


BNE 


BAKER 


00462 


M7 


00516 


01200 


03200 


6NF 


BAKER *CALLX*1*« CHECK IF NON RECOVERABLE ERROR OCCUR EO 








00474 


M4 


00518 


09893 


04010* 


WR1 


[TE MESSAGE— AO-APT EXECUTION INHIBITED 










RCTV 




00486 


34 


00000 


00102 


04030 


WATV 


EXMES 


00498 


L9 


00609 


00100 




B7 


BAKER 


00510 


M9 


00518 


00000 




BV 


• ♦12 


00518 


M6 


00930 


01400 


040*0* 


RETURN TO CALLING PROGRAM 










040 70 


BB2 




00530 


42 


00000 


00000 


04080* 


THIS LOOP CALCULATES THE NUMBER OP SECTORS MORE THAN ONE 




04090* 


TO 


BE OUTPUT 










04100 TEST10 


AM 


MSEC • 1*10 


00532 


11 


03327 


000-1 


041 10 


SM 


TFLW t 10»lO 


00544 


J2 


00015 


OOOJO 


041 20 


BNH 


TSECT 


00556 


NT 


00136 


01100 


041 30 


8 


TEST10 


00566 


M9 


00532 


00000 


04 1 40 


OORG 


•-3 


00576 








041 50* 


TRANSMIT THE PARTNO OR INSERT RECORD TO 


THE TOATA TABLE 




04160 TRfcfc 


TFM 


0UTPUT-i,TDATA5-9 


00576 


J6 


00005 


-3353 


041 70 


TR 


T0ATA5-9 V IN0AT4-1 


00588 


31 


03353 


07406 




87 


SETOUT 


00600 


M9 


00222 


00000 


04190 EXMES 


DAC 


27, AD- A»»T EXECUTION INHIBITED* 


00609 


00054 




04200 QUTCON 


DC 


5,020.00 


00666 


00005 




09010 


DC 


3*0 


00669 


00003 




05020 


OSA 


NSEC-1 


00674 


00005 -3326 


05030 


DC 


!*• 


00675 


00001 





PAGE 



05040* OUTPUT CONTROL FIELDS 

05050 PUTOOH OOW ,*UTODA,,N,A 



05060 PUTDOA OOA , *PUTOSK t PUTSEC v PUTCOR 



050 70 

05060 PUTOSK 



,PUTDDA*S 



00676 00002 20 
00678 00005 -0684 

00683 00001 ' 

00684 00006 0-0689 
00690 00003 092 
00693 00005 -0697 
00696 00001 
00689 00000 



05090 


PUTSEC 


OS 


•PUTOOA+8 


00692 


OOOOO 


05100 


PUTCOR 


OS 


•PUT00A*13 


00697 


ooooo 


05110* 


COMMON AREA WITH MAINLINE 






05120 


TOATA 


OS 


•03333 


03333 


ooooo 


05130 


NSEC 


OS 


t TDATA-6 


03327 


ooooo 


05140 


NFLW 


OS 


•T0ATA-4 


03329 


ooooo 


05150 


RNO 


OS 


( T0ATA*8 


03341 


ooooo 


05160 


SSNO 


OS 


»T0ATA*4 


03337 


OOOOO 


05170 


T0ATA5 


OS 


•03362 


03362 


OOOOO 


05180 


INIT 


OS 


•07976 


07976 


ooooo 


05190 


NRT 


OS 


•T0ATA*12 


03345 


ooooo 


05200 


NSRT 


OS 


•TOATA* 14 


03349 


ooooo 


06010 


NSAF 


OS 


,T0ATA*14 


03351 


ooooo 


06020 


RECNO 


OS 


•07640 


07640 


ooooo 


06030 


NMU 


OS 


•07622 


0742r ooooo 


06040 


RTVPE 


OS 


•07595 


07S9S 


ooooo 


06090 


SRTYPE 


OS 


•07597 


07597 


ooooo 


06060 


SEONO 


OS 


•07656 


07456 


ooooo 


060 70 


I MOAT* 


OS 


•07409 


07409 


ooooo 


06080 


ENOSEC 


OS 


• 3399 


03399 


ooooo 


06090 


NO 


OS 


•02461 


02461 


ooooo 


06100 


TVPERR 


OS 


•02416 


02414 


ooooo 


06110 


MONITR 


OS 


•02406 


02406 


ooooo 


06120 


OlfcIT 


OS 


•08007 


08007 


ooooo 


06110 


CALLX 


OS 


•0949* 


09892 


ooooo 


06140 




0EM0 


OUTPUT 


00006 





38 



PAf,f l 

SVKflOl <ABlf 

ZSURFZ 02521 ZSURFY 025U ZSL'RF* 02*01 ZMiRFD 02511 PRJFCT OO052R 
FLZERO 001598 FIND* 00G02R STFMp 00169K SY*ft5 0*315 S*MB6 0*125 

SVMB7 0*335 



01010* 
01020* 
01030* 
010*0* 
01050* 
01060* 
01070* 
01080* 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM FINDZ 

THIS PROGRAM PROJECTS A POINT DEF INEO 8V X*Y 
TO A PLANE PREVIOUSLY DEFINED BY A ZSURF STATEMENT 
LINKAGE IS 6TM MONITR, NNNNO 

8TM FIND/, ,10 



01090 


DC 2,0 






0000 I 


00002 




01100 FINDZ 


TFL STEMP, ZSURFZ,. STORE 


Z 


COEFFICIENT 


00002 


-6 


00169 


02521 


Oil 10 


FSUB STEMP, FLZERO,, TEST 


IF 


Z COEFFICIENT 


IS ZERO 














0001* 


-K 


00169 


0C159 


01120 


BNZ PRJECT 






00026 


M7 


00052 


01200 


Oil 30 


TFL SVMB7, FLZERO,, SET Z 


OF 


POINT TO ZERO 
















00018 


00 


0*335 


00159 


011*0* 


RETURN TO CALLING PROGRAM 














01150 


BB2 






00C50 


*2 


OOOOO 


OOOCO 


01160* 


CALCULATE Z FROM GENERAL PLANE 


EQUATION 










Oil 70* 


Z-CO-AX- 


BV1/Z 










01160 PRJFCT 


TFL SYMB7, ZSURFO 






00052 


06 


0*335 


02511 


01190 


TFL STEMP, SYMB5 






0006* 


-6 


00169 


0*315 


01200 


FMUL STEMP, ZSURFX 






000 76 


-3 


00169 


02501 


02010 


FSUB SYMB7, STEMP. 






00088 


OK 


0*335 


00169 


02020 


TFL STEMP, SVMB6 






00 1 00 


-6 


00169 


0*325 


02030 


FMUL STEMP , ZSURF Y 






00112 


-1 


00169 


02511 


020*0 


FSUB SYMB7, STEMP 






0012* 


OK 


0*135 


00169 


02050 


FDIV SYMB7,ZSURFZ 






00116 


09 


0*335 


02521 


02060* 


RETURN TO CALLING PROGRAM 














02070 


BB 






001*8 


*2 


OOOOO 


ocooo 


02080 


DORG *-9 






00150 








02090 


DC 8,0 






00157 


00008 




02100 FLZERO 


DC 2,-99 






00159 


00002 




02110 STEMP 


DC 10,0 






00169 


00010 




02120* 


COMMON AREA WITH MAINLINE 














02130 SYMB5 


DS ,0*315 






0*315 


00000 




021*0 SYMB6 


DS ,0*325 






0*325 


00000 




02150 SYMB7 


DS ,0*335 






0*315 


00000 




02160 ZSURFX 


OS ,02501 






02501 


00000 




02170 ZSURFV 


OS ,02511 






02511 


00000 




02180 ZSURFZ 


DS ,02521 






02521 


ooooo 




02190 ZSURFO 


DS ,02531 






02531 


00000 




02200 


OENO FINOZ 






00002 









SYMBOL TABLE 



ZSURFZ 02521 
TDATA8 03392 
RETURN 02*11 
FORMA 0007AR 
ZSURF 00002R 



ZSURFV 02511 
TDATA7 03382 
MONITR 02*06 
FOR MB 001 78R 



ZSURFX 02501 
T0ATA6 03372 
CALERR 00050R 
GCNOW OOI22R 



ZSURFO 02531 

T0ATA5 01362 

CNOTZ 002T0R 

1AT1 07731 



TYPERR 02*16 

TDATA* 03352 

FORM 07712 

INIT 07976 



01010* 

01020* 

01030* 

010*0* 

01050* 

01060* 

01070* 

01080* 

01090* 

OUOO* 

Oil 10 

01120* 

01130 ZSURF 

011*0 

01150 

01160 

01170* 

01180 CALERR 

01190 

01200* 

02010 FORMA 

02020 

02030 

020*0 

02050 GONOW 

02060 

02070 

02080 

02090* 

02100 

02110* 

02120 FORMB 

02130 

021*0 

02150 

02160 

02170 

02180 

02190 

02200 CNOTZ 
03010 
03020* 
03030 
030*0 
03050* 
03060 FORM 
030 70 TOATA* 
03080 TOATA* 
03090 TOATA* 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM ZSURF 

THIS PROGRAM SETS THE COEFFICEINTS OF A PLANE ONTO 
WHICH A POINT OEFINEO BY X*V WILL BE PROJECTEO 
THE COEFFICIENTS A,B,C,D OF THE EQUATION AX^BV^C/'O 
ARE SET IN ZSURFX.ZSURFY, ZSURFZ. ZSURFO RESPECTIVELY 
LINKAGE IS BTM MONI TR,NNNNO 

BTM ZSURF , t 10 



OC 2,0 

CHECK FORM FOR TYPE OF ZSURF DEFINITION 
CM FORM, 1,8 
BE FORMA 
CM FORM, 255,8 
BE FORMB 

LOAO AND CALL TYPERR SUBPROGRAM 
BTM MONITR, 03090,67 
BTM TYPERR, 120,67 

PLANE DEF INEO BY NESTED PLANE DEFINITION 
CM TOATA*, 8, 10 
BE GONOW 

BTM MONITR, 03090, 67 
BTM TYPERR, 301 ,67 
TFL ZSURFX, TDATA5., 
TFL ZSURF Y,TDATA6, , 
TFL ZSURFZ#T0ATA7, t 
TFL ZSURFO, T0ATA8,, 

RETURN TO CALLING PROGRAM 
B7 RETURN,,* 

PLANE OEFINEO BY COEFFICIENTS OF PLANE EQUAT 
AM I AT 1 , 12, 10 



00001 00002 



STORE X COEFFICIENT 
STORE V COEFFICIENT 
STORE Z COEFFICIENT 
STORE CONSTANT TERM 



TFL 

AM 

TFL 

AM 

TFL 

BD 



ZSURFX, IATl.U, 
IATW1*, 10 
ZSURFY, IATl.U, 
IAU,1*.10 
ZSURFZ, IATl.U, 
CNOTZ # ZSURF 2-9* » 



STORE X COEFFICIENT 
STORE Y COEFFICIENT 



STORE Z COEFFICIENT 
CHECK FOR ZERO C COEFF 



B7 CALERR 
AM IATl,l*,lO 
TFL ZSURFO, IATl.U, 

RETURN TO CALLING PROGRAM 
DC 2,49 
OSA -RETURN 

COMMON AREA WITH MAINLINE 
OS ,07712 
OS ,03352 
OS ,03362 
OS ,03372 



STORE CONSTANT TERM 



00002 
0001* 
00026 
00038 

00050 
00062 

0007* 
00086 
00098 
00110 
00122 
0013* 
001*6 
00158 

00170 

ION 
00178 
00190 
00202 
0021* 
00226 
00238 

ICIENT 
00250 
00262 
00270 
002B2 

00295 
00300 

07712 
03352 

03362 
03372 



1* 07712 0-001 
M6 0007* 01200 
I* 07712 0-25* 
M6 00178 01200 

17 02*00 -3090 
17 02*10 -0120 



I* 03352 
M6 0012? 
17 02*00 
17 02*10 
06 02501 
06 02511 
06 02521 
06 02531 



000-8 
01200 
-3090 
-0301 
03362 
01372 
0338? 
03392 



*9 02*1 J OOOOO 

11 07731 00OJ2 

06 02501 0773J 

11 07731 OOOJ* 

06 02511 0771J 

11 07731 OOOJ* 

06 02521 0773J 

M3 00270 02512 
M9 00050 COOOO 
11 07731 OOOJ* 
06 02531 0773J 

00002 

00005 -2*IJ 

OOOOO 
OOOOO 
OOOOO 
OOOOO 



3!l 



01100 


T0ATA7 


OS 


•03362 


03382 


00000 


031 10 


T0ATA8 


OS 


•03392 


03392 


00000 


03120 


ZSUAFX 


OS 


•02501 


02501 


00000 


03130 


2 SURF Y 


DS 


•02511 


0251 1 


00000 


031*0 


ZSURFf 


OS 


•02521 


02521 


00000 


03150 


ZSURFO 


OS 


•02531 


02531 


00000 


031 60 


1*11 


OS 


•07731 


07731 


00000 


03170 


TYPERR 


OS 


• 2416 


02416 


00000 


03100 


MONITR 


OS 


• 2406 


02406 


00000 


03190 


RETURN 


OS 


•241 1 


02411 


00900 


03200 


INIT 


OS 


•07976 


07976 


00000 


04010 




OENO 


2 SURF 


00002 





VARDON 00856R 
NXTVAA 00156R 
ADOTW 00600R 
INIT 07976 
SNUMB 00732R 
SYH82 04301 
VARCT 00934R 



TYPERR 02416 
MONITR 02406 
CODE 07715 
MACRO OOOOOR 
SSYM8 00824R 
SVM83 04303 



SVM B OL T* 8 L E 

SAVSUB 00108R 
HACSAV 07721 
FILE 02416 
NAT2 07666 
STORE 00336R 
SVNB4 04305 



SAVNAM 00120R 
6ETVAR 00264R 
FILE2 02416 
NUMB 00660R 
SYMB 00432R 
TRANS 00792R 



RETURN 02411 
FL2ER0 00932R 
IAT1 07731 
PUNC 00528R 
SVHBl 04289 
TWELV 00946R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100 MACRO 

OHIO 

01120 
01130 

01140 

01150 

01160 

01170* 

01180 

01190 

01200 SAVSUB 
02010 SAVNAM 
02020 
02030 

02040 NXTVAR 
02050 

02060 
02070 

02060 

02090 

02100 

02110* 

02120 

02130 

02140 6CTVAR 

02150 

02160 
02170 
02160 
02190 

02200 S?0*t 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM MACRO 

THIS PROGRAM HANDLES STORING THE FIRST PART OF A MACRO 
ANO SETS AN INDICATOR TO SAVE THE STATEMENTS FOLLOWING 
UNTIL TERMAC 

LINKAGE IS BT MONI TR ,0SALBl»5 ,6 

87 MACRO. ,6 



TFM 


ST0RE*6,SYM84»» 


INITIALIZE MACRO VARIABLE SCAN 








00000 


J6 


00342 


-4305 


TFM 


SYMBl,2l,8. 


INITIALIZE MACRO LENGTH 












00012 


16 


04289 


0-021 


TFM 


SYMB4,5,10, 


SET MACRO INDICATOR 00024 


16 


04305 


000*5 


TFM 


VARCT, ,10, 


INITIALIZE VARIABLE COUNT 










00036 


J6 


0093* 


OCO-O 


SM 


UTl.40,10, 


INDEX TO MACRO NAME 00048 


12 


07731 


OOOMO 


CM 


IATl, 1,610, 


CHECK FOR VALIO NAME 00060 


14 


0773J 


000- 1 


BE 


SAVSUB 


00072 


M6 


00108 


01200 


LOAD AND CALL TVPEAR 


SUBPROGRAM 








BTM 


MONITR, 03 090, 67 


00064 


17 


02400 


-3090 


STM 


TYPERRtl26»6T 


00096 


17 


02410 


-0126 


TF 


SYM83, IAU,ll, 


SAVE THE SUBSCRIPT 00 108 


26 


04303 


0773J 


AM 


IATl, 12, 10 


00120 


11 


07731 


000J2 


TF . 


SYH82,IATl.ll» 


SAVE THE MACRO NAME 00132 


26 


04301 


0773J 


AM 


I ATI, 30, 10, 


INDEX TO FIRST VARIABLE 










00144 


11 


07731 


OOOLO 


AM 


IATl, 14, 10 


00156 


11 


07731 


000J4 


C 


IAT1»NAT2»» 


CHECK FOR END OF VARIABLE LIST 








00168 


24 


07731 


07666 


BH 


VARDON 


00180 


M6 


00856 


01100 


CM 


IATl, I, 610, 


CHECK FOR LEGAL VARIABLE 








00192 


14 


0773J 


COO- 1 


BE 


GETVAR 


00204 


M6 


00264 


01200 


CM 


IATl, 22, 610 


00216 


14 


07734 


0C0K2 


BE 


VARDON 


00228 


M6 


00B56 


01200 


LOAD ANO CALL TYPE** 


SUBPROGRAM 








BTM 


MONITR, 03090, 67 


00240 


IT 


02400 


•3090 


BTM 


TYPERR, 125*67 


00252 


17 


02410 


-0125 


AM 


SYMB 1,28 ,8, 


INCREMENT LENGTH OF MACRO 








00264 


11 


04269 


0*028 


AM 


ST0*E*6,2,10. 


INCREMENT TO NEXT MACSUB POSITION 




00276 


Jl 


00342 


000-2 


TFM 


$T0RE«6»l»*i0# 


TYPE -01 00286 


J6 


0034K 


000-1 


AM 


ST0AE*6, 12,10 


00300 


Jl 


00342 


000J2 


AM 


IATl, 12, 10 


00312 


11 


07731 


O0OJ2 


TF 


STORE *6« TtfELVtt 


00324 


KO 


0634K 


00946 


TF 


9999, IATl, 11, 


STORE THE VARIABLE NAME 









4U 



pake 7 



03010 


AM 


ST0RE*6,2.10, 


INCREMENT 


TO NEXT F 


If ID IN MACSUB 














00348 


Jl 


00342 


000-2 


03020 


AM 


1AT1,2,10 






00360 


11 


07731 


000-2 


03030 


CM 


1AT1«2,610 






00372 


14 


0773J 


CC0-2 


03040 


fit. 


SYMB 






00384 


M7 


00432 


01300 


03050 


BH 


PUNC 






00396 


M6 


00528 


01100 


03060* 


LOAD AND CALL TYPERR 


SUBPROGRAM 












03070 


BTM 


MONITR, 03090, 67 






00408 


17 


02400 


-3090 


03060 


BTN 


TYPERR, 125,67 






00420 


17 


02410 


-0125 


03090 SYMB 


TFM 


STORE+6,2,610 






00432 


J6 


0034K 


000-2 


03100 


AM 


STORE+6, 12,10 






00444 


Jl 


00342 


000J2 


03110 


TFL 


ST0RE*6,FlZER0.6, 


STORE ZERC 


1 FOR NORMAL VALUE 


















00456 


-0 


0034K 


009 32 


03120 


AM 


VARCT.1,10, 


INCREMENT 


VARIABLE COUNT 


















00468 


Jl 


00934 


000- 1 


03110 


CM 


VARCT,*tl0, 


CHECK FOR 


TOO MANY VARIABLES 
















00480 


J4 


00934 


CCO-6 


03140 


BNH 


NXTVARM2 






00492 


M7 


00168 


01100 


03150* 


LOAD ANO CALL TYPERR 


SUBPROGRAM 












03160 


BTM 


MONITR, 03090, 67 






00504 


17 


02400 


-3090 


03170 


BTM 


TYPERR, 127,67 






00516 


17 


02410 


-0127 


03180 PUNC 


CM 


1AT1,3,610 






00528 


14 


0773J 


000-3 


03190 


BE 


ADDTH 






00540 


M6 


00600 


01200 


03200 


CM 


1ATI, 22,610, 


CHECK FOR 


ENC OF MACRO 


















00552 


14 


0773J 


0COK2 


04010 


BE 


SYMB 






00564 


M6 


00432 


01200 


0*020* 


LOAD ANO CALL TYPERR 


SUBPROGRAM 












04030 


BTM 


MONI TR, 03090, 67 






00576 


17 


02400 


-3090 


04040 


BTM 


TYPERR, 128,67 






00588 


17 


02410 


-0128 


04050 AODTW 


AM 


IATl,12,10 






00600 


11 


07731 


000J2 


04060 


CM 


IATl,33,610, 


CHECK FOR 


EQUAL SIGN 00612 


14 


0773J 


000L3 


04070 


BE 


NUMB 






00624 


M6 


00660 


01200 


04080* 


LOAD ANO CALL TYPERR 


SUBPROGRAM 












04090 


BTM 


MONITR, 03090, 67 






00636 


17 


02400 


-3090 


04100 


BTM 


TYPERR, 128,67 






00648 


17 


02410 


-0128 


04110 NUMB 


AM 


IATl,2,10 






00660 


11 


07731 


OCO-2 


04120 


CM 


IAT1, 2,610, 


CHECK FOR 


NUMBER OR 


SYMBOL 
00672 


14 


0773J 


000-2 


04130 


BE 


SNUMB 






00684 


M6 


00732 


01200 


04140 


BL 


SSYMB 






00696 


M7 


00824 


01300 


04150* 


LOAD ANO CALL TYPERR 


SUBPROGRAM 












04160 


BTM 


MONITR, 03090,67 






00708 


17 


02400 


-3090 


04170 


BTM 


TYPERR ,128,67 






00720 


17 


02410 


-0128 


04180 SNUMB 


TF 


ST0RE*6, IAT1,6U, 


STORE THE 


NUMBER OR 


SYMBCL 
00732 


K6 


0034K 


0773J 


04190 


TDM 


TRANS 






00744 


J5 


00792 


00000 


04200 


AM 


STORE+6,12,10 






00756 


Jl 


00342 


O00J2 


05010 


AM 


* IAT1,12,10 






00768 


11 


07731 


C0OJ2 


05020 


TF 


ST0RE*6,TWELV.6 






00780 


KO 


0034K 


00946 


05030 TRANS 


TFL 


ST0RE*6,IATl»611, 


STORE THE 


NUMBER OR 


SYMBOL 
00792 


-6 


0034K 


0773J 


05040 


AM 


[ATI, 2, 10, 


INCREMENT 


TO NEXT VARIABLE NAME 














00804 


11 


07731 


000-2 


05050 


B7 


NXTVAR*12 






00816 


M9 


00168 


00000 


05060 SSYMB 


TDM 


TRANS, 2 






00824 


J5 


00792 


00002 


05070 


TF 


ST0RE*6, IATl,61l 






00836 


K6 


0034K 


0773J 


05080 


B7 


SNUMB*24 






00848 


M9 


00756 


ooooo 


05090 VARDON 


AM 


ST0RE*6,l,10 






00856 


Jl 


00342 


000- 1 


05100 


TDM 


ST0RE*6,,6, 


SET RECORO MARK AT 1 


ENO OF MACRO 





















00868 


J5 0034K 


OOOOO 


05110 




DC 












00879 


00001 




05120* 


LOAD ANO CALL FILE 


SUBPROGRAM 


TO 


STORE MACRO 






05130 




BTM 


HONITR, 03200. 67 








00880 


17 02400 


-3200 


05140 




BTM 


FILE2,SYMBl,67 








00892 


17 02410 


-4289 


05150 




TFM 


MACSAV, 1 , 


10, . 


SET MACSAV SWITCH 


00904 


16 07721 


000— I 


05160 




B7 


RETURN, ,6 


9 


RETURN 


TO 


CALLING 


PROGRAM 

00916 


49 024 1 J 


ocooo 


05170 




DC 


8,0 










00930 


00008 




05180 


FLZERO 


DC 


2,-99 










00932 


00002 




05190 


VARCT 


DS 


2 










00934 


00002 




05200 


TWELV 


OC 


12,0 










00946 


00012 




06010* 


COMMON AREA 


WITH MAINLINE 












06020 


CODE 


OS 


,07715 










07715 


OOOOO 




06030 


SYMBl 


OS 


,04289 










04289 


OOOOO 




06040 


SYMB2 


OS 


,04301 










04301 


OOOOO 




06050 


SYMB3 


DS 


,04303 










04303 


OOOOO 




06060 


SYMB4 


DS 


,04305 










04305 


OOOOO 




06070 


MONITR 


OS 


,02406 










02406 


OOOOO 




06080 


RETURN 


OS 


,02411 










02411 


OOOOO 




06090 


FILE2 


DS 


,2416 










02416 


OOOOO 




06100 


TYPERR 


DS 


•02416 










02416 


OOOOO 




06110 


FILF 


DS 


•02416 










02416 


OOOOO 




06120 


IAT1 


OS 


,07731 










07731 


OOOOO 




06130 


NAT2 


DS 


.07666 










07666 


OOOOO 




06140 


INIT 


OS 


•07976 










07976 


OOOOO 




06150 


MACSAV 


OS 


•07721 










07721 


OOOOO 




06160 




OENO 


MACRO 










OOOOO 







4 



SVMSOL TABLE 



TYPERR 02416 
MAC P IK 07719 
E NOVAK 00947R 
CODE 07715 
FOUNO 07621 
NACS1 05191 
SAVE 05187 
SVN8 00850R 



TftATCD 00162R 
GETVAR 0041BK 
AD028 00534R 
ENOER 00354R 
HIT 00594R 
MACS4 05207 
SAVE1 08011 
TATl 00942R 



RETURN 02411 
FILTER 00234R 
CALL OOOIOR 
ERROR 00890R 
IAT1 07731 
NAT2 07666 
SAVE 2 08067 



MONITR 02406 
PILOSA 00004R 
CHECK 00674R 
FI« E 02416 
IWIT 07976 
NUMB 00782R 
SAVES 08071 



HACSUB 05188 
ERROR 1 009 14R 
CHKSl 00U4R 
FILE3 02416 
INTO 00806R 
OUT 00670R 
SEVAR 00498R 



01010« IBM 1620-1311 AO-APT 

01020* 

01030* INTRAN SUBPROGRAM CALL 

01040* THIS PROGRAM CALLS A MACRO FROM THE FILE 

01050* ANO SUBSTITUTES THE CALLED VALUES FOR THE NORMAL VARIABLE 

01060* VALUES 

01070* LINKAGE IS BT M0NITR|0SALBL*S,6 



01080* 




B CALL 










01090* 














01100 FILOSA 


OSA 


MAC SUB, 9999 


00004 


00005 -5188 








00009 


00005 -9999 


OHIO CALL 


CM 


SAVE3,,, CHECK BLOCK 3 FULL 


00010 


1* 


08071 


-0000 


01120 


BNE 


ERROR 


00022 


M7 


00890 


01200 


01130 


CM 


SAVE2im CHECK BLOCK 2 FULL 


00034 


14 


08047 


-0000 


01140 


BE 


CHKSl 


00046 


M6 


00114 


01200 


01150* 


BLOCK 2 FULL— PUSHUP BLOCKS ANO SECTOR AOORESSES 








01160 


TF 


SAV£3,SAVE2 


00058 


26 


08071 


08047 


01170 


TR 


MACSUB*60l,MACSUB*301 


00070 


31 


05789 


05489 


01180 


TF 


SAVE2.SAVE1 


00082 


26 


08047 


08011 


01190 


TR 


MACSUB*301, MACSUB 


00094 


31 


05489 


05188 


01200 


87 


TRATCO 


00106 


M9 


00162 


00000 


02010 CHKSl 


CM 


SAVEi,,, CHECK BLOCK 1 FULL 


00114 


14 


08011 


-0000 


02020 


BE 


TRATCO 


00126 


M6 


00162 


01200 


02030* 


BLOCK 1 FULL— —PUSHUP BLOCKS ANO SECTOR AOORESSES 








02040 


TF 


SAVE2*SAVE1 


00138 


26 


08047 


08011 


02050 


TR 


MACSUB*301, MACSUB 


00150 


31 


05489 


05188 


02060 TRATCO 


CF 


FILOSA*! 


00162 


L3 


00005 


00000 


02070 


TRA 




00174 


10 


00565 


-0193 








00186 


49 


00716 


00000 








00193 


00002 2K 










00195 


00005 -0201 








00200 


00001 • 










00201 


00006 U9783 








00207 


00003 -03 








00210 


00006 -0000* 


02080 


TCO 


TRATCO 


00162 








02090 


DOftG 


TRATCO 


00162 








02100 


TFM 


ENOVARf MACS 1—3 


00162 


J6 


00947 


-3188 


02110 


AM 


IAU.16,10, INOEX TO MACRO NAME 


00174 


11 


07731 


O0OJ6 


02120 


CM 


IATl,l,610, CHECK FOR VALIO NAME 


00186 


14 


0773J 


000- 1 


02130 


BE 


FILTER 


00198 


M6 


00234 


01200 


02140* 


LOAD AND CALL TYPERft SUBPROGRAM 










02150 


BTM 


MONITR ,03090,67 


00210 


17 


02400 


-3090 


02160 


BTM 


TYPERR. 133,67 


00222 


17 


02410 


-0133 


02170 FILTER 


AM 


IATi,l2,lO, INCREMENT TO SYMBOLIC 


NAME 














00234 


11 


07731 


00OJ2 


02180 


TF 


FIL0SA*5,IATl, 


0024* 


KA 


00009 


07731 



02190 

02200 

03010* 

03020 

03030 

03040* 

03050 

03060 

03070 

03080 

01090 ENOER 

03100 
03110* 
03120 
03130 

03140 
03150* 
03160 
03170 

03180 GETVAR 

03190 
03200 
04010 
04020 

04030 SEVAR 

04040 
04050 

04060 A0026 

04070 

04080 

04090* 

04100 

04110 

04120* 

04130 HIT 

04140 

04150 

04160 

04170* 

04180 

04190 

04200 

05010 CHECK 
05020 
05030 
05040 
050 SO 

05060 
05070 

OfOfO* 

®s@t§ 

©9100 



CF FILOSA+l 
SF SAVE 

LOAD ANO CALL FILE SUBPROGRAM TO BRING A 
BTM MONITR, 03210, 67 
BT FILE3,FILDSA*5,6 

BRANCH ON UNDEFINED MACRO NAME 
BNF ERRORlf FOUND 



A 

AM 



TF 
C 



ENOVAR.MACSW, 
IATl.2,10. 



TATl, IAT1 
TATl,NAT2r 9 



00258 13 00005 
00270 32 05187 
MACRO INTO BLOCK 1 
00282 17 02400 
00294 2P 02410 

00306 M4 00914 
00318 Kl 00947 



COMPUTE END OF MACRO 
INCREMENT TO FIRST VARIABLE 

00330 11 07731 
00342 K6 00942 
CHECK FOR ENC OF VARIABLE LIST 

00354 K4 00942 
00366 M6 00870 



00000 
00000 



-3210 
00009 



07628 
05191 



000-2 
07731 



07666 
01100 



INITIALIZE START OF MACSUB TABLE 
TFM SEVAR*U,MACS4*14 



00378 J6 00509 -5221 



CM TATl t l 9 610 v 

BE GETVAR 



BTM 
BTM 
AM 

CM 

BNE 

SM 

BV 

C 

BV 
BE 
AM 



BL SEVAR 



BTM 
BTM 

SM 
SM 
C 
BE 

AM 
AM 
B7 
AM 
AM 
TF 
AM 
CM 



ftfM 
•TM 



CHECK FOR LEGAL VARIABLE NAME 

00390 J4 0094K 
00402 M6 00438 
LOAO AND CALL TYPERR SUBPROGRAM 

00414 17 02400 
00426 17 02410 
INCREMENT TO CHECK FOR EQUAL SIGN 

00438 Ji 00942 
00450 J4 0094K 
00462 M7 00690 
00474 J2 00942 
00486 M6 00498 
COMPARE VARIABLE NAME WITH MACRO VAR 
00498 K4 0094K 
00510 M6 00534 
00522 M6 00594 
INCREMENT TO NEXT VARIABLE IN MACSUB 
00534 Jl 00509 
CHECK FOR ENO OF MACRO VARIABLE LIST 
00546 KM 00509 
00558 M7 00498 
LOAO ANO CALL TYPERR SUBPROGRAM 

00570 17 02400 
00582 17 02410 

CHECK FOR EQUAL SUBSCRIPT 
SEVAR+11,12,10 00594 J2 00509 

TATl, 12, 10 00606 J2 00942 

SEVAR* lit TAT 1*611 00618 KM 0050R 

CHECK 00630 M6 00674 

INCREMENT TO NEXT VARIABLE 



MONITR, 03090 t67 
TYPERR, 134,67 
TATl, 14, 10, 

TATl, 3, 610 
ERROR 
TAT1,2»10 
•♦12 

TATl, 9999, 6, 

A0D28 
HIT 

SEVAR+ll ,28,10, 
SEVAR* 11, ENO VAR,, 



MONITR, 03090, 67 
TYPERR, 116,67 



SEVAR*ll,12,10 
TAT1,12,10 

A002B 

SEVAR* 11, 14, 10 
TATl, 28, 10 
SEVAR*U,TAT1,*11 
SEVAR*11 ,12,10 
TATl, 1,610, 



fBMTIttOlOie**? 

TYPERR » 115,67 



00642 Jl 00509 
00654 J I 00942 
00666 M9 00534 
00674 Jl 00509 
00686 Jl 00942 
00698 KO 0050R 
00710 Jl 00509 
CHECK FOR SYMBOL OR NUMBER 

00722 J4 0094K 
00734 M6 00782 
00746 M7 00850 
LOAD AMO CALL TYPIRR SUBPROGRAM 

O075R 17 02400 
00770 17 02410 



000- 1 
01200 

-3090 
-0134 

000J4 
000-3 
01200 
000-2 
01400 
IABL 
09999 
01400 
01200 

000K8 

00947 
01300 

-3090 
-0136 

000J2 
000J2 
0094K 
01200 

O0OJ2 
000J2 
00000 
000J4 
000K8 
0094K 
000J2 

000*2 
01200 
01100 

-1090 
-0115 



NUMB 
INTO 



ERROR 



05110* 
05120 
05130 
051*0 

05150* 

05160 

05170 

05180 

05190* 

05200 SVMB 

06010 

06020 OUT 



060 30' 
06040 
06050- 
06060 
06070 
06080* 
06O9O 
06100 
06110 
06120* 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
06200 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 



M001FY 0»* CODE 

TOH INTO., 
AN TAT1,12,10 
TFL SEVAR+H , TAT 1,61 1, 



INC RENNET TO NEXT UOROS 
AN SEVAR*U»14,10 
AN TAT1,2»10 
87 ENOER 



TON 
B7 



TATi 

NACSUB 

MACS1 

SAVE1 

SAVE2 

SAVE3 

INI T 

CODE 

FOUND 

SAVE 

NAT2 

MACPIK 

TYPERR 

HON I TR 

RETURN 

MACS* 

ENOVAR 

IAT1 

FILE 

FILE3 



INTO, 2 
NUMB* 12,,, 



AN MACPIK, I, 10, 



B? RETURN, ,6 



BTM 
8TM 

BTM 
BTM 
OS 

OS 
DS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
DS 
DS 
OS 
OS 
OS 
OS 
DS 
DS 
DS 



HON I TR, 03090, 67 
TYPERR »137»67 

NONI TR ,03090,67 
TYPERR, 138,67 
5 

,05188 

,MACSUB*3 

,08011 

•08047 

,08071 

,07976 

,07715 

•07628 

•05187 

•07666 

•07719 

•02416 

•02406 

•02411 

,HACSUB*19 

5 

•07731 
•02416 
• 2416 



TO TFL 

00782 J5 00806 

00794 Jl 00942 
STORE THE SYMBOL OR NUMBER 

00806 -0 0050R 

00818 Jl 00509 

00830 Jl 00942 

00842 M9 00354 
MOOIFY OP CODE TO TF 

00850 J5 00806 
BRANCH TO STORE SYMBOL OR NUM8ER 

00862 M9 00794 
INCREMENT MACRO NEST INDICATOR 

00870 11 07719 

RETURN TO CALLING PROGRAM 

00882 49 0241J 
LOAO AND CALL TYPERR SUBPROGRAM 

00890 17 02400 

00902 17 02410 
LOAD AND CALL TYPERR SUBPROGRAM 

00914 17 02400 

00926 17 02410 

00942 00005 

COMMON AREA WITH MAINLINE 

05188 00000 

05191 00000 

08011 00000 

08047 00000 

08071 00000 

07976 00000 

07715 00000 

07628 00000 

05187 00000 

07666 00000 

07719 00000 

02416 00000 

02406 OOObO 

02411 00000 

05207 00000 

00947 00005 

07731 00000 

02416 00000 

02416 00000 
00010 



OCOOO 
000J2 



000J4 
000-2 
OCOOO 

00002 

00000 

000-1 

00000 

-3090 
-0137 

-3090 
-0138 



TEMPNO 00478R 
AGAIN 00448R 
HIT 00232R 
SETOP 00396R 



TEMPAO 00483R 
CHKEO 00140R 
INIT2 10268 
SUZIE 00360R 



SYMBOL TABLE 

REPLAC OOOOOR 
C0MP2 001 84R 
ITS1 00116R 
SVMB 00428R 



MACSUB 05188 
ENOER 00468R 
MACS1 05191 
MCROL 06091 



CHKTYP 00048R 
EQUAL 00312R 
MACS4 05207 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 

01140 REPLAC 

01150 
01160* 
01170 
01180 

01190 CHKTYP 

01200 
02010 
02020 
020 JO 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM REPLAC 

THIS SUBPROGRAM SEARCHES THE STATEMENTS 

IN A CALLED MACRO FOR VARIABLES ANO REPLACES 

THESE WITH THE VALUES INOICATEO BY 

THE CALL OR NORMAL VALUES INDICATED BY 

THE MACRO DEFINITION 

THE ELEMENTS OF THE STATEMENT ARE IN WOROL 
ANO THE CALLEO OR NORMAL VALUES ARE IN THE MACSUB TABLE 
LINKAGE IS BTM MONI TR»NNNNO 

B REPLAC 



02040 

02050 ITSI 
02060 

02070 CHKEO 

02080 
02090* 
02100 
02110 

02120 C0MP2 
02130 

02140 

02150 

02160* 

02170 HIT 

02100 

02190 

02200 

03010* 

03020 

03030 



TFN 
A 

CM 

BE 
CM 
BE 
AM 

B7 

AM 

TFM 

CM 
BNL 



B7 
BV 
X 

BV 
BNE 

SM 
SM 
C 
BE 



CHKT YP*6 • WOROL 1 1 

TEMPN0»MACSlf • 

TEMPAO, MACSUB 
TEMPAD.HACS1 
9999*22. 10* 

ENOER 

CHKTYP*6.l»6lO» 
ITSI 

GHKTVP+6,14,10, 

CHKTYP,,, 

CHKTVP+6#l2*I0t 



INITIALIZE TO FIRST WORC IN WOROL 1ST TA 

00000 J6 00054 -6091 

STORE MACRO LENGTH 00012 K6 00478 05191 
CALCULATE ADDRESS OF LAST POSITION 

00024 J6 00483 -5188 

00036 Kl 00483 05191 

CHECK FOR END OF MACRO 

00048 14 09999 000*2 

00060 M6 00468 01200 

CHECK FOR SYMBOL 00072 J4 OOOSM 000-1 

00084 M6 00116 01200 
INGRIMINT TO NiXT WORD IN WQROUST 

00096 41 00054 00OJ4 
BRANCH TQ CHECK FOR SYMBOL 

00108 M9 00048 00000 
INCREMENT TO SYMBOL NAME 

00116 Jl 00054 000J2 
CHKEQ*U,HACS**14,, INITIALIZE TO FIRST VARIABLE IN MACSUB 

00128 J6 00151 -5221 
TEHPA0»9999» • CHECK FOR END OF MACSUB TABLE 

00140 J4 00483 -9999 

C0MP2 00152 M6 00184 01300 

END OF MACSUB TABLE SKIP TO NEXT WORO 

CHKTYP+6»2« 10 00164 Jl 00054 OCO-2 

CHKTYP 00176 M9 00048 OCOOO 

*+12 00184 M6 00196 01400 

CHKEQ*IWCHKTYP*6. 611* COMPARE SYMBOL NAMES 

00196 KM 0015J OOOSM 

AGAIN 00208 M6 00448 01400 

AGAIN 00220 M7 00448 01200 

INOEX TO SUBSCRIPT 

CHKEQ*lltl2*lO 00232 J2 00151 O0OJ2 

CHKTYP*6»12.10 00244 J2 00054 00OJ2 

CHKTYP*6»CHKEQ*Il«6t It COMPARE SUBSCRIPTS 00256 KM 0005M 0015J 

EQUAL 0026B M6 00312 01200 

INCREMENT TO NEXT WORO IN MACSUB 

CHKE0*lltl2tl0 00280 Jl 00151 00OJ2 

CHKTYP*6»12.10 00292 Jl 00054 0OOJ2 



03040 




i? 


AGAIN 


00304 M9 00448 00000 


03050 


EQUAL 


AM . 


CHKEQM1, 14*10 


00312 Jl 00151 00OJ4 


03060 




CM 


CHKEGH1.2.610. 


CHECK VALUE— -NUMtE* OK SYMBOL 










00324 J4 0015J 000-2 


03070 




bl 


SYMB 


00336 M7 00428 01300 


03080* 






SET OP CODE TO TFL 


03040 




TOM 


SETOP 


00348 J5 00396 00000 


03100 


SUIIE 


TF 


CHKTVP*6tCHK£Q*ll 


,61 li REPLACE THE VALUE IN THE WOROL I ST 










00360 KO OOOSM 0Q15J 


03U0 




AM 


CMKEQ*ll»12tlO 


00372 Jl 00151 000J2 


03120 




AM 


CMKTYP»6,12,10 


00384 Jl 0O054 Q00J2 


03130 


setop 


TFL 


CHKTVP»6,CHKE04il»6ll 00396 -0 0005M OOISJ 


03U0 




AM 




INCREMENT TO NEXT WORD IN MOROLIST 










00408 Jl 00054 000-2 


03150 




87 


CHKTVP 


00420 M9 00048 00000 


03160* 






SET OP CODE TO TF 


03170 


SYMB 


TOM 


S6TOPt2 


00428 J5 00396 00002 


03180 




B7 


SUME... 


BRANCH TO STORE VALUE 00440 M9 00360 00000 


03190 


AGAIN 


AM 


CHKEQ*11«26,10, 


INCREMENT TO NEXT WORO IN MACSUB TABLE 










00448 Jl 00151 000X8 


03200 




B7 


CHKEQ 


00460 M9 00140 00000 


-voio* 








COMMON AREA WITH MAINLINE 


04020 


ENOER 


87 


INIT2 


00468 49 10268 00000 


040 30 


INIT2 


OS 


,10268 


10268 00000 


04040 


WOROl 


OS 


,06091 


06091 00000 


04050 


TEMPNO 


OS 


4 


00478 00004 


04060 


TEMPAO 


OS 


5 


00483 00005 


04070 


MACSUB 


OS 


,05188 


05188 00000 


04080 


MACS1 


OS 


,MACSU8«-3 


• 05191 00000 


04090 


MACS4 


OS 


♦MACSUB* 19 


05207 00000 


04100 




OEND 


REPLAC 


00000 



TYPE-RR 02416 
PUTOUT 00280R 
OOXOSK 02095R 
H8F0ND 00074R 
CODEMO 0C632R 
A0012 01064R 
C0MP4 00932R 
HIT 01256R 
INW 02041R 
N04 07901 
OUTW 02017R 
SETIM 00752R 
TABIN 01316R 



TSTUFF 


07881 


OUTSEC 


02034R 


OOXCOR 


02103R 


ENOCAN 


01799 


CHKSUB 


0U76R 


A004 


00968R 


OEX 


07883 


INA 


02050R 


NFLAG 


00268R 


NTIM 


00169R 


PIN 


07391 


SKIP 


01084R 


TOEX 


07386 



SYMBOL TABLE 

TEMPNO 021 19R 
OUTOSK 02031R 
NONRIT 07690 
OEXSEC 02074R 
BACK TO 00624R 
CLOUT 00848R 
ENOEX 01999 
INCOR 02063R 
NOGET 07893 
ODEXA 02090R 
PUTO 00552R 
STUFF 00360R 
TEN2 02129R 



TABOUT 07770 
OUTCOR 02039R 
MONITR 02406 
DEXOSK 02071R 
BACKAG 00054R 
CODEZ 00034R 
FILE 000 10R 
INOSK 02055R 
N02 08059 
OOEXM 02081R 
RET 01276R 
SUB2 01224R 
TFILE 021 14R 



TABCOR 012S4R 
OOXSEC 02098R 
INOEXA 02066ft 
OEXCOR 02079R 
AOOT 00336R 
C00E1 00076R 
FOUND 07628 
INSEC 02058R 
NO 3 0789B 
OUTA 02026R 
SETGM 00160R 
SVDSK 02109R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01030* 
01090* 
01100 

01 1 10 FILE 

01120 

01130 COOEZ 

0U40* 

01150* 

01160 

01170 

01 1 SO BACKAG 

01190* 

01200* 

02010 
02020 
02030* 

02040 HBFONO 
02050 
02060* 
02070 CO0E1 

02090 
02090 
02100 

02110 

02120* 

02110 

02140 

02150* 

02160 SETGM 

02170 

02U0 NTIM 
02190 



IBM 1620*1311 AO-APT. 



INTRAN SUBPROGRAM FILE1 

THIS IS THE SUBPROGRAM THAT STORES OR REPLACES A SCALAR ELEM 
LINKAGE IS BTM MONITR »NNNNO 

BTM FILE1 .NAME 
NAME IS THE ADDRESS OF THE SYMBOLIC NAME TO BE 
STORED OR REPLACED 



10,0 

FOUND 

FILM 

FlLE-l.12.10 



B 

DOUG 
SN 



8 

DORG 



CODEMO 
*-l 

FILE-l.12.10 



C0DE1 



00009 00010 

00010 33 07628 
00022 L2 00005 
00034 Jl 00009 

BRANCH TO COOEMO TO SEE IF THE SCALAR 
NAME HAS BEEN PREVIOUSLY OEFINEO 

00046 M9 00632 
00054 

00054 J2 00009 
BRANCH TO C0DE1 TO STORE OR REPLACE THE 
SCALAR 

00066 M9 00076 
00074 



RETURN TO CALLING PROGRAM 



BB 

DORG 



*~9 



00074 42 00000 
00076 
A SCALAR 



SM 
TF 
TF 



PlLE-l.lt 10 
TFRE.FILE-I 
OUTCOR t TFILE 1 1 



TOM 
OGM 
OS 
TF 



CODE I... .STORE OR REPLACE 
TEMPNO.FILE-l.Ut STORE THE LENGTH IN TEMPNO 

00076 KO 02119 
00088 J2 00009 
00100 KO 02114 
SET THE CORE AOORESS FIELD 

00112 KO 02039 
TEMPNO • TEMPNO ♦ 100 00124 Jl 02119 
COMPUTE POSITION OF GROUP MARK 
SETGH*6»PILE-1 ©0136 KO 00166 

SETGM*** TEMPNO-* 0014B KJ 00164 

SET GROUP MARK 

«9 99 , 00160 19 09999 

• 00171 00001 

,*«2 00169 00000 

OUTSEC • TEMPNO- J « t SET THE SECTOR LENGTH PtELO 

00172 KO 02014 



AN TEMPNO, 100,6, 



TF 
A 



€0000 
00000 
000J2 



00000 
000J2 

00000 

00000 



OOOOR 
000-1 
00009 

02114 
0-100 

00009 
02117 

00000 



02200 


CF 


UUTSEC- I 


0018* 


L3 


02033 


00000 


030 10 


TFM 


OUTOSK, • • 


INITIALIZE THE SECTOR AOOAESS FIELD 










00 196 


J6 


02031 


-0000 


03070 


A 


QUT0SK»N02., 


OUTOSK ■ OUTDSK ♦NO? 00208 


Kl 


0203 1 


08059 


0)0 30 


CM 


OUTOSK tiNOCANt t 


CHECK FOR TABLE OVERFLOW 














00220 


J* 


02031 


-1799 


030*0 


8L 


NFLAG 


00232 


M7 


00268 


01300 


03090* 














03060* 






LOAO AND CALL TVPERR SUBPROGRAM 








03070 


6TM 


M0NtTftt03090t67 


002** 


17 


02*00 


-3090 


03080 


8TH 


TYPERR»l*3t6T 


00256 


17 


02*10 


-01*3 


03090 NPLAfi 


TF 


0UT0SK« INDSK* » 


OUTOSK • fNOSK 00268 


KO 


02011 


02055 


03100* 






STORE OR REPLACE THE RECORD 








Oil IQ PUTOUT 


PUT 


OUTW,RBC 


00200 


10 


00S6S 


-0101 








00292 


*R 


00920 


-2017 


01120 


TDM 


S B TGM*6 M A, 


CLEAR GROUP MARK 0030* 


J5 


OOUO 


00000 


Oil 30* 






CHECK TO SEE IF THIS IS A NEW SYMBOL 




03140* 






••IF NOT 00 NOT CREATE ENTRY IN 


INDEX 




031 50 


8NF 


ADDT»POUND 


00316 


M* 


00316 


07628 


03160 


67 


H6P0N0 


00328 


M9 


0007* 


00000 


01170 AODT 


A 


N02i THMPNO-2 1 » 


UPDATE N02 00316 


2J 


08059 


021 17 


031 80 


AM 


TPRE » i 7 # 10 


003*8 


Jl 


0211* 


000 J 7 


03190 STUFF 


TFL 


TSTUFP»TFILE«611 


, STORE THE SYMBOL NAME AND SUBSCRIPT 










00360 


00 


078BJ 


021 1M 


03200 


AM 


TSTUFF 1 2 1 10 


00372 


11 


07881 


COO- 2 


0*010 


TF 


TSTUFF,TEMPN0-2» 


6, STORE THE SECTOR LENGTH 














0038* 


20 


0788J 


021 17 


0*020 


AM 


TSTUFF,1*,10# 


INCREMENT TO NEXT ENTRY IK TABLE 










00396 


11 


07881 


OOOJ* 


0*0 30 


AM 


TDEX, I tlOt 


UPOATE TOTAL NO* ENTRIES 














00*08 


11 


07386 


000- 1 


0*0*0 


AM 


OEX, 1 » 10» 


UPOATE NO. ENTRIES IN BUFFER 














00*20 


11 


07883 


000- 1 


0*0 50 


CM 


D£X,6»10» 


CHECK FOR FULL BUFFER 00*32 


1* 


07683 


000-6 




BNE 


BACK TO 


00*** 


M7 


0062* 


01200 


ftiftvn 






BUFFER FULL. . .PREPARE TO OUTPUT 


TO 


FILE 




A Art 

0*080 




nnyncK - ft i lift ft . 


INITIALIZE SECTOR AOORESS 














00*56 


J6 


02095 


- 1800 


0*090 




nn veer -i.e. 


INITIALIZE SECTOR COUNT 














00*68 


J6 


02098 


00—01 


1 00 






INITIALIZE CORE AOORESS 














00*80 


J6 


02103 


-7770 






nrtvncK - writ . . 


00X0SK • 00X0SK ♦ N03 00*92 


Kl 


02095 


07B98 


n « in 






CHECK FOR TABLE OVERFLOW 








0*1 30 






0050* 


J* 


02095 


— 1999 




BL 


PUTO 


00516 


M7 


00552 


01300 


0*1 50* 






TABLE OVERFLOW 








0*1 60* 






LOAO A NO CALL TVPERR SUBPROGRAM 








0*1 70 


BTM 


MUNI TK »03090»6f 


00528 


17 


02*00 


-3090 


0*1 80 


6 TM 


ffVftCBD t %Q 

TYrfcRKfl 11|«f 


005*0 


17 


02*10 


-01 39 


0*1 90* 






CUTPUT INDEX BUFFER TO FILE 








0*ZuO PUlO 


PUT 


ODEXW,R8C 


00552 


10 


00565 


-0575 








0056* 


*R 


00520 


-208 1 


050 1 


AM 


NOWRIT, 1,9* 


NOWRIT • NOWRIT ♦ I 00576 


11 


07890 


00-01 


05020 


AM 


N03,l*l0, 


N03 - NO! ♦ 1 00588 


11 


07898 


ooo-i 


050 30 


TFM 


DEX.,10, 


OEX - 00600 


16 


07883 


000-0 


050*0 


TFM 


TSTUFF #TAB0UT*l J 00612 


16 


07881 


-7783 


05050 BACK TO 


B7 


HBFOND 


0062* 


M9 


0007* 


00000 


05060 COOEMO 


TFM 


NTIM, ,10 


00632 


J6 


00169 


coo-o 


05070 


TFM 


NO*, ,10, 


NO* - 006** 


16 


0790 1 


000-0 



05000 
05090 
05100 
05110 
05120 

05130 
051*0 



TFM 
TFM 
TF 
TFM 

C 

BE 
C 

BE 



05150 
05160* 

05170 SET IN TFM 
05180 TFM 
05190 TFM 



05200 
06010 

06020 
06030 
060*0 

06050 CLOUT 

06060 

06070 

060 BO* 

06090 

06100 

06110 

06120 

06130 COM** 

061*0 

06150 

06160 A004 

06170 

06180 
06190 
06200 
07010 
07020 



TFM 
TFM 

A 

TFM 

AM 

TF 

CM 

BN€ 

SK 
ROM 
AM 
BV 

C 

BV 
BE 
AN 



07030 

070*0 A0012 



C 

BE 
AM 
CM 

BE 
AM 



07050 B7 
07060 SKIP AM 
07070 C 



070B0 

07090 



BE 
CM 



BE 



07100 

07110 AM 

07120 TFM 

07130 B7 
072*0 CMftSUB AM 

07190 AM 

07140 C 

07170 BE 



INOSK,., 
NOGET,, 9, 
TFILE.FRE-1 
PIN,, 

PIN, TDEX,, 
RET 

KOGET.NOWRIT,, 



C0MP*+6,TABIM»11 
NTIM,,10, 
DEXDSK, 01800,* 

DEXSEC.7,9. 
DEXCOR.TABIN,, 



INOSK 
NOGET 



CHECK FOR END OF 



CHECK NO. OF GETS 



OEXOSK.NO*,, 
CL0UT«-6,TABIN-l 
CL0UT*6,10,10 
9999, TENZ 
CL0UT*6,TABIN*699 
CLOUT— 12 

INDEX A 
I WOE X A 
NO*, 7, 10, 
•♦12 

9999,TFILE,U, 
ADD* 

CHKSUB 

C0MP4***4«I0»« 

tM0SK«C0MP4*6«lI« 

PIN, 1,10, 
PIN, TDEX,, 

RET 

NTIH.1,10, 
NTIM, 6. 10, 

SKIP 

C0MP4*6«12«10» 

C0MP4-12 
NOGET. I. 10, 
NOGET, NOWRIT,, 



00656 J6 02055 

00668 16 07893 

00680 KO 0211* 

00692 16 07391 
SYMBOL NAMES 

0070* 2* 07391 

00716 M6 01276 
NO. WRITES 

00728 2* 07893 

007*0 M6 0128* 
INITIALIZE COMPARING AOORESS 

00752 JO 00938 

MTIM - 0076* J6 00169 

INITIALIZE SECTOR AOORESS 

00776 J6 02071 

SECTOR COUNT • 7 00788 J6 0207* 

INITIALIZE CORE AOORESS 

00800 JO 02079 

OEXOSK • OEXOSK ♦ NO* 



NO* • NO* *7 
COMPARE SYMBOL NAME 



00812 Kl 02071 
0082* JO 0085* 
00836 Jl 0085* 
008*8 20 09999 
00860 JM 0085* 
00872 M7 00836 
BRING INDEX TABLE INTO TABIN 

0088* L* 02066 
00896 L6 02066 
0090B 11 07901 
00920 M6 00932 
00932 2M 09999 
009** M6 00968 
00956 M6 01176 
INCREMENT TO SECTOR LENGTH FIELO 

00968 Jl 00938 
INOSK - INOSK ♦ SECTOR LENGTH 

00980 KJ 02055 
PIN • PIN ♦ 1 00992 11 07391 

CHECK FOR END OF TABLE 0100* 2* 07391 
01016 M6 01276 
NTIM • NTIM *l 01028 Jl 00169 

CHECK IF SKIPPING TO BE PERFORMED 

010*0 J* 00169 
01052 M6 0108* 
INCREMENT TO NEXT SYMBOL NAME 

0106* Jl 00938 
01076 M9 00920 
0108* 11 07893 
NO* WRITES 

01096 2* 07693 
01108 M4 012B* 



NOGET * NOGET ♦ I 
CHECK IF NO* GETS 



C0MP**4 .TAB I N*695 . .CHECK FOR ENO OF TABIN TABLE 

01120 JM 00938 

ccTm 01132 M6 00752 

C0HP4*6.4.10 011*4 Jl 00938 

NTIM.,10, *U* - © J ** i% J **? 

4*>01* 01168 M9 01064 

COMPEL 10 jj 0093B 

TPlLEt2 v IO 01188 Jl 02114 

TFtLf.CO*P***.*U. CHECK SUBSCRIPT 01200 KM Mil* 

Mtf 01212 M4 01296 



-cooo 

00-00 
00009 
-0000 

07386 
01200 

07890 
01200 

-1327 
000-0 

-1800 
00-0 7 

-1316 
07901 
-1315 
OOOJO 
02129 
-2015 
01200 

00701 
00702 
000-7 
01400 
021 IN 
01400 
01200 

000-4 

00930 
000-1 
07386 
01200 
000-1 

000-6 
01200 

000J2 
00000 
000-1 

07890 
01200 

-2011 
01200 
000-4 
000-0 
00000 
000-2 
000-2 
00930 
01 200 





Silt? 


SM 


CG**f»4«6* 2 1 10 




01224 


J2 00938 


COO— 2 


07} 90 




SM 


Tft ||.f t 2« 10 




01236 


J2 02114 


000—2 


07700 




8 


AD04 




01248 


M9 00966 




08010 




0036 


*.} 




01756 






08020* 








SYMBOL fOUNO* •• »SET 


FLAG AT FOUNO 




080 30 


HIT 


%f 


FOUMO 




01256 


32 07626 


00000 


08040 




I 


BACK AC 




01268 


MQ 0OO14 


00000 


08090 




00* c 


•-3 




1276 






06060 


HIT 


87 


BACK AC 




01276 




ooooo 


08070* 






INITIAL!*! CONPAAC 


A0D6ESS TO 


1*1 sit n T 




08080* 






IN 8UFFE6 








080*90 


TAftCQft 


TFN 


COMP4*6 v TAiOUT*U 


01284 


JO UwtJV 


-7761 


081 00 




TM 








14. Aft lit 

Jo Uulftv 


000-0 


08110 




B>? 


C0WP4— 12 




1 308 


HQ 

UVifV 


ooooo 


081 20 




DC 


10 




01315 


00001 




081 10 


TABIN 


DC 


1 1 




01316 


00001 




081 40 




DC 


SO ,0 




01366 


00050 




08130 




DC 


50 # 




01416 


00050 




08160 




DC 






1466 


00050 




081 70 




DC 


50 1 




01516 


00050 




081 60 




OC 


50 1 




01566 


00050 




08190 




OC 






016 16 


00050 




08200 




DC 


50 1 




01666 


0005O 








DC 


50 tO 




01716 


00050 




09020 




OC 


50 tO 




01766 


00050. 




09030 




DC 


50*0 




01816 


00050 




09040 




DC 


50 t 




01866 


00050 




09050 




OC 


50 t 




a J !!i ? 


00050 




09060 




OC 


50,0 




01966 


00050 




09070 




OC 


49,0 




02015 


00049 




09080 




OGH 






02016 


00001 




09090 


OUT* 


DOM 


,OUTA, 




02017 


00002 20 














07019 


00005 -2026 












02024 


00001 • 




09100 


OUTA 


OOA 


tOtOtOtO 




02026 


00006 0-0000 












02032 


00003 -00 














02035 


00005 -0000 


09110 




DC 


It* 




02040 


00001 




09120 


OUTOSK 


OS 


,0UTA*5 




02031 


00000 




09130 


OUTSEC 


OS 


*0UTA*6 




02034 


00000 




09140 


OUTCOA 


OS 


»0UTA*13 




02039 


00000 




09150* 














09160 


INK 


DOM 


, IMA, »N» A 




02041 


00002 20 














02043 


00005 -2050 












02046 


00001 • 




09170 


INA 


DOA 


• • INOSK* I MSEC f INCOft 


02050 


00006 0-7055 












02056 


00003 -56 














02059 


00005 -2061 


09160 




OC 


W 




02064 


0000 1 




09190 


INOSK 


DC 


5,0,INA*5 




02055 


00005 




09200 


INSEC 


OC 


3«0,INA*0 




02056 


00003 




10010 


INCOft 


OC 


5,0,IKA*13 




02063 


00005 




10020* 














10030 


INDEXA 


OOA 


ttoexosKtOCxSfc 


tOCXCOft 


02066 


00006 0-2071 












02072 


00003 -74 














02075 


00005 -2079 


10040 




OC 


i#' 




02080 


00001 




10050 


OEXOSK 


OS 


•INDEXA*S 




02071 


00000 




10060 


OEXSEC 


OS 


*iN0EXA*6 




0207* 


00000 




10070 


DEXCOft 


OS 


•IN0EXA*13 




02079 


00000 





•AGE 



10090 


OOEXM 


OOM 


,ODEXA,,N.A 




02081 


00002 


20 












02063 


00005 


-2090 












02088 


00001 




10100 


ODEXA 


OOA 


OOXOSK, OOXSEC 


, OOXCOR 


07090 


00006 


0-2095 












02096 


00003 


-98 












02099 


00005 


-2103 


10110 




OC 


l.» 




02104 


00001 




10120 


OOXOSK 


OS 


,O0EXA*S 




07095 


OOOOO 




10130 


OOXSEC 


OS 


,00EXA*8 




02098 


OOOOO 




10140 


OOXCOft 


OS 


,00EXA*I1 




02103 


OOOOO 




10150 


SVOSX 


OC 


5,0 




02109 


00005 




10160 


TFILE 


OC 


5,0 




02114 


00005 




10170 


TEMPNO 


DC 


5,0 




02119 


00005 




10180 


TEN2 


OC 


10,0 




02129 


00010 




10190* 






COMMON AftEA 


MITH MAINLINE 






10200 


FOUNO 


OS 


•07626 




07628 


OOOOO 




11010 


T ABOUT 


OS 


,07770 




07770 


OOOOO 




11020 


TSTUFF 


OS 


•07661 




07881 


OOOOO 




11030 


OEX 


OS 


,07801 




07883 


OOOOO 




11040 


TOEX 


OS 


•07366 




07386 


OOOOO 




11050 


•IN 


OS 


•0T391 




07391 


OOOOO 




11060 


NOMR I T 


OS 


•07890 




07890 


OOOOO 




11070 


NO GET 


OS 


,07891 




07893 


OOOOO 




11080 


N02 


OS 


• •059 




03059 


OOOOO 




11090 


N01 


OS 


•07S96 




07898 


OOOOO 




11100 


N04 


OS 


V 0790I 




07901 


OOOOO 




11110 


ENOCAN 


OS 


.1799 




01799 


OOOOO 




11170 


MONITfl 


OS 


•02406 




02406 


OOOOO 




11130 


TV»fftft 


OS 


•02616 




02416 


OOOOO 




11140 


f NOFX 


OS 


• 1999 




01999 


OOOOO 




11150 




OCNO 


FIME 




OOO10 







46 



SYMBOL TABLE 



TYPERR 02416 
OUTSEC 00564R 
OOXCOR 00593R 
AOOT 00246R 
FILE 00006R 
NO* 07901 
PIN 07391 
TOEX 07386 



TSTUFF 07881 
OUTOSK 00561R 
NOWRIT 07690 
BB1 00546R 
FOUNO 07628 
OOEXA 00580R 
PUTO 00474R 
TFILE 00609R 



TEHPNO 00599R 
OUTCOR 00569R 
MOM TR 02406 
C00E1 00030R 
NOGET 07893 
OOEXW 00571R 
SETGM 00114R 



TA80UT 07770 
OOXSEC 00S88R 
ENDCAN 01799 
OEX 07883 
N02 08059 
OUTA 00556R 
STUFF 00282R 



PUTOUT 00222R 
OOXOSK 0Q585R 
BACKTO 00546R 
ENOEX 01999 
N03 07898 
OUTW 00548R 
SVOSK 00604R 



01010* 
01020* 
01030* 
01040* 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM PI 162 

THIS SUBPROGRAM STORES A GEOMETRIC CANONICAL FORM 



01050* 


A 


MACROtOR A SCALAR 


ELEMENT 






01060* 


LINKAGE IS 


BTM MONI TR,NNNNO 






01070* 






BTM FILE2,NAME 






01080* 


NAME IS THE AOORESS 


OF THE CHARACTER LENGTH PORTION 




01090* 


OF 


THE RECORO TO BE 


STORED 






Oil 00* 












OHIO 


DC 


6,0 


00005 


00006 




01120 FILE 


CF 


FOUND 


00006 


33 07628 


00000 


01130 


SF 


FILE-5 


00018 


L2 00001 


00000 


01140 COOEl 


TF 


TEMPNOtFILE-ltU 


• STORE THE RECORD LENGTH IN TEMPNO 










00030 


KO 00599 


OCOON 


01150 


SM 


FILE-1,3,10 


00042 


J2 00005 


000-3 


01160 


TF 


TF ILE ,F I LE-1 


00054 


KO 00609 


00005 


01170 


TF 


OUTCOR, TF I LE,, 


STORE FIRST CHAR IN CORE IN OUTCOR 










00066 


KO 00569 


00609 


01180 


AM 


TEMPN0,100»8f 


TEMPNO • TEMPNO ♦ 100 00078 


J I 00599 


0-100 


01190* 






COMPUT AOORESS OF GROUP MARK 






01200 


TF 


SETGM*6,FlLE-l 


00090 


KO 00120 


00005 


02010 


A 


SETGM*4,TEMPN0-2 


00102 


KJ 00118 


00597 


02020* 






SET GROUP MARK 






02030 SETGM 


TOM 


9999, 


00114 


15 09999 


00000 


02040 


OGM 


• 


00125 


00001 




02050 


TF 


OUTSEC, TEMPNO-2,, SET UP SECTOR COUNT FIELD 












00126 


KO 00564 


00597 


02060 


CF 


OUTSEC-l 


00138 


L3 00563 


00000 


02070 


TFM 


OUTOSK, ,, 


OUTOSK • 00150 


J6 00561 


-COOO 


02080 


A 


0UT0SK,N02,, 


OUTOSK - OUTOSK ♦ N02 00162 


Kl 00561 


08059 


02090 


CM 


OUTOSK, ENDCAN,, 


CHECK FOR ENO OF CANON TABLE 
00174 


J4 00561 


-1799 


02100 


BL 


PUTOUT 


00186 


M7 00222 


01300 



02110* 
02120* 
02130 
02140 
02150* 

02160 PUTOUT PUT 



BTM 
BTM 



02170 ADOT 
02180 
02190 
02200* 
03010 STUFF 



••••TABLE OVERFLOW 
LOAD AND CALL TYPERR SUBPROGRAM 
MONI TR, 03090, 67 00198 17 02400 

TYPERR, 143,67 00210 17 02410 

STORI A CANONICAL FORM IN CANON TABU 



A 

TOM 
AM 



OUTW, ABC 

N02,TEMPN0-2,, 

SETGM*6,,6, 

TFILE.17,10 



UPDATE N02 
CLEAR GROUP MARK 



00222 10 00565 
00234 4R 00520 
00246 2J 08059 
00258 J5 0012- 
00270 Jl 00609 



-3090 
-G143 

-C245 
-0548 
00597 
00000 
00OJ7 



PREPARE TO MAKE AN ENTRY IN INOEX TABLE 
TSTUFF, TF ILE, 61 I , STORE THE SYMBOL NAME AND SUBSCRIPT 

00282 00 0788J 0060R 



03020 


AM 


TSTUFF, 2, 10 


03030 


TF 


TSTUFF »TEMPNO— 2,< 


03040 


AM 


TSTUFF, 14,10, 


03050 


AM 


TOEX, I, 10, 


03060 


AM 


OEX, I, 10, 


03070 


CM 


DEX,6,10, 


03080 


BNE 


BACKTO 


03090* 




1 


03100 


TFM 


OOXDSK, 01800,, 


03110 


TFM 


OOXSEC, 1,9, 


03120 


TFM 


OOXCOR. TAQOUT,, 


03130 


A 


OOXOSK, N03,, 


03140 


CM 


OOXDSK, ENOEX,, 


03150 


BL 


PUTO 


03160* 






03170* 




1 


03180 


BTM 


HON I TR, 03090, 67 


03190 


BTM 


TYPERR. 139,67 


03200* 




1 


04010 PUTO 


PUT 


ooexw,rbc 


04020 


AM 


NOWRIT, 1,9, 


04030 


AM 


N03.1.10, 


04040 


TFM 


OEX, ,10, 


04050 


TFM 


TSTUFF ,TABOUT*« 


04060* 




1 


04070 8B1 


BB 




04080 


OORG 


•-9 


04090 OUTW 


OOM 


,OUTA, ,N,A 


04100 OUTA 


OOA 


,0,0,0,0 


041 10 


DC 


!#• 


04120 OUTOSK 


OS 


,0UTA*5 


04130 OUTSEC 


OS 


,0UTA*8 


04140 OUTCOR 


OS 


•OUTA* 13 


04150 OOEXW 


DOW 


•OOEXA, «N, A 



00294 U 07881 OCO-2 

6, STORE THE NO OF SECTORS 

00306 20 0788J 00597 
INCREMENT TO NEXT POSITION IN TABLE 

00318 11 07881 000J4 
UPOATE TOTAL NUMBER OF ENTRIES 

00330 11 07386 000-1 
UPOATE NO, PRESENTLY IN BUFFER 

00342 11 07883 000-1 
CHECK TO SEE IF BUFFER IS FULL 

00354 14 07883 000-6 

00366 M7 00546 01200 
PREPARE TO OUPUT BUFFER TO FILE 

SECTOR ■ 01800 00378 J6 00585 -1800 

SECTOR COUNT « 1 00390 J6 00588 00-01 

CORE ADDRESS «• TABOUT 00402 J6 00593 -7770 

OOXDSK * OOXOSK * N03 00414 Kl 00585 07898 
CHECK FOR TABLE OVERFLOW 

00426 J4 00585 -1999 

00438 M7 00474 01300 

TABLE OVERFLOW 

LOAD A NO CALL TYPERR SUBPROGRAM 

00450 17 02400 -3090 

00462 17 02410 -0139 



OUTPUT BUFFER TO FILE 



NOWRIT - NOWRIT ♦ I 
NQ3 • N03 *1 
OEX « 

RETURN TO CALLING PROGRAM 



04160 OOEXA OOA * ,ODXOSK, OOXSEC, OOXCOR 



04170 




DC 


l»* 


04180 


OOXOSK 


OS 


,O0EXA*5 


04190 


OOXSEC 


OS 


,O0EXA*B 


04200 


OOXCOR 


OS 


,OOEXA*ll 


05010 


FOUNO 


OS 


,07628 


05020 


TEMPNO 


DC 


5.0 


05030 


SVOSK 


DC 


5,0 


05040 


TFILE 


DC 


5,0 


05050 


BACKTO 


OS 




05060* 







00474 10 00565 -0497 
00486 4R 00520 -0571 
00498 11 07890 00-01 
00510 11 07898 COO- I 
00522 16 07883 000-0 
00534 16 07881 -7783 
■ 

00546 42 00000 00000 
00548 

00548 00002 20 
00550 00005 -0556 

00555 00001 * 

00556 00006 0-0000 
00562 00003 -00 
00565 00005 -0000 

00570 00001 
00561 00000 
00564 00000 
00569 00000 

00571 00002 20 
00573 00005 -058Q 
00578 00001 * 
00580 00006 0-0585 
00586 00003 N88 
00589 00005 -0593 
00594 00001 
00585 00000 
00588 00000 
00593 00000 
07628 00000 
00599 00005 
00604 00005 
00609 00005 
00546 00000 



COMMON AREA WITH MAINLINE 



09070 


TABOUT 


OS 


»07770 


07770 


00000 


05060 


TSTUFF 


OS 


•07881 


07881 


00000 


05090 


OEX 


OS 


,07883 


07663 


00000 


05100 


P IN 


OS 


•07391 


07391 


00000 


05110 


TOEX 


OS 


,07306 


07386 


00000 


05120 


NOWRt T 


OS 


,07890 


07890 


00000 


05130 


NOGET 


OS 


•07093 


07693 


00000 


05140 


N02 


OS 


• 8059 


06059 


00000 


05150 


N03 


OS 


•07898 


07898 


00000 


05160 


N04 


OS 


•07901 


07901 


00000 


05110 


ENOCAN 


OS 


• 1799 


01799 


00000 


051SO 


HONITR 


OS 


•02406 


02406 


00000 


05190 


TYPERR 


OS 


,02416 


02416 


00000 


05200 


enoex 


OS 


, 1999 


01999 


00000 



06010 D6N0 FILE 00004 



TYPERR 02416 
TABCOR 00854ft 
OEXSEC 01620R 
AD012 00466R 
CLOUT 00250R 
FILE OOOIOR 
INOSK 01601R 
N03 07898 
SAVE 05187 
SKIP 004 86R 
TE NZ 016S4R 



TSTUFF 07881 
NO WRIT 07890 
OEXOSK 01617R 
A002 00670R 
C0NP4 003 34R 
FOUNO 07628 
INSEC 01604R 
N04 07901 
SAVEl 06011 
SU02 00626R 
TFILE 01642R 



SYMBOL 


TABLE 


TSAVE1 


02456 


MOM TR 


02406 


OEXCOR 


01625R 


A004 


00370R 


CORE 


01627R 


HIT 


00658R 


INW 


01587R 


NTIM 


01644R 


SAVE2 


08047 


SVOSK 


01437R 



TEKPNO 01632R 
INOEXA 01612R 
COOEMO 00034R 
862 00652R 
OEX 07663 
INA 01596R 
NOGET 07893 
PIN 07391 
SAVE3 08071 
TAB IN 00666R 



TABOUT 07770 
ENOCAN 01799 
CHKSU8 00578R 
BRBAK 0O836R 
ENOEX 01999 
INCOR 01609R 
N02 08059 
RET 00640R 
SETIM 00154R 
TOEX 07366 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
OHIO* 
01120* 
01130* 
01140 

01150 FILE 

01160 

01170* 

01180 COOEMO 

01190 

01200 

02010 

02020 

02030 

02040 

02050 
02060 

02070* 
02080 
02090* 
02100 SET IN 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM FILE3 

THIS SUBPROGRAM SEARCHES THE INOEX TABLE FOR A GEOMETRIC 
CANONICAL FORM, A SCALAR ELEMENT, OR A MACRO DEFINITION 
AND BRINGS THE CORRESPONDING RECORD INTO THE CORE POSITION 
SPECIFIED 

LINKAGE IS BTM M0NITR,NNNN0 

BT F!LE3,0SALBL*5 f 6 
DSALBL IS THE ADORESS IN CORE THAT THE RECORO IS TO BE 
BROUGHT INTO 

0SALBL*5 IS THE ADDRESS OF THE SYMBOLIC NAME CALLED FOR 



OC 
CF 
SF 

TFM 

TFM 

TFM 

TFM 

TF 

TFM 

C 

BE 
C 



BE 
TFM 



02110* 

02120 

02130 

02140 

02150 

02160 

02170* 

02180 

02190 

02200 CLOUT 



10,0 

FOUND 
FILE-5 

N04,«10 
NTIM, • 10 
INOSK,, 
NOGET, »9 
TFILE, FILE-1 
PIN,, 

PIN, TOEX,, 
RET 

NOGE T • NO WR I T • • 



TABCOR 
C0MP4*6 f TABIN»l 



TFM 
TFM 

TFM 
TFM 
A 

TFM 

AM 

TF 



NTIM, ,10, 
OEXOSK ,01800, • 

D€XS£C*7,9» 
OEXCOR • TAB I WW 
OEXOSK «N04,» 

CLOUT* 6, TAB I N-l 
CLOUT«6,10tlO 
9999, TEN 2 



00009 00010 

00010 33 07628 
00022 L2 00005 

INITIALIZE 

00034 16 07901 
00046, J6 01644 

00058 J6 01601 

00070 16 07693 

00082 KO 01642 

00094 16 07391 

CHECK FOR END OF INOEX TABLE 

00106 24 07391 

00118 M6 00840 

CHECK THAT NUMBER OF GETS - NUMBER 

00130 24 07893 

WRITES 

00142 M6 00854 
PREPARE TO BRING INOEX TABLE INTO TABIN 

I,, INITIALIZE COMPARING AOORESS TO FIRST 

00154 JO 00340 

ENTRY IN TABIN TABLE 

NTIM • 00166 J6 01644 

INITIALIZE SECTOR AOORESS 

00178 J6 01617 

SECTOR COUNT • 7 
CORE AOORESS • TABIN 
OEXOSK • OEXOSK ♦ N04 
CLEAR OUT TABIN TABLE 



00190 J6 01620 
00202 JO 01625 
00214 Kl 01617 



00226 JO 00256 
00238 Jl 00254 
00290 20 09999 



00000 
00000 

000-0 
000-0 
-0000 
00-00 
00009 
-0000 

07386 
01200 



000-0 

-1600 
00-07 
-0886 
07901 

-0885 
OOOJO 
01694 



010 1 


CM 


CL0UT»6,TABIN*699 


00262 JM 


00256 


-1585 


03020 


BNE 


CLOUT— 12 




00274 M7 


00238 


01200 


03030* 






BRING INDEX TABLE INTO TAB IN 






03040 


SK 


INDEX* 




00286 L4 


01612 


00701 


03050 


RON 


INDEXA 




00298 L6 


01612 


00702 


03060 


AM 






UPOATE N04 00310 11 


07901 


000-7 


03070 


BV 


•♦12 




00322 M6 


00334 


01400 


03080 C0MP4 


c 


QQQQ . TF I LF . 1 1 ■ 




COMPARE SYMBOL NAME 00334 2M 


09999 


0164K 


03090 


BV 


A004 




00346 M6 


00370 


01400 


03100 


8E 






00358 M6 


00576 


01200 


03110 A004 


AM 


rnMP4+A.4.io> 




INCREMENT TO SECTOR LENGTH FIELO 










00370 Jl 


00340 


000-4 


03120 


A 




lit 


UPOATE INOSK 00382 Kj 


01601 


0034- 


031 30 


AM 


pin.i.io. 




PIN ■ PIN ♦ I 00394 U 


07391 


000- 1 


03140 


c 


PlN,TDEX,t 




END OF TABLE 00406 24 


07391 


07386 


03150 


BE 


RE T 




00418 M6 


00840 


01200 


03160 


AM 


NT f M. 1 . 10. 




NTIM * NTIM ♦ 1 00430 Jl 


01644 


000-1 


031 70 


CM 


NTIM, 6,10, 




CHECK IF SKIP MUST BE PERFORMED 
00442 J4 


01644 


000-6 


03180 


BE 






00454 M6 


00486 


01200 


o^iqo Ann i? 


AM 


rn hp 4* a . i?.io. 




INCREMENT TO NEXT SYMBOL NAME 

00466 Jl 


00340 


000J2 


03200 


B7 


C0MP4-12 




00478 M9 


00322 


00000 


04010 SKIP 


AM 


NOGET, I, 10, 




NOGET * NOGET ♦ 1 00486 11 


07893 


000-1 


04020 


c 


N0GET,N0WRIT,» 




CHECK THAT NO GETS ■ NO WRITES 
00498 24 


07893 


07890 


04030 


BE 


TABCOR 




00510 M6 


00854 


01200 


04040 


CM 


COMP4*6,TABIN*695ttCHECK FOR END OF TABIN TABLE 














00522 JM 


00340 


-1581 


04050 


BE 


SETIM 




00534 M6 


00154 


01200 


04060 


AM 


C0MP4*6,4,10 




00546 Jl 


00340 


000-4 


04070 


TFM 


NTIM,, 10, 




NTIM « 00558 J6 


01644 


000-0 




B7 


ADO 12 




00570 M9 


00466 


00000 


04090* 






' PREPARE TO CHECK SUBSCRIPTS 








AM 


CONP4*6,2,10, 




00578 Jl 


00340 


000-2 


9ft 


SM 


TFILE, 12, 10 




00590 J2 


01642 


O0OJ2 


04120 




TFILE, C0MP4*6, 


611, 


C+ECK FOR EQUAL SUBSCRIPTS 

00602 KM 


0164K 


0C34- 


041 30 




HIT 




00614 M6 


00658 


01200 


ft* 1 Aft CllO) 

U*/14Q >UB« 


CM 


C0MP4*6,2»10, 




UNEQUAL* •• 'RETURN TO CHECK NEXT 


SYMBOL 










00626 J2 


00340 


000-2 






TFILE, 12, 10 




00638 Jl 


01642 


O0OJ2 


04160 


8 


AD04 




00650 M9 


00370 


00000 


04170 


OORG 


•-3 




00658 












SYMBOL ANO SUBSCRIPT HAVE BEEN FOUNO 




ai ion LI f T 

u*t i 'wU nil 


SF 


FOUND 




00658 32 


07628 


OCOOO 


04200 A002 


AM 


C0MP446,2,10, 




INCREMENT TO SECTOR LENGTH FIELO 












00670 Jl 


00340 


000-2 


05010 


TF 


INSECtC0MP4*6, 




TRANSFER SECTOR LENGTH TO INSEC 
00682 KO 


01604 


0034- 


05020 


CF 


INSEC-l 




00694 L3 


01603 


00000 


05030 




INCOR .FILE-6,, 




TRANSFER CORE POSITION TO INCOR 
00706 KO 


01609 


0COO4 


05040 


A 


FILE-8,C0MP4*6 


tilt 


COMPUTE GROUP MARK POSIT IGN 

00718 KJ 


00002 


0034- 


05050 


TDM 


FILE-6,,6, 




SET GROUP MARK 00730 J5 


OOOOM 


00000 


05060 


OGM 


• 




00741 00001 




05070* 






BRING CANONICAL FORM INTO MEMORY 






05060 


GET 


INW.RBC 




00742 10 
00754 4R 


00565 
00566 


-0765 
-1587 



05090 


TOM 


FILE-6,,6, 


CLEAR 


GROUP MARK 


00766 


J5 OOOOM 


00000 


05100 


BNF 


BRBAK, SAVE tt 


CHECK 


TO SEE IF SECTOR 


ACORESS MUST BE 












00778 


M4 00838 


05187 


05110* 






SAVED 










05120 


CF 


SAVE 






00790 


33 05187 


00000 


05130 


A 


INDSK, INSEC. # 


UPOATE INOSK 


00802 


KJ 01601 


01604 


05140 


TF 


SAVE1, INOSK,, 


SAVE 


SECTOR AOORESS 


00814 


20 08011 


01601 


05150 


TF 


TSAVEl , SAVEl ,, 


SAVE 


SECTOR AOCRESS 


00826 


26 02456 


08011 


05160* 






RETURN TO CALLING PROGRAM 








05170 BRBAK 


BB2 








00638 


42 00000 


00000 


05180 RET 


NOP 








00840 


41 00000 


00000 


05190* 






RETURN TO CALLING PROGRAM 








05200 BB2 


BB2 








00852 


42 00000 


00000 


06010* 






PREPARE 


TO CHECK SYMBOLS 


IN BUFFER 




06020 TABCOR 


TFM 


C0MP4*6,TAB0UT*ll 




00854 


J6 00340 


-7781 


06030 • 


TFM 


NTIM, ,10 






00866 


J 6 01644 


000-0 


06040 


B7 


C0MP4-12 






00878 


M9 00322 


00000 


06050 


DC 


1,0 






00885 


00001 




06060 TABIN 


DC 


1,0 






00886 


00001 




06070 


DC 


50,0 






00936 


00050 




06080 


OC 


50,0 






00986 


00050 




06090 


OC 


50,0 






01036 


00050 




06100 


OC 


50,0 






01086 


00050 




06110 


OC 


50,0 






01136 


00050 




06120 


OC 


50,0 






01186 


00050 




06130 


DC 


50,0 






01236 


00050 




06140 


DC 


50,0 






01286 


00050 




06150 


OC 


50,0 






01336 


00050 




06160 


DC 


50,0 






01386 


00050 




06170 


OC 


50,0 






01436 


00050 




06180 


DC 


50,0 






01486 


00050 




06190 


DC 


50,0 






01536 


00050 




06200 


DC 


49,0 






01585 


00049 




07010 


OGM 








01586 


00001 




07020* 










01587 


00002 20 




07030 INN 


DOW 


,INA, ,N,A 
















01589 


00005 -1596 












01594 


00001 * 




07040 INA 


OOA 


,, INDSK, INSEC, INCOR 




01596 


00006 0- 


1601 










01602 
01605 


00003 004 
00005 -1609 


07050 


OC 


It* 






01610 


00001 




07060 INOSK 


DC 


5,0,INA*5 






01601 


00005 




07070 INSEC 


DC 


3,0t!NA*8 






01604 


00003 




07080 INCOR 


OC 


9,0*!NA*13 






01609 


00005 




07090* 














161? 


07100 INOEXA 


OOA 


OEXOSK, OEXSEC 


, OEXCOR 




01612 


00006 0- 








01618 
01621 


00003 020 
00005 -1625 


07110 


DC 


lt» 






01626 


00001 




07120 OEXOSK 


OS 


•INDEXA+5 






01617 


00000 




07130 OEXSEC 


OS 


,IND6XA*8 






01620 


00000 




07140 OEXCOR 


OS 


•INDEX A* I) 






01625 


00000 




07150* 










01627 






07160 CORE 


DS 


I 






0000 1 




07170 TEMPNO 


OC 


5,0 






01632 


00005 




07180 SVOSK 


DC 


5,0 






01637 


00005 




07190 TFILE 


DC 


5,0 






01642 


00005 




07200 NTIM 


OC 


2,0 






01644 


00002 




0»OfcO *C*7 


DC 


10,0 






01654 


00010 





40 



08020* 






COMMON ARC A WITH f*Af Nl INf 




060 50 


FOUND 


OS 


,0762a 


07628 


00000 


06040 


TA60UT 


OS 


,07770 


07770 


00000 


080*0 


SAVE 


OS 


•0518? 


05187 


00000 


08060 


SAVE t 


OS 


•OBQll 


08011 


ooooo 


08070 


SAVE2 


OS 


•08047 


08047 


00000 


08080 


SAVES 


OS 


•08071 


08071 


ooooo 


08090 


T STUFF 


OS 


•07881 


07881 


ooooo 


08100 


OEX 


OS 


•07883 


07883 


ooooo 


08110 


PIN 


OS 


•07391 


07391 


ooooo 


08120 


TOEX 


OS 


•07386 


07386 


ooooo 


00150 


NOWP.IT 


OS 


•07890 


07890 


ooooo 


0«H0 


NOGET 


OS 


•07891 


07893 


ooooo 


68150 


N02 


OS 


• 8099 


08Q59 


ooooo 


08160 


NO! 


OS 


•07698 


07*98 


ooooo 


08170 


NO* 


OS 


•07901 


07901 


ooooo 


08180 


T SAVE I 


OS 


•02498 


02456 


ooooo 


08190 


ENOCAN 


OS 


• 1799 


01799 


ooooo 


08200 


MGNITA 


OS 


•02406 


02406 


ooooo 


09010 


TYPERA 


OS 


•02416 


02416 


ooooo 


09020 


END EX 


OS 


• 1999 


01999 


ooooo 


09030 




DENO 


FILE 


00010 





SYMBOL TABLE 

MINSEC 00120R MINDSK 0OU7A M1NC0W 00103A M1N00A 00U2R MINCOR 00125ft 
INOATl 07395 CODE HI OOOOOR BMAIN 10004 GET IT 00046R SAVEl 08011 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 

01080 C00EM1 

01090 

01100 

Oil 10* 
01120 
01130 
01140* 
01150 CETIT 

01160* 
01170 
01180 
01190* 

01200 

02010 MINOOU 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM FILE4 

THIS SUBPROGRAM BRINGS PART OP A MACRO INTO THE INPUT AREA 
LINKAGE IS BTM MONI TR,NNNNO 

B FILE4 



TP 

TFM 

TFM 

TOM 
06M 

GET 

TOM 
AM 

B7 
DOW 



MINDSK, SAVEl, , 
MINCOR, INOATl-3,* 
MINSEC, 2, 9, 

IN0AT1»197 

MINDOM 



SET UP SECTOR AOORESS IN CCA 

OOOOO K6 00117 08011 
SET UP CORE ACORESS IN OOA 

00012 J6 00125 -7392 
SET UP SECTOR COUNT IN OOA 

00024 J6 00120 00-02 

SET GROUP MARK 

00036 15 07592 OOOOO 

00047 00001 

BRING MACRO STATEMENT INTO INPUT AREA 

00048 10 00565 -0071 
00060 4R 00566 -0103 



IN0AT1+197 
SAVEl, 2, 10 



6MAIN 

,MINDDA,,R,A 



CLEAR OUT GROUP MARK 
RETURN TO MAINLINE 



02020 MI NOD A OOA , ,WINDSK,MlNOSK, MINCOR 



02030 

02040 MINDSK 
02050 MINSEC 
02060 NINCOR 
02070* 
02080 SAVEl 
02090 INOATl 
02100 8MAIN 
02110 



OC 
OS 
OS 
OS 

OS 
OS 
OS 



,MIN00A+5 
•MIN00A*8 

•HINOOA*!) 

•06011 
•07395 
•10004 



OENO COOEMl 



00072 15 07592 OOOOO 
00084 11 08011 000-2 

00096 49 10004 OOOOO 
00103 00002 KO 
00105 00005 -0112 
00110 00001 • 
00112 00006 0-0117 
00118 00003 J17 
00121 00005 -0125 
00126 00001 
00117 OOOOO 
00120 OOOOO 
00 125 OOOOO 

080 11 OOOOO 
07395 OOOOO 
10004 OOOOO 
OOOOO 



5v 



SYMBOL TABLE 



PACE 1 



REST02 00092ft REST01 00068R OUTPUT 00376R I TOUNP OOOOOR ALFRN 0047311 
COUNT 001 16R MESS 00391R NMOO 00009R POSN 00248R TREC 00168R 



010 10* 




IBM 1620-1311 AO 


-APT SUBPROGRAM FOR INTRAN 






01020* 




EXECUTION- INTERRUPT MODE MEMORY TO FILE DUMP 






01030* 








RCS 


1040* 




LINKAGE IS B7 ITOUMPtt* 






01050* 












01060* 




SUBPROGRAM 


ENTRY 






01070 ITDUMP 


TFH 


NMOO* f 10* 


CLEAR MEMORY M00UL6 COUNT 












00000 J6 


00009 


000-0 


01080 


TFM 


OUTPUTS, 03400 


00012 J6 


00381 


-3400 


01090 


TFN 


0UTPUT*13,,, 


INITIALIZE MEMORY AOORESS 












00024 J6 


00389 


-0000 


01100 


TFM 


TREC*6,-1 


00036 J6 


00194 


-OOOJ 


Oil 10 


TOM 


0,0,, 


CLEAR POSITION 00000 00048 15 


00000 


00000 


01 1 20 


B7 


COUNT 


00060 M9 


00116 


00000 


01130 REST01 


TOM 


TREC*6,«6, 


RESTORE POSITION NMOO*20000~1 












00068 J5 


0019M 


00000 


01140 


SM 


TREC*6 f 19999 


00080 J2 


00194 


J9999 


01150 REST02 


TOM 


TREC*6,,6, 


RESTORE POSITION NNOO*20000-20000 










00092 J5 


0019M 


00000 


01160 


AM 


TREC*6» 19999 


00104 Jl 


00194 


J9999 


01170 COUNT 


AM 


NMOO, I ,10, 


NMOO - NMOO ♦ I 00116 Jl 


00009 


000-1 


01180 


AM 


TREO6,l,10 


00128 Jl 


00194 


000- 1 


01190 


CF 


TREC+6 


00140 L3 


00194 


00000 


01200 


TO 


ReST02*ll.TREC*6, 


11, SAVE POSITION NM00*20000-20000 












00152 KN 


00103 


0019* 


02010 


AM 


TRE06, 19999 


00164 Jl 


00194 


J9999 


02020 


TO 


REST01*ll#TREC*6, 


11, SAVE POSITION NN0O*20OOO-l 












00176 KN 


00079 


0019M 


02030 TREC 


TR 


•ALFRM-l 


00188 3J 


00000 


00472 


02040 


BNR 


REST01,,, 


BRANCH IF NO RM IN POSITION 00000 










00200 MS 


00068 


00000 


02050 


TO 


TREC*6tRESTDl«ll« 


6, RESTORE POSITION NMO0*2OO0O-l 












00212 KN 


0019M 


00079 


02060 


SM 


TREC*6» 19999 


00224 J2 


00194 


J9999 


02070 


TO 


TREC*6tREST02*ll» 


6* RESTORE POSITION NM00*20000-20000 










00236 KN 


0019M 


00103 


02080 POSN 


SK 


OUTPUT,,, 


POSITION ARM FOR CISK WRITE 












00248 L4 


00376 


00701 


02090 


WON 


OUTPUT,,, 


OUMP 20K TO OISK (200 SECTORS) 












00260 L8 


00376 


00702 


02100 


AM 


OUTPUT*3,2,10, 


MODIFY SECTOR ACORESS 00272 Jl 


00379 


000-2 


02110 


AM 


0UTPUTU0,20,10, 


MOOIFY MEMORY AOORESS 00284 J I 


00386 


OOOKO 


02120 


SM* 


NMOO* It 10 


00296 J2 


00009 


000-1 


02130 


BNZ 


POSN,,. 


BRANCH IF OUMP NOT COMPLETE 












00308 H7 


00248 


01200 


02140* 












02150 


RCTY 




00320 34 


00000 


C0102 


02160 


RCTY 




00332 34 


00000 


C0102 


02170 


WATY 


NESS 


00344 L9 


00391 


00100 


02160 


H 




00356 48 


00000 


00000 


02190 


CALL 


EXIT 


00368 49 


00796 


00000 


02200* 












03010 OUTPUT 


OOA 


,0,03400,200,0 


00376 00006 0-3400 



PACE 2 

00382 00003 KOO 
00385 00005 -0000 
42t** AD-APT INTRAN EXECUTION INTERRUPTED «•• 

00391 00084 

2»ITDUMP*9 00009 00002 

2,M£SS*41*2 00473 00002 

ITOUMP 00000 



03020 MESS OAC 
03030* 

03040 NMOO OS 

03050 ALFRM OS 

03060 OENO 



SYMBOL TABLE 



PAGE I 



9RCY13 00519 
9CCVL2 02US 
INPUTS 14292 
ClMAP 14032 
NMOD 13921 



9RCYL2 00517 
9CCYLI 02U3 
INPUT2 14278 
COUNT 13912 
POSNl 13940 



9RCYL1 00515 
9CCYL0 02111 
INPUTI 14264 
1NIT 07976 
P0SN2 14152 



9RCY10 00513 
MONITR 02406 
OElOIM 00000 
MESS 14307 
F0SN3 14164 



9CCY13 02117 
ITLOAO 13900 
ALFRM 14381 
MOO 14104 
TREC 13936 



01010* 




IBM 1620-1311 AO- 


APT PROGRAM FOR INTRAN 








01020» 




EXECUT ION-RE INSTATE MODE FILE TO MEMORY OUMP 








01030* 










RCS 


01040 


DOR 6 


13900 


13900 








01050 ITLOAO 


TDM 


0*0* ♦ 


CLEAR POSITION 00000 13900 


15 


00000 


00000 


01060 COUNT 


AM 


NHOO.WfilO, 


NMQ0*NM00*l 13912 


11 


13921 


0-0-1 


OlOTO 


AM 


YA«C***20000 


11924 


11 


13142 


KOOOO 


01080 TftfC 


TR 


-l.ALPRH-1,2 


13936 


31 


*Q00J 


14380 


01090 


BNR 


COUNT » 1 * 


BRANCH IF NO RM IN POSITION 


00000 










13948 


45 


13912 


00000 


01100* 














OHIO POSNl 


SK 


INPUTI. tt 


POSITION ARM TO CYLINDER 00 














13960 


34 


14264 


00701 


01120 


RON 


INPUTlttt 


LOAD CORE POSITIONS 00000 THRU 


13899 










13972 


36 


14264 


00702 


01130 


RON 


INPUT2, ,, 


LOAD CORE POSITIONS 14400 THRU 


19999 










13984, 


36 


14278 


00702 


01140 


TF 


CLMAP*6f MONITR 


13996 


26 


14038 


02406 


01150 


AM 


CLMAP-t-6* UtlO 


14008 


11 


14038 


00OJ1 


01160 


SF 


CLMAP+6 


14020 


32 


14038 


00000 


01170 CLMAP 


TFM 


9999 » #711 


14032 


16 


09999 


-000- 


01180 


TF 


•♦35»M0NI TR 


14044 


26 


14079 


02406 


01190 


AM 


•♦23*11*10 


14056 


11 


14079 


OOOJl 


01200 


TF 


•♦30*9999 


14068 


26 


14098 


09999 


02010 


AM 


•♦17*2* 10 


14080 


It 


14097 


000-2 


02020 


TFM 


9999* * 71 1 


14092 


16 


09999 


-ooo- 


020 30 MOO 


AM 


INPUT3+4»20» 10* 


MODIFY SECTOR ADDRESS 14104 


11 


14296 


OOOKO 


02040 


AM 


INPUT 3M0* 20 *10» 


MODIFY MEMORY ADDRESS 14116 


11 


14302 


OOOKO 


02050 


SM 


NMOOtltlO* 


NMOD+NMOD-l 14126 


12 


1392 1 


000-1 


02060 


ez 


P0SN3»»» 


BRANCH IF MEMORY FULLY REINSTATED 










14140 


46 


14184 


01200 


02070* 














02080 P0SN2 


SK 


JNPUT3M* 


POSITION ARM FOR DISK RE AO 














14152 


34 


14292 


00701 


02090 


RON 


INPUT3,,* 


LOAD 20K TO MEMORY (200 SECTORS) 










14164 


36 


14292 


00702 


02100 


8 


MOD 


14176 


49 


14104 


ooooo 


02110 


DORG 


•-3 . 


14184 








02120* 














02130 P0SN3 


MM 


9CCYLO*20,10 


14184 


13 


02111 


OOOKO 


02140 


TF 


INPUT3*4*99 


14196 


26 


14296 


00099 


02150 


SK 


INPUT3,,, 


REPOSITION ARM TO CYLINDER AT OUMP TIME 








14208 


34 


14292 


00701 


02160 


RCTY 




14220 


34 


00000 


00102 


02170 


RCTV 




14232 


34 


00000 


C0102 


02180 


WATY 


MESS 


14244 


39 


14307 


00100 


02190 


B 


INIT 


14256 


49 


07976 


OOOOO 


02200 


00R6 


•-3 


14264 








03010* 














03020 INPUT1 


OOA 


,0,3400,139,0 


14264 


00006 o-: 


J 400 



03030 INPUT2 OOA ,0,3544,56,14400 



03040 INPUTS OOA ,0,3400,200,0 



03050 MESS 
03060* 
03070 NMOO 
03060 ALFRM 
03090 INIT 



DAC 38, AO— APT INTRAN EXECUTION RESUMED ••• 



DS 
OS 
OS 



03100 MONITR OS 



2,C0UNT*9 
2,MESS*3?*2 
,07976 
,02406 



03110 



DEND ITLOAO 



14270 00003 J39 
14273 00005 -0000 
14278 00006 0-3544 
14284 00003 -56 
14287 00005 J4400 
14292 00006 0-3400 
14298 00003 KOO 
14301 00005 -0000 
14307 00076 

13921 00002 
14381 00002 
07976 OOOOO 
C2406 OOOOO 
13900 



52 



SYMBOL TABU 



TYPERR 02*16 
RTHETA 02416 
LINLlN 02416 
FLZERO 076S0 
CHKCIR 16872 
CCDSA 16507 
I INC 02416 
MAYZ 17244 
RTOSA 16949 
TDATA 033)1 



T0ATA6 03372 
RETURN 02411 
L 1 NC I R 02416 
ERR301 16780 
CENTC1 17088 
FINOZ 02416 
LINKD 16497 
ONCIR 16517 
SYMB1 04289 
XV 16748 



T0ATA5 03362 
NXTFOR 16676 
LEVEL1 16804 
0IM2O5 17028 
CATANG 17224 
FORM 07712 
L I TAB 17353 
POINT 16524 
SYMB5 04315 
XVZ 17144 



TDATA4 03152 
HCNITR 02406 
LCCNDS 16939 
CIRCON 02416 
CALCON 16916 
I ATI 07731 
LIOSA 16467 
POLAR 16956 
SVHB6 04325 



SIRS1R 16696 
LN/CON 02416 
INTLIN 16980 
CIRCIR 02416 
AFORM 16756 
INI T 07976 
L1CI 16852 
RING 02416 
SYMB7 04335 



01010* 


IBH 








01020* 










01030* 


INTRAN SUBPROGRAM POINT 






1040* 


LINKAGE IS AT MONI TR,0SALBL+5 






1050* 




8 POINT 






01060* 


THE 


I FOLLOWING POINT DEFINITIONS ARE ALLOWED 






01070* 










1080* 


PQINT/X i Y FORM-15 






01090* 


POtNT/XtY.Z FORM-63 






01100* 


POINT/INT0F,LltL2 






Oil 10* 


POINT/XLARGEiINTOF,LltCl FORM* 165 






01120* 


POINT/XLARGE, INT0F,Cl.C2 FORM-165 






01130* 


POINT /CI t ATANGLt A FORM«27 






01140* 


POINT/CENTER, CI F0RM-9 






01150* 


POINT/RTHETA, XYPLAN»R» A F0RMM75 






01160* 










01170 


OORG 


16462 


16462 




01180 


DC 


30,0 


16491 


00030 


01190 


OORG 


•-29*5*6-6 


16486 




01200 


NOP 


SYMB6.0 


16486 


41 04325 00000 


02010 


DORG 


•-21 


16476 




02020 


NOP 


TDAT A*80, SYMB5 


16476 


41 03413 04315 


02030 


DORG 


•-21 


16466 




02040 


NOP 


TDATA6 f T0ATA*T0 


16466 


41 03372 03403 


02050 


OORG 


•-14 


16463 




02060 LLOSA 


DSA 


TDATA5 


16467 


00005 -3362 


02070 


OORG 


•♦5«6-4 


16493 




02080* 










02090 LINKO 


DSA 


MAY* 


16497 


00005 J7244 


02100 


osc 


5,03291 


16498 


00005 


02110 CCOSA 


DSA 


MAYZ 


16507 


00005 J7244 


02120 


DSC 


5,03271 


16508 


00005 


02130 ONCIR 


OSA 


MAYZ 


16517 


00005 J7244 


02140 


DSC 


.5,03281 


16518 


00005 


02150 POINT 


TFM 


SYMBl.51,8, SET SYM81 TO 51 FOR POINT RECORO 








16524 


16 04289 0-051 


02160 


TFL 


SYMB7, FLZERO,, SET SVMB7 TO ZERO 


16536 


06 04335 07680 


02170 


TOM 


SYMB7*l 


16548 


15 04336 OCOOO 


02180 


DC 


1,S* 


16559 


00001 


02190 


AM 


IATI, 12,10, INCREMENT TO 1ST ELEMENT 










16560 


11 07731 O0OJ2 


02200 


CF 


XYZ 


16572 


33 17144 00000 


03010 


CM 


FORM, 175,8, CHECK FOR FORM 175 


16584 


14 07712 0-175 


03020 


BE 


POLAR 


16596 


46 16956 01200 


03030 


CM 


FORM, 165.8, CHECK FOR FORM 165 


16608 


14 07712 0-165 



03040 


BE 


LEVEL1 








16620 


46 


16804 


01200 


03050 


CM 


FORM, 63, 8. 


CHECK 


FOR 


FORM 63 


16632 


14 


07712 


0-063 


03060 


BNE 


NXTFOR 








16644 


47 


16676 


01200 


03070 


SF 


XYZ 








16656 


32 


17144 


CCOOO 


03080 


B7 


XYZ 








16668 


49 


17144 


00000 


03090 NXTFOR 


CM 


FORM, 37,8, 


CHECK 


FOR 


FORM 37 


16676 


14 


07712 


0-037 


03100 


BE 


INTLIN 








16688 


46 


16980 


01200 


03110 


CM 


FORM, 27, 8, 


CHECK 


FOR 


FORM 27 


16700 


14 


07712 


0-027 


03120 


BE 


CATANG 




i 




16712 


46 


17224 


01200 


03130 


CM 


FORM, 15,8, 


CHECK 


FOR 


FORM 15 


16724 


14 


07712 


0-015 


03140 


BNE 


AFORM 








16736 


47 


16756 


01200 


03150 XY 


B7 


XYZ 








16748 


49 


17144 


00000 


03160 AFORM 


CM 


FORM, 9, 8, 


CHECK 


FOR 


FORM 9 


16756 


14 


07712 


0-009 


03170 


BE 


CENTCl 








16768 


46 


17088 


01200 


03180* 






LOAO A NO 


CALL TYPERR 


SUBPROGRAM 








03190 ERR301 


BTM 


MONITR, 03090, 67 








16780 


17 


02400 


-3090 


03200 


BTM 


TYPERR,30l,67 








16792 


17 


02410 


-0301 


04010 LEVEL1 


CM 


T0ATA4.U10, 


CHECK 


1ST 


SURFACE 


FOR LINE 

16804 


14 


03352 


00 0-1 


04020 


BNE 


CHKCIR 








16816 


47 


16872 


01200 


04030 


CM 


TDATA4*4i,3,lO 








16828 


14 


03393 


000-3 


04040 


BE 


CALCON 








16840 


46 


16916 


01200 


04050* 






INTERSECTION 


OF LINE 


AND CIRCLE 








04060* 






LOAD AND 


CALL LINC SUBPROGRAM 








04070 L1CI 


BT 


M0NITR,LINKD*5, 


6 






16852 


27 


02400 


16502 


04080 


B7 


LINC,,6 








16864 


49 


02410 


00000 


04090 CHKCIR 


CM 


TDATA4*2,10t 


CHECK 


1ST 


SURFACE 


FOR CIRCLE 


















16872 


14 


03352 


C0O-2 


04100 


BNE 


ERR301 








16884 


47 


16780 


01200 



04110* 
04120* 

04130 SIRSIR BT 
04140 B7 
04150 CALCON BT 
04160 B7 
04170 LCONOS OSA 
04160 DSC 
04190 RTOSA DSA 
04200 OSC 
05010* 
05020* 

05030 POLAR BT 

05040 BTM 

05050* 

05060* 

05070* 

05080 INTLIN CM 
05090 BNE 
05100 CM 
05110 BNE 
05120 0IM205 BTM 
05130 BT 
05140 8NR 



INTERSECTION OF TWO CIRCLES 
LOAO AND CALL RING SUBPROGRAM 
M0NITR,CCDSA*5,6 16896 
RING,, 6 16908 
M0NITR,LC0NDS*S»6 16916 
LN/CON, t 6 16928 
MAYZ 16939 
5,03551 16940 
MAYZ 1***9 
5,03261 1*950 
POLAR COORDINATES 
LOAO AND CALL RTHETA SUBPROGRAM 
M0NITR,RTDSA*5,6 16956 



05150* 

05160 
05170 
051SQ* 

05190* 

05200 CENTCl CM 



BTM 
BTM 



RTHETA , , 610 



TDATA4,1 t 10 

ERR301 

T0ATA4*4ltl,10 

ERR301 

MONlTR»O20S0t67 
LlNLIN t LL0SA*2*»* 
MAYZ,SYMB5#, 



HON I TR, 03090, 47 
TYPERR, 306,67 



T0ATA4,2,10 



16968 

INTERSECTION OF TWO LINES 

LOAO AND CALL LINLIN SUBPROGRAM 

CHECK THAT BOTH ELEMENTS ARE LI 

16980 
16992 
17004 
17016 
17028 
17040 

RECORO MARK INOICATES LINES 
17052 

LOAO AND CALL TYPERR SUBPROGRAM 
17064 
17076 

POINT/CENTER, CIRCLE 
CHECK THAT ELEMENT IS A CIRCLE 
17088 



27 02400 16512 
49 02410 00000 
27 02400 16944 
49 02410 00000 
00005 J7244 
00005 

00005 J7244 
00005 



27 02400 16954 
17 02410 000-0 



NES 

14 03352 000-1 
47 16780 01200 
14 03393 000- I 
47 16780 01200 
17 02400 -2050 
27 02410 16492 
ARE PARALLEL 
45 17244 04315 

17 02400 -3090 
17 02410 -0306 



14 03352 000-2 



06010 




BNE 


ERR301 


17100 


47 16780 


01200 


06020 




TFL 


SYMB5 • TO ATA5 1 • 


STORE M OF CENTER IN SYMB5 

17112 


06 04315 


03362 


06010 




TFL 


»YHB6t f DAI A6t • 


STORE K OF CENTER IN SYM66 














27124 06 04325 


03372 


06060 




87 


MAYt t * t 


BRANCH TO CHECK FOR I COORDINATE 












17136 


49 17244 


ooooo 


06050 


XV* 


TFL 


57ffo?t IAT1 * lit 


STORE X IN SVMB5 17144 


06 04315 


0773J 


06060 




AM 




INCREMENT TO NEXT CLEMENT 

17156 


11 07731 


000 J4 


06070 




tfl 


SYM86«lATl»Ut 


STORE Y COOROINATE IN SYM86 
17168 


06 04325 


0773J 


060S0 




BNr 


MA Wl WW* 

MAY* »XT£ » « 


CHECK IF I COORDINATE WAS SPECIFIEO 












17180 


44 17244 


17144 


06090 




AM 


lATl»14flO» 


INCREMENT TO NEXT ELEMENT 

17192 


11 07731 


C00J4 


06100 




TFL 


SYMB7(IATitllt 


STORE I COOROINATE IN SYM87 
17204 


06 04335 


0773J 


06110* 






RETURN TO CALLING PROGRAM 






06120 




87 


ft C VI Ilk fcl £. 

RETURN* «o 


17216 


49 0241J 


ooooo 


06130* 






POINT/CIRCLE, ATANGL. ANGLE 






06140* 






LOAD AND CALL CIRCON SUBPROGRAM 






06150 


CATANG 




fVUrit I H t UnU 1 H*9t 


6 17224 


27 02400 


16522 


06160 




87 




17236 


49 02410 


OOOOO 


06170* 






LOAD AND CALL MAY2 SUBPROGRAM 






06180* 






TO CHECK FOR PREVIOUS ZSURF DEFINITION 




06190* 






ANO TO SUPPLY Z COORDINATE 






06200 


MAY! 


BTM 


M0NlTR#03140t67 


17244 


17 02400 


-3140 


07010 




8TM 


FINOZ* .610 


17256 


17 02410 


000*0 


07020 




DSC 


2,49 


17268 


00002 




07030 




OSA 


-RETURN 


17274 


00005 -24U 


07040* 






RETURN TO CALLING PROGRAM 






07050 




OS 


78 » , 


FILL LAST SECTOR 17352 


00078 




07060 


FLZERO 


OS 


,7680 


07680 


00000 




07070 


HONITR 


OS 


,02406 


02406 


00000 




07080 


RETURN 


OS 


•02411 


02411 


00000 




070*90 


RTHETA 


OS 


,02416 


02416 


00000 




07100 


LINC 


OS 


•02416 


02416 


00000 




07110 


LINCIR 


DS 


•02416 


02416 


00000 




07120 


CIRCON 


OS 


•02416 


02416 


00000 




07130 


TYP6RR 


OS 


•02416 


02416 


00000 




07140 


RING 


OS 


•02416 


02416 


00000 




07150 


C1RCIR 


OS 


•02416 


02416 


00000 




07160 


LlNLIN 


OS 


•02416 


02416 


OOOOQ 




07170 


LITAB 


00 


•02416 


17353 


00002 02 












17355 


00005 -2416 










17360 


00001 • 




07180 


FINOZ 


OS 


•02416 


02416 


00000 




07190 


SYMB1 


OS 


•04289 


04289 


ooooo 




07200 




oi 


•04315 


04315 


OOQOO 




08010 


SYM86 


OS 


•04325 


04125 


ooooo 




08020 


SYHB7 


OS 


•04335 


04335 


ooooo 




08030 


IAT1 


OS 


•07731 


07731 


ooooo 




08040 


TOATA 


OS 


•03333 


03333 


ooooo 




08050 


T0ATA4 


OS 


•03352 


03352 


ooooo 




08060 


TDATA5 


OS 


•03362 


03362 


ooooo 




080 70 


T0ATA6 


OS 


•03372 


03372 


ooooo 




08080 


FORM 


OS 


•07712 


07712 


ooooo 




080 «*0 


LN/CON 


OS 


• 2416 


02416 


ooooo . 




08100 


INIT 


OS 


•07976 


07976 


ooooo 





OENO POINT 



Symbol table 



PACE I 



RTHETA 17962 RETURN 02*11 PI/180 17498 MONITR 02406 COSF 02421 

1AT1 07731 SINF 02416 X 0431* V 04125 



01010* 




IBM 1620- 


1311 


AO- 


APT OEFPRE SUBPROGRAM 


FOR DETERMINING 




1020* 




A POINT 


OEF 


1NE0 


BY A STATEMENT OF THE 


FORM... 


> • 




10 30* 














PCS 


01040* 




PT 1»P0 1 NT/R THETA »XYPLAN|R» THETA 








01050* 


















01060* 




♦NAME RTHETA... NON-ERASABLE DEPPRE SUBPROGRAM 




1070* 




• 10 


NUMBER 


0326+OELOf* 








01080* 




•STORE l 


CORE 


IMAGE 








01090* 




LINKAGE 


- 8 


RTHETA, ,6 








01 I 00* 


















ft 1 i 1ft 


RPAQ 


imi 








17962 






L 1 20* 




SUBPROGRAM 


ENTRY 










AH 


IAT1, 28*14 


• 10 






17562 


11 07731 


000H2 


1 1 40 


TFL 


X, PI/180 








1 7374 


06 04315 


1 7*98 


01 1 50 


FHUL 


X, IAT1.U, 






THETA IN RADIANS 


1 7386 


03 04315 


0773 J 


01 1 60 


TFL 


Y,X,, 






THETA IN RAOIANS 


17398 


06 04325 


04 3 1 5 


01 1 70 


BTM 


MONITR, 02010.67, 


CALL SINF-COSF SUBROUTINE VIA MONITR 
















17*10 


17 02400 


-2010 


01 1 80 


BTM 


SINF, Y, 67, 






Y»SI NF ( THE TA ) 


17422 


17 02410 


-4325 


Oil 90 


BTM 


COSF, X, 67, 






X-COSF (THETA) 


174 34 


17 0242J 


-4315 


01200 


SM 


IAT1,14,10 








17446 


12 07731 


00OJ4 




FHUL 


X.lATl.ll, 






X»R*COSF|THETA) 


17458 


03 04315 


0773J 




FHUL 


Y, I AT 1 , 1 1 , 






Y«R*SINF( THETA) 


17*70 


03 04325 


077 3 J 






RETURN, ,6, 






RETURN TO MONITR 


17*82 


49 0241J 


OOOOO 


02040 


nnor 


•-4 








17489 






02050* 


















02060 


OC 


8,17453292 








I 7*96 


00008 




02070 PI/180 


OC 


2,-1 








17498 


00002 




02080* 


















02090 


OS 


62,, 






FILL LAST SECTOR 


17SA0 


00062 




02100 IAT1 


OS 


,7731 








7 7 3* 


00000 




02110 X 


OS 


,4315 










00000 




02120 Y 


DS 


,X*10 








04 3 25 


00000 




02130 MONITR 


DS 


• 2406 








02*06 


00000 




02140 SINF 


OS 


• 2416 








02*16 


00000 




02150 COSF 


DS 


• 2421 








02*21 


ooooo 




02160 RETURN 


OS 


,2411 








02* i 1 


00000 




02170 


OENO 


RTHETA 








1 H62 







TYPERR 02416 
RETURN 024U 
DIM207 17504 
IAT1 07731 
RING 17456 
XBOSA 17427 
YBOSA 17443 
I INT 18056 



T0ATA7 03382 
MONITR 02*06 
CIROSA 17367 
INIT 07976 
SYMB5 04315 
XBIG 17660 
YBIG 17840 
2INT 17540 



SYMBOL TABLE 

TDATA6 03372 
ERR307 18088 
CIRCIR 02416 
ITSX1 17980 
SYM86 04325 
XLIT 17620 
YLIT 18000 



TDATA5 03362 
ERR301 17636 
0IG2 18020 
ITSY1 17800 
TOATA 03333 
XI 16131 
Yl 18141 



T0ATA4 03352 
0SA207 17417 
FLAG 00079 
MAX IF 02416 
TEMP 18121 
X2 18151 
Y2 18161 



01010* 


IBM 1620-1311 AO-APT.. 










01020* 














01030* 


INTRAN SUBPROGRAM RING 








01040* 


LINKAGE IS BT 


MONITR, 0SALBL*5 








01050* 




B 


RING 








01060* 


THIS SUBPROGRAM CONTROLS FINDING 








01070* 


THE INTERSECTION OF TWO CIRCLES 








01080* 














01090 


DORG 


17362 






17362 




01100 


DC 


50.0 






17411 


00050 


Oil 10 


DORG 


•-49*5*10-6 






17406 




01120 


NOP 


Y2.0 






17406 


41 18161 OOOOO 


01130 


DORG 


*-2l 






17396 




01140 


NOP 


YI.X2 






17396 


41 18141 18151 


01150 


OORG 


•-21 






17386 




01160 


NOP 


T0ATA*lO0.Xl 






17386 


41 03433 18131 


01170 


DORG 


•-21 






17376 




01180 


NOP 


T0ATA+8O.T0ATA+90 






17376 


41 03413 03423 


01190 


OORG 


•-21 






17366 




01200 


NOP 


T0ATA6.TDATA7 






17366 


41 03372 03382 


02010 


DORG 


•-14 






17363 




02020 CIRDSA 


DSA 


T0ATA5 • 






17367 


00005 -3362 


02030 


DORG 


•♦5«10-4 






17413 




020*0 0SA207 


OSA 


0IM207*2* 






17417 


0Q005 J7528 


02050 


DSC 


5,02071 






17418 


00005 


02060 


DORG 


DSA207*5*5*3-li 






17426 




02070 


NOP 


XI.SYHB5 






17426 


41 18131 04315 


020B0 


OORG 


*~14 






17423 


00005 J8151 


02090 XBOSA 


OSA 


XZ 






17427 


02100 


DORG 


•♦5»3-4 






17438 




02110 


OSC 


1.7 






17438 


00001 


02120 


OORG 


•♦5*3-11 






17442 




02130 


NOP 


Y1.SYM86 






17442 


41 18141 04325 


02140 


00*6 


•-14 






17439 




02150 YBOSA 


OSA 


Y2 






17443 


00005 J8161 


02160 


OORG 


•♦5*3-4 






17454 




02170 


DSC 


1.7 






17454 


00001 


02180* 


CHECK THAT ELEMENTS 


ARE 2 


CIRCLES 


02190 RING 


CM 


TDATA4.2.I0 






17456 


14 03352 000-2 


02200 


8N£ 


EAR301 






17468 


47 17636 01200 


03010 


CM 


TOATA4*51»2tl0 






17480 


14 03403 000-2 


03020 


BNE 


£1111301 






17492 


47 17636 01200 


03030* 


LOAD AND CALL CIRCIR 


SUBPROGRAM 




03040* 




TC 


PINO THE INTERSECTION OF 2 CIRCLES 


01050 0IM207 


BT 


MON!T»*0SA2O7*S«6 






17504 


27 02400 17422 


03060 


»T 


CIRCIR tC I «0SA^45,6 






17516 


27 02410 17412 


03070 




Qf£2,*LA&,« 


memo MARK INOICTES 2 


INTERSECTIONS 



03080 2INT 






17528 


45 


18070 


00079 


CM 


IATl.31.610. 


CHECK FOR XLARCE 17540 


14 


0773J 


OOOLt 


0)090 


BE 


XBfG 


17552 


46 


17660 


01200 


03100 


CN 


IATlt32t610, 


CHECK FOR X SMALL 17564 


14 


0773J 


000L2 


031 10 


BE 


XLIT 


17576 


46 


17820 


01200 


03120 


CM 


IATl«3$t*l0 9 


CHECK FOR YLARCE 17588 


14 


0773J 


000L5 


031 30 


BE 


YBIG 


17600 


46 


17840 


01200 


03140 


CM 


IATl.34,610. 


CHECK FOR YSMALL 17612 


14 


0773J 


000L6 


03150 


BE 


VL1T 


17624 


46 


18000 


01200 


03160* 






LOAO AND CALL TYPERR SUBPROGRAM 








03170 ERR301 


BTM 


MONITR, 03090, 67 


17636 


17 


02400 


-3090 


03160 


8TM 


TYPERR, 301, 67 


17648 


17 


02410 


-0301 


03190* 






MODIFIER X LARGE. ..CHOOSE POINT 








03200 X8IG 


TOM 


XB0SA*U»7 


17660 


15 


174 38 


C0007 


04010* 






CHECK THAT X100ES NOT EQUAL X2 








04020 


TFL 


TEMP, XI 


17672 


06 


18121 


18131 


04030 


FSUB 


TEMP.X2 


17684 


02 


18121 


16151 


04040 


BZ 


ERR30T 


17696 


46 


18088 


01200 


04050* 






LOAO AND CALL MAX1P SUBPROGRAM 








04060* 






TO CHOOSE THE LARGER OR SMALLER 








04070* 






OF 2 SCALARS 








04080 


BTM 


MONITR, 02130.67 


17708 


17 


02400 


-2130 


04090 


BT 


MAX1F,X&0SA*11,6 17720 


27 


02410 


17438 


04100* 






SYMB5 CONTAINS ANSWER 








04110 


TFL 


TEHP.SYMBS 


17732 


06 


18121 

\ 


04315 


04120 


FSUB 


TEMP, XI, , 


CHECK TO SEE IF XI IS THE ANSWE* 










17744 


02 


16121 


18131 


04130 


BZ 


ITSYl 


17756 


46 


17800 


01200 


04140* 






X2 IS THE PROPER VALUE 








04150 


TFL 


SYM85,X2,t 


SYMB5 • X2 17768 


06 


04315 


18151 


04160 


TFL 


SYM86,Y2,» 


SYMB6 • Y2 17780 


06 


04325 


18161 


04170* 






RETURN TO CALLING PROGRAM 








04160 


B7 


RETURN, ,6 


17792 


49 


0241J 


00000 


04190 ITSYl 


TFL 


SYMB6,Yl, t 


SYM86 • VI 17800 


06 


04325 


18141 


04200* 






RETURN TO CALLING PROGRAM 








05010 


B7 


RETURN, ,6 


17812 


49 


0241J 


OCOOO 


05020* 






XSMALL MODIFIER... SET DIGIT TO 


PICK 




05030* 






SMALL X 








05040 XL IT 


TOM 


XB0SA*ll»6 


17820 


15 


17438 


00O06 


05050 - 


87 


XBIG+12 


17832 


49 


17672 


CCOOO 


05060* 






YLARGE MODIFIER.. SET DIGIT TO 


PICK 




05070* 






LARGE Y 








05080 VBI6 


TOM 


YBDSA*U,7 


17840 


15 


17454 


00007 


05090* 






CHECK IF YI-Y2. ..ERROR 








05100 


TFL 


TEMP,Yl 


17852 


06 


16121 


18141 


05110 


FSUB 


TEMP, Y2 


17864 


02 


18121 


18161 


05120 


BZ 


ERR307 


17876 


46 


18088 


01200 


05130* 






LOAO AND CALL MAX IF SUBPROGRAM 








05140* 






TO PICK THE LARGER OR SMALLER OF 2 


SCALAR 


05150 


BTM 


MONITR, 02130,67 


17888 


17 


02400 


-2130 


05160 


BT 


MAXlF,YB0$Am,6 17900 


27 


02410 


17454 


05170* 






ANSWER IS IN SYM86 








05160* 






CHECK TO SEE IF Yl IS THE ANSWER 






05190 


TFL 


TEMP, SYMB6 


17912 


06 


18121 


04 325 


05200 


FSUB 


TEMP, Yl 


17924 


02 


18121 


18141 


06010 


BZ 


ITSXl 


17936 


46 


1798C 


01200 


06020 


TFL 


SYMB5,X2,, 


Y2... SET SYMB6«X2 17948 


06 


04315 


18151 


06030 


TFL 


SYMB6,Y2,, 


SYM86*Y2 17960 


06 


04325 


18161 


06040* 






RETURN TO CALLING PROGRAM 








06050 


B7 


RETURN, ,6 


17972 


49 


0241J 


OCOOO 



06060 


ITSXl 


TFL 


SYMB5.XI,, 


VI. 




SYM85-X1 






17980 


06 04315 


18131 


06070* 






RETURN 


TO CALLING 


PROGRAM 








06080 




87 


RETURN,, 6 












17992 


49 0241J 


00000 


06090* 






YSMALL 




SET DIGIT 


TO 


PICK 


SMALL 


Y 




06100 


YLIT 


TOM 


YBDSA*ll,6 












18000 


15 17454 


00006 


06110 




B7 


YBIG+12 












18012 


49 17852 


00000 


06120 


0IG2 


BO 


IINT,FLAG,« 


DIGIT 


INDICATES 


1 


INTERSECTION 






















18020 


43 18056 


00079 


06130* 






NO INTERSECTION 












06140* 






LOAD A NO 


CALL TYPERR 


SUBPROGRAM 






06150 




BTM 


MONITR, 0309Q, 67 












16032 


17 02400 


-3090 


06160 




BTM 


TYPERR, 319, 67 












18044 


17 02410 


-0319 


06170* 






... 1 


INTERSECT ICN 












06180 


UNT 


TFL 


SYMB5,Xl , , 


SVMB5 


•XI 






18056 


06 04315 


18131 


06190 




TFL 


SYMB6.VI,, 


SYMB6 


-VI 






18068 


06 04325 


18141 


06200* 






RETURN 


TO CALLING 


PROGRAM 








07010 




B7 


RETURN, ,6 












18080 


49 024 U 


00000 


07020 


ERR307 


BTM 


MONITR. 03090,67 












18088 


17 02400 


-3090 


07030 




BTM 


TYPERR, 307, 67 












18100 


17 02410 


-0307 


07040 


TEMP 


OS 


10 












18121 


00010 




07050 




DC 


8,0 












18129 


00006 




07060 


XI 


DC 


2,0 












18131 


00002 




07070 




OC 


8,0 












18139 


00008 




07080 


Yl 


OC 


2.0 












18141 


00002 




07090 




OC 


8,0 












18149 


00008 




07100 


X2 


OC 


2.0 












18151 


00002 




07110 




OC 


8.0 












18159 


00008 




07120 


Y2 


OC 


2.0 












18161 


00002 




07130* 






COMMON 


AREA WITH MAINLINE 








07140 


TOATA 


OS 


,03333 












03333 


00000 




07150 


T0ATA4 


OS 


.03352 












03352 


00000 




07160 


TOATAS 


OS 


,03362 












03362 


00000 




07170 


T0ATA6 


OS 


.03372 












03372 


00000 




07180 


T0ATA7 


OS 


.03382 












03362 


00000 




07190 


IAT1 


OS 


,07731 












07731 


00000 




07200 


SYMB5 


OS 


.04315 












04315 


00000 




08010 


SYMB6 


OS 


•04325 












04325 


00000 




08020 


INIT 


OS 


,07976 












07976 


00000 




08030 


FLAG 


OS 


.79 












00079 


00000 




08040 


RETURN 


OS 


.02411 












02411 


00000 




06050 


MONITR 


OS 


•02406 












02406 


00000 




08060 


TYPERR 


OS 


,2*16 












02416 


00000 




08070 


MAX1F 


OS 


.02416 












02416 


00000 




08080 


C1RCIR 


OS 


.2416 












02416 


00000 




08090 




OENO 


RING 












17456 







sc 



PACE 1 

SYMBOL TABLE 

TYPERR 02*16 T0ATA4 03352 RETURN 02411 PI/180 17999 MONITR 02406 
CIRCON 17362 C05F 02421 ER301 17926 H 03362 I AT 1 07731 

K 03372 R 03382 S INF 02416 X 04319 V 04325 



01010* 




IBM 1620-1311 AD- 


APT OEFPRE SUBPROGRAM 


FOR DETERMINING 




01020» 




A POINT DEFINED 


BY A STATEMENT OF THE 


FORM.. 






01030* 










RCS 


01040* 




PT1*P0INT/C1»ATANGL »THETA 








01050* 














01060* 




•NAME CIRCON... NON-ERASABLE OEFPRE SUBPROGRAM 




01070* 




•10 NUMBER 


0328+OELDIM 








01080* 




•STORE CORE 


IMAGE 








01090* 




LINKAGE - B C 


IRC0N t #6 








01100* 














OHIO 


OORG 


17362 




17362 






01120* 




SUBPROGRAM 


ENTRY 








01130 CIRCON 


CM 


TDATA4#2» 10 




17362 


14 03392 


C0O-2 


01140 


BN6 


ER301, ,, 


BRANCH IF ELEMENT IS 


NOT A CIRCLE 












17374 


47 17926 


01200 


01190* 














01160 


AM 


IATl , 28, 10 




17386 


11 07731 


0C0K8 


01170 


TFL 


X#PI /I 80 




17398 


06 04315 


17999 


01180 


FMUL 


X# I ATI # 1 1 # 


THETA IN RADIANS 


17410 


03 04315 


0773J 


01190 


TFL 


Yt X 1 1 


THETA IN RADIANS 


17422 


06 04329 


04315 


01200 


BTM 


MDNI TB« 09010. AT* 


CALL SINF-COSF SUBROUTINE VIA MONITR 












17434 


17 02400 


—2010 


02010 


BTM 


SINF Y 67 


Y- SINF < THETA) 


17446 


17 02410 


—4 325 


02020 


BTM 


COSF # X #67* 


X"COSF(THETA) 


17498 


17 0242J 


—4315 


02030 


FMUL 


X»R 1 1 


X»R*COSF(THETA) 


17470 


03 04315 


03382 


02040 


FADO 


X»H# • 


X-H+R.COSFI THETA) 


17482 


01 04315 


03362 


02090 


FMUL 


YfRu 


Y*R*SINF ( THETA ) 


17494 


03 04325 


03382 


02060 


FAOO 


Y,K,# 


Y»K*R*SI NF ( THETA 1 


17906 


01 04325 


03372 


02070 


B 


RE TURNt »6 » 


RETURN TO MCNITR 


17918 


49 0241J 


00000 


02080 


OORG 


•-3 




17926 






02090* 














02100 ER301 


BTM 


MONITR, 03090.67# 


CALL TYPERR SUBPROGRAM VIA MONITR 












17926 


17 02400 


-3090 


021 10 


BTM 


TYPERR, 301, 69, 


WRITE ERROR MESSAGE* 


EXIT 














17938 


17 02410 


00L01 


021 20* 














021 30 


DC 


6,17493292 




17997 


00008 




02140 PI/180 


OC 


2t-l 




17999 


00002 




02190* 














02160 


OS 


2tt 


FILL LAST SECTOR 


17961 


00002 




Uti (U 1 UA 1 




,3352 




03392 


00000 




02180 IAT1 


OS 


t773l 




07731 


00000 




02190 X 


OS 


t43!5 




04319 


00000 




02200 Y 


OS 


t X*10 




04329 


00000 




03010 H 


OS 


#3362 




03362 


00000 




03020 K 


OS 


t3372 




03372 


00000 




03030 R 


OS 


,3382 ' 




03382 


00000 




03040 HON I TR 


OS 


,2406 




02406 


00000 




03090 RETURN 


OS 


#2411 




02411 


00000 




03060 SINF 


OS 


#2416 




02416 


00000 




03070 COSF 


OS 


• 2421 




02421 


00000 




03080 TYPFRR 


OS 


• 2416 




02416 


00000 




03090 


OENO 


CIRCON 




17362 







57 



SYMBOL TABIC 



TYPERR 


02416 


TDATA6 


03372 


TDATA5 


03362 


T0ATA4 


03392 


RETURN 


02411 


HON I TR 


02*06 


HI NOR 


02416 


ERR307 


18082 


ERR301 


17630 


0SA206 


17366 


DIM206 


17498 


0IC2 


18014 


FLAG 


00079 


t AT I 


07731 


IN I T 


07976 


ITSX1 


17974 


ITSYi 


17794 


LCOSA 


17409 


L INC 


17490 


MAX IF 


02416 


SYMB9 


04315 


SYMB6 


04329 


TOATA 


03333 


TEMP 


18199 


XBOSA 


17377 


XBIG 


17694 


XLIT 


17814 


XI 


18119 


X2 


18129 


YBOSA 


17393 


YBIG 


17834 


YLIT 


17994 


Yl 


18139 


Y2 


18149 


1 INT 


18090 


2INT 


17534 



















01010* IBM 1620-1311 AO-APT •••«••• 

01020* •••• «••• 

01030* ( NTRAN SUBPROGRAM I INC 

01040* THIS ROUTINE CONTROLS FINDING THE INTERSECTION 

01090* OF A LINE ANO CIRCLE OEFiNEO BY 

01060* POINT/XL ARGE t INTOFt LI »C1 

01070* LINKAGE IS 8T HON I TRiOSALBL+9 

01080* B L1NC 

01090* 



01100 


OORG 


17362 






17362 










OSA 


0IM206+24 






17366 


00005 J7522 


1 120 


OSC 


5,02061 






17367 


00005 . 








0SA2O6*5*5*3- 


11 




17379 








« » Art 
01140 


NOP 


Xl.SYMBS 






17376 


41 


18115 


04319 


1 150 


DQRG 


•-14 






17373 








01160 XBOSA 


OSA 


X2 






17377 


00005 J8125 


01170 


OORG 


•♦5*3-4 






17388 








01180 


DSC 


N7 






17388 


00001 




01190 


OORG 


•♦5*3-11 






17392 








01200 


NOP 


VI, SYMB6 






17392 


41 


18135 


04329 


02010 


OORG 


•-14 






17389 








02020 YBOSA 


OSA 


Y2 






17393 


00005 J8145 


02030 


OORG 


•♦5*3-4 






17404 








02040 


OSC 


lf7 






17404 


0000 1 




02050 


OORG 


• ♦9*9-11 






17438 








02060 


NOP 


X2,Y2 






17438 


41 


18125 


18145 


02070 


OORG 


*-21 






17428 








02080 


NOP ' 


XI, Yi 






17428 


41 


18115 


18139 


02090 


OORG 


•-21 






17418 








02100 


NOP 


T0ATA+80, TDATA*90 


17418 


41 


03413 


03423 


02110 


OORG 


♦-21 






17408 








02120 


NOP 


TDATA6,T0ATA*T0 




17408 


41 


03372 


03403 


02130 


OORG 


•-14 






17409 








02140 LCOSA 


OSA 


T0ATA9 






17409 


00005 -3362 


02150 


OORG 


• ♦9*9-4* 






17450 








02160* 








CHECK THAT ELEMENTS ARE LINE ANO CIRCLE 




02170 LINC 


CM 


TDATA4t 1 • 10 






17450 


14 


03352 


000-1 


02180 


BNE 


ERR301 






17462 


47 


17630 


01200 


02190 


CM 


TDATA4>4l t 2,l0 




17474 


1* 


03393 


000-2 


02200 


BNE 


ERR301 






17486 


47 


17630 


01200 


030 10* 








DETERMINE INTERSECTION OF 


LINE ANO 


CIRCLE 


03020 0IM206 


BT 


MONITR t 0SA204*9< 


>6 


17498 


27 


02400 


17371 


03030 


BT 


LINCIR,LCDSAM0|6 


17510 


27 


02410 


17449 


03040 


BNR 


0IG2«FLAGt * 




RECORO MARK INDICATES 2 


! INTERSECTIONS 














17522 


45 


18014 


00079 


03050 2INT 


CM 


IATl.31,610, 




CHECK FOR XLARGE 


17934 


14 


0773J 


C00L1 


03060 


BE 


XBIG 






17946 


46 


17654 


01200 


030 70 


CM 


IAU, 32,610, 




CHECK FOR XSMALL 


17558 


14 


0773J 


0OOL2 






XLIT 






17570 


46 


17814 


01200 


03090 


CM 


IAT1, 35,610, 




CHECK FOR YLARGE 


17582 


14 


0773J 


C00L5 






YBIG 






17594 


46 


17834 


01200 


031 10 


CM 


IATl, 36,610, 




CHECK FOR VSMALL 


17606 


14 


0773J 


00016 




BE 


YLIT 






17618 


46 


17994 


01200 


031 30* 








LOAD ANO CALL TYPERR SUBPROGRAM 








03140 ERR301 


BTM 


NONITR, 03090, 


67 




17630 


17 


02400 


-3090 


03150 


BTM 


TYPERR.30l.67 






17642 


17 


02410 


-0301 


03160* 








XLARGE. .SET DIGIT TO PICK 


LARGE 


X 






03170 XBIG 


TOM 


XBOSA* il. 7 






17654 


15 


17388 


0C007 


03180* 








DETERMINE IF XI-X2. . .ERROR 








03190 


TFL 


TEMP, XI 






17666 


06 


18195 


18115 


03200 


FSUB 


TEMPt X2 






17678 


02 


18155 


18125 


04010 


BZ 


ERR307 






17690 


46 


18082 


01200 


04020* 








LOAD ANO CALL MAXIF TO DETERMINE 






04030* 








LARGER OR SMALLER OF 2 SCALAR S 








04040 


BTM 


MONITR, 02130, 


67 




17702 


17 


02400 


-2130 


04050 


BT 


MAXIF. XB0SA»ll,6 


17714 


27 


02410 


17388 


04060* 








ANSWER IS IN SYMB9 










04070 


TFL 


TEMPf SYMB9 






17726 


06 


16155 


04315 


04080* 








DETERMINE IF XI IS ANSWER 










04090 


FSUB 


TEMP.Xi 






17738 


02 


18155 


18115 


04100 


BZ 


ITSYI 






17750 


46 


17794 


01200 


04110 


TFL 


SYMB5tX2t . 




X2....SYM8S-X2 


17762 


06 


04315 


18125 


04120 


TFL 


SYM86.Y2.. 




X2....SYMB6"V2 


17774 


06 


04325 


18145 


04130* 








RETURN TO CALLING PROGRAM 










04140 


B7 


RETURN, .6 






17786 


49 


0241 J 


00000 


04190 ITSYI 


TFL 


SYMB6,Y1,» 




X1....SYMB6«Y1 


17794 


06 


04325 


18135 


04160* 








RETURN TO CALLING PROGRAM 










04170 


B7 


RE TURN., 6 






17806 


49 


0241J 


00000 


04180* 








XSMALL .. SET DIGIT TO PICK SMALL ) 


( 






TOM 


XBOSA* I 1,6 






17814 


15 


17388 


00006 


04200 


BT 


XBIGM2 






17826 


49 


17666 


ocooo 


05010* 








YLARGE SET OIGIT TO PICK LARGE Y 




05020 YBIG 


TOM 


YB0SA+ 11 »7 






17834 


15 


17404 


00007 


05030* 








CHECK TO SEE IF Y1-V2.. ERROR 








05040 


TFL 


TEMP»Yi 






17846 


06 


18155 


18135 


05050 


FSUB 


T€MP,Y2 






17858 


02 


18155 


18145 


05060 


BZ 


ERR307 






17870 


46 


18082 


01200 


05070* 








LOAD AND CALL MAXIF SUBPROGRAM 








05080* 








TO DETERMINE LARGER OR SMALLER OF 2 




05090* 








SCALARS 










05100 


BTM 


MONITR, 02130, 


67 




17882 


17 


02400 


-2130 


05110 


BT 


MAXIF, YBDSA*llt6 


17894 


27 


02410 


17404 


05120* 








ANSWER IS IN SYMB6 










05130 


TFL 


TEMPtSVMB* 






17906 


06 


18155 


04325 


09140* 






DETERMINE IF Yl IS ANSWER 










05150 


FSUB 


TEMP»Y1 






17918 


02 


18155 


18135 


05160 


BZ 


ITSXl 






17930 


46 


17974 


01200 


05170 


TFL 


SYMB5,X2,t 






17942 


06 


04315 


18125 


05180 


TFL 


SYMB6,Y2»t 




SYMB6-Y2 


17954 


06 


04325 


18145 


05190* 








RETURN TO CALLING PROGRAM 










09200 


B7 


RETURN, t 6 






17966 


49 


0241 J 


00000 


06010 ITSX1 


TFL 


SYM85,X1«, 




Y1....SYMBS»X1 


17974 


06 


04315 


18115 


06020* 








RETURN TO CALLING PROGRAM 










06030 


87 


RETURN, #4 






17986 


49 


0241J 


00000 


06040* 






VSMALL.. SET OIGIT TO PICK SMALL V 




060*0 YLIf 


TOM 


YB0SA*iif* 






17994 


15 


17404 


00006 


06060 


87 


YiSG*i2 






18006 


49 


17844 


00000 



PAGf 2 



58 



PAGE 3 



06070 


D1G2 


60 


IINT*FLAG* • 


DIGIT 


INDICATES I 


INTERSECTION 


















16014 


43 18050 


_____ 
00079 


06080* 








NO INTERSECTION 










06090* 








LOAD AND 


CALL TYPERR 


SUBPROGRAM 






06100 




8TM 


nUN I in |U jUtO fOf 








18026 


17 02400 




06110 




B TM 










18036 


17 02410 


•0319 


06120* 








NTERSECTION 










06130 


i INT 


TFL 


5THB5, XI * * 


SYMB5*X1 




18050 


06 04315 


18115 


06140 




TFL 


SYMB6*Yl»* 


SYMB6- 


Yl 




18062 


06 04325 


18 1 35 


06150* 






RETURN TO CALLING PROGRAM 








06160 




B7 


RETURN* to 








16074 


49 0241J 


UUOUQ 


06170* 






LCAO AND 


CALL TYPERR 


SUBPROGRAM 






06160 


ERR307 


BTM 


MONI TR, 03090, 67 








18082 


17 02400 


-3090 


06190 




BTM 


TYPERR. 307*67 








18094 


17 02410 


-0307 


06200 




DC 


8*0 








18113 


00008 




07010 


XI 


OC 


2*0 








18115 


00002 




07020 




DC 


8*0 








18123 


60008 




a to so 


tffc 


DC 


ltd 








i«ia« 


eeooi 




07040 




DC 


8,0 








18133 


00008 




07050 


VI 


DC 


2,0 








18135 


00002 




07060 




DC 


8,0 








18143 


00008 




07070 


V2 


DC 


2*0 








18145 


00002 




07080 


TEMP 


OS 


10 








18155 


00010 




07090 




OS 


6, , 


FILL 


LAST SECTOR 




18161 


00006 




07100* 






COMMON AREA WITH MAINLINE 








07110 


MONITR 


OS 


,02406 








02406 


00000 




07120 


RETURN 


DS 


,0241 1 








024L1 


00000 




07130 


LINCIR 


DS 


,02416 








02416 


00000 




07140 


MAX I F 


DS 


,02416 








02416 


00000 




07150 


TYPERR 


DS 


,02416 








02416 


00000 




07160 


TOATA 


OS 


(03333 








03333 


00000 




07170 


TDATA4 


OS 


,03352 








03352 


00000 




07180 


T0ATA5 


OS 


•03362 








03362 


00000 




07190 


T0ATA6 


DS 


,03372 








03372 


00000 




07200 


FLAG 












00079 


00000 




OrtOlO 


INIT 


OS 


,07976 








07976 


00000 




08020 


SVMB5 


OS 


,04315 








04315 


00000 




08030 


SYMB6 


OS 


,04325 








04325 


00000 




08040 


IAT1 


OS 


•07731 








07731 


00000 




08050 




OENO 


LINC 








17450 















SYMBOL 


TABLE 










XYZXYZ 


16846 


TYPERR 


02416 


TDATA6 


03372 


TCATA5 


03362 


TDATA4 


03352 


TA8PEP 


16958 


RETURN 


02411 


PITCON 


17086 


P6RPAR 


17218 


MONI TR 


02406 


LTPTAB 


02416 


LTNPRC 


02416 


LPTCON 


02416 


LMOOSA 


16665 


LCN0N1 


02416 


CYLOSA 


17263 


ATANF 


02416 


CIRK 


17198 


CCNK 


17178 


COSF 


02421 


C30N 


17273 


ER301 


16822 


FM105 


02416 


FCRM 


07712 


GCONO 


17283 


GOCAN 


16786 


H10SA 


17333 


1AT1 


07731 


LINE 


16462 


LM002 


02416 


LM0D3 


02416 


MOD 3D 


17253 


OKPT 


17130 


PTROK 


16982 


P1PT1 


17054 


PIP2 


16902 


PITCl 


17106 


P1TT1 


17054 


RETRN 


16810 


SETX2 


16750 


SYMBl 


04289 


SYMB5 


04315 


SYMB6 


04325 


TANF 


02416 


TOATA 


03333 


XYDSA 


16675 


XYXY 


16702 


XI 


17298 


X2 


17318 


VI 


17308 


Y2 


17328 



















01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01150* 
01160* 
01170* 
01180* 
01190* 
01200* 
02010* 
02020 

02030 LINE 

02040 
02050 
02060 

02070 

02060 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190* 

02200* 

03010* 

03020 



IBM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM LINE 

LINKAGE IS BT MONITR, DSALBL*5 

6 LINE 

THE FOLLOWING LINE DEFINITIONS ARE ALLOWEO 

LINE/X,Y,Z,X,Y V Z FORM-4095 
LINE/X,Y,X,Y FORM-255 
LINE/PTl,PT2 FORM-5 
LINE/PT1,RIGHT,TANT0,C1 F0RM-105 
LINE/RIGHT* T ANTO»Cl » RIGHT »TANT0»C2 FORI 



L INE/PT 1 , ATANGL,A 
L INE/PT I » PARLE L» LI 
LINE/PTl,PERPTO,Ll 
LINE/PARLEL,L1,XLARGE«0 
L INEZ SLOPE »M» INTERC8 
LINE/PTI»ATANGL»A»LI 
L INE/PT 1 • TANTO, TABl 
LINE/PT1*PERPT0*TAB1 



FORM-27 
FORH-25 
FORM-25 
FORM* 155 
FORM* 187 
F0RM«175 
FORM-25 

FORH-25 



OORG 16462 

AM IAT1*12»10* 



16462 

INCREMENT TO FIRST ELEMENT 



TOM 

DC 

TFM 

CM 
BE 
CM 
BE 
CM 
BE 
CM 
BE 
CM 
BE 
CM 
BE 



SYMB6*l 
I.'.* 

SYMBl«41,8t 

FORM, 4095,8, 
XYZXYZ 
FORM, 255, 8, 

XYXY 

FORM, 155*8* 
PERPAR*12 
FORM, 105,8. 
PITCl 

FORM, 25, 8, 
TA6PEP 
FORM, 5,8, 
PIP2 









16462 


11 


07731 


000J2 








16474 


15 


04326 


OCOOO 








16485 


0000 1 




SET SYMBl 


TO LENGTH OF 


LINE RECORD 










16486 


16 


04289 


0-041 


CHECK 


FOR 


FORM 4095 


16498 


14 


07712 


0M095 








16510 


46 


16846 


01200 


CHECK 


FOR 


FORM 255 


16522 


14 


07712 


0-255 








16534 


46 


16702 


01200 


CHECK 


FOR 


FORM 155 


16546 


14 


07712 


0-155 






16558 


46 


17230 


01200 


CHECK 


FOR 


FORM 105 


16570 


14 


07712 


0-105 








16582 


46 


17106 


01200 


CHECK 


FOR 


FORM 25 


16594 


14 


07712 


0-025 






16606 


46 


16958 


01200 


CHECK 


FOR 


FORM 5 


16618 


14 


07712 


0-005 






16630 


46 


16402 


01200 


NOT ONE OF THE FORMS HANDLED IN 


THIS 





SUBPROGRAM 

LOAD AND CALL LM002 SUBPROGRAM 
»T MONITR*LM0DSA*5,6 16642 27 02400 16670 



59 



030 30 




B7 


LN0D2, t 6 








16654 


49 


02410 


00000 


030*0 


I MOOS A 


DSA 


RETRN 








16665 


00005 J6610 


03050 




DSC 


5,03311 








16666 


00005 




03060 




DOR 6 


LM0DSA*5*5*6 


-6 






16694 








03070 




NOP 


SYN86.0 








16694 


41 


04325 


OCOOO 


03080 




DORG 


•-21 








16664 








03090 




NOP 


Y2.SYM85 








16684 


41 


17328 


04315 


03100 




OORG 


•-21 








16674 








03U0 




NOP 


Yl,X2 








16674 


41 


17308 


17318 


03120 




00*6 


•-14 








16671 








03130 


XYOSA 


DSA 


XI 








16675 


0000$ J7298 


03140 




DORG 


•♦5*6-4 








16701 








03150* 










POINT DEFINED BY X AND Y COORDINATES 




03160 


XYXY 


TFL 


XltlATltlU 






STORE XI IN XI 


16702 


06 


1T298 


0773 J 


03170 




AM 


UU, 14, 10, 






INCREMENT TO NEXT 


ELEMENT 






















16714 


11 


07731 


000J4 


olieo 




TPW 


Yl»iAU*U» 






SToae yi IN vi 


i*m 


06 


17108 


7 7 3 j 


03190 




AM 


IAT1 t 14* 10t 






INCREMENT TO NEXT 


ELEMENT 






















16738 


11 


07731 


00OJ4 


03200 


SETX2 


TFL 


X2, IATI, 11, 






STORE X2 IN X2 


16750 


06 


17318 


0773J 


04010 




AM 


iATi, 14,10, 






INCREMENT TO NEXT 


ELEMENT 






















16762 


11 


07731 


000 J4 


04020 




tfl 


Y2,IAT1,U, 






STORE Y2 IN Y2 


16774 


06 


17328 


0773J 


04030* 










LOAD AND CALL LCCNl SUBPROGRAM 








04040* 








TO 


PROJECT LINE THROUGH 2 POINTS 






040S0 


GOCAN 


BTM 


MONITR, 02120 


.47 






16786 


17 


02400 


-2120 


04060 




8T 


LCN0Nl,XYDSA*25, 


.6 




16798 


27 


02410 


16700 


04070 


RETRN 


8NR 


RETURN, SYMB5 


.6, 




RETURN TO CALLING 


PROGRAM 






















16810 


45 


0241J 


04315 


04080* 








IF 


POINTS ARE NOT COINCIDENT 








04090* 








LOAD AND CALL TYPERR 


SUBPROGRAM 








04100 


ER301 


BTM 


MONITR, 03090 


.67 






16822 


17 


02400 


-3090 


04110 




BTM 


TYPERR,301,67 






16834 


17 


02410 


-0301 


04120 


XY2XY* 


TFL 


XI, IATI, 11, 






STORE XI IN XI 


16846 


06 


17298 


0773J 


04130 




AM 


IATI, 14, 10, 






INCREMENT TO NEXT 


ELEMENT 






















16858 


11 


07731 


00OJ4 


04140 




TFL 


Yl, I ATI, 11, 






STORE Yl IN Yl 


16870 


06 


17308 


0773J 


04150 




AM 


IATI, 28,10, 






SKIP OVER I COORDINATE 16882 


11 


07731 


000K8 


04160 




B7 


SETX2 








16894 


49 


16750 


00000 


04170 


P1P2 


TFL 


X1,T0ATA5,, 






STORE XI IN XI 


16902 


06 


17298 


03362 


04180 




TFL 


Yl , T0ATA6, , 






STORE Yl IN Yl 


16914 


06 


17308 


03372 


04190 




TFL 


X2,TDATA*80, 


» 




STORE X2 IN X2 


16926 


06 


17318 


03413 


04200 




TFL 


Y2,T0ATA*90,» 




STORE Y2 IN Y2 


16938 


06 


17328 


03423 


05010 




B7 


GOCAN 








16950 


49 


16786 


OCOOO 


05020 


TABPEP 


CM 


T0ATA4,9 f l0, 






CHECK 1ST ELEMENT 


—POINT 






















16958 


14 


03352 


000-9 


05030 




BNE 


ER301 








16970 


47 


16822 


01200 


05040 


PTROK 


CM 


TDATA4*51,1, 


10, 




CHECK 2N0 SURFACE 


—LINE 






















16982 


14 


03403 


COO-l 


05050 




BE 


PERPAR 








16994 


46 


17218 


01200 


05060 




CM 


TDATA4*51,3, 


10, 




CHECK 2ND SURFACE 


FOR CONIC 






















17006 


14 


03403 


OCO-3 


05070 




BE 


PITCON 








17018 


46 


17086 


01200 


05080 




CM 


TDATA4*5l,4, 


10, 




CHECK 2N0 SURFACE— T ABC YL 






















17030 


14 


03403 


000-4 


05090 




BNE 


ER301 








17042 


47 


16822 


01200 


05100 


PlPTl 


AM 


IATI, 14, 10 








17054 


11 


07731 


000J4 


05110 




BT 


MONITR, CYLDSA*5 


,6 




17066 


27 


02400 


17268 


05120 




B7 


LTPTAB, #6 








17078 


49 


02410 


00000 


05130 


PITCON 


BT 


M0NITR.C30N1 








17086 


27 


02400 


17278 



05140 




87 


LPTC0N,,6 












17098 


49 02410 00000 


05150 


P1TC1 


CM 


T0ATA4,9t 10, 






CHECK 


1ST 


SURFACE 


—POINT 

17106 


14 03352 000-9 


05160 




BNE 


ER301 












17118 


47 16822 01200 


05170 


OKPT 


CM 


TDATA4*5l,2, 


10, 




CHECK 


2ND 


SURFACE 


CIRCLE 

17130 


14 03403 000-2 


05180 




BE 


CIRK 












17142 


46 17198 01200 


05190 




CM 


TDATA4+51.3, 


10, 




CHECK 


2ND 


SURFACE 


CCNIC 

17154 


14 03403 000-3 


05200 




BNE 


ER301 












17166 


47 16822 01200 


06010 


CONK 


BT 


MONITR, GC0ND»5* 


6 








17178 


27 02400 17288 


06020 




87 


LTNPRC , ,6 












17190 


49 02410 00000 


06030 


C1RK 


BT 


MONI TR»HIDSA*5. 


6 








17198 


27 02400 17338 


06040 




87 


FM105, ,6 












17210 


49 02410 00000 


06050 


PERPAR 


AM 


IATI, 14, 10 












17218 


11 07731 O0OJ4 


06060 




BT 


. MONITR, M0030*5, 


6 








17230 


27 02400 17258 


06070 




87 


LM0D3,,6 












17242 


49 02410 00000 


06080 


M0D30 


DSA 


RETRN 












17253 


00005 J6810 


06090 




OSC 


5,03321 












17254 


00005 


06100 


CYLDSA 


DSA 


RETRN 












17263 


00005 J6810 


06110 




OSC 


5,03511 












17264 


00005 


06120 


C30N 


DSA 


RETRN 












17273 


00005 J6810 


06130 




DSC 


5,3571 












17274 


00005 


06140 


GCONO 


DSA 


RETRN 












17283 


00005 J6810 


06150 




DSC 


5,03561 












17284 


00005 


06160 




DC 


8,0 












17296 


00008 


06170 


XI 


DC 


2,0 












17298 


00002 


06180 




DC 


8,0 












17306 


00008 


06190 


Yl 


DC 


2,0 












17308 


00002 


06200 




OC 


8,0 












17316 


00008 


07010 


X2 


OC 


2,0 












1^318 


00002 


07020 




DC 


6,0 












17326 


00008 


07030 


Y2 


DC 


2,0 












17328 


00002 


07040 


H10SA 


DSA 


RETRN 












17333 


00005 J6810 


07050 




DSC 


5,03331 












17334 


00005 


07060 




OS 


22,, 






MLL 


LAST 


SECTOR 


17360 


00022 


07070* 








COMMON WITH MAINLINE 






07080 


T0ATA5 


OS 


,03362 












03362 


00000 


07090 


T0ATA6 


DS 


.03372 












03372 


00000 


07100 


TANF 


OS 


,02416 












02416 


00000 


07110 


ATANF 


DS 


,02416 












02416 


00000 


07120 


COSF 


OS 


•02421 












02421 


00000 


07130 


IATI 


DS 


,07731 












07731 


00000 


07140 


SYMBt 


DS 


,04209 












04289 


00000 


07150 


SYMB5 


OS 


.04315 












04315 


00000 


07160 


SYMB6 


OS 


,04325 












04325 


00000 


07170 


MONITR 


OS 


.02406 












02406 


00000 


07180 


RETURN 


OS 


.02411 












02411 


00000 


07190 


LCN0N1 


DS 


•02416 












02416 


00000 


07200 


TYPERR 


OS 


,02416 












02416 


00000 


08010 


FORM 


os- 


•07712 












07712 


00000 


08020 


TOATA 


OS 


•03333 












03333 


00000 


08030 


LM002 


OS 


•02416 












02416 


00000 


08040 


LM0D3 


OS 


•02416 












02416 


00000 


08050 


PlTTl 


Of. 


•PlPTl 












17054 


00000 


08060 


LTPTAB 


Oi 


.2416 












02416 


00000 


06070 


LPTCON 


OS 


• 2416 












02416 


00000 


cr,osa 


70ATA4 


OS 


• 3352 












01352 


00000 




.LTNPRC 


OS 


• 2416 












02416 


00000 


031 Of J 


TM105 


OS 


•241* 












02416 


00000 



3® 



06110 06NO LI?, 



16462 



r*C6 4 



TYPERR 02416 
RETURN 02411 
A 16106 
FORM 07712 
INTO 17542 
RAO 17702 
TDATA 03333 
Yl 18086 



T0ATA6 03372 
PI/180 18096 
A TANG 17458 
FTAN 17714 
LH002 17362 
SETS5 17830 
TEMP 18126 



SYMBOL TABLE 

T0ATA5 03362 
M1.E48 18066 
FLE49 18136 
GOGO 17994 
MAB 17934 
SYH85 04315 
TNUMB 18056 



TANFOS 17635 
MCNITR 02406 
FLMUL 17578 
GOTAN 17506 
MULX 17890 
SYMB6 04325 
VERT 17786 



TANOSA 17625 

ATANL1 17642 

FL1 18046 

IATI 07731 

Ml 18116 

TANF 02416 

XI 18076 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 



IBM 1620-1311 AO-APT • 



INTRAN SUBPROGRAM LM0D2 

THIS SUBPROGRAM HANOLES THREE LINE DEFINITIONS 
L2*LINE/PT1 » ATANGL. A.Li 
L3«LlNE/SL0PE*l*ATANGL.5 
LINKAGE IS BT MONI TR,0SALBL*5 

8 LM002 



01100 


OORG 


17362 


OHIO LM002 


CM 


FORM.27.8t 


01120 


BE 


ATANG 


01130 


CM 


FORM, 109,8, 


01140 


BE 


ATANLl 


01150 


CM 


FORM, 187,8, 


01160 


BE 


MAB 


01170* 






01180 


BTM 


MONITR, 03090, < 


01190 


BTM 


TYPERR.301,67 


01200* 






02010 ATANC 


TFL 


Xl,TDATA5,, 


02020 


TFL 


Yl , T0ATA6, » 


02030 


AM 


IATI, 28, 10, 


02040 


TFL 


TNUM8tIATl.Hi 


02050* 






02060 GOTAN 


8T 


MONITR. TANOSAi 


02070 


FMUL 


TNUMB. PI/180, i 


02080* 






02090 


BTM 


TANF .TNUMB #6? 


02100 INTO 


CM 


TNUH3,5,10 


02110 


8NN 


VERT..* 


02120 


TFL 


SYM85. TNUMB.. 


02130 FLMUL 


FMUL 


XI .SYMB5 


02140 


FSU8 


YltXl 


02150 


TFL 


JYA86.Y1., 


02160* 






02170 


87 


RETURN* • 6 


02180 TANOSA 


OSA 


INTO 


02190 


OSC 


S«022t* 


02200 TANFOS 


OSA 




03010 


OSC 


9*02211 


03020* 






03030 ATANLl 


TFL 


X1.TDATA5,, 


03040 


TFL 


YI.TDATA4,. 



CHECK FOR FORM 27 
CHECK FOR FORM 109 
CHECK FOR FORM 187 



17362 
17362 
17374 
17386 
17398 
17410 
17422 

LOAD A NO CALL TYPERR SUBPROGRAM 
17434 
17446 

LINE/CIRCLE. ATANGL. ANGLE 

STORE X COORDINATE 17458 
STORE Y COOROINATE 17470 
INCREMENT TO ANGLE 17482 
STORE THE ANGLE IN TNUMB 

17494 

LOAO THE TANF SUBPROGRAM 
,6 17506 
CHANGE THE ANGLE TO RADIANS 
17518 

CALL THE TANF SUBPROGRAM 

17530 
17542 

BRANCH IF SLOPE INFINITE BY 
17554 

STORE THE SLOPE IN SYM85 

17566 
17578 
17590 
17602 



SYM86 • Y-SYM85*X 
RETURN TO CALLING PROGRAM 



LINE/POINT. AT ANGL#l I NE 
STORE XI IN XI 
STORE VI IN VI 



17614 
17625 
17626 
1763S 
17636 

17642 
17654 



14 07712 0-027 
46 17458 01200 
14 07712 0-109 
46 17642 01200 
14 07712 0-187 
46 17934 01200 

17 02400 -3090 
17 02410 -0301 

06 18076 03362 
06 18086 03372 
11 07731 00OK8 

06 18056 0773J 

27 02400 17630 

03 18056 18096 

17 02410 J8056 
14 18056 000-5 
DEFINITION 
46 17786 01300 

06 04315 18056 
03 18076 04315 
02 18086 18076 
06 04325 18086 

49 0241 J 00000 
00005 J 7542 
00005 

00005 J7738 
00005 

06 18076 03362 
06 18086 03372 



€1 



030*0 
03060 
03070 

03080 RAO 

03090* 

03100 FTAN 

03110 

03120 

03130 

03140 

03150 

03160 VERT 

03170 

03180 

iilil sits* 

04010 

04020 
04030 
04040 

04050 MULX 

04060 

04070 

04080* 

04090 

04100* 

04110 NAB 

04120 



04180 
04190 



TFL 



tATl,2B,lO. 
A.IATi.li, 

Ml * TDATA+60* t 



fmul a«pi/16o«« 



8t 

BTM 

FMUL 

TFL 

FSOB 

8N2 

TFL 

TFL 

FMUL 

IT 

% 

FD1V 

f.M 

8NN 

FMUL 
FSUB 
TFL 



MONIT«,TANF0S*S 

TANF , A»6T 

*l,A», 

TEMP.FLIm 

T£MP,Ml,# 

SETS5 

SYN85,FLE49m 
SYM86.HU648 
SYMB6,Xl»# 



INCREMENT TO ANCLE 17666 11 07731 OOOKB 

STORE THE ANGLE IN A 17678 06 18106 0773J 
STORE THE SLOPE OF THE LINE IN Ml 

17690 06 18116 03413 
CHANGE THE ANCLE TO RADIANS 

17702 03 18106 18096 
LOAD A NO CALL THE TANF SUBPROGRAM 



PAGE 



,6 



RE TURN j, 6 

!tDATA*8Q, 



Ml * Ml*A 
TEMP • -1 

TEST FOR SLOPE OF -t 
SET SLOPE TO 1.0E48 
SYMB6— 1.0E48M1 



mm 

SYHB 



mm 

SVMB5 



i i 



17714 27 02400 17640 

17726 17 02410 J8106 

17738 03 18116 18106 

17750 06 18126 18046 

17762 02 18126 18116 

17774 47 17830 01200 

17786 06 04315 18136 

17798 06 04325 18066 

17810 03 04325 18076 

17822 49 ©24 1 J 60000 

mil ii iiiii iiiii 



SYMB5.TEMP,, 
SYMB5,5»10 
VERT, • 1 

XWSYMB5,, 

Yl.Xl,, 

SYMB6»Yl, t 



SYMB5 



17890 03 18076 04315 
17902 02 18086 18076 
17914 06 04325 16086 



B7 RE TURN,, 6 



AM 
C 



04130 BNH 
04140* 

04150 BTM 

04160 BTM 

04170 GOGO TFL 



AM 

TFL 



04200* 

05010 87 
05020 OC 
05030 FL1 OC 
05040 TNUMB OS 
05050 OC 
05060 M1.E48 OC 
05070 XI OS 
05080 Yl OS 
05090 OC 
05100 PI/180 DC 



05110 A 
05120 Ml 
05130 TEMP 
05140 

05150 FLE49 

05160 

05170* 



OS 
OS 
OS 
DC 
OC 
DS 



IAT1,14,10 
IATl«FLE49«6» 



HON I TR, 03090, 67 
TYPERR, 326,67 
SYMB5,IATl,Ui 

IAT1, 28,10 
SYMB6, I ATI » 11 f 



RE TURN i, 6 

8,10000000 

2,1 

10 

8,-10000000 
2#49 

10 
10 

8,17453292 

2,-1 

10 

10 

10 

0,10000000 

2,49 

24, , 



SYMB5+SL0PE OF LINE 

17842 01 04315 03413 
SYMB5/TEMP 17854 09 04315 18126 

17866 14 04315 000-5 
BRANCH IF SLOPE INFINITE BY DEFINITION 

17878 46 17786 01300 

XI - X1*SYMB5 
Yi ■ Yl-Xl 
SYMB6 • Yl 
RETURN TO CALLING PROGRAM 

17926 49 0241J 00000 
LINE/SLOPE, SLOPE, INTERC. INTERCEPT 

17934 11 07731 000J4 

CHECK FOR VERTICAL LINE 

17946 24 0773J 18136 
17958 47 17994 01 100 
LOAD ANO CALL TYPERR SUBPROGRAM 

17970 17 02400 -3090 
17982 17 02410 -0326 

STORE THE SLOPE IN SYMB5 

17994 06 04315 0773J 
18006 11 07731 000K8 

STORE THE INTERCEPT IN SYMB6 

18018 06 04325 0773J 

RETURN TO CALLING PROGRAM 

18030 49 0241J 00000 

18044 00008 

16046 00002 

18056 00010 

18064 00008 

18066 00002 

16076 00010 

18086 00010 

18094 00008 

18096 00002 

18106 00010 

16116 00010 

18126 00010 

18134 00008 

18136 00002 

FILL LAST SECTOR 18160 00024 

COMMON AREA WITH MAINLINE 



05180 


IATl 


OS 


,07731 


07731 


00000 


05190 


SYMB5 


OS 


,04315 


04315 


00000 


05200 


SYM86 


OS 


•04325 


04325 


00000 


06010 


RETURN 


OS 


,02411 


024U 


00000 


06020 


TO ATA 


OS 


,03333 


03333 


00000 


06030 


T0ATA5 


OS 


,03362 


03362 


00000 


06040 


T0ATA6 


DS 


,03372 


03372 


ooooo 


06050 


MONITR 


DS 


,02406 


02406 


00000 


06060 


TYPERR 


OS 


,02416 


02416 


ooooo 


060 70 


TANF 


OS 


,02416 


02416 


ooooo 


06080 


FORM 


OS 


,07712 


07712 


ooooo 


06090 




OENO 


LM002 


17362 





$2 



SYMBOL TABLE 



TYPERR 02416 
MONITR 02406 
CHKXS 18122 
Ft I 18410 
HI 18430 
SUBT 18158 
VERT 17714 



T0ATA6 03372 
M0RIZ2 18258 
01STD 17766 
FORM 07712 
PiPLl 17526 
SYMBS 04315 
VERT2 18178 



T0ATA5 03362 
FLZERQ 07680 
ERR 18234 
HORIZ 17734 
SCALC 17934 
SYM86 04325 
X2 18390 



RETURN 


02411 


AOO 


18102 


ER310 


17838 


IATI 


07731 


SETS5 


17658 


TOAf A 


03333 


Y2 


18400 



PlPAll 17410 
CHKA 18326 
FLE49 18460 
LH003 17362 
SQRTF 02416 
TEMP 18420 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 



ISM 1620-1311 AO-APT. 



INTRAN SUBPROGRAM LMCD3 
THIS PROGRAM HANDLES 3 LINE OEFINIUCNS 
L l»t I NE/PT1 , PARLEL »L2 
L1*LINE/PARLEL,L2,XLARGE,D 
L3*LINE/PT1|PERPT0,LI 



LINKAGE IS 



BT MONI TR,0SAL8L+5 
B LM003 



Oil 10 


OORG 


17362 




17362 








01120 LM003 


CM 


FORM* 155,8, 


CHECK FOR FORM 155 


17362 


14 


07712 




Oil 30 


BE 


01 STO 




17374 


46 


1 7766 


01200 


01140 


CM 


I ATI » 17,610, 


CHECK FOR PARLEL MODIFIER 




• 












17386 


14 


0773 J 


000J7 


01150 


BNE 


P1PL1 . 




17398 


47 


17526 


01200 


01160* 






LI NE/POINT, PARLEL , L INE 










01170 PIPAL1 


TFL 


X2.TDATA5,, 


STORE X COORD OF POINT 


IN X2 
17410 


06 


18390 


03362 


01180 


TFL 


Y2«T0ATA6 V t 


STORE Y COORD OF POINT 


IN Y2 
17422 


06 


18400 


03372 


01190 


TFL 


SYMBS i TO AT A* 80 i < 


STORE SLOPE OF LINE IN 


SYMB5 
17434 


06 


04315 


03413 


01200 


CM 


SYMB5,49,10 




17446 


14 


04315 


000M9 


02010 


BN 


•♦24,,, 


BRANCH IF LINE IS NOT 


VERTICAL 














17458 


47 


17482 


01300 


02020 


FSUB 


Y2.Y2,, 


SET Y2-0.0 


174 70 


02 


18400 


18400 


02030 


FMUL 


X2 t SYMB5 




17482 


03 


18390 


04315 


02040 


FSUB 


Y2.X2 




17494 


02 


184C0 


18390 


02050 


TFL 


SYMB6,Y2,« 


SYMB6 • Y2-SYMB5*X2 


17504 


06 


04325 


18400 


02060* 






RETURN TO CALLING PROGRAM 










02070 


87 


RETURN,, 6 




17518 


49 


0241 J 


00000 


02080* 






LINE/P0INT,PERPT0,LINE 










02090 P1PL1 


TFL 


X2.T0ATAS,, 


STORE X COORD OF POINT 


IN X2 
17526 


06 


18390 


03362 


02100 


TFL 


Y2,TDATA6», 


STORE Y COORD OF POINT 


IN Y2 
17538 


06 


18400 


03372 


02110 


TFL 


TEMP »TDATA*B0»» 


STORE SLOPE OF LINE IN 


TEMP 
17550 


06 


18420 


03413 


02120 


FSUB 


TEMP,PLZ6R0,» 


CHECK FOR ZERO SLOPE 


17562 


02 


18420 


07680 


02130 


BZ 


HORIZ 




17574 


46 


17734 


01200 


02140 


TFL 


TEMP,T0ATA*60,« 


RESTORE SLOPE OF LINE 


IN TEMP 














17586 


06 


18420 


03413 


02150 


FSUB 


TEMP.FLE49,, 


CHECK FOR VERTICAL LINE 
















17598 


02 


18420 


16460 


02160 


BZ 


VERT 




17610 


46 


17714 


01200 


02170 


TFL 


TEMP »FL1 , , 


TEMP • 1 


17622 


06 


18420 


18410 


02180 


SF 


TEMP-2,,, 


TEMP - -I 


17634 


32 


18418 


00000 



02190 


FOIV 


TEMP, T DAT A*80t » 


02200 SETS5 


TFL 


SYM85 , TEMP, # 


03010 


FMUL 


TEMP, X2 


03020 


FSUB 


Y2.TEMP 


03030 


TFL 


SYH86,Y2,» 


03040* 




1 


03050 


87 


RETURN, ,6 


03060* 




l 


03070 VERT 


TFL 


TEMP,FLZERO 


03060 


87 


SETS5 


03090* 




l 


03100* 






03110 HORIZ 


TFL 


TEMP, FLE49 


03120 


FSUB 


Y2.Y2,, 


03130 


B7 


SETS5 


03140* 




1 


03150 DISTD 


TFL 


SYMBS , TDATA5 


03160 


TFL 


SYMB6.T0ATA6, , 


03170 


AM 


IATI, 42,10, 


03180 


TF 


•+35, IATI 


03190 


SM 


•♦23,2,10 


03200 


8NF 


•♦36, ,, 


04010* 






04020 ER310 


8TM 


MONITR ,03090, 47, 


04030 


BTM 


TYPERR, 310, 69, 


04040 


TFL 


X2,T0ATA5, V 


04050 


FSUB 


X2,FLE49,, 


04060 


82 


VERT2 


04070 


TFL 


X2.TDATA5,, 


04080 


FSUB 


X2,FLZER0,t 


04090 


BZ 


K0RIZ2 


04100 SCALC 


TFL 


X2,T0ATA5,, 


04110 


FMUL 


X2,X2, V 


04120 


FAOD 


X2,FLl,, 


04130* 




1 


04140 


BTM 


MONITR, 02000,67 


04150 


BTM 


SQRTF,X2,67,, 


04160 


FMUL 


X2, IATI, 11, 


04170 


SM 


1AT1, 14,10, 


04160 


CM 


IATI ,35,610c 


04190 


BE 


ADD 


04200 


CM 


IATI • 36,610, 


05010 


BE 


SUBT 


05020 


CM 


UU, 31, 610, 


05030 


BNE 


CHKXS 


05040 


8HF 


SUBT , TOA TA5-2 # * 


05050 ADD 


FA00 


SVMft6,X2»t 


05060* 




1 


0*070 


67 


RETURN, ,6 


05060 CHKXS 


CM 


IATI, 32,610, 




6KS 


ERR 




§»*? 


ADD, TO AT AM 



TEMP - -l/SLOPE 


17646 


09 


18420 


0341 3 


SYMB5 - TEMP 


17658 


06 


04315 


18420 




17670 


03 


18420 


18390 




17682 


02 


18400 


18420 


SYMB6 - Y2-SYMB5*X2 


17694 


06 


04325 


18400 


RETURN TO CALLING PROGRAM 












17706 


49 


0241J 


00000 


LINE IS PERPTO VERTICAL LINE... 


SLOPE-0 






17714 


06 


18420 


07680 




17726 


49 


17658 


00000 


LINE IS PERPTO HORIZONTAL 


LINE 








SLOPE • 1*10*»48 












17734 


06 


18420 


18460 


SET Y2-0.0 


17746 


02 


18400 


18400 




17758 


49 


17658 


COOOO 


LINE/PARLEL, LINE, MODIFIER, 


OISTANCE 








17766 


06 


04315 


03362 


SYMB6 - INTERCEPT OF LINE 










17778 


06 


04325 


03372 


INCREMENT TO OISTANCE 


17790 


11 


07731 


000M2 




17802 


26 


17837 


07731 




17814 


12 


17837 


000-2 


BRANCH IF D IS NOW— NEGATIVE 










17826 


44 


17862 


00000 


CALL TYPERR SUBPROGRAM VIA MONITR 






17838 


17 


02400 


-3090 


WRITE ERROR MESSAGE... 


. EXIT 










17850 


17 


02410 


OOLIO 


STORE SLOPE OF LINE IN 


X2 










17662 


06 


16390 


03362 


CHECK FOR VERTICAL LINE 










17874 


02 


18390 


18460 




17886 


46 


18178 


01200 


RESTORE SLOPE IN X2 


17898 


06 


18390 


03362 


CHECK FOR HORIZONTAL LINE 










17910 


02 


18390 


07680 




17922 


46 


18258 


01200 


RESTORE SLOPE IN X2 


17934 


06 


18390 


03362 


X2 • X2**2 


17946 


03 


18390 


18390 


X2 « X2*l 


17958 


01 


18390 


18410 


LOAD AND CALL SQRTF SUBPROGRAM 










17970 


17 


02400 


-2000 


X2 - SQRTF U2> 


17982 


17 


02410 


J8390 


X2 * X2*0 


17994 


03 


18390 


0773J 


DECREMENT TO MODIFIER 


18006 


12 


07731 


000J4 


CHECK FOR YLARGE 


16018 


14 


0773J 


000L5 




18030 


46 


18102 


01200 


CHECK FOR YSMALL 


18042 


14 


0773J 


000L6 




16054 


46 


18158 


01200 


CHECK FOR XLARGE 


18066 


14 


0773J 


000L1 


18078 


47 


18122 


01200 


CHECK FOR NEGATIVE SLOPE 










16090 


44 


18156 


03360 


SVMB6 - $YMB6*X2 


18102 


01 


04325 


18390 


RETURN TO CALLING PROGRAM 












18114 


49 


0241J 


00000 


CHECK FOR XSMALL 


18122 


14 


0773J 


00OL2 


16134 


47 


18234 


01200 



CHECK FOR NEGATIVE SLOPE 













16146 


44 


18102 


03360 


o«> no 


SU8T 


FSUt 


SYM86*X2,« 


SYH86 • SYMB6-X2 


18151 


02 


04325 


18390 


05120* 








RETURN TO CALLING PROGRAM 










05130 




67 


RETURN* »4 




18170 


49 


0241J 


00000 


05140 


VERT 2 


SN 


IATi,14,lO# 


DECREMENT TO MODIFIER 


18178 


12 


07731 


000J4 


05150 




CM 


IAtl, 33*610* 




18190 


14 


0773J 


000L3 


05160 




6NL 


ERR 




18202 


46 


18234 


01300 


051 TO 




AM 


1*71,14*10* 


INCREMENT TO 0! STANCE 


18214 


11 


07731 


000J4 


05100 




B7 


SCAU 




18226 


49 


17934 


00000 


05190* 






LOAD AND CAU tVPERR SUBPROGRAM 








05200 


Eft* 


*TM 


MONITR, 03090, 67 




18234 


17 


02400 


-3090 


060 10 




0TM 


TYPERR»307»6? 




18246 


17 


02410 


-0307 


06020 




SM 


!ATl .14*10, 


nerocMciuY tn ynntereo 
UfcwKfcHfcNJ lu MUUlrlcH 


18258 


12 


07731 


00OJ4 


06030 




CM 


IAT1 ,35,610* 


wncwK run YLARve 


18270 


14 


0773J 


0OOL5 


06040 




BNt 


CHKA 




18282 


47 


18326 01200 


06050 




AM 


I ATI * 14. 10* 

iwiiilfi ill 


INIiHcncNI IU Dial AllvC 


18294 


1 1 


urn fflz 


mm 




Pill 




tiiii 


el 


06070* 


RETURN TO CALLING PROGRAM 








06080 




87 


RETURN* »6 




18318 


49 


0241J 


00000 


06090 


CHKA 


CM 


IAT1*36,610* 


CHECK FOR YSMALL 


18326 


14 


0773J 


000L6 


06100 




BNE 


ERR 




18338 


47 


18234 


01200 


06110 




AM 


IAT1, 14,10, 


INCREMENT TO OISTANCE 


18350 


11 


07731 


000J4 


06120 




FSUB 


SYMB6,lATl,ll, 


SYMB6 • SYMB6»0 


18362 


02 


04325 


0773J 


06130* 






RETURN TO CALLING PROGRAM 










06140 




67 


RETURN* *6 




18374 


49 


0241J 


00000 


061 50 


X2 


OS 


10 




18390 


00010 




06160 


V2 


OS 


10 




18400 


00010 




06170 




OC 


6,10000000 




18408 


00008 




06180 


FLl 


DC 


2,1 




18410 


00002 




06190 


TEMP 


OS 


10 




18420 


00010 




06200 


Ml 


OS 


10 




18430 


00010 




07010 




OS 


20, , 


phi i iu *fc rriR 


18450 


00020 




07020* 






COMMON AREA WITH MAINLINE 










07030 


MONITR 


OS 


,02406 




02406 


00000 




07040 


RETURN 


OS 


#02411 




02411 


00000 




07050 


TYPERR 


OS 


,02*16 




02416 


00000 




07060 


FORM 


OS 


,07712 




07712 


00000 




07070 


UT1 


OS 


,07731 




07731 


00000 




07080 


T0ATA5 


OS 


,03362 




03362 


00000 




07090 


T0ATA6 


OS 


,03372 




03372 


00000 




07100 


TOATA 


OS 


,03333 




03333 


00000 




07110 


SYMB5 


OS 


,04315 




04315 


00000 




07120 


SYNB6 


OS 


,04325 




04325 


00000 




07130 




OC 


8,10000000 




18458 


00008 




07140 


FLE49 


OC 


2,49 




18460 


00002 




07150 


FL2ER0 


OS 


• 7680 




07660 


00000 




07160 


SQRTF 


OS 


,02416 




02416 


00000 




07170 




OENO 


LM0D3 * 




17362 









PAGE 1 

SYMBOL TABLE 



2UN66K 


18058 


TYPERR 


02416 


SELECT 


18310 


Ri'UMN 


024 1 1 


PTSLCT 


02416 


MON I TR 


02406 


LCN0N1 


02416 


AHNZhB 




AHINHB 


000 38 


A 


10601 


ARG 


18505 


B 


16611 


b-0.0 


1&166 


BNOTI 


1637B 


C 


18621 


COOE 


18449 


CON! 


00079 


OSAl 


1B403 


DSA2 


18455 


ER301 


17422 


FH105 


17362 


FOFYF 


18506 


M 


03*11 


Ha 


10631 


IAT1 


07731 


K 


03423 


KSQ 


00069 


LEFT 




N0T2 


18482 


R 


03433 


RAOCt 


00079 


RIGHT 


17458 


ROOT 


000 79 


RSO 


00069 


SMA 


00048 


SMB 


00038 


SMC 


00028 


SQRTF 


02416 


SYMB5 


04315 


SYM96 


04325 


TANTO 


17518 


TEMP 


00069 


WERM 


17446 


XM 


16631 


XM1 


18631 


XM2 


18651 


XN 


03362 


YM 


18641 


YM I 


18641 


YM2 


18461 


YN 


03372 



















01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070» 
01080* 
01090* 
01100* 

oiuo* 

01120 
01130* 
01140 FMIOS 
01150 
01160 

01170* 

01180 

01190 

01200* 
02010 ER301 
02020 

02030 WERM 
02040 RIGHT 
02050 

02060 
02070 
02080 

02090* 
02100 TANTO 
02110 

02120 

02130 

02140 
02150 
02140 
02170 

021 §0 



IBM 1620-1311 AO-APT DEFPRE SUBPROGRAM FOR DETERMINING 
A LINE DEFINED BY A STATEMENT OF THE FORM,... 

RCS 

LINl-LINE/PTl, RIGHT, TANTO, CIRCL1 
LIN1-LINE/PT1, LEFT, TANTO, CIRCL I 

•NAME FM105... NON-ERASABLE DEFPRE SUBPROGRAM 
•ID NUMBER 0333+DELOIM 
•STORE CORE IMAGE 
LINKAGE - B FM105,,6 



OORG 17362 

SUBPROGRAM ENTRY 
AM IATl.14,10 
CM IAT1,24,610 
BE RIGHT,,, 



17362 



CM 
BE 



TFM 
BTM 

BTM 

SM 
TO 



1AT1,8,610 
LEFT, , , 



WERM*11,301,9* 
MONI TR* 03090 f 67, 

TYPERR, ,6, 
IATU1.10 
CODE, I ATI, 11, 



AM IATI, 1*14,10 
CM IATl,27,610 
BNE ER301,,, 



TFM 
BTM 



W€RM*1I,313,9, 
MONITR, 02000 ,67, 



TFL C0N1,H 
FHUL CONi.H,* 
TFL KSQ,K 

fmi &SO,K«» 
FAO0 CCN1.KS6,, 
TFL RSO.R 
FMUt K$Q,**» 



17362 11 07731 000J4 

17374 14 0773J 0OOK4 
BRANCH IF MODIFIER IS RIGHT 

17366 44 17456 01200 



17398 14 0773J 000-6 
BRANCH IF MOOIFIER IS LEFT 

17410 46 17458 01200 

SET ERROR N0.-301 17422 16 17457 OOLOl 

CALL TYPERR SUBPROGRAM VIA MONITR 

17434 17 02400 -3090 

WRITE ERROR MESSAGE 17446 17 02410 00000 
17458 12 07731 000-1 

SET MODIFIER COOE FOR PTSLCT SUBPROGRAM 

17470 25 18449 0773J 
17462 11 07731 000J5 
17494 14 0773J COOK 7 

BRANCH IP MODIFIER IS NOT TANTO 

17506 47 17422 01200 

SET ERROR N0.-31J 17518 14 17457 O0L13 

CALL SQRTF SUBROUTINE VIA MONITR 

17530 17 02400 -2000 

17542 06 00079 03413 
H**2 17554 03 00079 03413 

17566 06 00069 03423 
K**2 17578 03 00069 0342) 

H**2*K««2 17590 01 00079 00069 

17602 06 00069 03433 
ft»«2 17614 03 00049 03433 



64 



02 1 90 


f SU8 




C0N1 W M*»2*K»*2— R**2 


1 7626 


02 


00079 


00069 


022 00 


TFL 


6 f H 




17638 


06 


1861 1 


0341 3 


03010 


FSUB 


Bt XNf t 


8«H— XN 


17650 


02 


1861 1 


03362 


03020 


TFL 


C • K 




17662 


06 


18621 


03423 


03030 


FSUB 


C,YN«, 


C-K-VN 


17674 


02 


18621 


03372 


03040 


TFL 


A»CQNl 




17686 


06 


18601 


00079 


030S0 


TFL 


TEMPfK 




17698 


06 


00069 


03423 


03060 


FMUL 


TFMP.VN. . 


K*VN 


17710 


03 


00069 


03372 


03070 


FSUB 


A»T£MP»» 


H**2*K**2-R**2~K*YN 


17722 


02 


18601 


00069 


03080 


TFL 


TEMP ,H 




17734 


06 


00069 


03413 








H*XN 


17746 


03 


00069 


03362 


03100 


FSUB 




A*M»*24K**2-R*«2-K*YN-H*XN 
















17758 


02 


18601 


00069 


031 10 


TBI 


SMA ,C 




17770 


06 


00048 


18621 


03120 


FMUL 


SMAfCtt 


C**2 


17782 


03 


00048 


1 862 1 


03130 


TFL 


IS?f •! 




17794 


06 


00069 


1861 1 


03140 


FHUL 


TEMP » 8 « , 




17006 


03 


00069 


1 86 1 1 






CM A . TM MB* . « 
SNA t • m t t 


$MA*B**24C**2 


17818 


01 


00048 


C0069 


03160 


82 


UP AM— 12... 
RE r»n— Kin 


BRANCH IF DENOMINATOR 


VANISHES 














17830 


46 


17434 


01200 


03170* 
















03180 


FMUL 




K*B**2 


17842 


03 


00069 


03423 


03190 


TFL 


H6 ,H 




17854 


06 


16631 


0341 3 


03200 


FMUL 




H*B 


17866 


03 


18631 


1861 1 


040 10 


TFL 


AMINHBf A 




17878 


06 


00038 


18601 


04020 


FSUB 


AMINHB|H8t » 


A-H*B 


17890 


02 


00038 


18631 


04030 


TFL 


AMN2HBt AMINHB 




17902 


06 


00028 


00038 


04040 


FSUB 


AMN2HB »HB , , 


AMN2HB«A-2.0*H*B 


17914 


02 


00028 


18631 






am i Nun «r » . 


C*(A-H*8) 


17926 


03 


0003B 


18621 




PAnn 


CUD _ TC up . . 

)ns tic nr 1 1 


SMB»K*B**2*C*IA-H*B) 


17938 


01 


00038 


00069 




PMUI 


rnwi *b* 


A*U-2.0*H*B) 


17950 


03 


00028 


18601 




cum 






17962 


03 


00079 


18611 




CMIIt 


CON 1 1 B 1 1 


B**2*(H**2*K**2-R**2l 


17974 


03 


00079 


18611 


04100 


00 




SMC"A*(A-2»0*H*B)*B**2*1H*»2*K**2-R**2) 










17986 


01 


00028 


00079 






DAnri . cmr 

HAUV>L t JnD 




17998 


06 


00079 


00038 


041 20 


rLtn 


MUVL t snot t 


SMB**2 


18010 


03 


00079 


00038 


041 30 


C yiii 


SMC t SMA 




18022 


03 


00028 


00048 


041 40 


F SUB 


KADLL t 5"V | t 


RA0CL»SMB**2-SMA*SMC 


18034 


02 


00079 


00028 


041 50 


BNP 


N0T2 1 1 1 


BRANCH IF RESULT IS NOT POSITIVE 












18046 


47 


18482 


01100 


041 60* 
















0*1 rO ZUNrcK 


BT 


iUK 1 r , KAUlLtO • t 


R00T-SQRTFIRA0CL) 


18058 


17 


02410 


-0079 


041 80 


TFL 






18070 


06 


18661 


00038 


04190 




Tn<c t kuu i 




18082 


01 


18661 


C0079 


04200 


FOI V 


YM2 1 SMAt f 


YM2-(SMB*R00T)/SMA 


18094 


09 


18661 


00048 


05010 


51" 


cneve vm*> » . 


EVALUATE XM2 AT YM2 


18106 


17 


18506 


J8661 


05020 


TFL 


YM1 1 SMB 




18118 


06 


186*1 


00038 


05030 


FSUB 


YMi ,R00T 




18130 


02 


16641 


00079 


05040 


FOI V 


YMltSMAt • 


YMl-(SMB-RO0T)/SMA 


18142 


09 


18641 


00048 


05050 


BO 


BN0TZ »B— 9 1 # 


BRANCH IF B IS NOT ZERO 
















18154 


43 


18378 


18602 


05060* 
















05070 B*0«0 


TFL 


RADCL t R 




18166 


06 


00079 


03433 


05080 


FMUL 


RAOCLtR, t 


R**2 


18178 


03 


00079 


03433 


05090 


TFL 


TEMP, YMI 




18190 


06 


00069 


18641 


05100 


FSUB 


TEMP»K,, 


VM1-K 


18202 


02 


00069 


03423 


05110 


FMUL 


TEMP, TEMP 




16214 


03 


00069 


00069 


05120 


FSUB 


RA0CL,TEMP, , 


RADCL»R**2-JVM1-K)**2 


16226 


02 


00079 


00069 


05130 


Bl 


WERM-12,,, 


BRANCH IF ONLY ONE LINE EXISTS 







05140* 

05150 
05160 
05170 
05L80 
05190 



BTM SQRTF * RADCL 1 67* 
TFL XM2.H 
FA00 XM2,RQ0Tt» 
TFL XM1,H 
FSUB XMltRGOT,, 



XM2-H*R00T 



05200 SELECT BTM KONI TR, 03600, 67, 



06010 

06020 

06030 

06040 

06050* 

06060 

06070 

060SQ* 

06090 BNOTZ 

06100 

061 10 

06120* 

06130 

06140 

06150 

06160 

06170 

061 60 

06190 

06200 

07010 

07020 

07030 OSA1 

07040 

07050 C00E 
07060 

070 70 
07080 
07090 
07100 
07110 
07120 

07130 0SA2 
07140 

07150* 
07160 N0T2 

07170* 

071 SO 
07190 
07200* 
0CIO10 ARC 
0&020 FOFVF 
03030 
GS040 
0IOS0 
0vu*0 



BT 
BTM 
BT 
BNR 



PTSLCT,C00E,6, 
WON I TR ,02120,67, 
LCN0N1,DSA2*2S,6, 
RE TURN,SYMB5,6, 



B WERM-12 
DORC »-3 

BTM F0FYF,YMl,# 
B SELECT 
OORC *-4*3*l0-6 



NOP 

OORG 

NOP 

OORC 

NOP 

DORC 

NOP 

OORC 

NOP 

OORC 

OSA 

DORC 

DSC 

OORG 

NOP 

ODRC 

NOP 

OORG 

NOP 

OORG 

OSA 

OORG 



YM,0 

•-21 

K,XM 

•^•21 

YN,H 

•-21 

YM2,XN 

•-21 

YMl,XM2 

•-14 

XM1 

«*5*10-4 
1,0 

C0DE*5*6-6 

SYM86,0 

•-21 

VM,SYMB5 
•-21 
YNtXM 
•-14 

XN 

•♦5*6-4 



BN WERM-12* tt 



B 2UNEEK+12 

ooac *-* 
os $ 

TFL TEKPtARGf 1! 
FMUL TEMP.C 
SM AftG-ltltlO 
TFL ARC,A,6 
FSUB ARC, TEMP, 6, 



18236 46 17434 01200 

ROOT-SORTFCRADCLI 18250 17 02410 -0079 

18262 06 18651 03413 
18274 01 18651 00079 
18286 06 18631 03413 
XM1-H-R00T 18298 02 18631 00079 

CALL PTSLCT SUBPROGRAM VIA MONITR 

18310 17 02400 -3600 
SELECT POINT PMl OR PM2 PER MODIFIER 

18322 27 02410 18449 
CALL LCNONl SUBPROGRAM VIA MONITR 

18334 17 02400 -2120 
CALC. EQUATION LINE THRU PTS. PN ANO PM 

18346 27 02410 18480 
RETURN IF PMl ANO PM2 ARE UNIQUE POINTS 

18358 45 0241J 04315 



18370 49 17434 00000 
18378 

16378 17 18506 J8641 
18390 49 16310 00000 
18441 



EVALUATE XMl AT YMI 



18442 
18432 
18432 
18422 
18422 
18412 
18412 
18402 
18402 
18399 
18403 
18449 
18449 
18473 
18474 
18464 
18464 
18454 
18454 
18451 
18455 
18481 



41 18641 00000 
41 03423 18631 
41 03372 03413 
41 18661 03362 
41 18641 18651 
00005 J8631 
00001 

41 04325 00000 
41 18641 04315 
41 03372 18631 
00005 -3362 



BRANCH IF RAOICANO IS NEGATIVE 

18482 47 17434 01300 

18494 49 18070 00000 
18501 

18505 00005 

18506 04 00069 1650N 
C«ARC 18518 03 00069 16621 

18530 12 10304 000-1 
16542 06 1B50N 16401 
A-C*ARG 18554 02 1850N 000*9 



00070 




FOIV 


ARCtftt 6 




18566 


09 1850N 


08080 




BV 


•♦12». t 


TURN OFF OVERFLOW 


INOICATOR 
18578 


46 18590 


08090 




B8 


• • * 


EXIT 


18590 


42 00000 


06100 




DQRG 


•~9 




18592 




oeuo« 












08120 


A 


OC 


10*0 




18601 


00010 


08130 


B 


DC 


10*0 




18611 


00010 


08140 


C 


DC 


10.0 




18621 


00010 


03190 


XH1 


DC 


10*0 




18631 


00010 


08160 


YMl 


DC 


10,0 




16641 


00010 


08170 


XM2 


DC 


10,0 




18651 


00010 


08180 


YM2 


DC 


10.0 




18661 


00010 


08190* 












08200 


UTl 


OS 


• 7731 




07711 


00000 


09010 


LEFT 


DS 


•RIGHT 




17458 


00000 


09020 


HONtTft 


OS 


• 2406 




02406 


00000 


09030 




0$ 


• 2416 




02416 


00000 


09040 


C0N1 


DS 


10,79 




00079 


00010 


09050 


XN 


DS 


,3333*29 




03362 


00000 


09060 


YN 


DS 


•xn*io 




03372 


00000 


09070 


H 


OS 


•YN*12*29 




03413 


00000 


09080 


K 


OS 


»H*10 




03423 


00000 


09090 


A 


DS 


»K*10 




03433 


00000 


09100 


KSQ 


DS 


10,C0N1-10 




00069 


00010 


09110 


RSQ 


OS 


• KSQ 




00069 


00000 


09120 


TEMP 


OS 


• RSQ 




00069 


00000 


09130 


SMA 


OS 


10*48 




00048 


00010 


09140 


SMB 


OS 


10,38 




00038 


00010 


09150 


SMC 


OS 


10*28 




00028 


00010 


09160 


HB 


OS 


• XM1 




18631 


00000 


09170 


AMINH8 


OS 


• SMB 




00038 


00000 


09180 


AMN2HB 


OS 


• SMC 




00028 


00000 


09190 


RADCL 


DS 


• C0N1 




00079 


00000 


09200 


ROOT 


OS 


•RADCL 




00079 


00000 


10010 


PTSLCT 


OS 


• 2416 




02416 


00000 


10020 


LCN0N1 


OS 


• 2416 




02416 


00000 


10030 


SQRTF 


OS 


• 2416 




02416 


00000 


10040 


RETURN 


OS 


• 2411 




02411 


00000 


10050 


SYMB5 


OS 


• 4315 




04315 


00000 


10060 


SYMB6 


0$ 


tSYHBSnO 




04325 


00000 


10070 


XM 


DS 


iXrti 




18631 


00000 


10080 


YM 


DS 


,YMl 




18641 


00000 


10090 




OENO 


FM10S 




17362 





PAGE I 



TYPERR Q2416 

MONITR 02406 

ERRORl 16530 

OSAi 16514 

IAT1 07731 



T0ATA6 03372 
MOFONE 16509 
DSAOST 16467 
0SA2 16524 
SAME 16874 



SYMBOL TAftlE 

T0ATA5 03362 
LINKDT 16«">0? 
CHECK 16742 
OSTCK 16597 
TOLER 16597 



T0ATA4 03352 
FH2&65 16598 
OIST 16497 
EQUAL 02416 
UNEQL 02416 



RETURN 02411 
ERR0R3 16554 
OiSTf 02416 
EXIT 16862 



01010* 












01020* LINE DEFPRE FORM 2665 (TANGENT TO TWO CIRLES) 






01030* LINKAGE 


- B FM2665 








01040* 


FM2665 IS EQUIVALENT 


TO -2416 






01050* 


CALLS TYPERR, OISTF, 


UNEQLi ANO EQUAL 






01060* 












1070 


OORG 


16462 


16462 






01080 


OC 




16486 


00025 




1090 


DORG 


*-"24*5*5-l I 


16476 






1100 


NOP 


TDATA6*5l*0IST 


16476 


41 03423 


16497 




DORG 


•-21 


16466 






01120 


NOP 


TDATA6, T0ATA5+51 


16466 


41 03372 


03413 


01 1 30 


DORG 


•-14 


16463 








DSA 


TDATA5 


16467 


00005 -3362 


01150 


DORG 


•♦5*5-4 


16488 






01160 DIST 


DC 


10,0 


16497 


00010 




01170 LINKOT 


DSA 


CHECK 


16502 


00005 J6742 


01180 


DSC 


5,2101 


16503 


00005 




01190 MOFONE 


DC 


2,0 




00002 




01200 OSAI 


DSA 


EXIT 


16514 


00005 J6862 


02010 


DSC 


5,03351 




00005 




02020 0SA2 


DSA 


EXIT 




00005 J6862 


02030 


DSC 


5,03361 


16525 


00005 




02040* 












02050 ERRORl 


BTM 


MONITR, 03090, 67 


16530 


17 02400 


-3090 


02060 


BTM 


TYPERR, 301, 67, 


INCORRECT STATEMENT 16542 


17 02410 


-0301 


02070 ERR0R3 


BTM 


MONITR, 03090, 67 


16554 


17 02400 


-3090 


02080 


BTM 


TYPERR ,315,67, 


CONCENTRIC CIRCLES 16566 


17 02410 


-0315 


02090 


DC 


8,10000000 


16585 


00008 




02100 TOLER 


DC 


2,-2 


16587 


00002 




02110 OSTCK 


DS 


10 


16597 


00010 




02120* 












02130* PROGRAM ENTRY 








02140 FM2665 


CM 


T0ATA4,2,10, 


CHECK FOR FIRST CIRCLE 

16598 


14 03352 


000-2 


02150 


BNE 


ERRORl 


16610 


47 16530 


01200 


02160 


CM 


TDATA4+5l,2,l0, 


CHECK FOR SECOND CIRCLE 

16622 


14 03403 


000-2 


02170 


BNE , 


ERRORl 


16634 


47 16530 


01200 


02180 


AM 


IAT1,26,10 


16646 


11 07731 


000K6 


02190 


CM 


IATI, 27,610, 


CHECK FOR FIRST TANTO MOCIFIEI- 










16658 


14 0773J 


00OK7 


02200 


BNE 


ERRORl 


16670 


47 16530 


01200 


03010 


AM 


IATI ,42, , 


16682 


11 07731 


-0042 


03020 


CM 


IATI, 27, 610, 


CHECK FOR SECONO TANTO MODIFIER 










16694 


14 0773J 


CC0K7 


03030 


BNE 


ERRORl 


16706 


47 16530 


01200 


03040 


6T 


MONITR, LINKDT*5, 6 


, 16718 


27 02400 


16507 


03050 


BT 


DISTF.DSAOST+20,6* OBTAIN DISTANCE BETWEEN CIRCLE CENTERS 








16730 


27 02410 


16487 



03060 


CHECK 


TFL 


OSTCK, DIST,, 


CHECK FOR CONCENTRIC CIRCLES 










16742 


06 16597 


16497 


03070 




FSUB 


OSTCK, TOLER 


16754 


02 16597 


16587 


03080 




BNH 


ERR0R3 


16766 


47 16554 


01100 


03090 




SM 


IATI, 56 


16778 


12 07731 


-0056 


03100 




TF 


MOFONE, I ATI, 11, 


STORE FIRST MOOIFIER 16790 


26 16509 


0773J 


03110 




AM 


IATI, 42 


16802 


11 07731 


-0042 


03120 




C 


IAT1,M0F0NE#6» 


ARE MODIFIERS SAME OR DIFFERENT 










16814 


24 0773J 


16509 


03130 




BE 


SAME 


16826 


46 16874 


01200 


03140 




BT 


M0NITR,DSAl*5 v 6t 


16838 


27 02400 


16519 


03150 




BTM 


UNEOL, OIST, 6, 


GET 615 TO PROCESS STATEMENT 












16850 


17 02410 


16497 


03160 


EXIT 


B 


RETURN, ,6, 


MODIFIERS. 16862 


49 0241J 


00000 


03170 


SAME 


BT 


MONITR, 0SA2*5,6, 


16874 


27 02400 


16529 


03180 




BTM 


EQUAL, OIST, 6 


16886 


17 02410 


16497 


03190* 












03200 




DS 


64,, 


FILL LAST SECTOR 16961 


00064 




04010* 


THESE ARE EQUATES FOR AREAS IN COMMON WITH SYSTEM 






04020 


IATI 


DS 


0,7731 


07731 


00000 




04030 


TDATA4 


DS 


0,3352 


03352 


00000 




04040 


TDATA5 


OS 


0,3362 


03362 


00000 




04050 


T0ATA6 


DS 


0,3372 ' 


03372 


00000 




04060 


MONITR 


DS 


0,2406 


02406 


00000 




04070 


RETURN 


DS 


0,2411 


02411 


00000 




04080 


TYPERR 


OS 


0,2416 


02416 


00000 




04090 


DISTF 


DS 


0,2416 


02416 


00000 




04100 


UNEOL 


DS 


0,2416 


02416 


00000 




041 10 


EQUAL 


DS 


0,2416 


02416 


00000 




04120* 






16598 






04130 




OENO 


FM2665 







67 



TYPERR 02416 
RCDMRK 17761 
LCNONl 02*16 
ERROR! 17762 
CHECK 17428 
L 17660 
SYM81 04209 
X8 17690 
YP 17740 



T0ATA7 03382 
PTSICT 02416 
INTERC 17660 
OSASLT 17019 
CO0E1 17065 
RIGHT 17834 
SYMB5 04315 
XP 17730 
VPICK 17720 



SYMBOL TABLE 

T0ATA6 03372 
MONITR 02406 
FlLSVM 17596 
OSALNl 17071 
OlST 17103 
S 17750 
SYM66 04325 
XPICK 17710 



T0ATA5 03362 

HO0IF1 17486 

ERR0R4 17810 

OSACIR 16967 

CETPT 17546 

SLOPE 17750 

UNEQL 17104 

YA 17680 



RETURN 02411 
LINKCR 17755 
ERR0R2 17786 
CIRCIR 02416 
UTl 07731 
SORTF 02416 
XA 17670 
Y6 17700 



01010* 










01020* LI 


[Hi DEFPRE FORM 2665 SUBPROGRAM! WHEN MODIFIERS 


ARE UNEQUAL) 


01030* LINKAGE 


1 - 8T UNl0tfDUT f 6 






01040* 


UNEQL IS EQUIVALENT TO -2416 






01050* 


CALLS TYPERR, SQRTFt CIRCIR* PTSLCTt AND LCNONl 




01060* 










01070 


DORG 


16962 


16962 




01060* 










01090 


DC 


50 »0 


17011 


00050 


01100 


OORG 


*~49*5*10~6 


17006 




onio 


NOP 


YB*0 


17006 


41 17700 00000 


01120 


OORG 


•-21 


16996 




01130 


NOP 


YA* XB 


16996 


41 17680 17690 


01140 


OORG 


•-21 


16986 




01150 


NOP 


L* XA 


16986 


41 17660 17670 


01160 


DORG 


♦-21 


16976 




01170 


NOP 


XP,YP 


16976 


41 17730 17740 


01180 


DORG 


•-21 


16966 




01190 


NOP 


TDATA6*5l*T0ATA7*Sl 


16966 


41 03423 03433 


01200 


OORG 


•-14 


16963 




02010 OSACIR 


OSA 


T0ATA5*5l 


16967 


00005 -3413 


02020 


OORG 


•♦5« 10-4*5*10-6 


17057 




02030 


NOP 


YPICKiO 


17058 


41 17720 00000 


02040 


OORG 


•-21 


17048 




02050 


NOP 


T0ATA6*51«XPICK 


17048 


41 03423 17710 


02060 


DORG 


•-21 


17038 




02070 


NOP 


YP,TDATA5*5l 


17038 


41 17740 03413 


02080 


DORG 


•-21 


17028 




02090 


NOP 


Y8,XP 


17028 


41 17700 17730 


02100 


DORG 


•-21 


17018 




02110 


NOP 


YA,X8 


17018 


41 17680 17690 


02120 


DORG 


•-14 


17015 




02130 OSASLT 


DSA 


XA 


17019 


00005 J7670 


02140 


OORG 


•♦$•10-4 


17065 




02150 C00E1 


OSC 


ItO * 


17065 


00001 


02160 


OORG 


•♦5*6-6 


17089 




02170 


NOP 


INTERCfO 


17090 


41 17660 00000 


02180 


DORG 


•-21 


17080 




02190 


NOP 


YPtCK, SLOPE 


17080 


41 17720 17750 


02200 


OORG 


♦-21 


17070 




03010 


NOP 


YP.XPICK 


17070 


41 17740 17710 


03020 


OORG 


•-14 


17067 




03030 OSALNl 


OSA 


XP 


17071 


00005 J7730 


03040 


OORG 


•♦5*6-4 


17097 




03050* 










03060* PROGRAM ENTRY 







03070 




OS 


2 




17098 


00002 




03080 


OIST 


DC 


5,0 




17103 


00005 




03090 


UNEOL 


TFL 


L*T0ATA7,, 


PUT Rl IN L 


17104 


06 


17660 


03382 


03100 




FAOO 


L* TDATA7*51» * 


L*R2*Rl 


17116 


01 


17660 


03433 


03110 




TFL 


S* TDATA7 




17128 


06 


17750 


03382 


03120 




FMUL 


S, OIST, 11, 


S-RKOISTI 


17140 


03 


17750 


1710L 


03130 




FOIV 


S.L., 


S«R7I0IST»/R2*Rl 


17152 


09 


17750 


17660 


03140 




BV 


ERR0R4 




17164 


46 


17810 


01400 


03150 




TFL 


XP,TDATA5*51 




17176 


06 


17730 


03413 


03160 




FSU8 


XP,TDATA5** 


XP»(H2-H1) 


17188 


02 


17730 


03362 


03170 




FMUL 


XP.S 




17200 


03 


17730 


17750 


03180 




FDIV 


XP, OIST, ll« 


XP-IH2-HIJS/0IST 


17212 


09 


17730 


1710L 


03190 




FAOO 


XP.T0ATA5., 


XP«HIMH2-HI)S/0IST 


17224 


01 


17730 


03362 


03200 




TFL 


YP,T0ATA6*51 




17236 


06 


17740 


03423 


04010 




FSUB 


YP,TDATA6,t 


XP*(K2-Kl) 


17248 


02 


17740 


03372 


04020 




FMUL 


YP,S 




17260 


03 


17740 


17750 


04030 




FDIV 


YP, OIST, 11 




17272 


09 


17740 


1710L 


04040 




FAOO 


YP,TDATA6*, 


Y«KUIK2-KI)S/0IST 


17284 


01 


17740 


03372 


04050 




TFL 


L, OIST. 11 




17296 


06 


17660 


1710L 


04060 




FSU8 


L.S,* 


L»SPRIME*01ST«S 


17308 


02 


17660 


17750 


04070 




FMUL 


L*Li» 


L»SPRIME**2 


17320 


03 


17660 


17660 


04060 




TFL 


S,rpATA7*5l 




17332 


06 


17750 


03433 


04090 




FMUL 


S,5, f 


S<*R2»*2 


17344 


03 


17750 


17750 


04100 




FSU6 


L*S,, 


L«SPRIME**2-R2**2 


17356 


02 


17660 


17750 


04U0 




8NH 


ERR0R2 




17368 


47 


17786 


01100 


04120 




BTM 


MONITR,2000*6T 




17380 


17 


02400 


-2000 


04130 




8TN 


SQRTF,L,67, 


L-SQRTPISPRIME**2«R2« 


»*2) 
















17392 


17 


02410 


J7660 


04140 




8T 


M0NITR.LINKCR*S*4 




17404 


27 


02400 


17760 


04150 




BT 


CIRCIR, DSACIR*45, 6, 


GET POINT A ANO B 


17416 


27 


02410 


17012 


04160 


CHECK 


8NR 


ERR0R4.79 




17428 


45 


17810 


00079 


04170 




CM 


IATl.24,610, 


CHECK FOR MIGHT MODIFIER 
















17440 


14 


0773J 


000K4 


04180 




BE 


RIGHT 




17452 


46 


17834 


01200 


04190 




CM 


IATl. 8,610. 


CHECK FOR LEFT MODIFIER 
















17464 


14 


0773J 


000-8 


04200 




8N€ 


ERROR 1 




17476 


47 


17762 


01200 


05010 


MODI F I 


SM 


IATl, 42, 10, 




17488 


12 


07731 


000M2 


05020 


CM 


IATl, 24, 610, 




17500 


14 


0773J 


000K4 


05030 




BE 


GETPT 




17512 


46 


17548 


01200 


05040 




CM 


IATl, 8*610* 




17524 


14 


0773J 


000-8 


05050 




BNE 


ERROR 1 




17536 


47 


17762 


01200 


05060 


CETPT 


BTM 


MONITR .03600* 67 


PICK POINT ON CIRCLE 


17548 


17 


02400 


-3600 


05070 




BT 


PTSLCT*0SASLT*66*6t 


TWO 
















17560 


27 


02410 


17065 


05080 




BTM 


MONITR.2120.67 




17572 


17 


02400 


-2120 


05090 




BT 


LCNONl ,DSALNl*25,6, 


GET SLOPE AND INTERCEPT OF DESIRED 










17584 


27 


02410 


17096 


05100 


FUSYN 


TFM 


SYMB1*41*6» 


LINE. 


17596 


16 


04289 


0-041 


05110 


TFL 


SYM85* SLOPE •» 


FILL IN SYMBOL TABLE 


17608 


06 


04315 


17750 


05120 




TFL 


SYM86* INTERC 




17620 


06 


04325 


17660 


05130 




TO 


SYN66*l»RCDMRK 




17632 


25 


04326 


17761 


05140 




B7 


RETURN**** 


EXIT PROGRAM 


17644 


49 


0241 J 


00000 


05150* 
















05160 


L 


OC 


10,0 




17660 


00010 




05170 


XA 


oc 


10*0 




17670 


00010 




05160 


VA 


OC 


10.0 




17680 


00010 




05190 


X8 


OC 


10*0 




17690 


00010 




05200 


V8 


OC 


10*0 




17700 


00010 




06010 


XPICK 


OC 


10*0 




17710 


00010 





68 



06020 


YPICK 


oc 


10.0 


17720 


00010 




06030 


XP 


oc 


10,0 


17730 


00010 




06040 


YP 


oc 


10*0 


17740 


00010 




06050 


s 


oc 


lOtO 


17750 


00010 




06060 


SLOPE 


OS 


o,s 


17750 


00000 




06070 


INTERC 


OS 


0,1 


17660 


00000 




06080 


LINKCR 


OSA 


CHECK 


17755 


00005 J7428 


06090 




osc 


5,2071 


17756 


00005 




06100 


RCOMRK 


oc 




17761 


00001 




06110* 








06120 


ERROR 1 


8TM 


HONITR, 03090, 67 


17762 


17 02400 


-3090 


06130 




OTM 


TYPERR, 301,67, 


INCORRECT STATEMENT 17774 


17 02410 


-0301 


06140 


Errors 


BTN 


HON I TR ,03090,67 


17786 


17 02400 


-3090 


06150 




fiTN 


TYPERR, 314,67, 


GIVEN CIRCLES INTERSECT 

17798 


17 02410 


-0314 


06160 


ERR0R4 


BTM 


HON I TR ,03090,67 


17810 


17 02400 


-3090 


06170 




BTH 


TYPERR, 316. 67, 


ERRONEOUS DATA 17822 


17 02410 


-0316 


06180 


RIGHT 


TON 


C00E1,!,, 


PUT DIGIT ONE IN C00E1 FOR RIGHT 


06190 








17834 


15 17065 


00001 




B7 


MODIFl,,, 


MODIFIER. 17846 


49 17488 


00000 


06200* 










07010 




OS 


a,. 


FILL LAST SECTOR 17860 


00008 




07020* 


THESE 


ARE EQUATES FOR AREAS IN COMMON WITH SYSTEM 






07030 


IAT1 


OS 


0,7731 


07731 


00000 




07040 


SYM81 


OS 


0,4289 


042B9 


00000 




07050 


SYMB5 


OS 


0,4315 


04315 


00000 




07060 


SYMB6 


OS 


0,4325 


04325 


00000 




07070 


T0ATA5 


OS 


0,3362 


03362 


00000 




07080 


TDATA6 


OS 


0,3372 


03372 


00000 




07090 


T0ATA7 


OS 


0,3382 


03382 


00000 




07100 


NONITR 


OS 


0,2406 


02406 


00000 




07110 


RETURN 


OS 


0,2411 


02411 


00000 




07120 


TYPERR 


OS 


0,2416 


02416 


00000 




07130 


SQRTF 


OS 


0,2416 


02416 


00000 




07140 


CIRCIR 


OS 


0,2416 


02416 


00000 




07150 


PTSLCT 


OS 


0,2416 


02416 


00000 




07160 


LCN0N1 


OS 


0,2416 


02416 


00000 




07170 




OENO 


UNEQL 


17104 







SYMBOL TABLE 



TYPERR 


02416 


TKRGHT 


17912 


T0ATA7 


03382 


T0ATA6 


03372 


T0ATA5 


03362 


SLT2N0 


17642 


SLTPT2 


17117 


SLTPTl 


1743B 


RETURN 


02411 


RCOMRK 


17941 


PTSLCT 


02416 


M0N1TR 


02406 


LNCKR2 


17906 


LINKLC 


17935 


LINCIR 


02416 


LCN0N1 


02416 


INTERC 


17951 


GETPT2 


17726 


GETPT1 


17498 


FILSYM 


17774 


ERROR* 


17878 


ERR0R2 


17854 


ERR0R1 


17830 


OSASLT 


17019 


0SALR2 


17201 


0SALN2 


17169 


OSALNC 


17071 


OSACIR 


16967 


CIRCIR 


02416 


BRl 


18041 


C0DE1 


17065 


C00E2 


17163 


OIST 


17233 


EQUAL 


17234 


IAT1 


07731 


L 


17951 


MR2 


17961 


S 


18051 


SLOPE 


17961 


SQRTF 


02416 


SYMB1 


04289 


SYMB5 


04315 


SYMB6 


04325 


XA 


17961 


XB 


17981 


XPICK 


18001 


XPIC1 


18021 


XPIC2 


18001 


YA 


17971 


YB 


17991 


YPICK 


16011 


YPIC1 


18031 


YPIC2 


18011 











01010* 












01020* LINE OEFPRE FORM 2665 SUBPROGRAM (WHEN MODIFIERS 


ARE EQUAL) 


01030* LINKAGE - BT EQUAL, OIST 


,6 






01040* 


EQUAL IS EQUIVALENT 


TO -2416 






01050* 


CALLS TYPERR, SQRTF, 


CIRCIR, PTSLCT, LCNONl. 


AND LINCIR. 


01060* 












01070 


DORG 


16962 




16962 




01080 


OC 


50,0 




17011 


00050 


01090 


DORG 


*-49*5*10-6 




17006 




01100 


NOP 


YB,0 




17006 


41 17991 00000 


Oil 10 


OORG 


«-2i 




16996 




01120 


NOP 


YApXB 




16996 


41 17971 17981 


01130 


DORG 


•-21 




16986 




0U40 


NOP 


L,XA 




16986 


41 17951 17961 


01150 


OORG 


•-21 




16976 




01160 


NOP 


T0ATA5 , T0ATA6 




16976 


41 09362 03)72 


01170 


OORG 


•-21 




16966 




ouao 


NOP 


TDATA6*5l.T0ATA7*5l 


16966 


41 0342) 03433 


01190 


DORG 


•-14 




16963 




01200 OSACIR 


OSA 


TDATA5+51 




16967 


00005 -3413 


02010 


OORG 


•♦5*10-**5«10-4 




17057 




02020 


NOP 


YPICK,0 




17058 


41 18011 00000 


02030 


OORG 


•-21 




17048 




02040 


NOP 


TDATA4«-51, XPICK 




17048 


41 03423 18001 


02050 


DOUG 






17038 




02060 


NOP 


TDATA6»T0ATA9#5l 




17038 


41 03372 03413 


02070 


OORG 


®-21 




17028 




02080 


NOP 


VB»TOATAS 




17028 


41 17991 03362 


02090 


OORG 


•-21 




17018 




02100 


NOP 


YA, XB 




17018 


41 17971 17981 


02110 


nmc 






17015 


00005 J 7961 


02120 OSASLT OSA 


XA 




17019 


02130 


OORG 


•♦5* 10*4 




17065 


00001 


02140 C00E1 


OSC 


wo 




17065 


esiso 


0QHG 


•♦$•9-11 




17099 


41 lTttl 17991 


02160 


NOP 


Xfi,Y8 




17100 


02170 


DORG 


•-21 




17090 


41 17961 17*71 


02180 


NOP 


XA.VA 




17090 


02190 


OORG 


•-21 




17080 




02200 


m? 


TDA7A6.TDATA7 




17080 


41 03)72 03SB2 


03010 


OORG 


•-21 




17070 




0S©«» 


NOP 


BR I , TOAT AS 




17070 


41 I 8041 033*2 


03030 


OORG 


•-14 




17067 




010*0 OSALNC 


OSA 


mi 




17071 


00003 J 7961 



PAGE 1 



03050 




0015 Q 


# ♦ 5 • 4 ♦ 5 a \ 0** 6 








17156 








05040 




N05» 


VPiCKtO 








17156 


41 


1801 1 


AflfiOO 

UVIvwtf 






o&ao 


•-21 








17146 








03910 






T0A?&6tl9>ICK 








17 146 


41 


03371 


18001 


01310 














17136 








03100 




MOP 


YPI€KtT0A?A9 








17136 


41 


1801 1 


03362 


031 10 




oo*6 










17126 








03120 




HOP 


Y6,XPICK 








17126 


41 


17991 


18001 


03130 




QQZO 


••21 








17116 








03140 




NOP 


YA»XB 








17116 


41 


17971 


17981 


03|50 




OCSG 


•—14 








i 1 113 








03260 


SLTPT2 OSA 


XA 








17117 


0000$ J7961 


031 70 




DOUG 


•♦5*10*4 








1?163 








03100 


C00E2 


DSC 


t#o 








17163 


oooo I 




03190 




DOfcG 


•♦5*6—6 








17187 








o#2oo 




NOP 


Iff T cM* f v 








If l#H 


41 


S7%ftl 


OQQQO 


040 10 




DISRG 


•*»2 1 








17178 








040 20 




NOP 










17178 


41 


18011 


17961 


04030 




OORG 


•—21 








17 168 








04040 




NOP 










17 168 


41 


18031 


18001 


04050 




OORG 


•—14 








17165 










0SALN2 


OSA 


XPIC 1 








17 169 


00005 J8021 


04070 




OORG 


•♦5»6— 4*5«6— 6 








17219 








04030 




NOP 










17220 


41 


17951 


00000 


04090 




OORG 


•—21 








17210 








04100 




NOP 


VP If K * St f)f>F 








17210 


41 


18011 


17961 


04110 




OORG 


•— 21 








17200 








04120 




NOP 


TDATA60WXPICK 








17200 


41 


03423 


18001 


04130 




OORG 


•-14 








17197 








04140 


0SALR2 


OSA 


T0ATA5*51 








f Z?«i 


00005 -3413 


041 SO 




OORG 


•♦5*6-4 








17227 








04160* 




















04170* 


PROGRAM ENTRY 
















041 SO* 


SOLUTION FOLLOWS FOR WHEN 


MODIFIERS ARE EQUAL 










04190 




OS 


2 










00002 




04200 


OIST 


OC 


5,0 










00005 




05010 


EQUAL 


TFL 


S. OIST, 11 








17234 


06 


18051 


1723L 


05020 




TFL 


L.T0ATA7*5l 








17246 


06 


17951 


03433 


05030 




FSU8 


L, T0ATA7, » 


L»R2-R1 








02 


17951 


03332 


05040 




FMUL 


L.L., 


L*fR2-Rl)**2 




17270 


03 


17951 


17951 


05050 




FMUL 


s.s 








17282 


03 


18051 


18051 


05060 




FSUB 


StLtt S«DIST**2 


-f R2-Rl)**2 




17294 


02 


18051 


17951 


05070 




8NH 


ERR0R2, , 9 


GEOMETRIC 


AMBIGUITY 


17306 


47 


17854 


01100 


05080 




8TM 


MONITR, 2000.67 








17318 


17 


02400 


-2000 


05090 




BTM 


SQRTF,S,47, 


S»SQRTF(0IST**2 


«CR2-Rll**2) 






















17330 


17 


02410 


J8051 


05100 




FMUL 


StS 








17342 


03 


18051 


18051 


05110 




TFL 


L,S, t 


L«S**2 






17354 


06 


17951 


18051 


05120 




TFL 


0XST,T0ATA7,6 








17366 


06 


1723L 


03302 


05130 




FMUL 


0XST,DIST t 6ll, 


DIST«R1**2 




17378 


03 


1723L 


17231 


05140 




FAOO 


L, OIST, 11 








17390 


01 


17951 


1723L 


05150 




8TM 


SQRTF ,Lt 67 * 


L-SQRTF(S**2*R1**2> 


17402 


17 


02410 


J7951 


05160 




BT 


MOMI TR,LNCKR2*5,6 








17414 


27 


02400 


179U 


05170 




BT 


CIRCIRtOSACIR*4St6t 


OBTAIN POINTS A 


ANO 


B ON C2 






















17426 


27 


02410 


17012 


05180 


SLTPT1 


BNR 


ERR0R4,79 








17438 


45 


17878 


00079 


05190 




CM 


IAT1,24«610 V 


CHECK FOR 


RIGHT 


MODIFIER 






















17450 


14 


0773J 


00OK4 


05200 




BE 


TKRGHT 








17462 


46 


17912 


01200 


06010 




CM 


IATl t 8.6l0t 


CHECK FOR 


LEFT 1 


MODIFIER 









PAGE 3 











17474 


14 0773J 


000-8 


06020 




BNE 


ERRORl 


17486 


47 17830 


01200 


06030 


GETPTl 


BTM 


KONITR, 03600, 67 


17498 


17 02400 


-3600 


06040 




BT 


PT$LCT,0SASLT*46,6t 


PICK POINT A OR B ON C2 














17510 


27 02410 


17065 


06050 




TFL 


XPlCl»XPICK tt 


STORE X ANO Y COORDINATES 














17522 


06 18021 


18001 


06060 




TFL 


YPICl.YPICK, , 


IN XPICl ANO YPIC1 17534 


06 18031 


1B0U 


06070 




BTM 


MONITR, 2120,67 


17546 


17 02400 


-2120 


06080 




BT 


LCN0Nl»0SALR2*25 9 6t 


GET SLOPE ANO INTERCEPT OF LINER2 












17558 


27 02410 


17226 


06090 




TFL 


S, SLOPE 


17570 


06 18051 


17961 


06100 




FMUL 


S, TOATAS, t 


S-MR2IH1) 17582 


03 18051 


03362 


06110 




TFL 


BRWT0ATA6 


17594 


06 18041 


03372 


06120 




FSUB 


BRl,S, t 


BR1»K1-MR2(H1) 17606 


02 18041 


18051 


06130 




BT 


MONITR, LINKLC^5,6 


17618 


27 02400 


17940 


06140 




BT 


LINCIR,DSALNC*40t*t 


GET POINT A ANO B ON Cl 














17630 


27 02410 


171U 


06150 


SLT2N0 


BNR 


ERR0R4,79 


17642 


45 17878 


00079 


06160 




SM 


IATl,42 


17654 


12 07731 


-0042 


06170 




CM 


IATl,24»610t 


CHECK FOR RIGHT MODIFIER 












17666 


14 0773J 


00OK4 


06180 




BE 


GETPT2 


17678 


46 17726 


01200 


06190 




CM 


IATl.8,610, 


CHECK FOR LEFT MODIFIER 












17690 


14 0773J 


000-8 


06200 




BNE 


ERR0R1 


17702 


47 17830 


01200 


07010 




TOM 


C00E2tl»t 


PUT DIGIT ONE IN C00E2 FOR LEFT 








17714 


15 17163 


0000 1 


07050 


GETPT2 


BTM 


MONITR, 03600t67 


17726 


17 02400 


-3600 


07030 




BT 


PTSLCT,SLTPT2^46,6, 


PICK POINT A OR B ON Cl 














17738 


27 02410 


17163 


07040 




BTM 


MONITR, 2120,67 


17750 


17 02400 


-2120 


07050 




BT 


LCN0Nl,DSALN2*25,* t 


GET SLOPE ANO INTERCEPT OF OESIREO 










17762 


27 02410 


17194 


07060 


PILSYM 


TFN 


SYNBl,41,8, 


17774 


16 04289 


0-041 


07070 




TFL 


SYMB5, SLOPE tt 


FILL IN SYMBOL TABLE 17786 


06 04315 


17961 


07080 




TFL 


SYMB6.1NTERC 


17793 


06 04325 


17951 


07090 




TO 


$YMB6*1,RCDMRK 


17810 


25 04326 


17941 


07100 




67 


RETURN, ,6, 


EXIT PROGRAM 17022 


49 024U 


00000 


07110* 








17 02400 




07120 


ERROR 1 


BTM 


MONITR, 03090, 67 


17830 


-3090 


07130 


BTM 


TYPERR,101,67, 


INCORRECT STATEMENT 17842 


17 02410 


-0301 


07140 


ERR0R2 


BTM 


HONSTR,0S©90»67 


17854 


17 02400 


• 3090 


07150 


BTM 


TYP6RR,314,67, 


17866 


17 02410 


-0314 


07160 


ERR0R4 


BTM 


MONITR, 03090,67 


17878 


17 02400 


-3090 


07170 


§TM 


TYPERR»»UtA7» 


ERRONEOUS DATA 17890 


17 02410 


-0316 


071 tO* 












onto 


LNCKR2 


OSA 


aTPTi 


17906 


00003 J7438 


07100 


DSC 


St207l 


17907 


00005 




08010 


TKRGHT 


TOW 


cooaut » 


PUT OIGIT ONE IN CODE I FOR RIGHT 




17912 


15 17065 


00001 


08020 




07 


G*TPTX,»f 


MODIFIER 17924 


49 17491 


00000 


06010 


LI MRU 


OSA 


SLT2ND 


17935 


00009 J7642 


0@040 




OSC 


9, 20*1 


17936 


00005 






ICOKftK 


DC 


it* 


17941 


00001 






L 


OC 


iOtO 


17951 


00010 




OSS70 


XA 


OC 


iO»0 


I7f*l 


00010 




OBSiO 


VA 


ec 


10*0 


17971 


SGQIO 






n 


cc 


10*0 


tmi 


eo&io 








u 


10*0 


1799 1 


009 10 





70 



081 10 


XPICK 


DC 


10,0 






18001 


00010 


08120 


YPICK 


DC 


10,0 






18011 


00010 


08130 


SLOPE 


OS 


0*XA 






17961 


00000 


08140 


INTERC 


OS 


0,L 






17951 


00000 


08150 


XPIC1 


OC 


10tO 






18021 


00010 


08160 


YPICi 


DC 


10*0 






18031 


00010 


08170 


XPIC2 


OS 


O.XPtCK 






18001 


00000 


08180 


YPIC2 


OS 


0, YPICK 






18011 


00000 


08190 


MR2 


OS 


0, SLOPE 






17961 


00000 


08200 


8R1 


DC 


10*0 






18041 


00010 


09010 


S 


OC 


10,0 






18051 


00010 


09020* 














09030 




OS 


to,, 


PILL LAST 


SECTOR 


18061 


00010 


09040* 


THESE 


ARE EQUATES 


FOR AREAS IN COMMON 


WITH 


SYSTEM 




09050 


IAT1 


DS 


0,7731 






07731 


ooooo 


09060 


SVHB1 


OS 


0,4289 






04289 


00000 


09070 


SYMB5 


DS 


0,4315 






04315 


ooooo 


09080 


SYMB6 


DS 


0,4325 






04325 


ooooo 


09090 


T0ATA5 


DS 


0,3362 






03362 


ooooo 


09100 


T0ATA6 


DS 


0,3372 






03372 


ooooo 


09U0 


T0ATA7 


OS 


0,3382 






03382 


ooooo 


09120 


MONITR 


DS 


0,2406 






02406 


ooooo 


09130 


RETURN 


DS 


0,2411 






02411 


ooooo 


091*0 


TYPERR 


OS 


0,2416 






02416 


ooooo 


09150 


SQRTF 


OS 


0,2416 






02416 


ooooo 


09160 


CIRCIR 


DS 


0,2416 






02416 


ooooo 


09170 


PTSLCT 


OS 


0,2416 






02416 


ooooo 


09180 


LCN0N1 


DS 


0,2416 






02416 


ooooo 


09190 


LINCIR 


OS 


0.2416 






02416 


ooooo 


09200* 














10010 




DENO 


EQUAL 






17234 





TYPERR 02416 
RETURN 02411 
GET603 16774 
DSAl 17149 
0SA6 17199 
FORM 07712 
SYMB6 04325 



T0ATA6 03372 
RCOMRK 17261 
GET153 16814 
0SA2 17159 
ERROR 166S4 
GET21 16678 
SYMB7 04335 



SYMBOL TABLE 

TDATA5 03362 
PACKGE 16962 
GETTAN 16754 
0SA3 17169 
FM155 16994 
IATI 07731 
TANTO 16698 



T0ATA4 03352 
MONITR 02406 
CUMBAK 16986 
DSA4 17179 
FM255 16834 
SYMBl 04289 



STORXY 16914 
GET617 16794 
CIRCLE 16462 
DSA5 17189 
FM63 16878 
SYMB5 04315 



OiOiQ* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100 

Oil 10 CIRCLE 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 
02010 



CIRCLE DEFPRE SUBPROGRAM MAINLINE 
LINKAGE - BT MONI TR«0SAL8L*5 
B CIRCLE 

OSALBL IS ADDRESS OF RETURN 

0SALBL+4 IS AODRESS OF DIM NO. 

DSALBL+5 IS ADORESS OF ERASABILITY INOICATOR 

CIRCLE IS EQUIVALENT TO -2414 

CALLS TYPERR 

OORG 16462 1**62 
DETERMINE 



02020 
02030 

02040 
02050 
02060 

02070 ERROR 
02080 

02090 GET21 
02100 

02110 TANTO 
02120 

02U0 

02140 

02150 

02140 GETTAN 
02170 

02180 GET603 

02190 

0*2-03 66T417 



CM 
BE 
CM 
BE 
CM 
BE 
CM 
BE 
CM 

BE 
CM 

BE 
CM 

BE 

CM 

BE 

BTM 

&TM 

BT 
87 
AM 
CM 



FORM, 255,8* 
FM255 
FORM, 63, 8, 
FM63 

FORM, 155,8, 

FM155 

FORM,21,0, 

GET21 

FORM, 2459, 8, 
TANTO 

FORM, 2603, 8, 

GET603 
FORM, 617, 8, 

GST617 
FORM, 153,8 

&EU53 

-MONITR, 03090 
-TYPERR, 301, t 

-MONITR* DSAl* 5 

-2416 
IAT1*I2*10 

-6671,27, 10, 



WHICH 



FORM ANO 



BRANCH TO 



16462 


14 


07712 


0-255 


16474 


46 


16834 


01200 


16486 


14 


07712 


0-063 


16498 


46 


16878 


01200 


16510 


16 


07712 


0-155 


16522 


46 


16994 


01200 


) 16534 


14 


07712 


0-021 


16546 


46 


16678 


01200 


;all 








16558 


14 


07712 


0K459 


16570 


46 


16698 


01200 


APPROPRIATE 




16582 


14 


07712 


OK 60 3 


16594 


46 


16774 


01200 


ROUTINE 




16606 


14 


07712 


0-617 


16618 


46 


16794 


01200 


16630 


14 


07712 


0-153 


16642 


46 


16814 


01200 


16654 


17 


02400 


-3090 


301 








16666 


17 


02410 


-0301 


16678 


27 


02400 


17154 


16690 


49 


02410 


OOOOO 


16698 


11 


07731 


000J2 


1439 STATEMENTS SO 


16710 




0773J 


000K7 



BE G€TTAN»*t 

BT -M0NITR*DSA2*5»* 



-2416 

-ttONITa*0SA3*S*« 

-2416 

-W0H1TR,DSA4*5,* 

-2416 

-M3NITR*0SA§*5*» 

-2414 



OC TERMINI WHICH ROUTINE TO CALL BY 

16722 44 16754 01200 
CHECKING FIRST It, f HE NT FOR TANTO 

16734 27 02400 17164 

16746 49 02410 OOOOO 

CALL 16754 27 02400 17174 

16766 49 02410 OOOOO 

14774 27 02400 17184 

147S6 49 02410 OOOOO 

16794 27 02400 17194 

16606 49 02410 OOOOO 



APPROPRIATE 
ROUT INC 



71 



PAf.f I 

03020 CCT1S1 »T ~K0NITR.0SA6*5et FROM PUS 











16314 


27 


02400 


17204 




SI 


-2416 




16826 


49 


02410 


00000 


03040* Mi 


■ v. 


I, AND ft GIVEN 












05050 FM299 


AM 


UTi.54,10, 


SET I ATI TO RAOtUS 


16834 


11 


07711 


000N4 


03060 


7FL 


SYK8?*~UTlt# 


GET RADIUS 


16946 


06 


04555 


077SJ 


03070 


SH 


IATi.54.10 




16858 


12 


07711 


000N4 


03080 


87 


STORXV 




16870 


4$ 


16914 


00000 


03090* CANONICAL FOAM 












03100 FN63 


AM 


IAT1. 40.10 * 


SET T 1ATI TO RADIUS 


16878 


tl 


07711 


OOOMO 


03110 


TFL 


SYMB7t*lA?lcft 


GET RADIUS 


16890 


06 


04114 


077SJ 


03120 


SM 


IAT1.40.10 




16902 


12 


07711 


OOOMO 


03130 STORXY 


AM 


IAT1.12.10* 
SYMBS.-tATl 


GET X COORDINATE 


16914 


11 


07711 


000J2 


03140 


TFL 






06 


04119 


ottU 




AM 


IATI,14,10, 


GET V COORDINATE 


tmt 


*l 


07711 


00044 










«* 




l f ilf 


03170 lAftill 




SY«Bl,SU8, 


PACKAGE UP SYMI f ABLE 


16962 


16 


04289 


0*091 


03180 


TO 


SYMBTU.RCDMRK 




16974 


25 


04116 


17261 


03190 CUM8AK 


67 


-RE TURN 1 . « 


EXIT PROGRAM 


16966 


49 


0241 J 


00000 


03200* 
















04010* CENTER 


POINT ANO RAO 1 US 


GIVEN 










04020 FM155 


CM 


TDATA4.9.10, 


CHECK FOR POINT AS CENTER 
















16994 


14 


03352 


000-9 


04030 


ONE 


ERROR 




17006 


47 


16694 


01200 


04040 


AM 


IAT1.12 




17018 


11 


07731 


-0012 


040 SO 


CM 


IAT1.2.610. 


CHECK FOR CENTER MODIFIER 
















17030 


14 


0773J 


000-2 


04060 


ONE 


ERROR 




17042 


47 


16654 


01200 


04070 


AM 


IAT1.28 




17054 


11 


07731 


-0028 


04080 


CM 


IAT1.23.610t 


CHECK FOR RAOIUS MODIFIER 
















17066 


14 


0773J 


000K1 


04090 


BNE 


ERROR 




17078 


47 


16654 


01200 


04100 


AM 


I ATI, 14, 10, 


GET RAOIUS 


17090 


11 


07731 


O00J4 


04110 


TFL 


SYMB7.-IATI 




17102 


06 


04335 


0773J 


04120 


TFL 


SYMB5.T0ATA5. • 


GET COORDINATES OF CENTER 
















17114 


06 


04315 


03362 


04130 


TFL 


SYMB6,T0ATA6 




17126 


06 


04325 


03372 


04140 


B7 


PACKGE 




17138 


49 


16962 


00000 


04150* 
















04160 0SA1 


DSA 


CUM8AK 




17149 


00005 J698* 


04170 


OSC 


5.03381 




17150 


00005 




041 aq 6SA2 


DSA 


CUM8AK 




17159 


00005 J6986 


04190 


DSC 


5.03401 




17160 


00005 




04200 0SA3 


OSA 


CUM3AX 




17169 


00005 J6986 


09010 


OSC 


5.03391 




17170 


00005 




05020 0SA4 


OSA 


CUMOAK 




17179 


00005 J6986 


05030 


DSC 


5.03411 




17180 


00005 




05040 0SA5 


OSA 


CUMSAK 




17189 


00005 J6986 


0S050 


OSC 


5.03421 




17190 


00005 




05060 0SA6 


OSA 


CUM8AK 




17199 


00005 J6986 


05070 


DSC 


5.03431 




17200 


00005 




05080* 
















05090 


DS 


56., 


FILL LAST SECTOR 


17260 


00056 




05100* THESE ARE 


EQUATES FOR AREAS IN COMMON WITH SYSTEM 










05110 FORM 


OS 


0.7712 




07712 


00000 




05120 IAT1 


DS 


0.7731 




07731 


00000 




05130 SYMBl 


OS 


0.4289 




04289 


00000 




05140 SYM85 


DS 


0.4315 




04315 


00000 




05150 SYM86 


OS 


0.4325 




04325 


00000 




051*0 SVMB7 


OS 


0.4335 




04335 


00000 





05170 MONITR 


OS 


0.2406 


02406 


00000 


05180 RETURN 


OS 


0.2411 


02411 


00000 


C5190 T0ATA4 


DS 


0.3352 


03352 


00000 


05200 T0ATA5 


OS 


0.3362 


03362 


00000 


06010 T0ATA6 


OS 


0.3372 


03372 


00000 


G&Q20 TYPERR 


OS 


0.2416 


02416 


00000 


0&030* 










06040 RCOMRK 


DC 


lt« 


17261 


0000 1 


06050 


OENO 


CIRCLE 


16462 





72 



TYPERR 02416 
SECOND 18150 
RCDWRK 18511 
MONITR 02406 
ERR0R2 18274 
8 18360 
DISK 18420 
DSA19 18505 
FOUR 18450 
OK 17742 
SMINB 18410 
STORC 17430 
X1SAV 18470 



T0ATA6 03372 
S8TRCT 17826 
PT2PT3 18009 
LESSER 13370 
ERROR 1 18250 
CC 18370 
OlSTF 02416 
DSA20 18067 
CETB 17802 
PROD 18460 
SMINC 18420 
SYNBl 04289 
X2SAV 18350 



SYMBOL TAHlE 

T0ATA5 03362 
RZERQ2 18061 
PTIPT3 17983 
HOUCUH 18322 
CORECT 18182 
OCRCR 18103 
0SA16 18475 
0SA7 18375 
HALF 18440 
R 18460 
SQRTF 02416 
SYMB5 04315 
Y1SAV 18430 



TDATA4 03352 
R2ER01 18035 
PT1PT2 17957 
FINNSH 16206 
CIRCIR 02416 
OISTA 16400 
0SA17 18485 
0SA8 16385 
IA71 07731 
S 18430 
STORA 17358 
SYHB6 04325 
V2SAV 18360 



PACE 1 



SQUARE 16470 
RETURN 02411 
POINTS 17754 
ERR0R3 16298 
A 18350 
OISTB 18410 
0SA18 18495 
FM21 17262 
MINIF 02416 
SMINA 18400 
STORB 17394 
SYH67 04335 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 



CIRCLE OEFPRE FORM 21 ( THREE POINTS ) ROUTINE 
LINKAGE - BT MONI TRtDSALBL+5 
B FM21 

DSALBL IS AOORESS OF RETURN 

DSALBL*4 IS AOORESS OF DIN NO. 

DSALBL+5 IS AOORESS OF ERASABILITY INDICATOR 

FM21 IS EQUIVALENT TO -2416 
CALLS TYPERR, OISTF* SQRTF, ♦ CIRCIR, ♦ MINIF 



omo 




DORG 


17262 








17262 








01120 


FN21 


CM 


TDATA4,9,10, 


CHECK FOR 


1ST 


POINT 


17262 


14 


03352 


000-9 


01130 




BNE 


ERR0R3 








17274 


47 


18298 


01200 


01140 




CM 


TDATA4+51,9,10, 




2N0 


POINT 


17286 


14 


03403 


000-9 


01150 




BNE 


ERR0R3 








17298 


47 


18298 


01200 


01160 




CM 


T0ATA4H02,9,10, 




3R0 


POINT 


17310 


14 


03454 


000-9 


01170 




BNE 


ERR0R3 








17322 


47 


18298 


01200 


01180 




BT 


-MONITR, DSA7+5 








17334 


27 


02400 


18380 


01190 




BT 


-DISTF,PTlPT2«-20., 


CALCULATE 


A 




17346 


27 


02410 


17977 


01200 


STORA 


TFL 


A, OISTA 








17358 


06 


18350 


18400 


02010 




BT 


-MONI TR,DSA16*5 








17370 


27 


02400 


18480 


02020 




BT 


-OISTF,PT2PT3*20,, 


CALCULATE 


B 




17382 


27 


02410 


18029 


02030 


STORB 


TFL 


B, OISTB 








17394 


06 


16360 


18410 


02040 




BT 


-MONITR, DSA17*5 








17406 


27 


02400 


16490 


02050 




BT 


-OISTF, PT1PT3+20,, 


CALCULATE 


C 




17418 


27 


02410 


18003 


02060 


STORC 


TFL 


CCOISTC 








17430 


06 


18970 


18420 


02070 




TFL 


S,A,, 


AOO A*B*C 






17442 


06 


16430 


16350 


02080 




FAOO 


S,B 








17454 


01 


18430 


18360 


02090 




FAOD 


S,CC 








17466 


01 


16430 


18370 


02100 




FMUL 


S,HALF, V S-l/2(A+B*C) 






17478 


03 


16430 


18440 


02110 




TFL » 


PROD, A,, 


MULT A*B*C 






17490 


06 


18460 


18350 


C2120 




FMUL 


PROD.B 








17502 


03 


18440 


18360 


02130 




FMUL 


PROD.CC PR0D-A*6*C 






17514 


03 


18460 


16370 


02140 




TFL 


SMINA, S 








17526 


06 


18400 


18430 


02150 




TFL 


SMINB, S 








17538 


06 


18410 


18430 


02160 




TFL 


SMINCS 








17550 


06 


18420 


16430 


02170 




FSUB 


SMINA, A 


S-A 






17562 


02 


18400 


18350 


02180 




FSUB 


SMINB, B, , 


S-8 






17574 


02 


18410 


18360 


02190 




FSUB 


SMINC, CC, 


S-C 






17586 


02 


16420 


18370 


02200 




TFL 


SQUARE ,S 








17598 


06 


16470 


18430 


03010 




FMUL 


SQUARE, SMINA 








17610 


03 


18470 


16400 


03020 




FMUL 


SQUARE, SMINB 








17622 


03 


18470 


18410 



03030 
03040 
03050 
03060 
03070 
03080 
03090 

03100 

03110 



FMUL 

BTM 

BTM 

FMUL 

BV 

BXV 

FOIV 

BV 

BXV 



SQUARE , SMINC , , SQUARE- S ( S-A ) ( S-B ) ( S-C > 
-MONI TR, 02000 



17634 03 18470 18420 
17646 17 02400 -2000 



-SQRTF (SQUARE, * TAKE SQUARE ROOT OF SQUARE 17658 17 02410 J8470 



SQUARE, FOUR, 

• ♦12 

• ♦12 

PROD, SQUARE,, 
ERR0R1 , , , 
ERROR 1 , , , 



MULT 6Y 4 



03120 OK 
03130 POINTS 

03140 

03150 
03160 

03170 GETB 
03160 

03190 SBTRCT 

03200 
04010 
04020 
04030 



BNR H0WCUM,79,, 



04040 
04050 
04060 



BT 
BT 
BT 
BT 

FSUB 
BZ 

FSUB 

SZ 

CF 

CF 

BTM 

BT 



04090 

04100* 

04110 
04120 

04130 
04140 

041S0 

04160 PT1PT2 

04170 
041 SO 
04190 
04200 
©5010 

05020 PT1PT3 

05030 

05040 

05050 
01060 
0*3070 

05060 PT2PT3 
Q»UO 



17670 03 18470 16450 

17682 46 17694 01400 

17694 46 17706 01500 
R«A*B*C/4SQRT I SI S-A} (S-B I ( S-C ) 

17706 09 18460 18470 
INDICATES DIVISION BY ZERO 

17718 46 18250 01400 
DIVISOR APPROACHING ZERO 

17730 46 16290 01500 

-N0NITR,DSA6*5 17742 27 02400 18390 

-CIRCIR, DCRCR*45, .OBTAIN INTERSECTIONS OF CIRCLS U/ RAOIUS-R 

17754 27 02410 18146 
THERE ARE NOT TWO INTERSECTIONS 

17766 45 18322 00079 

17778 27 02400 18500 

OBTAIN OISTANCE A 17790 27 02410 16055 

17802 27 02400 18510 

OBTAIN OISTANCE B 17814 27 02410 16081 

SUBTRACT RADIUS FROM BOTH OISTANCES 

17626 02 16400 18460 

17636 46 16162 01200 

17850 02 16410 18460 

17662 46 16150 01200 
MAKE RESIDUALS ABSOLUTE 

17874 13 16398 00000 

17886 33 18408 00000 

17898 17 02400 -2130 
DETERMINE LESSER OISTANCE 

17910 27 02410 18096 
IS IT OISTAIFROM FIRST INTERSECTION I 

17922 02 18370 18400 
YES, TAKE FIRST SET OF COORDINATES 

17994 46 18162 01200 
NO, TAKE SECCNO COORDINATES 

17946 49 11190 00000 



MONITR, DSA18^5,6, 
DISTF,RZER0U20,6, 
MONITR, DSA19^S,6, 
0!STF,RZER02*20,6, 
OISTA, A,, 

CORECT 
OISTB, R 
SECOND 
OZSTA-2,,, 

01STB-2 

MONITR, 2130, 47 
MINIF,0SA20+U,6, 



FSUB LESSER, DISTA,, 
BZ CORECT, # • 
B7 



SECOftOtti 



OQAG e*9*5-ll 

NOP TDATA6«il,0!8TA 

ooas *-2i 

NOP TDATA4,T0ATA5*51 

DORG *-l4 

DSA TDATA5 

OmQ •♦5*S-4*5»5-it 

NOP TDATA4M02.DISTC 

DORG »-2l 

NO? TOATA6,TOATA5*I02 

DORG e-14 

DSA T0ATA5 

00»S •♦9*§-4^§*»-li 

NOP T0ATA4*102,DISTB 

DCmG *-21 

NOP TOAT A6*5 1 , T0ATA5M02 

DOS 6 *-14 

DSA T0A7AS*5l 

OC*C •♦S*5-4^5*9-H 

NOP T0ATA6*102,0ISTA 

DOUG »-ti 



17964 
17966 
17956 
17956 
17953 
17957 
17992 
17992 
17982 
17902 
17979 
17963 
18018 
16018 
18008 
16003 
16005 
18009 
16044 
16044 
16034 



41 01423 16400 
41 01172 01411 
00005 -1142 
41 01474 16420 
41 01172 01444 
00005 •3142 
41 01474 16410 
41 01421 01444 
00009 -1411 
41 01474 16400 



PAGE 3 



2"« *M 






VI Sill. TfllTKiL « M« 






13034 


41 


16410 


01464 


0&» 30 






*** 14 














Of! SO 


RXERul 




X I SAV 






13035 


OOOOS J6470 














16070 








05160 




NCSP 








16070 


41 


01474 


16410 


051 70 






•"•2 1 






18060 








051 80 






i4i«t| (Bill A3* |0< 






18060 


41 


18160 


01464 






hear 
DWG 


•*™14 






18057 








05200 


R2eR02 


OSA 


X2SAV 






18061 


OOOOS J8150 


06010 




OORG 


•♦5*3— 4*5*3- 11 






18086 








06020 




NOP 


DlSTB»lE$SER 






18086 


41 


16410 


18170 


06010 




OORG 


•-14 






10083 








06040 


0SA20 


OSA 


OISTA 






18087 


00005 J 8400 


06030 




OORG 


.•♦S»3-4 






18098 








06060 




OlC 


It 6 






18098 


00001 




060 TO 




OORG 


•♦5*10-6 






18142 








06090 




NOP 


V2SAV.0 






16142 


41 


18160 


00000 


06090 




OORG 


•-21 






18112 








06100 




NOP 


YISAV.X2SAV 






16132 


41 


18410 


18150 


061 10 




OORG 


•-21 






18122 








06120 




NOP 


RtXISAV 






18122 


41 


16460 


18470 


061 10 




OORG 


*-2l 






18112 








06140 




NOP 


T0ATA5«S1,T0ATA6*51 




18112 


41 


01411 


01421 


06190 






•-21 






16102 








06160 




NOP 


T0ATA6tR 






18102 


41 


0)172 


18460 


06170 




OORG 


•-14 






18099 








06180 


DCRCR 


OSA 


T0ATA5 






18101 


00005 -1162 


06190 




OORG 


•♦5*10-4 






18149 








06200* 


















07010 


seeoNO 


TFL 


SYMB5,X2SAV,, 


USE OTHER INTERSECTION 


FOR H»K 


















18150 


06 


04115 


10350 


07020 




TFL 


SYMB4,Y2SAV,, 






18162 


06 


04125 


18360 


07010 




87 


FINNSH 






18174 


49 


18206 


00000 


07040 


CORfCT 


TFL 


SYMB5,X1SAV« » POINT ASSUMED IS N»K 




18162 


06 


04115 


18470 


07050 




TFL 


SYK86,Yl$AV 






18194 


06 


04325 


18430 


07060 


PINNSH 


TFL 


SYW37.R 






18206 


06 


04115 


18460 


07070 




tfm 


SYNtU,51,8 






18218 


16 


04289 


0-051 


07080 




TO 


SYNB7-f ltRCONRK 






18210 


25 


04116 


18511 


07090 




87 


-RETURN, • * 


EXIT PROGRAM 




18242 


49 


0241J 


00000 


07100» 


















07110 


ERRORl 


BTM 


-NON I TR, 03090 






18250 


17 


02400 


-1090 


07120 




BTM 


-TYPERR#302,, 1 


POINTS LIE ON ONE 


LINE 


18262 


17 


02410 


-0302 


07110 


ERR0R2 


BTM 


-NQNIT&, 03090 






18274 


17 


02400 


-3090 


07140 




BTM 


-TYPEAR,)03», CALCULATED RADIUS IS 


WRONG 


16286 


17 


02410 


-010) 


07150 


ERROR! 


BTM 


-NONITR, 01090 






18298 


17 


02400 


-1090 


07160 




BTM 


TVPERR, 101,47, 


INCORRECT STATEMENT 


18110 


17 


02410 


-0)01 


07170 


HOWCUM 


BO 


CORECTit • 


CHECK FOR JUST 


ONE INTERSECTION 
















18122 


41 


18182 


00000 


071 ao 




87 


ERR0R2 






18114 


49 


18274 


00000 


07190* 


















07200 


A 


OS 


10 






16350 


00010 




08010 


3 


OS 


10 






16160 


00010 




06020 


CC 


OS 


10 






18370 


00010 




08010 


0SA7 


OSA 


STORA 






18175 


00005 J7158 


08040 




DSC 


5,2101 






18376 


00005 




08050 


0SA8 


OSA 


P0INTS*12 






18385 


00005 J 7 764 


08060 




DSC 


5,02071 






18306 


00005 




08070 


OISTA 


OS 


10 






18400 


00010 




08080 


01ST8 


OS 


10 






16410 


00010 




06090 


OISTC 


OS 


10 






18420 


00010 





06100 


s 


0$ 


10 


1@430 


00010 




08110 




OC 


0,50000000 


10439 


00008 




08120 


HALF 


OC 


2,0 


1S440 


00002 




08130 




OC 


6,40000000 


18446 


00008 




08140 


FOUR 


DC 


2,1 


16450 


00002 




08150 


PROD 


OS 


10 


1S460 


00010 




08160 


SMI MA 


OS 


0, OISTA 


18400 


ooooo 




06170 


SMIN8 


OS 


OtOISTB 


18410 


00000 




08180 


SMINC 


OS 


0, OISTC 


18420 


ooooo 




08190 


SQUARE 


OS 


10 


18470 


00010 




08200 


R 


OS 


0,PROO 


16460 


ooooo 




09010 


X1SAV 


OS 


0, SQUARE 


16470 


ooooo 




09020 


yisav 


OS 


o,s 


18430 


ooooo 




09010 


X25AV 


OS 


O.A 


16150 OOCOO 




09040 


Y2SAV 


OS 


0,3 


16360 


ooooo 




09050 


LESSER 


OS 


0,CC 


18170 


ooooo 




09060 


DSA16 


OSA 


ST0R8 


18475 


00005 


J 7 394 


09070 




OSC 


5,2101 


18476 


00005 




09080 


0SA17 


OSA 


STORC 


18465 


00005 


J743Q 


09090 


DSC 


5,2101 


18486 


00005 




09100 


0SA18 


OSA 


GETS 


18495 


00005 


J7602 


09110 




OSC 


5,02101 


18496 


OOOOS 


J 782* 


09120 


DSA19 


OSA 


S8TRCT 


16505 


00005 


09130 




DSC 


5,02101 


18506 


00005 




09140 


RCOMRK 


DC 


lt» 


18511 


00001 




09150* 








00050 




09160 




OS 


50,, Fill LIST SECTOR 


16561 




09170* THESE ARC 


EQUATES FOR AREAS IN COMMON WITH SYSTEM 








09180 


IAT1 


OS 


0,7711 


07731 


ooooo 




09190 


SVM81 


OS 


0,4289 


04289 


ooooo 




09200 


SYHB5 


DS 


0.4315 


04115 


ooooo 




10010 


SVM86 


OS 


0,4325 


04125 


ooooo 




10020 


SY2SS7 


DS 


0,4339 


04315 


ooooo 




10030 


MQNITR 


OS 


0,2406 


02406 


ooooo 




10040 


RETURN 


DS 


0,2411 


02411 


ooooo 




10050 


T0ATA4 


OS 


0,3352 


03352 


ooooo 




10060 


T0A7A5 


DS 


Ot 3162 


03362 


ooooo 




10070 


T0ATA6 


OS 


0,3)72 


03372 


ooooo 




100 §0 


TYPEftft 


DS 


0,2416 


02416 


ooooo 




10090 


DISTP 


OS 


0,2416 


02416 


ooooo 




10100 


SORTP 


OS 


0,2416 


0241* 00000 




101 10 


CIRCIR 


0$ 


0,2416 


02416 


ooooo 




10120 


NINIP 


OS 


0,2416 


02416 


ooooo 




101)0* 






17262 






10140 




DEMO 


FM21 







SYMBOL > »atf 



1.0E48 18501 
SfCQNO 16162 
MOM I TR 02*06 
FILSYM 18106 
8RNCH1 18070 
COMPY 18194 
MX 18411 
RZERO 18421 
SYKB6 04325 
XLRG 17954 
YSM 18014 



TYPERR 02416 
RETURN 02411 
MINl.O 18521 
ERR0R9 18274 
B2 18431 
0SA12 18351 
NEG 17586 
SPECL 17686 
SYM87 04335 
XSM 17974 



TDATA6 03372 
RCDMRK 18532 
UNCIR 02416 
ERRORS 18298 
C 18401 
DSA13 18476 
NVERT 17606 
SQRTF 02416 
WHAT 18250 
VINT! 18451 



TDATA5 03362 
ONLINE 02416 
GETPTS 17814 
ER0R10 18322 
CALC2 17766 
0SA14 18486 
ONE 18531 
SYMBl 04289 
XINT1 18441 
YINT2 18471 



T0ATA4 03352 
Ml. £48 16511 
FMTANT 17262 
8RNCH2 18230 
COMPX 18034 
IATI 07731 
POS 17754 
SYM85 04315 
XINT2 18461 
YLRG 17994 





















CIRCLE OEFPRE FORM 


2459ITHRU A PT, GIVEN 


R. « 


TANTO A 


L INE I 




LINKAGE - B FMTANT 










1040* 




FMTANT IS EQUIVALENT TO -2416 










1050» 




CALLS TYPERR* 


SQRTF, LINCIR AND ONLINE 








1060* 
















1070 


DORG 


17262 






17262 






01080 FMTANT 


CM 


TDATA4, 1 • 10, 


CHECK FOR LINE 




17262 


14 


03352 


01090 


BNE 


ERRORS 






17274 


47 


18298 


01 1 00 


CM 


TDATA4+41 ,9,10, 


CHECK FOR POINT 




17286 


14 


03393 


1 1 10 


BNE 


ERRORS 






17298 


47 


18298 


01120 


AM 


IATI, 56 






17310 


11 


07731 


1 1 30 


CM 


IATI, 23, 610, 


CHECK FOR RAOIUS MOOIFI 


ER 
















17322 


14 


0773J 


01140 


BNE 


ERRORS 






17334 


47 


18298 


01150 


TFL 


C.TDATA5 






17346 


06 


18401 


01160 


FMUL 


C,C, 


M»»2 




17358 


03 


18401 


01170 


FAOO 


CONE,, 






17370 


01 


18401 


01180* 


BTM 


-MQNI TR,2000 






17382 


17 


02400 


01190 


BTM 


-SQRTF, C . , 


SQRTF(l*M»»2) 




17394 


17 


02410 


01200 


AM 


IATI, 14,10, 


IATI IS NOW IATl*82 




17406 


11 


07731 


02010 


FMUL 


C-IATW, 


R»SQRTF( UN»t2)«C 




17418 


03 


18401 


02020 


TFL 


MX , TDATA5, , 


PUT SLOPE IN MX 




17430 


06 


18411 


020 30 


FMUL 


MX,TDATA5*4l,, 


Ml»Xl 




17442 


03 


18411 


02040 


TFL 


RZERO, TDATA6*4l 


»« PUT Y IN RZERO 




17454 


06 


18421 


02050 


FSUB 


RZERO,MX,, 


RZER0-Y-M1X 




17466 


02 


18421 


02060 


FSUB 


RZERO, TDATA6, » 


RZER0-Y-M1X-BI 




17478 


02 


18421 


020 70 


CM 


RZERO,-4,10 






17490 


14 


18421 


02080 


BL 


SPECL 






17502 


47 


17686 


02090 


CM 


T0ATA5,49,10t 


TEST FOR VERTICAL 


LINE 


i AND POINT 












17514 


14 


03362 


02100 


BNE 


NEG-12... 


ON THAT LINE 




17526 


47 


17574 


02110 


TFL 


B2,MX,, 


B2-MIX 




17538 


06 


18431 


02120 


FADO 


82.TDATA6., 


B2«MIX*B1 




17550 


01 


18431 


02130 


BZ 


SPECL 






17562 


46 


17686 


02140 


BNF 


POS.RZERO-2., 


IS RO POSITIVE 




17574 


44 


17754 


02150 NEG 


SF 


C-2,,, 


MAKE C NEGATIVE 




17586 


32 


18399 


02160 


B7 


CALC2 






17598 


49 


17766 


02170 NVERT 


TFL 


B2,MIN1.0 






17606 


06 


18431 


02180 


FOI V 


B2 , T0ATA5 






17618 


09 


18431 


02190 


TFL 


TDATA5.B2 






17630 


06 


03362 


02200 


TFL 


C,T0ATA6*4l 






17642 


06 


18401 


03010 


FMUL 


B2,TDATA5*4l 






17654 


03 


18431 


03020 


FSUB 


CB2 






17666 


02 


18401 



000- 1 
01200 
000-9 
01200 
-0056 

C0OK3 
01200 
03362 
18401 
18531 
-2000 
J 8*0 1 
000J4 
0773J 
03362 
03403 
03413 
18411 
03372 
000-M 
01300 

O0OM9 
01200 
18411 
03372 
01200 
18419 
00000 
00000 
18521 
03362 
18431 
03413 
03403 
18431 



03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 

03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
04010 
04020 
04030 
04040 
04050 
04060 
04070 

04080 
04090 

04100 
04110 

04120 
04130 

04140 
04150 



POS 
CALC2 



XLRG 

XSM 

YLRG 

YSM 

COMPX 



87 
FSUB 
BD 
TFL 
TFL 
FMUL 
B7 
CF 
TFL 
TFL 

FAOO 
BT 
BT 
BNR 
SM 
CM 
BE 
CM 
BE 
CM 
BE 
CM 
BE 
B7 
TFM 

B7 
TFM 

B7 
TFM 

B7 
TFM 

B7 
TFL 



CALC2 

TDATA6.TDATA6 

NVERT, TDATA5-9 

T0ATA5,l.0E48, » 

CtMl.E46 

C,TDATA5»41 

CALC2 

C-2,.. 

B2,C, 

RZERO, IATI, 11, 

B2 , T0ATA6, , 
-MONITR,OSA13*5 
-LINCIR, DSA12*40 
WHAT, 79, , 
IATI, 42,10, 
-IATI, 31, 10, 
XLRG 

-IATI, 32, 10. 
XSM 

-IATl.35.10, 

YLRG 

-IATI, 36,10, 
YSM 

ERRORS, • , 

BRNCHl*l.46,lO.SET 

COMPX 

BRNCHl+l .47, 10.SET 
COMPX 

BRNCH2+1. 46*10. SET 
COMPY 

BRNCH2*1,47,10,SET 

COMPY 
C.XINT2,, 



SET SLOPE TO L0E48 



MAKE C POSITIVE 
GET VALUE OF C 



17678 49 17766 00000 

17686 02 03372 03372 

17698 43 17606 03353 

17710 06 03362 18501 

17722 06 18401 18511 

17734 03 18401 03403 

17746 49 17766 00000 

17754 33 18399 00000 

17766 06 18431 18401 



STORE RADIUS FOR LINCIR OSA 

17778 06 18421 0773J 

B2«C*Bl 17790 01 18431 03372 

17802 27 02400 18481 
17814 27 02410 18391 

NOT TWO INTERSECTIONS 17826 45 18250 00079 



IATI IS NOW IATl*40 
IS MODIFIER XLARGE 



FSUB CfXINTl*. 



04170 
04180 

04190 

04200 
C5010 
05020 
05030 
05040 
05050 
05060« 
05070 

05030 
05090 
05100 



BZ 
NOP 



ERORIO 

SECOND. 01100, , USE 



TFL SYMB5. XI NT1 . . 



TFL 
FILSYM AM 
TFL 
TFM 
TO 
B7 



SYMB6. YINT1 
IATI, 42.10. 
SYMB7.-I ATI 
SYMB1.51.8 
SYMB7+1 .RCOMRK 
-RETURN. .» 



17838 12 07731 000M2 
17850 14 0773J OOOLl 
17862 46 17954 01200 
XSMALL 17874 14 0773J 000L2 
17886 46 17974 01200 
YLARGE 17898 14 0773J O0OL5 
17910 46 17994 01200 
YSMALL 17922 14 0773J 000L6 
17934 46 18014 01200 
INCORRECT STATEMENT 17946 49 18298 00000 
SWITCH TO TAKE POINT WITH LARGER X VALUE 

17954 16 18071 000M6 
17966 49 16034 00000 
SWITCH TO TAKE POINT WITH SMALLER X VALUE 

17974 16 18071 000M7 
17986 49 18034 00000 
SWITCH TO TAKE POINT WITH LARGER Y VALUE 

17994 16 18231 000M6 
18006 49 18194 00000 
SWITCH TO TAKE POINT WITH SMALLER Y VALUE 

18014 16 18231 000M7 
18026 49 18194 00000 
STORE XINT2 IN WORK AREA 

18034 06 18401 16461 
COMPARE X VALUES BY SUBTRACTION 

18046 02 18401 18441 
18058 46 18322 01200 
SECONO INTERSECTION IF BRANCH TAKEN 

18070 41 16162 01100 
FIRST INTERSECTION IS CENTER 

18082 06 04315 18441 
18094 06 04325 18451 
18106 11 07731 O0OM2 
18116 06 04335 0773J 
16130 16 04269 0-051 
18142 25 04336 16532 
16154 49 0241 J 00000 



IATI IS NOW IATU82 



EXIT PROGRAM 



SECONO TFL SYMBS.XI NT2. * 

TFL SYMB6.YXNT2 
67 FILSYM 
COMPY TFL C» YINT2. t 

FSUB C.YINTl.. 



SECONO INTERSECTION IS CENTER 

18162 06 04315 18461 
18174 06 04325 18471 
16186 49 16106 00000 

STORE YINT2 IN WORK AREA 

18194 06 16401 18471 

COMPARE Y VALUES BY SUBTRACTION 



FACE I 



















IS. '06 


02 18401 


18451 


05120 




BJ 


ER0R10 










1B218 


46 U322 


01200 


05130 


BRNCH2 


HOP 


SECCftOtOHOO* t use 


SCCChiO 


INTERSECTION 


IP branch TAKEN 




















L8230 


41 18162 


01100 


05140 




B7 


SRWCHl*l2»»e 


TAKE FIRST 


INTERSECTION 






















18242 


49 18082 


00000 


05150 


WHAT 


SN 


IAT1 «42* 10, 


f ATI 


IS 


HQ'4 | AT 1*40 


18250 


12 07731 


000M2 


05160 




BO 


BKrf€H&*l2*7¥* » 


THERE 


HAS 


ONLY ONE 


INTERSECTION 




















18262 


43 18082 


00079 


051 70 


CHHUK9 


BTH 


-MONITR* 03090 










18274 


17 0240O 


-3090 


05ieo 




BTH 


— TYPcKK»306* * 










18286 


17 02410 


-0308 


05190 


ERRORS 


BTH ' 


-HON ITR| 03090 










13298 


17 02400 


-3090 


05200 




BTH 


-TYPERR,301 










18310 


17 02410 


-0301 


06010 


CROftlO 


BTH 


-MONITR* 03090 










18322 


17 02400 


-3090 


06020 




BTH 


-TYPERR*307 










18334 


17 02410 


-0307 


06030* 




















06040 




OORG 


•♦5* 9- H 










18379 






06050 




NOP 


XtNT2tYlNT2 










18380 


41 16461 


18471 


06060 




OORG 


#-21 










13370 






06070 




NOP 


XINTlt YINT1 










18370 


41 18441 


18451 


06080 




OORG 


•-21 










18360 






06090 




NOP 


TDATA6*41,RZER0 










18360 


41 03413 


18421 


06100 




DORG 


•-21 










18350 






06110 




NOP 


B2,T0ATAS*41 










18350 


41 18431 


03403 


06120 




OORG 


•-14 










18347 






06130 


DSA12 


DSA 


TDATAS 










18351 


00005 -3362 


06140 




OORG 


•♦5»9-4 










18392 






06150* 




















06160 


C 


OS 


10 










18401 


00010 




06170 


NX 


OS 


10 










184U 


00010 




06180 


R2ER0 


OS 


10 










18421 


00010 




06190 


02 


OS 


10 










18431 


00010 




06200 


XINT1 


OS 


10 










18441 


00010 




07010 


YINT1 


OS 


10 










18451 


00010 




07020 


XINT2 


OS 


10 










18461 


00010 




07030 


YINT2 


OS 


10 










10471 


00010 




07040 


0SA13 


OSA 


GETPTS*12 










18476 


00005 J7826 


07050 




DSC 


5t02061 










18477 


00005 




07060 


0SA14 


OSA 


CALC2 










13486 


00005 J7766 


07070 




DSC 


5,03491 










18487 


00005 




07080 




OC 


Bt 10000000 










18499 


00008 




07090 


1.0E48 


OC 


2,49 










18501 


00002 




07100 




OC 


6,-10000000 










10509 


00008 




07110 


M1.E48 


OC 


2t49 










18511 


00002 




07120 




DC 


6,-10000000 










18519 


00008 




07130 


MIN1.0 


DC 


2,1 










16521 


00002 




07140 




DC 


8 v 10000000 










13529 


00008 




07150 


ONE 


DC 


2*1 










18531 


00002 




07160 


RCDMRK 


DC 


lt - 










18532 


00001 




07170* 




















07180 




DS 


28,, 


PILL 


LAST 


SECTOR 


18560 


00028 




07190* THESE ARE 


EQUATES FOR AREAS 


IN COMMON 


KITH SYSTEM 








07200 


UT1 


OS 


Of 7731 










07731 


00000 




00010 


SYMBl 


OS 


0,4289 










04289 


00000 




06020 


SYMB5 


OS 


0,4315 










04315 


00000 




00030 


SYMB6 


DS 


0,4325 










04325 


00000 




06040 


SVMB7 


OS 


0*4335 










04335 


00000 




08050 


HONITR 


DS 


0*2406 










02406 


00000 




08060 


RETURN 


OS 


0*2411 










02411 


00000 




08070 


T0ATA4 


OS 


0*3352 










03352 


00000 





00000 T0ATA5 
06090 T0ATA6 
00100 TYPERR 
COUO SQRTF 
OUZO UNCI* 
06150 ONLINE 
08140* 
08150 



0*3362 
0*3372 
0*2416 
0*2416 
0*2416 
0*2416 



OENO PMTANT 



03362 
03372 
02416 
02416 
02416 
02416 



OQOOO 
00000 
00000 
00000 
00000 
00000 



17262 



?6 



SYMBOL TABLE 



YCOORO 16584 
TDATA4 03352 
NOYMDl 18322 
LGNEG2 17946 
CENTER 18034 
81 18534 
UTl 07731 
NEXT 17830 
SVH6S 0431S 



XCOORD 18574 
SMN£C2 17966 
N0XMD2 18242 
FM2459 17262 
BPLUSC 17806 
622 18544 
LGNEG 17742 
ONE 18595 
SYMB6 04325 



TYPERR 02416 
RETURN 02411 
NOXHDl 16174 
ERR0R7 18470 
BPLSC2 18010 
CI 16554 
LOGIC 17610 
SMNEG 17762 
SVM87 04335 



T0ATA6 03372 
RCDHRK 18585 
MONITR 02406 
ERR0R6 17718 
BMINC2 17978 
C2 18564 
HI 18534 
SQRTF 02416 



TDATA5 03362 
N0YMD2 18 390 
LINLIN 02416 
COMPLT 18094 
8MINC 17774 
OSAU 16499 
M2 18544 
SVMBl 04289 



01020* CIRCLE OEFPRE FORM 2459ITANT0 TWO LINES WITH GIVEN RADIUS) 

01030* LINKAGE - B FM2459 

01040* FM2459 IS EQUIVALENT TO -2416 

01050* CALLS TYPERR. SORTF, ♦ LINLIN 

01060* 



01070 




DORG 


17262 




17262 








01080 


FH24S9 


CM 


TDATA4, 1 » 10# 


CHECK FOR FIRST LINE 


17262 


14 


03352 


000- 1 


01090 




BNE 


ERR0R6 




17274 


47 


17718 


01200 


01100 




CM 


TDATA4*4l,l. 


10, CHECK FOR SECONO LINE 


17286 


14 


03393 


000-1 


Oil 10 




BNE 


ERP0R6 




17298 


47 


17718 


01200 


01120 




AM 


IATI, 56,, 


SET POINTER TO RAOIUS 


17310 


11 


07731 


-0056 


01130 




CM 


UTl, 23, 610, 


CHECK FOR RAOIUS MODIFIER 


















17322 


14 


0773J 


O0OK3 


01140 




BNE 


ERR0R6 




17334 


47 


17718 


01200 


01150 




TFL 


jC1,T0ATA5». 


GET SLOPE OF LINE I 


17346 


06 


18554 


03362 


0L160 




FMUL 


Cl,Cl.» 


Ml**2 


17358 


03 


18554 


18554 


01170 




FAOO 


CLONE,, 


l+Ml**2 


17370 


01 


18554 


18595 


01180 




BTM 


-MONITR,2000 




17382 


17 


02400 


-2000 


01190 




BTM 


-SQRTF, Ci,, 


SQRT(l+Ml**2) 


17394 


17 


02410 


J8554 


01200 




AM 


IATl,14,10t 


IAT1IS NOW IATI*82 


17406 


11 


07731 


000J4 


02010 




FMUL 


Cl.-IATl,, 


R *$QRT(1*M1**2>»CI 


17418 


03 


18554 


0773J 


02020 




TFL 


C2,TDATAS*41 


, , GET SLOPE OF LINE 2 


17430 


06 


18564 


03401 


02030 




FMUL 


C2.C2,, 


N2**2 


17442 


03 


18564 


18564 


02040 




FAOO 


C2.0NE.. 


1*N2**2 


17454 


01 


18564 


18595 


02050 




BTM 


-SORTF ,C2,t 


SQRTF C 1>M2»*2) 


17466 


17 


02410 


J8564 


02060 




FMUL 


C2,-IAT1,, 


R*SQRTF(1*M2»*2)-C2 


17478 


03 


18564 


0773J 


02070 




TFL 


Ml, CI,, 


PUT CI ANO C2 IN WORK 


AREA 
17490 


06 


18534 


18554 


02080 




TFL 


M2.C2., 


FOR SUBTRACTION CHECK 


17502 


06 


18544 


18564 


02090 




FSUB 


Ml.IATl.ll, 




17514 


02 


18534 


0773J 


02100 




BZ 


NOXMOl 




17526 


46 


18174 


01200 


02110 




FSUB 


M2, IATI, 11. 




17538 


02 


18544 


0773J 


02120 




BZ 


NOXM02,,, 


CHECK FOR CI OR C2 EQUAL TO RAOIUS 














17550 


46 


18242 


01200 


02130 




CM 


T0ATA5,49,10 




17562 


14 


03362 


00OM9 


02140 




BE 


NOYMOl 




17574 


46 


18322 


01200 


02150 




CM 


T0ATA5+41.49 


,10 


17586 


14 


03403 


00OM9 


02160 




BE 


N0YMD2,,. 


CHECK FOR Ml OR M2 EQUAL TO INFINITY 














17598 


46 


18390 


01200 


02170 


LOGIC 


SM 


IATI,70,10, 


IAT1IS NOW IATU12 


17610 


12 


07731 


OOOPO 


02180 




CM 


-UTl, 35, 10, 


IS MODIFIER YLARGE 


17622 


14 


0773J 


00015 


02190 




BE 


BPLUSC 




17634 


46 


17806 


01200 


02200 




CM 


-UTl, 31, 10, 


XLARGE 


17646 


14 


0773J 


000L1 


03010 




BE 


LGNEG 




17658 


46 


17742 


01200 


03020 




CM 


-UTl, 32, 10, 


XSMALL 


17670 


14 


0773J 


00OL2 



03030 




BE 


SMNEG 




17682 


46 


17762 


01200 


03040 




CM 


-IATl.36,10, 


VSMALL 


17694 


14 


0773J 


00OL6 


03050 




BE 


BMINC 




17706 


46 


17774 


01200 


03060 


ERR0R6 


BTM 


-HON I TR, 03090 




17718 


17 


02400 


-3090 


03070 




BTM 


-TYPERR. 301 




17730 


17 


02410 


-0301 


03080 


LGNEG 


BNF 


BMINC , TDATA5-2,, 


8*C IF SLOPE NEGATIVE 


17742 


44 


17774 


03360 


03090 




B7 


BPLUSC 


B-C IF SLOPE NEGATIVE 


17754 


49 


17806 


00000 


03100 


SMNEG 


BNF 


BPLUSC, T0ATA5-2,, 


17762 


44 


17806 


03360 


03110 


6MINC 


TFL 


B1,T0ATA6,, 


GET B OF LI 


17774 


06 


18534 


03372 


03120 




FSUB 


Bl.Cl,, 


Bl IS Bl-Cl 


17786 


02 


18534 


18554 


03130 




B7 


NEXT 




17798 


49 


17830 


00000 


03140 


8PLUSC 


TFL 


81.T0ATA4., 


GET B OF LI 


17806 


06 


18534 


03372 


03150 




FAOO 


B1,C1,, 


BBl IS B+Cl 


17818 


01 


18534 


18554 


03160 


NEXT 


AM 


UTl, 28, 10, 


IATI IS NOW UTU40 


17830 


11 


07731 


000K8 


03170 




CM 


-UTl, 35, 10, 


IS SECONO MODIFIER YLARGE 
















17842 


14 


0773J 


000L5 


03180 




BE 


8PLSC2 




17854 


46 


18010 


01200 


03190 




CM 


-UTl, 31, 10, 


XLARGE 


17866 


14 


0773J 


OOOLl 


03200 




BE 


LGNEG2 




17878 


46 


17946 


01200 


04010 




CM 


-UTl, 32, 10. 


XSMALL 


17890 


14 


0773J 


0C0L2 


04020 




BE 


SMNEG2 




17902 


46 


17966 


01200 


04030 




CM 


-IATl.36,10, 


VSMALL 


17914 


14 


0773J 


000L6 


04040 




BE 


BMINC2 




17926 


46 


17978 


01200 


04050 




B7 


ERR0R6 




17938 


49 


17718 


00000 


04060 


LGNEG2 


BNF 


8MINC2.T0ATA5*41- 


2,, 8+C IF SLOPE IS 


NEGATIVE 












17946 


44 


17978 


03401 


04070 




67 


6PLSC2 


2,, B-C IF SLOPE IS 


17958 


49 


18010 


00000 


04060 


SMNEC2 


BNF 


8PLSC2»T0ATA5*41- 


NEGATIVE 














17966 


44 


18010 


03401 


04090 


BMINC2 


TFL 


B22,T0ATA6*4l,, 


GET B OF L2 


17978 


06 


18544 


03413 


04100 




FSUB 


B22.C2.. 


622 IS 8-C2 


17990 


02 


18544, 16564 
18634 00000 


04110 




67 


CENTER 




18002 


49 


04120 


6PLSC2 


TFL 


622,T0ATA6»4l,, 


GET B OF L2 


16010 


06 


18544 


03413 


04130 


FAOO 


B22.C2.. 


822 IS 6+C2 


16022 


01 


18544 


16564 


04140 


CENTER 


BTM 


-M0NITR.2050,, 


08TAIN CENTER USING LINLIN ROUTINE 


-2050 








18034 


17 


02400 


04150 




BT 


-LINLIN, 0SA1U25 




18046 


27 


02410 


18524 


04160 




BNR 


COMPLT .XCOORO., 


NO INTERSECTION IF RECORD MARK PRESENT 










18058 


45 


18094 


18574 


04170 




BTM 


-WO* I TR, 03090 




16070 


17 


02400 


-3090 


04180 




BTM 


-TYPERR. 304 




18082 


17 


02410 


-0306 


04190 


COMPLT 


TFL 


SYMRS.XCOOROtt 


COMPLETE SYM6 TABLE 


18094 


06 


04315 


18574 


04200 


TFL 


SY MB 6 # YCOORO 




18106 


06 


04325 


16584 


05010 




AM 


IATl.42.10. 


IATI IS NOW 1AT1*62 


18118 


11 


07731 


000M2 


05020 




TFL 


SVMS7.-IAT1 




18130 


06 


04335 


0773J 


05030 




TFM 


SVM81.51t6 




18142 


16 


04289 


0-051 


05040 




TO 


SVM87U.RC0MRK 




18154 


25 


04336 


18585 


OS0SO 




67 


•RETURN. . • 


EXIT PROGRAM 


18166 


49 


0241 J 


00000 


05060* 












07731 




05070 


MOXMOI 


SM 


IATI .70.10. 


IATI IS NOW IATU+12 


16174 


12 


OOOPO 


0SO6O 


CM 


-UTl, 31,10. 


CHECK FOR X MODIFIERS 


16186 


14 


0773J 


OOOLl 


05090 




BE 


f RR0R7 




18198 


46 


18470 


01200 


05100 




CM 


-UTl, 32. 10. 




16210 


14 


0773J 


C00L2 


05U0 




®E 


ERR0R7 , . 




18222 


46 


18470 


01200 


05120 




67 


L0GIC*12 




16234 


49 


17622 


00000 


05130 


N0XHQ2 


SM 


UTl, 42. 10. 


IATI IS NOW 1AT1*40 


18242 


12 


07731 


000M2 


05140 


CM 


-UTl, 11. 10. 


CHECK FOR X MODIFIERS 


18254 


14 


0773J 


OOOLl 


09150 




BE 


iSftOa? 




16266 


46 


16470 


01200 


OS 160 




CM 


-un.u.io 




16278 


14 


07714 


C0CL2 


09170 




if 


ERROR? 




16290 


46 


16470 


01200 



01*1 so 




SM 


I at i . ? a » l a . 


{ATI IS 




1AT1+12 








OSl 90 




8? 


t r*.fi j r * » 5 

VUil > *<£ 








183*4 


49 17622 




OSJ0O 


NOYMDl 


SM 


i L 't \ « 7 A 1 A 
Inf it fUtlVi 


IAT1 IS 




t At 1*19 


18322 




000P0 


060 10 




CM 




CHECK 


FOB 




18334 


14 0773J 




06020 




8E 












46 18470 




06030 




CM 


— I AT 1 .%A.IA 








18358 




nnni a 


06040 




BE 


ERROR7 








18370 


AA 1 fitTft 


01200 


0^050 




B7 












?> A77«f 


f\rif\nn 

uuuuu 


06060 


N0YM02 


SM 


t IT I .45, Ifl. 


IATI IS 


NOW 


I AT1*40 


18390 






06070 




CM 


• *l I » -S3, IUf 


CHECK 


FOR 


v unmet cat 


18402 


14 0773J 


00OL5 


UOv u w 




BE 


ERROR 7 








18414 


46 18470 


01200 


06090 




CM 


-I ATI ,36*10 








18426 


14 0773J 


000L6 


06100 




BE 


ERROR? 








16438 


46 18470 


01200 


061 10 




SM 


IATI ,28, 10* 


1AT1 IS 


NOW 


I AT1+12 


18450 


12 07731 


000K8 


06120 




B7 


LOGICS 12 








18462 


49 17622 


ooooo 


06130 


ERROR? 


BTM 


-NON I TR,Q3090 








18470 


1? 02400 


•3090 


06140 




BTM 


-TYPtKR»307 








18482 


17 02410 


••0307 


061 SO* 


















06160 




00R6 


•♦5*6—6 








18517 






06170 




NOP 


YCOORD tO 








18518 


41 18584 


ooooo 


06180 




OORG 


•-21 








18508 






06190 




NOP 


oZZ* AfcUURD 








18508 


41 18544 


18574 


06200 




DORG 


•—21 








18498 






07010 




NOP 


Bi» 1 DA 1 A5**;l 








18498 


41 18534 


03403 


070 20 






•— 14 








18495 






07030 


DSAU 


DSA 










18499 


00005 -3362 


07040 




DORG 


•♦5*6—4 








18525 






07050 


Ml 


OS 


10 








18534 


00010 




07060 


M2 


OS 


10 








18544 


00010 




07070 


CI 


OS 


10 








18554 


00010 




07080 


C2 


OS 


10 








18564 


00010 




07090 


81 


OS 


» M !■• 








18534 


00000 




07100 


022 


OS 


0»M2 








18544 


00000 




07110 


XCOORD 


OS 


10 








18574 


00010 




07120 


YCOORD 


OS 


10 








18584 


00010 




07130 


RCONRK 


OC 


1» 1 








18585 


00001 




07140 




oc 


Of lUOOUOOO 








18593 


00008 




07150 


ONE 


OC 


2, I 








18595 


00002 




07160* 


















07170 




OS 


66 1 1 


PILL LAST 


SECTOR 


18661 , 


00066 




07180* THESE ARE 


EQUATES FOR AREAS 


IN COMMON WITH SYSTEM 








07190 


UTl 


OS 


0t773l 








07731 


00000 




07200 


SYMB1 


OS 


t 4289 








04289 


00000 




0B010 


SYMB5 


OS 


0,4315 








04315 


ooooo 




08020 


SYMB6 


OS 


Ot4325 








04325 


00000 




08030 


SYMB7 


OS 


0t4335 








04335 


ooooo 




08040 


MONITR 


OS 


0i2406 








02406 


ooooo 




08050 


RETURN 


OS 


0,2411 








02411 


ooooo 




08060 


T0ATA4 


OS 


Ot 3352 








03352 


ooooo 




08070 


T0ATA5 


OS 


0» 3362 








03362 


ooooo 




08080 


T0ATA6 


OS 












ooooo 




08090 


TYPERR 


OS 


0t*2416 








02416 


ooooo 




08100 


SQRTF 


OS 


0,2416 








02416 


ooooo 




08110 


L I NL I N 


OS 


0*2416 








02416 


ooooo 




08120* 


















08130 




OENO 


FM2459 








17262 







TYPERR 02416 
RPLSA2 17670 
RCOMRK 18338 
FM2603 17262 
0SA14 18129 
IATI 07731 
SYM85 04315 
XLRGE 17834 
YLRGE 18038 



T0ATA7 03382 
RPISRI 17558 
RA07WO 10327 
ERGRll 17502 
0SA15 18332 
MAX IF 02416 
SYM86 04325 
XPTl 18277 
YPT1 18287 



SYMBOL TABLE 

T0ATA6 03372 
RMINR2 17638 
RADONE 18317 
CLEANP 17918 
ERROR 18244 
MINIF 02416 
SYM87 04335 
XPT2 18297 
YPT2 18307 



T0ATA5 03362 
RHINRl 17526 
RADCNO 00018 
CIRCTR 18218 
FIRST 17986 
M002 17570 
WHY 18220 
XSNL 18018 
YSML 18106 



TDATA4 03352 
RETURN 02411 
MONITR 02406 
CIRCIR 02416 
GOON 17682 
SYMB1 04289 
XOSA 16181 
YDSA 18197 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 



CIRCLE PEFPRE FORM 2603 C TAN TO TWO CIRCLES U/ GIVEN R) 

LINKAGE - 8 FM2603 

FM2603 IS EQUIVALENT TO -2416 

CALLS TYPERRt CIRCIR * MAXIF OR MINIF 

17262 

CHECK FOR FIRST CIRCLE 17262 14 
17274 47 

CHECK FOR SECONO CIRCLE 

17286 14 
17298 47 
17310 11 
CHECK FOR TANTO MODIFIER . 

17322 14 
17334 47 
17346 11 
CHECK FOR RADIUS MODIFIER 

17350 14 
17370 47 

NOW IATU110 17382 11 

PUT RADIUS IN RAOONE 17394 06 
AND RAOTWO 17406 06 

INSURE RADIUS IS POSITIVE 

17410 33 
17430 33 
17442 12 
17454 14 
17466 46 

IS FIRST MOOIFIER OUT 17470 14 
17490 46 
17502 17 
17514 17 

RADONS IS R-RC FOR CI 17520 02 
MAKE R ABSOLUTE 17530 33 

17550 49 

RADONS tS R*RG FOR CI 17558 01 
NOW IAT1+S4 I7S70 11 

IS SECOND MOOIFIER IN 17502 14 
17594 46 

IS SECONO MOOIFIER OUT 

1760* 14 
17610 4* 

17630 49 

RAOTWO IS R-RG FOR C2 17630 02 
MAKE R ABSOLUTE 17650 S3 



01070 




OORG 


17262 


01080 


FM2603 


CM 


TDA7A4,2,10* 


01090 




BNE 


ERORll 


01100 




CM 


TDATA4*5l,2,10, 


01110 




BNE 


ERORll 


01120 




AM 


IATI » 12 


01130 




CM 


IATI, 27, 610, 


01140 




BNE 


ERORll 


01150 




AM 


IATI* 04 


01160 




CM 


IATI. 23, 610, 


01170 




BNE 


ERORll 


01180 




AM 


IAT1*14,9,, 1 


01190 




TFL 


RAOONE *-I ATI •» 


01200 




TFL 


RAOTWO, -I ATI t» 


02010 




CF 


RAD0NE-2.** 


02020 




CF 


RADTKO-2 


02030 




SM 


IAT1,64,10, 


02040 




CM 


-IATl,40,lOt 


02050 




BE 


RMINRI 


02060 




CM 


-IATI, 49*10* 


02070 




BE 


RPLSR1 


02080 


ERORll 


BTM 


-MONITR* 03090 


02090 




BTM 


-TYPERR, 301 


02100 


RMINRi 


FSUB 


RADONS * T0ATA7 » t 


02110 




CF 


RA0OME-2*** 


02120 




B7 


M0D2 


02130 


RPLSR1 


FAOO. 


RADONE * TDATA7 • * 


02140 


M002 


AM 


IATt.23,10, 1 


02150 




CM 


-IAU,40,IO, 


02 1 60 




BE 


RMINR2 


02170 




CM 


-IATi.49,10, 


02 1 SO 




BE 


RPLSR2 


cam 




07 


EROS 11 


02200 


RMINR2 


FSUB 


RAOTWOtTOATWf I * , 


0**010 




CP 


RAOTWO-2*** 



03352 000-2 
17502 01200 

03403 000-2 
17502 01200 
07731 -0012 

0773J C00K7 
17502 01200 
07731 -0084 

0773J 0OOK3 
17502 01200 
07731 00-14 
18317 0773J 
18327 0773J 



NOW I AT 1*26 
IS FIRST MOOIFIER IN 



18315 
18325 
07731 
0773J 
17526 
0773J 
17558 
02400 
02410 
10317 
10315 
17570 
10317 
07731 
0T73J 
17630 



OOOOO 
OOOOO 
000Q4 
000M8 
01200 
000M9 
01200 
-3090 
-0301 
03382 
OOOOO 
OOOOO 
03362 
000K8 
0OOM8 
01200 



0773J 000M9 
17670 01200 
17502 OOOOO 
18327 03433 
10325 OOOOO 



PAGE 2 



03020 




BY 


GOON 


17662 49 17682 00000 


03030 


rplsr2 


FADO 


RA0TWQ,T0ATA7*5l»* RADTWO IS R*RG FOR C2 17670 01 18327 03433 


03040 


COON 


BT 


-M0NITR«0SA15«5 17682 27 02400 18337 


03050 




8T 


-CIRCIA*0SA14445** OBTAIN INTERSECTIONS 17694 27 02410 18174 


03060 




BNR 


WWY»79*» 


NOT TUO INTERSECTIONS IF BRANCH TAKEN 










17 7ft A 4% | R?lrt AfiftTQ 

4# fUQ ^7 40C.4CV UUU f v 


03070 




AN 


2AT1.28. 10. 


NOW IAT1*B2 177111 11 OT711 ftnfiKA 


05000 




CM 


-flATl.3L.10. 


IS MfJ&IJEIFft XI ABGF 177tft 1A n771 1 rtnni 1 


03090 




BE 


XLRGE 


mil xx I laji /ii )«A 

lifl* %0 1 fOJS OIZOO 


03100 




CM 


— I ATI . 1> . BO. 
1*1 I fit I tUf 


A)PALL 1 ( (3^ 1* Of f JJ OOOLc 


031 10 




BE 


XSML 


i 71AA1 4a iaaia nt inn 


03120 




CM 


• fATi . it . t n . 

— 1 * 1 If Ivt 


vi abac 1 nil 11 n*r?% 1 nnni c 
ibAKwC if lip I"* 7 73J OOOL7 


031 30 




BE 




I 77an XX lAniA A|)AA 

1 f f TfU *ro 1OU30 01*00 


03140 




CM 




vsmai 1 1 Tiin? ia rt77i 1 nnm A 


03190 




BE 




1 7111 11 iatnx m inn 
1 foit m> ioioo 01200 


03160 




87 


EROR I 1 


1 7D71i An 1 7(1)7 a/iaaa 
lrOcO ^1 I i?U/ OOOOO 


03170 


XLRGE 


TOM 


Xfi^A* 11.7.. 


runn^F i abrfb x uai iic nv ncitar. mavtc BniiTtuc 










17aia 1* into? nnnm 

l TO J7 17 1017( UUVIUf 


03180 




BTM 


-unu i Tft« 7 i 30 


17aaa 17 n?Aftn -71 tn 


03190 




BT 


-MAX IF *X0SA+ll 


17D5A 97 f)74in 1A1Q9 


03200 




FSUB 


CIRCTR. XPTl • . 


IS IT FIRST INT£RS£CTIflN<wAN£VFB FOIIAI Tfl VPT1 










17117(1 ft> 1A71A 1 8977 
1 lolU U£ IOC IO lO( f 1 


04010 




BZ 


FIRST 


17AA? A A 1 7QRA 01907) 
4 f O O c ~ VJ 1 itOO UI£UV 


04020 




TFL 




mi vac icbunu inicn*ct>i tun »a btntLC bcmcK 










17AQ4 flA 71411 •( 1 A7Q7 
I lim UO U7J17 1S(T| 


04030 




TFL 




4v 7UP UO Jc9 lOJUr 


04040 


CLEANP 


AM 


f AT 1 . 7 A . 1ft. 


NDU lATlAllfl 17Q1A 11 717711 ftftftK A 
nuN inii^itu into 11 uifJi uuukb 


04050 




TFL 


C V MR T.-I ATI . . 


CFT BAnillC |7otn rtA n^iic A771 1 


04060 




TFM 


ruytt i ci a 


1 7AA1 ix Aiifla n_nci 
1 7*»*»2 lo 04cOt 0—051 


04070 




TO 




W754 23 0*»J.JO to5Jo 


04080 




87 


_B C Tl IB kl 

Kt 1 UKN* t t 


CXI 1 PROliHAN If Voo *»V 0<£*>1J OOOOO 


04090* 








04100 




AM 


I ATI * 28 * 10 * 


fclftU I1TI*S7 1 7fl7i 1 1 A7771 AAAIft 

NUW iAIi+o/ l7Vf*i 11 Uf rJl UUUKo 


04110 


FIRST 


TFL 


5YW85 f Xr fit* 


etaCT mrcacerTtnki rc r c 11 r c 
rlKJF 1 Nl cKsCti ION 13 LcNlcK 










|7flA< f\ X Alii C 109*19 

1 79U6 06 0*yJl? 1B277 


04120 




TFL 




17000 mx. r\i n c 1 Biai 
lIVHo Do 0*1 5 18297 


04130 




B7 


CLE ANP 


lOOlO *IV ifllo OOOOO 


04140 


XSML 


TOM 


XDSA+1 1 t6t » 


funncc cmi 1 en v 1111 ne nctkir uivrc amiTi ktc 
VnUUst aHALLcK X VALUE UaINU PAXIr KUUlINt 










18018 15 18192 00006 


04150 




B7 


XLRGE* 12 


18030 49 17846 00000 


04160 


YLRGE 


TOM 


YDSA*H»7*» 


CHOOSE LARGER Y VALUE USING MAXIF ROUTINE 










18038 15 18208 00007 


04170 




BTM 


-MQNITR»2130 


18050 17 02400 -2130 


04160 




BT 


-MAXIF *Y0SA*ll 


18062 27 02410 18208 


04190 




FSUB 


CIRCTR»YPT1* » 


IS ANSWER Y VALUE FOR FIRST POINT 










18074 02 18218 18287 


04200 




_ 


FIRST 


18086 46 17986 01200 


05010 




B7 - 


CLEANP-24 


18Q98 49 17894 00000 


05020 


YSML 


Tni* 


YOSA-fl 1*6* * 


CHOOSE SMALLER Y VALUE USING MAXIF ROUTINE 










18106 15 18208 00006 


05030 




87 


YLRGE+12 


18118 49 18050 00000 


05040* 








05050 




OORG 


•♦5*10-6 


18168 


05060 




NOP 


YPT2.0 


18168 41 18307 00000 


05070 




OORG 


•-21 


18158 


05080 




NOP 


YPTUXPT2 


18158 41 18287 18297 


05090 




OORG 


♦-21 


18148 


05100 




NOP 


RADTWO, XPTl 


18148 41 18327 18277 


05110 




OORG 


•-21 


18138 


05120 




NOP 


TOATA5*Sl*T0ATA6*5l 18138 41 03413 03423 



05U0 




OORG 


•-21 




18128 




05140 




NOP 


T0ATA6 tRAOONE 




18128 


41 03372 18317 


05150 




DORG 


•-14 




18125 




05160 


0SA14 


0SA 


T0ATA5 




18129 


00005 -3362 


05170 




DORG 


• ♦5»10-4*5»3-U 




18179 




051S0 




NOP 


XPT2, CIRCTR 




18180 


41 18297 18218 


05190 




DORG 


•-14 




18177 




05200 


XDSA 


0SA 


XPTl 




18181 


00005 J8277 


06010 




OORG 


•♦5*3-4 




18192 




06020 




OS 


1 




18192 


00001 


06030 




OORG 


•♦5*3-11 




18196 




06040 




NOP 


YPT2, CIRCTR 




18196 


41 18307 18218 


06050 




DORG 


•-14 




18193 




06060 


Y0SA 


0SA 


YPTl 




18197 


00005 J8287 


06070 




OORG 


•♦5»3-4 




18208 




06080 




DS 


I 




18208 


00001 


06090 


CIRCTR 


OS 


10 




18218 


00010 


06100* 












06110 


WHY 


CM 


RAOCftO«-5tl0 




18220 


14 00018 000-N 


06120 




8NH 


F1RST-12 




18232 


47 17974 01100 


06130 


ERROR 


BTM 


-MONITR, 03090 




18244 


17 02400 -3090 


06140 




BTM 


-TYP£RRt309 vt NO 


INTERSECTIONS 


18256 


17 02410 -0309 


06150* 












06160 


XPTl 


DS 


10 




18277 


00010 


06170 


YPTl 


OS 


10 




16287 


00010 


06180 


XPT2 


DS 


10 




18297 


00010 


06190 


VPT2 


OS 


10 




18307 


00010 


06200 


RA00NE 


OS 


10 




18317 


00010 


07010 


RAOTU0 


DS 


10 




16327 


00010 


07020 


0SA15 


DSA 


G00N*24 




18332 


00005 J 7 706 


07030 




osc 


5,2071 




10333 


00005 


07040 


RCDMRK 


DC 


I." 




18336 


00001 


07050* 










00022 


07060 




OS 


22t» 


FILL LAST SECTOR 


18360 


07070* THESE ARE 


EQUATES FOR AREAS 


IN COMMON WITH SYSTEM 






07080 


IAT1 


OS 


0»7731 




07731 


00000 


07090 


SYMBl 


OS 


0t4289 




04289 


00000 


07100 


SYMB5 


DS 


0,4315 




04315 


00000 


07110 


SYM86 


OS 


0«432S 




04325 


00000 


07120 


SYMB7 


DS 


0*4339 




04335 


00000 


07130 


M0NITR 


DS 


Of 2406 




02406 


00000 


07140 


RETURN 


OS 


0,24U 




02411 


00000 


07130 


T0ATA4 


OS 


0*1352 




03352 


00000 


07160 


T0ATA5 


OS 






03362 


00000 


07170 


T0ATA6 


OS 


0*3372 




03372 


00000 


07180 


T0ATA7 


OS 


0»1SS2 




03302 


00000 


07190 


TVPERR 


OS 


0*2414 




02416 


00000 


07200 


CIRCIR 


OS 


0*2416 




02416 


00000 . 


08010 


M AS I I s 


OS 


0*2414 




02416 


00000 


08020 


MINIP 


OS 


0*2416 




02416 


00000 


omw 


RADOtO 


OS 


• 18 




00013 


00000 


0S040* 








17262 




030S0 




0EMO 


M2A03 







79 



SVWSQL TABLE 



PAGE I 



TYPfrfiR 


02416 


TOATA? 


03332 


T0&TA6 


03972 


T0A7A5 


03362 


T0A7A4 


03392 


RSTUPsN 


02411 


RCOMRK 


17838 


RADIUS 


17797 


Pf^TCR 


I7701 


MCNITR 


02406 


MINNAX 


17727 


ERRORS 


17764 


ERR0R4 


17740 


CALC 


17466 





17® 17 


OISTF 


02416 


0SA10 


17302 


FM617 


17262 


IA71 


07731 


JAMIT 


17598 


MAXIF 


02416 


NINIP 


02416 


ONLY! 


17654 


*om 


17827 


RTWO 


17837 


SYM3I 


04289 


SYMBS 


04319 


SYM86 


04)25 


SYMB7 


04335 


ZERO 


17846 


OlOiO* 




















01020* 




CIRCLE OEFPRE 


FORM 617ICENTER ♦ 


TANTO A 


CIRCLE) 


ROUTINE 




01030* 




LINKAGE 




FM617 













01040* 
01050* 
01060* 
01070 

01080 FM61T 

01090 

01100 

OHIO 

01120 

01130 

01140 
01150 
01160 

01170 
01160 
01190 

01200 
02010 

02020 
02030 
02040 

02050 CALC 

02060 

02070 

02030 

02090 

02100 

02110 

02120 
02130 

02140 
02150 

02160 JAM IT 

02170 

02180 

02190 

02200 

03010* 

03020 ONLY I 



FM61? IS EQUIVALENT TO -2416 
CALLS TYPERR* OISTF* MINI? OR MAXIF 



DORC 17262 

CM T0ATA4,9,10, 

BNE ERR0R4 

CM TDATA4*5l,2,10, 

BNE ERR0R4 

AM IAT1.12 

CM IATI,2,610, 

BNE ERR0R4 

AM IAT1.42 

CM IATl,27 t 610 f 

BNE ERR0R4 

SM IAT1.14 

CM IAU,26,610* 

BE **36 

CM IAT1»7,610, 



CHECK FOR FOINT 



BNE 

BT 

BT 

TFL 

TFL 

FSUB 

FADO 

CF 

C 

BE 

TO 
BTM 

BT 

TFL 

TFL 

TFL 

TFM 

TO 

B7 



ERR0R4 

-MONITR#DSA10+S 
-OISTF, PTPTCR*20«* 
RONE,0,, 
RTW0,D»» 

R0NE t TDATA7+Sl »t 
RTW0,TDATA7*5i 

RONE-2 

R0NE-2,ZER0,, 
0NLV1,,, 

MINMAX+U, IATl.il 
-MONITR, 2130m 

-MINlF.MINMAXfii** 
SYMB7, RADIUS,, 
SYMB5.TDATA5 
SYMB6,TDATA6 
SYMB1,51,8 
SYMB7* 1 1 RCOMRK 
-RETURN? • t 



17262 
17262 
17274 

CHECK FOR CIRCLE 17286 
17298 
17310 

CHECK FOR CENTER MODIFIER 

17322 
17334 
17346 

CHECK FOR TANTO MODIFIER 

17358 
17370 
17382 

CHECK FOR SMALL MODIFIER 

1739* 
17406 

CHECK FOR LARGE MOOIFIER 

17418 
17430 
17442 

OBTAIN DISTANCE 17454 
PUT DISTANCE IN RONE 17466 



ANO RTUO 
R1IS 0-R 
R2 IS D*R 



17478 
17490 
17502 
17514 

IS POINT ON CIRCLE 17526 
BRANCH IF ONLY ONE SOLUTION 
17538 
17550 

TO TAKE OESIREO RAOIUS 

17562 

SELECT RADIUS 17574 
FILL IN SYMBOL TABLE 17586 
17598 
17610 
17622 
17634 
17646 



EXIT PROGRAM 



14 03352 
47 17740 
14 03403 
47 17740 
11 07731 

14 0773J 
47 17740 

11 07731 

14 0773J 
47 17740 

12 07731 

14 0773J 

46 17442 

14 0773J 

47 17740 
27 02400 
27 02410 
06 17827 
06 17837 
02 17827 
01 17837 
33 17825 

24 17825 

46 17654 

25 17738 

17 02400 
27 02410 
06 04335 
06 04315 
06 04325 
16 04289 
25 04336 
49 0241J 



000-9 
01200 
000-2 
01200 
-0012 

000-2 
01200 
-0042 

0OOK7 
01200 
-0014 

00OK6 
01200 

000-7 
01200 
17807 
17721 
17817 
17817 
03433 
03433 
00000 
17846 

01200 
0773J 

-2130 
17738 
17797 
03362 
03372 
0-051 
17838 
00000 



CM -IATl.26,10, 



SMALL MOOIFIER IS ERROR 

17654 14 0773J 000K6 



05030 




BE 


ERRORS 




03040 




TFL 


SYMQ7»RTU0»» 




03050 




B7 


JAMIT 




03060* 








05070 




DORG 


•♦5*5-11 




03080 




NOP 


T0ATA6*51*D 




03090 




OORG 


•-21 




03100 




NOP 


TDATA6|TDATA5+51 


03110 




DORG 


•-14 




03120 


PTPTCR 


OSA 


T0ATA5 




03130 




OORG 


•♦5»5-4^5»3- 


11 


03140 




NOP 


RTWOtRADlUS 




03150 




DORG 


•-14 




03260 


MINMAX 


OSA 


RONE 




05170 




DORG 


•♦5*3-4 




03180 




DSC 


1*0 




03190* 








03200 


ERR0R4 


BTM 


-MONlTRt 03090 


04010 




BTM 


-TYPERR, 301t 




04020 


ERR0R5 


BTM 


-MONITR.03090 


04030 




BTM 


-TYPERR, 30S 


• • 


04340* 








G4O30 


RAOIUS 


OS 


10 




04360 


0SA1O 


OSA 


CALC 




04070 




DSC 


5,02101 




04080 





OS 


10 




04090 


RONE 


OS 


10 




On 100 


RTUO 


OS 


10 




G4U0 


RCOMRK 


OC 


1»» 




04120 


ZERO 


DC 


8,0 












04140 




OS 


14,, 




04150* THESE ARC 


EQUATES FOR 


AREAS 


04160 


IATI 


OS 


0,7731 




04170 


SYM81 


OS 


0,42@9 




04180 


SYM85 


OS 


0,4315 




04190 


SYMB6 


OS 


0,4325 




04*00 


SYMB7 


OS 


0,4335 




osoio 


MONITR 


OS 


0,2406 




05020 


RETURN 


OS 


0*2411 




0S0 30 


T0ATA4 


OS 


0,3352 




05040 


TDATA5 


OS 


0,3362 




05050 


TDATA6 


OS 


0,3372 




05G&0 


T0ATA7 


OS 


0,3382 




05070 


TYPERR 


OS 


0*2416 




05080 


OISTF 


OS 


0,2416 




05090 


MAXIP 


OS 


0,2416 




05160 


MIMIF 


.OS 


0*2416 




051 1C* 








osito 




OfNO 


FM61? 





17666 46 17764 01200 
USE D*R FOR RADIUS 17678 06 04335 17837 

17690 49 17598 00000 

17710 

17710 41 03423 17817 
17700 

17700 41 03372 03413 
17697 

17701 00005 -3362 
17726 

17726 41 17837 17797 
17723 

17727 00005 J7827 
17738 

17738 0000 I 

17740 17 02400 -3090 
INCORRECT STATEMENT 17752 17 02410 -0301 
17764 17 02400 -3090 
SMALL MOOIFIER AMBIGUOUS 

17776 17 02410 -0305 

17797 00010 

17802 00005 J7466 

17803 00005 
17817 00010 
17827 00010 

17837 00010 

17838 00001 
17846 00008 



FILL LAST SECTOR 
IN COMMON WITH SYSTEM 



17860 00014 

07731 00000 
04289 00000 
04315 00000 
04325 00000 
04335 00000 
02406 00000 
02411 00000 
03352 00000 
03362 00000 
03372 00000 
03382 00000 
02416 OOOQO 
02416 00000 
02416 00000 
02414 00000 

17262 



80 



SYMBOL TABLE 



PAGE 1 



TVPERR 02416 
RCDNRK 17666 
ER0R12 17602 
0SA9 17630 
SYN86 04325 



T0ATA6 03372 
PTPTLN 17557 
ONRNLN 17525 
FM153 17262 
SYMB7 04335 



T0ATA5 03362 
NOR ML N 02416 
CHECK 17430 
IATI 07731 
XSAVE 17645 



T0ATA4 03352 
MQNITR 02406 
OISTP 02416 
SYMB1 04289 
YSAVE 17655 



RETURN 024U 
ERR0R3 17576 
OSAVE 17665 
SYMB5 04315 
ZERO 17674 



01010* 


















01020* 


CIRCLE 0EFPRE FORM 153ICENTER ♦ TANTO 


A LINE) 


ROUTINE 






01030* 


LINKAGE - B FM153 














01040* 




FM153 IS EQUIVALENT TO -2416 












01050* 




CALLS TYPgftft* NORMLN, ♦ OISTP 












01060* 


















01070 


OORG 


17262 






17262 








01080 FM153 


CM 


TDATA4*5ltltlO , 


CHECK FOR LINE 




17262 


14 


03403 


000-1 


01090 


BNE 


ER0R12 






17274 


47 


17602 


01200 


01100 


CM 


TDATA4 »9» lOt 


CHECK FOR POINT 




17286 


14 


03352 


000-9 


Oil 10 


BNE 


ERQR12 






17298 


47 


17602 


01200 


01120 


AM 


I ATI • 12 






17310 


11 


07731 


-0012 


01130 


CM 


I AT 1 . 7 . Alft. 


CHECK FOR CENTER MODIFIER 


















17322 


14 


0773J 


000-2 


01140 


HNP 


EROR 12 






17334 


47 


17602 


01200 


01150 


AM 


I AT 1 • 28 






17346 


11 


07731 


-0028 


01160 


CM 


T AT 1 97 /Lift. 


CHECK FOR TANTO 


MOOIFEIR 


















17358 


14 


0773 J 


O0OK7 


Oil 70 


«»E 


EROR 12 






17370 


47 


176C2 


01200 


01 1 80 


BTM 


-M0NITR»02140 






17382 


17 


02400 


-2 140 


01190 


BT 




, GET POINT OF 


TANGENCY 


ON LINE 
















17394 


27 


024 10 


17550 


1200 


BT 


-M0NITR«0SA9*5 






17406 


27 


02400 


1 7635 


020 10 


BT 


-DI STF»PTPTLN^20, t 


GET OISTANCE BETWEEN POINTS 


















17418 


27 


02410 


17577 




C 


DSAVE— 2, ZERO* * 


DOES POINT LIE 


ON LINE 


17430 


24 


17663 


17674 




BE 


ERR0R3 






17442 


46 


17578 


01200 




TFL 




FILL IN SYMBOL 


TABLE 


17454 


06 


04315 


03362 




TFL 


SYMB6.TDATA6 






17466 


06 


04325 


03372 




TFL 


SYMB7, OSAVE 






17478 


06 


04335 


17665 


n?n70 


TFM 


SYMBl.51*8 






17490 


16 


04289 


0-051 


02080 


TD 


SYMB7*l,RC0MRK 






17502 


25 


04336 


17666 


02090 


B7 


-RETURN,,, 


EXIT PROGRAM 




17514 


49 


0241J 


00000 


02100* 


















02110 


OORG 


•♦5*6-6 






17544 








02120 


NOP 


YSAVE ,0 






17544 


41 


17655 


00000 


02130 


OORG 


•-21 






17534 








02140 


NOP 


TDATA6+5l v XSAVe 






17534 


41 


03423 


17645 


02150 


OORG 


•-21 






17524 








02160 


NOP 


TDATA6»TDATA5+5i 






17524 


41 


03372 


03413 


02170 


OORG 


•-14 






17521 








02160 DNRMLN 


DSA 


T0ATA5 






17525 


00005 -3362 


02190 


OORG 


•♦5«6-4*5*5-il 






17565 








02200 


NOP 


YSAVEtOSAVE 






17566 


41 


17655 


17665 


03010 


OORG 


•-21 






17556 








03020 


NOP 


T0ATA6, XSAVE 






17556 


41 


03372 


17645 


030 30 


OORG 


•-14 






17553 








03040 PTPTLN 


OSA 


T0ATA5 






17557 


00005 -3362 


03050 


DORG 


•♦5*5-4 






17578 








03060* 



















03070 
03080 
03090 
03100 
031 LO' 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190' 
03200 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
040S0 
04090 
04100 
04110 
04120 
04130 
04140 
04150* 
04160 



ERR0R3 BTM -HONITRtO3090 

BTM -TYPERR,304,, 

ER0R12 BTM -MONITR, 03090 

BTM -TYPERR,301,, 



PT LIES ON LINE 



INCORRECT STATEMENT 



0SA9 



XSAVE 
YSAVE 
OSAVE 
RCOMRK DC 
ZERO OC 



OSA 

DSC 
OS 
OS 
OS 



CHECK 
5*02101 

10 
10 
10 

It" 

6*0 



OS 86*. FILL LAST SECTOR 

THESE ARE EQUATES FOR AREAS IN COMMON WITH SYSTEM 
I AT 1 OS 0,7731 
0,4289 
0,4315 
0,4325 
0,4335 
0*2406 
0,2411 
0,3352 
0,3362 
0.3372 
0,2416 
0,2416 
0,2416 



SYMB1 OS 
SYM85 OS 
SYMB6 DS 
SYMB7 OS 
MQNITR OS 
RETURN OS 
T0ATA4 DS 
T0ATA5 OS 
T0ATA6 OS 
TYP6RR OS 
OISTF DS 
NORMLN DS 



17578 17 02400 -3090 

17590 17 02410 -0304 

17602 17 02400 -3090 

17614 17 02410 -0301 

17630 00005 J7430 

17631 00005 
17645 00010 
17655 00010 

17665 00010 

17666 00001 
17674 00008 

17760 00086 



DENO FM153 



07731 
04289 
04315 
04325 
04335 
02406 
02411 
03352 
03362 
03372 
02416. 
02416 
02416 

17262 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 



8* 



PAGE I 











SVKQOl 












WKAREA 


17998 


TYPERR 


02^16 


TDATA8 


03392 


T0ATA7 


03362 


T0ATA6 


03372 


T0ATA5 




T0ATA4 


033S2 


RETURN 


02411 


RC0&SK 


U029 


HuNITR 


02406 


NINWO 


13028 


F RUN 


16832 


ERROR* 


17566 


EH&GR3 


17854 


ERR0R2 


16582 


CHEKCS 


17810 


CHEKCL 


17766 


CHEKSS 


17722 


CHEKBL 


17678 


CHEKAS 


17634 


CNEKAL 


17590 


A 


17958 


A8CD 


17923 


AXA 


17998 


B 


17968 


BXB 


18008 


C 


17978 


CALCK 


16702 


CANON 


16606 


CHECK 


17402 


CXC 


18018 


00 


17988 


OGNEG 


17878 


OGPOS 


17890 


0SA1 


18034 


FM155 


17222 


FM25 


16962 


FORM 


07712 


IAT1 


07731 


NEXT 


16534 


PLANE 


16462 


SQRTF 


02416 


SYMB1 


04299 


SYM6S 


04315 


SVMB6 


04325 


SYMB7 


04335 


SYN88 


04345 


1ER0 


07680 











01020* PLANE OEFPRE SUBPROGRAM— MAI NL !NE , FORM 251 PERPENDICULAR TO 

01030* A VECTOR* THRU A PTIANO FORM 155 ( PARRALLEL TO PLANE II 

01040* LINKAGE - B PLANE 
01050* PLANE IS EQUIVALENT TO -2416 

01060* CALLS TYPERR, SQRTF 

01070* 



01080 




OORG 


16462 






16462 








01090 


PLANE 


CM 


FORM, 255, 8, 


OETERMINE 




16462 


14 


07712 


0-255 


01100 




BE 


CANON 






16474 


46 


16606 


01200 


Oil 10 




CM 


FORM, 21, 3, 


WHICH 




16486 


14 


07712 


0-021 


01120 




BNE 


NEXT 






16498 


47 


16534 


01200 


01130 




BT 


M0NITR,DSAl4-5,6, FORM 




16510 


27 


02400 


16039 


01140 




BT 


2416»A8C0U5,6 






16522 


27 


02410 


17938 


01150 


NEXT 


CM 


FORM, 25, 3, 


IT 




16534 


14 


07712 


0-025 


01160 




BE 


FM25 






16546 


46 


16962 


01200 


01170 




CM 


FORM, 155.8, 


IS 




16558 


14 


07712 


0-155 


01180 




BE 


FM155 






16570 


46 


17222 


01200 


01190 


ERR0R2 


BTM 


-MONITR, 03090 






16582 


17 


02400 


-3090 


01200 




BTM 


TYPERR, 301, 67, 


INCORRECT STATEMENT 




16594 


17 


02410 


-0301 


02010* 


► ' CANONICAL FORM 














02020 


CANON 


AM 


IAT1,12, 10 






16606 


11 


07731 


O0OJ2 


02030 




TFL 


A.IATUU • 


GET A 




16618 


06 


17958 


0773J 


02040 




AM 


IAT1,14,10, 


IAT1+26 




16630 


11 


07731 


000J4 


02050 




TFL 


8, I ATI , 1 1 v 


GET B 




16642 


06 


17968 


0773J 


02060 




AM 


IATl.14,10, 


IAT1*40 




16654 


11 


07731 


000J4 


02070 




TFL 


C, IATl.il , 


GET C 




16666 


06 


17978 


0773J 


02080 




AM 


IAT1,14,10, 


IATU54 




16678 


11 


07731 


O0OJ4 


02090 




TFL 


OD,IATi,lW 


GET D 




16690 


06 


17988 


0773J 


02100 


CALCK 


TFL 


AXA, A 






16702 


06 


17998 


17958 


02110 




FMUL 


AXA, AXA,, 


A**2 




16714 


03 


17998 


17998 


02120 




TFL 


BXBt B 






16726 


06 


18008 


17968 


02130 




FMUL 


BXB, BXB,, * 


B**2 




16738 


03 


18008 


18008 


02140 




TFL 


CXC,C 






16750 


06 


18018 


17978 


02150 




FMUL 


CXC, CXC,, 


C**2 




16762 


03 


18018 


18018 


02160 




FAOD 


AXA, BXB 






16774 


01 


17996 


18008 


02170 




FAOD 


AXA, CXC,, 


A**2+B**2*C**2«AXA 




16786 


01 


17998 


18018 


02180 




8Z 


ERR0R4 






16798 


46 


17566 


01200 


02190 




BTM 


MONITR, 2000, 67 






16810 


17 


02400 


-2000 


02200 




BTM 


SQRTF, AXA, 67, 


SQRTF I A**2*B*«2*C**2 >"i 


AXA»I 


NORMALIZE 


CONSTANT 














16822 


\f 


02410 


J7998 


03010 




FOIV 


A, AXA ,, 


NORMALIZE A, B, C, 


AND 























16834 






17998 


03020 




FDIV 


B, AXA 






16846 


no 


17968 


1 7998 


03030 




FOIV 


C* AXA 






16858 


no 


17978 


17998 


03040 




FOIV 


DO, AXA 






16870 


09 


17988 


17998 


03050 


FILLIN 


TFW 


$YM81*61,6 V 


FILL IN SYMBOL TABLE 




16882 


16 


04289 


0-061 


03060 




TFL 


SYM85,A 






16894 


06 


04315 


17958 


03070 




TFL 


SYMB6,B 






16906 


06 


04325 


17968 


03080 




TFL 


SYNB7,C 






16918 


06 


04335 


17978 


03090 




TFL 


SYMB8,00 






16930 


06 


04345 


17988 


03100 




TO 


SYMBCU.RCDMRK 






16942 


25 


04346 


18029 


03110 




B7 


RETURN, ,6, 


EXIT PROGRAM 




16954 


49 


024 U 


00000 


03120* 


- THRU A 


PT, PEftPTO A VECTOR 












03130 


FM25 


CM 


T0ATA4,9,10, 


CHECK FOR POINT 




16962 


14 


03352 


000-9 


03140 




BNE 


ERR0R2 






16974 


47 


16582 


01200 


03150 




AM 


IATl,26 






16966 


U 


07731 


-0026 


03160 




CM 


IAT1, 18,610, 


CHECK FOR PERPTO 




16998 


14 


0773J 


000J8 


03170 




BNE 


ERR0R2 






17010 


47 


16582 


01200 


03180 




CM 


TDATA4+5l,5,10 


, CHECK FOR VECTOR 




17022 


14 


03403 


00O-5 


03190 




BNE 


ERR0R2 






17034 


47 


16582 


01200 


03200 




TFL 


A,TDATA5*51,, 


GET A 




17046 


06 


17958 


03413 


04010 




TFL 


B,T0ATA6*51,t 


B 




17058 


06 


17968 


03423 


04020 




TFL 


CT0ATA7+51,, 


C 




17070 


06 


17978 


03433 


04030 




TFL 


WKAREA, A 






17082 


06 


17998 


17958 


04040 




FMUL 


WKAREA,T0ATA5 






17094 


03 


17998 


03362 


04050 




TFL 


DO, ZERO,, 


SET 00 TO ZERO 




17106 


06 


17988 


07660 


04060 




FSUB 


00, WKAREA,, 


00— AX1 




17118 


02 


17988 


17998 


04070 




TFL 


WKAREA, B 






17130 


06 


17998 


17968 


04080 




FMUL 


WKAREA,T0ATA6 






17142 


03 


17998 


03372 


04090 




FSUB 


00, WKAREA, • 


00— AXl-BYl 




17154 


02 


17988 


17998 


04100 




TFL 


WKAREA, C 






17166 


06 


17998 


17978 


04U0 




FMUt 


WKAREA «T0ATA7 






17178 


03 


17998 


03362 


04120 




FSUB 


00,WKAREA >9 


00— AX 1-6 Y 1-CZ I — I AX 1 ♦ BY l*C Z i > 
















17190 


02 


17988 


17998 


04130 




FMUL 


DO.MINLO 






17202 


03 


17986 


18028 


04140 




87 


CALCK 






17214 


49 


16702 


00000 


04150* PARRALLEL TO PLANE 1 












000-8 


04160 


FM155 


CM 


T0ATA4,6,10 






17222 


14 


03352 


04170 


BNE 


ERR0R2 






17234 


47 


16582 


01200 


04180 




AM 


IAT1,12 






17246 


11 


07731 


-0012 


04190 




CM 


IATI,17,610, 


CHECK FOR PARLEL 




17258 


14 


0773J 


00OJ7 


04200 




BNE 


ERR0R2 






17270 


47 


16582 


01200 


05010 




TFL 


A,T0A7A5,» 


GET Ai,61,Cl ♦ Ot 




17262 


06 


17958 


03362 


05020 




TFL 


B.T0ATA6 






17294 


06 


17968 


03372 


05030 




TFL 


Ct TO AT AT 






17306 


06 


17976 


03382 


05040 




TFL 


D0,T0ATA8 






17318 


06 


17988 


03392 


05050 




AM 


IATI.42,10 






17330 


11 


07731 


000M2 


05060 




TFL 


WKAREA,IAT1,11» GET OG 




17342 


06 


17998 


0773J 


05070 




BNF 


CHECK, WKAREA-2 


CHECK FOR NEGATIVE 


NUMBER 














17354 


44 


17402 


17996 


05080 




BTM 


-MONITR, 03090 






17366 


17 


02400 


-3090 


05090 




BTM 


TYP£fW»310»6T» 


01 STANCE IS NEGATIVE 


17378 


17 


02410 


-0310 


05100 




CF 


WHAREA-2,,, 


MAKE OG POSITIVE 




17390 


33 


17996 


00000 


05110 


CHECK 


$M 


IAT1,14,10, 


IAT1 IS IAT1*40 NOW 




17402 


12 


07731 


000J4 


05120 




C« 


IATl,31t6l0, 


IS KOOIPIEA XLARGE 




17414 


14 


0773J 


000L1 


05130 




BE 


CHSKAL 






17426 


46 


17590 


01200 


05140 




CM 


!ATit32»610t 


XSMALL 




17438 


14 


0773J 


000L2 


05150 




BE 


CHEKAS 






17450 


46 


17634 


01200 


05160 




CM 


IATI,35,*10, 


VLARGE 




17462 


14 


0773J 


000L5 


05170 




gg 


CHEKBL 






17474 


46 


17676 


01200 


05180 




CM 


IATl,36,610v 


VSMALL 




17466 


14 


0773J 


000L6 


051 fO 




BE 


CHEKBS 






17498 


46 


17722 


01200 


05200 




C« 


IATl,S9,410, 


XLARGE 




17510 


14 


0773J 


000L9 


G60I0 




si 


CHEKCL 






17522 


46 


17766 


01200 



FAG, 2 



82 



PACE 3 



06020 




CM 


un,4o«*io* 




ZSMALL 


17534 


14 


077SJ 


OOOMO 


06030 




BE 


CHIEKCS 






17546 


46 


17810 


01200 


06040 




B7 


ERR0R2 






17558 


49 


16582 


00000 


06050 


ERR0R4 


BTM 


-MONITR, 03090 






17566 


17 


02400 


-3090 


06060 




BTN 


TYPE««,312,67, 


PLANE OR VECTOR 


IMPROPERLY DEFINED 
















17578 


17 


02410 


-0312 


06070* 


















06080 


CHEKAL 


C 


A-2*ZERO-2 






17590 


24 


17956 


07678 






BE 


ERR0R3 






17602 


46 


17854 


01200 


06100 




BNF 


DGPOS, A-2* • 


CONDI TI ON 


I 


17614 


44 


17890 


17956 


061 10 




87 


DGNEG 1 1 • 


CONDITION 


2 


17626 


49 


17B78 


00000 




CHEKAS 


C 


A- 2, ZERO- 2 






17634 


24 


17956 


07678 






BE 


ERR0R3 






17646 


46 


17854 


01200 






BNF 


DGNEG.A-2* t 


CONDITION 


4 


17658 


44 


17878 


17956 


* t Vt 




B7 


DGPOS* 1 » 


CONDITION 


5 


17670 


49 


17890 


00000 


06160 


CHEKBL 


c 


B-2»ZERO-2 






17678 


24 


17966 


07678 


061 70 




BE 


ERRORS 






17690 


46 


17854 


01200 


06180 




BNP 


DGP0S*B-2** 


CCNOITION 


6 


17702 


44 


17890 


17966 


06190 




87 


DGNEG* i t 


CONDITION 


7 


17714 


49 


17878 


00000 


06200 


CHEKBS 


c 


8-2 t ZER0-2 






17722 


24 


17966 


07678 


07010 




BE 


ERRORS 






17734 


46 


17854 


01200 


07020 




BNP 


DGNEG* B-2* ♦ 


CONDITION 


9 


17746 


44 


17878 


17966 


07030 




B7 


DGPOS t • * 


CONDITION 


10 


17758 


49 


17890 


00000 


07040 


CHEKCl 


c 


C-2.ZER0-2 






17766 


24 


17976 


07678 


07050 




BE 


ERRORS 






17778 


46 


17854 


01200 


07060 




BNF 


DGP0S*C-2, * 


CONDITION 


11 


17790 


44 


17890 


1 7976 


07070 




B7 


DGNEG i • * 


CONDITION 


12 


17802 


49 


17878 


00000 


07080 


CHEKCS 


c 


C-2* ZERO-2 






17810 


24 


17976 


07678 


07090 




BE 


ERR0R3 






17822 


46 


17854 


01200 


07100 




BNF 


DGNEG, C-2» t 


CONDITION 


14 


17834 


44 


17878 


1 7976 


07110 




B7 


DGPOS* *» 


CONDITION 


15 


17846 


49 


17890 


00000 


07120* 


















07130 


ERROR3 


BTH 


-M0NI TR, 03090 






17854 


17 


02400 


-3090 


07140 




BTM 


TYPERR»31l*67* 


AMBIGUOUS 


MODIFIER 


17866 


17 


02410 


-0311 


07150 


DGNEG 


SF 


WKAREA-2* • • 


MAKE OG NEGATIVE 


17878 


32 


17996 


00000 


07160 


0GP0S 


FAOO 


00 * WKAREA * * 


DD*D2-01*DG 


17890 


01 


17988 


1 7998 


07170 




B7 


FILL IN 






17902 


49 


16882 


00000 


07180* 


















07190 




DORG 


•+5«6-6 






17932 








07200 




NOP 


00 »0 






17932 


41 


17988 


00000 


06010 




OORG 


•-21 






17922 








08020 




NOP 


B* C 






17922 


41 


17968 


17978 


06030 






•— 14 






17919 








08040 


ABCO 


OSA 








17923 


00005 J7958 


06050 




OORG 


•♦5*6— 4 






17949 








06060* 


















08070 


A 




in 






17958 


00010 




08080 


B 




in 






17968 


00010 




08090 


C 


OS 


10 






17978 


00010 




08100 


DO 


OS 


10 






17988 


00010 




08110 


AXA 


OS 


10 






17998 


00010 




08120 


BXB 


OS 


10 






18008 


00010 




08130 


CXC 


OS 


10 






16018 


00010 




08140 


WKAREA 


OS 


0»AXA 






17998 


00000 




08150 


ZERO 


OS 


.7680 






07680 


00000 




08160 




OC 


8,-10000000 






18026 


00008 




08170 


MIN1.0 


DC 


2*1 






18026 


00002 




08160 


RCDMRK 


OC 


l. f 






18029 


00001 




08190 


0SA1 


OSA 


CALCK 






18034 


00005 J6702 


08200 




OSC 


5*03451 






16035 


00005 





09010 




OS 


22 ** 


FILL LAST SECTOR 


18061 


00022 


09020* 












090301 


» THESE 


ARE 


EQUATES FOR AREAS 


IN COMMON WITH SYSTEM 






09040 


FORM 


OS 


0,7712 




07712 


00000 


09050 


IATl 


OS 


0*7731 




07731 


00000 


09060 


SYMB1 


OS 


0*4289 




04289 


00000 


09070 


SYMB5 


OS 


0.4315 




04315 


00000 


09080 


SYM86 


OS 


0*4325 




04325 


00000 


09090 


SYMB7 


DS 


0*4335 




04335 


00000 


09100 


SYMBB 


DS 


0*4345 




04345 


00000 


09110 


T0ATA4 


DS 


0,3352 




03352 


00000 


09120 


T0ATA5 


DS 


0*3362 




03362 


00000 


09 1 SO 


T0ATA6 


DS 


0*3372 




03372 


00000 


09140 


T0ATA7 


OS 


0*3382 




03382 


ooooo 


09150 


T0ATA8 


OS 


0*3392 




03392 


00000 


09160 


HONITR 


DS 


0*2406 




02406 


ooooo 


09170 


RETURN 


OS 


0*2411 




02411 


ooooo 


09180 


TYPERR 


OS 


0*2416 




02416 


ooooo 


09190 


SORTF 


OS 


0,2416 




02416 


ooooo 


09200* 












10010 




OENO 


PLANE 




16462 





83 



*AG€ I 



MtftKAR 




TYPERR 02-U6 


T0&T&7 033S2 T06TA6 


03372 T0ATA5 03362 


TDAIA4 


> 03352 


agTURN 024 U 


PLFM21 18082 MONITR 


02406 ERR0R2 16558 


ERROR! 


. 16534 


DXOYOZ 16770 


AAOO 10046 A I 




&2 


16788 


A3 


18798 


6ADD 16071 


Bl U&O0 82 


13818 1 


S3 


16828 


CAOO 


18076 


CALCD 18582 


18768 OAOO 


HlOSi OX 


18838 


DV 


18846 


02 18858 


FLMl 16678 ZERO 


07660 








OlOlO* 


















01020* 


•LANE OEFPRE FORM 


2UTHREE POINTS) ROUTINE 










01090* 




LINKAGE BTH PLFM21 , NORMAL 












01040* 






PLFN42 IS EQUIVALENT TO -2416 












01050* 




NORMAL IS RETURN AOORESS 












01060* 




CALLS TYPERR 














01070* 




















01060 




DORG 


18062 






18062 








01090 


OAOD 


DC 


20,0 






18081 


00020 




01100 


CAOO 


OS 


0,DADD~5 






18076 


00000 




Oil 10 


BAOO 


OS 


0.DADD-10 






18071 


00000 




01120 


AAOO 


OS 


O.OAOO-15 






18066 


00000 




01130 


PLFN21 


CM 


T0ATA4.9, 10, 


CHECK FOR POINTS 1 


[N TDATA TABLE 


















18082 


14 


03352 


000-9 


01140 




BNE 


ERR0R2 






18094 


47 


18556 


1 200 


01150 




CM 


TDATA4*5i,9,l0 






18106 


14 


03403 


00O-9 


01160 




BNE 


ERRQR2 






18118 


47 


18558 


01200 


01170 




CM 


TDATA4-tl02,9,10 




18130 


14 


03454 


000-9 


01180 




BNE 


ERR0R2 






18142 


47 


18558 


01200 


01190 




TFL 


Al # TDATA5+51 






18154 


06 


18778 


03413 


01200 




FSUB 


Alt T0ATA5 , , 


A1*X2— XI 




18166 


02 


18778 


03362 


02010 




TFL 


A2 »TDATA6+51 






18178 


06 


18788 


03423 


02020 




FSUB 


A2.TDATA6,, 


A2-Y2-Y1 




18190 


02 


18768 


03372 


02030 




TFL 


A3,TDATA7*51 






18202 


06 


18798 


03433 


02040 




FSUB 


A3,TOATA7, , 


A3«22-Zl 




18214 


02 


18798 


03382 


02050 




TFL 


B1,TDATA5*102 






18226 


06 


18808 


03464 


02060 




FSUB 


Bl ,T0ATA5, , 


BI-X3-XI 




18238 


02 


16808 


03362 


02070 




TFL 


B2.T0ATA6+102 






18250 


06 


18818 


03474 


02080 




FSUB 


B2 , T0ATA6* , 


B2«Y3-Y1 




18262 


02 


18818 


03372 


02090 




TFL 


B3,TDATA7U02 






18274 


06 


18828 


03484 


02100 




FSUB 


83 , T0ATA7, , 


B3-Z3-Z1 




18286 


02 


18828 


03382 


02110 




TFL 


0X,A2 






18298 


06 


18838 


18768 


02120 




FMUL 


0X,B3 






18310 


03 


18838 


18828 


02130 




TFL 


WORKAR , A3 






18322 


06 


18868 


18798 


02140 




FMUL 


WORKAR ,B2 






18334 


03 


18868 


18818 


02150 




FSUB 


DX,WQRKAR, V , 


0X-A2XB3-A3XB2 




18346 


02 


18838 


18868 


02160 




TFL 


0Y,A3 






18358 


06 


18848 


18798 


02170 




FMUL 


OY.Bl 






\ a»I» 


2? 


18848 


18808 


02180 




TFL 


WORKAR, Al 








06 


18868 


18778 


02190 




FMUL 


WORKAR, B3 






18394 




18868 


18828 


02200 




FSUB 


OY, WORKAR, , 


0V-A3XB1-AIX83 




18406 




18848 


18868 


03010 




TFL 


DZ.Al 






18418 


06 


18858 


18778 


03020 




FMUL 


0Z.82 






18430 


03 


18858 


18818 


03030 




TFL 


WORKAR, A2 






18442 




16868 


18768 


03040 




FMUL 


WORKAR, Bl 






18454 


ft* 


16868 


16808 


03050 




FSUB 


OZ, WORKAR, t 


0Z«A1XB2~A2XBI 




18466 


n> 


16858 


16868 


03060 




TFL 


OXOYOZ,DX 






18478 


06 


18778 


18838 


03070 




FAOO 


DXDYDZ.DY 






18490 


01 


18778 


18848 


03080 




FAOO 


0X0Y0Z,02 






18502 




18778 


18858 


03090 




B2 


ERftORl » , , 


OX*OY*DZ -00 




18514 


46 


18534 01200 


03100 




B7 


CAICO 






18526 


49 


1*582 


00000 


03110 


ERROR 1 


BTH 


MONITR, 03090, 67 




18534 


17 


02400 


-3090 


03120 




BTM 


TYPERR, 302, 67, 


THREE POINTS ARE COL I NEAR 


18546 


17 


02410 


-0302 


03130 


ERROR2 


BTM 


-NONI TR, 03090 






18558 


17 


02400 


-3090 


03140 




BTM 


TYPERR, 301, 67* 


INCORRECT STATEMENT 


18570 


17 


02410 


-0301 


03150 


CALC0 


TFL 


WORKAR, OX 






18582 


06 


18868 


18838 


03160 




FMUL 


WORKAR, T0ATA5 






18594 


03 


18868 


03362 


03170 




TFL 


D,Z£R0», 


SET TO ZERO 




18606 


06 


18788 


07680 


03130 




FSUB 


0, WORKAR , , 


O—AXl 




18618 


02 


18788 


18868 


03190 




TFL 


WORKAR, OY • 






18630 


06 


18668 


18848 


03200 




FMUL 


WORKAR, T0ATA6 






18642 


03 


18868 


03372 


04010 




FSUB 


0, WORKAR , , 


D*-AX1~BYI 




18654 


02 


18788 


18866 


04020 




TFL 


WORKAR, OZ 






18666 


06 


18868 


16858 


04030 




FMUL 


WORKAR, T0ATA7 






18678 


03 


18868 


03382 


04040 




FSUB 


0, WORKAR,, 


0»-AXl-BYl-CZl«-IAXi*BYl*CZn 




















18690 


02 


18768 


16868 


04050 




TFL 


AADD,0X,6, 


PUT OX, OY, OZ, ANO 


18702 


06 


18060 


18838 


04060 




TFL 


BA0O,0Y,6 t 


IN a, a, C, ANO 




18714 


06 


18074 


18848 


04070 




T#L 


CA0O,DZ,6, 


RESPECTIVELY 




18726 


06 


18070 


16858 


04080 




fmi 


0,FLM1 






18738 


03 


18788 


18878 


04090 




TFL 


0A00,D,6 






18750 


06 


1806J 


18788 


04100 




87 


RETURN, ,6, 


EXIT PROGRAM 




18762 


49 


0241J 


00000 


04110* 


















04120 


Al 


OS 


10 






18778 


00010 




041 30 


A2 


OS 


10 






18788 


00010 




04140 


A3 


OS 


10 






18798 


00010 




04150 


81 


DS 


10 






18808 


00010 




04160 


82 


OS 


10 






18818 


00010 




04170 


83 


OS 


10 






18828 


00010 




04180 


OX 


DS 


10 






18638 


00010 




04190 


DY 


OS 


10 






18848 


00010 




04200 


01 


OS 


10 






16858 


00010 




05010 


0X0Y02 


OS 


0,Ai 






18778 


00000 




05020 





OS 


0,A2 






16768 


00000 




05030 


ZERO 


OS 


,7680 






07680 


00000 




05040 


WORKAR 


OS 


10 






18868 


00010 




05050 




DC 


8,* 10000000 






16676 


00008 




05060 


FIM1 


DC 


2,1 






.18876 


00002 




05080 


OS 


82,, 


FILL LAST SECTOR 




18960 


00082 




05090* 


THESE 


ARE EQUATES FOR AREAS IN COMMON WITH SYSTEM 


02416 








05100 


TYP6RR 


OS 


0,2416 






00000 




05110 


T0ATA4 


OS 


0,3352 






03352 


00000 




05120 


TDATA5 


OS 


0,3362 






03362 


00000 




051 30 


T0ATA6 


OS 


0,3372 






03372 


00000 




05140 


T0ATA7 


OS 


0,3382 






03362 


00000 




05150 


MOMITR 


OS 


0,2406 






02406 


00000 




05160 


RETURN 


OS 


0*2411 






02411 


00000 




05170* 










16062 








Oil to 




DENO M.FM21 













PAGE 2 



VECTOR 16462 
TDATA4 03352 
FILSYM 16746 
OSAI 17806 
FH5 16966 
IATI 07731 
SYHB5 04315 



TYPERR 02416 
RETURN 024 U 
ERR0R1 16650 
OX 17831 
FM57 17366 
PI180 17861 
SYHB6 04325 



SYMBOL TASLE 

T0ATA7 03382 
RCDMRK 17801 
BRANCH 16806 
OV 17841 
FM63 16674 
SINF 02416 
SYMB7 04335 



T0ATA6 03372 
NGNITR 02406 
CONST 17621 
OZ 17851 
FN* 17094 
SQRTF 02416 
ZERO 07680 



T0ATA5 03362 
FM4095 16814 
COSF 02421 
FM187 17518 
FORM 07712 
SYMBl 04289 



01020* VECTOR OEFPRE SUBPROGRAM INCLUDING FM63 1 CANONICAL FORM). 

01030* FM187IS LENGTH AT ANGLE A). 

01040* LINKAGE - B VECTOR 

01050* VECTOR 1$ EQUIVALENT TO -2416 

01060* CALLS TYPERR, SQRTF* SINF AND COSF 

01070* 



01080 




DORG 


16462 




16462 








01090 


VECTOR 


CM 


FORM, 63,8, 


OETERMINE 


16462 


14 


07712 


0-063 


01100 




BE 


FM63 




16474 


46 


16674 


01200 


onto 




CM 


FORM, 4095,8, 


STATEMENT 


16486 


14 


07712 


OM095 


01120 




BE 


FM4095 




16498 


46 


16814 


01200 


01130 




CM 


FORM, 5, 8, 


FORMAT 


16510 


14 


07712 


0-005 


01 140 




BE 


FM5 




16522 


46 


16966 


01200 


Oil 50 




CM 


FORM, 9,8, 


ANO BRANCH 


TO 




07712 














16534 


14 


0—009 


01 160 




BE 


FM9 




16546 


46 


17094 


01200 


Oil 70 




CM 


FORM, 57,8, 


OR CALL 


















16558 


14 


07712 


. _ 


01 180 




BE 


FM57 




16570 


46 


17366 


_ „ 
1200 


01190 




CM 


FORM, 187,8, 




APPROPRIATE 














16582 


14 


07712 


0-187 


01200 




BE 


FM187 




16594 


46 


17518 


01200 


02010 




CM 


FORM, 25, 8, 




ROUTINE 














16606 


14 


07712 


0-025 


02020 




BNE 


ERR0R1 




16618 


47 


16650 


01200 


02030 




BT 


M0N!TR,DSAl*5» 


6, CALL FM25 FROM FILE 


16630 


27 


02400 


17811 


02040 




87 


-2416 




16642 


49 


02410 


00000 


02050 


ERR0R1 


BTM 


-MONITR, 03090 




16650 


17 


02400 


-3090 


02060 




BTM 


TYPERR, 301, 68, 




16662 


17 


02410 


0-301 


02070" 


■ CANONICAL FORM 












02080 


FM63 


AM 


IATI, 12,10* 


PULL X, Y, ANO Z 


16674 


11 


07731 


000J2 


02090 




TFL 


OX, IATI, 11 




16686 


06 


17831 


0773J 


02100 




AM 


IATI, 14, 10* 


FROM WORD LIST TABLE 


16698 


11 


07731 


00OJ4 


02110 




TFL 


DY, IATI. 11 




16710 


06 


17841 


0773J 


02120 




AM 


IATI, 14, 10 




16722 


11 


07731 


000J4 


02130 




TFL 


D2, IATI, 11 




16734 


06 


17851 


0773J 


02140 


FILSYM 


TFL 


SYM85.DX,, 


PUT DATA IN SYMBOL TABLE 


16746 


06 


04315 


17831 


02150 




TFL 


SYMB6.0Y 




16758 


06 


04325 


17841 


02160 




TFL 


SYMB7.0Z 




16770 


06 


04335 


17851 


02170 




TFM 


SYMB 1,51,8 




16782 


16 


04289 


0-051 


02180 




TO 


SYMB7+1 * RCDMRK 




16794 


25 


04336 


17801 


02190 


BRANCH 


B7 


RETURN, ,6, 


EXIT PROGRAM 


16806 


49 


0241J 


00000 


02200* 


> COORDINATES OF TWO POINTS GIVEN 










03010 


FM4095 


AM 


IATI, 82,10, 


PULL COORDINATES FROM WORD LIST 


















16814 


11 


07731 


00002 


03020 




TFL 


OZ, IATI, 11 




16826 


06 


17851 


0773J 


03030 




SM 


IATI, 14, 10 




16836 


12 


07731 


000J4 



03040 


TFL 


03050 


SM 


03060 


TFL 


03070 


SM 


03080 


FSUB I 


03090 


SM 


03100 


FSUB 


03110 


SM 


03120 


FSUB 


03130 


B7 


03140* 


TWO PQI 


03150 FM5 


CM 


03160 


BNE 


03170 


CM 


03180 


BNE 


03190 


TFL 


03200 


TFL 


04010 


TFL 


04020 


FSUB i 


04030 


FSUB I 


04040 


FSUB 1 


04050 


B7 I 


04060* 


UNIT VE 


04070 FM9 


CM 


04080 


BNE 


04090 


AM 


04100 


CM 


04110 


BNE 


04120 


TFL 


04130 


TFL 


04140 


TFL 


04150 


FMUL 


04160 


FHUL 


04170 


FMUL 


04180 


FAOO 


04190 


FADD 


04200 


BTM 


05010 


BTM 


05020 


TFL 


05030 


TFL 


05040 


TFL 


050S0 


TFL 


0S060 


FDIV 


05070 


FOIV 


05080 


FDIV 


05090 


B7 


05100* 


SCALAR 


05110 FHS7 


CM 


05120 


BNE 


05130 


AM 


05140 


CM 


0S1S0 


BNE 


05160 


TFL 


05170 


TFL 


051 SO 


TFL 


05190 


SM 


09200 





OY, IATI, 11 16850 06 

IATI, 14, 10 16862 12 

OX, IATI, I I 16874 06 

IATI, 14, 10 16886 12 

DZ, IATI, 11, ANO SUBTRACT FIRST FROM SECOND 

16898 02 

16910 12 

16922 02 

16934 12 

16946 02 

16958 49 



IATI, 14, 10 
DY , I ATI ,11 
IATI, 14, 10 
OX, IATI, 11 
FILSYM 
NTS GIVEN 
T0ATA4,9,10, 
ERR0R1 

TDATA4*5l,9*10, 
ERROR 1 

0X,TDATA5*5l,, 
0Y,T0ATA6*5l 
DZ,TDATA7*5l 
0X,TDATA5», 



CHECK FOR POINT 



FILSYM 
CTOR DESIRED 
TDATA4»5»10, 
ERROR 1 
IATI, 12 
IATI, 30, 610, 
ERROR 1 
0X,TDATA5, , 
0Y,TDATA6 
0Z,TDATA7 



16966 14 
16978 47 

CHECK FOR 2ND POINT 16990 14 
17002 47 

GET COORDINATES OF POINT 2 17014 06 
17026 06 
17038 06 

ANO SUBTRACT COORDINATES OF POINT I 
17050 02 
17062 02 
17074 02 
17086 49 



MONITR ,2000,67 
$QRTF,0X,67, 
CONST, OX », 

DX,TOATAS,t 
0Y.T0ATA6 
0Z,T0ATA7 
0X,CONST,, 

DY, CONST 
DZ, CONST 
FILSYM 

TIMES A VECTOR 
T0ATA4,Stl0, 
ERR0R1 
IATI, 26,, 
IATI, 28, 610, 
ERR0R1 

0X,T0ATA5 »t 
DY*T0ATA6 

02,?OSTA7 
MTl,l4*l0t 
OX,UTttilt 



CHECK FOR VECTOR 



CHECK FOR UNIT 
< GET DIRECTOIN NUMBERS 

DX»DX**2 
DV«0Y**2 
0Z«DZ**2 

0X»0X**2*0V**2*0Z**2 



17094 14 
17106 47 
17118 11 
17130 14 
17142 47 
17154 06 
17166 06 
17178 06 
17190 03 
17202 03 
17214 03 
17226 Oi 
17238 01 
17250 17 
17262 17 



SQRTF |DX**2*0Y**2*0Z**2) 

GSTORE NORMALIZING CONSTANT 

17274 06 

GET DIRECTOIN NUMBERS 17286 06 
17298 06 
17310 06 
17322 09 
17334 09 
17346 09 
17358 49 



NORMALIZE DX, OV, ANO 01 



CHECK FOR VECTOR 

CHECK FOR TIMES 
GET OXtOVt ANO OZ 



POSITION IATI AT $ 
OXVltS>»OX 



17366 14 
17378 47 
17390 11 
17402 14 
17414 47 
17426 06 
17438 06 
17450 06 
17462 12 
17474 01 



17841 
07731 
17831 
07731 

17851 
07731 
17841 
07731 
17831 
16746 

03352 
16650 
03403 
16650 
17831 
17841 
17851 

17831 
17841 
17851 
16746 

03352 
16650 
07731 
0773J 
16650 
17831 
17841 
17851 
17831 
17841 
17851 
17831 
17831 
02400 
02410 

17821 
17831 
17841 
17851 
17831 
17841 
17851 
16746 

03352 
16650 
07731 
07734 
16650 
17831 
17841 
17851 
077S1 
17831 



0773J 
00OJ4 
0773J 
00OJ4 

0773J 
000J4 
0773J 
000J4 
0773J 
00000 

000-9 
01200 
000-9 
01200 
03413 
03423 
03433 

03362 
03372 
03382 
00000 

000-5 
01200 
-0012 
OOOLO 
01200 
03362 
03372 
03382 
17831 
17841 
17851 
17841 
17851 
-2000 
J7831 

17831 
03362 
03372 
03382 
17821 
17821 
17821 
00000 

000-5 
01200 
-0026 
00OK8 
01200 
03362 
03972 
03182 
00OJ4 
0773J 



85 



PACE 1 



06010 




OY,!ATl»Ut 


DYVltSHDY 




17486 


03 17841 


0773J 


06020 


PMUL 


®Z,!A?&,U» 


OZVUS»»DZ 




17498 


03 17851 


0773J 


06030 


87 


FILSYN 






17510 


49 16746 


00000 


06040* LENGTH 


AND SIVEN 










06050 PM197 


&'H 


I ATI* 12*» 






17518 


11 07731 


"■0012 


06060 


CM 


I ATI .9. 610* 


f mi? etc fen*, i EftiCYM 




17530 


14 0773J 


000-9 


06070 


BNE 


IRnUH 4 






17542 


47 16650 


01200 


06080 


AM 


lATlt 28 






17554 


|| 07731 


-0028 


06090 


CM 


(ATI . 1 .4]A. 


HM&tM Km ATAAIftt 
WnCbn run A I MriUfa> 




17566 


t4 0773J 


000-1 


06100 


BNE 


fib ana i 






17578 


47 16650 


01200 


061 10 


AM 


f ATI .14.10 






17590 


11 07731 


000J4 


06120 


TFL 


r\X « fATl.lt. 
U* » » «* » 4,449 


OUT AM/ti C til ny tun 
rU 1 AnuLC IN U* AND 


OY 


17602 


06 17831 


0773J 


06130 


TFL 


fjy. » ATI .1 1 
Uf , I A 1 i « I 4 






17614 


06 17841 


0773J 


06140 


FHUL 


ny .nil *n . . 


bUNVCKI ANvLc IN UtvKCCa 


TO 


RADIANS 














17626 


03 17831 


17661 




FNUL 


ny n t * oa 
UTirl 1qU| t 


aw miii T aw at ika 
ST rUUI* BY rlr iOO 




17638 


03 17841 


17861 


06160 


8TM 


RUN 1 IKjcUlU, 






17650 


17 02400 


—2010 


06170 


BTM 


SINF, OY, 67, 


0Y-S1NFCA» 




17662 


17 02410 


J7841 


06180 


BTM 


C0SF,DX,67, 


OX-COSF(A) 




17674 


17 0242J 


J7831 


06190 


SM 


IATl,28»iO 






17686 


12 07731 


000K8 


06200 


FMUL 


0X,IATl ( lit 


DX»(S)C0SF(A) 




17698 


03 17831 


0773J 


07010 


FNUL 


DY,IAT1,U, 


DV«IS>SINF(A) 




17710 


03 17841 


0773J 


07020 


TFL 


DZtZERO 






17722 


06 17851 


07680 


07030 


B7 


FILSYM 






17734 


49 16746 


00000 


07040* 
















070 SO 


OS 


60,, 


FILL LAST SECTOR 




17800 


00060 




07060* THESE ARE EQUATES FOR AREAS IN COMMON WITH SYSTEM 






07070 FORM 


OS 


0,7712 






07712 


00000 




07080 IAT1 


OS 


0,7731 






07731 


00000 




07090 SYMB1 


OS 


0,4289 






04289 


00000 




07100 SYMB5 


OS 


0,4319 






04315 


00000 




07110 SYMB6 


OS 


0,4325 






04325 


00000 




07120 SYNB7 


OS 


0,4335 






04335 


00000 




07130 T0ATA4 


OS 


0,3352 






03352 


00000 




07140 TOATAS 


OS 


0,3362 






03362 


00000 




07150 T0ATA6 


OS 


0,3372 






03372 


00000 




07160 T0ATA7 


OS 


0,3382 






03382 


00000 




07170 MONlTR 


OS 


0,2406 






02406 


00000 




07180 RETURN 


OS 


0,2411 






02411 


00000 




07190 TYPERR 


OS 


0,2416 






02416 


00000 




07200 SQRTF 


OS 


0,2416 






02414 


00000 




08010 SINF 


OS 


0,2416 






02416 


00000 




08020 COSF 


OS 


0,2421 






02421 


00000 




08030* 
















08040 RCOMRK 


oc 


1,» 






17801 


00001 




08050 0SA1 


DSA 


BRANCH 






17606 


00005 44804 


08040 


osc 


5,03471 






17807 


00005 




08070 CONST 


OS 


10 






17821 


00010 




08080 OX 


OS 


10 






17831 


00010 




08090 OY 


OS 


10 






17841 


00010 




08100 OZ 


OS 


10 






17851 


00010 




08110 ZERO 


OS 


,7680 






07680 


00000 




08120 


oc 


6,17453292 






17659 


00008 




08130 PI180 


oc 


2,-1 






17861 


00002 




08140 


OENO 


VECTOR 






16462 







TYFERR 02416 
RETURN 02411 
OX 18531 
IAT1 07731 
SYM86 04325 



T0ATA7 03382 
RCOMRK 16521 
OY 18541 
MINUS 18158 
SYMB7 04335 



SYMBOL TABLE 

T0ATA6 03372 
MONITR 02406 
DZ 18551 
PLUS 18018 
MKAR 16561 



TOATAS 03362 
FILSYM 18090 
ERROR 17994 
SYMBl 04269 



T0ATA4 03352 
CROSS 18238 
FM25 17842 
SYMB5 04315 



01010* 






01O20* 






01030* 


VECTOR DEFPRE FORM 


01040* 


LINKAGE - B FM29 


01050* 




FM25 IS EQUIVJ 


01060* 




CALLS TYPERR 


01070* 






01080 


OORG 


17862 


01090 FM2S 


CM 


T0ATA4,5,10, 


01100 


BNE 


ERROR 


oiiio 


CM 


TDATA4*51,S,10» 


01120 


BNE 


ERROR 


01130 


AM 


IAT1,26,10 


01140 


CM 


IAT1,19,610, 


01150 


BE 


PLUS 


01160 


CM 


IATI, 10,610, 


01170 


BE 


MINUS 


01180 


CM 


IAT1,03,610 


01190 


BE 


CROSS 


01200 ERROR 


BTM 


-NOW ITR, 03090 


02010 


BTM 


TYPERR, 301,67, 


02020 PLUS 


TFL 


OX, TOATAS 


02030 


FAOO 


0X,T0ATA5«51, t 


02040 


TFL 


0Y,T0ATA6 


02050 


FAOO 


DY,T0ATA6*Sl,t 


02060 


TFL 


Bl 9 TO ATA 7 


02070 


FAOO 


DZ,?0ATA7*9l.. 


02080 FILSYM 


TFL 


SYMBS,OX,, 


02090 


TFL 


SY®@6,0Y 


02100 


TFL 


SYK«7»DZ 


02110 


TFM 


SYWSi,5i,8 


02120 


TO 


SYM8 7*1, RCOMRK 


02130 


fi7 


RETURN, ,6, 


02140* 






02150 MINUS 


TFL 


0X,T0A7A5 


02160 


fsus 


DX,T0ATAS*51t« 


02170 


TFL 


DY,T0ATA6 


02100 


FSUt 


D¥»TDA?A6*9lt • 


02190 


TFL 


02»T0&?A7 


02200 


«ua 


OZ»?®AYA7*91«» 


03010 


67 


FILSYN 


03020* 






03030 CROSS 


TFL 


0S,T0ATA6 


03040 


?m 


0XtTD'AT«7*Sl 


03050 


TFL 




OS0&O 


FSM 




03070 


Fsya 




o*o«o 


Ta 




OSOfO 







CHECK FOR VECTOR 
CHECK FOR 2N0 VECTOR 



MODIFIERS 



INCORRECT STATEMENT 
DX-0XV1*0XV2 



DV«DVV1*DVV2 



17862 
17862 
17874 
17886 
17898 
17910 
17922 
17934 
17946 
17958 
17970 
17982 
17994 
18006 
18016 
18030 
18042 
13054 
18066 
18076 



02«0ZV1*DZV2 
PUT OATA IN SYMBOL TABLE 

18090 
18102 
18114 
18126 
18138 
18150 



EXIT PROGRAM 

0X-0XV1-0XV2 
OV-OVVl-OYVI 
0Z-OZV1-0ZV2 



OX.OYV1C02VI>-OVV2IOZVII 



14 03352 
47 17994 
14 03403 
47 17994 
11 07731 
14 0773J 
46 18018 
14 0773J 
46 16158 
14 0773J 
46 18238 
17 02400 
17 02410 
06 16531 
01 16531 
06 18541 
01 16541 
06 18551 
01 18551 

06 04315 
06 04329 
06 04335 
16 04289 
25 04336 
49 0241J 



000-5 
01200 
000-5 
01200 
000K6 
0OOJ9 
01200 
OOOJO 
01200 
000-3 
01200 
-3090 
-0301 
03362 
03413 
03372 
03423 
03382 
03433 

18531 
18541 
18SSI 
0-051 
18521 
00000 



18153 06 16131 03362 

18170 02 18531 03413 

18182 06 16541 03372 

18194 02 18541 03423 

18206 06 16951 03382 

18218 02 18551 03433 

18230 49 18090 00000 



16238 06 

18250 03 

10262 06 

1B274 03 

16234 02 

IS298 06 

lfSiO 91 



18931 
16931 
18961 
16961 
18931 
1®$41 
18941 



03372 
03433 

03423 
03382 
18961 
69S02 
03413 



86 



PAGE 2 



03100 


TFL 


WKAR ,TDATA7*51 




18322 


06 18561 


03433 


03110 


FWUL 


WXAR t T0ATA5 




18334 


03 18561 


03362 


03120 


FSUB 


OY f MKAR t • 


0Y-0ZV1 <0XV2)-0ZV2(0XV1 1 


18346 


02 16541 


18561 


03130 


TFL 


DZ,TDATA5 




18358 


06 18551 


03362 


03140 


FHUL 


0Z,T0ATA6*5i 




18370 


03 18551 


03423 


031)0 


TFL 


WKAR,TDATAS*S1 




18382 


06 18561 


03413 


03160 


FHUL 


WKAR,T0ATA6 




18394 


03 18561 


03372 


03170 


FSUB 


OZ » WKAR, , 


DZ*DXVl<0YV2)~DXV2(0YVl) 


18406 


02 18551 


18561 


03100 


B7 


FILSYH 




18418 


49 18090 


00000 


03190* 














03200 


DS 


96,, 


FILL LAST SECTOR 


18520 


00096 




04010* THESE ARE EQUATES FOR 


AREAS COMMON WITH SYSTEM 








04020 IAT1 


OS 


0»773i 




07731 


00000 




04030 SYMB1 


OS 


0,4289 




04289 


00000 




04040 SYMB5 


OS 


0,4315 




04315 


00000 




04050 SYMB6 


OS 


0,4325 




04325 


00000 




04060 SYH87 


DS 


0,4335 




04335 


00000 




04070 T0ATA4 


OS 


0,3352 




03352 


00000 




04000 TDATA5 


OS 


0,3362 




03362 


00000 




04090 TDATA6 


OS 


0,3372 




03372 


00000 




04100 T0ATA7 


OS 


0,3382 




03382 


00000 




04110 NONITR 


OS 


0,2406 




02406 


00000 




04120 RETURN 


OS 


0,2411 




02411 


00000 




04130 TYPERR 


OS 


0,2416 




02416 


00000 




04140* 














04150 RCOMRK 


DC 


It" 




18521 


00001 




04160 OX 


OS 


10 




18531 


00010 




04170 OY 


OS 


10 




18541 


00010 




04180 OZ 


OS 


10 




18551 


00010 




04190 MKAR 


OS 


10 




18561 


00010 




04200 


OENO 


FA25 




17862 







TYPERR 02416 
rOAT12 03432 
T0ATA7 03362 
SYM814 04405 
ROTTRN 17146 
MONITR 02406 
ERRORl 16558 
FMH 16958 
LOOP 16618 
SYHBl 04289 
SYMB9 04355 



TDAT16 03472 
TOATU 03422 
T0ATA6 03372 
SYHBl 3 04395 
RETURN 02411 
MATRIX 16462 
COSINE 17551 
FM191 16734 
ONE 17529 
SYHB5 .04315 
XYROT 17110 



SYMBOL TABLE 

TDAT15 03462 
TOATIO 03412 
T0ATA5 03362 
SYP812 04385 
RCOMRK 17509 
FM7215 16582 
COPMON 16902 
FORM 07712 
PI180 17519 
SYMB6 04325 
ZERO 07660 



T0AT14 03452 
T0ATA9 03402 
SYM816 04425 
SYMBU 04375 
RADIAN 17541 
FM3007 17310 
COSF 02421 
IAT1 07731 
SINE 17541 
SYMB7 04335 



TDAT13 03442 
TDATA8 03392 
SYHB15 04415 
SYMBIO 04365 
NEGONE 17561 
FINNSH 16702 
CTR 17531 
LIKE 16878 
SINF 02416 
SVMB8 04 345 



01010* 
01020* 
01030* 
010^0* 
01050* 
01060* 
01070* 
OlOSO* 
01090 



MATRIX OEFPRE SUBPROGRAM INCLUDING FM72 I 5 (CANONICAL FORM) 
FM191 (TRANSLATION! , FMl I ( ROTATION) , FM3007I TRANSL ANO 
ROT), FMl I (SCALE). 
LINKAGE - B MATRIX 

MATRIX IS EQUIVALENT TO -2416 

CALLS TYPERR, SINF, AND COSF 



OUOO MATRIX CM 

OHIO BE 
01120 CM 
01130 BE 
01140 CM 
01150 BE 
01160 CM 
01170 BE 
Oil SO ERROR 1 BTM 
01190 BTM 



DETERMINE 



FORM 



AND BRANCH 



TO ROUTINE 



INCORRECT STATEMENT 



16462 

16462 14 07712 0P215 
16474 46 16582 01200 
16486 14 07712 0-191 
16498 46 16734 01200 
16510 14 07712 O-Oll 
16522 46 16958 01200 
16534 14 07712 0L007 
16546 46 17310 01200 
16558 17 02400 -3090 
16570 17 02410 -0301 



OORG 16462 

FORM,7215,0t 
FM7215 
FORM, 191,8, 
FM191 

FORM, 11,8, 

FMll 

FORM, 3007, 8, 
FM3007 

MONI TR, 03090, 67 
TYPERR, 301,67, 
01200* CANONICAL FORM - TWELVE PARAMETERS GIVEN 

02010 FH721S AM IAT1,12,, SET I ATI TO Al 

CTR, ,10 

SYMB5, I ATI* 11, PUT Al IN SYMB5 
IAU,14,, SET I ATI TO NEXT PARAMETER 166 

SVMB6,IAT1,11, PUT PARAMETER IN SYMBOL TABLE 

16630 06 04325 0773J 
MOOIFY LAST INSTRUCTION TO TRANSMIT NEXT 

16642 11 16636 -0010 
PARAMETER. KEEP COUNT. 16654 11 17531 000-1 

HAVE ALL TWELVE PARAMETERS BEEN TRANSMITEOO 

16666 14 17531 OOOJl 
YES - GO ON 16678 46 16702 01200 

NO * LOOP 16690 47 16618 01300 

RECORO LENGTH IN SYNS1 16702 16 04289 0-141 



02020 
020 30 
02040 LOOP 
02050 

02060 

02070 
020@0 



TFM 
TFL 
AM 
TFL 

AM 

AM 
CM 



16582 11 07731 -0012 

16594 16 17531 000-0 

16606 06 04315 0773J 

18 11 07731 -0014 



LOOPUB.lOt 



CTR,1*10, 
CTR, 11,10, 



02090 
02100 

02110 FINNSH TFM 

02120 TO 



BE 
BL 



FINNSH,,, 
LOOP,,, 
SYMBi, 141,8, 



SYMB16*1,RC0MRK V , 



PLACE RECOROMARK AT ENO 

16714 25 04426 17509 



02130 
02140* 



B7 RETURN, ,6, EXIT PROGRAM 

TRANSLATION FORM GIVING OX.DY, ANO 01 



O21S0 FM191 AM 

02160 CM 

02170 BNS 

021 GO TFL 

02190 AM 

02200 TFL 



IATl,12i 
UTI,29,610, 
ERftCRl 
SYMOStONCt 
IAT1,14,» 
SVMM.IATLIW 



CHECK FOR MODIFIER TRANSL 
PUT ONE IN 



SYMift 10, ANO IS 



16726 49 0241J 00000 

16734 11 07731-0012 

16746 14 0773J 000K9 

16758 47 16558 01200 

16770 06 04315 17529 

16782 11 07731 -0014 

16794 06 04345 0773J 



87 



05010 




m 


SYH810.0NE,, 


0)020 




AM 


IATI, 14,, 


030 so 




m ' 


SyMil2,rATt»U» 


03040 




m 


SYM®15,0NE 9 , 


03090 




AM 


IAf 1.14.4 


03060 




TFL 


SVMB16aIATl.il. 


03070 


LIKE 


TFL 


SYMB6«ZER0, , 1 


03080 




TFL 


SYMB9,ZER0» • 


030 90 


COMMON 


TFL 


SYNBTtZERO,, < 


03100 




tfl 


SYMBUfZSROtt 


03110 




TFL 


SYMBi3#2gRG,, ! 


03120 




TFL 


SYHB14,ZER0,, 


03130 




8? 


FINNSM 



163106 06 04365 
AMD OX, OY, ANO OZ 

16811 11 07731 
16830 06 04369 
IN SVN88, 12, ANO 16 

16842 06 04415 
16854 il 07731 
RESPECTIVELY. 

16866 06 04425 
FM191 ANO FMU (SCALE ) PUT ZERO 

16878 06 04325 

IN SYMB6 ANO 9 
ALL FORMS PUT ZERO IN 



SYMB7, Hi 13, ANO 14 



16890 06 04)55 

16902 06 04335 

16914 06 04375 

16926 06 04395 

16938 06 04405 

16950 49 16702 
IT IS DETERMINED BY 



03140* FORM 11 CAN BE ONE OF TWO STATEMENTS* 

03150* CHECKING FIRST ELEMENT. 

03160 FM11 AM UT1.12,, 16958 11 07731 

03170 CM IAT1, 34,610, IS MODIFIER XYROT 16970 14 0773J 

03180 BE XYROT 16982 46 17110 

03190 CM IAT1,25,610, IS MODIFIER SCALE 16994 14 0773J 

03200 BNE ERROR! » , , INCORRECT STATEMENT 17006 47 16558 

04010* FORM 11, SCALE MODIFIER 

04020 AM IATI, 14,, 17018 11 07731 

04030 TFL SYMB5,IAT1,U, FUT SCALE FACTOR 17030 06 04315 

04040 TFL SYMBIO.IATI.U 17042 06 04365 

04050 TFL SYMB15,IAT1,U« IN SYM85, 10, AND 15 17054 06 04415 

04060 TFL SYMB8.ZER0,, 17066 06 04345 

04070 TFL SYMB12,2ERO, , ANO ZERO IN SYMB8, 12, ANO 16 

17076 06 04385 

04000 TFL SYMB16.ZER0,, 17090 06 04425 

04090 B7 LIKE,,, OTHER AREAS ARE PILIEO 17102 49 16878 

04100* FORM 11, XYROT MODIFIER 

04110 XYROT 



TFL SYMB8,ZER0, 



FUT ZERO IN SYMB8, 12, 



04120 TFL 
04130 TFL 
04140 ROTTRN TFL 



SYMB12,2ERO,« 
SYMB16.ZER0,, 
SYMB15.0NE,, 



04150 
04160 
04170 
04180 
04190 

04200 
05010 
05020 

05030 
05040 
05050 
05060 

05070 

05080* 

05090* 



AM 

TFL 



BTM M0NITR,2010,67, 



17158 11 07731 

17170 06 17541 

17182 03 17541 

17194 06 17551 



ANO 16. 

17110 06 04345 
17122 06 04385 
17134 06 04425 
IN COMMON WITH FM3007 FUT ONE IN SYMB15, 
17146 06 04415 

IATl,14,, 
RADIAN, IATI, 11, 
FMUL RADIAN, PI 190,, CCNVERT ANGLE TO RADIANS, 
TFL COSINE.RAOIAN,, 

GET SIN-COS ROUTINE THRU MONITR, 

17206 17 02400 
AND OBTAIN SINE AND 17218 17 0242J 
COSINE OF ANGLE. 17230 17 02410 

FUT COSINE IN SYMB5 AND 10, 

17242 06 04315 
SINE IN SYMB4, 17254 06 04323 

17266 06 04369 
17278 03 17541 
ANO NEGATIVE SINE IN SVM89 

17290 06 04355 
17302 49 16902 



BTM 
BTM 
TFL 



COSF, COSINE, 67, 

SINF,SINE,67, 

SYMB5,C0SINE», 



TFL 
TFL 



SYMB6,SINE,, 
SYMBIO, COSINE, 
FMUL SINEvNEGONE, , 
TFL SYMB9, SINE, , 



B7 



COMMON, 



FORM 3007, 
AND DZ 



XYROT ANGLE GIVEN WITH TRANSLATION VALUES OF OX,OY, 



17529 

-0014 
07734 

17929 
-0014 

0773J 

07680 
07680 
07680 
07680 
07680 
07680 
00000 



-0012 
000L4 
01200 
000*3 
01200 

-0014 
0773J 
0773J 
0773J 
07660 

07680 

07680 
00000 



07680 
07680 
07680 

17529 
-0014 
0773J 
17519 
17541 

-2010 
J75S1 
47541 

17551 
17541 
17551 
17561 

17541 
00000 



FACE 



05100 FM3007 AM IATI, 12,, 



17310 11 07731 -0012 



PAGE 9 



05110 




CM 


IATI, 34,610, 


CHECK STATEMENT FOR XYROT 


17322 


14 0773J 


0OOL4 


05120 




BNE 


ERROR! 










17334 


47 16538 


01200 


05130 




AM 


UTU28,, 










17346 


11 07731 


-0026 


05140 




CM 


IAT1»29,610, 


ANO 


TRANSL 


MODIFIERS* 


17358 


14 0773J 


0OOK9 


051S0 




BNE 


ERROR I 










17370 


47 16556 


01200 


05160 




AM 


IAT1,14,, 










17382 


11 07731 


-0014 


05170 




TFL 


SYMB8,IATl,ll, 


PUT 


OX IN 


SYM88, 




17394 


06 04345 


0773J 


05180 




AM 


IATI, 14,, 










17406 


11 07731 


-0014 


05190 




TFL 


SYMB12,IAT1,U 


t 


OY IN 


SVM812 


ANO 


17418 


06 04365 


0773J 


05200 




AM 


!ATl,14,, 










17430 


11 07731 


-0014 


06010 




TFL 


SYMB16,UT1,H 


t 


02 IN 


SYMB16. 




17442 


06 04425 


0773J 


06020 




SM 


IATI ,70, , 


SET 


IATI BACK TO 


lATinV 


17454 


12 07731 


-0070 


06030 




B7 


ROTTRN, , , 


FILL 


OTHER 


AREAS 




17466 


49 17146 


ooooo 


06040 




OS 


36,, 




PILL 


LAST SECTOR 


17508 


00036 




06050* THESE 


ARE 


EQUATES FOR ABSOLUTE 


AREAS 


COMMON 


WITH INTRAN 






06060 


FORM 


DS 


0,7712 










07712 


00000 




06070 


IATI 


DS 


0,7731 










07731 


00000 




06080 


MONITR 


OS 


0,2406 










02406 


00000 




06090 


RETURN 


OS 


0,2411 










02411 


00000 




06100 


TVFERR 


OS 


0,2416 










02416 


00000 




06110 


SINF 


OS 


0,2416 










02416 


00000 




06120 


COSF 


OS 


0,2421 










02421 


ooooo 




06130 


SVK81 


DS 


0,4289 










04289 


00000 




06140 


SYMB5 


OS 


0,4315 










04315 


ooooo 




06150 


SVMB6 


DS 


0,4325 










04329 


ooooo 




06160 


SYMB7 


OS 


0,4339 










04333 


ooooo 




06170 


SVMB8 


OS 


0,4345 










04343 


ooooo 




06180 


SVMB9 


OS 


0,4355 










04339 


ooooo 




06190 


SYMBIO 


OS 


0,4369 










04369 


ooooo 




06200 


SYNBll 


OS 


0,4375 










04379 


ooooo 




07010 


SYMB12 


DS 


0,4305 










04309 


ooooo 




07020 


SYMB13 


OS 


0,4395 










04393 


ooooo 




07030 


SYMB14 


DS 


0,4405 










04405 


ooooo 




07040 


SYMB15 


DS 


0,4419 










04415 


ooooo 




07050 


SYMB16 


DS 


0,4425 










04429 


ooooo 




07060 


TOATAS 


OS 


0,3362 










03362 


ooooo 




07070 


TDATA6 


OS 


0,3372 










03372 


ooooo 




07080 


TDATA7 


OS 


o.ssaa 










03382 


ooooo 




07090 


TDATAO 


OS 


0.3392 










03393 


ooooo 




07100 


TOATAt 


OS 


0,3402 










03402 


cseoo 




07110 


TDAT10 


OS 


0,3412 










03412 


ooooo 




07120 


T0AT11 


DS 


0,3422 










03422 


ooooo 




07130 


T0AT12 


OS 


0,3432 










03492 


ooooo 




07140 


T0AT1S 


OS 


0»M42 










03442 


ooooo 




07150 


T0AT14 


DS 


Ot 2452 










03492 


ooooo 




07160 


T0AT19 


OS 


0,M§2 










03442 


ooooo 




07170 


T0AT16 


OS 


0,3472 










03472 


ooooo 




07180* CONSTANTS 


Am ARIAS USIO 


IN PROGRAM 






17509 


00001 




07190 


ftC0«R« 


DC 


St 8 












07200 


OS . 


8,17493292 










inu 


00003 




08010 


mto 




2.-1 










17919 


00002 




08020 


mo 


os 


,?&£© 












ooooo 




OSOSO 




§•10000000 










am? 






0@§40 M§ 




2.1 










1758t 






ceos© tu 


ee , 


2.0 










17991 


6SS32 




080 §0 


RADIAN OS 


&© 










17941 


mm* 




es® ?o cmim m 


1® 










%mx 


mmo 






%m 


m- 


@ 9 wmtm 












§§s#o 






m 












lT5St 






osieo 




OS 


iti 










imi 


00002 





4 

i 

88 



Oil 10 



OEND MATRIX 



16462 



PAGE 4 



WLNEXT 16714 

TSCONl 18105 

TABCYL 16462 

STEPWL 19093 

SPLCHK 18066 

RPKEEP 19075 

NUMPTS 16532 

LASTUV 18446 

ERPROC 18864 

CALTAN 17174 

B 18924 

DSAT3 17935 

0SAT8 18014 

ICT 16529 

LAST! 18128 

PCOS 19055 

PTCHK 16566 

SC 19045 

ST3 16534 

SU82 18547 

S2 19035 

UC 19065 

V2 18965 

W0L3 17826 

XP3 19005 

2.0 19141 



TYPERR 02416 
TSARAY 18105 
S22ER0 17106 
STEPTD 19082 
SETSYM 17850 
RPCALC 18561 
NOZSPL 18021 
LAST IN 18514 
CHKZRO 18630 
A 18914 
C 18934 
0SAT4 17951 
ER317 18832 
INARG 18629 
LOCI 18899 
PHI 18944 
PTSOK 16942 
SETUV 18338 
ST4 16558 
SUB 3 18625 
TANF 02416 
UPCOH 17570 
V3 18985 
U0RK1 19055 
VP3 19015 



SYMBOL TABLE 

TSTLOC 18132 
TONEXT 16654 
STRATE 17686 
STC0N2 18763 
SETLST 17790 
ROTANG 16762 
MONITR 02406 
INFSLP 19161 
CHKPTS 18196 
AGAIN 17642 
COSF 02421 
0SAT5 17967 
ER318 18852 
INIT 07976 
L0C2 18904 
PHIP 19065 
ROTPT 18562 
SINF 02416 
ST5 18410 
SYMBl 04289 
TCCNS 19084 
U2 18955 
WCCNS 19095 
W0RK2 19065 
0.0 07680 



TSTOAT 18108 
TDATA5 03362 
ST0RE2 18764 
STCCNl 18669 
SECCN2 18337 
RETURN 02411 
MINl.O 19111 
IATAOO 18349 
CHKINF 17294 
ALPHP 19075 
0SAT1 17921 
0SAT6 17983 
EXIT 17910 
IPT 16520 
MCT 07876 
PI 19151 
RPX 18551 
ST1 16510 
ST6 18120 
SYM85 04315 
TSTWO 18022 
U3 18975 
W0L1 16666 
WORK) 19075 
0*5 19121 



TSC0N2 18107 
TDATA* 03*i52 
ST0RE1 18670 
SPLINE 19101 
SEC0N1 18335 
OUTADO 18421 
LOCTST 17522 
GOBACK 18666 
CHKOIG 18195 
ATANF 02416 
DSAT2 17928 
0SAT7 17999 
IAT1 07731 
IXY 16517 
NOZ 19099 
PSIN 19065 
RPY 18556 
ST2 16522 
SUB1 18331 
SI 19025 
THINO 16542 
VC 19075 
W0L2 17558 
XP2 18995 
1.0 19131 



01010* IBM 1620-1311 AO-APT SUBPROGRAM FOR EVALUATING 

01020* COEFFICIENTS OF CUBIC EQUATIONS FOR 

01030* TABULATED CYLINDERS f VAU**3*BU**2*CU*0I 
01040* 

01050* .NAME TABCYL... NON-ERASABLE DEFPRE SUBPROGRAM 

01060* *I0 NUMBER 0350+DE10IM 

01070* *STORE CORE IMAGE 

01000* LINKAGE - 5 TABCYL,, 6 
01090* 

ouoo********************* •••••••••••••••«•••••••••••**•••••••••••••• 

OH 10* TABCYL PROCESSES AO-APT STATEMENTS OF THE FORM • 

01120* (1) TABCYL/NOZ. SPLINE, XI, VI, X2,Y2....»XN,YN • 

0U30* (2) TA8CYL/N0Z, SPLINE. PTl t PT2#...tPTN • 

01140* WHERE XltYl ARE COORDINATES OF POINTS AND PTI ARE • 

0U50* SYMBOL NAMES FOR POINTS. ...N IS GREATER THAN OR • 

01160* EQUAL TO 3 AND LESS THAN OR EQUAL TO 15 • 

01170* * 

0U80* TABCYL OUTPUT FORMAT STORED IN SYMB ARRAY • 

01190* NO. OF CHAR . NAME • SUB. TYPE .XI. VI .Al.Bi.Clt ALPHA I » ••* t • 

01200* XfN-i»,YtN-ll.AfN-ll.8(N-l),CCN«ll.ALPHACN-lUXN f YN • 
020 

02020* 

02030 00*6 16442 ***** 

02040* SUBPROGRAM ENTRY 

02050* 

02060 TABCYL IP UTAOO.I ATI , , STORE STARTING ADDRESS OF WORD LIST 

16462 26 18349 07711 fi n 

02070 ATM TSTWO.. 10. TEST WORD I OF TABCYL STATEMENT CN02I J 

94 16474 17 18022 000-0 



O20@O 


BTM 


TSTKD.1,10. 


TSST WORD 2 OF YASCYL STATEMENT CSPLINIi 


02090 






17 18022 


000*1 


Yf 


TUlNO«IATAOOtllt 


SET INDICATOR <Ol»TDATA t 02«WOR0L ) 




02100 STl 






16498 26 16542 


1834R 


TOM 


UY,0,, 


INITIALIZE LAST INTERVAL INDICATOR 




021 10 $T2 






16510 15 16517 


00000 


TOW 


IGTtOf » 


INITIALIZE FIRST INTERVAL INDICATOR 




02120 STl 






16522 15 16529 


00000 


TFM 


IPT t 3*9» 


INITIALIZE POINT COUNT TO 3 




02130 






16534 16 16520 


00*03 


TFM 


OUTAOOtSYMBSit 


SET SYMB5 AOORESS FOR OUTPUT STORAGE 




02140 ST4 


CM 








TWlN0.2tlO, 


TEST LOCATION OF INPUT DATA 




02190 








000*2 


6E 


WOLl,,* 


WOROL IX-Y COORDINATES ) 










16570 46 16666 


01200 


02160 


BH 


ER317,,, 


INVALID TABCYL STATEMENT 










16582 46 18832 


01 100 


02170* 










02160* 


FIND COEFFICIENTS OF 


FIRST* TRANSLATE AXIS TO FIRST ANO 




02190* 


ROTATE SUCH THAT THE 


AXIS FOR THE INDEPENDENT VARIABLE 




02200* 


PASSES THRU THE SECCNO POINT 




03010* 










03020* 


TOATA INPUT DATA 






03030 


TFM 


TSTL0C*6»T0ATA4»t 


SET AOORESS FOR VALIOITY TEST 










16594 16 18138 


-3352 


03040 


BTFL 


TSTDAT,TC0NS*2tt 


TEST TDATA ARRAY 16606 07 18108 


19086 


03050 


BTM 


CHKPTSivlOt 


TEST AND SET NO. OF PTS INPUT TO TABCYL 








16618 17 18196 


000-0 


03060 


TFM 


L0C1.TDATA5,, 


INITIALIZE TDATA XI ADDRESS 










16630 16 18899 


-3362 


03070 


TFM 


LOC2,T0ATA5*51,, 


INITIALIZE TDATA X2 ADDRESS 










16642 16 18904 


-3411 


03080 TONEXT 


BT 


SETUV,DSAT1*2»» 


SET U*V COORDINATES FOR TDATA INPUT 










16654 27 18338 


17923 


03090* 










03100* 


WOADL INPUT OATA 






03110 WOU 


TF 


TSTLOC+6, I ATADOt • 


SET AOORESS FOR VALIOITY TEST 










16666 26 18138 


18349 


03120 


BTFL 


TSTDAT,WC0NS*2t» 


TEST WOROL ARRAY 16678 07 18108 


19097 


03130 


BTM 


CHKPTStlilO. 


TEST AND SET NO. OF PTS INPUT TO TABCYL 








16690 17 18196 


000*1 


03140 


AM 


IATA00tl2f lOt 


INITIALIZE WORDL XI AOORESS 










16702 11 18349 


00OJ2 


03150 MLNEXT 


TF 


LOCUIATAOO 


16714 26 18899 


18349 


03160 


AM 


IATA0D»28*10f 


INITIALIZE WOROL X2 AOORESS 










16726 11 18349 


O0OK8 


03170 


TF 


L0C2»IATADD 


16738 26 18904 


18349 


03180 


BT 


SETUV,0SAT2>2tt 


SET U*V COORDINATES FOR HOROL INPUT 










16750 27 18338 


17930 


03190* 










03200* 


CALCULATE ROTATION ANGLE .... PHI ... . 




04010 ROTANG 


BTM 


MONITR, 02020t67, 


CALL ATANF SUBROUTINE VIA MONITR 










16762 17 02400 


-2020 


04020 


BT 


ATANF,0SAT3*10«6* 


PHI»ATANF(V2/U2) 16774 27 02410 


17945 


04030 ,. 


TFL 


PSIN,PHI 


16786 06 19065 


18944 


04040 


BTM 


MONITR, 02010, 67, 


CALL SINF-COSF SUBROUTINE VIA MONITR 










16798 17 02400 


-2010 


04050 


BTM 


SINF 9 PSIN,67» 


PSIN«SINF(PHI) 16810 17 02410 


J9065 


04060 


TFL 


PCOStPHI 


16822 06 19055 


18944 



04070 
04080 
04090 
04100 

04110 
04120* 
04130* 
04140 
04150 
04160* 
04170* 
04160 

04190 

04200 PTSOK 

05010 

05020 

05030 

05040 

05050 

05060 
05070 
05080 



BTM 

BT 
BT 



C0SF,PC0S*67» 

R0TPT»0SAT4*10tt 

R0TPT,DSAT5*l0,t 



'FMUL U3.HIN1.0,, 
BT ROTPT,0SAT6*10»9 



PCOS-COSFIPHI) 
CALCULATE POINTS 
RELATIVE TO LOCAL 
ROTATED COORDINATE 

SYSTEM 



16834 17 0242J J90S5 

16646 27 18562 17961 

16858 27 18562 17977 

16870 03 18975 19111 

16882 27 18562 17993 



CALCULATE CENTER OF CIRCLE PASSING THRU THE POINTS 
TFL UCtXP2 16894 06 19065 18995 

FMUL UCt0.5 16906 03 19065 19121 



05100 

05110 
05120 

05130 

05140 S2ZER0 

05150 

05160 

05170 
05180 
05190 
05200* 
06010* 
06020* 

06030 C ALT AM 

06040 

06050 

06060 
06070 

06000 

06090 

OAiOO* 



TEST 3 POINTS IN A 
CM YP3.-5.10, 

BL STRATEi» # 

TFL VC*YP3t* 

FMUL VCfVCt, 
TFL WMKltXPSt* 
FSUB U0RK1*XP2,» 
FMUL MORKl f XP3*9 
FAOD VC.W0RK1,, 

TFL WORK!, VPS, » 
FMUL W0RKl«2.0o 
FOIV VCWORKW, 

BO S2ZER0tIXVt9 

TFL S2#XP2t, 

FSUB S2.UC* 
FOIV S2tVC,* 
67 S2ZER0+12 
TFL S2*0.0*t 

BO CALTANt IGTtt 

TFL SltUCtt 

FMUL SWMINl.Ott 
FOIV SltVC** 
B7 CHKINF 



STRAIGHT LINE 

TEST ROTATED POINT LESS THAN .000001 
16918 14 19015 
. 3 POINTS IN A STRAIGHT LINE 

16930 47 17686 
VC*YP3 16942 06 19075 

VC*m**2 16954 03 19075 

KO&Xl-XPS 16966 06 19055 

U0£SU«XP3-XP2 16978 02 19055 

W0RK1-XP3CXP3-XP2) 16990 03 19055 
VC«YP3**2*XP3**2*XP3*XP2 

17002 01 19075 
WGRKI-YP3 17014 06 19035 

U0RK1*2.0*YP3 17026 03 19055 

VC«(YP3**2*XP3**2-XP3*XP2)/(2.0*YP3I 
17038 09 19073 

TEST LAST INTERVAL X-Y 

17050 43 17106 
CALCULATE SLOPE OF THE CIRCLE AT 

17062 06 19035 
THE SECOND POINT 17074 02 19033 
S2-UP2*UC)/VC 17086 09 19035 

17098 49 17111 
SET SLOPE AT SECOND POINT-0.0 

17106 06 19035 
TEST FIRST INTERVAL fCT (GET TANGENT 
17118 43 17174 
CALCULATE SLOPE OF THE CIRCLE AT 

17130 06 19025 
THE FIRST POINT 17142 03 19025 

SI— UC/VC 17154 09 19025 

17166 49 17294 

CALCULATE TANGENT OF ROTATION ANGLE AND ROTATE THE SLOPE OF 
THE CUBIC IN THE PRfVIOUS INTERVAL INTO THE NEW SYSTEM 



TFL PHlPtOUTAOOtllt 
AM OUTAOOtlOtlO* 

BTM MONITR t02©a©»A?# 

BT A?AJff 9 0$AY7>lO*t* 

FAOO ALPHP»?HIPf * 

FAOD AlPKPtPIvt 
FSU6 AJLPW*9»<g»t 



SAVE PMlCI«i>...»PMlP-SVNBCI-U 

17174 06 19065 
STEP OUTPUT AOORESS FOt XII) 

lUU 11 1B421 
CALL ATANF SUBROUTINE VIA NCM1TR 

17190 17 02400 
ALPHP«ATANR$C/WOI 17210 27 02410 
ALPHP-ATANPISC/LOUPMIP 

17222 01 ItOTB 
ALPHP-ATANF ISC/1*0)4PMIP*PI 

17234 01 19079 
AL PHP» AT AN? tSC/i«OI*PMIP*PI*PMI 

1?24« 02 4t07f 



000-N 

01300 
19015 
19075 
19005 
18995 
19005 

19055 
19015 
19141 

19055 

16517 

18995 
19065 
19075 
00000 

07680 

16529 

19065 
19111 
19075 
00000 



1842J 

OOOJO 

-2020 
16009 

19066 

19151 
16944 



061 10* 


CALCULATE MEW SLOPE 








Oif 120 


TFL 


SltALPHP 


17258 


06 19025 


19075 


061 30 


BT 


MONITR,0SAT8*5*6* 


CALL TANF SUOROUTINE VIA HONITR 










17270 


27 02400 


18019 


06140 


BTH 


TANF, SI, 67, 


SI "TANF ( ALPHP) 17282 


17 02410 


J9025 


Ait rn ruif me 


TFL 


WORK 1, Si,, 


TEST FOR INFINITE SLOPE 












17294 


06 19055 


19025 


06160 


FSUB 


WORKl.INFSLP 


17306 


02 19055 


19161 


061 70 


SL 


•♦24 


17318 


47 17342 


01300 


061 80 


TFL 


Sl.INFSLP*. 


SET SLOPE INFINITE (Sl«l.0E*48) 










17330 


06 19025 


19161 


06190* 












06200* 


CALCULATE COEFFICIENTS 


OF THE CUBIC 






070 10 


TFL 


W0RKl,XP2,, 


W0RKI-XP2 17342 


06 19055 


18995 


07020 


FMUL 


WORK I, WORK 1, , 


W0RKl»XP2**2 17354 


03 19055 


19055 


07030 


TFL 


A, SI,, 


A-Sl 17366 


06 18914 


19025 


07040 


FAOO 


A,S2,, 


A-SUS2 17378 


01 18914 


19035 


07050 


FDIV 


A, WORK I,, 


A«(S1*S2)/XP2**2 17390 


09 18914 


19055 


07060 


BTM 


CHKZRO.A, , 


CHECK A COEFF APPROXIMATELY 


ZERO 










17402 


17 18630 


J8914 


07070 


TFL 


B,S1,, 


B-Si 17414 


06 18924 


19025 


07080 


FMUL 


8,2.0,, 


B-2.0*Sl 17426 


03 18924 


19141 


07090 


FAOO 


B.S2,, 


B-2.0*Sl*S2 17438 


01 18924 


19035 


07100 


FMUL 


B, MINI. Otf 


B— C2.0*S1*S2> 17450 


03 18924 


19111 


071 10 


FDIV 


B,XP2, ( 


B--(2.0*S1*S2)/XP2 17462 


09 18924 


18995 


07120 


BTM 


CHKZRO.B. , 


CHECK B COEFF APPROXIMATELY 


ZERO 










17474 


17 18630 


J8924 


07130 


TFL 


c.su, 


C*S1 17486 


06 18934 


19025 


07140 


BTM 


CHKZRO.C, 


CHECK C COEFF APPROXIMATELY 


ZERO 










17498 


17 18630 


J8934 


07150 


TFL 


SC,S2, * 


SC-S2 17510 


06 19045 


19035 


07160 LOCTST 


CM 


TWIND.2,10, 


TEST LOCATION OF INPUT DATA 












17522 


14 16542 


000-2 


07170 


BE 


WDL2 t «, 


WORDL (X-Y COORDINATES) 












17534 


46 17558 


01200 


07180* 












07190* 


STORE THE POINTS. COEFFICIENTS AND ANGLES 






07200 


BTM 


ST0RE1 ,10,10, 


STORE TOATA OATA (STEPPING CONSTANT- 


10) 








17546 


17 18670 


OOOJO 


08010 WDL2 


BTM 


STORE!, 14,10* 


STORE WORDL OATA (STEPPING CONSTANT-! 


14) 








17558 


17 18670 


000J4 


08020* 












08030* 


COEFFICIENTS NOW STORED. .TEST FOR MORE PROCESSING 




08040 UPCOU 


AM 


LOCI, 4 1,10 


17570 


11 18899 


000M1 


08050* 


LOCI SET TO X ( I ♦ I ) ADDRESS FOR TDATA 






08060* 


L0C2 SET TO X(I*2) ADDRESS FOR TDATA 






08070 


TOM 


IGT.l,, 


SET GT INDICATOR FOR NOT FIRST INTERVAL 






17582 


15 16529 


00001 


08080 


C 


IPT.NUMPTS,* 


TEST ALL POINTS ON TABCYL PROCESSEO 










17594 


24 16520 


16532 


08090 


8L 


AGAIN,** 


MORE POINTS TO PROCESS 












17606 


47 17642 


01300 


08100 


BH 


SETLST,*, 


ALL POINTS PROCESSED 17618 


46 17790 


01100 


08110 


TDM 


IXY.i,, 


SET LAST INTERVAL X-Y INDICATOR 










17630 


15 16517 


00001 


06120 AGAIN 


AM 


IPT.1,10* 


STEP POINT COUNTER 17642 


11 16520 


000- 1 


08130 


CM 


TWIN0,2*10, 


TEST LOCATION OF INPUT DATA 












17654 


14 16542 


000-2 


08140 


BE 


WLNEXT * * * 


WORDL (X-Y COORDINATES ) 












17666 


46 16714 


01200 



08150 




B7 


TDNEXT* * * 


08160* 








08170* 




THREE POINTS IN 


08180 


STRATE 


80 


S2ZER0,IGT,» 


0S190 




TFL 


A, 0.0, , 


06200 




TFL 


B,0.0, , 


09010 




TFL 


CO.O, , 


09020 




TFL 


SI, 0.0,, 


09030 




TFL 


S2.0.0,, 


09040 




TFL 


SC. 0.0,, 


09050 




TFL 


VCINFSLP** 


09060 




87 


LOCTST,*, 


09070 


SETLST 


CM 


TWIND,2,10, 


09080 




BE 


WDL3* • • 


09090* 








09100* 




STORE X(N) AND ' 


09110 




BTM 


ST0RE2.10.10, 


09120 


WDL3 


SM 


LOCI, 27. 10 


09130 




BTM 


STORE2.14.10, 


09140 


SETSYM 


AM 


0UTADD*1,10 


09150 




TOM 


0UTADD,,6, 


09160 




OC 


i.».* 


09170 




SM 


OUTADD.SYMBi- 


09180 




SF 


OUTADO-3 


09190 




TF 


SYNBi.GUTADO 


09200 


EXIT 


B7 


RETURN, ,6, 



TOATA (POINTS) 



17678 49 16654 00000 



A STRAIGHT LINE 



TEST GT INDICATOR 


FOR 


FIRST 


INTERVAL 








17686 


43 


17106 


16529 


SET A, B AND C 




17698 


06 


18914 


07680 


COEFFICIENTS 




17710 


06 


18924 


07680 


-0.0 




17722 


06 


18934 


07680 


SET SLOPES 




17734 


06 


19025 


07680 


TO 




17746 


06 


19035 


07680 


ZERO 




17758 


06 


19045 


07680 


VC-1.0E«48 (INFINITE SLOPE) 












17770 


06 


19075 


19161 


TEST LOCATION OF 


INPUT 


DATA 












17782 


49 


17522 


ooooo 


TEST LOCATION OF 


INPUT 


DATA 












17790 


14 


16542 


000-2 


WOROL (X-Y COORDINATES) 












17802 


46 


17826 


01200 



COORDINATES 

STORE X(N),Y(N) TOATA (STEPPING CON-10) 

17814 17 18764 OOOJO 
17826 12 18899 000K7 

STORE X(N)»Y(N) WORDL (STEPPING CON-14) 

17838 17 18764 000J4 
17850 11 18421 000-1 

SET RECORD MARK AT END OF SYMB ARRAY 

17862 15 1842J OOOOO 

17873 00001 

SET NUMBER OF CHARACTERS IN SYMB ARRAY 

17874 12 18421 -4285 
17886 32 18418 OOOOO 
17898 26 04289 18421 

RETURN TO MAINLINE PROGRAM 

17910 49 0241J OOOOO 



10010* 
10020* 
10030 
10040 
10050 
10060 
10070 
10080 
10090 

10100 0SAT3 

iOUO 
10120 
10130 
10140 
101S0 
10160 
10170 
10160 
10190 

loaoa 

11010 
11020 0SAY4 
11039 
1 1040 



0SAT1 
0SAT2 



0SAT4 



0SAT5 



OSA ARGUMENT ADDRESSES AND CONSTANTS 





STEPTO 


17921 


00005 J9082 


osc 


2,51 


17922 


00002 


OSA 


STEPWL 


17928 


00005 J9093 


OSC 


2*28 


17929 


00002 


DOUG 


0SAT2*2*5*3-ll 


17934 




NOP 


V2*PH! 


17934 


41 18965 18944 


OORG 


*-l4 


17931 




OSA 


U2 


17935 


00005 J8955 


DO^G 


•♦5* 3-4*5*3-11 


17950 




NO? 


V2.XP2 


17950 


41 18965 18995 


OOStG 


#-14 


17947 




OSA 


U2 


. 179S1 


00005 J8955 


omc 


•♦5* 3-4*5*3-11 


17966 


41 18985 19005 


NOP 


VJ.XP3 


17966 


DOUG 


•-14 


17963 




DSA 


U3 


17967 


00005 J8975 


DGHG 


•♦5* 3-4*5*3- I I 


17982 


41 18975 19015 


HOP 


U3.VP3 


17982 


DOUG 


*-14 


17979 




OSA 


V3 


179S3 


00005 J89S5 


CCiG 


»*§® 1-4*5*3- I i 


17998 




NOP 


SC.ALPHP 


17998 


41 19045 19075 



11030 


DGRG 


•-14 


17993 




11060 DSAT7 


DSA 


1*0 


17999 00005 J9131 


11070 


DG3C 


e*<£«>S~6 


16010 




11080 0SAT8 


OSA 


CH&ffttS* 


18014 00005 J7294 


HOfO 


OSC 


3,02211 


18015 00003 




11 100* 










111 10* 










11120* 


TEST VALIOITY AND CORRECTNESS 0P WORDS 1 AND 2 IN 




11130* 


TABCYL STATEMENT 






11140 N02SPL 


OAS 


1», 


TEST WORD FOR VALIOITY (0«NOZ, l-SPLINE ) 








18021 00002 




11130 TSTMD 


AM 


IATAOO.12,10 


16022 11 18349 


00OJ2 


11160 


80 


SPLCHK, NOZSPL 


18034 43 18066 


18021 


11170 


C 


IATA00,N0Z,6# 


TEST WORD 1 (NOZ) 16046 24 1834R 


19099 


11U0 


B7 


SPLCHK*12 


18058 49 18078 


00000 


11190 SPLCHK 


C 


I AT AOD, SPLINE, 6, 


TEST WORD 2 (SPLINE) 18066 24 1834R 


19101 


11200 


BNE 


ER317,,, 


TABCYL STATEMENT 18078 47 18832 


01200 


12010 


AM 


IATA00 9 2tl0 


18090 11 18349 


000-2 


12020 


BB2 


• • • 


BRANCH BACK 16102 42 00000 


00000 


12030* 










12040* 


TEST VALIOITY ANO CORRECTNESS OF ENTIRE TABCYL STATEMENT 




12050 TSARAY 


OAS 


2«t 


TEST ARRAY FOR VALIOITY (TOATA OR WOROL) 








18105 00004 




12060 TSC0N1 


OS 


2, TSARAY, 


STEPPING CONSTANT (51«T0ATA, 14-WORDL ! 


1 








16105 00002 




12070 TSC0N2 


OS 


2»TSARAY+2« 


TYPE CONSTANT (09-TOATA t 02- WORDL ) 










18107 00002 




12080 TSTOAT 


TF 


LAST1«MCT, , 


SET NUM8ER OF ELEMENTS TO RIGHT OF / 










18108 26 18128 


07876 


12090 ST6 


SM 


LAST!, 2,10 


18120 12 18128 


COO-2 


12100 TSTLOC 


C 


,TSC0N2,, 


TEST VALID TYPE 18132 24 00000 


18107 


12110 


BNE 


ER317,,, 


INVALID TABCYL STATEMENT 










18144 47 18832 


01200 


12120 


A 


TSTLOC+6, TSCONl,, 


STEP TEST LOCATION 18156 21 18138 


18105 


12130 


SM 


LASTl.1,10, 


TEST ENTIRE STATEMENT PROCESSED 










18168 12 18128 


000-1 


12140 


BNE 


TSTLOC 


18180 47 18132 


01200 


12150 


BB2 


t » » 


BRANCH BACK 18192 42 00000 


00000 


12160* 










12170* 


TEST VALIDITY (NUMBER 


OF POINTS 1 INPUT TO TABCYL 




12160* 


CALCULATE NUMBER OF POINTS INPUT TO TABCYL 




12190 CHKOIG 


OAS 


lit 


INPUT DIGIT (0«TDATA,1»W0RDL) 










18195 00002 




12200 CHKPTS 


TF 


PTCHK.MCT,, 


SET NUMBER OF ELEMENTS TO RIGHT OF / 










18196 26 16566 


07876 


13010 


SM 


PTCHK,2,10 


18208 12 16566 


000-2 


13020 


BO 


•♦24.CHK02G 


18220 43 18244 


18195 


13030 


A 


PTCHK,PTCHK ' 


18232 21 16566 


16566 


13040 


MM 


PTCMK t S,10t 


TEST FOR EVEN NUMBER OF COORDINATES 










18244 13 16566 


000-5 


13050 


TF 


NUMPTS ,98, , 


SET NUMBER OF POINTS INPUT TO TABCYL 










18256 26 16532 


00096 


13060 


BO 


ER318.99,, 


000 NUMBER OF COORDINATES 










16268 43 18852 


00099 


13070 


CM 


93,3,9 


18280 14 00098 


00-03 


13060 


BL 


ER31B,,, 


LESS THAN 3 POINTS INPUT 










18292 47 18852 


01300 


13090 


CM 


98,15,9 


18304 14 00098 


00-15 


13100 


BH 


ER318,,, 


GREATER THAN 15 POINTS INPUT 










18316 46 18852 


01100 



13110 
13120* 
13130* 
13140 SU81 
13150 SEC0N1 

13160 SEC0N2 

13170 SETUV 



BRANCH BACK 



18328 42 00000 00000 



13180 
13190 
13200 

14010 
14020 
14030 STS 
14040 

14050 

14060 LASTUV 
14070 



14090 
14100 



14120 LASTIN 
14130 
14140 

14150* 
14160* 
14170 SUB2 
14180 RPX 
14190 RPY 
14200 RPCALC 

15010 RGTPT 
15020 
15030 
15040 

15030 

15060 
13070* 

15000* 
1S090* 
1310© SUB3 
tSUO I MASS 

13120 CHK2RQ 

IS1S0 
15140 

15150 &9IACK 



SET U-V COORDINATES 
OAS 4 

OS 5,$UB1*4, 

OS 2»SUBl*6» 

•CF L0C2-4,,, 

TFL U2,LQC2,U, 
FSUB U2, LOCI, 11, 
A L0C2,SEC0N1,11, 

TFL V2,L0C2,11, 
FSUB V2,LGC1,11, 
SF SEC0N2-1 
BO LASTIN, IKY,, 

A LOC2,SECON2,, 
TFL V3, L0C2.il, 
FSUB V3, LOCI, 11, 

$ LQC2,SEC0Ni,li, 

TFL U3,L0C2,U, 
FSUB U3,L0C1,11, 

B7 ROTANG, , t 

S L0C2.SECCW2,, 
S L0C2,SEC0N2, • 
87 LASTUV, , , 



FOR TOATA OR WORDL INPUT OATA 

18331 00008 
TOATA OR WORDL STEPPING CONSTANT 

18335 00005 
TOATA OR WOROL STEPPING CONSTANT 

18337 00002 
SET UP LOCATION ADDRESSES FOR STEPPING 

163)38 33 18900 00000 
U2»X(X+1) 18350 06 10955 189QM 

U2«X(I*1)-X(I) 18362 02 18955 1889R 

SET Y(I) AND Y(I*U AOORESSES 

18374 21 18904 1833N 
V2«Y(I*l) 18386 06 18965 1890M 

V2*Y(I*i)-Y(l) 18398 02 18965 1889R 

18410 32 18336 00000 

TEST LAST INTERVAL X-Y 

18422 43 1851* 16517 



SET Y(!*2) AODRESS 
V3-Y(I*2) OR Y(I-l) 
V3«(Y(I*2) OR Y(I-i) 



18434 21 16904 18337 
18446 06 18985 1890M 
l-YU) 

18458 02 18985 1889R 
SET X(I) AND X(I*2) OR X(l-l) ADDRESSES 

16470 22 18904 1833N 
U3»XU*2) OR X(I-t) 18482 06 18975 1890M 
U3«(XU+2) OR X(l-lJ)-X(I) 

18494 02 18975 1889R 
CALCULATE ROTATION ANGLE 

18506 49 16762 00000 
SET Yd) AOORESS 18514 22 18904 18337 

SET Y(I-l) AOORESS 18526 22 18904 18337 
LAST INTERVAL CALCULATION 

18538 49 16446 00000 



CALCULATE POINTS 

das i 

OS > 5,SUS2*4» . 
OS S,$UM*9, 
OS 5,$Ua2*l4, 

TFL RPKEEP,«PX,lt 
FMUL RPKEEP.PCOS,, 
TFL RPCALC, RPY, 61 
FMUL RPCALC, PSIN, 6 
PAOD RPCALC, 



RELATIVE TO LOCAL ROTATED COORD SYSTEM 
18547 00016 

X COORDINATE ADDRESS 18551 00003 
Y COORDINATE ADDRESS I8SS6 00005 
CALCULATED POINT AOORESS 

18561 00005 

, RPKEEP»X 

RPKEEP«X*COSFfPHS ) 
L. RPCALC-Y 

RPCALC«Y»SINF(PHI) 



18562 06 19075 1855J 

18574 03 19075 19055 

18386 06 1856J 18550 

18598 03 1836J 19065 



882 



RPCALC«X*C0SF(PHI)*V«SINF(PHI1 

18610 01 1B56J 19075 
BRANCH BACK 18622 42 00000 00000 



CH6CK imm mmmar approximately ziro 

SET INPUT AftOUMCNT LfSS THAN l@**~S TO 0.0 

18625 00004 

INPUT ARGUMENT AOORfSS 

18429 00003 
TEST INPUT ARGUMENT LESS THAN lO**-3 

18630 14 1862R 000-M 
INPUT ARGUMENT IS OK 18642 46 18666 01300 

SIT INPUT &RGyHfliT«0«6 

im§* 06 1862R 07660 

@t^CH iACK l§#66 42 00000 OGOOO 



DAS 


% 


OS 


3#SUiS*4t 


CM 


INARG,-4,610, 


BN3» 


C08AXK 9 «f 


TFL 


IHM&fO«Ot&» 


682 





15160* 
15170* 



STORE THE POI NTS.COEFF IC I ENTS ANO ANGLES 



isieo 


STC0N1 


DAS 


lit 




STEPPING CONSTANT UO-TOATA, 


14-WORDL) 














18669 


00002 




15190 


STORE! 


TFL 


OUTAOO, 


,L0C1 V 6U» 


SYKBUJ-X(l) 18670 


06 1842J 


1889R 


152 00 




A 


LOC1«STCON1 


18682 


21 18899 


18669 


16010 




AH 


OUT ADO i 


•10,10 


18694 


11 18421 


000 JO 


16020 




TFL 


OUTAOO i 


,L0Ci,6ll# 


SYMBf l*l)*Y'(I) 18706 


06 1842J 


1889R 


16030 




AM 


OUTAOO< 


,1.10, 


SYMB(I*2)»A(I),SYMB( lO)-BU ), 














18718 


11 18421 


000-1 


16040 




TR 


OUTAOO, 


►A-9,6. 


SYMB( I*4)«»C ( I ) »SYMB( 1*5) -PHI 


(I ) 




16050 










18730 


31 1842J 


18905 




AM 


OUTAOO* 


,39,10» 


STEP OUTPUT AOORESS FOR PHI ( 


It 














18742 


11 18421 


000L9 


16060 




B7 


UPCOU 




18754 


49 17570 


00000 



16070* 
16080* 



STORE X(N) ANO YIN) COORDINATES 



16090 


STC0N2 


OAS 


lit 


STEPPING CONSTANT 


(10- 


TDATA ( 


rl4»WOR0L) 














18763 


00002 




16100 


ST0RE2 


AM 


OUTADD, 10,10, 


SET OUTPUT AOORESS 


FOR 


X(N) 
18764 


11 18421 


OOOJO 


16110 




TFL 


OUTAOO, LOCI, 611, 


SYMB(N-l)*X(N) 




18776 


06 1842J 


1889R 


16120 




A 


L0CUSTC0N2 






18788 


21 18899 


18763 


16130 




AM 


OUTAOO, 10, 10, 


SET OUTPUT AOORESS 


FOR 


Y(N) 
18800 


11 18421 


OOOJO 


16140 




TFL 


OUTAOO, LOCI, 611, 


SYMB(N)-Y(N) 




18812 


06 1842J 


1889R 


16150 




B7 


SETSYM 






18824 


49 17850 


00000 



16160* 
16170* 
16180* 



ERROR CONOITION-INVALID OR INCORRECT TABCYL STATEMENT 
ERROR CONDITION-INVALID NUMBER OF POINTS INPUT TO TABCYL 



16190 


ER317 


TFM 


ERPR0C*23,317», 


INVALID OR INCORRECT TABCYL STATEMENT 










18832 16 18887 


-0317 


16200 




B7 


ERPROC 


18844 49 18864 


00000 


17010 


ER318 


TFM 


ERPROC+23.318,. 


INVALID NUMBER OF POINTS 

18852 16 18887 


-0318 


17020 


ERPROC 


BTM 


MONI TR, 03090, 67, 


CALL TYPERR SUBPROGRAM VIA MONITR 

18864 17 02400 


-3090 


17030 




BTM 


TYPERR,,6, 


TYPE ERROR MESSAGE 18876 17 02410 


00000 


17040 




B7 


INIT,,, 


RETURN TO MAINLINE PROGRAM 

18888 49 07976 


00000 


17050* 










17060* 










17070* 


STORAGE 






17080 


IXY 


DS 


l.STl*7, 


LAST INTERVAL X-Y INOICATOR 

16517 00001 




17090 


IGT 


OS 


1,ST2*7, 


FIRST INTERVAL GT INDICATOR 

16529 00001 




17100 


TWIND 


DS ' 


2,ST3+8, 


TDATA OR WOROL INPUT INDICATOR 

16542 00002 




17110 


PTCHK 


DS 


2,ST4+8, 


POINT CHECK STORAGE 16566 00002 




17120 


IPT 


DS 


3,SU+10» 


POINT COUNT STORAGE 16520 00003 




17130 


NUMPTS 


OS 


3.ST2+10, 


NUMBER OF POINTS INPUT TO TABCYL 
16532 00003 




17140 


IATADD 


OS 


5,SETUV*ll, 


CURRENT WORKING ADDRESS 

18349 00005 




17150 


OUTAOO 


OS 


5,ST5*U* 


CURRENT OUTPUT AOORESS 

18421 00005 




17160 


LAST1 


OS 


2,ST6*B, 


NUMBER OF ELEMENTS COUNTER 

18128 00002 




17170 


LOCI 


OS 


5,, 


TDATA OR WOROL XII) AOORESS 





17180 


L0C2 


OS 


5.L0CU5, 


17190 




DORG 


L0C1+6 


17200 


A 


DS 


10,, 


18010 


B 


DS 


10,A*10, 


16020 


C 


DS 


10»A*20» 


18030 


PHI 


DS 


10,A+30t 


18040 




DC 


l.».A*3l» 


18050 




DORG 


A* 32 


18060 


U2 


OS 


10,, 


18070 


V2 


DS 


10,, 


18060 


U3 


OS 


10,, 


18090 


V3 


OS 


10,, 


18100 


XP2 


OS 


10,, 


13110 


XP3 


DS 


10,, 


18120 


YP3 


OS 


10,, 


18130 


SI 


DS 


10,, 


18140 


S2 


DS 


10,, 


18150 


sc 


DS 


10,, 


18160 


W0RK1 


DS 


10,, 


U170 


W0RK2 


OS 


10,* 


18180 


W0RK3 


OS 


10,, 


18190 


PCOS 


OS 


10.W0RKW 


18200 


PSIN 


OS 


10,W0RK2. 


19010 


RPKEEP 


OS 


10,UQRK3» 


19020 


UC 


OS 


10,WQRK2» 


19030 


VC 


OS 


10,W0RK3t 


19040 


PHIP 


OS 


10,W0RK2» 


19050 


ALPHP 


OS 


10.W0RK3, 


19060 


MONITR 


DS 


,2406, 


19070 


SINF 


OS 


,2416, 


19080 


COSF 


DS 


.2421, 


19090 


TANF 


OS 


.2416, 


19100 


ATANF 


DS 


•2416, 


19110 


TYPERR 


DS 


,2416, 


19120 


INIT 


OS 


#7974. 


19130 


RETURN 


DS 


•2411, 


19140 


MCT 


OS 


,7876, 


19150 


IAT1 


DS 


•7731, 


19160 


SYM8 1 


OS 


,4289, 


19170 


SYM85 


OS 


•4315, 


19160 


TDATA4 


OS 


•3352, 


19190 


TDATA5 


OS 


•3362t 


19200 


0.0 


DS 


,7630,, 


20010* 






20020* 


CONSTANTS 


20030 


STEPTD 


DC 


7,1000010,, 


20040 


TCONS 


OVLC 


,2,51,2,09 


20050 


STEPWL 


DC ■ 


7, 1400014«i 




yco-NS 


wViC 


t2»i«t 2»02 








2«i6,, 



A COEFFICIENT 
8 COEFFICIENT 
C COEFFICIENT 
ANGLE PHI (ALPHA) 
RECORD MARK 

U-V COORDINATES 
FOR TRANSLATED 
ANO ROTATED 
X- 



18899 00005 
TOATA OR WOROL XU*1) AOCRESS 

18904 00005 
18905 

18914 00010 
18924 00010 
18934 00010 

18944 00010 

18945 00001 
18946 

18955 00010 
18965 00010 
18975 00010 
COORDINATES 

18985 00010 

POINTS RELATIVE TO 18995 00010 
ROTATED LOCAL 19005 00010 

COORDINATE SYSTEM 19015 00010 
POINT 19025 00010 

SLOPE 19035 00010 

STORAGE 19045 00010 

WORKING STORAGE 19055 00010 

WORKING STORAGE 19065 00010 

WORKING STORAGE 19075 00010 

COSF(ROTATION ANGLE) 19055 00010 
SINF (ROTATION ANGLE) 19065 00010 
ROTPT WORKING STORAGE 19075 00010 
U-V COORDINATE OF 19065 00010 

CENTER OF CIRCLE 19075 00010 
PREVIOUS ROTATION ANGLE 

19065 00010 

PRESENT ROTATION ANGLE 

19075 00010 

MONITOR AOORESS 
SINE AOORESS 
COSINE AOORESS 
TANGENT ADDRESS 
ARCTANGENT ADDRESS 
TYPE ERROR AOORESS 
INITIALIZATION AOORESS 

07976 00000 
RETURN AOORESS 02411 00000 

NUMBER OF ELEMENTS TO RIGHT OF / 

07876 00000 
WORO LIST STARTING ADDRESS 

07731 00000 

SYMB ARRAY AOORESS 
SYMB ARRAY AOORESS 
TDATA ARRAY ADDRESS 
TDATA ARRAY AOORESS 
FLOATING POINT ZERO 



02406 00000 
02416 00000 
02421 00000 
02416 00000 
02416 00000 
02416 00000 



04289 00000 
04315 00000 
03352 00000 
03362 00000 
07680 00000 



STEPPING CONSTANT FOR TOATA INPUT 

19082 00007 

19084 00004 

STEPPING CONSTANT FOR WOROL INPUT 

19093 00007 

19095 00004 

CODE FOR NCI 19099 00002 



93 



203 SO 


SPLINE 


OC 


2,92,, 


cms for 


SPLINE 


mo I 


00002 






DC 


©»-!O0OOOOO 








19109 


00008 


20133 


MINl.O OC 


2*lt f 


MINUS FLOATING 


POINT 




















19111 


00002 


20110 




OC 


8,50000000 








19119 


00009 


20120 


0.5 


OC 


2iOt» 


FLOATING 


POINT 


ONE-HALF.. 


















19121 


00002 


20130 




DC 


8,10000000 








19129 


ooooa 


20140 


1*0 


OC 


2tl»t 


FLOATING 


POINT 


ONE 


19131 


00002 


20! SO 




OC 


8,20000000 








19139 


00003 


20U0 


2*0 


OC 


2»lt» 


FLOATING 


POINT 


TWO 


19141 


00002 


20170 




OC 


6.31415926 








19149 


00008 


2018Q 


PI 


OC 


2, It, 


FLOATING 


POINT 


VALUE 


OF Pt 
19191 


00002 


20190 




OC 


8,10000000 








19159 


00008 


20200 


IMFSLP 


OC 


2t49, t 


FLOATING 


POINT 


VALUE 


OF INFINITE SLOPE 



19161 00002 
21010* 

21020*«*»**«»«***««»*««»»*»»«»»»«*»*«»*»«»»«»»*««*«»«»*»*«**««**««*^*«» 

21030 OENO TA8CYL 16462 



1.0E48 18158 
PERPTO 17958 
LTPTA8 17362 
COMPX 17446 
0SA3 18229 
ER321 17538 
NXY 04315 
TANTO 18006 
X 18168 



TYPERR 02416 
NVSRTL IS030 
LOCSLP 17802 
CON60 1S142 
DSA4 1S2S5 
IATl 07731 
S 18168 
TOATA 03333 
V 18168 



SYMBOL TABLE 

TDA7A6 03372 
NTLAST 16036 
LASTPT 17410 
OISTF 02416 
DSA5 10270 
LAST 17586 
SCALC 17682 
TEMP 00079 
0.0 07680 



T0ATA5 03362 
MCNITR 02406 
CN1020 18140 
DSAi 18193 
OTOS 02416 
MOD 17886 
SYMB6 04325 
TLAST 17562 
1.0 18188 



return o?*n 

MiNl.O 18178 
ATANF 02416 
DSA2 IG203 
ER301 17934 
MST 04315 
TANF 02416 
VERTL 18106 



01010* 




01020* 




01030* 




01040* 




01050* 




01060* 




01070* 




01080* 




01090* 




01100* 




Oil 10* 




01120 


OORG 


01130* 




01140 LTPTAB 


TFM 


01150 


A 


01160 


TFM 


01170 


AM 


01180 LASTPT 


CM 


01190 


8H 


01200* 




02010 


TFL 


020 20 COMPX 


FSU9 


02030 


bns 


02040* 




02050 


m 


02040 


TFL 


02070 


FSUfi 


02080 


BE • 


020^0* 




Q2tm 


m 


02113 




021 SO 


ma 


02 ISO* 




01140 6R321 


8T» 


02150 


8T» 


02160 TLAST 


m' 


02170 


§S0t 


62180* 




021 tO LAST 


m 


02200 


TP 


03.319 


TP 


§%§2Q 


m 



I8M 1620-1311 AO-APT DEFPRE SUBPROGRAM FOR DETERMINING 
A LINE DEFINEO BY A STATEMENT OF THE FORM**** 

RCS 

LINl-LINE/PTl, TANTO, TAB! 
LIN1»LINE/PT1, PERPTO, TAB1 

' *NANS LTPTAB.*. NON-ERASABLE OEFPRE SUBPROGRAM 
• 20 NUNSEA 03SUDEL0IM 
•STORE CORE IMAGE 
LINKAGE - 6 LTPTAB, ,6 

17362 17362 

SUBPROGRAM ENTRY 
LASTPT*! 1#T0ATA*5& 



C0MPX*ll,TDATA*20 

COMPX+I0,6tl0 
COMPX* 11 
ER321,,, 



X,T0ATA5 
Xt • » 

LASTPT-12 

coKPx*ioa»io 

V,?DATA6 

v»coMpxm»iit 

COMtWlOtStlO 

asm ■ 



COMPARE X 





17362 


16 


17421 


-3384 


RECORD 


IN TOATA 1 


rABLE 






17374 


21 


17421 


03307 




17386 


16 


17457 


-3353 




1739Q 


11 


17456 


000-6 




17410 


14 


17457 


-0000 


IS NOT 


IN TABCYL 


ARRAY 






17422 


46 


175)8 


01100 




17434 


06 


18168 


03362 


XII) 


17446 


02 


10160 


00000 




17458 


47 


17398 


01200 




17470 


11 


17456 


000-1 




17482 


06 


18168 


03372 


YIII 


17494 


02 


18168 


1749P 




17906 


46 


17562 


01200 




17518 


It 


17456 


000-5 




17S30 


49 


17410 


00000 



17338 



M0NIttt0S0«0**7t CALL TYP2S&R SUBPROGRAM VIA MOHITR 

17S3© 17 02400 -3090 

TYPEMl.S2i.69 17550 17 02410 00L21 

COMPX+-llt!*tO 17562 11 17457 000- 1 

dfiASTtCOMPXmtll* BRANCH IP POINT IS NOT AT MQ OF TABCYL 

17974 4S 18036 1745P 



cowx+iunaot 

0$A3»C0R»im 

0SA2*8.DSA2 

osAa^fitiOi 



ADDRESS OP Xfl-l) 



ADDRESS OP VCI-ll 



17*04 IS 17457 O0OP1 

17S9© 26 11109 17457 
17410 U IB20B 1B203 
17622 11 14207 000-1 



PAGE 2 



03030 


CF 


OS A 2 - 1 


17634 


33 18204 


00000 


03040 


TF 


DSA2*15,0SA2*5 


17646 


26 18218 


18208 


03050 


A 


DSA2*4,C0N60 


17658 


21 18207 


16142 


03060 


BT 


MQNITR,0SAl*S,6. 


CALL OISTF SUBPROGRAM VIA MONITR 










17670 


27 02400 


18196 


03070 SCALC 


BT 


DISTF,0SA2*20,6, 


CALCULATE DISTANCE FROM P(I-l) TO P(I) 








17682 


27 02410 


18223 


03080 


AM 


C0MPX*10,2,10, 


ADDRESS OF A-COEFF IC IENT 












17694 


11 17456 


000-2 


03090 


TF 


DSA3*5,C0MPX*ll 


17706 


26 18234 


17457 


03100 


TF 


0SA3*10«DSA3+5 


17718 


26 18239 


18234 


03110 


TF 


DSA3+15,DSA3*5 


17730 


26 18244 


18234 


03120 


CF 


DSA3UI 


17742 


33 18240 


00000 


03130 


A 


DSA3*14,CN1020 


17754 


21 18243 


18148 


03140 


CF 


0SA3*1 


17766 


33 18230 


00000 


03150 


CF 


DSA3+6 


17778 


33 16235 


00000 


03160 


BTM 


MONITR, 02510, 67, 


CALL OTOS SUBPROGRAM VIA MONITR 










17790 


17 02400 


-2510 


03170 LOCSLP 


BT 


0TDS,DSA3*20»6, 


CALCULATE SLOPE OF TABCYL IN LOCAL SYST. 








17802 


27 02410 


18249 


03160 


BTM 


MONITR, 02020,67, 


CALL ATANF SUBROUTINE VIA MONITR 










17814 


17 02400 


— 2020 


03190 


BT 


ATANF,DSA4*10,6. 


MXY* ATANF ( MST ) 17826 


27 02410 


18265 


03200 


AM 


0SA3*4,3,10, 


AOORESS OF ALPHA 17838 


11 18233 


000-3 


0*010 


FAOO 


MXY,DSA3*5,ll, 


MXY" ATANF (MST) ♦ ALPHA 17850 


01 04315 


1823M 


04020 


BT 


MONITR, DSA5*5, 6, 


CALL TANF SUBPROGRAM VIA MONITR 










17862 


27 02400 


18275 


04030 


BTM 


TANF, MXY, 67, 


MXY-TANFI ATANF ( MST )*ALPHA) 












17874 


17 02410 


-4315 


04040 MOO 


CM 


IATI, 27, 610 


17886 


14 0773J 


000K7 


04050 


BE 


TANTO. •» 


BRANCH IF MODIFIER IS TANTO 












17898 


46 18006 


01200 


04060*. 












04070 


CM 


IATI, 18, 610 


17910 


14 0773J 


O0OJ8 


04080 


BE 


PERPTO,, # 


BRANCH IF MOOIFIER IS PERPTO 










17922 


46 17958 


01200 


04090* 












04100 ER301 


BTM 


MONITR, 03090,67, 


CALL TYPERR SUBPROGRAM VIA MONITR 










17934 


17 02400 


-3090 


04110 


BTM 


TYPERR.301,69 


17946 


17 02410 


00L01 


04120 PERPTO 


TFL 


TEMP, MINI. 


17958 


06 00079 


18178 


04130 


FOIV 


TEMP,MXY,» 


-1.0/MXY 17970 


09 00079 


04315 


04140 


TFL 


MXY, TEMP 


17982 


06 04315 


00079 


04150 


8V 


VERTL, , , 


BRANCH IF SLOPE IS 0.0 












17994 


46 16106 


01400 


04160* 












04170 TANTO 


CM 


MXY, 5* 10 


18006 


14 04315 


000-5 


04180 


8NN, 


VERTL,,, 


BRANCH IF SLOPE INFINITE BY 


DEFINITION 








18018 


46 18106 


01300 


04190* 












04200 NVERTL 


TFL 


SYM86.T0ATA6 


18030 


06 04325 


03372 


05010 


TFL 


TEMP, MXY 


18042 


06 00079 


04315 


05020 


FMUL 


TEMP.TDATA5,, 


MXY»X 18054 


03 00079 


03362 


05030 


FSUB 


SYMB6* TEMP, , 


SYHB6»Y-HXY*X 18066 


02 04325 


00079 


05040 


B 


RETURN, ,6, 


RETURN TO MONITR 18078 


49 0241J 


00000 


05050 


OORG 


*~3 


18086 






05060* 












05070 NTLAST 


AM 


COMPX+11,9,10, 


AOORESS OF A-COEFFICIENT 












18086 


11 17457 


000-9 


05060 


B 


SCALC+24 


18098 


49 17706 


00000 


05090 


OORG 


*~3 


18106 






05100* 












05110 VERTL 


TFL 


MXY,l.0E48,, 


MXY* I.OE40 18106 


06 04315 


18158 


05120 


TFL 


SYM36.0.0 


18118 


06 04325 


07680 


05130 


B 


NVERTL* 12 


18130 


49 16042 


00000 


05140 


OORG 


•-4 


18137 






05150* 












05160 C0N60 


OC 


6,600006 


18142 


00006 




05170 CN1020 


OC 


6, 100002 


18148 


00006 




051 80 


DC 


8, 10000000 


18156 


00008 




05190 1.0E48 


DC 


2,49 


18158 


00002 




05200 X 


OC 


10,0 


18168 


00010 




06010 


OC 


8,-10000000 


18176 


00008 




06020 MIN1.0 


DC 


2, 1 


18178 


00002 




06030 


OC 


8, 10000000 


18186 


00008 




06040 1.0 


DC 


2, 1 


18188 


00002 




06050 0SA1 


OSA 


SCALC*12 


18193 


00005 J 7694 


06060 


OSC 


5,02101 


18194 


00005 




06070 


OORG 


DSA1*5*5*5-11 


18212 






06080 


NOP 


0,S 


18212 


41 00000 


18166 


06090 


OORG 


*-2i 


18202 






06100 


NOP 


0*0 


18202 


41 00000 


00000 


061 10 


DORG 


»-l4 


18199 






06120 0SA2 


OSA 





18203 


00005 -0000 


06130 


DORG 


•♦5»5-4*5*5-ll 


18238 






06140 


NOP 


0,MST 


18238 


41 00000 


04315 


06150 


DGRG 


•-21 


18228 






06160 


NOP 


0,0 


18228 


41 00000 


00000 


06170 


OORG 


•-14 


18225 






06180 0SA3 


DSA 


S 


18229 


00005 J6168 


06190 


OORG 


• ♦5*5-4*5*3~ll 


18254 






06200 


NOP 


MST,MXY 


18254 


41 04315 


04315 


07010 


OORG 


•-14 


18251 






07020 0SA4 


OSA 


1.0 


18255 


00005 J8188 


07030 


DORG 


•♦5*3-4 


18266 






07040 0SA5 


DSA 


MOD 


18270 


00005 J7866 


07050 


DSC 


5*02211 


18271 


00005 




07060 


OS 


86 , , 


FILL LAST SECTOR 18361 


00086 




07070* 








00000 




07030 TOATA 


OS 


,3333 


03333 




07090 Y 


OS 


tX 


18168 


00000 




07100 T0ATA5 


DS 


,3362 


03362 


00000 




07110 Y0ATA6 


DS 


,3372 


03372 


00000 




07120 MONI TR 


DS 


,2406 


02406 


00000 




07130 TVPERR 


DS 


,2416 


02416 


00000 




07140 OISTF 


OS 


,2416 


02416 


00000 




07150 070S 


DS 


,2416 


02416 


00000 




07160 ATANF 


DS 


,2416 


02416 


00000 




07170 MXY 


OS 


,4315 


04315 


00000 




071S0 TANF 


DS 


,2416 


02416 


00000 




97190 IATI 


DS 


,7711 


07731 


00000 




07200 TZ'AP 


DS 


10,79 


00079 


00010 




00010 SYM§6 


OS 


,4325 


04325 


00000 




OB020 RETURN 


DS 


,2411 


02411 


00000 




03030 KST 


DS 


,mv 


04315 


00000 




06040 S 


OS 


,K 


18166 


00000 




OJiSSO 0*0 


OS 


,76G0 


07680 


00000 




OiO&O 


DENO 


LTPTAS 


17362 







PAGE 3 



95 



SYN9CL TABLE 



PACE I 



tyferr 02*u 
nzma 07*00 

SST3 16590 
START 16930 
SVHBi 04 3 AS 



svmbio 0436S 

ERROR 16893 

SETC 166S0 

SYM31 042i9 

SYMB9 04355 



RETURN 02411 
FORM 07712 
SETO 16710 
SYM85 04315 



MCNITR 02A06 
IAT1 07731 
SETE 16770 
SYMB6 04325 



CCONIC 16462 
RIGHT 16922 
SETF 16830 
SYM87 04335 



01010* 


ISM 1620*1311 AO-APT. « 








01020* 














01030* 






INTRAN SUBPROGRAM CCONIC 






01040* 




THE FUNCTICN 


OF THIS SUBPROGRAM 






01050* 






IS 


TO PROCESS A CONIC SURFACF 






01060* 






DEFINEO BY THE COEFFICIENTS 






01070* 






OF 


THE GENERAL CONIC EQUATION 






oioao* 






GCONIC/A,B,C,0,E,P 






01090* 














01100 


OORG 


16462 




16462 






OHIO CCONIC 


SF 


RIGHT 




16462 32 


16922 


00000 


01120 


87 


START-24 




16474 49 


16506 


00000 


01130 


CM 


F0RM,4095»8 




16482 14 


07712 


0H095 


01140 


BE 


START 




16494 46 


16530 


01200 


01150* 






LOAO ANO CALL TYPERR SUBPROGRAM 






01160 


BTM 


HON I TR» 03090 ,67 




16506 17 


02400 


-3090 


01170 


8TM 






16518 17 


02410 


00L01 


01180 START 


AN 


IAT1 . 12. 10. 




INCREMENT TO FIRST COEFFICIENT 














16530 11 


07731 


O0OJ2 


01190 


TFL 


SYMB5 , IATl « 1 I , 




STORE A COEFFICIENT 16542 06 


04315 


0773J 


01200 


FSUB 


f ATI mPi 7 Fan. A. 




CHECK FOR ZERO COEFFICIENTS 














16554 02 


0773J 


07680 


02010 


BZ 


SETB 




16566 46 


16590 


01200 


02020 


SF 


* wn 1 | | | 




INDICATES AT LEAST 1 NON-ZERO COEFFICIENT 










16578 32 


16922 


00000 


02030 SETS 


AM 


IATl . 14. 10. 

IMItltlflVI 




INCREMENT TO NEXT COEFFICIENT 














16590 11 


07731 


000J4 


02040 


TFL 


tyjuBi _ fATl .1 ! - 
JiriOOi It ( lilli 




STORE 8 COEFFICIENT 16602 06 


04325 


0773J 


02050 


FSUB 


tati . fi yean. a. 




CHECK FOR ZERO COEFFICIENT 














16614 02 


0773J 


07660 


02060 


B2 


SETC 




16626 46 


16650 


01200 


02070 


SF 


RIGHT,,, 




INDICATES AT LEAST 1 NON-ZERO COEFFICIENT 










16638 32 


16922 


00000 


02080 SETC 


AH 


IATl, 14, 10, 




INCREMENT TO NEXT COEFFICIENT 














16650 11 


07731 


0O0J4 


02090 


TFL 


SYNB7,IATl,li, 




STORE C COEFFICIENT 16662 06 


04335 


0773J 


02100 


FSUB 


IAT1,FLZER0,6, 




CHECK FOR ZERO COEFFICIENT 














16674 02 


0773J 


07680 


02110 


BZ 


SETO 




16666 46 


16710 


01200 


02120 


SF 


RIGHT,,, 




INDICATES AT LEAST 1 NON-ZERO COEFFICIENT 










16698 32 


16922 


00000 


02130 SETO 


AN 


IATl,14,lOt 




INCREMENT TO NEXT COEFFICIENT 














16710 11 


07731 


000J4 


02140 


TFL 


SYMB8,IATi,ll, 




STORE COEFFICIENT 16722 06 


04345 


0773J 


02150 


FSUB 


IATi,FLZER0.6, 




CHECK FOR ZERO COEFFICIENT 














16734 02 


0773J 


07680 


02160 


BZ 


SETE 




16746 46 


16770 


01200 


02170 


SF 


RIGHT. ,, 




INDICATES AT LEAST I NON-ZERO COEFFICIENT 










16758 32 


16922 


ooooo 


02180 SETE 


AN 


IATl, 14, 10, 




INCRMENT TO NEXT COEFFICIENT 















16770 


11 07731 


000J4 


02190 




TFL 


SYNB9,IATl,ll, 


STORE E COEFFICIENT 16782 


06 04355 


0773J 


02200 




FSUB 


IATl,FLZ£R0,6, 


CHECK FOR ZERO COEFFICIENT 

16794 


02 0773J 


07680 


03010 




8Z 


SETF 


16806 


46 16830 


01200 


03020 




SF 


RIGHT,,. 


INOICATES AT LEAST 1 NON-ZERO COEFFICIENT 










16818 


32 16922 


OOOOO 


03030 


SETF 


AM 


IATI, 14, 10 


16830 


11 07731 


000J4 


03040 




BNF 


ERRORiRIGHT 


16842 


44 16898 


16922 


03050 




TFL 


SYHBlO.IATl.il. 


STORE F COEFFICIENT 16854 


06 04365 


0773J 


03060 




TFM 


SYMB1.81.8. 


SET RECORD LENGTH FOR CONIC 
16866 


16 04289 


0-081 


03070 




TOM 


SYM810+1 


16878 


IS 04366 


OOOOO 


03080 




OC 


!••.* 


16889 


00001 




03090* 






RETURN TO CALLING PROGRAM 






03100 




B7 


RE TURN. .6 


16890 


49 0241J 


OOOOO 


03110 


ERROR 


BTM 


MONITR.03090.67 


16898 


17 02400 


-3090 


03120 




BTM 


TYPERR, 322, 67 


16910 


17 02410 


-0322 


03130 


FLZERO 


OS 


,7680 


07680 


OOOOO 




03140 


RIGHT 


OS 


1 


16922 


00001 




03150 




OS 


38,, 


FILL LAST SECTOR 16960 


00038 




03160 


FORM 


OS 


,07712 


07712 


OOOOO 




03170 


IATI 


OS 


.07731 


07731 


OOOOO 




03180 


SYM81 


OS 


,4289 


04289 


OOOOO 




03190 


SYMB5 


OS 


,04315 


04315 


OOOOO 




03200 


SYMB6 


OS 


,04325 


04325 


OOOOO 




04010 


SYMB7 


OS 


,04335 


04335 


OOOOO 




04020 


SYM88 


OS 


,04345 


04345 


OOOOO 




04030 


SYM89 


OS 


,04355 


04355 


OOOOO 




04040 


SYM810 


OS 


,04363 


04365 


OOOOO 




04050 


MQNITR 


OS 


,02406 


02406 


OOOOO 




04060 


TYPERR 


OS 


,02416 


02416 


OOOOO 




04070 


RETURN 


OS 


,2411 


02411 


OOOOO 




04080 




OINO 


CCONIC 


16462 







96 



TYPERR 02416 
RETURN 02411 
A 17326 
FL2 17426 
S1NF 02416 
SYMQ6 04325 
TEMP2 17416 



TDATA6 03372 
PI/180 17446 
a 17336 
FORM 07712 
SNAt 17336 
SYMB7 04335 



SYMBOL TABLE 

T0ATA5 03362 
MONITR 02406 
COSF 02421 
M 17346 
START 16518 
SYMB8 04345 



SYHBIO 04365 
ELLIPS 16462 
CSAL 17396 
IATI 07731 
SYMB1 04289 
SYMB9 04355 



SNALSO 17366 
CSALSQ 17376 
FLK2 17436 
K 17356 
SYM85 04315 
TEMPI 17406 









INTRAN SUBPROGRAM ELLIPS 
















THE FUNCTION OF THIS SUBPROGRAM 








01030* 






IS TO CALCULATE THE COEFFICIENTS 






01040* 






OF THE GENERAL CCNIC EQUATION 








1050* 






FOR AN ELLIPSE DEFINED BY 


ITS CENTER 




1060* 






LENGTH OF ITS MAJOR AXIS 


ANO MINOR 


AXIS 




01070* 






ANO ANGLE THE MAJOR AXIS 


MAKES 








ft i ft zin» 






WITH THE X COORDINATE AXIS 








ft 1 ftOft» 






ELLIPS/CPOINT),H,K,» 
















• HILL DENOTE THE ANGLE 


























Oil 20* 


OORG 


16462 




.16462 








01130 ELLIPS 


CM 


FORM f 127 • 8 1 


CHECK FOR CORRECT FORM 


NUMBER 














16462 


14 


07712 


0-127 


01140 


B7 


START-24 




16474 


49 


16494 


OCOOO 


Oil 50 


BE 


START 




16482 


46 


16518 


01200 


Oil 60* 






CALL ANO LOAO TYPERR SUBPROGRAM 








01 1 70 


BTM 


MONI TR ,03090,67 




16494 


17 


02400 


-3090 


01180 


BTM 


TYPERR , 301 ,67 




16506 


17 


02410 


-0301 


01190 START 


AM 


IATI ,26, 10 




16518 


11 


07731 


000K6 


01200 


TFL 


A* IATI, 11, 


STORE LENGTH OF MAJOR 


AXIS 
16530 


06 


17326 


0773J 


02010 


AM 


IATI, 14,10 




16542 


11 


07731 


000J4 


02020 


TFL 


8, IATI, 11, 


STORE LENGTH OF MINOR 


AXIS 
16554 


06 


17336 


0773J 


02030 


AM 


IATI, 14, 10 




16566 


11 


07731 


O0OJ4 


02040 


TFL 


H, T0ATA5 , t 


STORE H OF CENTER 


16578 


06 


17346 


03362 


02050 


TFL 


K, T0ATA6, , 


STORE K OF CENTER 


16590 


06 


17356 


03372 


02060 


FMUL 


A, A,, 


A»A**2 


16602 


03 


17326 


17326 


02070 


FMUL 


B, B , , 


B"B**2 


16614 


03 


17336 


17336 


02080 


FMUL 


IATI, PI/180, 6, 


CHANGE ANGLE TO RADIANS 
















16626 


03 


0773J 


17446 


02090 


TFL 


SNALSQ, IATI, 11, 


SNALSQ"* 


16638 


06 


17366 


0773J 


02100 


TFL 


CSALSQ, SNALSQ, , 


CSALSQ-* 


16650 


06 


17376 


17366 


02110* 






LOAO ANO CALL SINF-COSF SUBPROGRAM 






02120 


BTM 


MONITR, 02010,67 




16662 


17 


02400 


-2010 


02130 


BTM 


SINF, SNALSQ, 6, 


SNALSQ-SINFI • 1 


16674 


17 


02410 


17366 


02140 


BTM 


COSF, CSALSQ, 6, 


CSALSQ-COSFl • ) 


16686 


17 


0242J 


17376 


02150 


TFL 


SNAL, SNALSQ, , 


SNAL-SINFI • ) 


16698 


06 


17386 


17366 


02160 


TFL 


CSAL, CSALSQ, , 


CSAL-COSFC) 


16710 


06 


17396 


17376 


02170 


FMUL 


SNALSQ, SNALSQ,* 


SNALSQ-SINF(»)**2 


16722 


03 


17366 


17366 


02180 


FMUL 


CSALSQ, CSALSQ t f 


CSALSQ»COSFC • )«*2 


16734 


03 


17376 


17376 


02190 


TFL 


TEMPI, A,, 


TEMPi«A**2 


16746 


06 


17406 


17326 


02200 


FMUL 


TEMPI , SNALSQ, , 


TEMPi«A**2*SIN(» )**2 


16758 


03 


17406 


17366 


03010 


TFL 


TEMP2,B,» 


TEMP2»B**2 


16770 


06 


17416 


17336 


03020 


FMUL 


TEHP2, CSALSQ, , 


TEMP2-B**2*C0SFC • 1 **2 


16782 


03 


17416 


17376 


03030 


FADD 


TEMPI, TEMP2tt 


TEMP1»A**2*$INF<* » **2*B**2*COSF ( 


• )**2 












16794 


01 


17406 


17416 



03040 




TFL 


SYMB5, 


TEMPI,, 


SYMB5-TEMPI 


16806 


06 04315 


17406 


03050 




TFL 


TEMPI, 


a* , 


TSMPi»8**2 


16818 


06 17406 


17336 


03060 




FSU3 


TENP1, 


A, , 


TE«Pi«A**2-B**2 


16830 


02 17406 


17326 


03070 




FKUL 


TEMPI, 


FL2, * 


TEMPl«2< A**2-B**2> 


16842 


03 17406 


17426 


03080 




FMUL 


TEMPI, 


SNAL,, 


TEMPl«2(A**2-B**2)»SINFt • ) 


















16854 


03 17406 


17386 


03090 




FMUL 


TEMPI, 


CSAL,, 


TEMP1«2(A**2-B**2)*SINF( • >*COSF( • ) 
















16866 


03 17406 


17396 


03100 




TFL 


SYMB6, 


TEMPI,, 


SYMB6-TEMP1 


16878 


06 04325 


17406 


031 =0 




TFL 


TEMPI, 


A,, 


TEMP1»A**2 


16890 


06 17406 


17326 


03120 




FMUL 


TEMPI, 


CSALSQ,, 


TEMP1«A**2*C0SF(» >**2 16902 


03 17406 


17376 


03130 




TFL 


TEMP2, 


6,, 


TEMP2-B**2 


16914 


06 17416 


17336 


03140 




FMUL 


TEMP2. 


SNALSQ,, 


TEMP2"B**2*SINFt» )**2 16926 


03 17416 


17366 


03150 




FAOO 


TEMPI, 


TEMP2,, 


TEMPI •A»*2*C0SF ( • )**2*8**2*SINF| • )**2 
















16938 


01 17406 


17416 


03160 




TFL 


SYMB7, 


TEMPI,, 


SYNB7-TEMP1 


16950 


06 04335 


17406 


03170 




TFL 


TEMPI, 


A,, 


TEMPI. A**2 


16962 


06 17406 


17326 


03180 




FMUL 


TEMPI, 


K, , 


TEMPl»A**2»K 


16974 


03 17406 


17356 


03190 




FMUL 


TEMPI, 


SNAL, , 


TEMPl-A**2*K*SINFf 


•I 16986 


03 17406 


17386 


03200 




TFL 


TEMP2, 


B, , 


TENP2-B**2 


16998 


06 17416 


17336 


04010 




FMUL 


TEMP2, 


H, , 


TEMP2«B*«2*H 


. 17010 


03 17416 


17346 


04020 




FMUL 


TEMP2, 


CSAL, , 


TEMP2«B**2*K*C0SF< 


•) 17022 


03 17416 


17396 


04030 




FAOO 


TEMPI, 


TEMP2 




17034 


01 17406 


17416 


04040 




FAOO 


TEMPI, 


TEMP2, • 


TEMP1«A**2«K*SINF( 


•>*B**2»H*C0SF(«I 
















17046 


01 17406 


17416 


04050 




FMUL 


TEMPI, 


FLM2,, 


TEMPI«-2*TEMP1 


17058 


03 17406 


17436 


04060 




TFL 


SYMB8, 


TEMPI,, 


SYMB8*T£MPi 


17070 


06 04345 


17406 


04070 




TFL 


TEMPI, 


A,, 


TEMPl-A**2 


17082 


06 17406 


17326 


04080 




FMUL 


TEMPI, 


K, , 


TEMP1«A**2*K 


17094 


03 17406 


17356 


04090 




FMUL 


TEMPI, 


CSAL, » 


TEMP1»A«*2*K*C0SFI 


•) 17106 


03 17406 


17396 


04100 




TFL 


TEMP2* 


3,, 


TEMP2-B**2 


17118 


06 17416 


17336 


Q4110 




FMUL 




H,, 


TEMP2»8**2*H 


17130 


03 17416 


17346 


04120 




FMUL 


T6MP2, 


SNAL, , 


TEMP2«B**2*H*SINF( 


•) 17142 


03 17416 


17386 


04130 




FSUB 


TEMPI, 


TEMP2, , 


TEMPI. A**2*K*C0SF{ 


t)-B**2*H*SINF(«) 














17154 


02 17406 


17416 


04140 




FMUL 


TEMPI, 


FLM2, , 


TEMPl«-2*TEMPi 


17166 


03 17406 


1 7436 


04150 




TFL 


SYM39, 


TEMPI,, 


SYM09-TEMP1 


17178 


06 04355 


17406 


04160 




FMUL 


K,K, , 




K«K**2 


17190 


03 17356 


17356 


04170 




FMUL 


K,A, , 




K"K**2*A**2 


17202 


03 17356 


17326 


041 SO 




FMUL 


H,H, V 




H-H*»2 


17214 


03 17346 


17346 


04190 




FMUL 


H,S , , 




H«H**2*B**2 


17226 


03 17346 


17336 


04200 




FAOO 


K,H, , 








01 17356 


17346 


05010 




FMUL 


a, a,. 




A»A*»2*8**2 


17250 


03 17326 


17336 


05020 




FSUB 


K,A, , 




K>K**2*A**2«H**2*B 


•*2-A**2*B**2 












17262 


02 17356 


17326 


05030 




TFL 


SYMB1G 


l»K,, 


SYMB10*K 


17274 


06 04365 


17356 


05040 




TFM 


SYMSI, 


awe, 


SET RECORO LENGTH 


FOR ELLIPSE 














17286 


16 04289 


0-081 


05050 




TDM 


SYMB10+1 




17298 


15 04366 


00000 


05060 




QC 


i,»t» 






17309 


00001 




05070 




B7 


RETURN 


,♦6 




17310 


49 0241J 


00000 


05080 


A 


OS 


10 




17326 


00010 




05090 


i 


OS 


10 






17336 


00010 




05100 


H 


OS 


10 






17346 


00010 




05110 


K 


OS 


10 






17356 


00010 




05120 


SNALSQ 


OS 


10 






17366 


00010 




05130 


CS&iSQ 


05 


10 






17376 


00010 




05140 


SKAL 




10 






17386 


00010 






CS*.L 




10 






17396 


00010 




(*'>« 






10 






17406 


00010 





OS 170 


TP«P2 


OS 


10 




1 74 16 


00010 






oc 


i ,20000000 




17424 


00003 


05190 


PL2 


DC 


2»1 




17426 


00002 


03209 




oc 


®# '"20000000 




17434 


00008 


04010 


PLM2 


oc 


2* 1 




17436 


00002 


06030 




DC 


0« 17493292 




17444 


ft ft Aft 11 


04030 


PI/UO 


OC 


2,-1 




17446 


00002 


06040 




OS 


I4tt 


FILL LAST SECTOR 


17460 


00014 


0&050 


FORM 


OS 


#7712 




07712 


00000 


06060 


UTl 


OS 


#7731 




07731 


00000 


06070 


TOATAS 


OS 


#3362 




03362 


00000 


06080 


T0ATA6 


OS 


#3372 




03372 


fiftftOO 
wywvw 


06090 


SYMBl 


DS 


#4269 




04289 


UUVUy 


06100 


SYMB5 


OS 


•4319 




04315 


00000 


061 10 


SYMB6 


OS 


#4329 






uuuuu 


06110 


SYMB7 


OS 


#4339 




04335 


uuuuu 


06130 


SYM88 


OS 


#4349 






UUUUU 


06140 


SYM89 


OS 


•4359 






UUUUU 


06130 


SYM810 


OS 


«43&9 




04365 


t\ ft Ann 

UUUUU 


06160 


SINF 


OS 


• 2416 




02416 


00000 


06170 


COSF 


OS 


#2421 




02421 


00000 


06180 


MONITR 


OS 


• 2406 




02406 


00000 


06190 


TYPERR 


OS 


• 2416 




02416 


00000 


06200 


RETURN 


OS 


• 2411 




02411 


00000 


07010 




OENO 


ELL IPS 




16462 





SYMBOL TABLE 

TYPERR 02416 POCKET U462 NGN IT* 02406 



01010* IBM U20-13U AO-APT OgFPRE SUBPROGRAM FOR PROCESSING 

01020* A STATEMENT OF THE FORM...* 

01030* *CS 
01040* PQCK£T/A»B#... «.»N 

010SQ* 

01060* *NAM2 POCKET... N0aS-«ASA8LE OEFPRE SUBPROGRAM 

01070* *I0 MUMSER 0354*0EL0I« 

01000* » Si' OR£ CORE I^AGS 

01090* LINKAGE - B POCKET* #4 

01100* 

OHIO DORG 16462 16462 

01120 POCKET BTM M0N1 TR. 03090, 67 » CALL TYPERR SUBPROGRAM VIA MONITR 

16462 17 02400 -3090 
01130 BTM TYPERR#301#69# WRITS ERROR MESSAGE... EXIT 

16474 17 02410 O0L01 

01140* 

01150 MONITR OS #2406 . 02406 00000 

01160 TYPERR OS #2416 02416 00000 

01170 OENO POCKET 16462 



fYi-;:.-^ 

LW/CuN i ?<?»o 

BL 03372 

DSA1 17366 

ER307 17790 

ML 03362 

WERM 17510 



RETURN 02411 
LINCON G24LS 
C 03423 
DSA2 17*77 
ER323 17426 
MXX1F 02416 
X2 17874 



N0TAM3 17690 

FORMTB iJBtO 

COWP 17570 

DSA3 17437 

F 03453 

SYMB5 04315 

Y2 17884 



MONITR 02406 
A 03403 
COMPL 00079 
E 03443 
FLAG 00079 
SYM86 04325 
2 INT 17606 



MOOIFY 17534 
B 03413 
D 03433 
ER301 17770 
UTl 07731 
TEMP 00048 



01010* 




IBM 1620-1311 AO-APT OEFPRE 


SUBPROGRAM 


FOR DETERMINING 


01020* 




A POINT DEFINED BY A STATEMENT OF THE 


FORM.., 




01030* 










RCS 


01040* 




PT1-P0INT/XSMALL,INT0F,LI, 


GC0N1 






01050* 




PTl-POlNT/XLARGE*INTOF,Llt 


GC0N1 






01060* 




PTl-POINT/YSMALL,INTOF,Llt 


GC0N1 






01070* 




PTl»P0INT/YLARGE*INT0F,Ll, 


GC0N1 






010S0* 












01090* 




•NAME LN/CON... NON-ERASABLE OEFPRE SUBPROGRAM 


01100* 




•ID NUMBER 0355+DEL0IM 








01 1 10* 




•STORE CORE IMAGE 








01120* 




LINKAGE - B LN/CON* t 6 








01130* 












01140 


OORG 


17362 




17362 




01150* 












01160 0SA1 


DSA 


LN/CON+24 




17366 


00005 J7474 


0U70 


DSC 


5*02091 




17367 


00005 


onao 


DORG 


0SAi*5*5*12-6 




17425 




01190 


NOP 


Y2,0 




17426 


41 17884 00000 


01200 


OORG 


•-21 




17416 




02010 . 


NOP 


SYMB6.X2 




17416 


41 04325 17874 


02020 


DORG 


•-21 




17406 




02030 


NOP 


F,SYM85 




17406 


41 03453 04315 


02040 


DORG 


•-21 




17396 




02050 


NOP 


E,0 




17396 


41 03443 03433 


02060 


DORG 


♦-21 




17386 




02070 


NOP 


A,C 




17386 


41 03403 03423 


02080 


DORG 


♦-21 




17376 




02090 


NOP 


BL.B 




17376 


41 03372 03413 


02100 


DORG 


♦-14 




17373 




02110 0SA2 


OSA 


ML 




17377 


00005 -3362 


02120 


OORG 


•♦5»12-4*50-li-2 




17435 




02130 


NOP 


0»COMPL 




17436 


41 00000 00079 


02140 


OORG 


•-14 




17433 




02150 0SA3 


OSA 







17437 


00005 -0000 


02160 


DORG 


•♦5*3-4 




17448 




02170 


OSC 


1*0 




17448 


00001 


02180* 












02190* 




SUBPROGRAM ENTRY 








02200 LN/CON 


BT 


M0N{TR»e$*l*$»6t CALL LINCON SUBPROGRAM VIA MONlTft 










17450 


27 02400 17371 


03010 


BT 


LINCON, DSA2*55»6 # DETERMINE 


INTERSECTIONS LINE ANO CONIC 










17462 


27 02410 17432 


03020 


BO 


M00IFY-12*FLAGtt BRANCH IF 


INTERSECTION EXISTS 










17474 


43 17522 00079 


03030* 












03040 ER323 


TFM 


WERM*ll,323,9, SET ERROR 


NO. -323 


17486 


16 17521 00L23 


03050 


8TM 


MONITR, 03090, 67, CALL TYPERR SUBPROGRAM VIA MONITR 



03060 HERM 


BTM 


TYPERR, ,6, 


03070 


TFM 


COMP^ll.FORMTB-1 


03080 MOOIFY 


AM 


CQMP+11,14,10 


03090 


CM 


COMP+lltFORMTB+l 


03100 


BNL 


ER301... 


03110* 






03120 COMP 


C 


IAT1,»6 


03130 


BNE 


MODIFY,,, 


03140* 






031S0 


6NR 


RE TURN, FLAG, 6, 


03160* 






03170 2INT 


AM 


COMPnO.UlO 


03180 


TF 


0SA3*5.C0MP*ll, 1 


03190 


AM 


COMP*li»ltlO 


03200 


TO 


DSA3*ll,C0MP*ll, 


04010 


TFL 


TEMP,0SA3*11 


04020 


FSUB 


TEMP ( DSA3+StU 


04030 


BE 


ER307t»» 


04040* 






040 SO NOTAMB 


BTM 


MONITR, 02130, 67, 


04060 


BT 


MXX1F»DSA3+U»6< 


$4070 


FSUB 


CCWPL,DSA3,ll 


04030 


BE 


RETURN, .6. 


04090* 






04100 


TFL 


SYMB5,X2,, 


04110 


TFL 


SYMB6tY2 


04U0 


8 


RETURNt »6t 


04130 


003 G 


•-3 


04140* 






04130 ER301 


TFM 


t*ERM*ll.30l.9, 


04160 


3 


WERM-12 


04170 


OORG 


•-J 


04180* 






04190 ER307 


TFM 


WERN*llt307»9 t 


04200 


8 


KERM-12 


05010 


OORG 


•-3 


05020* 






05030 FOftMTt 


f4C# 


SYMBSt X2*2 


05040 


DC 




OSOSO . 


OSC 


1.7 


©§Q&0 






05070 


DC 


2,32,*-l0 


050 ©0 


OSC 


1*6 


05090 


mop 


SV«26*Y2,2 


03100 


DC 


2#3S,*-10 


05110 


OSC 


1.7 


05130 


mp 


SYMS6fV2t2 


OS lis 


DC 


2»36.*-l0 


03*40 


osc 


Ui» 


051 SO K2 


oc 


10.0 



17498 17 02400 -3090 

WRITE ERROR MESSAGE 17510 17 02410 00000 

17522 16 17581 J7797 

17534 11 17581 000J4 

14 17546 14 17581 J7867 

BRANCH IF FORM NO. NOT IN FORM TABLE 

17558 46 17770 01300 

17570 24 0773J 00000 
BRANCH IF FORM NO. NOT LOCATEO 

17582 47 17534 01200 

BRANCH IF ONE INTERSECTION EXISTS 

17594 45 0241J 00079 

17606 11 17580 000-1 

SET SELECTIVE ELEMENT ACORESSES 

17618 26 17442 1758J 
17630 11 17581 000-1 

SET CONTROL DIGIT FOR SELECT SUBPROGRAM 

17642 25 17448 1758J 
17654 06 00048 1743P 
17666 02 00048 1744K 

BRANCH IF MODIFIER IS NOT DEFINITIVE 

17678 46 17790 01200 

CALL MIN1F-MAX1F SUBPROGRAM VIA MONITR 

17690 17 02400 -2130 

SELECT COMPARATIVE ELEMENT 

17702 27 02410 17448 
17714 02 00079 1743P 

BRANCH IF RESULT IN SVM85 AND SYM86 

17726 46 0241J 01200 

MOVE RESULT TO OUTPUT 17738 06 04315 17874 
17750 06 04325 17B84 

RETURN TO MONITR 17762 49 024 I J 00000 

17770 



SET ERROR NQ.»30l 



SET ERROR NO. -307 



17770 16 17521 O0LO1 

17782 49 17498 00000 
17790 

17790 16 17521 00107 

17802 49 17498 00000 
17810 



17810 
17111 
17822 
17824 
17825 
17836 
17838 
17839 
17850 
17852 
17853 
17S64 
17874 



41 -4315 17874 

00002 
0000 1 

41 -431S 17874 

00002 
00001 

41 -4125 I 7084 

00002 
00001 

41 -4325 17884 
00002 

00001 
00010 



PAGE 1 



09160 


V2 


DC 


10*0 




17884 


000 10 


051 ?0 




OS 


76* « 


Pill LAST SECTOR 


17960 


00976 


o?ido« 












05190 


ML 


OS 


•3333*29 




03362 


00000 


05200 


81 


OS 


,ML*10 




03372 


00000 


06010 


8 


OS 


•©i«41 




03413 


00000 


06020 


A 


OS 


»e~IO 




03403 


00000 


06030 




OS 


»S*iO 




03423 


00000 


06040 


g 


OS 


,C*20 




03443 


00000 


06050 


Q 


OS 


•C*10 




03433 


00000 


06060 




OS 


• £♦10 




03453 


wuUvv 




SYM&5 


OS 


#4315 




04 315 


uvuuu 


06060 


SYMB6 


OS 


• * i nniTiv 




04325 


OuQUU 


06090 


COMPl 


OS 


10.79 






00010 


06100 


NONITR 


OS 


• 2406 






uuwuu 


06 UO 


LINCON 


OS 


#2416 




02416 


WvlUwdJ 


06120 


FLAG 


OS 


#79 




00079 


00000 


06130 


TYPERR 


OS 


• 2416 




02416 


00000 


06140 


IATI 


OS 


• 7731 




07731 


00000 


06190 


RETURN 


OS 


• 2411 




02411 


00000 


06160 


TEMP 


OS 


10,48 




00043 


00010 


06170 


MXXIF 


OS 


• 2416 




02416 


00000 



061 ftO OENO LN/CON 17450 



PAGE I 

SYMBOL TABLE 



1.0E48 


18276 


TYPERR 


02416 


TWOTAN 


17780 


TANCON 


02416 


RETURN 


02411 


PTSLCT 


02416 


POINTR 


18147 


NVERTL 


18064 


MCNITR 


02406 


MINl.O 


18266 


LPTCON 


17576 


LINLIN 


02416 


LCNQN1 


02416 


HORI2L 


18238 


A 


03413 


a 


03423 


62 


16396 


63 


18356 


84 


16376 


C 


03433 


CONT 


17834 





03443 


0SA1 


17366 


0SA2 


17377 


0SA3 


17437 


DSA4 


17489 


0SA5 


17519 


0SA6 


17549 


E 


03453 


ER301 


17636 


F 


03463 


FABR 


18124 


FLAG 


00079 


IATI 


07731 


LEFT 


17672 


MN 


17991 


M2 


18336 


M3 


18346 


M3SLP 


18040 


M4 


16366 


M4SLP 


18186 


PERPF 


17992 


RIGHT 


17672 


SYWQ9 


04315 


SYM86 


04325 


TANTO 


17732 


TEMP 


O0O79 


VERTL 


13218 


WE8M 


17660 


XBIS 


13326 


XE 


03362 


XI 


18286 


X2 


16306 


Y8IS 


18336 


YE 


03372 


Yl 


18296 


V2 


18316 


0.0 


07680 











01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120 

01130 OSAl 

01140 

01150 

01160 

0U70 

01180 

01190 

01200 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 0SA7 

02090 

02103 

02110 

0211© 

02110 

02I4® 

02150 

02160 

021 m 

62180 
0219® 

0220® OSA) 

osaie ' 



IBM 1620-1311 AO-APT OEFPRE SUBPROGRAM FOR DETERMINING 
A LINE DEFINED BY A STATEMENT OF THE FORM* • • • 

RCS 

LIN1-LINE/P71 .RIGHT, TANTQ,GC0N1 
LINl*LINE/PTl»LEFT. TANTO, GCQN1 

•NAME LPTCON... NON-ERASABLE OEPPRE SUBPROGRAM 
•10 NUMBER 0356+DCLDIM 
•STORE CORE IMAGE 
LINKAGE - B LPTC0N..6 



OORG 17362 


17362 




OSA TAWT0*24 


17366 


80005 J7756 


OSC 5.02691 


17367 


00009 


OORG DSAl*9*5*l2-6 


17425 




NOP Y2.0 


17426 


41 18316 00000 


0(»G *~21 


17416 




NOP YI.X2 


17416 


41 18296 18304 


OORG *-2i 


17406 




WOP P.X1 


17406 


41 03463 18286 


0G8G *-2l 


17396 




NOP O.E 


17396 


41 03443 03493 


00® G *-2i 


17386 




NOP B.C 


17386 


41 03423 03433 


DOS 6 *~2l 


17376 




NOP YE .A 


17376 


41 03372 03413 


00* G *-14 


17373 




OSA XE 


17377 


00005 -3)62 


OG&G •♦S*12-4»$*l8«6-2 


17475 




WC ? Yl.® 


17476 


41 18296 00000 


0086 *~2l 


17466 




nop y@is.xi 


17466 


41 103)6 18286 


OGSG *-2l 


17456 




tm YE.XGSS 


17456 


41 03372 18936 


PO&G' •-21 


17.446 




urn n*u 


17446 


41 10316 03362 


0«G *-2l 


17416 




MM YltXZ 


17436 


41 18296 18306, 


OORG «-14 


174*5 




©$& si 


17437 


C3C35 Jill* 


0«$ •❖5*| &-6 


17433 




OSC t.o • 


17689 




6CS6 •♦§•4-6 


m§7 





ioo 



03040 


NOP 


YSIStO 


17508 41 18336 


00000 


03050 


oqjig 


*-21 


17498 




03060 


NOP 


B4«XBtS 


17-98 41 18376 


18326 


03070 


OORG 


•-21 


17488 




03080 


NOP 


83, N4 


17488 41 18356 


18366 


03090 


00R6 


*-14 


17485 




03100 0SA4 


OSA 


Ml 


17489 00005 J8346 


03110 


OCAG 


•♦9*6-4*S*6-6-2 


17537 




03120 


NOP 


SYMB6.0 


17538 41 04325 


00000 


03130 


OORG 


•-21 


17528 




03140 


NOP 


Y1«SYMB5 


17528 41 18296 


04315 


03150 


OORG 


•-21 


17518 




03160 


NOP 


YE, XI 


17518 41 03372 


18286 


03170 


OORG 


•-14 


17515 




03180 OSAS 


OSA 


XE 


17519 00005 -3362 


03190 


OORG 


•♦5*6-4*5*6-6-2 


17567 




03200 


NOP 


82,0 


17568 41 18396 


00000 


04010 


OORG 


♦-21 


17558 




04020 


NOP 


Y2,N2 


17558 41 18316 


18386 


04030 


OORG 


•-21 


17548 




04040 


NOP 


YE,X2 


17548 41 03372 


18306 


040S0 


OORG 


•-14 


17545 




04060 0SA6 


OSA 


XE 


17549 00005 -3362 


04070 


OORG 


••5*6-4 


17575 




04080* 










04090* 




SUBPROGRAM 


ENTRY 




04100 LPTCON 


AM 


IATl,14,10 


17576 11 07731 


000J4 


04110 


CM 


IATl,24,610 


17588 14 0773J 


C0OK4 


04120 


BE 


RIGHT,,, 


BRANCH IF MODIFIER IS RIGHT 










17600 46 17672 


01200 


04130* 










04140 


CM 


IATl.8,610 


17612 14 0773J 


000-8 


04150 


BE 


LEFT,,, 


BRANCH IF MODIFIER IS LEFT 










17624 46 17672 


01200 


04160* 










04170 ER301 


TFM 


WERN*11,301,9, 


SET ERROR NO. -301 17636 16 17671 


OOLOl 


04160 


BTM 


MONITR, 03090, 67, 


CALL TYPERR SUBPROGRAM VIA MONITR 










17648 17 02400 


-3090 


04190 WERM 


BTM 


TYPERR,,6, 


WRITE ERROR MESSAGE 17660 17 02410 


00000 


04200 RIGHT 


SM 


IAT1,1,10 


17672 12 07731 


000-1 


05010 


TO 


DSA3«5*9+1,IAT1,11 


• SET MODIFIER CODE FOR PTSLCT SUBPROGRAM 








17684 25 17483 


0773J 


05020 


AM 


IAT1,1^14,10 


17696 11 07731 


00OJ5 


05030 


CM 


IAT1,27,610 


17708 14 0773J 


000K7 


05040 


BNE 


ER301,,, 


BRANCH IF MODIFIER IS NOT TANTO 










17720 47 17636 


01200 


05050* 










05060 TANTO 


BT 


MONITR, OS A 14 5, 6, 


CALL TANCON SUBPROGRAM VIA MONITR 










17732 27 02400 


17371 


05070 


BT 


TANC0N,DSA2*55,6, 


CALCULATE TANGENT POINTS ON CONIC 










17744 27 02410 


17432 


05000 


TFM 


W£RM*11*324,9, 


SET ERROR NO. -324 17756 16 17671 


00L24 


05090 


BNR 


WERM-12»FLAG, * 


BRANCH IF TWO POINTS 00 NOT EXIST 










17768 45 17648 


00079 


05100* 










05110 T WOT AN 


BTM 


MONITR, 02120.67, 


CALL LCNONl SUBPROGRAM VIA MONITR 










17780 17 02400 


-2120 


05120 


BT 


LCN0N1,DSA5*25,6, 


DETERMINE EG. OF LINE THRU PE AND PI 










17792 27 02410 


17544 


05130 


BT 


LCN0Nl,DSA6*25,6, 


DETERMINE EQ. OF LINE THRU PE AND P2 










17804 27 02410 


17574 


05140 


BTM 


PERPF,0SA4,711, 


DETERMINE EQ. OF PERPENOICULAR LINE 










17816 17 17992 


J 748ft 


05150 


BTM 


PERPF»DSA4*10,7ll, 


DETERMINE EQ* OF PERPENOICULAR LINE 










17828 17 1799-2 


J749R 


05160 


BTM 


MONITR ,02050 ,67, 


CALL LINLIN SUBPROGRAM VIA MONITR 










17840 17 02400 


-2050 


05170 


BT 


LlNLIN,DSA4+25,6, 


CALCULATE POINT ON BISECTOR LINE 










17852 27 02410 


17514 


05180 


BNR 


CONT.XBIS., 


BRANCH IF POINT IS DEFINED 










17864 45 17884 


18326 


05190* 










05200 


B 


WERM-12 


17876 49 17648 


00000 


06010 


OORG 


*-3 


17884 




06020* 










06030 CONT 


BTM 


MONITR, 03600,67, 


CALL PTSLCT SUBPROGRAM VIA MONITR 










17884 17 02400 


-3600 


06040 


BT 


PTSLCT, DSA3+46, 6, 


SELECT POINT PI OR P2 PER MODIFIER 










17896 27 02410 


17483 


06050 


FSUB 


XI, X2 


17908 02 18286 


18306 


06060 


BNE 


RETURN, ,6, 


BRANCH IF POINT PI SELECTED 










17920 47 0241J 


01200 


06070* 










06030 


FSUB 


Yl,Y2 


17932 02 18296 


18316 


06090 


BNE 


RETURN, ,6, 


BRANCH IF POINT PI SELECTED 










17944 47 02* 1J 


01200 


06100* 










061 10 


TFL 


SYKB5,M2,, 


MOVE RESULT TO OUTPUT AREA 








17956 06 04315 


18386 


06120 


TFL 


SVM®6,B2 


17968 06 04325 


18396 


06130 


B 


RETURN, ,6, 


RETURN TO MONITR 17980 49 0241J 


00000 


06140* 










06150* 




SUBROUTINE 


FOR DETERMINING THE SLOPE AND 




06160* 




Y-INTERCEPT OF A LINE PERPENOICULAR TO 




06170* 




A GIVEN LINE AT A GIVEN POINT 




06180 m 


OS 


5,* 


17991 00005 




06190 PERPF 


TFL 


KN, MINI. 0,6 


17992 06 1799J 


18266 


06200 


TOM 


FA§fl*10,3»ll 


18004 IS 18134 


OOOOL 


07010 


CM 


^,0SA4,7ll 


18016 14 17991 


J748R 


07020 


SHE 


M4SLP, », 


BRANCH IF ARGUMENT IS NOT M3 






18026 47 18186 


01200 


07030* 
0704© K3SLP 


FOJV 


4,$YMB5,6, 


MN--1.0/SYHB5 18040 09 1799J 


04315 


07030 


BV 


VfRTL, •» 


BRANCH IF SYMB5 IS 0.0 






1§6$2 46 18218 


01400 


070 60* ' 






18064 14 17994 




07310 NVERTL 


CM 


^,-49,610 


OOOMR 


070 30 


■NP 


tC»SZL,t« 


•RANCH IF LINE IS HOftllOWTAL 




18076 47 11238 


01100 


07090* 






160S8 06 00079 




07109 ' 


?Fi 


Tg8?,MN,U 


1 799 J 


07110 


SM 




INDIRECT AOORESS OF COMtf SfONOING INTERC 




18100 12 17991 


000-5 


07120 


TP 




1S1I2 26 16147 


17991 


07 no PA6R 




POfNTfcfStiO* 


INDIRECT AOORESS OP CORRESPONDING POINT 


18124 12 11147 


000*5 


071*0 


pmi 


T6W 9 »t 


MN*XN Uin OS 00079 


00000 


07:*3 


SM 




18148 12 16147 000-5 


0?loC 


TFL 


ItttPOlNTIUUl 


18160 06 I 799 J 


1814P 


071 70 


*$m 




6N-VK-MN*XN 16172 02 1799 J 


00079 



o?:co 




©1 


• « t 


6A4 i 


ISIS4 


UUtivV 






(*««<>* v 










GV2U3« 












oaoia 


M4SLP 




raon* awt & & 




1Q 186 


15 18134 


QCC3Q 




S^Ot V 




Mtirnm i .Aim 


13196 


OV 1 7 vvj 


OSOSO 











13210 


49 18992 


9C9'49 




jSQjjJG 






•&21S 




02090* 










00060 


vertl 


YPL 




act t*M*«»ue*9 


1821* 


06 1T99J 


000 ?o 







NV2ftTL*24 




18230 


49 18088 


oaoao 




03% G 


•-9 




18239 




0S990* 








■ ■ 






ta 


NVSft?L*a* 


Sit KJ4*0«0 


16236 


06 I799J 


08U0 








18250 


49 18086 


961*9 




0S3G 9*4 ■ 




1829? 












03140 




oc 


fit-tOOCOOOO 




18264 


00009 


03150 


NlNl.O 


oc 


2»1 




18266 


00002 


08160 


i 


oc 


8« &C 000000 




13274 


00008 


08170 


U0E46 


oc 


2»4f 




10276 


00002 


CUIQO 


XI 


DC 






16206 


oooio 


08190 


VI 


DC ' 


10,0 




1©296 


00Q&0 


OMOO 


82 


OC 


10«0 




10106 


00010 


09010 


Y2 


DC 


10,0 




18316 


00010 


09020 


mil 


.0C 


10.0' .T • 




• l@ 326 


00910 


09030 


VBI5 


DC 


iOtO 




18336 


00010 


09040 


N3 


DC ' 


10,0 ' 




18346 


oooio 


09350 


S3 


DC 


10»0 




18336 


00010 


09060 


«4 


DC 


10,0 




18366 


00010 


09070 


84 


DC 


10eO 




18376 


00010 


09030 


M2 


OC 


10,0 




13386 


00010 


09090 


02 


oc 


10*0 


■ 


18396 


00010 


09100 




OS 


64. * 


FILL LAST SECTOR 


18460 


00064 


09U0* 












09120 


2E 


OS 


•3333*29 




03362 


00000 


09130 


YE 


OS 


tB£*lO 




03372 


00000 


09140 


A 


OS 


r Y2U2*29 




03413 


00000 


09150 


8 


OS 






03423 


00000 


09160 


C 


OS 


•£J*iQ 




03433 


00000 


09170 





OS 


• CHG 




03443 


00000 


091 CO 


e 


OS 


• 0*10 




03493 


00000 


OSiSO 


P 


OS 


tE*lO 




03463 


00000 


092G0 




OS 


• 4BI5 




04315 


00000 


ICO 10 


SYM86 


OS 


tSY«03*lO 




04329 


00000 


10020 


LEFT 


DS 


•sugmt 




17672 


00000 


10030 


UT1 


OS 


#7731 




07731 


00000 


10040 


WON ITS 


OS 


• 2406 




02406 


00000 


10050 


TYPERR 


OS 


• 2416 




02416 


00000 


10060 


TANCON 


DS 


• 2416 




02416 


00000 


10070 


LCNOHl 


DS 


• 2416 




02416 


00000 


1 00 SO 


LJWLIN 


OS 


• 2416 




02416 


00000 


10090 


PTSlCT 


OS 


• 2416 




02416 


00000 


10100 


RETURN 


DS 


• 2411 




024 1 1 


ft ft ft Aft 


10110 


P01NTR 


OS 


•PAQft*23 




18147 


00000 


10120 


TEMP 


OS 


10,79 




00079 


00010 


10130 


FLAG 


OS 


•79 




00079 


00000 


10140 


0.0 


OS 


• 7600 




07680 


00000 


10190 




OENO 


LPTCON 




17576 





1.0E48 17707 
MONITR 02406 
8 03423 
E 03453 
SYN86 04325 
YC 03372 



. TYPERR, 02416 
MINi.O 17697 
C 03433 
ER301 17664 
TANTO 17464 
0*0 07680 



SYMQOL Y«fiLE 

RETURN 02411 
LYKPftC 17404 
03443 
IAT1 ©7731 
TEMP 00079 



PAGE 



PSBP70 17544 

HOftUL 17644 

D5A1 17367 

mtiU 17520 

VERTL 17624 



NVERTL 17580 
A 03413 
DYOX 02416 
SYMB5 04313 
XC 03362 



01010* 

01020* 
01030* 
01040* 
01030* 
01060* 
01070* 
010^0* 
01090* 
OltOO* 

on 10* 

01120 
01130 
01140 
01150 
01160 
01170 

onto 

01190 
01200 
02010 

02030 

02010 OSA1 
02040 
02050* 
02060* 

02070 LTNPRC 
02080 



IBM 1620-1311 AO-APT DEFPRE SUBPROGRAM FOR DETERMINING 
A lim DEFINED BY A STATEMENT OF THE FORM,*,* 

RCS 

UNl'LINC/FritPEftPTOtGCONl 

UNl»LgN@/PTl»TANT0«6€GNl 

•NAME LTNPRC. NON-ERASABLE 06FPRE SUBPROGRAM 

•so mmm 03S7*deldin 

•STORE CORE IMAGE 



LINKAGE 

OORG 17362 
DC 40 f 
OG&G *-59tS*6-6 
NOP SYMiStO 
OORG *«t21 ■ 

m? ScD - 

OW *-2i 
NOP A»C 

0£»© «-ai 

NOP. • YC»© 
Dens »»M ' 
0$A • XC 

ocao •♦s«8-4 



LTNPRCt »6 



17362 

17401 00040 
17396 

17396 41 04315 00000 

17336 

17386 41 03453 03443 
17376 

17376 41 09413 03433 

17366 

17366 41 03372 03423 

17363 

17367 00005 -9962 
17409 



8TN 



Sy§ PROGRAM 6N73Y 



6T 0p3»8IA!»$9t6t 



02090 
02100 
02110 

02120* 
02199 TANTO 

0ai49 ' 

02199 

02169 

61179 - ■ 

mm ■ . 

OSICSt 
92S99 KOOSI 

mi§ 

09O19« 

03099 PtkPW 
03049 



U?|»§?»S10 



TFi 

TPL 



SY^6«YC '• 

pirn. fgn?»8TO»it' 

tm 9VQ0t7@e6M 



CALL DYOX •UROGRAM VSA MONITR 

17404 17 02400 -2080 
CALCULAT8 SLOPS OF CONIC AT @I¥iN POINT 

, . -..-inn it q%uq 17402 

■ ' &?W 11 07791 O0OJ4 
17440 14 0Y75J 900X7 
6SANCM IF tS09SFIER 19 mi TAfiSTO 

17492 47 17929 91209 



17464 06 04919 93372 

17476 96 OOOIf 93962 

17408 99 09976 96119 

17909 98 949S9 90976 

17918 49 984W 98999 
U§89 



gmw*M 

$¥iS§^¥9«9Vt?»e89 
69 TURN T9 MOtfJTJI 



UfUUr 



619 



17989 14 9TTM 999J6 
6AAHCH !P H00IPII6 It FfigPTO 

1799| 67 17664 91899 

17944 96 99976 1766? 
-I.9/9VN69 17996 09 999T9 94911 

MAHCN IP 9V«6I tt 9*0 











17568 


46 17624 


01400 


03060* 














03070 NVERTL 


CM 


TEMP, -49, 10 




17580 


14 00079 


000MR 


03060 


BNP 


HOR 1 1 L « , , 


BRANCH IF LINE IS HORIZONTAL 












17592 


47 17644 


01 100 


03090* 














03100 


TFL 


SYM85*T£MP 




17604 


06 04315 


00079 


03110 




TANTO 




17616 


49 17464 


An AAA 


031 20 


0ORC 


•—3 




17624 






03130* 














03140 VERTL 


TFL 


SYHB5, 1.0E48* * 


SET SYHBS-1.0E48 


17624 


06 04315 


17707 


03150 




TANTO 




17636 


49 17464 


A A AAA 


03160 


D0RG 


•»3 




17644 






03170* 














03180 HORIZL 


TFL 


SYMB5*0«0** 


SET SYMB5-0.0 


17644 


06 04315 


07680 


03190 


B 


TANTO 




17656 


49 17464 


00000 


03200 


00RG 


•—3 




17664 






040 10* 














04020 ER301 


BTM 


riviri | 1VTV |QI| 


CALL TYPERR SUBPROGRAM VIA MONITR 












17664 


17 02400 


•J090 


04030 


BTM 


TYPE ft ft «*fll .44. 


WRITE ERROR MESSAGE 


17676 


17 02410 


00L01 


04040* 












04050 


DC 


A. — 1 Oft Aft AAA 




17695 


00008 




04060 M1M«0 


DC 


2, I 




17697 


00002 




04070 


DC 


a. ioaaaaaa 




17705 


00008 




A4AAA 1 .AF4A 


OC 


2* 49 




17707 


00002 




04^00* 


OS 


54 , , 


FILL LAST SECTOR 


17761 


00054 


















04110 XC 


DS 


• 3333+2* 




03362 


00000 




ion 

U*»A <U Jit 


OS 


•XC+10 




03372 


00000 




nllln n 


5§ 


*YC*12*29 




03413 


00000 




a2i«a r 


DS 


f,A*l 




03423 


00000 




A J J: « 




* 2 * i « 




03433 


00000 




0*160 


he 


»C*10 




03443 


00000 






n« 


,0*10 




03453 


00000 






nc 






04315 


00000 






DS 


,5YMBJ>*LO 




04325 


00000 




uttuu nun i in 








02406 


00000 




i n nvnv 

VjU 1 U "TU* 


OS 


,2416 




02416 


00000 




05020 IAT1 


OS 


• 7731 




07731 


00000 




05030 IEMP 


OS 


10,79 




00079 


00010 




05040 RETURN 


DS 


• 2411 




02411 


00000 




05050 TYPERR 


OS 


,2416 




02416 


00000 




05060 0.0 


DS 


• 7680 




07680 


00000 




05070 


DEND 


LTNPRC 




17404 







YCOORD 00050R 
POINT* 00208R 
XA 00005R 
XDXA 00308R 
YD 00040R 



XCOORD 00045R 
CAXAD 00288R 
XAXC 00288R 
YA 00010R 
YOYA 00298ft 



SYMBOL TABLE 

RETURN 02411 
COOE 00051R 
XB 00015R 
YAVC O0298R 



PTSLCT 00052R 
NEC 00196R 
XC 00025R 
YB 00020R 



POINTB 00234R 
POS 0026OR 
XD 00035R 
YC 00030R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01030* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01150* 
01160* 
01170* 
01180* 



BASED ON WHETHER IT IS LEFT OR RIGHT AS VEIWEO FROM A 
THIRD POINT C LOOKING TGWARO POINT 
LINKAGE - BT PTSLCT*DSAL6L+46 

OSALBL IS ADDRESS OF POINT A X COORDINATE 
DSALBL+5 IS ADDRESS OF POINT A V COORDINATE 
0SAL3L+10 IS ADDRESS OF POINT B X CCOROINATE 
0SAL8L+15 IS ADDRESS OF POINT 
DSALBL+20 IS ADDRESS OF POINT 
0SALB2+25 IS ADDRESS OF POINT 
0SALBL*30 IS ADDRESS OF POINT 
OSALBL*35 IS ADDRESS OF POINT 

0SAL8L+40 IS ADDRESS OF X COORDINATE SELECTEO 
DSALBL+45 IS ADORESS OF Y COORDINATE SELECTEO 
OSALBL+46 IS MODIFIER COOE - 2 IS RIGHT, IS LEFT 
THIS PROGRAM IS ERASEABLE 



CCOROINATE 
COORDINATE 
COORDINATE 
COORDINATE 
COORDINATE 



01190 




OS 


1,. START 


01200 




DC 


50,0 


02010 


CODE 


OSC 


1,0 


02020 


XA 


OS 


0,C0D6-46 


02030 


YA 


DS 


O.CCOE-41 


02040 


xs 


OS 


0,C0DE-36 


02050 


YB 


OS 


O.CODE-31 


020 SO 


XC 


OS 


0.C0DE-26 


020 ?r 


TC 


OS 


0,C0DE-2l 


02030 


XD 


OS 


0fC00E-16 


02090 


YO 


OS 


0, CODE-ll 


02100 


XCOORD 


OS 


Q.COOE-6 


02110 


YCOORD 


OS 


0, CODE-1 



00000 00001 

00050 00050 

00051 00001 
00005 00000 
00010 00000 
00015 00000 
00020 00000 
00025 00000 
00030 00000 
00035 00000 
00040 00000 
00045 00000 
00050 00000 



02120* 

02130* PROGRAM ENTRY 

02140 PTSLCT TFL XAXC*XA*I1* 



02150 
02160 
02170 

oaiao . 

02190 
02200 ' 
03010 
03020 
03030 
03040 

03050 
03060 NEC 
03070 POINTA TFL 



FSUS XAXC, XC, 11. 
TFL YOYA* YO* lit 
FSUS YOYA, YA* 11* 
FffUL XAXC* YOYA ** 
TFL XDXA* XD* 11* 
FSUS X0XA*XA*ll* 
TFL YAYC*YA*il* 
FSUS YAVC*YC*ll* 
FMUL XDXA* VAVC* • 
FSUS CAXAD,XOXA,, 



BO 



P0S*CAXA0~2»t 
POINTS *C00E** 
XCOOA0,XA,6ll, 



CALCULATE CROSS 


PRODUCT OF VECTOR CA 








00052 


-0 


00288 


OOOON 


TIMES AO. 




00064 


-K 


00288 


0002N 






00076 


-0 


00298 


0004- 


YO-YA 




00088 


-X 


00298 


0001- 


(XA-XCHVO-YA) 




00100 


-L 


00288 


00298 






00112 


-0 


00308 


0003N 


XO-XA 




00124 


-K 


00308 


OOOON 






00136 


•0 


00298 


0001- 


YA-YC 




00148 


-X 


00298 


0003- 


(XO-XA II YA-YC) 




00160 


-L 


00S08 


00298 


<XA-XC)(VD-YA)-( 


XO-XA 1 C YA-YC 1 










00172 


•X 


00288 


00308 


IS RESULT POSITIVE 


00 184 


MM 


00260 


00286 


WHAT IS MODIFIER 


COOf 


00196 


ML 


00234 


00051 


PICK POINT A 




00208 


•0 


0004N 


OOOON 



03030 




TFl 


YCQ0R0»YA,611 






00220 -0 0003- 0001- 


Q3GfQ 




002 


XCGQR0«XD,6ll» 






002a? *2 ^0000 OOQQO 


01100 


POINTS 


TFl 


PICK 


POINT • 


00234 »Q 0Q04N 000 IN 


03110 




TFl 


Y€GaR8»Y§»6n 






0c2<4 -0 0003* 0002* 


03120 




882 








00258 42 00000 00000 


03130 


PCS 


BD 


POINY4.CO0E,, 


LMAT 


IS MODIFIER COC£ 


00260 Ml 00208 00391 


03l%0 




67 


poiktb,*. 


PICK 


POINT 8 IP POINT 


a no? Taken 














00272 N9 00234 00000 


03150 


XAXC ( 


DC 


10,0 






00288 00010 


03160 


YOYA 


oc 


10 jO 






MW*TfO UUUiU 


03170 


XOXA 


oc 


10*0 






00308 00010 


03180 


YAYC 


OS 


0»YDYA 






00298 00000 


03190 


CAXAO 


OS 


0,XAXC 






00288 OUOOO 


03200 


RETURN 


OS 


0*2411 






02411 OOOOU 


04010 




DENO 


PTSlCT 






00052 



9RYCL0 00513 
ENOAO 02655 



TOTCYL 02434 
INPUT 02626 



SYMBOL TABLE 



OUTPUT 02640 
I SEEK 02462 



MOVDAT 02402 
STORE 02426 



CYLCT 02436 



01010* 
01020* 
0103C* 
01040* 
01050* 
01060* 
01070* 
01080* 

01090*******< 

01100* 
Oil 10* 
01120* 
01130* 
01140* 
01150* 
01160* 
01170* 

0U80****»#*< 

01190* 

01200 
02010* 

02020 NOVOAT 
02030 

02040 STORE 
02050 



IBM 1620-1311 AO-APT PROGRAM FOR MOVING 
FILE DATA IN PREPARATION FOR EXECUTION 
OF THE POSTPROCESSOR 

•10 NUMBER 0397 
•STORE CORE IMAGE 
LINKAGE * CALL LINK, MOV DAT 



POSTPROCESSOR INPUT FROM INTRAN-DATA AT CYK10-16) • 
POSTPROCESSOR INPUT FROM ARELEM-OATA AT CYL 117-23) • 

• 

SET INPUT FOR INTRAN OR ARELEM AND MOVE DATA TO CVK2-8) • 

» 

CALL EXIT (POSTPROCESSOR EXECUTION UNDER MONITOR 1 CONTROL >• 



00R6 2402 

PROGRAM ENTRY 
TP XNPUTO,9RYCL0ti 



02402 



A 

CP 
TFN 



INPUTS INPUTOm 
INPUT*2»»» 
TOTCYL »7,10# 



TFN CYLCT, 2 i 10, 



02070* 

020 SO I SEEK 

02090 

02100 

02110 

02120 

02110 

02140 

02190 
02160 

02170 
02180* 

02190 

022 >0 
0*010 



SK 

RON 

SK 

WON 

AN 

AM 

SN 

ONE 
SM 



FOR INTRAN OR ARELEM 

02402 26 02639 00513 
9RCYL9»10(!NTRAN1 02414 21 02629 02629 
9RCYL0" 17 (ARELEM) 02426 33 02628 00000 
SET TOTAL NUMBER OF CYLINDERS TO R/W 

02438 16 02434 000-7 
SET CYLINDER COUNT FOR 2 R/U PER CYL 

02450 16 02436 000*2 
INPUT /OUTPUT CORE STORAGE... 100 SECTORS I 10000-19999) ... 

SET OISK ARM FOR INPUT 

02462 94 02626 00701 
REAO OXSK/NO WLRC 1100 SECTORS) 

02474 $6 02626 00702 
SET DISK ARM FOR OUTPUT 

02486 94 02649 90701 
WRITE OlSK/NO WLftC (100 SECTORS) 

02498 98 02640 09793 
INCREMENT INPUT SECTOR ADDRESS 

02910 U 92691 OOJOO 
INCREMENT OUTPUT SECTOR ADDRESS 

Ct$22 11 02649 OOJOO 
DECREMENT CYLINDER COUNT 

029S4 12 02496 090-1 
02346 47 02462 01200 
DECREMENT TOTAL CVllNOfRS (I vtl MOVED) 

02SS8 *2 02434 090-1 
02970 4? 02490 01200 



INPUT, tt 
INPUT* tt 
OUTPUT,,, 
OUTPUT* tt 
INPUT*ltlO0t9t 
OUTPUT*9*lOO|ft 
CYLCT, I, 10, 
ISSEK 

TOTCYL, I* 10* 



ONE I SEEK- U 

ALL vU'ik NOvttf I CTL;^«RS OF OATA 

arTY 02982 34 00090 00102 

*CTV 02994 94 00990 00109 



03020* 

03030 



PREPAY FOR POSTPROCESSOR EXECUTION 
CALL EXIT,,, 



030*0 TOTCVL OS 2,STORE*8# 

0)090 CYLCT OS 2«ST0RC«I0» 

03060 INPUT OOA ,0,0,100,10000 

01070 OUTPUT OOA »0» 00400, 100, 10000 



03000 ENOAO 
0)040 9RYCL0 



DAC 
OS 



RETURN CONTROL TO MONITOR I 

02618 49 00796 00000 
TOTAL NUMBER OF CYLINDERS TO R/W 

02434 00002 
CYLINDER COUNT 12 A/U PER CYLINDER) 
02436 00002 
02626 00006 0-0000 
02632 00003 JOO 
02635 OOOOS JOOOO 
02640 00006 0*0400 
02646 00003 JOO 
02649 OOOOS JOOOO 
24, END OP AO* APT EXECUTION* 02655 00048 



• SI), 



OENO NOVO AT 



AOORESS OP CYL NUMBER FOR INPUT OATA 
0091) 00000 
02402 



WRITE 1 17966 
SRTYPE 07597 
PUNCH1 17506 
GET INW 17070 
CKKFLG 17310 
AD01 17358 
FORM 07712 
INCOR 19541 
N04 07901 
0UT2 18238 
RET 10690 
S6TP 17634 
SUB2 17866 
SYMD5 04315 
TEMP 19583 
TM9 19570 



TYPERR 02416 
SETPIN 16794 
ONEFRH 16582 
GE7DEX 16962 
CHKENO 18390 
A0D5 16618 
HEA01 18711 
INDSK 19533 
NTIM 19577 
OUTS 19199 
SEE9 17190 
SETP2 17750 
SVMB1 04289 
S6 17554 
TFILL 17286 
TYPE 19514 



SYMBOL TABLE 

TEMPNO 19575 
SETEMP 17106 
NOWRIT 07890 
OEXSEC 19552 
CANOUT 16462 
CHKR 17370 
HEA02 10873 
INSEC 19536 
ONE 19578 
PIN 07391 
SETGM 17058 
STYPE 1T474 
SVMG2 04301 
TABIN 03334 
TOUT 19579 
WRITE 17886 



TABOUT 07770 
RETURN 02411 
MONITR 02406 
OEXOSK 19549 
AILFRM 16606 
CLOUT 16630 
HEA03 19035 
INW 19520 
OUT 17986 
PINZ 16774 
SETIH 16890 
SUBA 18022 
SYMB3 04303 
TOATA 03)33 
TRY 10 18158 



TABCOR 18482 
PUNCH2 17530 
INOEXA 19544 
OEXCOR 19557 
AOOPIN 18298 
C0MP4 16998 
INA 19528 
NOGET 07893 
0UT1 19361 
PUNCH 16702 
SET IN 17566 
SUBB 18102 
SYMB4 04305 
TDEX 07386 
TRV20 18078 



01010* 












01020* 














01030 




DORG 


16462 


16462 








01040 


CANOUT 


CF. 


TOUT 


16462 


33 


19579 


00000 


01050 


CF 


ONC 


16474 


33 


19578 


00000 


01060 




CM 


FORM, 3,8 


16486 


14 


07712 


0-003 


01070 




BE 


ONEFRM 


16498 


46 


16582 


01200 


01080 




CM 


FORM, 2. 8 


16510 


14 


07712 


0-002 


01090 




BE 


ALLFRM 


16522 


46 


16606 


01200 


01100 




CM 


FOR*. 1,8 


16534 


14 


07712 


0-00 1 


Oil 10 




BE 


ONEFRM 


16546 


46 


16582 


01200 


0U20 




BTM 


MONITR, 03090, 67 


16558 


17 


02400 


-3090 


01130 




BTM 


TYPERR,301,67 


16570 


17 


02410 


-0301 


01140 


ONEFRM 


TR : 


SYMB 1-3 , TOATA 


16582 


31 


04286 


0333J 


01150 


SF 


ONE 


16594 


32 


19578 


00000 


01160 


ALLFRM 


TFM 


CL0UT*6,TABIN-9 


16606 


16 


16636 


-3329 


01170 


A005 


AM 


CL0UT^6,9,10 


16618 


11 


16636 


000-5 


01180 


CLOUT 


TFM 


9999, t 


16630 


16 


09999 


-0000 


011*50 




CM 


CL0UT*6,TADIN*700 


16642 


14 


16636 


-4034 


01200 




B&SS 


ADOS 


16654 


47 


16618 


01200 


02010 




im 


TABIN+700 


16666 


15 


04034 


00000 


02020 




OGM 


• 


16677 


00001 


000-1 


02030 




CM 


SRTYPEtltlO 


16678 


14 


07597 


02040 




BE 


TYPE 


16690 


46 


18514 


01200 




PUNCH 


WACO 


WgAOl 


16702 


39 


18711 


00400 


02060 


WACO 


Hi A02 


16714 


39 


16873 


00400 


02070 




w&co 


MEA02 


16726 


39 


18873 


00400 


02080 




MAC© 


HZA02 • 


16738 


39 


18873 


00400 


02090 




WACO 


KCAO) 


16750 


S9 


19035 


00400 


02100 




ULZO 


Hf AOS 


16762 


39 


18873 


00400 


02110 


P1NI 


®m 


SSTPIM.ONI 


16774 


44 


16794 


19578 


02120 


B7 


SITgMP 


16784 


49 


17106 


00000 


02130 


SfTPIN 


TFM 


PIN,, 


16794 


16 


07391 


-0000 


02140 


TFM 




16806 


16 


19533 


-0000 


02190 




TFM 


fs®4,,io 


16818 


16 


07901 


000-0 


02160 




TFN 




16830 


16 


0789) 


00-00 


02170 




C 


PIK,TOEX 


16842 


24 


07391 


07366 


02; co 




it 


ft!T . 


16894 


46 


18690 


01200 


02190 




C 


KCCIT.NOWRIT 


16866 


24 


07893 


07890 



02200 




BE 


TA8C0R 


16878 


46 


18482 


01200 


03010 


SfTIM 


tfm 


C0MP4*llf TAaiN»15 


16890 


16 


17009 


-3349 


03020 




TFM 


MTlMf 1 10 


16902 


16 


19577 


000*0 


03030 




TFM 


0EX$£€t7t9 


16914 


16 


19552 


00-07 


03040 




TFM 


DEXCOR,TABIN 


16926 


16 


19557 


"3334 


03090 




TFN 


OEXDSKtltOO 


16938 


16 


19549 


-1600 


03060 




A 


0EX0SK«NQ4 


16950 


21 


19549 


07901 


0307C 


6ETDEX 


SK 


INDEX A 


16962 


34 


19544 


00701 


03030 




RON 


INOEXA 


16974 


36 


19544 


00702 


03090 




AM 


N04«7 V 10 


16986 


11 


07901 


000-7 


03100 


C0MP4 


TF 


I MSEC i 9999 t» 


16998 


26 


19536 


09999 


03110 




TFM 


INCORf SYMB1-3 


17010 


16 


19541 


-4286 


03120 




TFM 


SETGM*6f SYMS1-3 


17022 


16 


17064 


-4286 


03130 




A 


S£TGM*4 ( INSEC 


17034 


21 


17062 


19536 


03140 




CP 


INSEC-l 


17046 


13 


19535 


00000 


03150 


SETGN 


TOM 


9999 


17058 


15 


09999 


00000 

VVvVV 


03160 




DGM 


• 


17069 


00001 




03170 


GETINW 


GET 


INW 


17070 


10 


00565 


J7093 










17082 


49 


00566 


J9520 


03160 




TOM 


SE TGM+6t v 6 


17094 


15 


1706M 


OG000 


03190 


SETEMP 


TF 


TEMPNOtSYMBl 


17106 


26 


19575 


04289 


03200 




SM 


TEMPNOt21tlO 


17118 


12 


19575 


00OK1 


04010 




A 


INOSKt INSEC 


17130 


21 


19533 


19536 


04020 




CM 


SYMB4f 5« 10 


17142 


14 


04305 


000-5 


04030 




ONE 


SEE9 


17154 


47 


17190 


01200 


04040 




CM 


SYMB1 »5l»8 


17166 


14 


04289 


0-051 


04050 




BNE 


ADDPIN 


17178 


47 


18298 




04060 


SEE9 








24 


04301 


19570 


04070 




BE 


ADOP IN 


17202 


46 


18298 


01200 


04080 




Cm 


SYMB3| It 10 


172 14 


14 


04303 


000— I 


04090 




BE 


STYPE 


17226 


46 


17474 




04100 




CF 


SYMB3 


17238 


33 


04303 


ftOflflft 


041 10 




TFM 


OUT 5*1 a. 24. 10 


17250 


16 


19217 


00OK4 


04120 




TFM 


OUT3*24t4»lO 


17262 


16 


19223 


000-4 


041 30 




TNF 


OUT3*22tSYM63 


17274 


73 


19221 


04303 


04140 


TF ILL 


TNF 


OUT3*36t SYM84* 


17286 


73 


19235 


04305 


041 SO 




TFM 


f MKFt f.+ l 1 « %YMA7— 1 

V* n IN r t_ vt ▼ L 4 ff «J I ™D l jL 


17298 


16 


17321 


—4300 


04160 


CHKFLG 


BNF 


SUB2 * 9999 


17310 


44 


17866 


09999 


04170 




TOM 




17322 


15 


04302 


vvvvU 


041 80 




OC 


1 1 ' 1 • 


17333 


0000 1 




04190 




TR 




17334 


31 


19204 


1732J 


04200 




TFM 


CHKR*ll t OUT3 


17346 


16 


17361 


J9 199 


05010 


A001 


AM 


CHKR*l 1 t 1 ■ 10 


17358 


11 


17381 


000-1 


05020 


CHKR 


BNR 


ADD1 i 9999 


17370 


45 


17358 


09999 


05030 




TDM 


CHKR* 1 1 1 1 6 


17382 


15 


1736J 


00000 


05040 




BNF 


PUNCH1 »TOUT 


17394 


44 


17506 


19579 


05050 




RCTY 




17406 


34 


00000 


00 102 


05060 




TOM 


UU i jp w 


174 1 8 


15 


19239 


flftftftft 


05070 




DC 


1 1 8 t * 


17429 


00001 








TR^ 






39 


19199 


00100 


05090 






HUT 1—1 .MEAD? 


17442 


31 


19198 


18873 


051 00 




RCTY 




17454 


34 


00000 


00102 


05110 




B7 


PUNCH2*12 


17466 


49 


17542 


00000 


05120 


STYPE 


TFM 


OUT 3* 1 8 1 # 10 


17474 


16 


19217 


000-0 


05130 




TFM 


OUT3*24,,10 


17486 


16 


19223 


000-0 


05140 




B7 


TP ILL 


17498 


49 


17286 


00000 


05150 


PUNCH I 


WACO 


OUT3 


17506 


39 


19199 


00400 


05160 




TR 


OUT3-1 »HEA02 


17518 


31 


19198 


18873 


05170 


PUNCH2 


WACO 


HEAD2 


17530 


39 


18873 


00400 


05180 




TFM 


SETIN*tltSYMB5-2 


17542 


16 


17577 


-4313 


051 90 


S6 


TFM 


SE T I N*6 t OUT 1 ♦ 38 


17554 


16 


17572 


J9399 


05200 


SETIN 


NOP 


9999,9999 


17566 


41 


09999 


09999 


060 10 




SM 


SET I N*6» IBt 10 


17578 


12 


17572 


O0OJ8 


06020 




BNF 


SETPf SETlN+lltll 


17590 


44 


17634 


1757P 


06030 




CF 


SETIN*ll t »6 


17602 


33 


1757P 


00000 


06040 




TFM 


SETIN+6e20»610 


17614 


16 


1757K 


OOOKO 


06050 




B? 


SETP*12 


17626 


49 


17646 


00000 


06060 


SETP 


TFM 


S£TIN*6» i0»610 


17634 


16 


1757K 


000.10 


06070 




AM 




17646 


11 


17572 


O0OJ8 






TNF 


tPTtN*A.^ETIN*ll.All 


17658 


73 


1757K 


1757P 


06090 






KPT I M* I 1 . > . 1 ft 


17670 


11 


17577 


000-2 


061 00 




AM 


SETIN*6t 10* 10 


17682 


11 


17572 


O0OJ0 


061 10 




SM 


SETlN+6t 4t 10 


17694 


12 


17572 


000-4 


061 20 




BNF 


SETP 2 » SET! N*l 1 • 1 1. 


17706 


44 


17750 


1757P 


061 30 




CF 


*c i i v (tug 


17718 


33 


1757P 


00000 






TFM 




17730 


16 


1757K 


OOOKO 


061 50 




B7 


SETP2* 12 


17742 


49 


17762 


00000 


061 60 


SETP2 


TFM 


SETIN*6«10»610 


17750 


16 


1757K 


ooojo 


061 70 




AM 




17762 


11 


17572 


000-4 






TNF 


<P riM«A. tFTtN*l 1 * All 


17774 


73 


1757K 


1757P 


n^i on 




SM 




17786 


12 


19575 


OOOJO 


06200 




BZ 




17798 


46 


17986 


01200 










17810 


11 


17577 


000-8 


07020 




CM 


T f W* &> OUT I ♦ 1 2 A 


17822 


14 


17572 


J9489 


07030 




BE 


WRITE 


17834 


46 


17886 


01200 


07040 




AM 


SETIN*6»30 f lO 


17846 


11 


17572 


00OLO 


07050 




87 


SETIN 


17858 


49 


17566 


00000 


07060 


SU82 


SM 


CHKPLG*lli2»10 


17866 


12 


17321 


000-2 


07070 


87 


CHKFLG 


17878 


49 


17310 


00000 


07QQ0 


WHITS 


SM 


&VMB1 « 10. 10 


17886 


12 


04289 


000L0 






8NF 


UB ITF1 .TOUT 


17898 


44 


17966 


19579 


071 00 




RCTY 


17910 


34 


00000 


00102 


nti i ft 




TON 


OUT 14 110 


17922 


15 


19491 


00000 


07120 




OC 


If * t* 


1793} 


oooo I 




071 SO 




Y6TY 


17934 


34 


00000 


00106 


07140 




WATY 


WW 1 * ▼ • V 


17946 


39 


19381 


00100 


071 SO 




67 


WW 1 lil~tf 


179S8 


49 


17978 


00000 


07160 


wjutii 


WACO 


OUT! 


17966 


Sf 


19361 


00400 


071 70 


A? 


$6 


17978 


49 


17394 


00000 


07180 


UUI 


BRF 


ntiT9. TOUT 

WW 1(1 1 WW • 


17986 


44 


18238 


19579 


07190 


Tf 


MHO » CVMIkl 


17998 


26 


19583 


04289 


07200 




SM 


MS .91 .Ifl 
lEn»* f iit *W 


18010 


12 


19583 


000K1 


080.10 


SU8A 


SM 




18022 


12 


19583 


000L0 


08020 




TRY30 


18034 


47 


16076 


01300 


©H010 




BNZ 




18046 


47 


18022 


01200 


08040 




TDM 


OUT 1*1 30 
WW 1 *▼ » #W 


180S8 


15 


19491 


00000 


00030 




DC 


if * »• 


18069 


00001 








ST 


T&Y1Q*12 


18070 


49 


18170 


00000 


08070 


THY20 


T ft 


TSM?9$YH@l 


18078 


26 


19583 


04285 


Blwiw 




Tf MP*2I*L0 


18090 


12 


19383 


O0OK1 


www » V 


sudd 


gg ■ 


TIMP«20al0 


16102 


12 


19983 


0C0K0 


®§S00 


W 


TrYIO 


10114 


47 


18198 


01300 


Ait f 1 A 




§£3£ 


$y§s 


18126 


47 


18102 


'01200 


wwi iU 




TQM 


OUT 1*90 


13139 


11 


19491 


00000 


OHIO 




OC 


if »»t 


18149 


00001 




01140 




gf 


mYio^ii 


18150 


49 


16170 


00000 


001 SO 


WIO 


T0*i 


OUT 1*10 


18158 


15 


19411 


00000 


08 140 


OC 


i* Sp 


18169 


OOOwl 




0IS170 




ftCTY 


18170 


*4 


000Q0 


00102 


08180 




TSTY 




18182 


14 


00000 


00108 



OBI 90 




WATY 


0UTl*20 


18194 


39 


19381 


00100 


08200 




fiCTY 




18206 


34 


00000 


00102 


090 to 




BNF 


QUT2*24«QN£ 


18218 


44 


18262 


19578 


09020 




B7 


RET 


18230 


49 


18690 


00000 


09030 


0UT2 


WACO 


0UT1 


18238 


39 


19361 


00400 


09040 




WACO 


HEA02 


18250 


39 


18873 


00400 


09090 




TOM 


QUTi*50 


18262 


15 


1941 1 


00000 


09060 




TOM 


0UT1*90 


18274 


15 


19451 


00000 


09070 




TOM 


0UT1+130 


18286 


15 


19491 


00000 


09080 


AOOPIN 


AM 


PIN* 1 » 10 


18298 


11 


07391 


000- 1 


09090 




C 


PIN, TOE X 


18310 


24 


07391 


07386 


09100 




BE 


RET 


18322 


46 


18690 


01200 


091 10 




AM 


NTIM,1,10 


18334 


11 


19577 


000- 1 


09120 




CM 


NTIM,6»10 


18346 


14 


19577 


000-6 


09130 




BE 


CHKENO 


18358 


46 


18390 


01200 


09140 




AM 


C0MP4*lltl6t 10 


18370 


11 


17009 


O00J6 


09150 




B7 


C0MP4 


18382 


49 


16998 


00000 


09160 


CHKENO 


AM 


NOGET, 1, 10 


18390 


11 


07893 


000- 1 


091 70 




C 


NOGET* NOWRIT 


18402 


24 


07893 


07890 


09180 




BE 


TABCOR 


18414 


46 


16482 


01200 


09190 




CM 


C0HP4*11,TABIN*695 


18426 


14 


17009 


-4029 


09200 




BE 


SETIM 


18438 


46 


16890 


01200 


10010 




AM 


COMP4m»20 t 10 


18450 


11 


17009 


OOOKO 


10020 




TFM 


NTIM,»10 


18462 


16 


19577 


000-0 


10030 




B7 


C0MP4 


18474 


49 


16998 


00000 


10040 


TABCOR 


TFM 


C0MP4* 1 1 1 T ABOUT* 15 


18482 


16 


17009 


-7785 


10050 




TFM 


NT IM» 1 10 


18494 


16 


19577 


000-0 


10060 




B7 


C0MP4 


18506 


49 


16998 


00000 


10070 


TYPE 


RCTY 




18514 


34 


00000 


00102 


10080 




TOM 


HEA0l»2»50 


18526 


15 


18811 


00000 


10090 




OC 


i.«,» 


18537 


00001 




10100 




WATY 


HE AO 1 


18538 


39 


18711 


00100 


10U0 




TDM 


HEADl*2*50 


18550 


15 


18811 


00000 


10120 




RCTY 




18562 


34 


00000 


C0102 


10130 




RCTY 




18574 


34 


00000 


00102 


10140 




RCTY 




18586 


34 


00000 


00102 


10150 




RCTY 




18598 


34 


00000 


00102 


10160 




TOM 


HEAD3*2»30 


18610 


15 


19135 


00000 


10170 




OC 


!.•*• 


18621 


00001 




10180 




WATY 


HEADS 


18622 


39 


19035 


00100 


10190 




TOM 


HEAD3»2»50 


18634 


15 


19135 


00000 


10200 




RCTY 




18646 


34 


00000 


00102 


11010 




RCTY 




18656 


34 


00000 


00102 


11020 




SF 


TOUT 


18670 


32 


19579 


00000 


11030 




B7 


PINZ 


18682 


49 


16774 


00000 


11040 


RET 


TOM 


TABIN+700 


18690 


15 


04034 


00000 


11050 




B7 


RETURN* #6 


18702 


49 


0241J 


00000 


11060 


HEAD1 


OkC % 


50* 1620*1311 AO-APT 


CANONICAL FORM PRINT OUT 












18711 


00100 




11070 




OC 


50*0 


18859 


00050 




11080 




OC 


10*0 


18869 


00010 




11090 




OC 


it» 


18870 


00001 




11100 


HEA02 


OAC 


1» t 


18673 


00002 




11110 




DC 


48*0 


18921 


00048 




11120 




DC 


50*0 


18971 


00050 




11130 




OC 


50,0 


19021 


00050 




11140 




OC 


10,0 


19031 


00010 




11150 




OC 


1*0 


19032 


00001 




11160 




OC 


i.« 


19033 


00001 




11170 


HEA03 


OAC 


50, SYMBOL NAME TYPE 


PARAMETERS 





meo 




OC 


50,0 


1U90 




OC 


10,0 


11200 




DAC 


I.' 


12010 




BB2 




12020 


0UT3 


DAC 


1* * 


12030 




DC 


48,0 


12040 




DC 


50,0 


12050 




DC 


50,0 


12060 




OC 


10,0 


12070 




DC 




12060 


0UT1 


OAC 


2, , 


12090 




OAC 


8, 


12100 




OAC 


2t*. 


12110 




OAC 


8, 


12120 




OAC 


1,* 


12130 




OAC 


2.E* 


12140 




OAC 


2, * 


12150 




OAC 


5, * 


12160 




DAC 


2**. 


12170 




OAC 


8, 


12180 




OAC 


it* 


12190 




DAC 


2,E* 


12200 




DAC 


2» • 


13010 




OAC 


5* • 


13020 




DAC 


2t*. 


13030 




OAC 


0. 


13040 




OAC 


i*» 


13050 




OAC 


2*E* 


13060 




OAC 


2* t 


13070 




OAC 


15, 


13080 


INW 


OOW 


,INA,.N,A 


13090 


INA 


OOA 


,,0,0,0 


13100 




OC 




13110 


INOSK 


OS 


*INA*5 


13120 


INSEC 


OS 


•INA+8 


13130 


INCOR 


OS 


•1MA+13 


13140 


INOEXA 


OOA 


••0*0*0 



13150 




OC 


!*• 


13160 


OEXOSK 


OS 


•IN0EXA*5 


13170 


OEXSEC 


OS 


* INDEXA+B 


131 SO 


OEXCOR 


OS 


*INDEXA*13 


13190 


TW9 


OC 


12,999999999999 


13200 


TgM?NG 


OC 


5,0 


14010 


NTIM 


OC 


2,0 


14020 


ONE 


OS 


1 


14010 


TOUT 


OS 


1 


14040 


TEMP 


OS 


4 


14050 




OS 


78,, 


14060 


TOATA 


OS 


• 3333 


14070 


TABIN 


OS 


•TOATA+ 1 


140 SO 


FORM 


OS 


•07712 


14090 


SRTVPE 


OS 


• 0799)7 


14100 


PIN 


OS 


>t»719| 



PI Li LAST SfCTOft 



19035 
19183 
19193 
19195 
19196 
19199 
19247 
19297 
19347 
19357 
19358 
19361 
19365 
19381 
19385 
19401 
19403 
19407 
19411 
19421 
19425 
19441 
19443 
19447 
19451 
19461 
19465 
19481 
19483 
19487 
19491 
19520 
19522 
19527 
19528 
19534 
19537 
19542 
19533 
19536 
19541 
19544 
19550 
19553 
19558 
19549 
19552 
19557 
19570 
19575 
19577 
19578 
19579 
19583 
19661 
03333 
03334 
07712 
07597 
07391 



00100 
00050 
00010 
00002 

42 00000 00000 

00002 

00048 

00050 

00050 

00010 

00001 

00004 

00016 

00004 

00016 

00002 

00004 

00004 

00010 

00004 

00016 

00002 

00004 

00004 

00010 

00004 

00016 

00002 

00004 

00004 

00030 

00002 20 

00005 J9528 
00001 ♦ 

00006 0-0000 

00003 -00 

00005 -0000 
00001 
00000 
00000 
00000 

00006 0-0000 
00003 -00 
00005 -0000 
00001 
00000 
00000 
00000 
00012 
00005 
00002 

0000 1 
00001 
00004 
00071 
00000 
00000 
00000 
00000 
00000 



Hi 10 


N04 


OS 


t0790i 


07901 


ooooo 


141 20 


NOGET 


OS 


•07893 


07893 


00000 


141 30 


T06X 


OS 


1 7386 


07386 


ooooo 


14140 


NOtoR I T 


OS 


•07S90 


07890 


ooooo 


1*150 


SYMBi 


OS 


•04289 


04289 


ooooo 


14160 


SVHB2 


OS 


•04301 


04301 


ooooo 


14170 


SYMB3 


OS 


•04303 


04 303 


ooooo 


141 80 


SYWB4 


OS 


•04305 


04305 


ooooo 


14190 


SYHB5 


OS 


♦04315 


04315 


ooooo 


14200 


TA80UT 


OS 


•07770 


07770 


ooooo 


15010 


HON I TR 


OS 


• 2406 


02406 


ooooo 


15020 


TYP6RR 


OS 


• 2416 


02416 


ooooo 


15030 


RETURN 


OS 


• ?4U 


024U 


ooooo 


15040 




OCND 


CANOUT 


16462 





{ 



I 



t 08 



ZCOORD 06819 
SRTYPE 03643 
RESTOR 04030 
MESSER 07453 
ERR0R4 05450 
ENOALL 04166 
CHKREC 02726 
AGAIN 04844 
CAR01 06524 
OXGIT 03977 
ERNUM 05463 
HIGH 05334 
LOW 05302 
MSN 06993 
NRIN 04160 
NRT6 04074 
NSRT2 03678 
NSS 05555 
OVERl 05104 
P2 02486 
REAON 02838 
SPACE 04130 
ST5 04260 
0.0 06868 



YCOORO 06809 
SIXIND 03978 
PWORDS 03308 
MESSAG 04235 
ERR0R3 05438 
DUMMY I 04627 
CARONO 04253 
ALPHA 04628 
CAR02 06685 
DISKR 06844 
EVEN 05545 
HILO 05370 
MAX 07013 
MOVE 04868 
NRT 05563 
NSECT 05545 
NSRT3 03686 
NTY 04462 
0VER2 05136 
P3 03074 
RTYPE 03225 
SU 03974 
TEST 06834 



SYMBOL TABLE 

XCOORO 06799 
SIGNIT 05204 
PRETST 06824 
LISTAO 02402 
ERR0R2 05426 
CUTLOC 04820 
ALPNUM 03914 
ALSET 05216 
CHKSW 03722 
OSKIN 02618 
FIRST 02806 
INOIC 02918 
MESSl 07033 
MVREC 04450 
NRT2 03252 
NSRF 05569 
NSRT4 03766 
OUT I 06445 
PSPN 04522 
P6 03966 
SETEV 06771 
ST2 04154 
TYPE 04236 



TSTREC 03178 
SECTOR 06518 
NUMMRK 06858 
INSPAR 03364 
ERR0R1 05414 
COORDS 06973 
ALPMRK 06687 
AMOV 04664 
CLEAR 06918 
ENOIN 02830 
FIX 04988 
INITl 02534 
MESS2 07195 
NPW 05547 
NRT3 03516 
NSRT 05567 
NSRTS 03810 
0UT2 06527 
PSP1 03448 
P7 04166 
SETUP 04402 
ST3 04210 
VGM 02874 



ST0RE1 04231 
SECTNO 04266 
NRSAVE 04216 
FILEIN 06835 
ERPROC 05464 
CONVER 06789 
ACON 04724 
BLANK 06737 
DATA 04274 
EQUIV 03980 
GONPM 03878 
INPUT 05544 
MESS3 07357 
NR 05559 
NRT5 03572 
NSRT1 03670 
NSRT6 03810 
0UT3 06688 
PI 02450 
REAO 02678 
SIGNl 05168 
ST4 04248 
ZEROS 06866 



01010* 




AO-APT POSTPRtM 


01020* 


THE ISM 1620/1311 


01030* 






01040 


OORG 


2402 


01050* 




PROGRAM 


01060* 


OUTPUT TITLE AND 1 


01070 Li ST AO 


BNCi 


Plftt 


01030 


BTM 


TYPE*12,100«» 


01090 


BTM 


TYPE, MESSl., 


01100 


RCTY 




OHIO PI 


WACO 


MESSUo 


01120 


BNC1 


P2 


01130 


BTM 


TYPE.MESS2.. 


01140 PI 


UNCO 


BLANK-49, V9 


01150 


WWCO 


&LANK-49 




WACO 


MESS2,tt 


01170 


WNCO 


BLANK-49 


on©©* 


INITIALIZATION 


01190 IMIT.1 


TFN 


CARDNOtWtt 


01200 


TFN 


SECTN0.400,, 


02010 


TFN 


DI$KR*$,400.. 


02020 


T*N 


NRIN,,B. 


02030 


m 


XtOOAD.O.O,, 



TEST PROGRAM SWITCH 1 (ON-TYPE) 

02402 47 02450 00100 

2 CARRIAGE RETURNS 02414 17 04248 -0100 
TYPE TITLE ANO 2 CARRIAGE RETURNS 

02426 17 04236 -7033 

02438 34 00000 00102 

PUNCH TITLE 02450 39 07033 00400 

02462 47 02486 00100 
TYPE HEADINGS ANO 2 CARRIAGE RETURNS 

02474 17 04236 -7195 

PUNCH BLANKS 02486 39 06688 00400 

02498 38 06688 00400 

PUNCH HEADINGS 02510 39 07195 00400 

02522 30 04688 00400 

INITIALIZE CARO SEQUENCE NUMBER 

02534 16 04253 0-001 
INITIALIZE STARTING SECTOR NUMBER 

02546 14 04264 -0400 
INITIALIZE OOA STARTING SECTOR 

02550 16 06049-0400 
INITIALIZE INPUT RECORD NUMBER 

02570 14 04140 0-000 
INITIALIZE X-COOROINATE 

02502 04 04799 04040 



02040 




m 


YCOOROtO.O.t 


02030 




.m 


JX0GR0,0«0 99 


02060* 


input 


02070 


OSKIN 


TOW 


CHKREC-11,3,, 


02080 




TFM 


VGM*6,INPUT*l00 t t 






TOM 


VGM*6,,6e 


02100 




06N 




02110 




TFM 


0ISKR*l3tlNPUTtt 


02120 




TOM 


0ISKR+8tl«t 


02130 


READ 


GET 


FILEIN, 


02140 




A 


DISKR*5,0ISKR*6,, 


02190 




NOP 


REAON«INPUT*ltt 


02160 


CHKREC 


CM 


NRIN,,«, 


02170 




BE 


FIRST, 


02160 




TF 


NRSAVEtNRf • 


02190 




S 


NRSAVE,NRIN, • 


02200 




SM 


NRSAVE»1«10* 


03010 




BE 


FIRST 


03020 




B7 


ERROR I,,, 


03030 


FIRST 


TF 


NRIN.NR,, 


03040 




TOM 


VGM+6,«6t 


030S0 


ENOIN 


87 


INOIC,, , 


03060 


RE AON 


TOM 


CHKREC- 1 1, 1, , 


03070 




TOM 


INPUT+100,,* 


03080 




A 


VGM*4,INPUT*l,, 


03090 


VGN 


TOM 


« 1 1 


03100 




OGM 


• 


03110 




TFM 


DISKR*13,INPUTM00, 


03120 




TO 


DISKR*8, lNPUT*ltt 


03130 




87 


REAO / 


03140* 


OUTPUT 1 - INDICATOR^ 


03150 


INOIC 


TR 


OUTl.IHPUTt, 


03160 




TF 


CAROltCARONO 


03170 




TF 


SECTOR, SECTNO 


03180 




BNC1 


P3 


03190 




TR 


19973, INPUT,, 


03200 




ONTY 


19973,,, 



SET CORE ADORE SS FOR 
SET SECTOR COUNT FOR 



INITIALIZE V-C00RD1NATE 

02596 06 06809 06868 
INITIALIZE Z-CQOROINATE 

02606 06 06819 06868 

SET VARUS IE OP CODE TO 80 143} 

02618 IS 0271$ 00003 

SET GROUP MARK AOORESS 

02630 16 02680 -5644 
SET GROUP MARK FOR 1 SECTOR REAO 

02642 IS 0266* 00000 

02653 00001 
1 SECTOR REAO 

02654 16 068S7 -5544 
1 SECTOR REAO 

02666 15 06852 00001 
REAO N SECTORS OF AO-APT RECORD 

02678 10 00565 -2701 

02690 49 00566 -6835 
READY SECTOR AOORESS FOR NEXT REAO 

02702 21 06849 06852 
VARIABLE OP COOE (NOP OR 5DI 

02714 41 02838 05545 
CHECK 02726 14 04160 0-000 

INPUT 02738 46 02806 01200 

RECORO 02750 26 04216 05559 

SEQUENCE 02762 22 04216 04160 

NUMBER 02774 12 04216 000-1 

02786 46 02606 01200 
RECORO OUT OF SEQUENCE ERROR 1 •• 

02796 49 05414 00000 
SAVE CURRENT INPUT RECORO NUMBER 

02806 26 04160 05559 
CLEAR GROUP MARK 02818 15 0288- 00000 

ENO OF INPUT OPERATION 

02830 49 02916 00000 
SET VARIABLE OP COOE TO NOP (41) 

02838 15 02715 00001 
CLEAR PREVIOUS GROUP MARK 

02850 15 05644 00000 
UPOATE NUMBER OF SECTORS 

02862 21 02878 05545 
SET GROUP MARK FOR N SECTOR REAO 

02874 15 00000 00000 

02885 00001 
N SECTOR READ 

02886 16 06857 -5644 
N SECTOR REAO 

02898 25 06652 05545 
02910 49 02678 00000 

SET UP INDICATOR PORTION OF RECORO 

02918 31 06445 05544 
02930 26 06524 04253 
02942 26 06518 04266 
02954 47 03Q74 00100 

SET UP TYPEWRITER OUTPUT 

02966 31 19973 05544 

TYPE INDICATOR PORTION OF RECORD 

02978 35 19973 00100 



1, SET CORE AOORESS FOR 
v SET SECTOR COUNT FOR 



04010 
04020 
04030 
04040 » 
04050 
04060 
04070 
04080 
04090 P3 

04100 
04110 
04120 
04130* 
04140* 
04150 

04160 
04170 
04180 

04190 

04200 TSTREC 
05010 
05020 
05030 

09040 RTVPI 



TBTY 

TOM SECTOR*!,,, 
OC 1,*,* 
WNTV SECTOR-4,,, 
TO SECTOR* 1, BLANK,, 
TBTY ,,, 
WNTV CAR01-3ttt 
RCTY 

UNCO 0UT1,,, 

AM CARONO,1,10, 
AM SECTNO, I. 10, 
A SECTNO, NSECT 

OUTPUT 2 - OATA 

TEST INPUT RECORO TYPES 
CM NRT,6,8 t 



TAB SET AT COLUMN 70 
SET RECORO MARK 



02990 34 00000 00108 
03002 15 06519 00000 
03013 00001 
TYPE SECTOR NUMBER 03014 38 06514 00100 
RESTORE NUMERIC BLANK 03026 25 06519 06737 
TAB SET AT COLUMN 77 03038 34 00000 00108 
TYPE CARD NUMBER 03050 36 06521 00100 

03062 34 00000 00102 
PUNCH INDICATOR PORTION OF RECORO 

03074 38 06445 00400 



STEP CARO NUMBER 
STEP SECTOR NUMBER 



03066 11 04253 000-1 
03098 11 04266 000-1 
03110 21 04266 05545 



BNH 

CM 

BNE 

B7 
MM 
BZ 
SM 
B7 
OS A 



TSTREC 

NRT,14,8t 

ERR0R2,,, 

SPACE 
NRT,-5,i0t 
ERR0R2 
99,RTYPI-Stt 
99, ,6, 



TEST FINI RECORO 
ILLEGAL RECORO TYPE 



CALCULATE 



RECORO TYPE 
BRANCH AOORESS 



ERR0R2iNRT2tNRT)«fRR0R2f NRTif NRT* 



05050* 


RECORO TYPE 2 * AUXIL1 


0SG60 NRT2 


CM 


NP»t6tl0t 


05070 


BH 


PUOROS* t» 


03QS0 


CM 


NPWmIO 


05090 


BE 


SPACE.it 


05100 


07 


DATA* it 


OS 110 PUOROS 


CM 


NSRT, 1045,6, 


0S120 


BE 


INSPAR 


05110 


CM 


HSRT, 1044,8. 


05140 


BE 


INSPAR 


03150 


67 


OATA,,, 


05160* 


part mmm or insert 


0S170 INSPAR 


TR 


0UT2~itlNPUT62Ttt 


©5180 


BMC I 


PSPl 


©5190 


TFM 


OUT2*144t.lO# 


05200 


OC 


lt»»P 


06010 


MATY 


CUT2,„ 


06020 


TBTY 




06030 


WNTV 


CAA0NO->Sfft 


06040 


RCTY 




06050 PSPl 


TP 


OUT2*l90tZERO* 



TEST RECORO TYPE GREATER THAN 6 

03122 14 05563 0-006 
03134 47 03178 01100 
03146 14 05563 0-014 

ERROR 2 *• 
03158 47 05426 01200 
03170 49 04130 00000 
03178 13 05563 000-N 
03190 66 05426 01200 
03202 12 00099 -3220 
03214 49 0009R 00000 
03225 00005 -S426 
03230 00009 -3252 
03235 00009 -3516 
03240 00003 -5626 
03249 00009 -3972 
03230 00005 -4074 
ARV FUNCTIONS ANO PARAMETERS 
TEST NIW48SR OP PARAMETER tiOROS 

03252 14 09947 000-6 
NPW GREATER THAN 6 09264 46 09300 OUOO 
03276 14 09947 000-0 
NPW*0 (NO ASSOCIATEO OATA OUTPUT I 

03268 66 04130 01200 
NPW LESS THAN 7 03300 4t 04276 00000 

TEST PARTNO RECORO SUB-TYPE 

03908 14 09967 0J049 
03320 46 09964 01200 
TEST INSERT RECORO SUB-TYPE 

03332 14 09967 0J044 
03344 46 03364 01200 
NPW GREATER THAN 6 03336 69 04274 00000 
RECORO 

MOVE OUTPUT (OATA RECORO) 

03364 31 06926 09971 
03376 47 03448 00100 

SET ALPHA RECORD NARK 05233 16 0§6?i 000-0 

03399 00001 
TYPE Pmim OR INSERT (OATA RECORO) 

03400 19 0*927 00100 
TAB SET AT COLUMN 77 09412 34 00000 00101 

type tm mmu to at a record) 

03424 10 04290 00100 
03436 34 00000 00102 
0364B 26 06677 06666 



06060 
06070 

06000 

06090 

06100 

0&U0* 

06120* 

06130* 

06140* 

06190 NRT3 

06160 

06170 

061*0 

06190 

06200* 
07010* 
07020* 



TNF CAR02,CAR0N0 "3*60 73 06605 04253 

TDM CAAD2-7,5,, FLAG LEADING DIGIT OF CARO NUMBER ' 

03672 IS 06678 0000) 
WACO 0UT2«,i PUNCH PARTNO OR INSERT (DATA RECORD! 

03606 39 06527 00600 

AM CARDNO,l»lO, STEP CARO NUMBER 03696 11 06253 000-1 

07 SPACE 0350* 69 06130 00000 

RECORD TYPE 3 - DRIVING SURFACE OR PART SURFACE 



PAGE 



L1NE(NSRF»L»NPM*2> 

C0NICINSRF*3»NPW»6> 

PLANEiNSRF-8,NPW*4) 

CM NSRF.4,10, 

BNH OATAttt 



ClRCLE(NSRF»2,NPW*3) 
TA8CVL I NSRF-4,NPW* 1 14-86 I 1 



CM NSRF,0»1O» 
6N8 ERR0R4, , t 



RECORD TYPE 5 - 
INOIRPlNSRT-l) 
G0DLTA(NSRT*4> 



07030 NRT5 


CM 


NSRT, 6,0, 


07040 


BH 


ERR0R3,tt 


07050 


MM 


NSRT ,-5, 10, 


07060 


BZ 


ERR0R3 


07070 


SM 


99,SRTYPE-5,t 


07080 


87 


99, ,6, 


07090 SRTYPE 


OSA 


NSRT 1 v NSRT2»,NSRT3» N! 


07100* 


INOIRP 


07110 NSRT1 


87 


DATA,,, 


07120* 


INOIRV 


07130 NSRT2 


87 


DATA,,, 


07140* 


FROM 


07150 NSRT3 


TR 


XCQ0R0-9, INPUT*27, , 


07160 


BTM 


ALPHA, ,10, 


07170 


TFM 


0UT2«-60,,10, 


07160 


OC 


1,S* 


07190 CHKSM 


BNCl 


P6 


07200 


TR 


19969, INPUT427,, 


08010 


ONTY 


19969,,, 


08020 


87 


ALPNUM 


08030* 


GOOLTA 


08040 NSRT4 


FADO 


XC00R0,INPUT*36,, 


08050 


FAOD 


YC00RD,INPUT*46,, 


08060 


FADD 


ZC00RD,INPUT*56*t 



TEST TABCYL OS 03516 14 05569 000-4 

NPW ASSOCtATEO WITH SPECIFIC OS 

03528 47 04274 01100 
TEST PLANE PART SURFACE 

01540 14 01569 000-8 
ILLEGAL iURPACI TYPE •* ERROR 4 

03552 47 05450 01200 
NPW ASSOCIATED WITH SPECIFIC OS 

03566 49 04274 00000 

MOTION 

lNDIRV(NSRT-2) FR0M(NSRT«3> 
G0T0(NSRT*5 OR 61 

TEST RECORD SUB-TYPE GREATER THAN 6 

03572 14 05567 0-006 
ILLEGAL RECORO SUB-TYPE •• ERROR 3 •• 

03584 46 05436 01100 



CALCULATE 



RECORD SUB-TYPE 
BRANCH ADDRESS 



03596 13 05567 000-N 
03608 46 05438 01200 
03620 12 00099 -3638 
03632 49 0009R 00000 
03643 00005 -3670 
03648 00005 -3678 
03653 00005 -3686 
03658 00005 -3766 
03663 00005 -3810 
03668 00005 -3810 



BYPASS ALPHA CONVERSION OF COORDINATE 

03670 49 04274 00000 



BYPASS ALPHA CONVERSION OF COORDINATE 

03678 49 04274 00000 



03686 31 06790 05571 
CONVERT NUMERIC DATA TO ALPHA OUTPUT 

03698 17 04628 000-0 
SET ALPHA RECORO MARK 03710 16 06587 000-0 

03721 00001 

03722 47 03986 00100 
SET UP TYPEWRITER OUTPUT 

03734 31 19969 05571 
TYPE DATA COORDINATES (NUMERIC) 

03746 35 19969 00100 



UPDATE X-COORDINATE 
UPOATE V-COOROINATE 
UPOATE 2-COOROINATE 



03758 49 03914 00000 

03766 01 06799 05580 
03778 01 06809 05590 
03790 01 06819 05600 



08070 
06060* 
08090 NSRT5 

08100 
03110 
08120 



87 NSRT3*12 

GOTO (NORMAL NSRT-5) 



TO DIGIT, INPUT*57,, 



03802 49 03698 00000 
(CONTINUATION NSRT*6| 



TDM 

DC 

TR 



INPUT*57,,t 
1, 



BTM ALPHA,, 10, 



08140 
08150 

03160 GONPW 
08170 

08180 

08190 ALPNUM 

08200 

09010 

09020 
09030 
09040 
09050 ST1 
09060 P6 
09070 
09030 
09090 

09100 RESTOR 

09110 

09120 

09130 

091*0* 

09150* 

09160 WRT6 

09170 

091310 
09190 
09200 

10010* 
10020 SPACE 
10030 
10040 ST2 
10SS0 P7 
10060 

iooio* ■. 

10030 EN0ALL 
10090 

ioioo srs 

10110* 

10120* 
10U0 

10140* 
10150* 



BNR 
B7 



SAVE LEADING DIGIT OF 4TH PARAMETER 

03810 25 03977 05601 
SET RECORD MARK 03822 15 05601 00000 

03833 0000 I 

XC00R0-9, INPUT* 27,, SET GOTO/POINT COORDINATES 

03834 31 06790 05571 
CONVERT NUMERIC DATA TO ALPHA OUTPUT 

03846 17 04628 000-0 
TEST NPW»3 03858 45 03878 06587 

LAST THREE PARAMETER WOROS 

03870 49 03722 00000 
03678 47 03986 00100 
TYPE DATA COORDINATES (NUMERIC) 

03890 38 05571 00100 
SPACE TYPEWRITER 03902 34 00000 00101 

SET ALPHA RECORO MARK 03914 16 06667 000-0 

03925 00001 
TYPE X,Y,Z COORDS (CUTTER LOCATION) 

03926 39 06589 00100 

RESTORE ALPHA BLANKS 



G0NPW,0UT2*60», 
CHKSW,,, 



BNCl P6 

WNTY !NP0T*27,,'ff 
SPTY ,,, 

TFM 0UT2*140,,10, 
OC l,«,* 
WATY 0UT2*62,,, 



TYPE CARD NUMBER 
P FIELO STORAGE 
PUNCH OATA RECORD 
STEP CARD NUMBER 
TEST NPW-3 



03938 16 06667 000-0 
03950 34 00000 00108 
03962 38 04250 00100 
03974 34 00000 00102 
03986 39 06527 00400 
03998 11 04253 000-1 
04010 45 04030 06587 
04022 49 04130 00000 
RESTORE LEAOING DIGIT OF 4TH PARAMETER 

04030 25 05601 03977 
INPUT*27,INPUT*57,t SHIFT DATA RECORO 04042 31 05571 05601 
I NPW, 3, 10, DECREMENT NPW 04054 12 05547 000-3 

NSRT5 04066 49 03010 00000 

RECORO TYPE 6 - TOLERANCE AND CUTTER PARAMETERS 
INT0L(NSRT*4> OUTTOL (NSRT-5) CUTTER (NSRT*6) 



TFM 0UT2*l40t»10» 

TBTY 

WNTY CARDN0-3,,, 
RCTY ,,, 
WACO 0UT2,,, 
AM CAR0N0,1 V 10, 
BNR RESTOR, 0UT2*60,, 
B7 SPACE 

TO INPUT+57, DIGIT,, 



CM NSRT, 4,0. 



BL 
CM 
BNH 
07 



ERRORS,,, 
NSRT, 6, 8 
DATA,, , 
ERRORS, ft 



OUTPUT 3 - SPACER 
BO ENDALL , NRT- It* 
BNCl PT 
RCTY ,,, 
WNCO 0UT3,,t 
•7 OSKIMttt 



ENO OP AD-APT POSTPROCESSOR EXECUTION 
tTM TYPE*12.100,, 2 CARRIAGE RETURNS 

WATY KfSSS 

RCTV ••• P FIIL© STORAGE 

RETURN CONTROL TO MONITOR 1 



TEST INTOLtOUTTOL AND CUTTER 

04074 14 05567 0-004 

RECORD SUB-TYPES 04086 47 05438 01300 

04098 14 05567 0-006 

LEGAL RECORO SUB— TYPE 04110 47 04274 01100 

ILLEGAL RECORO SUB-TYPE •• ERROR 3 •• 

04122 49 05438 00000 

TEST FIN! RECORO 04130 43 04186 05562 

04142 47 04166 00100 

P FIELD STORAGE 04154 94 00000 00102 

PUNCH SPACER 04166 38 06688 00400 
PREPARE FOR NEXT AO-APT RECORO 

04170 49 02618 00000 



04166 17 04240 -0100 
04190 39 07357 00100 
04210 14 00000 00102 



CALL fXITttt 



ALL AO* APT OUTPUT PROCESSED 

04222 49 00796 00000 



HI 



TYPE ALPHA MESSAGE AMO TWO CARRIAGE RETURNS 



10160 STOftEl 
10170 K0SSAG 

ioi«o tvpe 

10190 ST4 
10200 St 9 
11010 
11020* 

U030 data 

11040 
U050 



OAS 3 

NATV Mf$$A6« 9 6# 
&CTV »•« 
RCTV ,., 

002 



TWJ MSSSAa 

P field sToaA&t 

P PS S3 10 STORAGT 
B8ANCM SACK 



data mtm® output mitm no associate coordinates 



04211 0000* 
042SS 00009 
042*4 3t 042 SN 00 100 
04244 $4 00000 00102 
04260 14 00000 00102 
04272 42 00000 00000 



TR 0Uf2*7*t8tAMK-4*M 



TOM 
TP 



NTV*lt9»* 
EQUlV f NPW»i 



U060 

11070 
11000 

Hill 

1 1 100 

11110 

11120 
11130 
11140 

11 ISO SETUP 

11160 
11170 

11160 

11190 HVREC 
11200 MTV 

12010 
12020 
12030 

12040 

12050 PSPN 

12040 

12070 

12080 
12090 
12100 

12110 

12120 

12130 

12140» 

12150* 

12140 DUNMY1 
12170 ALPHA 

12180 

12190 

12200 AMOV 
13010 



CM EOUIVtAtlO* 

BNM SETUP 

TOM NYV*li0*f 

TOM SIXIN0t0»t 

TO DIGITf IN?UT*87t» 



TOM 
DC 
87 
TOM 



IN#UT407t»t 

SETUP* 12 
SIXlMOtlM 



•MCI PSPN 

TFM MV8tC*6« 19999, 9 

S MVREC*9«EQUIV 
TR «INJ>UT»2T 
ONTV MW?C«6tt6« 

TBTV 
TSTY 

«wtv tmm»i**$ 

RCTV 

TR OUTjmtlMPUWT 
TP MOtee^OMO 
UNCO 0UT2*79ttt 
AM CAJWJOtltlOt 
BO SPACEtSlXINO.. 
TO INPUT*97,0IG1T,. 



CLEAR 80 COLUMNS TO NUMERIC BLANKS 

04274 31 06405 06688 
SET OMTY DIGIT 04284 II 04443 00003 

EQUIVALENT NPW STORAGE 

04298 16 OS980 05347 
TISI Wll GREATER THAN 4 

04310 14 0S98O 000-6 

04322 47 04402 01100 
SIT WMTY DIGIT 04334 IS 04463 00006 

Iff fQUiVAUNT mm§ 06141 16 03080 eoi«« 
SET NPW INDICATOR 10-696 Ale* THAN 6) 

04358 19 03978 00000 
SAVf 7TM PARAMETER LEADING OIGIT 

04370 25 03977 0S431 
SET RECORD MARK 04362 If 03431 00000 

04393 00001 

04394 49 04414 00000 
SET MPtf INDICATOR fl«LESS TMAN 71 

04402 10 03976 00001 
04414 47 04922 00100 
CALCULATE STORAGE 8Y VALUE OP NPW 

04426 16 04454 J9999 
04436 22 04455 03980 
04450 31 00000 05571 
TYPE OAT A RECORO (ON TV OR KMT VI 

04462 39 04450 00100 
04474 34 00000 00109 
04484 34 00000 00106 
TYPE CARD NUMBER I OAT A RECORD) 

04498 36 04250 00100 
04510 34 00000 00102 
04922 31 04604 01171 
04534 26 06685 04253 
04944 36 04606 00400 
04556 U 04253 000*1 
04570 43 04130 03970 



PUNCH DATA RECORO 
ST8P CARO NUMBER 
TEST NPW INDICATOR 

RESTORE 7TH PARAMETER LEADING DIGIT 

04562 29 05631 09977 
TR INPUT*27tINPUT*67»» SMIPT INPUT DATA 04594 31 05571 05631 

SM MPW,6tlO# DECREMENT NPW 04404 12 05947 000-4 

67 OATA 04616 49 04274 00000 

CONVERT NUMIRIC COORDI NATES *CUTTER LOCATIONS ANO 
CARD NUMS8R TO ALPHA PQR OUTPUT 



OAS 
TR 



0UT2*59«CLEAR-49»« 



TFM AMOV^lUXCOOROtt 
TPM ACON*4tOUT2MS»t 



TFL 
TNP 



TEST»«# 

CON VSR • TEST t* 



DUMMY STORAGE 04627 00002 

CLEAR 90 COLUMNS TO ALPHA BLANKS 

04626 31 06566 06669 
INITIALIZE MOVING COORDINATE 

04640 16 04475 -6799 
INITIALIZE ALPHA CONVERTED COORDINATE 

04452 16 04730 -4545 
MOVE COORDINATE 04444 00 04634 00000 

CONVERT CHARACTERISTIC 

04474 71 04T64 04034 



13050 ACON TP 



13060 
13070 
13080 

13090 
13100 
13110 
13120 



AM 
AN 
CM 

ONE 
CM 
BNfi 
TFM 



13130 DC 
13140 CUTLOC TFM 



13140 AGAIN TFM 

13170 TP 

13100 MOVE TFL 

13190 CM 



13020 TNP C0NVER-4tTE$T*2t» 

13030 TDM COMVER-3t9»t 

13040 TDM C0NVER-19,9»U« 

•CGMV§R»Y 

A*OV*lltiO*« 

AOm*6t20 

AKOVHl»iCO0RD4lOM 

AMOV . 
WPtf,9tl0» 
CUTLOC 
OUT2»60ttlO» 

!••»• 

MOVEHltXCOQRD»t 

13150 TFM ALSET*4»OUT2#04tt, 

ALSETfUiCOOROS^U* 

COOR0S4l6*Ml*Kl8f« 

TESTmi 

TESTf4«10# 

13200 8L LOW 

14010 CM T8|Trt»i0fl 

14020 6H MIGM 

14030 TPM P!X4UtT8fT«t«t 

14040 CP Tg$T*0 

14050 A PI*>UtT0$T«* 

14060 SP FIX*lltt6t 

14070 AM FIX«llt4*t 

14080 FIX TNF COOR0$4lO»ti 

14090 SP TEST-9 

14100 CM TESTftlO* 

14110 0NH SIGNlot 

14120 CM TEST.2.10. 

14130 01 OVMImi •• 

14144 m Omittf 

I41S0 CP ?®S7*0 

14160 Td jG80Af440»mV<-*«« 

i4i?o §7 sim 

14180 OVIRl ' TNP C«H®&*0*7t$?-0tt 

i4i§o ' sia$f4^«com$43»t 

14200 ' 07 Z%Z-rt$l$- ; . . 

15010 ovfft? im ■■ ccKftd0*6*v6*7>7»t' 
1S020 tpm nmmutmmv** 
ifiio of $tmt*n 

11040 9IGN1 TPM SIGMST*6«C0@R0$*4t» 



CONVERT MANTISSA 04666 73 04705 04032 

SET ALPHA FLAGGED CHARACTERISTIC 

04700 15 06706 00005 
SET ALPHA FLAGGED MANTISSA 

0471* 15 06770 0OOON 
MOVE Aim CONVERTED COOR0IMAT0 

04724 26 00000 04709 
STEP MOVE ADDRESSES 04736 11 04679 -0010 
04746 U 04730 -0020 
TEST LAST COOROJNATE CONVERTED 

04760 14 04679 -6829 
04772 67 06664 01200 
TEST NPW»3 04784 14 09947 000-3 

04796 47 04020 01200 
N0W3 (SET RECORO MARK) 

04808 16 06987 000*0 

04819 00001 
INITIALIZE ADDRESS OF NUMERIC X-CQORO 

04820 16 04979 -6799 
INITIALIZE AOORESS OF ALPHA X-COORO 

04992 16 09222 -6611 
INITIALIZE MOVE C0NVSRT60 DATA ADDRESS 

04044 16 09027 -4491 
SET ALPHA COORO AREA TO 0.00000 

04856 26 06991 07011 
MOVE FLOATING POINT VALUE OF COORO 

04866 06 06034 00000 
TEST CHARACTERISTIC LESS THAN ,000044 

04080 14 04034 000-M 
04992 47 09302 01300 
TEST CHARACTERISTIC 60JAT0R THAft tim.Q 

04904 14 06834 000-3 
04916 44 09134 01100 
UADINO 01017 OF MANTISSA AOOIESS 

0W0 16 ©4*99 «6829 



CALCULATE 
DSCSM&i P08TI0JI 
AOORESS 
ftOVI miMAi PORTION 



04940 99 06023 00000 
04992 21 06099 00034 
04964 92 O400R 00000 
04974 11 04099 -0004 
04900 79 06091 00000 
09040 33 04025 00000 
T8$? CH&^A£T$RiSTIC POt I£TE$*ia gSSTION 

05012 14 06834 000*0 
CHARACTERISTIC LESS TMAN CmS ' 

05024 47 09166 01100 
TEST CHAMCTSRISTIC FOR IMTEGSR PORTION 

09030 16 00034 000*2 

i.w&mtsnnM mm$ u mm 01200 
c^Am?Siliiic«9 mm® 40 ohm 01100 

. 0§072 33 00029 00000 

em%a£?f§t'0!§c«* cstv integer) 

••• . OS084 20 00070 00823 



$0T Wipa... : . • 

mi mmm 
$iT $%m 

SIT 9I0N AOOftfiSS 



09006 49 ©9160 00000 
09104 79 §4010 06020 
09116 10 01210 -007S 
09120 40 ©1100 00000 
0S136 7$ 00079 04027 
. QUM I0 eS'110 -6973 
-09160 40 09100 00000 
09166 16 09010 «6977 



15090 
19060 


SUP 

TOM 


ALSfT,TEST-2, • 
C00RDS*1?,T«, 


150T0 SIGHT 

1 |ft«A At CSV 

19060 At, SET 
19090 


TFM 

TF 

AM 


•20,10* 
MOVEHItlOtt 


19100 


AM 


ALSET»6,24 f , 


19110 


CM 


H0VE*lltXC00R0*90t 


19120 
19130 
151*0 


ONE 
TNF 
TOM 


AGAIN 

CAR02»CAR0N0*t 
CAAD2-7,9, f 


19190 
ISlAOt 
19170 LOtf 
19110 
19190 


002 

M!M OR MAM ALLOWABLE 1 

fsub TEST, 0.0,, 

B* ALSET 

07 MIGH*12,,, 


19200 HIGH 


TFM 


ALSET*ll»MAX*18», 


16010 
16020 

16030 MtLO 


TF 
AM 
TFM 


HIL0«6,ALSET*4«. 

H1L0»6,2 

.14,10,. 


160*0 


CM 


TEST. ,10, 


16090 
16060 
16070* 

16080 ERROR 1 


BH OVEA2+12,,, 
87 SICNl,,, 

ERROR CONDITIONS 
BTM ERPROCt It lOt 


16090 ERR0R2 
16100 ERRORS 


BTM 
BTM 


ERPR0C,2,10, 
ERPR0C,3,10, 


16110 ERROR* 
16120* 
16130 ERtfUM 
161*0 ERPROC 


BTM ERPROC, 4,10, 

TYRE ERROR NUMBER ANO 
OAS 1,, 

TO ME$SER*I8»ERNUM V , 


16190 


TNF 


MESSEA*74,NSS», 


16160 
16170 
16180 
16190 


RCTY 
WATY 
RCTY 
H 


MESSER,,, 
* • » » 


16200 


87 


SPACE, , • 


17010* 
17020 EVEN 
17030 INPUT 


INPUT AREA 
OAS 1 

OS tEVEN-lt 



TEST NEGATIVE NUMBER 09180 A* 09216 06832 
CLEAR NEGATIVE AtPHA OIGIf 1911 

05192 19 06990 00007 
SET SIGN MINUS 0520* 16 00000 OOOKO 

MOVE CONVERTED OAT A 05216 26 00000 00000 
STEP NUMERIC COORD AODRESS 

05228 11 04879 -0010 
STEP ALPHA COORD ADDRESS 

09240 11 09222 -0024 
TEST ALL COORDINATES PROCESSEO 

09292 14 04879 -6829 
09264 47 04844 01200 
09276 73 06689 04299 
CARD NUMBER 
•9288 19 06678 00009 
09100 41 00000 00000 



SET UP CARD NUMBER 
FLAG LEADING DIGIT OP 



BRANCH BACA 
UTPUT VALUES EXCEEDED 
TEST COOROINATE-O.O 



SET AOORESS FOR • 
MOVE • 



17040 

17090* 

17060 

17070 OUT I 
ITOSO 



OS 900»INPUT»900 

NUMERIC CARD AND TYPEWRITER OUTPUT FOR OUT I 
DORG INPUT*90l 



09902 02 06834 06868 
09314 46 05216 01200 
LESS THAN M|N VALUE I SET TO 0*00000*1 

09926 49 09346 00000 
MORE THAN MAX VALUE I SET TO 999.99999*1 

09334 1* 05227 -7031 
05346 26 09376 03222 
09398 II 05376 -0002 
FOR MIN OR MAX OUTPUT VALUE 

05370 16 00000 000J4 
TEST PROPER CHARACTERISTIC RETURN 

05382 14 06834 000-0 
MAX 05394 46 05148 01100 

MIN 05406 49 05169 00000 

RECORD OUT OF SEQUENCE 

05414 17 05464 000-1 

ILLEGAL RECORO TYPE 05426 17 05464 000-2 
ILLEGAL RECORD SUB-TYPE 

05438 17 05464 000-3 

ILLEGAL SURFACE TYPE 05450 17 05464 000-4 
SOURCE SEQUENCE NUMBER 
ERROR NUMBER 05463 00002 
SET ERROR NUMBER IN MESSAGE 

05464 25 07471 05463 

SET SOURCE STATEMENT NUMBER IN MESSAGE 

05476 73 07527 05555 

05488 34 00000 00102 

TYPE ERROR MESSAGE 05500 39 07453 00100 

05512 34 00000 00102 
DEPRESS START REV TO CONTINUE PROCESSING 

05524 48 00000 00000 
IGNORE OATA PORTION OF RECORO 

05596 49 04130 00000 

05549 00002 
1311 DISK FILE INPUT AREA 

09944 00000 



80,, 

*2,0UT1*68. 



OUTPUT 
STORAGE 



06444 00900 
06449 

06449 00080 
06513 00042 



17090 SECTOR 
17100 

17110 CAROI 

17120 

17130* 

17140* 

17150 

17160 OUT 2 
17170 CAR02 
17180 ALPMRR 
17190* 
17200 

18010 BLANK 
18020 
18030 
18040* 
18050 OUT* 

18060* 



OS 
DNB 
OS 
OC 



5.0UTU73, 
2,0UTl*75, 
4,0UT1*79, 
l, a ,OUTl*SO 



FOR INDICATOR 
PORTION OF 
AO-APT RECORD 



06518 00005 
06520 00002 

06524 00004 

06525 00001 



ALPHA CARD OUTPUT FOR OUT 2 

MIXEO ALPHA ANO NUMERIC TYPEWRITER OUTPUT FOR OUT 2 
DORG OUT 1*81 
DAS 80,, 
OS 8.0UT2+198, 
OAC 1»«,0UT2*160, 



DORG OUT2+161 
DNB 50 

DNB 30,BLANK*90 
DC 1,«,BLANK*31 

NUMERIC CARD OUTPUT FOR OUTS 
OS .BLANK-49, 





06526 




OUTPUT STORAGE 


06527 


00160 


OATA PORTION OF 


06685 


00008 


AD-APT RECORO 


06687 


00002 


BLANKS 


06688 






06737 


00050 




06767 


00030 




06768 


00001 



OUTPUT STORAGE FOR SPACER 

06688 00000 



STORAGE 



I9IA0* 

ttittt 

ttlft* *lltf« 



NUMBER OF SECTORS PER RECORD I ADO II 

05545 00000 
NUMBER OF PARAMETER WORDS 

05547 00000 

SOURCE SEQUENCE NUMBER 

05555 00000 
INPUT RECORO NUMBER 09559 00000 
RECORD TYPE 05563 00000 

RECORO SUB-TYPE 03567 00000 

SURFACE TYPE 05569 00000 

DUMMY LABEL (SAME FUNCTION! 

03810 00000 
SAVE OIGIT 03977 OOOOt 

NPM INDICATOR I BASED ON VALUE OF 61 
03978 00001 

EQUIVALENT NPW STORAGE 

03980 00002 
CURRENT VALUE OF RECORD NUMBER 

04160 00004 

SAVE RECORO NUMBER 04216 00004 
CARO NUMBER 04233 00004 

04234 00001 

SECTOR NUMBER 04266 00009 

06T69 

06TT1 00020 
ALPHA CONVERSION STORAGE 

06789 00000 
06790 

X-COOROINATE 06799 00010 

V-COOAOIHATE 06809 00019 

2~€O0SOtNATf 04819 ©0010 

fttcoft* mm ttmm ©abio oooot 

•4011 

06824 00004 

its? mm ueatn* * awe 

04434 0001© 
t»tt 018* PlLl AMBJtlMt 

— : f*i?i?*ti Jg|| w 

mm ttfiiift* %u$f 



18070 


NSECT 


OS 


tiNPum, 


18080 


NPM 


°* 


, INPUT* 1, 


18090 


NSS 


OS 


• iNPumit 


18100 


NR 


OS 


, iNpums, 


18110 


NRT 


OS 


tlNPUT*19t 


18120 


NSRT 


DS 


,IN»UT*23, 


18130 


NSRF 


OS 


•INPUT+29, 


18140 


NSRT4 


OS 


•NSRTS, 


18150 


OIGIT 


DS 


1,ST1»9, 


181*0 


SIXINO 


OS 


i,STl»4, 


16170 


EOUIV 


DS 


2,ST1*4, 


16160 


NRIN 


DS 


4,ST1*4» 


18190 


MRS AVE 


OS 


4,ST3*4. 


18200 


CARONO 


DS 


4,ST4+5» 


19010 




OC 


1#*,ST4*6 


19020 


SECTNO 


OS 


S»ST9*4, 


19090 




DORG 


BLANK* 32 


19040 


SETEV 


DAS 


10 


19090 


CONVER 


OS 


,setev*ib. 


19040 




DORG 


smv+to 


14070 


XCOOR0 


OS 


tO« 9 


19080 


YCOOftO 


OS 


10,8COOR04lO f 


19090 


itmm 


OS 


IO,veoORO4lO0 


19100 




OS 


1«2£00R0*I* 


ItttO 


Mtetst 




icoese** 


19120 


•C 


■♦.*• 


tflttt 


m? 


OS 


t«tMtrmtt* 



I9i to oitKt ooa »o,e*e«» 



19110 NUNMBi* 

19190® 

19200 2EAOS 
20010 0.0 
10020 

20030 CLEAR 

20040 
20050 
200*0 

20070 CODt OS 

20000 Milt 
20090 WAS 

20100* 
20110 MESS1 

20120 

201)0 

10140 ttfSSf 

20150 

201*0 

20170 NESS) 
10100 HESSE0 



OC I,* 

CONSTANTS 
OC 8.0 

OC 2,-99**J*0S*9f 

DORG ISROS*) 
OC 50,0,, 



o*9** 0090* o-oeoo 

0*050 09001 -00 
0*153 00005 -0000 
0*851 09001 



floating »dmr mo 



OC 50,0,UEAA*50 
OC ?,»*CtEAR*52 
00*0 CLEAR*)) 
OAC I Ot 0. 00900* v 



OAC 
OAC 



IOt O.OOOOOtt 
10* 999, 99999* • 



10190* 
#0200 



0*8** 09009 
0*0*9 00002 
0*8*9 

ONE HUMOR EO ANO ONE 2EA0S 

06918 00050 
069*8 00050 
06970 00002 
0*971 

AlFMA COOROINATE VOICING STORAGE 
0*973 09020 

LESS IMAM 0.90001 0*99| 09029 
GREATER THAN 999.99999 

0701} 00020 

OUTPUT MESSAGES 
OAC 50* !0M 1*20/1111 AO-AFT NUMERIC At. CONTROL 

070) 3 00100 

oac )i» processor output sasssihoo 

071) 1 990*2 

DOIC MESSl*l0t 9719* 
OAC 50* AO-APT RECORQ I -COORD V-C 

07191 00109 

OAC 31,0010 1-CO0R0 SIC IOt IONO%NESS2*100 

07291 00091 

0086 MESS2H01 07)1* 
OAC *0,.....ENO 00 AO-APT POSTPROCESSOR EIECUTION., . ' 

07)$? 99090 

OAC «*♦•• ERROR SOURCE S7AT|M|Mf 00000000 ••• 

07*51 00000 

IM0 Of AO^APT PUSTPROC«SSO0 COOE 
OEN0 tlSfAO 02*02 



ARGAOO 00005R 

flcon oojoik 

SFLAG 00)1** 



ARG 00079 
I NO* 001 90R 
SHIFT 00184R 



SYMBOL TABLE 

CMT1 001811 
N2ARG 000)28 
SIT 003*08 



COM? 002808 
000 000S8R 
SORT* 0000*8 



fVEft) 0009*0 

REG 0005? 
TERM 0039*0 



OIOIO* 
01020* 
01010* 
010*0* 
010*0* 
01O6O* 
01070* 
01080* 
01090* 
01 100* 
01 1 10* 
0U20* 

OH 30 ARGAOO 

01140* 
01119 SQRTP 
OHIO 

0U70* 
Oil 10 
OlltO 
91200* 
02010 HI AM 
02020 

010)0* 
010*9 0900 

01010 

020*0 

01970 

01980» 

01090 000 

91190 

OHIO 

91110 

01190 

911*0 

01110 

0ll«0 

01179 W»f 

01110 

01100 

01100 

91010 

01910 

010109 

01040 

01010 

010009 

91979 tW 

9190a 



I9M 1*20-1311 AO- AM FLOATING SQUARE ROOT SUBROUTINE 

ACS 

•NAME SORTFA ... ERASABLE SYSTEM SUBROUTINE 
•IU NUMBER O2OO*OEL0IN 
•ASSEMBLE RELOCATABLE 
* STORE RELOADABLE 
LINKAGE ~ 9TN SORTF, A00AR9**? 

A0OA80 IS THE AOORESS 00 THE ARGUMENT ANO RESULT 
IT IS ASSUMED THAT TNI ARGUMENT IS NON-NEGATIVE 
CORE POSITIONS 000*9-00099 USEO FOR TEMP. STORAGE 
WETHOO... 000 INTEGER 10-0161 T MANTISSA I 



OC 



TFL 
90 



SUB ROUT I I 
A8G* ARGAOO* lit 
N2AR0,«IG~9«t 



LOCATION 0? AOORESS OF CALLING ARGUMENT 
00005 00009 



09 

0080 



ENTRY 

MOVE 00OU0CMT 
BRANCH If ARGUMENT 



EBIT 



MM 
00 



ARB, 10, 10 

000*90*1 



Tfi *R9«10,,9, 

TP* 1001,110*10 
000*90 
0080 P*0 



C0 

TOO 

TP0 

A« 

09 

?»« 

rtw 

TP0 

fit 

00 

m 



10 

01 


C0 



AI6~0 

A80~|OtflS 

|N0I,|I0>|9 

99,10,10* 

97*01*. 

tfU0*0t*t0>tf 

017*0,010-1 
c«tr0*0,i0 

#•00*0.. 

IWOItlflO 

090*lt0l€O0) 

0l0*ltt0 

1008*090*0 

t*00 

CO70«|,10 
T|00 

1811 t«l«t0 ^ 
!90«,tf9«*0919 



0000* 00 00079 OOOON 
IS WON* I 180 

00010 0) 000)2 00070 

000)0 *2 09000 00000 

000)2 



000)2 19 00079 OOONO 
BRANCH |0 O00-NWOt*0O CHARACTIRISTIC 

000** M) QOO00 00090 

01001 0110$ 000*10 **0 000*11 

00019 19 00099 90-00 
90099 4* 00190 -0091 
0OO00 00 001)0 00000 
00000 



II wit 

00? 000011 0100 
0000891 00071909 



00000 

00199 
00111 
90 110 
00100 
001*0 
00190 
00171 
00U0 
00190 

00100 

00110 

00190 

00104 



09 00070 
19 090*9 

H 00100 
II 09009 
H 00007 
40 00)11 
4* 00900 

n 00101 

09 09000 
4% 00100 

n 00000 
0000? 
09 0010* 
00 00090 



00000 
0000* 
*0900 
00000 
00099 
*000! 
•0090 
009*0 
00077 
990-1 
00909 
000*1 
00097 
01100 



00190 49 90191 000*1 
00900 00 19100 01000 

00100 01 00lt> 00099 
00991 19 0010* 0>**0 



03090 


AM 


INOX, 2* 10 




00304 


Jl 00190 


000-2 


03100 SFIAG 


SF 






00316 


32 00000 


00000 


03110 


AM 


•-6» 1*10 




00328 


Jl 00322 


000- 1 


03120 StT 


FSL 


iREG 




00340 


05 00000 


00057 


03130 


SM 


•-6# I t 10 




00352 


J2 00346 


000-1 


03140 


SM 


REGt 9f 10 




00364 


1 9 Anns 7 


000-9 


03150 


g 


SHI FT +48 




00376 


M9 00232 


AO AAA 


03 160 


OORG 






00384 






03170* 














TF 


ARR.Q7. . 

MIMI ff v f t t 


nut E HCJpUW* CnrUflClil 


00384 


9A AAA7Q 


00097 


03 190 




ocr.. t. ia 




aa^ab 


1 1 A AAA 7 




03200 


ce 
»r 








19 AAAal 
42 UUO"rl 


AAAAA 


04010 








00420 


JJL AAAtf 

co uuu r r 




04020 




loAinn _ a o ft . a . 


BCTllflM BCCIII T 


AAA. 19 


_ 4. AAAAU 


AAATO 


04030 


DSC 


2t42« i 


§Xlf 


00444 


00002 




04040* 














04050 ARG 


OS 


20,79 




00079 


00020 




04060 ft£G 


OS 


9,57 




00057 


00009 




04070 CNTR 


OS 


2#SHlfr-3 




00181 


00002 




04000 INOX 


OS 


, SH|FT*6 




00190 


00000 




04090 PICON 


OS 


4.C0NU21 




00303 


00004 




04100 


DENG 


SQRTF 




00006 







SU9IU OQUftft 

€9 004931ft 

j»| 0040*3 

TUOHI 00427R 



Attorn* ©sisosa 

CS 0S443A 

siqim ooos* 

X 00079 



409291 Q01H® 

C7 004738 

SINF 000041 

XSQ 00067 



COSP OOOVift 
C9 ©0<*§7R 
SAT 0O3S4R 

o.spi oomft 



Ct GQ439R 
iX|? 005 7SA 
THETA 00079 
1/9 I 004 ISA 



OiOlO* 

©10$©* 
01050* 
0184®» 
01090* 
01060* 
01070* 
01030* 
01090* 
OUOO* 

onto* 

0U20* 
OUSO* 

Oil *0 4RG400 

OUSO* 
01U0 SINP 
01170 
01180 

0U«50 

OUOO 

02010 

02020* 

020 SO COSF 

02040 



IIM IAJC-13U AO-APT FLOATING SiNE-CCSlN| SUBROUTINE 

ICS 

9Ukm SINPA,,, EIASARLI SVSTfN SUBROUTINE 

*io wmm o2oi*oEiom 

•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - ATM SINF, A00ARG.47 
ATM C0SF,A00AR6,67 
AOOARG !$ THE ADORESS OF THE AICUMENT AND RESULT 
THE RANGE OF THE ARGUN&M7 IS UNRESTRICTEO 
CORE POSITIONS 00044*00099 USEO FOR TEMP. STORAGE 
MgTHOO.. HASTINGS APPROXIMATION tB-OIGIT MANTISSA I 



OC 4,0., 



02090 
02040* 

02070 A002PI 
02080 

02090* 

02(00 SUB2PI 
02110 

02120* 

02130 
02140 
021 50 
02140 
02l?0 
02160 
02190 
02200 
03010 
09020 
03330 
01040 
0*050 



SINF SUBROUTl 
TFL THETA, 0.9PI,, 
TFL XSQ»ARGAOD,U, 
FSL X$0-ll,X$Q-2,, 

FSUR THETA, XSQ. » 
TP C0SP«1,ARGAD0 
• **36 

COSP SUBROUTl 
TPL TMETA,*-1.U, 
FSt THETA-U,TMETA-2t» 

SNP SUB2P|,THETA-2*t 



LOCATION OP AOORESS OP CALLING ARGUMENT 

00009 00004 
NE ENTRY 

PI/2.0 00004 00 00079 00)91 

MOVE ARG TO XSQ 00018 00 00067 OOOON 

FABRICATE 10-OICtT MANTISSA 

00030 09 00096 00049 



THETA«PI/2,0-AR© 



00042 02 00079 00067 
00094 KO 00077 00009 
00066 M9 00102 00000 

00078 00 00079 0007P 



PAOO 
BMP 



FSU8 
8NH 



THETA.TVQPltt 
A002PI,,, 



THETA, TWOPI • • 
SU82PI « • i 



PAOO 
SP 

FAOO 

FMUL 

TPL 

FMUL 

TFL 

FMUL 

FAOO 

FMUL 

FAOO 

FMUL 

PAOO 



TMEU.PI .. 
THSTA-2, 
THETA,0.5P|«» 
X.2/PI,, 
XSO.X 
XSQ.X,. 
SIGMA, XSQ, » 
SIGMA, C9 
SIGMA, C7 
SIGMA, XSQ 
SIGNALS 
SIGMA. XSQ 
SIGMAtCl 



NE ENTRY 

MOVE ARG TO THETA 
FABRICATE 10-0161T MANTISSA 

00090 09 00041 00077 
BRANCH IP TWfTA IS NON-NEGATIVE 

00102 M4 00118 08077 

THETA«THETA«2.0*)Pt 00114 OJ 00079 00427 
BRANCH IP TUfTA IS NON-POSITIVE 

00124 M7 00U4 OUOO 

TWETA«TH£TA~2«0*P! 00138 OK 00079 00427 
BRANCH IP THETA IS NON-NEGATIVE 

00190 M6 00138 01300 



THETA»TWETA+Pt 
THETA— ABSMTHETA) 
THETA*TH6TA*P 1/2*0 
X«(2,0*THETA)/PI 

X»#2 

MOVE X»»2 



00142 OJ 
00174 32 
00186 OJ 
00198 OL 
00210 06 
00222 03 
00234 06 
00246 OL 
00290 OJ 
00270 03 
00282 OJ 
00294 03 
00304 OJ 



00079 
00077 
00079 
00079 
00047 
00067 
00099 
00099 
00099 
0009S 
00099 
00099 
00099 



00403 
00000 
00391 
00* IS 
00079 
00079 
00047 
00487 
00479 
00047 
00463 
00067 
00491 



03060 




FMUL 


SIGMA, XSQ 


03070 




FAOO 


SIGMA, CI 


03080 




FMUL 


SIGMA, X, . 


0S090 


SRT 


FSR 


$!GMA«2#$!GMA~4»t 


03100 




TFL 


C0$F-l,S!GMA«6t 


03110 


EXIT 


GB 


• tt 


03120 




OORG 


•-9 


03130* 






03140 




OC 


10*1970796327 


03190 


0.9P1 


OC 


2.1 


03160 




OC 


10,3141992637 


03170 


PI 


OC 


2,1 


03120 




OC 


10,6366197797 


03190 


2/PI 


OC 


2.0 


03200 




OC 


10,6283189274 


04010 


TWO PI 


OC 


2.1 


04020 




DC 


10,-1570796318 


04030 


CI 


OC 


2.1 


04040 




OC 


10»649«6371U 


040 SO 


C3 


OC 


2,0 


04060 




OC 


10,-7968967926 


04070 


C9 


OC 


2,-1 


04080 




OC 


10.4673769970 


04090 


CT 


OC 


2.-2 


04100 




OC 


10,-1914*41900 


04110 


C9 


OC 


2.-3 


04120* 






04130 


THfTA 


OS 


12,79 


04140 


X 


OS 


, THETA 


04150 


XSQ 


OS 


12*67 


04160 


SIGMA 


OS 


12.99 


06170 




OENO 


SIMP 



00318 03 00095 00067 

00330 OJ 00099 00439 

SUMMATION (I«0,N) 00342 09 00099 00079 

SHIFT TO B-DIGiT MANTISSA 

00394 08 00093 00091 

RETURN RESULT 00366 -6 O0O7P, 00099 

EXIT 00378 42 00000 00000 

00380 



PAGE 



00389 
00391 
00401 
00403 
00413 
00419 
00425 
00427 
00437 
00439 
00449 
00451 
00461 
00463 
00473 
00475 
00485 
00497 



00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
OOOiO 
00002 
00010 
00002 
00010 
00002 



00079 00012 
00079 00000 
00067 00012 
00099 00012 
00004 



tie 



PAf.f | 







XPiUSl 


0003 » 






W2CRGX 


oocssa 


ARCTAN 


00160R 




ess 42a 


A&78; 


©C-OSS 


AT Ci,*iP 




Cmtr 


0CGS7R 


CI 




CH 


00433a 


CIS 


C0444R 


CIS 


G06S$a 


CI 


00364* 


CS 


00596R 


C7 


0060351 


cv 


O0620R 


MSQX 


OOIOOR 


WECYl 


00136* 


NEGY2 


00466* 


NBCV3 


OOSSQR 


CMEGA 


00043 


ONg 


00692R 


Pt 


00460* 


POSX 


00494* 


PQSVl 


cos42R 


posys 


0048QR 


QUO 


0005S 


QUOSO 


00079 


SIGMA 


00067 


SAT 


00396R 


TSRM 


00324* 


TH2TA 


00015ft 


x. 


00079 


XAOO* 


00005* 


xmjni 


00059 


V 


0006? 


YAODR 


000 10R 


ZERQX 


00622* 


ZEROV 


004)4* 


IRO 


00680* 


O.SPl 


00T12R 


L9PI 


00702R 


3.0PI 


00726* 







oioio* 

01020* 
01030* 
01040* 
01030* 
01060* 
01070* 

oioeo* 

01090* 

ouoo* 

Oil 10* 
0U20* 
01130* 
OU40* 



ION 1420-1 JU AD-APT FLOATING INVERSE TANGENT SUBROUTINE 

RCS 

•NAME ATANPA... ERASABLE SYSTEM SUBROUTINE 
•10 NUMBER 0202*DEL01M 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT ATANF,0SALBL*10,6 

OSALBL IS THE ADDRESS OF THE X-COMPONENT 

0SALBL*5 IS THE AOORESS OF THE Y-COMPCNENT 

DSALBL+10 IS THE ADDRESS OF THE RESULT 

THE RAMGE OF THE ARGUMENTS IS UNRESTRICTED 

CORE POSITIONS 00020*00099 USED FOR TEMP. STORAGE 

METHOD* • HASTINGS APPROXIMATION (8-OIGIT MANTISSA) 



01150 AOOCON 


DC 


16,0 


00015 


00016 




01160 XAOO* 


OS 


5.AD0C0N-10, 


AOORESS OF X-COMPONENT OF VECTOR 










00005 


00005 




01170 YAOO* 


OS 


StA00C0N*5» 


AOORESS OP V-COMPONENT OF VECTOR 










00010 


00005 




01 1 00 THETA 


OS 


5, AOOCON,, 


AOORESS OF RESULT 00015 


00005 




01190* 














01200* 




] SUBROUTINE 


ENTRY 








02010 ATANP 


TFL 


X,XAD0R,ll, 


MOVE X 00016 


00 


00079 


OOOON 


02020 


TPL 


Y«VA00R*Ut 


NOVg'v 00028 


00 


00067 


0001- 


02050 


TFL 


ARTRfYtt 


MOVE DIV10ENO 00040 


06 


00055 


00067 


02040 


PDIV 


ARTRtXtt 


ARTR-V/X 00052 


09 


00055 


00079 


02030 


CF 


ARTR«2tt • 


AATR»ARSFIARTR) 00064 


33 


00053 


00000 


02060* 














02070 


ftV 


ZEROX,,, 


BRANCH IF X IS ZERO 00076 


M6 


00422 


01400 


02080* 














02090 NZE*0X 


ONF 


P0SX 9 X-2» 9 


BRANCH IF X IS POSITIVE 














00088 


M4 


00494 


00077 


02100* 














02110 NEGX 


TFL 


OMEGA t PI • t 


ONEGA-PI 00100 


00 


0004 3 


00668 


02120 


BZ 


SRT, 


BRANCH IF Y IS ZERO 00112 


M6 


00396 


01200 


02130* 














02140 


6>N 


POSYltt* 


BRANCH IF Y IS POSITIVE 














00124 


M7 


00542 


01300 


02190* 














02160 NEGYI 


TDM 


SRT-11,1,, 


SET 01 OP-CODE (FAOO) 00136 


J5 


00385 


00001 


02170 


FSL 


ARTR— lit ARTR— 2 1 1 


FABRICATE 10-DIGIT MANTISSA 














00148 


05 


00044 


00053 


02180 ARCTAN 


TFL 


XPLUSl,AATR 


00160 


06 


00031 


00055 


02190 


FSUB 


XMINliONEtt 


X-l.O 00172 


OK 


00055 


00692 


02200 


FAOO 


XPLUSltONEvt 


X+l.O 00184 


OJ 


00031 


00692 


03010 


FOIV 


QUO*XPLUSltt 


(X-1.0)/|X*1.0) 00196 


09 


00055 


00031 



03020 


TO 


•♦13tSRT-lltt 


MOVE OP-CQOE 00208 


KN 


00221 


00385 


03030 


PAOO 


0HEGA.0.25PI.. 


OMEGA-OMEGA (♦#-) Pt/4.0 














00220 


OJ 


0004 3 


00736 


03040 


TFL 


SIGMA, QUO 


00232 


06 


00067 


00055 


03050 


FMUL 


SIGMA, QUO 


00244 


03 


00067 


00055 


03060 


TFL 


QUOSO, SIGMA,, 


f (X-1,0)/(X*L0))**2 • Z««2 














00256 


06 


00079 


00067 


03070 


FMUL 


SIGMA, CIS, • 


C(IS)*Z**2 00268 


OL 


00067 


00656 


03060 


TFM 


TERM*ll,Cl) 


00280 


JO 


00335 


-0644 


03090 


TFM 


CNTR,7«10 


00292 


J6 


00087 


000-7 


03100 


B 


TERM 


00304 


M9 


00324 


00000 


03110 


DORG 


*-3 


00312 








03120* 














03130 


FMUL 


SIGH A, QUO SO 


00312 


03 


00067 


00079 


03140 TERN 


FAOO 


SIGMA 


00324 


01 


00067 


00000 


03150 


SM 


•-1,12,10 


00336 


J2 


00335 


000J2 


03160 


SM 


CNTR.1,10 


00348 


J2 


00087 


000- 1 


03170 


BNZ 


TERM-12 


00360 


M7 


00312 


01200 


03180* 














03190 


FMUL 


SIGMA, QUO, t 


SUMMATION (1-0,7) 00372 


03 


00067 


00055 


03200 


FAOO 


OMEGA, SIGMA, • 


OMEGA-OMEGA <♦,-) SIGMA 














00384 


01 


00043 


00067 


04010 SRT 


F8R 


OM6GA-2.0NE6A-4,, 


SHIFT TO A-DICIT MANTISSA 












00396 


08 


00041 


00039 


04020 


TFL 


THETA, OMEGA, 6, 


RETURN RESULT 00408 


-6 


0001N 


00043 


04030 




1 1 1 


EXIT 00420 


42 


00000 


00000 


04040 


00RG 


•-9 


00422 








04050* 
04040 ZEROX 


BO 


NZE*0Y,Y-9,, 


BRANCH IF Y IS NON-ZERO 












00422 


M3 


00454 


00058 


04070* 
04030 ZEROV 


TFL 


ONEGAfZROtt 


SET RESULT TO 0.0 00434 


00 


00043 


00680 


04090 


B 


SRT 


00446 


M9 


00396 


00000 


04100 


DORG 


•-3 


00454 








061 10* 






BRANCH IF Y IS POSITIVE 








04120 NZEROV 


BNF 


POSV2,Y-2,t 












00454 


M4 


00480 


00065 


04130* 






SfT RESULT TO 3.0»PI/2.0 








04140 NSGY3 


TFL 


THETA.1.5P1.4, 




000 IN 


00702 






00466 


-0 


041S0 




• • » 


6XIT 00478 


42 


00000 


00000 


04140 


Q&Q 


••9 


00680 








04I7S* 
06160 P0SV1 


TFL 


TMfTA,0«9PIt*t 


SET RESULT TO P!/!,0 006*0 


-0 


OOOIN 


00712 


04109 


m 


tt t 


iXIT 00492 


42 


00000 


00000 




oof&e 


*-9 


00494 








05010* 
O&520 POSX 


TP! 


O^iOAtlROtt 


SIT RESULT TO 0.0 00494 


00 


00043 


00600 


OSOIO* 
•SG40 


OS 


tSTttt 


RfTUGN IP V SS ISiO 00106 


M4 


00396 


01200 


OSQSO* 






m&m» if v is positive 










OP 


HMVltt,* 










009 IB 


MB 


00136 


01100 


Sr^S WEGY3 


TPV 


C^E8A.2.0PS«« 


SIT RESULT TO 2.0*Pt 00530 


00 


00043 


00724 


r ::i posn 

x "* i 


TO* 


Silflltlt* 


SIT 01 9P*C0OI iPStidl §0542 


J* 


00989 


00002 




e-6 


00554 


N9 


00141 


00000 






00861 










£5 ' 


••tWfOOOSMf 


OifTO 


00010 





1 I 7 



PAGE 3 



051*0 


CI 


OC 


2*0 


00572 


00002 


051 50 




OC 


10*»3332989609 


00582 


00010 


05160 


C3 


OC 


2tO 


0058* 


00002 


05170 


■ 


OC 


10* 199*653599 


0059* 


00010 


051 80 


C9 


OC 


2*0 


00596 


00002 


051 90 




OC 


10»-1390Q53351 


00606 


00010 


05200 


CT 


OC 


2iO 


00608 


00002 


060 10 




OC 


10*96*200**10 


00618 


00010 


06020 


C9 


OC 


2»-l 


00620 


00002 


060 30 




DC 


10**5590986610 


00630 00010 


060*0 


Cii 


OC 


2,-1 


00632 


00002 


06050 




OC 


10*2194122690 * 


00642 00010 


06060 


CIS 


OC 


2»*1 


096** 


00002 


0607© 




OC 


io,-*os*05iooo 


0045* 


00010 


060 SO 


CIS 


OC 


2,-2 


00656 


00002 


06090 




OC 


10*31*1592637 


00666 


00010 


06100 


PI 


OC 


2,1 


00668 


00002 


06110 




OC 


10*0 


00678 


00010 


06120 


z«o 


oc 


2,-99 


00680 


00002 


06130 




OC 


10*1000000000 


00690 


00010 


061*0 


ONE 


OC 


2,1 


00692 


00002 


06150 




OC 


8,*7123690 


00700 


00008 


06160 


1.5PI 


OC 


2,1 


00702 


00002 


06170 




OC 


9,157079*3 


00710 


00008 


06160 


0.5PI 


OC 


2,1 


00712 


00002 


06190 




OC 


10*626319527* - 


00722 


00010 


06200 


2.0PI 


OC 


2,1 


0072* 


00002 


07010 




OC 


10*795398168* 


0073* 


00010 


07020 


0.25PI 


OC 


2»0 . 


00736 


00002 


07030* 










070*0 


X 


OS 


12.79 


00079 


00012 


07050 


Y 


OS 


12*67 


00067 


00012 


07060 


ARTR 


OS- 


12 §55 


00055 


00012 


07070 


OMEGA 


OS 


12**3 


000*3 


00012 


07080 


SIGMA 


OS 


• V 


00067 


00000 


07090 


XPLUS1 


OS 


12*31 


00031 


00012 


07100 


XMINl 


OS 


• ARTR 


00055 


00000 


07110 


QUO 


OS 


•XMINl 


00055 


00000 


07120 


QUOSQ 


OS 


• X 


00079 


00000 


07130 


CNTR 


OS 


2.N2ER0X-1 


00087 


00002 


071*0. 




OENO 


ATANF 


00016 





SYMBOL TABLE 



L0G10E 


00767ft 


FLIHFM 


00755R 


ARGMOO 


00360R 


AftGADD 


00005R 


AR6 


00079 


AO 


00651R 


Al 


00663R 


A2 


00675R 


A3 


00637ft 


A* 


00699R 


A5 


00711R 


A6 


00723R 


A7 


00735R 


BAi'iO? 


0029GB 


CNTR 


00533R 


EXIT 


0033*R 


EXP 


00273R 


EXPF 


00006R 


EXPOl 


O0*0*ft 


EXP02 


00568R 


NEOX 


0005*11 


NORM 


00*76R 


OVFLO 


00600R 


POSX 


CO 170ft 


TERM 


0O202R 


UNFLO 


00626R 


Z 


00067 


0*0 


007*5R 


1.0 


0065 1 R i, 







01010* 
01020* 
01030* 
010*0* 
01030* 
01060* 
01070* 
01030* 
01090* 
01100* 
Oil 10* 
01120* 

01130 ARCAOO 
OiUO* 

01190 expp 

01160 



UN 1620-1311 AO-APT FLOATING EXPONENTIAL SUBROUTINE 

tcs 

•NAME EXPFA... ERASABLE SYSTEM SUBROUTINE 
•10 NUMBER 0203tDEL0IN 
•ASSEMBLE RELOCATABLE 
•STORE REL0A0A8LE 
LINKAGE - 6TM EXPF* A00ARG.67 

AOOARG IS THE ADDRESS OF THE ARGUMENT AND RESULT 
THE RANGE OF THE ARGUMENT IS UNRESTRICTED 
CORE 'POSITIONS 00056-00099 USED FOR TEMP, STORAGE 
METHOD** HASTINGS APPROXIMATION 16-OICIT MANTISSA) 



OC 6.0,. 



01170 
01180 

01190* 
01*00 NE6X 

02610 
020S0 
02030 

020*0 

O20S0t 
01669 

©2@|© : 

02030* 

02090 

02160 

02110 

0E130 

021166 

02140 »QU 

62166 

mm <■ ■ ■ 

68|?§# 
02160 ' 

mm term 

©2160 
OHIO •. • 

O$0£O 
099 SO* 

6 $04© 



LOCATION OP AOORESS OP CALLING ARGUMENT 
00009 66006 
SUBROUTINE ENTRY 

TPL ARGtARGAOOait MOVE ARGUMENT 00C06 00 00079 OOOON 

PSL ARG*lttARG*lt» FABRICATE 10-OIOIT MANTISSA 

00018 09 0006B 00077 
ARG*(LM 10*0) 00030 OL 00079 00747 

BRANCH IP ARGUMENT IS NON-NEGATIVE 

00042 M* 00170 00077 



PMUL ARGtLOOlOftt 

BNP PO$X»«»l§*a*» 



TON 


WWH»9t» 


CP 




CM 


ah@»,io 


TPM 


SXPttlO* 


BH 


MEAOBtff ' 


TPL 


ZtABOtf 


PNUL 


If-Tft 


TPM 


'fSJWlltA* 


TPM 




3 




0OR6 «*$ 



TON ®®§»Hfitll 
6 . E2®8*«4 
OOHO #»9 



PMUL 

PAOO 
SM 
SN > 
9N2 

PMUL 



ZtAft* 

Z 

•-i.UtiO 
CN73«|.|0 

i* i 



SET 49 OP-COOS (91 

AR6*A8$?U»6> 



00694 J9 00299 60009 

00044 98 00677 60000 

OOOTB 14 00079 000*0 
CLEAR EXPONENT MODIFIER 

00090 J6 0019) 660*0 
BRANCH IP EXPONENT SXCSEOS 00 

00102 MA 00969 01100 



Z»AR6 

1*419) 



94114 66 06997 00979 
94119 64 9999T 66719 

00136 «I0 OOtll »07II 

©OISO J6 00999 000*7 
00143 M9 60102 66666 
00170 

09176 4% 96199 96964 
00161 N9 99979 69009 

00&99 

00190 01 00047 06079 
00202 01 00667 60066 

0021* jz ©otis m^sn 
■miu as oops ' > • 

■ 00189 NT 90119 «rW>i 
00290 09 00047 00047 



1)1 



03050 


AM 


It » • 


E**ARG 


00262 


It 00067 


-0000 


03060 




OVFLO* # f 


BRANCH IF 


RESULT OUT OF RANGE 












00274 


M6 00600 


01400 


030 70* 














03080 


TFL 


ARG* 2 




002B6 


06 00079 


00067 


03090 8RNOP 


NOP 


EX!T*2tt* 


BRANCH IF 


ARGUMENT WAS NEGATIVE 












00298 


Ml 00336 


00000 


031 00 


FSR 


ARG-2*ARG— 4* * 


SHIFT TO 8-OIGIT MANTISSA 








TFL 






00310 


08 00077 


00075 


031 10 


ARGAOOt ARG*6* 


RETURN RESULT 00322 


-6 OOOON 


00079 


03120 EXlt 


6ft 


• # # 


EXIT 


00334 


42 00000 


00000 


03130 


OORG 


•-9 




00336 






03140* 














03150 


TFL 


ARG,l.O 




00336 


00 00079 


00651 


03160 


FDIV 


ARG»2t t 


E**t-AAGt 


00348 


09 00079 


00067 


03170 


ft 


EXIT-24 




00360 


M9 00110 


00000 


0*1*0 


OORd 






00368 


Oil 90* 












03200 ARGMOO 


CM 


AR$*2« 10 




00368 


14 O00T9 


000-2 


040 10 


ftH 


OVFLOt 1 1 


BRANCH IF 


ARGUMENT OUT OF RANGE 












00380 


M6 00600 


01100 


04020* 














04030 


BE 


EXP02* 1 1 


BRANCH IF 


EXPONENT IS 02 














00392 


M6 00568 


01200 


04040* 














04050 EXP01 


TO 


EXP » ARG" 11 




00404 


K5 00273 


00068 


04060 


CP 


EXP 




00416 


L3 00273 


00000 


04070 


FSL 


ARG-12,ARG-2»* 


ELIMINATE 


INTEGER PORTION OF MANTISSA 










00428 


05 00067 


00077 


04080 


SF 


ARG- I I 




00440 


32 00068 


00000 


04090 


TFM 


ARG, ,10, 


ASSUME NO 


LEAOING ZEROS IN DECIMAL 












00452 


16 00079 


000-0 


04100 


TFM 


CNTR, 8« 10 




00464 


J6 00533 


000-8 


04110 NORM 


BO 


NEGX*60*ARG-11« t 


BRANCH IF 


NON-ZERO OIGIT 














00476 


M3 00114 


00068 


04120* 














04130 


SF 


ARC- 10 




00488 


32 00069 


00000 


04140 


FSL 


ARG- U, ARG- 2 




00500 


05 00068 


00077 


04150 


SM 


ARG, 1,10, 


OECREMENT 


EXPONENT 00512 


12 00079 


000- 1 


04160 


SM 


CNTR, 1,10 




00524 


J2 00533 


000-1 


04170 


BNZ 


NORM 




00536 


M7 00476 


01200 


04180* 














04190 


TFL 


Zt uo, » 


ARGUMENT I 


[S AN INTEGER 














00548 


00 00067 


00651 


04200 


B 


TERM+60 




00560 


M9 00262 


00000 


05010 


OORG 


*-3 




00568 






05020* 














05030 EXP02 


TF 


EXP»ARG-10 




00568 


K6 00273 


00069 


05040 


FSL 


ARG- I 3, ARG- 2,, 


ELIMINATE 


INTEGER PORTION OF MANTISSA 










00580 


05 00066 


00077 


05050 


B 


EXPOl+36 




00592 


M9 00440 


00000 


05060 


OORG 


*-3 




00600 






05070* 














05080 OVFLO 


BNF 


UNFLO.BRNOP+l 




00600 


MM 00626 


00299 


05090 


TFL 


ARGAOOt FL I NFN«6 




00612 


-0 OOOON 


00755 


05100 


BB 




EXIT 


00624 


42 00000 


00000 


05110 


DORG 


»-9 




00626 






05120* 














05130 UNFLO 


TFL 


ARGAOD.0.0,6 




00626 


-0 OOOON 


00745 


05140 


Bft 


• • f 


EXIT 


00638 


42 00000 


00000 


05150 


DORG 


»-9 




00640 






05160* 














05170 


OC 


10,1000000000 




00649 


00010 




05180 AO 


DC 


2,1 




00651 


00002 




05190 


OC 


10,1151292776 




0066 1 


00010 




05200 Al 


DC 


2, 1 




00663 


00002 




06010 


DC 


10,6627308843 




00673 


00010 




06020 A2 


DC 


2,0 




00675 


00002 




06030 


DC 


10,2543935748 




00685 


00010 




06040 A3 


OC 


2.0 




00687 


00002 




06050 


DC 


10*7295173666 




00697 


00010 




06060 A4 


OC 


2,-1 




00699 


00002 




06070 


OC 


10*1742111968 




00709 


00010 




06000 A5 


OC 


2.-1 




00711 


00002 




C6090 


DC 


10*2554917960 




00721 


00010 




06100 A6 


OC 


2*-2 




00723 


00002 




061 10 


DC 


10*9326426700 




00733 


00010 




06120 A7 


OC 


2t-3 




00735 


00002 




06130 


OC 


8*0 




00743 


00008 




06140 0,0 


DC 


2,-99 




00745 


00002 




06150 


OC 


8*99999999 




00753 


00008 




06160 FLINFN 


OC 


2,99 




00755 


00002 




06170 


DC 


10*4342944819 




00765 


oooto 




06180 L0G10E 


OC 


2*0 




00767 


00002 




06190* 














06200 1.0 


OS 


»A0 




00651 


00000 




07010 ARG 


OS 


14»79 




00079 


00014 




07020 EXP 


OS 


2*TERM*7l 




00273 


00002 




07030 Z 


OS 


12*67 




00067 


00012 




07040 CNTR 


OS 


2.N0RM+S7 




00S33 


00002 




07050 


OENO 


EXPF 




00006 







11!) 



SYMBOL TABIC 



PAGE I 



XPLUSl 


00079 


LOGO*© 


06042R 


A&GAOO 


00005R 


ARC 


00079 


CNTR 


00297R 


CI 


00S59& 


€11 




€13 


00631R 


€3 


0057 1R 


CI 


0058SR 


C7 


00999& 


C9 


ooio?* 


gw 


OOOOSR 


LOGAX 


00420R 


LOOK 


0000*R 


LOGX 


0Q3S4R 


LOGO 


0Q47SR 


L0G1 


0Q4«7R 


LCG10 00SJ5A 


L0C2 


00*99* 


L0G4 


OOSUR 


i or, a 


00*211 


§42AR0 


OOOSAR 


SIGMA 


00099 


SR7 


00440A 


TEAM 




1*1*1 


000*7 


2 


00067 


ISO 


00079 


1,0 


©0S47R 



01010* 




It* 1*20-1111 AO-APT FLOAT IMG NAT* LOGARITHM SUBROUTINE 




01030* 








RCS 


010310 • 




•KAMI LOGPA* • • ERASABLE SYSTEM SUBROUTINE 




01040* 




•so mm* 


0204*0IL0I* 






01050* 




•mmit 


RELOCATABLE 






010*0* 




•STORE ftSLQAOABLE 






01070* 




LINKAGE v |TM 


LOGP« AODARGt 67 






01080* 




AOOARG IS 


THE ADDRESS OF THE ARGUMENT AND RESULT 




01090* 




IT IS ASSUMED THAT THE ARGUMENT IS NON-NEGATIVE 




01100* 




CORE POSITIONS 00044*00099 USED FOR TEMP, 


. STORAGE 




OHIO* 




METHOD* • TRUNCATED INF* SERIES I0-O1GIT MANTISSA) 




01120* 












01130 ARGADO 


oc 


*tO,f 


LOCATION OF ADORESS OP CALLING ARGUMENT 








OOOOS 


00006 




01140* 




SUBROUTINE ENTRY 






01190 L0GF 


TFL * 


ARGf ARGADDtllf 


MOVE ARGUMENT 00006 


00 00079 


OOOON 


01160 


TFM 


ARG,,tO, 


REDUCE RANGE OF ARGUMENT 












00018 


16 00079 


000-0 


fill TO 
Oil rO 


BO 


NZARG,ARG-9,, 


BRANCH IF ARGUMENT IS NON-ZERO 










00030 


MS 0005* 


00070 


Oil 80* 














TrL 


ARGAOOtLG&Ot*! 


SET RESULT TO - INFINITY 












00042 


-0 OOOON 


00475 


01200 


6B 


i » • 


EXIT 00094 


42 00000 


00000 


02010 


OORG 


•-9 


0009* 






02020* 












02030 N2AR6 


FSL 


ARG-U,ARG-2,, 


FABRICATE 10-0IGIT MANTISSA 












0009* 


05 00061 00077 


02040 


TFM 


L0GK*11,LOG1 


00068 


JO 00347 


•0407 


02090 


CM 


ARG~10,§0,10 


00080 


14 000*9 


OOONO 


020*0 


BNL 


•♦44,,, 


BRANCH IF LEA01NG OIGIT EXCEEDS 4 










00092 


M* 0013* 


01300 


02070* 












020*0 


A 


ARG-2,ARG-2,, 


OOUBLE REDUCED ARGUMENT 












00104 


21 0007T 


00077 


02090 


AM 


L0GX*11,12,10 


00116 


Jl 00347 


000J2 


02100 


B 


NZARG+24 


00128 


M9 00080 


00000 


02110 


OORG 


•-3 


00136 






02120* 












02130 


TFL 


XMINltARG 


00136 


06 00067 


00079 


02140 


FSU8 


XMlMl«UOtt 


X-LO 00148 


OK 00067 


00547 


02190 


FAOO 


XPLUSl. 1. 0,, 


X*1.0 00160 


OJ 00079 


00547 


02160 


FOIV 


XMlNl,XPLUSlt» 


<X-UO)/(X*WOI 00172 


09 00067 


00079 


02170 


TFL 


ZSQ,Z 


00184 


06 00079 


00067 


02160 


FMUL 


ZSQ.Z,, 


fi 00196 


03 00079 


00067 


02190 


TFL 


SIGMA, ZSQ 


00208 


06 00095 


00079 


02200 


FMUL 


SIGMA, C13,, 


C(13)*I**2 00220 


OL 00095 


00651 


03010 


TFM 


T£RM*U.Cll 


00232 


JO 00287 


-0619 


03020 


TFM 


CNTR,*, 10 


00244 


J* 00297 000** 



03030 


B 


TERM 


03040 


OORG 




03090* 






03060 


FMUL 


SIGMA.2S0 


03070 TERM 


FAOO 


SIGMA 


03000 


SM 


•-It 12.10 


03090 


SM 


CNTR,l,10 


03100 


BN2 


TERM- 12 


03110* 






03120 


FMUL 


SIGMA, 2tt 


03130 LOGX 


FSU& 


SIGMA,,, 


03140 


TOM 


LOGAX*ia» a 


03190 


BNF 


LOGAK-24,|XP,ll, 


03160* 






03170 


CF 


EXP, ,6 


03180 


TOM 


LOGAX*!, 2 


03190 


SM 


EXP,t,*lO 4 # 


03200 


BN 


SRT , . r . 


04010* 




SIG«A,4$S10„ 


04020 LOGAX 


FAOO 


04030 


B 


•-3* . 


04040 


OORG 


•-a 


040S0* 




SIC^A~5 t ; &i6«&-4 t 


040*0 SRT 


psa 


04070 


TFL 


ARGACm.Sjmtdt 


(mm 


m 


• tt 


44090 


D0R4 


«-9 


04100* 






04110 


OC 


0,-99994999 


04120 LOGO 


DC 




04m 


oe 


10,0 


04140 L041 


oc 


2»-49 


04180 




10t4m4?lft0r 


041*0 L0G2 


0C 


M ■ 


04170 


DC 


10 t 1144*44141 


041®0 L0G4 


OC 


2,1 




sx 


l@9S0T«9*S$9? 


04130 LOGO 


©c 


2,1 


osoio 


DC 




0S490 LG414 


©S 


2,1 


0SO3O 


DC 


10,1000000000 


05040 WO 


DC 


2,1 


os©§§ 


cc 


10,2000000000 


050*0 CI < 


oc 


2,1 


OSOTO. 


M 


10 04444444444 


mm® si 




it® ' 




m - 


14,4404440444 


Qnm ci 


@o 


2,0 


0§U@ 


oc 


i©,t®Sfl*2SST 


GSU'O C7 


oc 


1,0 


05 ISO 


oc 


14t 222*****2* 


esi44 C9 




2*0 






i@a@i§J§tsi4. 


mim eu 


PC 


2f«0 * 


min 


u 


10,&S*4441Sia , 


mi** *»» 




2,4 



00256 M9 0027* 00000 
00264 

00264 03 00095 00079 

00276 01 00095 00000 

00200 J2 00207 0Q0J2 

00300 J2 00297 COO-t 

00312 NT 002*4 01200 

LOGfN*X>, N*1,2,4,Q 00324 03 00099 000*7 
LOGU)«LQG<N*X)-LOG<N> 

0033* 02 004SS 00000 
ASSUME POSITIVE f XPONENT 

003^0 JS 00421 00001 
ORANCH IF EXPONENT IS N0l5-NgGATlV6? 

001*^ m 00S94 OOOON 

ooiV? is* ooom 00000 

00384 J9 00421 00002 

00396 J2 0000N> OOO-l 
00406 M7 00440 01300 



PAGE 2 



L06CARG1 



00420 OJ 00095 00535 
00432 M9 00194 00000 

00440 



SHIFT TO 6-0 16 IT MANTISSA 

00440 0® 00091 00091 
RETURN RgSULT C04S2 -4 W^m O0OS9 

gRIT 004*4 42 60044 

0046* 



00473 

00479 
0040S 
00407 
00497 
0"S499 
00509 
00511 
00921 
00S2S 

ooiii 
©§f if 

00347 
©0SS7 
00SS9 
■ 009*9 

mm 
mm 

003Q3 

@0@fS 

oom 

00^05 

00^17 
00019 

00*11 



00000, 

m'm 

00010 

00002 
00010 
00002 
00010 
00002 
00010 
0OCO2 
00910 
0004)2 
00010 
00002 
00010 
00002 
00010 
04002 
0001© 
00002 
00010 

CSOiO 

tGtdt 

ecoio 



120 



09190* 

092Q0 AUG 
0*010 EXP 
0*020 XNIN1 

o*o)o xplusi 

0*040 2 
0*090 ISO 
0*0*0 St CM A 
0*0 TO CUt* 
0*010 



05 lit TO 

01 2 » Aft G ADO 

OS 12, *7 

OS .AUG 

OS •XNtMl 

os txnust 

OS 12,99 

OS 2,TEMM*21 

DfND lIKf 



PAGE 



00079 
00009 
000*7 
00079 
000*7 
00079 
00099 
00297 
0000* 



00012 
00002 
00012 
00000 
00000 
00000 
0001 2 
00002 



PAGE 1 

SYMBOL TABLE 

PARLEL 00214* M2AD0B 00014R N1A0DR 00004ft LIHLIH 00030ft 82A0DR 00019ft 
BlAOOft 00009R ADDCON 00024R FIOFX 001*211 F20FX 00198ft XAODA 0002*11 
VAODR 00029ft 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01190* 
011*0* 
01170* 

01180 AOOCON DC 
01190 Ml ADO* OS 

01200 BlAOOft OS 

02010 N2AD0K OS 

02020 B2A00H OS 

02030 XAOOft OS 

02040 VAOOB OC 

02090* 
020*0* 

02070 MMM« Tfi 



tOM 

THE 



1*20-1311 AD-APT SUBPROGRAM FOR DETERMINING 
INTERSECTION OF TWO LINES 



ICS 



•NAME LINL1N... ERASABLE SYSTEM SUBPROGRAM 
•10 NUMBER 0205»DEL0lN 
•ASSEMBLE RELOCATABLE 
•STORE RELOAOABLE 
LINKAGE - BT LlNLtN,0SALBL*29,6 

OSALBL IS AOORESS OF SLOPE (LINE 1) 
DSAL8L*9 IS AOORESS OF V-INTERCEPT tLINE II 
DSALBLHO IS AOORESS OF SLOPE ILtNE 21 
DSALBLH9 IS AOORESS OF V-INTERCEPT (LINE 2) 
0SALBU20 IS AOORESS OF X-COOAOINATE OF RESULT 
OSALBL+29 IS AOORESS OF V-COOADINATE OF RESULT 

NO INTEftJECT. IND1CATE0 BY RN IN OSALBL+20 AOORESS 



29,0 

S.ADOCON-20, 

S 9 MIA00R*9» 

9,BlAOOR*9t 

9.N2A0CHU9, 

9,82A0O*»9, 

9,0,, 



00024 00029 
AOORESS OF SLOPE tLINE 1) 

00004 00009 
AOORESS OF Y- INTERCEPT I LINE II 

00009 00009 
AOORESS OF SLOPE tLINE 21 

00014 00009 
AOORESS Of V-INTERCEPT f LINE 21 

00019 00009 
ADDRESS OF X-COOftOINATE 

00024 00009 
AOORISS OF Y-COOROINATE 

00029 00009 



02080 
02090 
02100 
02110 

02120* 

02130 

02140 

02190 

021*0 

02170* 

02110 

02190 

tifto* 

•Ml* ftfffl 
010 10 

•*••• 



PSUB 

TFL 

PSUB 

B2 



FOIf 

TFL 
CM 



SUBPROGRAM WTtV 

RA90«fiii)|f*»*ili 

XAOOft, B2*0Bft,*tli 
YAOD*.HIAOOA,*llf 
VAOOft *MtADOR»*l It 
PAftLEL,.* 



000*6 *8 0090ft 
X»*l-B2 00042 -ft OOOfM 0001R 

V«Mf 00094 -0 0002R OOOIM 

Y»Mf«Mt 000** -ft 0002R OOOOM 

BRANCH IF ffO WTf UStCTION EXISTS 

0007* M* 0021* 01200 



XAOOft , VAOOft •*! It 
VAOOft f XAOOft • * 1 1 • 
M2*00R,*9,*10 
ftOfXfM 



X»<01-B2)/<N2-Mtt 

V*X 



»lA00*,4«t*t« 
f f Of It ft 



YAOf»**PllAOO«t*tlt 
V*tM)«,0|A<M»l,*|l, 



00090 *« 0002M 0002ft 

00102 -0 0002ft 0002M 

0011* J* 000 IN 000M9 
BRANCH If LIN J IS VERTICAL 

0012* M* 001*2 01300 

00198 *t* 0000ft 000*9 
•RANCH If MM If ftOTICAL 

tOIBO M* 00 IBB 01900 



v»«i*x 

V«*t#l*tt 
•Ml? 



•01*2 -i 0002ft 0000* 
•0174 *S 0002R OOOOB 
•BIB* 42 00000 00000 



ID 



03Q40 

Q2C60 
03070 
03000 
03090 
03100* 
03110 

03120 
03130 
03140 



D0S4G *-9 

P20FX PWk VA0OR f i«AD0R»611 f 
FAOO VAO0R,82A00R v 61i t 

00*6 »*9 

•ARi.fi. TOM XA0Cft« v 6« 

OC 

OSC 2,42,, 

OENO LIMilN 



V-»H2*X 
Y»N2*X«B2 

EXIT 



EXIT 



oour 

00188 -L 00028 000 IM 
00200 -J 00028 00018 
00212 42 00000 00000 
00214 

LINES A8£ PARALLEL 

00214 J5 0002N 00000 

00225 00001 

00226 00002 
00030 



PAGE 



SYMBOL TABLE 



PAGE 



Y2A0DR 


00045R 


YIADDR 


Q003SR 


X2A00R 


00040R 


XUOOR 


00030R 


TRANSF 


00664R 


SINGAM 


00841R 


RETURN 


02* U 


ONE I NT 


00640R 


NORKIN 


02*16 


MONITR 


02406 


LINCIR 


00046R 


CQSGAM 


0OG$lA 


AOOCON 


00045R 


BADDR 


OOOIOR 


C 


00881R 


CSQ 


00871R 


OISTF 




OSAl 


0O279R 


0SA2 


00309R 


0SA3 


00319R 


FLAG 


00079 


HADOR 


GQ015R 


KAOOR 


00020R 


MADDR 


OOOOSR 


HXY 


0084U 


NQT2 


00576R 


RAOOR 


00025R 


ROOT 


00376R 


RTARG 


00861R 


SET2 


00460R 


SI 


00663R 


SIGNC 


003408 


SQRTF 


02416 


SI 


0086 1R 


S2 


00891R 


TEMP 


00079 


TRANl 


00532R 


xc 


00861R 


X! 


0090 IA 


VC 


008718 


YC*K 


00*088 


VI 


009UR 


1.0 


008318 











01010* 
01020* 
01030* 
01040* 
OlOSO* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01130* 
01160* 
0U70* 
OtUG* 

onto* 

©1200* 
02010* 
02020* 



IBM 1620-1311 AO- APT SUBPROGRAM FOR DETERMINING 
THE INTERSICTIQNS OF A LINE ANO A CIRCLE 



8CS 



•NAME LINCIR.. • NON-ERASABLE SYSTEM SUBPROGRAM 
•10 NUMBER 0206+OELOIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
INKAGE - BT LINCIR.DSALBL*40»6 

OSALBL IS AODRSSS OF SLOPE OF LINE 
DSAL8L*9 IS ADDRESS OF V (-INTERCEPT OF LINE 
0SAL8L+10 IS ADDRESS OF X-COOROINATE CIRCLE CENTER 
0$AL&L*15 IS AOORESS OF Y-COOROINATE CIRCLE CENTER 
DSAL8L4-20 IS ADDRESS OF RADIUS 
DSAL6L+29 IS AODRSSS OF X-COOROINATE (POINT 1) 
05AL8L*30 IS AOORESS OF Y-COQRDINATE (POINT 1) 
0§ALSL*SS IS ADDRESS OP X-C0080INATE (POINT 2) 
08AL8L*40 IS ADOA6S8 OP Y-COOROINATE (POINT 21 

HQ INTERSECTION INDICATES 8Y IN 00079 

ons iNTSRsecnoN indicated sy i in 00079 

TWO INTIR81CT10NS INOICATBO 8V RN IN 00079 



00041 00044 

6) 

00009 00009 



00010 00009 
Tg OF CiNTBR 
00019 00009 



00020 00009 
PXLf) 
00029 00009 



00090 00009 

re (point i) 

00099 00009 



00040 00009 
TS (POINT 2) 
00049 00009 



02110 LINCIR 5P MAD0R-4 00046 L2 00001 00000 

Villi U OM»U.MDM» SiT SUtmiMM t*UING MCW.INK 

00058 80 00294 00010 



02030 AOOCON OC 
02040 NAODR. 0$ 


HiO 

•,AOOeON*40t 


AOORESS 


OF 


02090 8A0DR 08 


Si*A00R*9. 


ADDRESS 


OP 


02060 HAODR OS 


9t§A0O»4>9t 


AOORESS 


OF 


02070 KAOOR OS 


9iHAD0ft*9» 


ADDRESS 


OF 


02080 RAOOR 09 


StKAO0i*9 l 


AD0A8S8 


OF 


02090 XiAOO* 08 


9,RAC0I>9, 


AOORESS 


OF 


02100 VUODft 08 


9iXU0M49t 


AOORESS 


OF 


02110 X2A00* 08 


9fVU0M49i 


AOMiSS 


OF 


02U0 V2A0D8 08, 


9«X2A00R*9* 


ADDRESS 


OF 


021)0* 

02140* 


8U3PROCRA* INTRV 





121 



t*et t 



021 ?0 






MA0©*>4 


00070 


L2 


00011 


00000 


02110 




f * 


OSA| + 9«KAImM 


00082 


80 


00294 


00020 


021 $9 




CP 


DSA1+A 


00094 


LI 


00269 


00000 


02200 




TP 


D»A9 tl*KAIHm 


00104 


RO 


00924 


00020 


01010 




•TN 


NON1TR,02000,«T» 


CAtl SQRTP SUBROUTINE VIA MONITR 












00118 


IT 


02400 


-2000 


09020 




tpi 


NXVtNAOIMtll 


00130 


•0 


00641 


0000N 


090 10 




tpi 


TEMP, NX V 


00142 


00 


000T9 


00641 


09040 




fNUl 


TEMP*NXY*» 


NXV**2 00194 


OL 


OO0T9 


00641 


09090 




PAOD 


TfNP.UO.t 


1.0»NXT*t2 00144 


OJ 


000 T9 


00891 


09040 




•TM 


SQRTP,TENP,*T, 


TEMP«SQRTPt 1«Q*MXV**2I 

00176 


IT 


02410 


-00 T9 


090 TO 




•01 ¥ NXV,T2NP*, 


SINOAM-MXV/TERP 00190 


-9 


00641 


000T9 


09090 




tpi 


COSCAN,t.O 


00202 


-0 


00691 


00891 


09090 




PDI9 C0S0AR,TENP*» 


COWAN- I.O/TERP 00214 


-9 


00691 


00079 


09100 




•TN 


RON! T8 t 02140* AT* 


CAU NORR1N Str6PR06RAR VIA I 

00224 


I0NI 
IT 


ITR 
02400 


-2140 


09110 




• T 


N08NtN#0SAI*2lfit 


PROJlCV CI8CII C6NTIA TO LINff 














00236 


2P 


02410 


00904 


09120 




8T 


MONtTR,DSA2*9»*t 


CAU 0I9TP 94WP8068AN VIA MONITR 












00290 


2P 


02400 


00914 


09190 




IT 


DISTF,0SA9*2«*6t 


CHCUUTf tltTANCI PROM CENTER 


TO LINE 










00242 


2P 


02410 


00999 


09140* 
















09190 




DOR 6 


• M*9**-* 


00298 








09140 




NOP 


vc»o 


00296 


Nl 


006T1 


00000 


09170 




0086 


•-21 


00286 








09180 




NOP 


0,XC 


00286 


4J 


00000 


00661 


09190 




0086 


*">2l 


00278 








01200 




NOP 


0*0 


00278 


41 


00000 


00000 


04010 




0086 


•—14 


00279 








04020 


09*1 


DSA 


o 


00279 


00009 -0( 


100 


04010 




0086 


*+9**— 4 


00909 








04040 


OS 42 


OSA 


S16NC 


00309 


00009 -0940 


04090 




DSC 


W« lilt 


00310 


00009 




04040 




0086 




00328 








04070 




NOP 


VC»C 


00328 


Mi 


008T1 


00661 


04010 




0086 


•-21 


00316 








04090 




NOP 


O.XC 


00318 


4,1 


00000 


00861 


04100 




0086 


•-14 


00319 








O4U0 


0989 


OSA 





00319 


00009 -0000 


04120 




0086 


**9*9-4 


00340 








04130* 














04140 


SIM 


PSUB 


YC,KADDR,ll» 


VC-R 00340 


-R 


008 Tt 


0002- 


04190 




82 


VC«R*t» 


86ANCH IP UNf IS VfRTICAl 

00392 


N6 


00608 


01200 


04140* 














04170 




MP 


C-2.VC-2*. 


C-SI6NPtC*YC-RI 00364 


PJ 


00879 


00869 


04180 


ROOT 


tpl 


8TA86*8A008 f 11 


003 T4 


-0 


00861 


0002N 


04190 




PWUL 


RTAA6*RTAR6t* 


6**2 00388 


-L 


00861 


00861 


04200 




TPl 


CSO.C 


00400 


-0 


00871 


00881 


09010 




PMUt 


CSQtC* 


C**2 0O412 


-I 


00671 


00861 


09020 




PSUt 


RTAR6*CSQtt 


R**2-C**2 00424 


-R 


00661 


00871 


09090 




•MP 


N0T2*tt 


68ANCH IP TWO INTERSECTIONS 


00 


NOT EXIST 










00494 


NT 


009T6 


01100 


09040* 














09090 




• TN 


SQRTP *RTAR6»*T* 


S1«SQ6TP<R«*2-C**2t 00446 


IP 


02410 


-0861 


09040 


SfT2 


TPL 


sa.st 


00460 


-0 


00691 


00861 


09070 




SP 


S2-2*** 


S2— SI 00472 


L2 


00689 


00000 


09090 




•TN 


TRANSP«S2*» 


T8AN9PORN POINT IS2.U INTO 


X-V SYSTEM 



PACE 











00484 J* 00444 


-0891 


09090 


TPL 


X2ADDR*XI*** 


SET X2 


00494 -0 0004- 


00901 


09100 


TFL 


V2 ADD*, 71,4, 


SET T2 


00S08 -0 0004N 


009U 


09110 


TON 


PL AC,,, 


SET RN... 


TWO INTERSECTIONS EXIST 

00920 19 00079 


00000 


09120 


DC 


ItS* 




00931 00001 




09190 TRAN1 


8TN 


TRANS', Sit, 


TRANSPORT 


POINT ISttCt INTO X-V SYSTEM 










00932 JP 00464 


-0841 


09140 


TPL 


XI ADDA, XI, 4, 


SET Xt 


00944 -0 0003- 


00901 


09190 


TPL 


Yl ADDA, VI.*, 


SET VI 


00996 -0 0003N 


009U 


09140 


• 


RE TORN. *6t 


RETURN TO 


NONlTR 00968 49 024 I J 


00000 


091 TO 


0086 


•-9 




00974 




09160* 






tRANClt It 


ONE INTERSECTION EXISTS 




09190 NOT! 


•2 


ONflNTttt 





09200* 
04010 



TON PL AG* 



06020 
04030 
04040* 
04090 VC-R 
04060 
04070 
04060 
04090* 

04100 ONE INT TON PLA6«!t* 



• RE TURN *« ft* 

0086 *-| f 

TFL VC.MAOORtll 

psu» rc.xc,, 

• ROOT- l 2 
0086 *-3 



061 10 

0*120 

04190* 

06140 SI 

0*190 

0*1*0 

0*170 

0*160 

0*190 

0*200 

OTO 10 

OTO 20 

OTO 90 
07040 
0T090 
6T0*0 
•TO TO 



070*0 

•Tift 
enoo* 

0Tl$6 
0T120 1.0 
0T190 ftlf 
•T140 
•TIM ** 
•Tl** ft 

:««!» 

•ftft ii 
Mm n 



TRANl 



OS 9 

TPl X!,HA0DR,11* 
TPL VI 

PWUL VlA008,COSOANt*« 
PAOO VI*VlAm,ltt 
TPL VlAWM»SIt*lt 
PNUL VlROMtSIIRMNtit 
PA90 VttVUOPttttf 

TPi X1AD0R,C,* . 
PNUi Ml*m,ttRS**ft# 
PSIJft XI,X|AO**tllt 

ppxn, si.coittN**, , 



m 

M 

m 

3 

s 



II. «l f |» fl 

1:1"** 

»••• . 

!•*• 

■•*•) 



0097* N* 00*40 01200 

SET 0... NO INTERSECTION EXISTS 

00986 19 000T9 00000 
RETURN TO NCR ITR 00*00 49 024 1J 00000 

00*08 



H-XC 



SIT 1... 



Rl*M 
H*f 



C*C0S6*N 
VI«**CK0*9AN 



00*08 -0 006 Tl 000 IN 
00420 -R 006T1 00861 
00*92 N9 009*4 00000 
00*40 

INTERSECTION EXISTS 

00*40 19 000T9 00001 
00692 P4 00992 00000 
00*99 



00*63 
00*64 
00676 
00*66 
OOTOO 
00712 
00T24 
O0T9* 



S1**!NBAM 

VIH4C*C0S**N»SI*SIN6A« 

O0T46 
00T60 

C*StN8*M 00TT2 
8|*9f-<9SfMNNl 00T84 
St*€0?«ift » ©07*4 

islt 



00009 
-0 00901 
•0 00911 
-0 0009N 
-1 0003N 
*J 00911 
-0 0009N 
•H 0009N 



000 IN 
0002* 
00861 
00891 
000 9N 
0066L 
00641 



•J 00911 0009N 
-0 0003- 00861 
-L 0009- 00641 
-R 00901 0009- 
-L 00661 90691 



00620 
•6622 

00629 66696 
•0691 00002 
••641 60616 
69991 00616 

Cttl IfStI 
•61 •§*!• 
«*•!• 
I •*•!• 
• t 6RNI|« 



42 00660 00000 



•••11 
•989 

«•; 



IIS 



060 1 0* 










08020 MONI TR 


OS 


• 2406 


02406 


00000 


060 30 NQRMLN 


OS 


• 2416 


02416 


00000 


08040 01 STF 


OS 


• 2416 


02416 


00000 


03090 S INGAN 


OS 


tHXY 


00841 


00000 


UOUOQ TEMP 


OS 


10,79 


00079 


00010 


UoO TQ R TARG 


DS 


•xc 


00861 


00000 


08080 CSQ 


OS 


♦ VC 


00871 


00000 


08090 SQRTF 


DS 


• 2416 


02416 


00000 


03100 SI 


OS 


•RTARG 


00861 


00000 


081 10 FLAG 


OS 


1,79 


00079 


00001 


08120 RETURN 


OS 


• 2411 


02411 


00000 


08110 


DENO 


UNCI* 


00046 



Y2AD0R 00049R 
SINGAM 0G024K 
K2A00R 0G024A 
OELTAH G0048 
EXIT 006XOR 
H2SS0 00038 
T 00018 



VIAOOR 00039R 
R2A00R 00Q29R 
K1A00R 00009R 
CQSGAM 00048 
FLAG 00079 
R2 00018 
TCOSG 00048 



SYMBOL TABLE 

X2A00R 00044R 
R I ADOR 00014R 
H2A00R 00019R 
CIRCIR 00050R 
FLAGl 00458R 
S 00038 
TEMP 00079 



XIAOOR 00034R 
RETURN 02411 
H1A00R 00004R 
A00C0N 00049R 
FLAG2 00578R 
SQRTF 02416 
TSINC 00024R 



TWOINT 00494R 
MONITR 02406 
DELTAK 00024R 
COINC 00598R 
H2S 00028 
SSO 00028 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
OHIO* 
0U20* 
OIUO* 
0U40* 
01150* 
01160* 
01170* 
OiiQO* 
0U9Q* 
01200* 
02010* 
02020* 
02030* 



IBM 1620-1311 AO-APT SUBPROGRAM FOR DETERMINING 
THE INTERSECTION OF TWO CIRCLES 



RCS 



•NAME CIRCIR.. . NON-ERASABLE SYSTEM SUBPROGRAM 
•10 NUMBER 0207+0EL0IM 
•ASSEMBLE RELOCATABLE 
•STORE RELOCATABLE 
LINKAGE - BT CIRCIR,0SALBL*45» 6 

OSALBL IS ADORESS OF X-CCORO. CENTER (CIRCLE 1) 
DSALBL+5 IS AOORESS OF V-COORO. CENTER (CIRCLE U 
DSALBL+10 IS AOORESS OF RADIUS (CIRCLE 1) 
DSAUL*15 IS AOORESS OF X-COORD. CENTER (CIRCLE 21 
DSAL81+20 IS AOORESS OF Y-COORO. CENTER (CIRCLE 2) 
DSAlBl+29 IS AOORESS OP RAOIUS (CIRCLE 2) 
DSALBL+30 IS ADDRESS OF X-COOROINATE (POINT 1) 
DSALBL+39 IS AOORESS OF Y-COOROINATE (POINT 1) 
DSAtBL*40 IS AOORESS OF X-COOROINATE (POINT 2) 
DSALBLtAB IS AOORESS OF Y-COOROINATE (POINT 2) 

NO INTERSECTION INDICATED BY IN 00079 
ONE INTERSECTION INDICATED BY I IN 00079 
TWO INTERSECTIONS I NO I CAT EO BY RK IN 00079 



02040 


AOOCON 


DC 


50,0 


02010 


HIAOOR 


OS 


9«AD0CQN-49t 


02060 


KUOOR 


OS 


StHUOORtS* 


02070 


RUOOR 


OS 


9»K1ADDR*9» 


020B0 


N2A00R 


OS 


9 t RlAO0ft*Sr 


02090 


K2ADDR 


08 


9fH2A00R*9i 


02100 


R2A00R 


OS 


9tK2A00ft*9i 


02110 


XI ADOR 


OS 


l t R2A00R*Sf 


02120 


VI ADOR 


DS 


ItXUODRtfi 


02130 


X 2 ADOR 


OS 


SfYUODRtSf 


02140 


Y2ADDR 


DS 


9,X2A0DA»5» 



ADOR. 
ADOR. 



02190* 
02160* 

02170 CIRCIR BTM 



00049 00090 
OF X-GONPONBNT OF CENTER (CIRC U 

00004 00009 
OF Y-COMPONENT OF CENTER (CIRC H 
00009 00009 
AOORESS OF RAOIUS (CIRCLE 1) 

00014 00009 
ADOR* OF X-COOROINATS OF CENTER (CIRC 2) 

00019 00009 
AOOR. OF Y-COORDINATB OF CENTER (CIRC 21 

00024 00009 
AOORESS OF RADIUS (CIRCLE 21 

00029 00009 
AOORESS OF X-COOROINATE (POINT II 
00034 00009 

AOORESS OF V-COOAOINATB (POINT I) 
00039 00009 

ADDRESS OF X-CCORO I NAT I (POINT 2) 
00064 00009 

ADORESS OF V-COOROINATE (POINT 2) 
00099 00009 



SUBPROGRAM ENTRY 
HONITR, 02000,67 t CALL SORTF SUBROUTINE VIA HON I TR 

00090 17 02400 -2000 



02100 




TFL 


DSLTAH,H2A0DR,ll, 


02190 




FSUB 


DELTAH,H1ADDR«U, 


02200 




TFL 


OELTAH, K2ADDR. U, 


0)010 




FSUB 


OELTAH, K1A0DR, ll t 


03020 




TFL 


H2SSQtOELTAH 


03030 




FMUL 


H2 SSQ, OELTAH, , 


03040 




TFL 


TEMP, DELTAK 


03050 




FMUL 


TEMP,0ELTAK, • 


030*0 




FAOO 


H2 SSQ, TEMP,, 


03070 




TFL 


H2S.H2SSQ 


03080 




BTM 


SQRTF, H2S»67, 


03090 




FOI V 


DELTAK, H2S»« 


03100 




BV 


COlNC.t 


03U0* 








03120 




FOI V 


DELTAH,H2S», 


03130 




TFL 


R2 iR2ADDRt 11 


03140 




FMUL 


A2iR2i. 


031S0 




FSUB 


H2SSQ,R2,« 


03160 




TFL 


R2iRlADDRt 11 


03170 




FMUL 


R2»R2«t 


03U0 




FAOO 


H2S,H2S,, 


03190 




FAOO 


H2SSQ,R2,, 


03200 




FDIV 


H2SSQ»H2S,, 


04010 




TFL 


SSQ.S,, 


04020 




FMUL 


SSQ,S,» 


04030 




TFL 


Y1ADDR,S,6, 


04040 




TFL 


X1ADDR,S,6, 


04050 




FMUL 


vi Anna maim. a* 


04060 




FMUL 


X1A0DR,C0SGAM,6, 


04070 




FAOO 


Yl AODR,K1ADOR,611, 


04080 




FAOO 


X1A00R,H1A00R,611, 


04090 




TFL 


Y2ADOR,Y1AOOR,6LI, 


04100 




TFL 


x? Anna . x l addr . ai i * 


04110 




FSUB 


T.SSO,, 


04120 


PLAG1 


TOM 


FLAG, 1 , , 


04130 




BZ 


RETURN, ,6, 


04140* 






04150 




BL 


COINC,., 


04160* 






04170 


TWQlNT 


BTM 


SQRTF ,T»67, 


04180 




FMUL 


TSING* Y, , 


04190 




FMUL 


TCOSG ,T,, 


04200 




FSUB 


X1AOOR«TSING,6, 


05010 




FAOO 


Y1A0DR,TC0SG,6, 


05020 




FAOO 


X2A00R,TSING,6, 


05030 




FSUB 


Y2A0DR,TCOSG,6, 


05040 


FLAG2 


TOM 


FLAG,,, 


05050 




B C 


it t* 


05060 






RETURN,, 6, 


05070 




DORC 


•-3 


05080* 






05090 


COIHC 


TOM 


FLAG,,, 


05100 


EXIT 


DSC 


2t49,, 


05110 




OSA 


-RETURN 


05120* 






05130 


OELTAH 


OS 


10,48 


05140 


DELTAK 


OS 


,K2A00R 


05150 


SQRTF 


OS 


• 2416 


05160 


FLAG 


OS 


l»79 


05170 


H2SSQ 


OS 


10,38 


05180 


TEMP 


OS 


10,79 


05190 


H2S 


OS 


10,28 


05200 


R2 


OS 


10,18 


06010 


SSQ 


OS 


,H2S 


06020 


T 


OS 


,R2 


06030 


SING AM 


OS 


•DELTAK 


06040 


COSGAN 


OS 


•OELTAH 


06050 


TCOSG 


OS 


•COSGAN 


06060 


S 


OS 


•H2SSQ 


06070 


TSING 


OS 


, SING AM 


06080 


MONITR 


OS 


• 2406 


06090 


RETURN 


OS 


• 2411 


06100 




OEND 


CIRCIR 



MOVE H2 


00062 


00 


00048 


OOOIR 


0ELTAH-H2-M1 


00074 


OK 


00048 


0000* 


MOVE K2 


00086 


-0 


00024 


0002M 


0ELTAK-K2-K1 


00098 


-K 


00024 


OOOOR 




00110 


06 


00038 


00048 


DELTAH**2 


00122 


03 


00038 


00048 




00134 


00 


00079 


00024 


0ELTAK**2 


0014* 


OL 


00079 


00024 


H2SSQ»DEITAH**2*0ELTAK**2 










00158 


01 


00038 


00079 




00170 


06 


00028 


00038 


H2S»SQRTFtH2SSQ) 


00182 


17 


02410 


-0028 


SINGAM-0ELTAK/H2S 


00194 


-9 


00024 


00028 


BRANCH IP CIRCLE CENTERS ARE COINCIDENT 




00206 


M6 


00598 


01400 


C0SGAM»DILTAH/H2S 


00218 


09 


00048 


00028 




00230 


00 


00018 


0002R 


R2**2 


00242 


03 


00018 


00018 


M2SSQ— R2**2*0ILTAM**2*0ELTAK**2 






00254 


02 


00038 


OOOIS 




00266 


00 


00018 


0001M 


Rl**2 


00278 


03 


00018 


00018 


2.0*H2S 


00290 


01 


00028 


00028 


H2SSQ«Rl**2-R2**2*0ILTAH**2*0ELTAK**2 




00302 


01 


00038 


00018 


S*H2SSQ/I2.0*H2SI 


00314 


09 


00038 


00028 


MOVE S 


00326 


06 


00028 


00038 


S**2 


00338 


03 


00028 


00038 


MOVE S 


00350 


-6 


0003R 


00038 


MOVE S 


00362 


-6 


0003M 


00038 


Y1«S*S!NGAM 


00374 


-L 


0003R 


00024 


X1«S*CQSGAM 


00386 


-3 


0003M 


00048 


Y1*K1*S*SINGAM 


00398 


-J 


0003R 


OOOOR 


X1«HI«S*C0SGAM 


00410 


-J 


0003M 


OOOOM 


Y2-Y1 


00422 


-0 


0004R 


0003R 


X2-XI 


00434 


-0 


0004M 


0003M 


T»Rl**2-S**2 


00446 


02 


00018 


00028 


ASSUME ONE INTERSECTION EXISTS 








00458 


15 


00079 


00001 


BRANCH IF ONE INTERSECTION EXISTS 






00470 


46 


0241J 


01200 


BRANCH IF NO INTERSECTION EXISTS 






00482 


M7 


00598 


01300 


CALCULATE SQUARE ROOT 


00494 


17 


02410 


-0018 


TftSINGAM 


00906 


•3 


00024 


00018 


T-COSGAM 


00518 


03 


00048 


00016 


Xl-Xl-t*SINGAM 


00530 


-K 


0003M 


00024 


Yl*Yl*T*COSGAM 


00542 


-I 


0003R 


00048 


X2«X2*T*SINGAM 


00554 


-J 


0004M 


00024 


Y2-V2-T*C0SGAM 


00566 


-2 


0004R 


00048 


SET RM... TWO INTERSECTIONS 


EX1 


1ST 






00578 


15 


00079 


00000 




00589 


00001 




RETURN TO MONITR 


00590 


49 


0241 J 


00000 



00598 

SET 0... NO INTERSECTION EXISTS 



00598 15 00079 00000 
RETURN TO MONITR 00610 00002 

00616 00005 -24U 

00048 00010 
00024 00000 
02416 00000 
00079 00001 
00038 00010 
00079 00010 
00028 00010 
00018 00010 
00028 00000 
00018 00000 
00024 00000 
00048 00000 
00048 00000 
00038 00000 
0O024 00000 
02406 00000 
02411 00000 
00050 



MJN2.0 00279A 
CAODft 00024ft 
EAOOR 00029ft 
YAOOR 0000911 



PLINFN 00309ft 
OAOOft 00034ft 
1NFIW 00296ft 



SYMBOL TABLE 

AOOCON 00039R 
DX 00029ft 
TEMPI 00029ft 



AAOOft 000 19R 
DVDM 00040ft 
TEMP* 00019ft 



OAOOft 00014ft 
OYOXA 000 39R 
XAOOI 0000411 



01010* 




IBM 1420-1311 AO-APT SUBPROGRAM FOR DETERMINING SLOP! 




01020* 




OP A GENERAL CONIC AT ANY POINT ON THE COWlC 






01030* 












ACS 


01040* 




•NAME OYOX*. 


. ERASABLE ! 


SYSTEM SUBPROGRAM 






01050* 




•10 NUMBER 0208+DEL0IM 












•ASSEMBLE RELOCATABLE 








01070* 




•STORE RELOADABLE 














LINKAGE - BT 0Y0X,0SALBL*35,6 






01090* 




OSALBL IS AOORESS OF 


X-l 


COORDINATE OF POINT 








DSAL8L+5 IS < 


ADDRESS OF 


y-CQOROINATE OF POINT 




Oil 10* 




OSALBLMO IS 


ADDRESS 


OP 


(^COEFFICIENT OF 


CONIC 








OSALBL'lft IS 


AOORESS 


OP 


A-COEFPICIENT OF 


CONIC 




Oil 30* 




OSAL8L*20 IS 


AOORESS 


OP 


C-COEFPICtENT OF 


CONIC 




01140* 




DSALBL+25 IS 


AOORESS 


OP 


E-COEFPICIENT OF 


CONIC 




01150* 




OSALBL+30 IS 


AOORESS 


OP 


0-COEPFICIENT OP 


CONIC 




Oil 60* 




DSALBLOS IS 


AOORESS 


OP 


THE SLOPE OP THE 


CONIC 




01 170* 
















01180 AOOCON 


DC 


40,0 






00039 


00040 






OS 


5,A00C0N-3i, 


ADDRESS 


OP 


X-COOROINATE OF POINT 














00004 


OOOOS 




01200 YAODft 


DS 


5.XADDRO, 


AOOftESS 


OP 


Y-COOROINATE OF POINT 














00009 


OOOOf 




02010 BAODft 


OS « 


5,YAD0R*5, 


ADDRESS 


OP 


B-COEPPICIENT (CONIC) 














00014 


OOOOS 




02020 AAOOft 


OS 


St6A0DR*St 


AOORESS 


OP 


A-C0CFF1CIENT (CONIC) 














00019 


OOOOS 




02030 CAODft 


OS 


5,AA0DR»5, 


AOORESS 


OP 


C-COEFFICIENT (CONIC) 














00024 


0000$ 




02040 EAOOR 


OS 


S»CA00R*5. 


AOORESS 


OP 


E-COEPPICIENT (CONIC) 














00029 


OOOOS 




02050 OAOOft 


OS 


5 t EA0DA*5» 


AOORESS 


OP 


0-COEFFICIENT (CONIC) 














00034 


00005 




02060 OYOXA 


OS 


5,», 


AOOftESS 


OP 


OY/OX 00039 


00005 




02070* 
















02080* 




SUBPROGRAM ENTRY 










02090 OYOX 


TFL 


OYOXAf CADDR * 61 I 






00040 


-0 0003ft 


0002M 


02100 


FMUL 


OYOXA, YADDR, 611, 


C*Y 




00052 


-I 0003ft 


OOOOA 


02110 


FAOO 


OYOXA, OYOXA, 6llt 


2.0*C*Y 




00064 


•J 0003R 


0003R 


02120 


FAOO 


OYOXA, EADDR,6lli 


2.0*C»Y*E 


00076 


-J 0003R 


0002R 


02130 


TFL 


TEMPI ,8AD0R, 11 






00088 


-0 00029 


0001M 


02140 


FMUL 


TEMP If XAOOR tilt 


B*X 




00 100 


-L 00029 


OOOOM 


02150 


FAOO 


OX, OYOXA, lit 


0X«2«0»C«Y*B«X*E 00112 


-j 00029 


0003R 


02160 


TFL 


OYOXA , AAOOR ,611 






00124 


•0 0003R 


0001R 


02170 


FMUL 


OYOXA, XAOOR, 611, 


A*X 




00136 


-L 0003R 


OOOOM 


02180 


FMUL 


OYOXA, MIN2. 0,6, 


-2.0«A»X 


00148 


-L 0003R 


00279 


02190 


TFL 


TEMP2,BA00R»U 






00160 


TO 00019 


0001M 


02200 


FMUL 


TEMP2, YAOOR, 11, 


B*Y 




00172 


-L 00019 


OOOOR 


03010 


FSUB 


OYOXA, TEMP2 t 6» 


-2.0*A*X-B«Y 00184 


-X 0003R 


00019 


03020 


FSUB 


OYOXA t OAOOft t *U# 


DY— 2.0*A»X-B*Y-0 00196 


-K 0003R 


0003M 


03030 


FOIV 


DY0XA,0X,6, 


ov/ox 




00208 


-R 0003R 


00029 


03040 


BV 


INFINt * * 


BRANCH 


IP 1 


DX IS 0*0 00220 


MA 00256 


01400 



03050* 

03060 
03070 

03080* 

03090 INFIN 

03100 

03110 

03120* 

03130 

03140 MIN2.0 
03150 

03160 FLINFN 
03170* 
03180 TEMPI 
03190 DX 
03200 TEMP2 
04010 



PAGE 



CM 
BN 



OYOXA, 5, 610 
INFIN*12 vvt 



TFL OYDXA, FLINFN, 6, 
BB , 1 1 
OORG *-9 

OC 8,-20000000 

DC 2,1 

OC Bt 10000000 

OC 2*49 

DS lOtEAOOR 
DS t TEMPI 
OS 10, AAOOft 
DENO OYOX 



00232 /4 0003R 000-5 
IP SLOPE FINITE BY DEFINITION 

00244 M7 00268 01300 



SET RESULT 
EXIT 



00256 -0 0003R 00289 
00268 42 00000 00000 
00*70 

00277 00008 
00279 00002 
00287 00008 
00289 00002 

00029 00010 
00029 00000 
00019 00010 
00040 



126 



SYMBOL TABLE 



PAGE 1 



V2AODA 00094ft 
NVERT2 0072411 
BADORL 0000911 
CN2 01052ft 
FLAG 00079 
REAL1 00432R 
TIN! 01SMR 
V2NZ 00154ft 



VlAOOft 00049ft 
WOW I TR 02406 
•AOOftC 000 I Aft 
CX 00920ft 

puci oiouft 

ROOT 00044ft 
TSMt 01310ft 
VII 009 84 A 



X 2 AO OA 00054R 
MIN2.0 01444R 
AOOCON 0004911 
OAOOft 00014ft 
PL A 02 01314ft 
ftSCM 0103211 
VERT1 0074111 
V20 00404ft 



MlAOOft 00044ft 
MAODRL 00004ft 
AAOOA 00019ft 
EAOOR 00029ft 
NEC 00810ft 
SQRTF 02414 
VIHT2 00132ft 
0.9 01444ft 



RETURN 02411 
L INC ON 00060R 
CAOOR 000 24R 
f ADDA 00039ft 
MEGV1 00240ft 
TEMP 00079 
VIZ 00812R 
4*0 0149411 



01010* 
01020* 
01030* 
01040* 
01050* 
01040* 
01070* 
01010* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01150* 
01140* 
01170* 

oiiao* 

01190* 
01200* 
02010* 
02020* 
02030* 
02040* 
02050* 



UN 1420-1311 AD-APT SUBPROGRAM FOR DETERMINING 
TMI INTERSECTIONS OP A UNI AND A GENERAL CONIC 

•NAME LINCON... NON-ERASABLE SYSTEM SUBPROGRAM 
•ID NUMBER 0209+DEL01N 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT LINCON, 0SALBl*55, 6 

OSALBL IS AOOftESS OF SLOPE OF LINE 
DSALBL+5 IS AOOftESS OF Y-INTERCEPT OF LINE 
DSAL6L+10 IS ADDRESS OP B-COEFF ICIENT tCONICI 
OSALBL+15 IS AODRESS OF A-COEFFICIENT ICONIC) 
DSAL6L+20 IS ADDRESS OF C-C0EFP1CIENT (CONK) 
DSAL8L*25 IS AODRESS OF E-COEFF ICIENT (CONIC) 
DSALBL+30 IS AODRESS OF 0-COEFFICIENT (CONIC) 
DSALBL+3S IS AODRESS OF F-COEFFICIENT (CONIC) 
OSALBL*40 IS ADDRESS OF X-COOROINATE (POINT 1) 
0SALBL*43 IS ADDRESS OF V-COOAOINATE (POINT 1) 
DSALBL+50 IS AODRESS OF X-COOROINATE (POINT 2) 
OSALBL+99 IS ADDRESS OF V-COOROINATE (POINT 2) 

NO INTERSECTION INOICATEO BY IN 00079 
ONE INTERSECTION INDICATED BY 1 IN 00079 
TNO INTERSECTIONS INOICATEO BY RM IN 00079 



RCS 



02040 


AOOCON 


DC 


50.0 






00049 00050 


02070 


MAODAL 


OS 


9tA0DC0N-4* v 


AOORESS 


OF 


SLOPE (LINE) 

00004 00005 


02080 


BAOORL 


OS 


5tMA0ORL*5t 


AOORESS 


OF 


V- INTERCEPT (LINE) 

; 00009 00005 


02090 


BAOORC 


OS 


5«BA00AL*9 f 


AOORESS 


OF 


6-COEFPICIENT (CONIC) 
00014 00005 


02100 


AAODR 


OS 


5,BADD*C*5, 


AODRESS 


OF 


A-COEFFICIENT (CONIC) 
00019 00005 


02110 


CAOOR 


DS 


9tAA00R*5t 


. AOORESS 


OF 


C-COEFPiCIENT (CONIC) 
00024 00005 


02120 


EAOOR 


OS 


5»CADDR*9« 


AOORESS 


OF 


E-COEFF IC IENT (CONIC) 
00029 00005 


02130 


OA DOR 


OS 


9«EA0DR*S» 


AODRESS 


OF 


0-COEFFICIENT (CONIC) 
00034 00005 


02140 


FADDR 


DS 


5,DADDRM, 


ADORESS 


OF 


F-COEFFICIENT (CONIC) 
00039 00005 


02150 


XIADOft 


OS 


5. FADDR* 5, 


AODRESS 


OF 


X-COOROINATE (POINT 1) 
00044 00005 


02140 


Y1A00R 


OS 


9tXlA0DA*5t 


AOORESS 


OF 


V-COOROINATE (POINT 1) 
00049 00005 


02170 


X2A00R 


OS 


9tYlA0DR*5 v 


AODRESS 


OF 


X-COOROINATE (POINT 2) 



02180 Y2A00R OS 
DC 



02190 
02200* 
03010* 

03020 LINCON 

03030 

03040 

03050 

03060 

03070 

03080 

03090 
03100* 
03110 Y2N2 

03120 
03130 
03140 
03150 
03160 
03170 

03180 NEGY1 



5tX2A00R*5 v 
10,0 



1 00054 00005 
AODRESS OF V-COOROINATE (POINT 2) 
' 00059 00005 
00059 00010 



PAGE 2 



03190 

03200* 

04010 

04020 

04030* 

04040 

04050 

04040 

04070 

04080 

04090 

04100 

04110 
04120 
04130 

04140 

04150* 
04160 

04170 MALI 

04180 

04190 

04200 

05010 

03020 

05030 

09040 

09050 

09060 



SUBPROGRAM ENTRY 
TFL YlA00R*MA00RLt611 
FMUL YlADDRfCA0DRt611 • 
TFL Y2A00RfYlADDRt 611 
FAOD V2A0DR«BA0DRC 9 Allt 
FMUL Y2A0DR t NAODRL , 61 1 1 
FAOO Y2 AOOR t AAODR 1 61 1 1 
FADD Y2AD0R t Y2A0DR ,611* 

BZ V2Zt«t 

TON N£GYl*13,Wt 



FMUL 

FSUB 

FMUL 

FSUB 

TFL 

FMUL 

FSUB 



YIA00R,NIN2.0,6, 

VlA0DR»BA00RC v 611t 

VlA0DR*BADDRLt611t 

YlAODR»OAODR v 61l0 

X1A00A»EAD0R|611 

XI ADDA f MAODRL ,61 It 

VlA0DR,XlADDR,4ll, 



NOP V20«tt 



CM 
BNL 



TFL 

FMUL 
FAOO 
FMUL 
FAOO 
PNUL 
FAOO 



MADORL.49,610 
VIRT1,., 



X2AD0R 
X2ADDR 
X2ADDR 

X2AD0R 
X2AO0R 
X2A0DR 
X2ADDR 



CAOOR ,611 
,8A0DRL,6lit 
,EADOR# 611, 
.BADORL, All. 

FAOORtAll* 
.Y2AO0A.611. 
,X2A00»,61W 



TFL XlA0DR*YlA00ftt6tl 
FMUL XIADDA.VIAOOA.AIW 
FSUB ROOT, X2A00R, All, 

•A* TINIftt 



•TN MO W I TR. 02000, 47, 



B>TN 

TFL 

FSUB 

FAOO 

FDIV 

POIV 

TFL 

FNUL 

FAOO 

TPi 



S0RTP.R00T.4Tll 

XI AOOR tYI AOOR #611 

XIA0DR#R00T t 6ll. 

XlAOOA.VlAOOR.All. 

XlA00A«V*AOD*.6lU 

X2ADOAtV2AO0A,Allt 

VlAO0»,NA8OAL,4ll 

VlA0DQ.XiAOOA.6llt 

YlA0fHi»»A00ftL*611a 

VtAODA.MADSAl.Ail 





00060 


-0 


0004R 


OOOOM 


M*CI 


00072 


-L 


0004R 


0002M 




00084 


-0 


0005R 


0004R 


BI*M*Ct 


00096 


-J 


0005R 


000 1M 


M*(BI*M*CI) 


00108, 


-L 


0005R 


OOOOM 


AI*M*(8I*M*CI) 


00120 


-a 


0005R 


000 IR 


Y2«2.0*(AI*M*IBI*M*CII) 










00132 


-j 


0005R 


0005R 


BRANCH IF Y2 IS ZERO 


00144 


N6 


00S64 


01200 


SET OP CODE TO 41 I NO-OP) 










00156 


J5 


00253 


00001 


-2.0*(M*CI) 


00168 


-L 


0004R 


01444 


-(BI*2*0*M«CII 


00180 


-K 


0004R 


0001M 


-6*(Bt*2*0*M*CI> 


00192 


-L 


0004R 


OOOOR 


-(0!»B*|B!42.0*M*CItl 


00204 


-K 


0004R 


0003N 




00216 


-0 


0004M 


0002R 


CI*N 


00228 


-L 


0004M 


OOOOM 


-I0I*M«EI*B«I2«0«M»C1*BI ) )*Y1 








00240 


-R 


0004R 


0004M 


BRANCH IF V2 IS ZERO 


(VARIABLE 


OP CODE) 




00252 


Ml 


00604 


00000 




00264 


J4 


OOOOM 


000M9 


BRANCH IP LINE IS VERTICAL 










00276 


M6 


00768 


01300 




00288 


•o 


0005M 


0002M 


•*Cr 


00300 


-L 


0005M 


OOOOR 


EI*B*CI 


00312 


-J 


0005M. 0002R 


B*CE148*CII 


00324 


-L 


0005M 


OOOOR 


Ft*B*(II*B«CII 


00334 


-J 


0005M 


0003R 


V2*tFHB*III*B«CII) 


0034B 


-L 


0005M 


0005R 


2*0*V24lFI*B*IEt*B*CI 1 1 










00340 


-J 


0005M 


0005M 




00372 


-0 


0004M 


0004R 


Yl»*2 


00384 


-L 


0004M 


0004R 


A00T«Vl*«2-2.0»VI«IPI*6»(EI*B«CI)) 






00394 


— R 


0004M 


0005M 


•RANCH IF ROOT NOT POSITIVE 










00408 


M7 


01336 


01100 


CALL SQRTP SUBROUTINE VIA MONITR 






00420 


17 


02400 


-2000 




00432 


IP 


02410 


-004M 




00444 


-0 


0009M 


0004R 


Y I -ROOT 


00454 


-ft 


0005M 


0004M 


Y1*R00T 


00449 


-J 


0004M 


0004R 


Xl-(Vl*R00T)/V2 


00480 


-R 


0004N 


0005R 


X2*tVS«ilOOTt/V* 


00492 -R 


0005M 


0005R 


00S04 


-0 


0004R 


OOOOM 


M«XI 


00514 -L 


0004R 


0004M 


Vl*N*Xi*B 


00528 


-a 


0004R 


OOOOR 


00940 -0 


0009R 


OOOOM 



127 



05070 


FMUL 


Y2AD0R,X2A0DR,6lU 


05080 


FAOO 


Y2ADDR,6A00AL,61l# 


05090 





FLAG! 


ostoo 


00*6 


**s 


onto* 






05120 V2t 


T0» 


N£CYl+l3,9, # 


05130 


ft 


Y2N2+12 


OfUO 


00(16 


*-l 


05150* 






05160 V20 


»t 


Yt2t«i 


05170* 






051 to 


tfl 


X 1 ADDA .CAOOft, 611 


05190 


fmul 


X|A00RfSAD0RL«6IIi 


05200 


faoo 


Xt AOOR «E AOOR t 61 !• 


iiiii 


ml 




06020 


FAOO 


M 1 ABQR v F AOOR 1 61 1 1 


06030 


FOIV 


XUDDR,VIADDR,6U, 


060*0 


TFL 


X2A0DR f XlAOOR t 61tt 


06050 


CM 


MAO0RLt49 t 61Ott 


06060 


BNL 


VERT2,,, 


06070* 






06080 NVERT2 


TFL 


YlA0DR.XlAOOR.6ll 


06090 


FMUL 


YU0DR.MA00RL.6ll, 


06100 


FAOO 


YlA0DR»BAOORL«6l It 


06110 


B 


FLAG1 


06120 


DORC 


•-3 


06130* 






06140 VERTl 


TFL 


X1ADDR.Y1AD0R.611 


06150 


FOI V 


X 1 AOOR t Y2 AOOR ,611* 


06160 


TFL 


X2ADDR.XIA00R.61U 


06170 





VERT2 


06180 


OORG 


•-3 


06190* 






06200 VU 


TOM 


FLAG. » t 


07010 


a 


RE TURN,, 6» 


07020 


OORG 


*»3 


07030* 






07040 VERT2 


TFL 


TEMP.BADORC.il 


07050 


FMUL 


TEMP.XlAOOA.il, 


07060 


FAOO 


TEMP.EAOOR.il, 


07070 


BP 


RSGN,,, 


07080* 






07090 NEC 


CF 


TEMP-2t, » 


07100 


TFL 


Y2 AOOR t TEMP ,6 » 


07110 


TFL 


T6MP.CADDR, 11 


07120 


00 


CNZ,TEMP-9,, 


07130* 




' i 


07140 C2 


** 


YlZ.tt 


07150* 






07160 


TFL 


YIADOR. AA00R.611 


07170 


FMUL 


YIA0DR.X1A0DR.611, 


07180 


FAOO 


YlA0DR.OAOOR.61l, 


07190 


FMUL 


Y1A00R.X1 AOOR ,611, 


07200 


FAOO 


YIADOR, FADOR, 611, 



08010 


FOIV 


08020 FLACl 


TOM 


08030 


8 


08040 


OORG 


08050* 




08060 RSGN 


SF 


08070 


8 


08080 


OORG 


08090* 




08100 CHI 


m 


OHIO 


FMUL 


08120 


FAOO 


08130 


TFL 


08140 


FMUL 


08150 


FMUL 


08160 


FAOO 


08170 


TFL 


08180 


FMUL 


08190 


FMUL 


08200 


FMUL 


09010 


FSUft 


09020 


GNP 


09030* 




09040 


BTM 


09050 


• TM 


090*0 


TFL 


09070 


FAOO 


09080 


FSUft 


09090 


TFL 


09100 


FOIV 


09110 


FMUL 


09120 


FMUL 


09130 FLAC2 


TOM 


09140 


OC 


09110 


ft 


09160 


OORG 


09110* 




09110 UK! 


IN* 


09190* 




09200 


TFL 


10010 


FOIV 


10020 


ft 


too 10 


OORG 


10040* 




100 SO TIM2 


•Ml 


10060* 




10070 


TFL 


100 to 


FMUL 


10090 


FOIV 


10100 


• 



FLAG, I,, 
RE TURN ,,6, 



TiMP-2»t# 
KEG* 12 



TEMPfOADORt 11 
TEMPtXlAOORtUt 
TEMP.PADOA, lit 
Y I AOOR t A AOOR # 611 
YIADOR • XI AOOR »61 1 t 1 
YIADOR, XUD0*,61lt 
TEMP, YIADOR, 11, 
YIADOR, V2AD0R, 611 
VI AOOR, Y2 AOOR, 61 l» 
TEMP,CAO0RtlA* 

TEMP, 4.0,, 



BTM MONITR, 02000, 67, 



SO RTF t Y 1 AOOR * 67 1 1 
TEMP, Yi AOOR, 11 
YIADOR tYIAOOfttftl If 
Y2A00RtTEMF»*i 
TIMFiOtS 
TEMP, CAOORt lit 
YlAOORtTI MFt 6f 
Y2A00R»TEMFtft» 
FLAGitt 

!#•»• 

RETURN t tit 



YUtM 



X1A00R,V1A0DR,611 

XlADDA,V2AOOA.61lt 

MVSRT3 



VU.,, 



YlAD0R,V2A0OA,*ll 
VlA0ORtO*9.6« 



FLAG1 



P)*X2 


00552 


•I 


0005R 


0005M 


V2»N*X2«ft 


00564 


-J 


OOOSR 


OOOOR 




00576 M* 


01316 


00000 




005B4 








SEt OF CODE TO 4f 


(BRANCH! 










005B4 




00253 


00009 




00596 


M9 


0016B 


00000 




00604 








BRANCH IF Yt t$ IERO 00604 


MB 


UUVtc 


Ai inn 

U Wv9 


CI*B 


00616 


•0 


0004M 


0002M 


00628 


•L 


0004H 


OOOOR 


Et*B*CI 


00640 


•J 


0004M 


0002R 


iiiei**'*^! I 


iiftii 


si 






FI«B*IEI*ft*eit 


00664 


*• J 


0004M 


000 3R 


XlviFI+B*! e I*8*CI 


1 l/Yl 










00676 




000 4 M 


0004R 


X2-XI • 


00688 


-0 


0005M 


0004M 




00700 


J4 


OOOOM 


OOOMR 


BRANCH IF LINE IS 


VERTICAL 










00712 


„ . 
M6 


00832 


01300 




00724 


~*0 


0004R 


0004M 


M*X1 


00736 


-L 


0004R 


OOOOM 


Yl-M«Xl*B 


00748 


-J 


0004R 


OOOOR 




00760 


M9 


01012 


00000 




00768 








Xl*Yl/V2 


00768 


-0 


0004M 


0004R 


00780 


-A 


0004M 


0005R 


X2»Xl 


00792 


-0 


0005M 


0Q04M 




.00804 


M9 


00832 


00000 




00812 








SET 0... NO INTERSECTION EXISTS 






00812 


15 


00079 


00000 


RETURN TO MONITR 


00824 


A 9 0241 J 


00000 




00832 










00832 


00 


00079 


OOOIM 


BI»X1 


00844 


OL 


00079 


0004M 


EI*B1*X1 


00856 


OJ 00079 


0002R 


BRANCH IF RESULT 


IS POSITIVE 








00868 


M6 


01032 


01100 


REVERSE SIGN 


00880 


33 


00077 


00000 


Y2«-(£I+BI*X1> 


00892 


-6 


0005R 


00079 




00904 


00 


00079 


0002M 


BRANCH IF C-C0EFFIC1ENT IS NON-ZERO 






00916 


M3 


01052 


00070 


BRANCH IF Y2 IS 2ER0 00928 


M6 


00812 


01200 


AI*X1 


00940 


-0 


0004R 


0001R 


00952 


-L 


0004R 


0004M 


0I*AI*X1 


00964 


rJ 


0004R 


0003M 


Xl*tD!*AI»Xl) 


00976 


-L 


0004R 


0004M 


FS+Xl*(OI*Al*Xl) 


00988 


•J 


0004R 


0003R 


Vl«fFI*Xl*CDI*AI*XlH/Y2 










01000 


-R 


0004R 


0005R 


SET 1... ONE INTERSECTION EXISTS 






01012 


15 


00079 


0000 1 


RETURN TO MONITR 


01024 


49 0241J 


00000 




01032 








REVERSE SIGN 


01032 


32 


00077 


ooooo 




01044 


MB 


00692 


00000 




01052 










01052 


00 


00079 


0003M 


0I*X1 


01064 


OL 


00079 


0004M 


FHOI*Xi 


01076 


OJ 


00079 


0003R 




01088 


-0 


0004R 


0001R 


Al*Xl 


01100 


-L 


0004R 


0004M 


AI*X1**2 


01112 


-L 


0004R 


0004M 


F1*01*X1*A1*X1**2 


01124 


OJ 


00079 


0004R 




01136 


-0 


0004R 


0005R 


Y2**2 


01148 


-L 


0004R 


0005R 


CI*fFI*0I*Xl*Al*Xl**2l 










01160 


OL 


00079 


0002M 


4«0*CI*<FI*OI*X1*AI*X1**2> 










01172 


OL 


00079 


01454 


V2**2-4*0*ei»(Al*Xl**2>0l*Xl*FII 






01164 


-2 


0004R 


00079 


BRANCH IF VI NOT 


POSITIVE 










01196 


MT 01S80 


01100 



PACE 



CALL SQRTF SUBROUTINE VIA MONITR 



01208 


17 


02400 


-2000 


01220 


IP 


02410 


-004R 


01212 


00 


00079 


0004R 


V2*R00T 01244 


-J 


0004R 


0005R 


Y2-RQ0T 01256 


•2 


0005R 


00079 


01268 


00 


00079 


01464 


0.5/Cl 01260 


OR 


000T9 


O0O2M 


Vi«0.5*IYI*ft00TI/CI 01292 


-1 


0004R 


00079 


Y2»O w t*IVl«ftOOT)/CI 01104 


•1 


OOOBR 


00079 


SET RM««« TWO INTERSECTIONS 


EXIST 




01316 


It 


O00T9 


OOOOO 


01S2T 


00001 




RETURN TO MONITR U2B 


49 


02AIJ 


OOOOO 


01114 








BRANCH |» BOOT it NEGATIVE 








01146 


MT 


00112 


01200 


. 0134B 


•0 


0004N 


0004R 


XI-V1/V2 01160 


•ft 


0004M 


0005R 


~ 011T2 


Mt 


00724 


OOOOO 


OltGO 








ftftAMCH 19 U tt NEGATIVE 








onto 


MT 


00ft 12 


01200 


01192 


-0 


0004ft 


0008R 


0.t*V2 01404 


-L 


0004ft 


01464 


Vl»0.f*V2/Cl 01416 


•ft 


0004R 


0002M 


0142ft 


Mf 


OlOlt 


OOOOO 



128 



101 10 


00R6 


•—4 


01 4 J* 














101 30 


oc 


r.^saaaaaaa 

© "f 1/VWMllUW 




000 6 


mi&n MtM9.n 
lut^u ninctv 


DC 


*t * 


Al AAA 






DC 


V t <9 u uu.ww uu 


01452 


00008 


1 Al Art A. A 


DC 


*• I 




00002 


101 to 


DC 


ft. iaaaaaaa 

9$ 3UUUUUUU 


01462 


00008 


IQlQlI v.5 


OC 


t«o 


. 01464 


00002 


10190* 










10200 ROOT 


DS 


•X1AD0R 


00044 


00000 


11010 FLAG 


OS 


1»79 


00079 


00001 


11020 TEMP 


OS 


10,79 


00079 


oooto 


110)0 SQRTF 


OS 


.2*16 


02416 


00000 


11040 HON IT* 


OS 


• 240* 


02406 


00000 


1 1010 MTUKN 


01 


#2411 


02*11 


00000 


11060 


OENO 


L INC ON 


00060 





Y2A0DR 00020ft 
MONITR 02406 
A00C0N 00025ft 



V1A00R 00010R 
DELYSQ 00079 
DISTA 00025R 



SYMBOL TABLE 

X2A0DR 00015R 
DELXSQ 00025R 
OISTF 00026R 



XIAODR 00005R 
OELTAY 00079 
EXIT 001 34R 



RETURN 02411 
DELTAX 00025R 
SQRTF 02416 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 

01140 ADOCON OC 
01150 XIAODR DS 

01160 Y1A00R DS 

01170 X2ADDR OS 

01180 Y2A00R OS 

01190 DISTA OS 



IBM 1620-1311 AD-APT DISTANCE FUNCTION SUBPROGRAM 

R 

•NAME OISTF... NON-ERASABLE SYSTEM SUBPROGRAM 
•ID NUMBER 0210+DELOIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - 6T DISTF»OSALBL+20 t 6 

DSALBL IS ADDRESS OF X-COORDINATE t POINT 11 
DSALBL+5 IS ADDRESS OF Y-COOROINATE CPOINT l> 
DSALBL+10 IS AODRESS OF X-COOROINATE (POINT 2) 
DSALBL+15 IS AODRESS OF Y-COOROINATE (POINT 21 
OSALBL+20 IS AODRESS OF OISTANCE BETWEEN POINTS 



26,0 






00025 00026 


5, ADOCON- 20, 


AODRESS 


OF 


X-COOROINATE (POINT 1) 






00005 00005 


5»XU00R*5» 


AODRESS 


OF 


Y-COOROINATE (POINT 11 






00010 00005 


5>YIAD0R*5» 


ADDRESS 


OF 


X-COOROINATE (POINT 21 






00015 00005 


5,X2A0DR*5, 


AODRESS 


OF 


Y-COOROINATE (POINT 2) 






00020 00005 


5 f Y2A0DR*5t 


AODRESS 


OF 


OISTANCE BETWEEN POINTS 






00025 00005 



01200* 

02010* 

02020 OISTF 

02030 

02040 

02050 



02060 
02070 
02030 
02090 
02100 

02110 EXIT 
02120 
02130* 

02140 DELTAX 
02150 DELXSQ 
02160 OELTAY 
02170 DELYSQ 
02180 SQRTF 
02190 MONITR 
02200 RETURN 
03010 



TFL 
FSUB 
FMUt 
BTN 

TFL 
FSUB 
FHUt 
FADD 

BTN 

DSC 
DSA 

DS 
OS 
DS 
DS 
OS 
OS 
DS 



SUBPROGRAM 
0ELTAX,X2A0DR»6U 
DELTAX* XIAODR »61l! 
DELXSQ, DELTAX, 611 
MONITR, 02000, 67, 

DELTA Y«Y2A0DR» 11 
DELTAY,YlADDRtU« 
OE LYSQ tOELTAY t* 
DELXSQ, DELYSQ. A, 
SQRTF ,0ELXSQ»6711 

2»49 V9 
-RETURN 

•DISTA 
tOELTAX 
10»T9 
•OELTAY 

• 241* 

• 2606 

• 2*11 



ENTRY 

00026 -0 0002N 0001N 

, X2-XI 00038 -K 0002N OOOON 

i (X2-X1)**2 00050 -L 0002N 0002N 
CALL SQRTF SUBROUTINE VIA MONITR 

00062 17 02400 -2000 

00074 00 00079 0002* 

Y2-Y1 00086 OK 00079 0001- 

(Y2-Y1)**2 00098 03 00079 00079 

(X2-Xlt**2+(Y2-Yl)**2 00110 -I 0002N 00079 
, 01 ST»SQRTF( I X2-X 1 )••!♦ ( Y2-Y 1 1 **2 I 

00122 IP 02410 -002N 
RETURN TO MONITR 00134 00002 

00140 00005 -241J 



OENO OISTF 



00025 
00025 
00079 
00079 
02416 
02406 
02411 
0002* 



00000 
00000 
00010 
00000 
00000 
00000 
00000 



12!) 



SYMBOL TABLE 



fA*o 



UYCONP 000 19A 
EXIT 0019211 
VCQNP 00009A 



UXCONP 0001411 
SGRYP 02414 
VSQ 00049 



RETURN 02411 
UNI TV 0002011 
I 000ft 



HON! Tit 02404 
XCOMP 0000411 



AOOCON 000 I ti 
XSO 00079 



01010* 




10* 1420-1311 AO-APT UNIT VECTOR SUBPROGRAM 




01020* 








ACS 


01030* 




•NAME UNITY... NON-ERASABLE SYSTEM SUBPROGRAM 


01040* 




♦ 10 NUMBER 021140E101M 




01090* . 




•ASSEMBLE 


RELOCATABLE 




01040* 




•STORE RiLOAOABLE 




01070* 




LINKAGE - BT 


UNITV # DSALBL*l§.4 




01080* 




OSALBL IS 


AOORESS OF X-COMPONENT OF VICTOR 


01090* 




0SAL8L+9 ! 


IS AOORESS OP Y-COMPONENT OF VECTOR 


01100* 




OSALBLHO 


IS AOORESS OF X-COMPONENT OF UNIT VECTOR 


OHIO* 




0SALBL*19 


IS AOORESS OF Y-COMPONENT OF UNIT VECTOR 


01120* 




IT IS ASSUMEO THAT THE VECTOR IS NOT ZERO 


01130* 










01140 AOOCON OC 


20.0 


00019 


00020 


01 ISO XCOMP 


OS 


St AOOCON- 19t 


AOORESS OP X-COMPONENT OF VECTOR 








00004 


00009 


01140 VCOWP 


OS 


9tXC0MP*S» 


AOORESS OF Y-COMPONENT OF VECTOR 








00009 


00009 


01170 UXCOMP 


OS 


9tYC0MP*St 


AOORESS OP X-COMPONENT OF UNIT VECTOR 








00014 


00009 


01140 UYCONP 


OS 


S»UXC0MP*9 V 


AOORESS OF Y-COMPONENT OF UNIT VECTOR 








00019 


00009 


01190* 










01200* 




SUBPROGRAM ENTRY 




02010 UNITY 


TPL* 


UXCOMP »XC0MP«411 


00020 


-0 000 1M OOOOM 


02020 


8TM 


MONITR »02000t4Tt 


CALL SQRTF SUBROUTINE VIA MONITR 








00032 


17 02400 -2000 


02030 


TFt 


XSQ.XCQMP.il 


00044 


00 00079 OOOOM 


02040 


FMUL 


XS0.XSQ>» 


XC0MP**2 00094 


03 00079 00079 


02090 


TPL 


YSQ.YCONP.il 


0004B 


00 00049 OOOOR 


02040 


FMUt, 


YSO.YSQ.. 


YC0MP**2 00080 


03 00049 00049 


02070 


FAOD 


XSQ, VSQ,, 


XC0MP**2*YC0MP**2 00092 


01 00079 00049 


02040 


BTM r . 


SQATF, E.4T t 


1*SQRTP 1 XCONP**2*VCOMP**2 ) 








00104 


17 02410 -0079 


02090 


FOIV 


UXCOMP, 2,4. 


UX«XC0MP/I 00114 


-9 0001M 00079 


02100 


TFt 


UYCQNP,VC0HP,4l| 


00128 


-0 000 1R OOOOR 


02110 


FOIV 


UYC0MP 4 {»4« 


UY-YCOMP/I 00140 


-9 000 1R 00079 


02120 EXIT 


OSC 


2,49,, 


RETURN TO MONITR 00192 


00002 


02130 


OSA 


-RETURN 


00198 


00009 -24W 


02140* 










02190 XSQ 


OS 


10 t 79 


00079 


00010 


02140 VSQ 


OS 


10*49 


00049 


00010 


02170 I 


OS 


tXSQ 


00079 


00000 


02180 SQATF 


OS 


«2414 


02414 


00000 


02190 HON I TR 


OS 


• 2404 


02404 


00000 


02200 RETURN 


OS 


#2411 


02411 


00000 


01010 


OENO 


UNITY 


00020 





1.0E44 00281R 
MI.E48 00291R 
DEL TAX 00029R 
FLAG 00024R 
VERT 00220R 



V2A0DR 00019R 
M0VEX2 00078R 
AOOCON 00029R 
MAOOR 00024R 



SYMBOL TABLE 

Y1A00R 00009R 
LCNQN1 00030R 
BAOOR 00029R 
NVERT 00190R 



PAGE 



X2AD0R 000 14R 
ERFLAG 00200A 
CO INC 00298R 
SLOPE 001 14R 



X1A00R 00004R 
OELTAY 00024R 
EXIT 00194R 
TEMP 00079 



01010* 
01020* 
01030* 
01040* 
01090* 
01040* 
01070* 
01080* 
01090* 
01100* 
OHIO* 
01120* 
01130* 
01140* 
01190* 
01140* 
01170* 
01180* 



01190 


AOOCON 


OC 


SOtO 


01200 


XI ADDA 


OS 


*,A00CQW~29, 


02010 


Y1A0OR 


OS 


9 t XlAO0R*B# 


02020 


X2A00A 


01 


tmAOdft*** 


02010 V2A00R 


08 


9tX2A00ft*»» 


02040 


MAOOR 


OS 


SfV*AOGft*ff 


02090 


BAOOR 


Of 


•••• 



IBM 1420-1311 AD-APT SUBPROGRAM FOR DETERMINING 
THE SLOPE AND Y-INTERCEPT OP A LINE DEFINED BY 
TNO UNIQUE POINTS 

ACS 

•NAME LCNCNl... ERASAILI SYSTEM SUBPROGRAM 
•ID NUMBER 0212*0BLDIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT LCN0Nl,DSALIL*2S,A 

OSALBL IS AOORESS OP X-COOROINATE (POINT II 
0SALBL4S IS AOORESS Of 1 V-COQROINATE I POINT 1) 
DSALBL+10 IS AOORESS OP X-COOAOINATB (POINT 2) 
08ALBL419 IS AOORESS OF Y-COOROINATI (POINT 21 
OSALBL* JO IS AOORESS OF SLOPE OF LINE 
OSALBL+29 IS AOORESS OP V-INTERCEPT OP LINE 

COINCIDENT PTS. INDICATED BY AM IN 0SALBL*20 AOOA. 

00029 OOOSO 

AOORBSS Of X-COOAOINATB (POINT II 
00004 00 001 

AOORESS OF ^COORDINATE (POINT 1) 
00009 00001 

AOOftlll Of H-COOROINATE (POINT |l 
00014 00001 

AOORESS Of VKOOAOINATI I POINT II 
00019 00001 

AOORESS Of SLOPE 00024 00001 

AOORESS Of Y-INTIACSPT 

00029 00001 



02060* 
02070* 

02060 LCNONI 

02090 
02100 
02110* 
02120 

021 SO NOVfXI 

02140 
021 SO 
02140* 
02170 SLOPI 
021 SO 
02190 

02200* 

OS® 10 NVERT 

0S020 
01030 



SUBPROGRAM ENTRY 
TPL DBLTAY,V2AO0A,4ll 
PSUB OtUAViTlAOORtBll* 
•2 EllfiAilitt 



Y2-V1 

BRANCH If Tl*Vl 



OOOSO -0 0002M 000 1R 
00042 -X 0002M OOOOR 
00094 114 OGIOO 01200 



TPM SLOPft-AtVBAT., 

TPL DfLTAX,X2AD0A,4ll 

PSUt 06tmt»|*0dftt4>tt« 

il ••• 

fOIV OOlTAVtOatTAX**!!* 
CM MADfftfOtftltV 
OfM VOiTftt 



m baocr.viadoa.aii 

TPL TER#«M400$f It 
PMUL TENP.KIAOORUU 



SBT SWITCH IMOICATlNft INEQUALITY 

00044 JO 0010B -0220 

oooto .o eeosR oooim 

X2-X1 00090 HI 0002* OOOON 

BRANCH If »*•»! 00102 44 00000 OtIOO 

PMYtHfll/UIHU) 00114 HI. OOOtN OOOM 
00124 J4 0002M 000-1 

•RANCH If UOff IHf IMITi BV OgftMIYION 

0013B M4 00220 OSIOO 

00190 -0 OOOIR 00*04 
00142 00 00079 OOOIM 
N*X| 00174 OL 000T9 OOOON 



in 



PAGE 2 



03040 


FSU8 




ft»Yl~M«X& 


00166 


-2 00028 


00079 


03090 CXIT 


ft* 


• 1 • 


IXIT 


00196 


42 00000 


00000 


03060 


D0R6 






00200 






03070* 














03080 CRFLAC 


TFN 


SL0PE-6»C0INC.« 


Sf? SWITCH 1M0ICAT1MG 


f QUALITY 












00200 


JO 00106 


-0256 


03090 


ft 


MOVE XI 




00212 


M9 00078 


00000 


03100 


OORG 






00220 






03U0* 














03120 VERl 


TFL 


MA0DR,l.0E46,6, 


SCt H-1.0E46 


00220 


-0 0002M 


00281 


03130 


TFL 


BADDA,M1.E46,6 




00232 


-0 00028 


00291 


03MO 


FMUL 


6A0OArX2ADOR,6llt 


6— 1«0S46*I2 


00244 


-I 00028 


000 IN 


03190 


18 


t ♦ • 


tXtT 


00296 


42 00000 


00000 


03160 


00*6 


•-9 




00298 






03170* 














03160 GOING 


TOM 


FLAG,*4t 


SIT 6M,«, POINTS AMI 


COINCIDENT 










06f86 


41 000ft* 


00000 


03190 


DC 


lt»t* 




00269 


0000 1 




03200 


86 


• • t 


ixit 


00270 


42 00000 


00000 


04010 


DORG 


*-9 




00272 






04020* 














04030 


OC 


8*10000000 




00279 


00008 




04040 1.0E46 


OC 


2,49 




00281 


00002 




0*050 


DC 


6* -10000000 




00289 


00008 




0*060 Ml. EM 


OC 


2t49 




00291 


00002 




04070* 














04080 DELTAY 


OS 


•MADDR 




00024 


00000 




04090 DELTAX 


OS 


• ft ADD*. 




00029 


00000 




04100 TEMP 


OS 


10,79 




00079 


00010 




04110 FLAG 


OS 


I, DELTAV 




00024 


00001 




04120 


OENO 


LCN0N1 




00030 







SYMBOL TABLE 

SCELM2 000098 SCELMl 000048 OPCOOE 000198 MAX IF 00016R NINlf 000168 
HO VI 000766 M0V2 000648 SCFUH 000146 TEST 000928 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
Oil 10* 
01120* 
01130* 
01140* 
01150 

01160 SCELMl 
01170 SCELM2 
01180 SCFUN 



01200* 
02010* 
02020 NIM1P 

02030 
02040 

02090 TEST 

02060* 

02070 M0V2 

02080 

02090 

02100* 

02110 NOVl 

02120 

02130* 

02140 MAX If 

02190 



IBM 1620-1311 AO- APT FUNCTION SUBPROGRAM FOR SELECTING 
THE SMALLER OR LARGER OF TWO FLOATING-POINT SCALARS 

ACS 

•NAME SELECT... ERASABLE SYSTEM SUBPROGRAM 
•10 NUMBER O213*OEL0IN 
•ASSEMBLE RELOCATABLE 
•STORE RELOAOABLE 
LINKAGE - 6T MIN1F,0SAL8L+Ut6 
8T NAXlF,0SAL6L*llt6 
OSALBL IS ADDRESS OF SCALAR ELEMENT I 
DSALBL+5 IS ADDRESS OF SCALAR ELEMENT 2 
DSALBL+10 IS AODRESS OF SCALAR FUNCTION 
DSALBL'll IS OP-CODE DIGIT... 6 (MIN1F), 7 IMAXIF1 



16.0 
5»*-llt 
5,*-6# 
5.*-l* 



01190 OPCOOE OS It*. 



00015 00016 

AO DRESSES OF 00004 00009 

SCALAR ELEMENTS 00009 00005 

AODRESS OF SCALAR FUNCTION 

00014 00005 
LOW-ORDER OP-COOE DIGIT 

00015 00001 



SUBPROGRAM ENTRY 



TO TEST* I i OPCODE ,» 

TFL SCFUNtSCELM2«6U 
FSU8 SCFUN»SCELMl 9 611t 
NOP M0Vl,&300,t 

TFL SCFUN,SCELN2.6ll 

88 t*t 

DORG 



SET 4* 161) OR 47 (ftNl) OP CODES 

00016 KN 00053 00015 

00028 -0 000 IN OQOOR 

00040 -X 000 IM OOOON 

00092 Ml 00076 01300 



SCCLM2-SCELM1 

t VAX I ABLE OP C00E1 



TFL 
OSC 



SCFUN.SCELNl.6ll 
2,42,, 



EXIT 



EXIT 



0$ tNINlF 
D€NO MINI? 



00064 -0 000 IN 00006 
00076 42 00000 00000 
00078 

00076 -0 000 IN OOOON 
00090 00002 

00016 00000 
00016 



131 



symbol table 



NORMLN 00030ft NIW1.0 00235ft AOCCCN 00029ft 8 00019* H 00014ft 

NVERT 00066* VERT 00186ft XN 00024ft XO 00004ft YN 00029ft 
VO 00009ft 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 
OHIO* 
01120* 
01130* 
01140* 
01150* 



IBM 1620-1311 AD- APT SUBPROGRAM FOR PROJECTING A POINT 
TO A GIVEN LINE. NORMAL TO THE LINE 

IICS 

•NAME NORMLN... ERASABLE SYSTEM SUBPROGRAM 
•ID NUMBER 0214*DEL0IM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT NORMLN. 0SAL6L+25 .6 

DSALBL IS ADDRESS OP ^COORDINATE OP EXTERNAL PT 
DSAL8L*5 IS ADDRESS OF V-COOROINATE OF EXTERNAL PT 
DSALBL*10 IS ADORESS OF SLOPE OF LINE 
DSALBL*15 IS AOORESS OF Y-1NTEACEPT OF LINE 
DSALBL*20 IS ADDRESS OF X-COOROINATE OF PT ON LINE 
DSALBL+25 tS ADORESS OF Y-COOROINATE OF PT ON LINE 



01160 AOOCON 


oc 


30 f 




00029 


00030 




01170 XO 


OS 


5,ADDC0N-25, 


ADDRESSES OF X AND Y-COORO INATES OF 




01180 YO 








00004 


00005 




OS 


5tX0*5» 


POINT EXTERNAL TO 


LINE 

00009 


00005 




01190 M 


DS 


5»Y0*5» 


AOORESS OF SLOPE 


00014 


00005 




01200 B 


DS 


5#M*3t 


AOORESS OF V- INTERCEPT 














00019 


00005 




02010 XN 


OS - 


5, 6*5, 


ADDRESSES OP X ANC 


> V-COOROINATES OP 












00024 


OOOOf 




02020 YN 


OS 


StXN*St 


POINT ON THE LINE 


00029 


00005 




02030* 












02040* 




SUBPROGRAM 


ENTRY 








02050 NORMLN 


TFL 


YN.Y0.6ll 




00030 


•0 0002ft 


OOOOR 


02060 


CM 


M.49.610 




00042 


J4 0001* 


000*9 


02070 


BNN 


VERT* t « 


BRANCH IF LINE IS 


VERTICAL 
00054 


M6 00168 


01300 


02060* 














02090 NVERT 


FSUB 


YN.B.611, 


YO-8 


00066 


-K 0002R 


0001R 


02100 


FMUL 


YN.M.611. 


MM YO-8 1 


00078 


-L 0002R 


0001M 


02110 


FADO 


YN.X0.6U. 


XO+M*fVO~B) 


00090 


-J 0002R 


OOOOM 


02120 


TFL 


XN.M,6ll 




00102 


-0 0002* 


0001N 


02130 


FMUL 


XN.M.611. 


M**2 


00114 


-L 0002M 


000 IN 


02140 


FSUB 


XN, MINI. 0,6, 


H**2*l.O 


00126 


-K 0002M 


00235 


02150 


FDIV 


YN»XN f 6U 




00138 


-R 0002R 


0002N 


02160 


TFL 


XN.YN.61lt 


XN»( (Y0-B)*M*X0)/<M**2*1.0) 














00150 


-0 0002M 


0002ft 


02170 


FMUL 


YN.M.6U. 


M*XN 


00162 


-L 0001R 


OOOIM 


02160 


FADO 


YN.B.611 t 


YN«M*XN*B 


00174 


»J 0002R 


ooo in 


02190 


BB 


• • t 


EXIT 


00186 


42 00000 


00000 


0220Q 


OORG 


•-9 




00168 






03010* 














03020 VERT 


TFL 


XN.B.611 




00188 


-0 0002M 


000 IR 


03030 


FDIV 


XN»M,6Ut 


B/M 


00200 


-R 0002M 


OOOIM 


03040 


FMUL 


XN, MINI. 0.6, 


-B/N 


00212 


-L OOOIM 


00235 


03050 


BB 


t • t 


exit 


00224 


41 00000 


00000 


03060 


OORG 


•-9 




00226 







03070* 

03080 OC 8,-1000 

03090 HINl.O DC 2.1 
03100 OENO NORMLN 



00233 00008 
00235 00002 
00030 



PAGE 1 



RETURN 02411 
DSA2 002 33* 
UN I TV 02416 
XH 000 ISA 
YN 00033ft 



NORMCR 00036R 
FLAG 00079 
URX 0027BR 
XN 00030R 



*VMBOL T ABLE 

HON IT* 02406 
RAO 00025R 
URV 00288R 
YCOMP 00268R 



AOOCON 00039R 
SETRM 00200R 
XCOMP 00298R 
YE 000 IOR 



0SA1 00223R 
UNIT* 00096R 
X£ 00009R 
Y* 00020R 



01010* 




IBM 1620-1311 AO-APT SUBPROGRAM FOR PROJECTING A POINT 


01020* 




TO A GIVEN CIRCLE. NORMAL TO THE CIRCLE 


01030* 






RCS 


01040* 




•NAME NORMCR... NON-ERASABLE ARELEM SUBPROGRAM 


01090* 




•ID NUMBER 0219+DELDIM 


01060* 




•ASSEMBLE 


RELOCATABLE 


01070* 




•STORE RELOADABLE 


01080* 




LINKAGE - BT 


NQRMCR,0SALBL*30,6 






II 


ABjft§|& OP K»ee@f|QiNAffi qf iKflRNH Pi 


on oo« 




OSALBL+9 I 


IS ADORE SS OP V-COOROINATE OF EXTERNAL PT 


Oil 10* 




OSALBL^IO 


IS ADDRESS OP X-COOROINATE OP CENTER 


01120* 




DSALBL+19 


IS ADDRESS OF V-COOROINATE OF CENTER 


01130* 




DSALBL+20 


IS AODRESS OF RAOIUS 


01140* 




DSALBL*29 


IS AODRESS OF X-COOROINATE OF PT ON CIRC 


01150* 




OSALBLOO 


IS AODRESS OF V-COOROINATE OF PT ON CIRC 


01160* 








01170* 




RM IN 00079 OENOTES EXTERNAL PT. AND CENTER COIMC* 


01180* 








01190 AOOCON 


DC 


36,0 


00039 00036 


01200 XE 


OS 


9 # AOOCON- 90 # 


ADDRESSES OF X AND V-COOROINATES OF 








00009 00009 


02010 YE 


OS 


9,XE+9, 


POINT EXTERNAL TO CIRCLE (POINT PEI 








00010 00009 


02020 XH 


OS 


9,YE*9# 


. ADDRESSES OF X ANO V-COOROINATES OF 








00019 00009 


02090 VK 


OS 


9,XH*9, 


CENTER OF CIRCLE fPOINT PC) 








00020 00009 


02040 RAD 


OS 


9,YK*9, 


ADORESS OF RAOIUS 00029 00009 


02050 XN 


OS 


9,RAD»9, 


ADDRESSES OF X ANO V-COORDINATES OF 








00030 00009 


02060 YN 


OS 


9,XN*9, 


POINT ON THE CIRCLE 00039 00009 


02070* 








02080* 




SUBPROGRAM ENTRY 


02090 NORMCR 


TFL 


XCOMP ,XE# 11 


00036 -0 00298 OOOON 


02100 


FSUB 


XCOMP, XH,ll» 


XCOHP-XE-XH 00048 -K 00298 0001N 


02110 


TFL 


YCOMP, YE # 1 I 


00060 -0 00268 0001- 


02120 


FSUB 


YCOMP, YK, 11, 


YC0MP«YE-VK 00072 -K 00266 0002- 


02130 


BT 


N0NITR,0SAU5#6# 


CALL UNI TV SUBPROGRAM VIA MONITR 








00084 2P 02400 00228 


02140 UNITR 


BT 


UNITV.DSA2*19,6, 


CALCULATE UNIT RADIAL VECTOR 








00096 2P 02410 00248 


02190 


BV 


SETRM, 


BRANCH IF EXTERNAL POINT AND CENTER 








00106 M6 00200 01400 


02160* 






OF CIRCLE ARE IDENTICAL POINTS 


02170 


FMUL 


URX.RAD.ll, 


URX*RAD 00120 -L 00278 0002N 


02180 


FMUL 


URY.RAD, lit 


URV«RA0 00132 -L 00288 0GO2N 


02190 


TFL 


XN.XH.61l 


00144 -0 0003- 0C01N 


02200 


TFL 


YN.YK.6ll 


00156 -0 0003N 0002- 


09010 


FAOO 


XN.URX.6. 


XN-XH4-URX*RA0 00168 -J 0003- 00278 


03020 


FADO 


YN.URY.6, 


VN«VK+URV*RAD 00180 -J 0003N 00288 



PAGE t 



03030 


B 


RETURN,, 6, 


RETURN 


TO 


MONITR 


00192 


49 0241J 00000 


03040 


DORG 


•-3 








00200 




03050* 
















03060 SETRM 


TOM 


FLAG, » • 


SET RECORO MARK*.* 


NORMAL UNOEFINABLE 














00200 


15 00079 00000 


03070 


OC 


It S* 








00211 


00001 


03080 


B 


RETURN, .6, 


RETURN 


TO 


MONITR 


00212 


49 024 1J 00000 


03090 


DORG 


•-4 








00219 




03100* 
















03110 0SA1 


OSA 


UNITR* 12 








00223 


00005 -0108 


03120 


DSC 


5,02111 








00224 


00009 


03130 


DORG 


DSAl*9*9»4-6 








00242 




03140 


NOP 


URY.O 








00242 


Ml 00286 OOOOO 




OORG 


•-21 








00232 




031 <*0 


NOP 


YCOMP, URX 








00232 


MJ 00268 0027B 


on 70 


OORG 


♦-14 








00229 




03180 0SA2 


DSA 


XCOMP 








00233 


00009 -0258 


03190 


DORG 


•♦9»4-4 








00249 




03200* 
















04010 XCOMP 


OC 


10,0 








00258 


00010 


04020 YCOMP 


OC 


10,0 








00268 


00010 


04030 URX 


OC 


10,0 








00278 


00010 


04040 URY 


OC 


10,0 








00288 


00010 


04050* 
















04060 MONITR 


OS 


,2406 








02406 


OOOOO 


04070 UN I TV 


OS 


#2416 








02416 


OOOOO 


04060 RETURN 


OS 


#2411 








02411 


OOOOO 


04090 FLAG 


OS 


#T9 








00079 


OOOOO 


04100 


OENO 


NORMCR 








00036 





133 



5£M tN6 01030ft 
NO«MlN 02*16 
CMPARE 00766ft 
BT AM 00940R 
D1STI 00960R 
DSA12 0060*R 
0SA6 0052 3R 
FCON 00039R 
MOV I 0Q858R 
SO 00930R 
XNO 00044R 
YE 00009ft 
21 NT 006S8R 



L0E48 


06085 


NORMCN 


00050R 


ADOCON 


00049R 


CCON 


00024R 


0IST2 


00940R 


0SA2 


O0377R 


DSA6 


00549R 


FLAG 


00079 


M0V2 


007 1 8R 


SI 


00960R 


XNl 


00970ft 


VNO 


000*9* 



SYMBOL TABLE 

SELECT 00706R 

MONITR 02*06 

ACCN 000 19R 

CCNV 02411 

0SA1 00337R 

DSA3 00*07R 

0SA9 00574R 

ITER 008 14R 

MTAN 00960R 

TEMP 00950R 

XI 00990ft 

VNI 00980ft 



RETURN 02*11 
LINCON 02*16 
BCCN 000 t*R 
OCCN 00034R 
DSA10 00584ft 
0SA4 00437R 
OYOX 02416 
LNOEF 00610R 
NOINT 00902R 
TESTl 00890ft 
X2 01010R 
VI 01000ft 



P6«PN1 0O326R 
LCNONt 02416 
BORTH 00 9* OR 
DISTF 02416 
DSA 11 00594R 
0SA5 00497R 
ECON 00029R 
WORTH 00960R 
SLOPE 00194R 
XE 00004R 
YCERT 00242R 
V2 01020R 



01010* 




1»N 1620-1311 AO 


i- APT SUBPROGRAM FOR PROJECTING A POINT 


01020* 






TO A GIVEN GENERAL CONICt NORMAL tO THE CONIC 


01030* 








RCS 


01040* 






•NAME NORMCN... NON-ERASABLE ARELEM SUBPROGRAM 


01050* 






•10 NUMBER 


! 0216*DELD!M 


01060* 






•ASSEMBLE 


RELOCATABLE 


01070* 






•STORE RELOADABLE 


01080* 






LINKAGE - BT 


NORMCN, 0SALBL*45»6 


01090* 






OSALBL IS 


ADDRESS OF X-COORDINATE OF EXTERNAL PT 


01100* 






DSALBL+5 IS ADDRESS OF V-COOROINATE OF EXTERNAL PT 


01 1 10* 






DSALBL+10 


IS ADDRESS OF 8-COEPFICIENT OF CONIC 


Oil 20* 






0SALBL+15 


IS ADORESS OF A-COEFFICIENT OF CONIC 


Oil 30* 






DSALBL+20 


IS ADORESS OF C-COEFFICIENT OF CONIC 


01140* 






0SALBL*2S 


IS ADDRESS OF E-COEFFICIENT OF CONIC 


Oil 50* 






DSALBL+30 


IS AODRESS OF 0-COEFF ICI ENT OF CONIC 


01160* 






0SAL8L*35 


IS ADDRESS OF F-COEFFICIENT OF C0NI(f 


Oil 70* 






DSALBL+40 


IS ADORESS OF X-COORDINATE PT ON CONIC 


01180* 






DSALBL+49 


IS ADDRESS OF Y-COORDINATE PT ON CONIC 


01190* 










01200 AODCON 


DC 


50 


»o 


000*9 00050 


02010 XE 


DS 


5, 


AODCON-45* 


ADDRESSES OF X AND Y-COORDINATES OF 










00004 00005 


02020 YE 


OS 


5* 


XE*5, 


POINT EXTERNAL TO CONIC (POINT PE) 










00009 00005. 


020 30 BCON 


DS 


5» 


YE + 5, 


ADDRESS OF B-COEFFICIENT (CONIC) 










00014 00005- 


02040 ACON 


OS 


5» 


BC0N*5t 


AODRESS OF A-COEFF ICIENT ICONIC) , 










00019 00005, 


02050 CCON 


OS 


5t 


AC0N+5« 


ADDRESS OF C-COEFPICIENT ICONIC! 










00024 00005 


02060 ECON 


OS 


*• 


CC0N*5 t 


ADORESS OF E-COEFFICIENT ICONIC) 










00029 00005 


02070 OCON I 


OS 


5. 


EC0N*5t 


ADDRESS OF D-COEFFICICNT ICONIC) 










00034 00005 


02080 FCON 


OS 


5. 


DC0N»5i 


ADDRESS OF F-COEFFICIENT ICONIC) 










00039 00005 


02090 XNO 


DS 


5t 


FC0N*5, 


AOORESSES OF X AND Y-COORDINATES OF 










00044 00005' 


02100 YNO 


OS 


5, 


XNO* 5, 


POINT ON THE CONIC (POINT PNO) 










00049 00005 


02110* 




••IT IS ASSUMED THAT POINT PNO CONSTITUTES A 6000 GUESS** 


02120* 











02130* 




SUBPROGRAM 


02140 


NORMCN 


TFL 


SO, 1.0E48 


02150 




TF 


DSA2*5,YE.t 


02160 




TF 


DSA3*5,YE 


02170 




SF 


XN0-4 


02180 




TF 


0SAl+5,YN0 


02190 




SF 


BCON-4 


02200 




TF 


OSAl+30tOC0N 


03010 




CF 


0SAi*6 


03020 




TF 


0SA4*15»PC0N 


03C30 




CP 


0SA4*4 


0)040 




TP 


D$A8*9»VNO 


03050 




ftTM 


MONiTftt020SOt*7t 


01060 


SLOP! 


at 


0Y0Xt0SAl*S9t6t 


03070 




TFL 


BTANv YNOt 1 1 


03080 




TFL 


TEMP, MTAN 


03090 




FMUL 


TE«P, XNO, 11 


03100 


VCiPT 


FSUft 


BTANt TEMPt t 


03110 




HTM 


M0N!TRt02140t67t 


03120 




BT 


N0RMLN,DSA2*29,4t 


03130 




BTM 


MONITRt02120«67t 


03140 




BT 


LCNONltOSAl*29t6t 


03150 




TO 


FLAGtMORTH 


03160 




BNR 


LNOEF «PL AC, • 


03170* 






0)180 


PE-PNl 


B 


RETURN, ,4, 


03190 




OORG 


«~4»9*B-4-l 


03200* 






04010 




NOP 


MTANtO 


04020 




00ft G 


•-21 


04010 




NOP 


OtO 


04040 




OORG 


*-2l 


04050 




NOP 


0,0 


04040 




DORG 


•-21 


04070 




NOP 


OtO 


04080 




OORG 


*-l4 


04090 


0SA1 


DSA 





04100 




OORG 


•♦5*8-4*§»4-4-l 


04110 




NOP 


YN1«0 


04120 




OORG 


•-21 


04110 




NOP 


•TAN»XNI 


04140 




OORG 


•-21 


04 ISO 




NOP 


0,MTAN 


04160 




DORG 


••14 


04170 


0SA2 


OSA 





04110 




OORG 


«*5e 6-4* 9*6-6-1 


04190 




NOP 


BORTHtO 


04200 




OORG 


•-21 


05010 




NOP 


YN i* NORTH 


05020 




OORG 


•-21 


09030 




NOP 


OtXNI 



ENTRY 

00050 -6 00930 06085 

SET DSA AOORESSES AS REQUIRED 

00062 KO 00382 00009 
0007* KO 00*12 00009 
00086 L2 00040 00000 
00098 KO 00342 00049 
00110 L2 00010 00000 
00122 KO 00367 00034 
00134 L3 00341 00000 
00146 KO 00472 00019 
00158 LI 00**3 00000 
00170 KO 0051* 00049 

CALL OYOX SUBPROGRAM VIA MONITR 

00182 17 02400 -2080 

CALCULATE SLOPE OP CONIC AT POINT PNO 

0019* 2P 02410 00172 
00204 -0 00940 0004R 
00218 -0 00950 00960 
00230 -L 00950 000** 

8TAN»YN0-MTAN*XN0 00242 -K 00940 00990 

CALL NORMLN SUBPROGRAM VIA MONITR 

00254 17 02400 -2140 

PROJECT POINT Pi TO TANGENT LINE IPNl) 

00266 2P 02410 00402 

CALL LCN0N1 SUBPROGRAM VIA MONITR 

00278 17 02400 -2120 

DEFINE LINE PASSING THRU PTS. PC ANO PNl 

00290 2P 02410 00412 
00302 2N 00079 00940 

BRANCH IP LINE Of FINABLE 

00314 M9 00610 00079 

RETURN* «• GUfSS VALUE INACCURATE 

00324 49 024IJ 00000 
00144 

00344 Ml 00940 00000 
00394 

00194 41 00000 00000 
00144 

00344 41 00000 00000 
00114 

00114 41 00000 00000 
00111 

00 SIT OOOOS -0000 
00194 

00194 Ml 00980 00000 
00184 

00184 MJ 00940 00970 

00174 

00174 4J 00000 00940 
00173 

00377 00009 -0000 
00424 

00424 Ml 00940 00000 
00414 

00414 MJ 00980 00940 
00404 

00406 44 00000 OOffO 



134 



05040 


DORG 


•-14 










00403 




05050 0SA3 


OSA 













00407 


00005 -0000 


05060 


OOAO 


•♦5»6-4*S*12»6*l 










00486 




05070 


NOP 


Y2,0 










00486 


Ml 01020 00000 


05000 


00* G 


•-21 










00476 


05090 


NOP 


Yl,X2 










00476 


MJ 01000 01010 


05100 


DORG 


•-21 














05110 


NOP 


0»XI 










.00466 


4J 00000 00990 


05120 


DORG 


•-21 










00456 




05130 


NOP 


0»0 










00456 


41 00000 00000 


05140 


OORG 


•-21 










00446 




05150 


NOP 


OtO 










00446 


41 00000 00000 


05160 


DOftG 


•-21 














05170 


NOP 


BORTHtO 










ma?*!. 


III nAdlA ItAAAA 


05180 


OCRG 


•** 14 










00433 




05190 0SA4 


OSA 


NORTH 










00437 


00005 -0960 


05200 


DORG 


•♦5*1 7-~4*&«ft~l Ul 










00506 


06010 


NOP 


VI »OI$Vl 










00506 


III Al AAA hA*4A 
fil III WWII WW 


06020 


DORG 


•-21 












06030 


NOP 


YNlfXl 










00496 


MJ 00980 00990 


06040 


DORG 


•-14 










00493 




06050 DSA5 


OSA 


XN1 










00497 


00005 —0970 


06060 


DORG 


»>5*5-4*S*9-U 










00532 


060 70 


NOP 


Y2tOIST2 










00532 


MJ 01020 00940 


06080 


DORG 


•-21 










00522 




06090 


NOP 


YNl t X2 










00522 


MJ 00900 01010 


06100 


OORG 


•-14 










005 19 


06110 0SA6 


OSA 


XN1 










00523 


00005 -0970 


06120 


DORG 


•• 5* 5-4*9*9* 11 










00558 




061 30 


NOP 


YNltSl 










00558 


MJ 00980 00960 


06140 


OORG 


•-21 










00548 




06150 


NOP 


Of XN1 










00548 


4J 00000 00970 


06160 


OORG 


•-14 










00545 




06170 0SA8 


OSA 













00549 


0AAA4 oOAAA 
WW? www 


06180 


DORG 


•♦5»5-4 










0057O 




06190 0SA9 


OSA 


2INT-24 










00574 


nnnni ~aa14 


06200 


DSC 


5,02091 










00575 




07010 OSA10 


DSA 


21 NT* 12 










00984 


UUUU3 — UOIU 


07020 


OSC 


5*02101 










00585 


00005 


07030 OSAU 


OSA 


SELECT-12 










001594 


00005 -0694 


07040 


OSC 


5*02101 










00595 


00005 


07050 DSA12 


DSA 


CMPARE 










00604 


00005 -0766 


07060 


OSC 


5*02101 










00605 


00005 


07070* 


















07080 LNOEF 


BT 


M0NITR«DSA9*S,6, 


CALL 


LINCON SUBPROGRAM VIA MONITR 
















00610 


2P 02400 00579 


07090 


8T 


LINC0N,DSA4*55 V 6, 


OETERMINE 


INTERSECTION OF LINE AND CONIC 
















00622 


2P 02410 00492 


07100 


BNR 


TF5TI .FL AC. . 


BRANCH IF 


2 INTERSECTIONS DO NOT EXIST 
















00634 


M5 00890 00079 


071 10* 
















07120 


BT 


HON I TR»DSA10*5»6» 


CALL 


OISTF 


SUBPROGRAM 


VIA MONITR 
















00646 


2P 02400 00589 


07130 2 INT 


BT 


DISTF,0SA5*20,6, 


CALCULATE 


DIST. 


BETWEEN PTS« 


. PNl ANO PI 
















00658 


2P 02410 00517 


07140 


BT 


M0NITR,0SA11»S,6, 


CALL 


D1STF 


SUBPROGRAM 


VIA MONITR 
















00670 2P 02400 00599 


07150 


BT 


DISTF,0SA6«20,6, 


CALCULATE 


01ST. 


BETWEEN PTS. 


. PNl ANO P2 
















00682 


2P 02410 00543 


07160 


FSUB 


0ISTl,0fST2 










00694 


~K 00960 00940 



07170 SELECT BNP MOVl,,» 
07180* 

07190 M0V2 TFL XNl»X2tt 

07200 TFL YNI.Y2 

08010 BT MONITR, DSA12+5, 6, 



08020 



BT DISTF,DSA8*20,6, 



08030 CMPARE FSUB S0,Sl», 
08040 CF S0-2,«» 

08050 FSUB S0*5EMIN6 

08060 BNP C0NV,»6, 



08070* 

08080 ITER 

08090 

08100 

08110 

08120 

08130* 

08 I 40 MOV I 

08150 

08160 

08170 

08180* 

08190 TEST1 



TFL SO, SI,, 
TFL -XN0,XN1,6, 
TFL YN0,YNl,6, 
B SLOPE-12 
DORG »-3 

TFL XNltXltt 
TFL YNl«Yl 
B CMPARE-24 
OORG *~3 

BO MOVl,FLAG,, 



08200* 

09010 NOINT TDM FLAG,,, 

09020 DC It'.* 

09030 B RETURN,, 6, 



09040 
09050* 
09060 SO 
09070 BTAN 
09080 TEMP 
09090 NORTH 
09100 XN1 
09110 YNl 
09120 XI 
09130 VI 
09140 X2 
09150 Y2 
09160 

09170 5EMIN6 
09180* 

09190 1.0E48 
09200 OYOX 
100 10 NORMLM 
10020 LCK0N1 
10010 FLAG 
10040 MTAN 
10050 BORTH 
10O60 01 STt 
IGO70 01ST2 
10000 SI 
10090 LINCON 
lOt 00 OISTF 



DORG *-4 



10,0 
10*0 
10,0 
10,0 
lOtO 
10,0 
10,0 
10,0 
10,0 
lOtO 

8.50000000 
2.-9 

• 6069 
,2416 
•241* 

• 241* 
WT9 
tMOHTH 
•STAN 
•«0*TM 
•SOUTH 
•OISTI ' 
,2414 
,2416 



BRANCH IF POINT PI IS CLOSER 

OOT06 M7 00858 01100 

POINT P2 IS CLOSER O0T18 -0 00970 01010 

00730 -0 00980 01020 
CALL DISTF SUBPROGRAM VIA MONITR 

O0T42 2P 02400 00609 
CALCULATE DIST. BETWEEN PTS. PNl ANO PNO 

00744 2P 02410 00569 
SO-SO- SI 007i66 -K 00930 00960 

ABSF(SO-Sl) 00778 L3 00928 00000 

00790 -K 00930 01030 
BRANCH IF 5EMIN6 EXCEEDS ABSF ISO-SI) 

00802 47 0241 J 01100 



PAGE 



S0-S1 

XN0*XN1 

YN0*YN1 



POINT PI IS CLOSER 



00814 -0 00930 00960 
00826 -0 0004M 00970 
00838 -0 0004R 00980 
00850 M9 00182 00000 
00858 

00858 -0 00970 00990 
00870-0 00980 01000 
00882 M9 00742 00000 
00890 



BRANCH IF 1 INTERSECTION EXISTS 

00890 M3 00858 00079 

SET RM 00902 15 00079 00000 

00913 0000 I 
RETURN* GUESS VALUE INACCURATE 

00914 49 0241 J 00000 
00921 



00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01028 
01030 

06085 
02416 
02416 
02416 
00079 
00960 
00940 
00960 
00940 
009*0 
02416 
02410 



00010 
00010 
00010 
00010 
00010 
000 10 
00010 
00010 
00010 
00010 
60000 
00002 

00000 
00000 
00000 
00000 
00001 
00000 
00000 
00000 
00000 
00000 
00000 



135 



lOUO COMV 0$ ,2411 

10120 MONITft OS #2406 

101)0 HE TURN OS ,2411 

10140 OfNO NORNCN 



PACE 



02411 00000 
02406 00000 
02411 00000 
00040 











SYMBOL 


TABLE 










3R00TS 


00392R 


2XR00T 


01820R 


2UNEEK 


01178R 


2R00TS 


01210R 


T3CALC 


00704R 


T2CALC 


00716R 


T1CALC 


00728R 


T-FOFS 


00800R 


S2CALC 


Oil 9 OR 


SICALC 


01636R 


RETURN 


02411 


RE F ADO 


00830R 


MONITR 


02406 


NlNi.O 


01740R 


HIN0.5 


01780R 


LNCU8E 


0Q096R 


CUBRTF 


01264R 


AOOCON 


00049R 


A*0 


01380R 


ACUBE 


000 15R 


ANOTZ 


00128R 


ARC 


01298R 


ATANF 


02416 


A3/27 


01830R 


B«0 


01692R 


BCUBE 


00020R 


8N0TZ 


01416R 


BSQ/4 


01810R 


BST 


000 10R 


CAPA 


01830R 


CAPB 


01820R 


CBRTA 


01026R 


C8RTB 


01062R 


CCUBE 


00025R 


CMINM 


01790R 


COSF 


02421 


0SA1 


00763R 


0SA2 


00779R 


0SA3 


00789R 


EXAOO 


01263R 


EXPF 


02416 


FLAG 


00019 


Ft ACT 


00403R 


FLAGO 


01544R 


HP/EI 


00898R 


LOGF 


02416 


NST 


00009R 


NOTO 


01S32R 


NVERT 


00978R 


P 


01 BOOR 


P/3 


01800R 


PHI 


0U10R 


PHI/3 


01810R 


Q 


01790R 


Q/2 


01790R 


0/3 


01820R 


It 


oiaiOR 


R/2 


018L0R 


SI 


00799R 


SIGN 


01358R 


SIGNF 


01348R 


sua n 


01820R 


SHB/2 


01790R 


SQRTA 


01810R 


SQRTF 


02416 


SI 


00030R 


S2 


00040R 


S3 


00050R 


TEMP 


01B30R 


TENPP 


01840R 


Tl 


00039R 


T2 


00049R 


T3 


00099R 


VERT 


009 34R 


0.9 


01760R 


1/3 


01750R 


1INT 


0H58R 


1REAL 


01524R 


1R00T 


009 10R 


2 INT 


0U34R 


2PI/3 


01T70R 


2 REAL 


01S64R 


2XB 


01800ft 


3INT 


00692R 


4XB 


01840ft 



01010* 
01020* 
01030* 
01040* 
01090* 
01060* 
01070* 
01080* 
01090* 
01100* 
OHIO* 
01120* 
01130* 
01140* 
01190* 
01160* 
01170* 
01160* 
Oil SO* 
01200* 
02010* 
02020* 
02030* 
02040 AOOCON DC 



IBM 1620*1311 AO— APT SUBPROGRAM FOR DETERMINING 
THE INTERSECTIONS OF A LINE AND A CUBIC 



02090 
02060 MST 



net 



•NAME LNCUftE.** NON-ERASABLE SYSTEM SUBPROGRAM 
•10 NUMBER 0217+OELDIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - IT LNCUBE,0$AL8L*90 f A 

0SAL8L IS AODRESS OP SLOPE OF LINE (S-T SYSTEM} 
0$ALBL*9 IS ADDRESS T-INTERCEPT LINE (S-T SYSTEM! 
0SAL8L*10 IS AODRESS OF A-COSFFICIENT ICUBIC) 
OSALBL+19 IS AODRESS OF B-COEPFICIENT tCUBICl 
DSALBL+20 IS AODRESS OF C-COEPFICIENT (CUBIC) 
0SAL8L«29 IS ADDRESS OF S-COOROINATE (POINT 11 
OSALftL*>0 IS ADDRESS OF T-COORDINATE (POINT 1) 
0SALBL*1S IS AODRESS OF S-COORDINATE (POINT 21 
0SALBL*40 IS AODRESS OF T-COOROINATE (POINT 21 
0SALBL*49 IS ADDRESS OF S-COOROINATE (POINT II 
DSALBL+9Q IS ADDRESS OF T-COOROINATE (POINT 31 

•NUMBER OF INTERSECTIONS INDICATED BY 2-DIGIT 
FIELD IN COAE POSITIONS 000 18-000 19 



DC 
0$ 



02070 BSf OS 

02080 ACUBE 0$ 

02090 BCUBE OS 

02100 CCUBE OS 
02110 SI 
02120 Tl 



OS 
OS 



90.0 
6,0 

9tAOOC0N-44« 
9 t MST»9t 

5, asm, 

9fACUBE*9t 

9t0CU8E*9« 
9tCCU8E*9« 
9«S1«9, 



00049 00090 
00099 00006 
AOORESSES OF SLOPE AND T-INTERCEPT 

00009 00009 

OF LINE (LOCAL S-T REFERENCE SYSTEM! 

00010 00009 

AOORESSES OF A— COEFFICIENT (CUBIC) 

00019 00009 
ADDRESSES OP B-C0EFPIC1ENT (CUBIC! 

00020 00009 

AOORESSES OF C-COEFFICIENT (CUBIC) 

00029 00009 

AOORESS OP S-COOROINATE (POINf 1! 

00030 00009 
AOORESS OF T-COOROINATE (POINT It 



136 



000 35 00005 

02110 S2 OS 5, U + ADDRESS OF S-C00RDlNAf€ (POINT 2) 

00040 00005 

02140 T2 0$ 5«S2+5, ADDRESS OP T~COORDlNAf£ (POINT 2f 

00045 00005 

02150 $3 OS 5«Y2*4. AO DRESS OF S-COORDINATE (POINT 3) 

00050 00005 

02160 TJ OS 5,S3+5# ADDRESS OF f -COORDINATE ( POINT 31 

00055 00005 

02170* 



02100* 




Subprogram 


ENTRY 






02190 LNCU6E 


TFM 


FLAGT, 1,10, 


ASSUME ONE INTERSECTION EXISTS 












00056 J6 


00403 


000- I 


02200 


TFL 


CMINM,CCUBE»U 


00060 -0 


01790 


0002N 


03010 r 


FSUB 


CMINM.HST, 11, 


CM1NM-C-MST 00080 -K 


01790 


OOOON 


03020 


TFL 


P.BCUBE.U 


00092 -0 


01800 


0002- 


03030 


FDIV 


PtACUBE»ll« 


P"B/A 00104 -R 


01800 


000 IN 


03040 


BV 


A*0»»» 


BRANCH IF A-COEFF ICIENT IS *ERO 










00116 M6 


01380 


01400 












03060 ANQTI 


FBI V 


CMINM,A£UBit 11* 


Q*CHINM/A 00126 -R 


01790 


6001N 


03070 


TFL 


R.BST, 11 


00140 -0 


01810 


0001- 


03060 


FDIV 


H» ACUBE, lit 


R-BST/A 00152 -R 


01810 


0001N 


03090 


FMUL 


R,MIN1.0«t 


R— BST/A 00164 -L 


01810 


01740 


03100 


TFL 


Q/3rQ 


00176 -0 


01820 


01790 


031 10 


FMUL 


Q/3t l/3t t 


Q/3.0 00188 -L 


01820 


01750 


031 20 


FMUt 


**• 1/3, » 


P/3.0 00200 -L 


01800 


01750 


031 30 


TFL 


TEMPtP/3 


00212 -0 


01830 


01800 


03140 


FMUL 


TEMP,P/3, , 


P**2/9.0 00224 -L 


01830 


01600 


03150 


FSUB 


Q/3, TEMPf » 


SMA/3«Q/3.0-P**2/9.0 00236 -K 


01820 


01830 


031 60 


FHUL 


Q»0.5» » 


Q/2.0 00248 -L 


01790 


01760 


031 70 


FSUB 


Q/2t TEMPt t 


Q/2.0-P**2/9.0 00260 -K 


01790 


01830 


031 80 


FMUL 


Q/2f P/3t • 


P/3.0* IQ/2.0-P**2/9.0) 












00272 -L 


01790 


01800 


03190 


FMUL 


R»0.5» t 


R/2.0 00204 -L 


01810 


01760 


03200 


FSUB 


Q/2»R/2» « 


*M8/2»P/3.0*(Q/2.0-P**2/9.0I-R/2.0 










00296 -K 


01790 


OIBIO 


040 10 


TFL 


8SQ/4, SMB/2 


00306 -0 


01810 


01790 


04020 


FMUL 


BSQ/4»SMB/2» , 


SMB«*2/4.0 00320 -L 


01810 


01790 


04030 


TFL 


A3/27tSMA/3 


00332 -0 


01830 


01820 


04040 


FMUL 


A3/27, SMA/3,, 


SMA**2/9.0 00344 -L 


01830 


01820 


04050 


FMUL 


A3/27*SMA/3* t 


SMA. •3/27.0 00356 -L 


01830 


01820 


04060 


FADO 


BSQ/4tA3/27tt 


SQRTA"SMB**2/4.0*SMA*«3/27.0 












00368 -J 


01810 


18 30 


04070 


QNN 


MP/EZ,,, 


BRANCH IF RESULT NOT NEGATIVE 












00380 M6 


00898 


01300 


04060* 












04090 3R00TS 


CF 


SQRTA-2, t » 


ABSF ( SORT A ) 00392 L3 


01808 


COOOO 


04100 


BTM 


MONITR, 02000, 67, 


CALL SORTF SUBROUTINE VIA MONITR 






BTM 




00404 17 


02400 


-2000 


04110 


SQRTF ,.SQRTA, 67* 


SQRTF ( ABSF I SORT A) I 00416 IP 


02410 


-1810 


04120 


BTM 


MONITR, 02020, 67, 


CALL ATANF SUBROUTINE VIA MONITR 










00428 17 


02400 


-2020 


04130 


BT 


ATANF,DSAl+10»6t 


CALCULATE PHI 00440 2P 


02410 


00773 


04140 


FMUL 


PHI, 1/3,, 


PHI/3.0 00452 -L 


01810 


01750 


04150 


CF 


5MA/3,,, 


ABSF (SMA/3) 00464 L3 


01820 


00000 


04160 


BTM 


MONITR, 02000, 67, 


CALL SQRTF SUBROUTINE VIA MONITR 










00476 17 


02400 


-2000 


04170 


BTM 


SQRTF,SMA/3,67» 


S0RTF(ABSF(SMA/3)I 00488 IP 


02410 


-1820 



04180 FAOO 2XR00T, SMA/3,, 2.0*SQRTF I ABSF I SMA/3 H 



04190 




TFL 


04200 




BTM 


05010 




BTM 


05020 




FMUL 


05030 




FSUB 


05040 




FAOP 


05050 




TFL 


05060 




8TM 


05070 




FMUL 


05080 




FSUB 


05090 




FAOO 


05100 




BTM 


05110 




TFL 


05120 




FMUL 


05130 




FSUB 


05140 


3INT 


TOM 


05150 


T3CALC 


BTM 


05160 


T2CALC 


BTM 


05170 


T1CALC 


BTM 


05180 




TF 


05190 




B 


05200 




OORG 


06010* 




06020 




NOP 


06030 




OORG 


06040 


0SA1 


OSA 


06050 




DORG 


06060 




NOP 


06070 




OORG 


06080 


0SA2 


OSA 


06090 




DORG 


06100 




NOP 


06110 




OORG 


06120 


DSA3 


OSA 


06130 




OORG 


06140* 




06150 


SI 


OS 


06160 


T-FOFS 


TF 


06170 




SM 


06180 




TFL 


06190 


Rf FAOO 


OS 


06200 




FMUL 


07010 




FAOO 


07020 




FMUL 


07030 




FAOO 


07040 




FMUL 


07050 




BB 


07060 




OORG 


07070* 





SI, PHI/3, 6 

MONI TR, 02010, 67, 



C0SF,Sl,67ll t 



S2, PHI/3, 6 
C0SF.S2.67ll, 



FMUL S2,2XRO0T,6, 2.0* 



COSF, PHI/3, 67, 



S3, PHI/3. 6 



FLAGT , 3, , 

T-F0FStS3,711, 
T-FOFS,S2#7llf 
T«F0FSfSU7llt 
FLAG, FLAGT,, 

RETURN, ,6, 



00500 -J 
00512 -0 
CALL SINF-COSF SUBROUTINE VIA 
00524 17 

C0SF(PHI/3.0) 00536 IP 

2. 0»SQRTF (ABSF ( SMA/3 n«COSF(PH 
00548 -L 

51 00560 -K 
PHI/3. 0*2. 0»PI/3.0 00572 -J 

00584 -0 
COSFIPHI/3.042.0*PI/3«0) 

00596 IP 

SQRTF (ABSF (SMA/3 >) •COSF (PHI /3. 0*2 
00608 -L 

52 00620 -K 
PHI/3. 0*4 »0»PI/3.0 00632 -J 
C0SF|PHI/3.0*4.0*PI/3«0) 

00644 IP 
00656 -0 

SQRTF t ABSF (SMA/3 1 )*C0SF(PMI/3.0»4 
00668 -L 

53 00680 -K 
THREE UNIQUE INTERSECTIONS EX1 

00692 J5 

T3»S3*f S3*(A»S3*BI*CI 00704 JP 
T2«S2*IS2*IA«S2*B)*C> 00716 JP 
T1»S1*( Sl*IA»Sl*B)*C» 00728 JP 
MOVE NUMBER OF INTERSECTIONS 

00740 20 

RETURN 10 MONITR 00752 49 

00762 



01820 01820 
0003- 01810 
MONITR 
02400 -2010 
0242J -003- 
1/3.0* 
0003- 01820 

0003- 01800 
01810 01T70 

0004- 01810 

0242J -004- 
•0*P!/3.0> 
0004- 01820 
0004- 01800 
01810 01770 



•♦30»*-l 
•♦18,5,10 
•ACUBE ,11, 



0242J 
0005- 
.0*PI/ 

0005- 
0005- 
ST 
00403 
00800 
00800 
00800 



-1810 
01810 
3.01 
01820 
01800 

00003 
-005- 
-004- 
-003- 



00019 00403 
024 1 J 00000 



00762 MJ 01810 01810 

00759 

00763 00005 -1790 
00778 

00778 Ml 01038 00000 
0077* 

00779 00005 -1830 
00788 

00788 Ml 01074 00000 
00785 

00789 00005 -1820 
00795 

NEGATIVE ADDRESS OF St 

00799 00005 

00600 KO 00630 00799 

00812 J2 00830 000-5 

TI-* 00824 00 00000 0001N 

NEGATIVE AOORESS OF TI 

00830 00000 
Tt«A*S! 00836 -L 0083- 0079R 

T!*A*$!*S 00648 •J 0083- 0002- 

Tl»SS*(A*SI*6) 00860 -L 0083- 0079R 

TS«S!*f A«S!*8t*C 00872 -J 0083- 0002N 

T!«$|*tSI*U*S!*§}*C! 00884 -L 0083- 0079R 
f KIT 00896 42 00000 00000 

00896 



07090 HP/fZ 


82 


2*oon,,» 


07090* 






m\nn iinnt 
Urluu IRUUf 


CM 


NST,49»610 


071 10 


SN 


NVERTt it 


07120* 






till %ft vest 




S1«8ST»611« 


07140 


FMUL 


SlfMlNl.Offrf 


07150 


FOIV 


Sl,MST f 61l» 


071 AO 


8 


TlCALC 


071 70 


OORG 




07180* 






07190 NVERT 


BTM 


MONITR, 02000*67, 


07200 


BfM 


SQRTF, SQRTA, 67, 


08010 


TFL 


CAPA, 5QRTA 


08020 


FAOO 


CAPA,SMB/2»t 


08010 CBKTA 


8t 


CUBR7F,OSA2*t,, 


08040 


TFL 


CAPBtSMB/2 


08050 


FSUB 


CAPB, SQRTA« , 


UoOoQ WBRTB 


BT 


CUBRTF ,DSA3+3»« 


08070 


TFL 


St, CAPA, 6 


08080 


FAOO 


SltCAPBt6 


AAAQA 

uooiu 


FSUB 


Sl,P,6« 


08100 


CM 


FLAGT.1,10 


08110 


BE 


TlCALC,,, 


08120* 






08130 2INT 


FMUL 


CAPA, CAPB,, 


08140 


BP 


2UNEEK|»t 


061 50* 






08160 IINT 


TOH 


FLAGTtltt 


08170 


6 


TlCALC 


08180 


DORG 


•-3 


08190* 






08200 2UNEEK 


TFL 


, 

S2,S1«6U i 


09010 S2CALC 


FMUL 


S2.MIN0.5.6, 


09020 


B 


T2CALC 


09030 


DORG 


*-3 


09040* 






09050 2R00TS 


CM 


MST, 49,610 


09060 


BNN 


VERTf , t 


09070* 






09080 


TOM 


FLAGTt 2« , 


09090 


B 


NVERT 


09100 


OORG 


•46 


091 10* 






09120 CUBRTF 


TFL 


f FMPF . tan. 1 1 


09130* 






09140 ARG 


OS 


5.CUBRTF-6 


09150 EX ADD 


OS 


5, ARG* 5 


09160* 






09170 


MF 


SIGN.TEMPF-2 



BRANCH IF RESULT IS 2ER0 

00898 M6 01210 01200 

00910 J4 OOOON 00ON9 
BRANCH IF LINE IS NOT VERTICAL 

00922 M? 00978 01300 



RACE 



Sl*BST 
Sl — BST 
$i»-BST/NSf 



00934 -0 0003- 0001- 
00946 -L 0003- 01740 
00958 -R 0003- 0000N 
00970 M9 00728 00000 
00978 



CALL SQRTF SUBROUTINE VIA MONITR 

00978 17 02400 -2000 

SQRTF (SQRTA) 00990 IP 02410 *1810 

01002 -0 01830 01810 

CAPA«SMB/2»SQRTA 01014 -J 01830 01790 

GA#A*f SMB/««§9«f Al*»| UQ/5*0> 

01016 KP 01264 00784 
01038 -0 01820 01790 

CAPB-SMB/2-SQRTA 01050 -K 01820 01810 

CAPB«ISMB/2-SQRTA)**( 1.0/3.0) 

01062 KP 01264 00794 
01074 -0 0003- 01830 
01086 -J 0003- 01820 

St»CAPA+CAPB-P 01098 -K 0003- 01800 

01 110 J 4 00403 000- 1 

BRANCH IF ONE INTERSECTION EXISTS 

01122 M6 00728 01200 



CAPA»CAPB 01134 -L 

BRANCH IF RESULT IS POSITIVE 

01146 M6 

ONE INTERSECTION EXISTS 

01158 J5 
01170 M9 
01178 



S2-SI 

S2—S1/2.0 



01178 -0 
01190 -L 
01202 M9 
01210 



01210 J4 
BRANCH IF LINE IS VERTICAL 

01222 M6 

TWO INTERSECTIONS EXIST 

01234 J5 
01246 M9 
01263 



01830 01820 
01178 01100 



00403 00001 
00728 00000 



0004- 0003- 
0004- 01780 
00716 00000 



OOOON 00OM9 
00934 01300 



00403 00002 
00978 00000 



01264 -0 01840 0125Q 



01258 00005 
01263 00005 



01276 PJ 01358 01838 



09180 


BTM 


MONITR, 02040, 67, 


09190 


BTM 


L0GF,TEMPF,67, 


09200 


FMUL 


TEMPF, l/3t t 


10010 


BTM 


MONITR, 02030, 67, 


10020 


BTM 


EXPF, TEMPF ,67 1 


10030 SIGNF 


MF 


TEMPF-2,SIGN 


10040 


TFL 


ARG, TEMPF* 6 


10050 


B 


EXADDt »6, 


10060 


OORG 


»-3 


10070* 






10080 A«0 


TFL 


2XBtBCUBEtU 


10090 


FAOO 


2X8,2X8,, 


10100 


82 


S-Oifi 


101 10* 






10120 IN0T2 


TFL 


TIMPfCMINM 


10130 


FMUL 


TEMPfCMINMfi 


10140 


TFL 


TEMPF, 2X6 


10150 


FAOO 


TEMPF, 2XB,, 


10160 


FMUL 


4X6,6STtllt 


10170 


FAOO 


TEMP e 4XB,, 


10180 


FMUL 


CMINMf MINl«0t t 


10190 


FOIV 


CHINM* 2XBt , 


10200 


80 


N0T0tTEMP-9it 



11010* 
11020 1REAL 
11030 
11040* 
11050 NOTO 

11060* 
U070 FLAGO 

11080 

11090 

11100* 

I U 10 2REAL 



B S1CALC 
DORG *-3 



BNF 2REALt TEMP-2* t 



11120 

1U30 
11140 
111 50 
11160 



TFM FLAG,, 10, 

B RETURN* tat 
DORG *-3 

BTM HON I TR » 02000 1 67 1 

BTM SQRTF »TEHP»67t 

FOI V TEMPtlXBt # 

TFL S2»CMINM«6# 

FAOO S2,TEMP,6, 

TOM FLAGTt 2* t 



11170 SICALC FSUB CMINMtTEMPtt 
11180 TFL SltCMINM»6t 

11190 CM FLAGTt 2?10 

11200 BE T2CALCttf 



12010* 
12020 
12030 
12040* 
12050 ••© 

12060* 



B TlCALC 
OORG *»3 



BO •♦20tCMIHM~9tf 



CALL LOGF SUBROUTINE VIA MONITR 

01288 17 02400 -2040 
LOGF (ABSF( ARG) ) 01300 IP 02410 -1840 

LOGFIABSFtARG) 1/3.0 01312 -L 01840 01750 
CALL EXPF SUBROUTINE VIA MONITR 

01324 17 02400 -2030 
EXPF (LOGFIABSF(ARG) 1/3.0) 

01336 IP 02410 



EXIT 



2.0*8 

BRANCH IF I IS ZERO 



IC-MSn*f2 

4.0*8 
4.0*B*BST 

<C-NST)*«2*4,0*B*BST 

-CMINM 
-CMINM/2.0/8 



01348 PJ 01838 
01360 -0 0125Q 
01372 M9 0126L 
01380 



-1840 
01358 
01840 
00000 



01380 -0 01800 0002- 
01392 -J 01800 01800 
01404 M6 01692 01200 

01416 -0 01830 01790 
01428 -L 01830 01790 
01440 -0 01840 01800 
01452 -J 01840 01800 
01464 -L 01840 0001- 
01476 -J 01830 01840 
01488 -L 01790 01740 
01500 -R 01790 01800 



BRANCH IF NOT ONE INTERSECTION EXISTS 

01512 ML 01532 01821 



01524 M9 01636 00000 
01532 



BRANCH IF TWO INTERSECTIONS EXIST 

01532 MM 01564 01628 



NO INTERSECTION EXISTS 
RETURN TO MONITR 



01544 16 00019 000-0 
01556 49 0241J 00000 
01564 



CALL SQRTF SUBROUTINE VIA MONITR 

01564 17 02400 -2000 
SQRTFUC*NST)«»2*4«0*8*BSTn«ROOT 

01576 IP 02410 -1830 
ROOT/12. 0*6) 01588 -R 01830 01800 

S2-C-MST 01600 -0 0004- 01790 

S2«C-MST+ftQ0T 01612 -J 0004- 01830 

TWO INTERSECTIONS EXIST 

01624 J5 00403 00002 
C-MST-ROOT 01636 -K 01790 01830 

Sl-C-MST-ROGT 01648 -0 0003- 01790 

01660 J4 00403 000-2 
BRANCH IF TMO INTERSECTIONS EXIST 

01672 M6 00716 01200 



•RANCH IF IC-NST1 



0I6B4 M9 0072B 00000 
01692 



IS NOT 2ER0 

01692 ML 01712 0I7B1 



138 



12070 




B 


FLAGO 


01704 


M9 01! 


12090 




DOR 6 


•-3 


01712 




12090* 










in oo 




TFL 


Sl,BST,6U 


01712 


-0 00< 


12110 




B 


VERT+24 


01724 


M9 00« 


12120 




DORG 


•-4 


01731 




unot 










12140 




DC 


8,-10000000 


01738 


00008 


12150 


N1NU0 


DC 


2.1 


•01740 


00002 


12160 




DC 


St 33333333 


01748 


00008 


12170 


1/3 


DC 


2.0 


01750 


00002 


12180 




OC 


8,50000000 


01758 


00008 


12190 


0*5 


OC 


2,0 


01760 


00002 


12200 




OC 


8*20943991 


01768 


00008 


13010 


2P1/3 


DC 


2.1 


01770 


00002 


13020 




DC 


a ,-50000000 


01778 


00008 


13030 


MIN0.5 


OC 


2*0 


01780 


00002 


13040 


CM IN* 


OC 


10*0 


01790 


00010 


130S0 


P 


OC 


10,0 


01800 


00010 


13060 


R 


OC 


10,0 


01610 


00010 


13070 


Q/3 


OC 


10,0 


01820 


00010 


13060 


TEMP 


OC 


10,0 


01830 


000 10 


13090 


TEMPF 


OC 


10,0 


01840 


00010 


13100* 










13110 


SIGN 


OS 


• SIGNFMO 


01358 


00000 


13120 


FLAG 


OS 


2*19 


00019 


00002 


13130 


FLAGT 


DS 


2.3R00TS+11 


00403 


00002 


131*0 





OS 


*CMINM 


01790 


00000 


13150 


P/3 


OS 


*P 


01800 


00000 


13160 


Q/2 


DS 


• 


01790 


00000 


13170 


R/2 


OS 


.A 


01810 


00000 


13180 


BSQ/4 


OS 


,R/2 


01810 


00000 


13190 


SMB/2 


OS 


,0/2 


01790 


00000 


13200 


A3/27 


DS 


,TEMP 


01830 


00000 


14010 


SNA/ 3 . 


OS 


,0/3 


01820 


00000 


14020 


SQRTA 


OS 


♦BSQ/4 


01810 


00000 


14030 


SQRTF 


DS 


,2416 


02416 


00000 


14040 


ATANF 


OS 


• 2416 


02416 


00000 


14050 


PHI 


DS 


, SQRTA 


01810 


00000 


14060 


2XR00T 


OS 


•SMA/3 


01820 


00000 


14070 


PHI/3 


DS 


,PHI 


01810 


00000 


14080 


COSF 


OS 


• 2421 


02421 


00000 


14090 


LOGF 


DS 


• 2416 


02416 


00000 


14100 


EXPP 


OS 


•2416 


02416 


00000 


14110 


2KB 


OS 


• P/3 


01800 


00000 


14120 


4XB 


DS 


•TEMPF 


01840 


00000 


14130 


CAPA 


OS 


• TEMP 


01830 


00000 


14140 


CAPB 


OS 


•2XR00T 


01820 


00000 


14150 


MONITR 


OS 


,2406 


02406 


00000 


14160 


RETURN 


DS 


• 2411 


02411 


00000 


14170 




DEND 


LMCUBE 


00056 





PAGE 



SYMBOL TABLE 



MIN1.0 06024 
G02 06337 
TLIRT 00184R 



E 
J 

TL2 



05954 
0000 1R 
06147 



F 05964 
TLl 06145 
TL20N 00150R 



F-1.0 O0136R 
TL1LT 00038R 
0.0 06034 



FISH 00002R 
TLION 00164R 
1.0 06075 



01010* 

01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01080* 

01090* 

01 I 00* 

OHIO* 

01120 J 

01130* 

01140 FISH 

01150 

01160* 
01170 

01180* 
01190 TL1LT 
01200 
02010 

02020* 
02030 
02040 
02050* 

02060 

02070 ) 

02080* 

02090 

02100 

02110 

02120* 

02130 F-1.0 

02140 

02150 

02160* 

02170 TL20N 

02180 

02190 

02200* 

03010 TLION 

05020 

OKI SO 

03040* 

03050 TLlftT 

03060 

03070 

03080* 

01090 Til 



IBM 1620-1311 AO-APT SUBPROGRAM FOR ESTABLISHING 
THE ORIVE AND CHECK SURFACE OFFSET INOICATORS 
BASED ON CONVENTIONAL MOTION AND THE CHECK SURFACE 
MODIFIERS... TO* ON* PAST* TANTO 



•NAME FISH. 



ERASABLE ARELEM SUBPROGRAM 





•10 NUMBER 


0218+DEL01M 












•ASSEMBLE 


RELOCATABLE 












•STORE RELOAOABLE 












LINKAGE - BT 


FISH*TL2*6 










DC 


2.0 




00001 


00002 






SUBPROGRAM 


ENTRY 










CM 


TLl, 2, 10 




00002 


14 


06145 


000-2 


BE 


TLIRT* •• 


BRANCH IF T00L1 IS 


tlrgt 














00014 


M6 


00184 


01200 


BP 


TLION,,, 


BRANCH IF T00L1 IS 


TLON 












00026 


M6 


00164 


01100 


TFL 


6,1.0,, 


SET E-l.O 


00038 


06 


05954 


06075 


CM 


TL2,3,10 




00050 


14 


06147 


000-3 


BE 


TL20N* ** 


BRANCH IF T00L2 IS 


TLON 










00062 


M6 


00150 


01200 


S 


J.G02,. 


TL2-G02 


00074 


K2 


0000 1 


06337 


Bl 


F-UO 




00086 


M6 


00136 


01200 


CM 


J, -2, 10 




00098 


J4 


00001 


000-K 


BE 


F-1.0 




00110 


M6 


00136 


01200 


TFL 


F.MINl.O,* 


SET PAST INOtCATOR 


00122 


06 


05964 


06024 


BB 


»• • 


EXIT 


00134 


42 


00000 


00000 


DORG 


•-9 




00136 








TFL 


F.l.O,, 


SET TO INDICATOR 


00136 


06 


05964 


06075 


BB 


* • • 


EXIT 


00148 


42 


00000 


00000 


DORG 






00150 








TFL 


F,0.0»* 


SET ON 1 NO I CAT OR 


00150 


06 


05964 


06034 


M 


• »• 


iXIT 


00162 


62 


00000 


00000 


DORG 


•-9 




00164 








TFL 


E*0»0»* 


set e«o«o 


00164 


06, 


059S4 


06014 


a 


TLUT*U 




00176 


M9 


00050 


00000 


00116 *»3 




00184 








TFL 


l»MIMUO«t 


SfT i«-I.O 


00184 


06 


05934 


06026 


DSC 


2.49 




00196 


00002 





osa Tiuma 

OS »614§ 



00202 OOOOS -0050 
06 »5 00000 



130 



03100 TL2 
03110 G02 
03120 E 
031 30 F 
031*0 0.0 
03190 i.O 



OS 
OS 
OS 
OS 
OS 
OS 



»61*7 

♦ 6337 
,5954 
,£♦10 
,603* 

♦ O.OMl 



03160 MlNl.O OS ,0.0-10 
01170 OENO FISH 



061*7 
0633T 
0595* 
0596* 
0603* 
060 75 
060?% 
00002 



00000 
00000 
00000 
00000 
00000 
00000 
00000 



TOLCHK 12696 
MONITR 02*06 



Bl 

0SA2 
EXIT 
RO 
XN 



03372 
12509 
12756 
02508 
02486 



RETURN 02*11 

LNSTRT 125*0 

CRITl 02*88 

0SA3 1253* 

FLH 02*88 

TEMP 00079 

XO 05892 



SYMBOL TABLE 

OFFSTD 12576 
ERPROC 02*16 
CR1T2 02*98 
E 0595* 
FLWST 03362 
TLRAO 0598* 
VN 02*98 



PACE 



OFFCHK 1276* 
EPSLON 0600* 
OISTF 02*16 
ER200 1288* 
PGDN 02508 
TOLI 0599* 
VO 05902 



NORMLN 02*16 
0EV1AT 1268* 



0SA1 

ER201 

HI 

TOLO 



12*79 
12860 
03362 
0601* 



01010* 

01020* 

01030* 

010*0* 

01050* 

01060* 

Q1070» 

01080* 

01090* 

01100 

Oil 10* 

01120 

01130 

011*0 

01150 

01160 

01170 

01180 

01190 

01200 OSAl 

02010 

02020 

02030 

020*0 

02050 

02060 0SA2 
02070 

02080 0SA3 
02090 
02100* 
02110* 

02110 LNSTRT 

02110* 
021*0 
02150 

02160* 

02170 OFFSTO 

02180 

02190 

02200 

03010 

03020 

03010 

010*0 

01050 

01060 OEVIAT 



IBM 1620-1311 AO-APT SUBPROGRAM FOR VERIFYING 
THE START-UP POSITION OF THE CUTTER 
ON LINE ORIVE SURFACES 

•NAME LNSTRT* • • NON-ERASABLE ARELEK SUBPROGRAM 
•10 NUMBER 0219»OELOIN 
•STORE CORE IMAGE 



LINKAGE - B LNSTRT,, 6 

OORG 12*7* 

OC 30,0 
OORG 12*7**9»6-B 
NOP YN*0 
OORG *~2l 
NOP B1,XN 
OORG *-2l 
NOP YO.Ml 
OORG *-l* 
OSA XO 

OORG •♦5*6-**5*5-ll-2 

NOP YN,MOON 

OORG *-21 

NOP YOiXN 

OORG •-!* 

OSA XO 

OORG •♦5*5-* 

DSA GFFST0*12 

OSC 5,02101 



12*7* 

12503 
12*98 
12*98 
12*88 
12*88 
12*78 
12*78 
12*75 
12*79 
12517 
12518 
12508 
12508 
12505 
12509 
12530 
1251* 
12535 



000)0 

*1 02*98 00000 

*1 01172 02*88 

*1 05902 01162 

00005 -5892 

*1 02*98 02506 

*1 09402 02*18 

00009 -5192 

00005 J25II 
00009 



BTM 



BT 
BT 



SUBPROGRAM ENTRY 
MONITR, 02l*0i*T, CALL NORMLN SUBPROGRAM VIA MONITR 

125*0 17 02*00 -21*0 
PROJECT CUTTER CENTER TO 01 UNI, NORMAL TO UNI 
NORMLN, DSAl»25»* U«a 27 02*10 1250* 

MONITR, DSA3*9,6, CALL OISTF SUBPROGRAM VIA MONITR 

1256* 27 02*00 12919 
CALCULATE DISTANCE FROM CUTTER CENTER TO LINE 



BT 

TFL 

FAOO 

SF 

TFL 

FAOO 

TFL 

FMUL 

CF 

FSUB 



OISTF, 0SA2*20t* 

CRITl.TOLI 

CRITl, EPSLON 

CRITl-2,,, 

CR IT 2, TOLO 

CRIT2, EPSLON, , 

T£MP,E 

TEMP, TLRAO, # 
TENP-2 mi 
MOON, TEMP,, 



CR!Tl—(TOLU€PSlON> 

CR!T2»T0L0*EPSL0N 

E*TLRAO 

ABSF I E*TLRAOI 

MO0N«0 I SPL ACEMENT OF 



12576 27 02*10.12529 
12588 06 02*88 0599* 
12600 01 02*88 0600* 
12612 12 02*66 00000 
1262* 06 02*98 0601* 
12636 01 02*96 0600* 
126*8 06 00079 0595* 
12660 03 00079 0596* 
12672 11 00077 00000 
CUTTER PERIPHERY 
1268* 02^)2508 00074 



140 



03070* 








FROM OS LINE (IN DIRECTION OF CENTER 1 




QlQBfl TALC MM 


FSUB 


till «uun 




12696 


02 02466 


02506 


03090 


BP 


BKCVVlil » t 




BRANCH IF CUTTER NOT KITH IN 


TOLERANCE 










12708 


46 12672 


01100 


03100* 














031 10 


I s SUB 


pa I t 9.tinn.M 
i»a 1 1 « • nuuR 




12720 


02 02498 


02508 


031 20 


BM 


BKcUU— 12 • • t 




BRANCH IF CUTTER NOT WITHIN 


TOLERANCE 










, 12732 


47 12672 


01300 


fttl %r\m 














A*l A A 

03140 


an 
DV 


Ur run* jfc— V» t 




BRANCH IF T0011 IS TUFT OR 
12744 


TLRGT 
43 12764 


05945 


03150* 














All aa tvtY 


_ 






RETURN TO MONITR 12756 


49 0241J 


00000 


031 70 






12764 






031 00* 














01190 OFFCNK 


TFL 


R0«Y0 




12764 


06 02508 


05902 


03200 


FSUB 


ROiBli • 




R0-V0-BI 12776 


02 02508 


03372 


04010 


TFL 


TEMP » Ml 




12788 


06 00079 


03362 


04020 


FMUL 


TEMPiXO* » 




M1*X0 12600 


03 00079 


05892 




FSUB 






R0"V0~Ml*M0-8l 12812 


02 02906 


00079 


AAA1A 

a2a«a 




ROtE f t 




R0*E 12824 


03 02508 


05954 


0*090 


BP 


ttf TllfiM. - *» - 




BRANCH IF CUTTER IS ON PROPER SI0E 












12836 


46 0241J 


01100 


04Q©0* 














04070 


BTN 


PAIrll IHfU((3U| 


67 • 


CALL ERPR0C SUBPROGRAM VIA MONITR 












12848 


17 02400 


-2250 


Q%090 CRfVl 


•TN 


KKrHUl • 20101 t 


_ 
67# 


WRITE ERROR MESSAGE** • SEARCH FOR END 










12860 


17 02410 


K0101 


U%UV0 


BTN 


ti/ttJ ( TO .All tA . 

RUN I In«U22?Ot 


67 • 


CALL ERPR0C SUBPROGRAM VIA MONITR 












12872 


17 02400 


-2250 


Ait AA IBJAA 
U*IUU CNiUU 


Bin 


CD BftAT - 9AAA1 - 




WRITE ERROR MESSAGE* SEARCH FOR EN0 










12864 


17 02410 K0001 


041 10* 














Axl 9A UAD lil hi 




#2416 




02416 


00000 




aa.i »a n t crs 

U*l 5U UDIr 


OS 


#2416 




02416 


00000 




All AA C| U 

u*i*o riN 


OS 


• 2486 




02488 


00000 




All f Ai V AJ 

041 50' XN 


DS 


10»FLW*0*10 




02488 


00010 




04160 VN 


OS 


10f XN>10 




02498 


00010 




0*170 TQLl 


DS 


• 5994 




05994 


00000 




ax i OA tai n 
0*1 HO TULU 


OS 


#6014 




060114 


00000 




04190 EPSL0N 


DS 


• 6004 




06004 


00000 




AX<9AA TfuA 

0*200 TcMP 


DS' 


10# 79 




00079 


00010 




05010 E 


DS 


• 5954 




05954 


00000 




ACA )A V| BAA 

05020 TLRAD 


OS 


»E*30 




05964 


00000 




05030 nOON 


DS 


t A uIia 1 A 

10 »YN* 10 




02508 


00010 




05040 R0 


DS 


10 » MOON 




02508 


00010 




05050 X0 


DS 


#5892 




05892 


00000 




05060 1 Y0 


OS 


•X0+10 




05902 


00000 




05070 Ml 


DS 


#3362 




03362 


00000 




05080 Bl 


01 


•Ml+10 




03372 


00000 




05090 CR1T1 


DS 


lOtXN- 




02488 


00O10 




ACI AA r*tT9 


OS 


10«YN 




02498 


00010 




05110 ERPR0C 


OS 


«2416 




024 1* 


00000 




05120 FLMST 


OS 


• 3362 




03362 


00000 




05130 M0N1TR 


0$i 


• 2406 




02406 


00000 




05140 RETURN 


DS 


• 2411 




02411 


00000 




05190 


DEN0 


LNSTRT 




12540 







T0LCHK 13216 
MONITR 02406 
CRITI 02498 
OS A 3 13046 
EXtt 13278 
MOON 02508 
T0LI 05994 
Y0 05902 



RETURN 02411 

ERPR0C 02416 

CRIT2 02518 

0SA4 13056 

FLM 02488 

R0 02508 

^ TOLD 06014 



SYMBOL TABLE 

OFFSTD 13098 
EPSL0N 06004 
OISTF 02416 
E 05954 
FLWST 03362 
Rl 03362 
XN 02468 



0FFCHK 13286 
0EV1AT 13206 
0SA1 12985 
ER200 13466 
HI 03362 
TEMP 00079 
XO 05692 



NORMCR 02416 

CRSTRT 13062 

0SA2 13021 

EH 201 13442 

Kl 03372 

TLRAD 05984 

YN 02498 



01010* 




01020* 




01030* 




01040* 




01050* 




01060* 




01070* 




01060* 


f 


01090* 




01100 


OQRG 


Oil 10* 




01120 


DC 


01130 


OORG 


01140 


NOP 


01150 


DQRG 


01160 


NOP 


01170 


DORG 


01160 


NOP 


01190 


OORG 


01200 0SA1 


DSA 


02010 


OORG 


02020 


NOP 


02030 


OORG 


02040 


NOP 


02050 


OORG 


02060 OS*! 


OSA 


02070 


OORG 


02060 0SA3 


0SA 


02090 


DSC 


02100 0SA4 


OSA 


02110 


OSC 


02120* 




02130* 




02140 CRSTRT 


BT 


02150* 




02160 . 


®T 


021 TO 


BT 


02180* 




02190 OWST0 


BT 


02200 


TFL 


03010 


FAQS 


03020 


%f 


03010 


TPL 


03040 


PA09 


010 to 


TPL 



IBM 1620-1311 AO-APT SUBPROGRAM FOR VERIFYING 
THE START-UP POSITION OF THE CUTTER 
ON CIRCLE DRIVE SURFACES 

RCS 

•NAME CRSTRT* NON- ERAS ABLE ARELEM SUBPROGRAM 
•ID NUMBER 0220*DEL0IM 
•STORE CORE IMAGE 
LINKAGE - 8 CRSTRT, »6 

12960 12980 

35,0 13014 00035 

12980*3*7-11 13004 

SM»YN 13004 41 02488 02498 

•~2l 12994 

Kl.jtl 12994 41 03372 03362 

•-21 12984 

V0,Hl 12984 41 05902 03362 

••14 12981 

XO 12985 00009 -9892 

•♦S*7-4*3*9-ll 13030 

VN»MOON 13030 41 02498 02906 

•-21 13020 

YO.XN &3020 41 09902 02468 

»~1* 13017 

XO 13021 00005 -5892 

#»5#§~4 U042 

CRSTRT424 13046 00005 J3086 

5.02151 13047 00009 

OPFST0412 13096 00009 J3I10 

9,02101 13097 00009 

SUBPROGRAM ENTRY 
NONITA,0SAl*S t 6, CALL NORMCR SUBPROGRAM VIA MONITR 

13062 2T 02400 13091 
PROJECT CUTTER CENTER TO OS CIRCLE* NORMAL TO CIRCLE 
N0RMCR*0SA1*30 V * 13074 2T 02410.13019 

MONITR, DSA4*S.4 # CALL OtSTP SUBPROGRAM VIA MONITR 

13066 2T 02400 19061 
CALCULATE DISTANCE PROM CUTTER CENTER TO CIRCLE 



OS$TP»OSA2*20»6 

CRITltTOLI 

CRITI tfiPSLON 

CAITl*2ttt 

CRIT2.T0L0 

CAIT2,8PtLON f . 

T§«P»I 



CRITI— »TQLI*iPSL0N> 
CRfTS«m06EPtL0N 



13098 2T 02410 13041 
13110 06 0249R 09994 
19122 01 02498 06004 
19194 32 02496 00000 
19146 06 02916 06014 
19196 01 02919 06004 
19170 06 OO0T9 09996 
99 



PAGE 2 



03060 


fmul 


TEMP»TLRAO»* 




E*TLRAO 13182 


03 00079 


05984 


03070 


CF 


TENP-2,,, 




AB5F ( 6*TL« AO J 13194 


33 00077 


00000 


03080 OEVIAT 


PSUB 


NODN f TEMP*, 




MODN*0lSPl ACfHfcNT OF CUTTER 


PERIPHERY 










13206 


02 02508 


00079 


03090e 




FROM OS 


CIRCLE 1 IN DIRECTION OF CUTTER CENTER 1 


03100 TOLCMK 


FSUB 


CRITl.MODN 




13218 


02 02498 


02508 


03110 


BP 


ER200-12**. 




BRANCH IF CUTTER NOT WITHIN 


TOLERANCE 










13290 


46 13454 


01100 


031 20 » 














03130 


FSUft 


CRt T2*M00N 




13242 


02 02518 


02508 


03140 


RN 


ER200-12#*# 




BRANCH IF CUTTER NOT WITHIN 


TOLERANCE 










13254 


47 13454 


01300 


03150* 














03160 


BO 


OFFCHK iE-9t» 




BRANCH IF TOOLI IS TUFT OR 
13266 


TLRGT 
43 13286 


05945 


03170* 














03180 exit 


B 


RETURN* »6* 




RETURN TO PON I TR 13278 


49 0241.1 


00000 


03190 


00* G 






13286 






03200* 














04010 OFFCHK 


TFL 


RO.XO 




132B6 


06 02508 


05892 


04020 


FSUB 


RO.Hi*, 




X0-H1 13298 


02 02508 


03362 


04030 


FMUL 


ROtRO.t 




(X0-H1)»*2 13310 


03 02508 


02508 


04040 


TFL 


TEMP»VO 




13322 


06 00079 


05902 


04050 


FSUB 


TEHP»Kl#» 




YO-Kl 13334 


02 00079 


03372 


04060 


FMUL 


TEMP. TEMP, , 




(Y0-KU**2 13346 


03 00079 


00079 


04070 


FADO 


RO.TEMP,* 




IX0-HU**2*IV0-Ktl**2 13358 


01.02508 


00079 


04080 


TFL 


TEMP,Rl 




13370 


06 00079 


03382 


04090 


FMUL 


7£MP«R1 » * 




Rl**2 13382 


03 00079 


03382 


04100 


FSUB 


RO*TEMP* * 




R0MX0~Hll**2*<Y0-Kl)**2-Rl**2 












13394 


02 02508 


00079 


04110 


FMUL 


R0ȣt* 




RO*E 13406 


03 02508 


05954 


04120 


BP 


RETURN** 6* 




BRANCH IF CUTTER IS CN PROPER SIDE 












13418 


46 0241J 


01100 


041 SO* 














04140 


*BTM 


MONITR, 02250 


,67, 


CALL ERPROC SUBPROGRAM VIA MONITR 












13430 


17 02400 


-2250 


041 SO ER201 


BTH 


ERPROC* 20 102 


• 67* 


WRITE ERROR MESSAGE. .. SEARCH FOR END 










13442 


17 02410 


K0102 


04160 


8TM 


MONITR* 02250 


• 67* 


CALL ERPROC SUBPROGRAM VIA MONITR 












13454 


17 02400 


-2250 


04170 ER200 


BTM 


ERPROC » 20002 


♦ 67* 


WRITE ERROR MESSAGE*** SEARCH FOR ENO 










13466 


17 02410 


K0002 


04180* 














04190 FL W5T 


OS 


• 3362 




03362 


00000 




04200 XO 


DS 


,5892 




05892 


00000 




05010 YO 


OS 


»X0+10 




05902 


00000 




05020 HI 


DS 


*PLWST*O*I0 




03362 


00000 




05030 Kl 


DS 


*Hl*10 




03372 


00000 




05040 Rl 


DS 


*KI*10 




03382 


00000 




05050 FLW 


DS 


»2488 




02488 


00000 




05060 XN 


DS 


10.FLW*D*10 




02488 


00010 




05070 YN 


OS 


lO.XNfiO 




02498 


00010 




05080 HOON 


OS 


10*YN+1O 




02508 


00010 




05090 NORMCR 


OS 


,2416 




02416 


00000 




05100 ERPROC 


DS 


,2416 




02416 


00000 




05110 DISTF 


OS 


• 2416 




02416 


00000 




05120 CRITl 


OS 


*VN 




02498 


00000 




05130 CRIT2 


OS 


10* MOON* 10 




02518 


00010 , 




05140 TOLI 


DS 


• 5994 




05994 


00000 




05150 TOLO 


OS 


• 6014 




06014 


00000 





05160 


EPSLON 


OS 


,T0tI*10 


06004 


00000 


05170 


TEMP 


OS 


10,79 


00079 


00010 


05180 


E 


OS 


•Y0452 


05954 


00000 


05190 


TLRAO 


OS 


•£♦30 


05984 


ooooo 


05200 


RO 


OS 


10 •MOON 


02508 


00010 


06010 


MONITR 


DS 


• 2406 


02406 


ooooo 


06020 


RETURN 


OS 


• 2411 


02411 


00000 


06030 




OENO 


CRSTRT 


13062 





I '.2 

« 



SYMBOL TAILf 



*AGE 1 



W0E46 001 Hi RETURN 02*11 NQM1TR 02404 COSINE 00043 COSFNZ 00066R 
AAGADD 00009R COSP 02421 COSFZ 000 16 A StNF 024 16 TANF 00006K 



01010* 




UN 1420*1)11 AO-APT FLOATING TANGENT SUBPROGRAM 




oioro* 








RCS 


1030* 




•NANE TANF 


... NON-ERASABLE SYSTEM SUBPROGRAM 




At a«a!» 




•10 NUMBER 


022UDEL0IN 










•ASSEMBLE 


RELOCATABLE 






01040* 




•STORE RELOADABLE 






01070* 




LINKAGE - BTN 


TANF, AODARG, 67 






01060* 




AODARG IS 


THE AOORESS OF THE ARGUMENT AND RESULT 




1090* 












Ait ao A ft c Ann 


oc 


4«0«t 


AOORESS OF ARGUMENT 00009 00006 




Oil 10* 












01120* 




SUBPROGRAM 


ENTRY 






011)0 TANF 


BTM 


PtuNITR«020lO»4T, 


CALL SINP-COSF SUBROUTINE VIA MONITR 










00006 


17 02400 


-2010 


01140 


TFL 


COSINE* ARG AOO • 1 1 


00018 


00 00043 


OOOON 


01190 


BTM 


5 1 Nr » ARGAODt 671 1 9 


CALCULATE S1MFI ARG) 00030 


IF 02410 


-OOON 


01140 


BTM 


CQSF«C0SIN€»47, 


CALCULATE COSF(ARG) 00042 


17 0242J 


-0043 


01170 


BZ 


bU9r«| f 9 


BRANCH IF COSF(ARG)*0 00094 


M6 00066 


01200 


01180* 












01190 COSFNZ 


POI V 


ARGADD,C0SINE,A, 


TANF { ARC) «S!NF< ARG) /COSH ARG) 










00066 


•9 OOOON 


00043 


01200 




RETURN, ,6, 


RETURN TO MONITR 00078 


49 0241J 


00000 


020 10 


DOR 6 


•-) 


00086 






02020* 












02030 COSI 1 ! 


TFL 


ARCAD0,1.0E4B,6 


00006 


-0 OOOON 


00114 


02040 


8 


RETURN,, 4, 




49 024 1J 


00000 


02090 


DOR 6 


*-4 


00109 






02060* 












02070 


DC 


8,10000000 


00112 


00008 




02080 1.0648 


OC 


2t49 


00114 


00002 




02090* 












02100 COSINE 


OS 


10,4) 


00043 


00010 




02110 SINF 


DS 


• 2416 


02416 


00000 




02120 COS? 


OS 


• 2421 


02421 


00000 




021)0 MONITA 


OS 


,2406 


02406 


00000 




02140 RETURN 


DS 


• 2411 


024U 


00000. 




02190 


OENO 


TANF 


00006 





PSINCL 00100R 
EXIT 00098R 
SPSIS 00002R 



MONITR 02406 
FLM 02488 
2 09640 



SYMBOL TABLE 



ERFROC 02416 
PSA 09891 



A-B-0 00062R 
FSOEF 00036R 



C-0.0 00026R 
PSSW 06190 



010 10* 
01020* 
01030* 
01040* 
01090* 
01060* 
O1O70* 
01080* 
01090* 
01100 , 
OHIO* 
01120* 

01130 SPSIS BO 



01140* , 
01190 



onto c>o.o 

01170 FSOEF GO 



01180* 
01190 



01200* 
02010 A-B-0 



02020 
02010 

02040 EMIT 
02090 
02060* 

02070 WNCL TR 



IBM 1620-1311 AO-APT SUBPROGRAM FOR PROCESSING 
A FART SURFACE RECORO 

•NAME SPSIS... ERASABLE ARELEM SUBPROGRAM 
•10 NUMBER 0222+DELDfM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BTM SPSIS.1,10 



DC 2,0,, 



DUMMY ARGUMENT 



00001 00002 



SUBPROGRAM ENTRY 
PSDEP«FLW*2*lO-9 t « BRANCH IF C -COEFFICIENT IS NON-ZERO 

00002 M3 00038 02499 

BTM MONITR •02290* 67, CALL ERPROC SUBPROGRAM VIA MONITR 

00014 17 02400 -2290 
BTM ERPROC, 20500, 67, WRITE ERROR MESSAGE... SEARCH FOR END 

00026 17 02410 K0900 
PSINCL ,FLM*0* 10-9 ,, BRANCH IF A-COEFF ICIENT IS NON-ZERO 

00038 MS 00100 02479 

PSINCL.FLW*l*10-9,, BRANCH IF G-COEFF ICIENT IS NON-ZERO 

00090 M3 00100 02489 



TDM PSIW.vi 



TFL 
FDIV 



OOftG 



02080 



TOM 
DSC 



02090 
02100* 
02110 FLM OS 
02120 ERPROC OS 
02130 PSSW OS 
02140 2 OS 
021SO FIA OS 
02140 MONtfA OS 
02170 DEMO 



XtPLtf4)«10 

ItPLW+mOtt 
• •♦ 

f»$A«O t HV+0*IO~f*f 

P»S«,-l»t 

2*92tt 

•2488 
•2416 
•4190 

•§840 
•9891 
•2606 
ftffttS 



SET HORIZONTAL FS INOICATOR 

00062 19 06190 00000 
00074 06 O9640 02918 
Z-O/C I MODAL 21 00086 09 09840 02908 

EXIT 00098 42 00000 00000 

00100 

STORE »S FiANf COEFFICIENTS (TRANS. Z) 

00100 31 09842 02479 

SET INCLINED 9% INOICATOR 

00112 19 06190 0000 J 

EXIT 00124 00002 

02488 00000 
02416 00000 
06190 00000 
09640 00000 
09891 00000 
02406 00000 
00002 



1 U 



m 



SYMBOL TABLE 



Pitt i 



STOVFt 00128* 
FLWST 0)362 
STPt 06163 



MONI TR 02406 
PXMST 05540 
STPX 0*168 



ERPROC 02416 
NPW 02455 
STKFL 00005R 



fx If 0011411 
NSECT 02453 



FLW 02409 
STACK 0000*11 



01010* 
01020* 
01030* 
01040* 
01030* 
01060* 
01070* 
01080* 
01090* 

gmoo its** 

OHIO* 

01120* 

Oil 30 STACK 

0U40 

01150* 

01160 

01170 

OU50 
01190 

01200* 
02010 



02030 

02040 IXIT 
02050 
02060* 
02070 



CM 
BNl 



TP 
AN 



CM 
BNL 



UM 1620-1311 AO-APT SUBPROGRAM PO* STACKING 
ARELEN INPUT RECORDS 

•NAME STACK. «. ERASABLE AKIilM SUBPROGRAM 
•10 NUMBER 022340EL0I* 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT STACK, STPL 



KCS 



oeeas oooe* 



SUBPROGRAM IHTRY 
STfX,*XWST-24*27*U 

$TOVPL-Ut»t BRANCH ON OVERFLOW OP 



02080 STOVFL BTM ERPROC , 20600,67, 



02090* 
02100 STPX 
02110 FXMST 
02120 STPL 
02130 NPW 
02140 FLWST 
02130 NSCCT 
02160 PLW 
02170 ERPROC 
02160 MONITR 
02190 



00006 14 06168 -5811 
PIXEO-WORO STACK 
00018 Mi 00U6 01300 

•♦22»NPW 00030 K6 00032 02499 

STPL, 1,9,, AOOftESS IN PLWST OP NIXT RECOKO 

00042 11 06163 00*01 

STPL,PLWST-9*10*215*ll 00034 14 06163 -3514 

ST0VH-I2*tt BRANCH ON OVERFLOW OP FLOATING-WORD STACK 

00066 M6 00116 01300 

STACK PIXEO-WORO PORTION OP RECORD 

00078 31 06UQ 02432 
STACK PLQATINC-WOAO PORTION OP RECORD 

00090 11 OOOON 02479 
ADDRESS IN PXWST OP NEXT RECORO 

00102 11 06168 0OOK7 
EXIT 00114 42 00000 00000 

00116 

CALL fRPROC SUBPROGRAM VIA NONlTR 

00116 17 02400 -2290 
WRITE ERROR MESSAGE... SEARCH FOR END 

00128 17 02410 R0600 



TR STPXtNSECT-l#*« 
TR STKFL, PLW*0*10~9,6, 



AM STPX, 27, 10, 



B6 

DORO »-9 



BTM MONITR, 02250, 67, 



,6166 
,5540 
,6163 
,2455 
,3362 

• 2453 
,2499 

• 2416 
,2406 



OENO STACK 



06168 
05540 
,06163 
02455 
03362 
02493 
02488 
02416 
02406 
00006 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



SEHIN2 06095 
STOL 00006R 



MONITR 02406 
STORE 00042R 



SYMBOL TABLE 



ERPROC 02416 
TOLI 05994 



CPSLON 06004 
TOLN 00005R 



FLW 
TOtO 



02488 
06014 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01060* 
01090* 
01100* 
01110 TOLN 

01120* 
01130* 
01140 STOL 

01150* 
01160 



IBM 1620-1311 AD-APT SUBPROGRAM FOR PROCESSING 
AN INTOL Oil OUTTOL RECORO 

11 

•NAME STOL... ERASABLE ARELEN SUBPROGRAM 
•10 NUMBER 0224+DEL0IN 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BTM STOL, TOL ADO 

TO LA 00 IS AOORESS OP INSIDE OR OUTSIDE TOLERANCE 



6,0,, 



AOORESS OP TOLERANCE SPECIFIED 

00005 00006 



SUBPROGRAM ENTRY 
STORE, FLW*0» 10-2, • BRANCH If PARAMETER IS POSITIVE 

00006 M4 00042 02484 



01170 

01180 STOKE 
01190 
01200 
02010 
02020 
02030* 
02040 PLW 
02090 MONITR 
02060 ERPROC 
03070 EPSLON 
02080 TOLI 
02090 TOLO 
OS 100 9EM1N2 
OHIO 



BTM MONITR ,02250,67, 

BTN ERPROC, 20701, 67, 

TPL T0LN,PLW*0*10,6, 
TPL EPSLON, TOL I 
PAOO EPSLON, TOLO,, 
PMUL EPSLON «B|MINt*t 
DSC 2,42m 

OS ,2488 

OS ,2406 

OS #261* 

OS 96OO6 

os v sm 

OS ,4014 
OS ,6099 
OENO STOL 



CALL ERPROC SUBPROGRAM VIA MONITR 

000 IB 17 02400 -1190 
WRITE ERROR MESSAGE** • SEARCH POR ENO 

00030 17 02410 K0701 
STORE TOLERANCE VALUE 00042-6 OOOON 0248B 
00054 06 06004 09994 
TOTAL TOLERANCE 0006* 01 0*004 0*014 

CAVG. TOLERANCE 1/10*0 00078 03 04004 0*099 
IXIT 00090 00002 



0248B 
0240* 
0241* 
0*004 
09994 
0*014 
0*099 
0000* 



00000 
00000 
00000 
00000 
00000 
00000 
00000 



t '< • 



SYMBOL TABLE 



SEARCH 0016?* 
ERCOOE 00005R 
ERNF 00379R 
HIOSA 07875 
NSRT 02475 



RSETHI 00150R 
CLEAR 00102R 
ER203 06292 
NF1NI 00234R 
NSS 0246? 



N0N1TR 08962 
CNTR 00099R 
EXIT 00046R 
NNE 00007 
RNIN 06139 



ERPROC 00006R 
OSCIN 07727 
FINI 08324 
NR 02467 
SSNP 00353R 



ERMESS 00291R 
ENO 07390 
HI 00434 
NRT 02471 
TYPE2 00258R 



01010* 




IBM 1620-1311 AO 


-APT ERROR PROCESSING SUBPROGRAM 




01020* 






RCS 






•NAME ERPROC. ERASABLE ARELEM SUBPROGRAM 




01040* 




•tO NUMBER 


0225*DEL0IM 








•ASSEMBLE 1 


RELOCATABLE 




01060* 




•STORE RELOAOABLE 




2i 21 2* 




LINKAGE - BTM 1 


ERPROC • ERRNO t 67 




01080* 




ERRNO IS EQUIVALENT TO THE FOLLOWING... 




IUVU* 






OC 3,NNN, , 3-DIGIT ERROR NUMBER 




Oil 00* 






DSC 1 V M,, CONTROL INDICATOR 




OHIO* 






(M-OIGIT... RETURN) 




1 120* 






(M-0... SEARCH FOR ENO OR FINI RECORD) 


01130* 






OSC 1,1,, 1-DIGIT DEBUGGER AIO 




01140* 










01150 ERCOOE 


DC 


6,0 


00009 00006 




01160* 










01170* 




SUBPROGRAM 


ENTRY 




01180 ERPROC 


TNF 


SSNPfNSSt t 


FILL STATEMENT NO. FIELD 

00006 P3 00353 


02463 


01190 


TNF 


ERNF,ERC0DE-2», 


FILL ERROR NO. FIELD 00018 PL 00379 


00003 


01200 


RCTV 




RETURN TYPEWRITER CARRIAGE 

00030 34 00000 


00102 


02010 


RCTY 




RETURN TYPEWRITER CARRIAGE 

00042 34 00000 


00102 


02020 


be 


2t42,«-6 


00047 00002 




02030 EXIT 


OS 


t*-7 


00046 00000 




02040* 










02050 


WATY 


ERMESSf * » 


WRITE ERROR OR ALARM MESSAGE 

00054 L9 00291 


00100 


02060 


60 


EXIT.ERCODE-l,, 


EXIT IF DIAGNOSTIC COMMENT ONLY 

00066 ML 00046 


00004 


02070* 










02080 


TF 


CLEAR+6.M0N1TRM1 


00078 K6 00108 


08573 


02090 


TFM 


CNTR.NNE-2, 10 


00090 J6 00099 


000-5 


02100 CLEAR 


TP* 


,.711, 


CLEAR MONtTR MAP ENTRIES 

00102 16 00000 


-000- 


02110 


AM 


CLEAR*5,2.10 


00114 Jl 00107 


000-2 


02120 


SM 


CNTR v 1 # 10 


00126 J2 00099 


000-1 


02130 


BN2 


CLEAR 


00138 M7 00102 


01200 


02140* 








02150 RSETHI 


TF 


HI, HIOSA,, 


RESET HI INDICATOR 00150 26 00434 


07875 


02160 SEARCH 


BTM 


OSCIN, 1,610, 


RE AO ONE AD-APT RECORD FROM INTRAN 

00162 IT 0772P 


000- 1 


02170 


C 


NR,RNIN 


00174 24 02467 


06139 


02180 


BNE 


ER203,,, 


BRANCH IF RECORO OUT OF SEQUENCE 

00186 47 08292 


01200 


02190* 










02200 


AM 


RNIN, 1,10, 


INCREMENT INPUT RECORO COUNTER 

00198 11 06139 


000- 1 


03010 


CM 


NRT, 14, 8 


00210 14 02471 


0-014 



03020 


BE 


FINU12,,, 


BRANCH 


IF 


FINI 


RECORO 00222 


46 08336 


01200 


03030* 
03040 NF INI 
03050 


CM 
BNE 


NRT.2,8 
SEARCH 








00234 
00246 


14 02471 
M7 00162 


0-002 
01200 


03060* 
03070 TYPE2 
03080 


CM 
BNE 


NSRT. 1 #8 
SEARCH,,, 


BRANCH 


IF 


NOT J 


00258 
IN ENO RECORD 
00270 


14 02475 
M7 00162 


0-00 1 
01200 


03090* 

03100 

03110 


B 

OORG 


END* 12 
•-4 








00282 
00289 


49 07402 


00000 


03120* 

03130 ERMESS 


DAC 


49, •• SOURCE 


STATEMENT NO. 






... ERROR 

00291 


• •• 

00098 





03140* 
03150 CNTR 
03160 SSNF 
03170 ERNF 
03180 NSS 
03190 DSCIN 
03200 NRT 
04010 FINI 
04020 NSRT 
04030 ENO 
04040 NR 
04050 HIOSA 
04060 RNIN 
04070 NNE 
04080 ER203 
04090 MONITR 
04100 HI 
04110 



OS 
OS 
DS 
OS 
DS 
DS 
DS 
DS 
OS 
DS 
OS 
DS 
DS 
DS 
OS 
DS 

OENO 



2,CLEAR-3 
«ERMESS+32«2-2 

• SSNFH3»2 
,2463 

• 7727 

• 2471 

• 8324 

• 2475 

• 7390 

• 2467 
.7875 

• 6139 
2.7 
,8292 

• B562 

• 434 
ERPROC 



00099 
00353 
00379 
02463 
07727 
02471 
08324 
02475 
07390 
02467 
07875 
06139 
00007 
08292 
08562 
00434 
00006 



00002 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00002 
00000 
00000 

ooooo 



SYMBOL TABIC 



0.2SPI 


01670ft 


XPLUS1 


00031 


XPLONE 


00079 


5U82PJ 


00584R 


SQRTFN 


02426 


SETAOO 


00068ft 


NZEftOY 


01388R 


N2ER0X 


01022ft 


LOGIOE 


02437R 


LOGO.O 


02480R 


FLINFN 


02425R 


ATANFN 


02441 


ARGUMf 


02443ft 


ARGMOD 


02O38R 


ARGNNT 


01675R 


ARC CON 


004S1R 


AftGAOO 


00005ft 


ARCTAM 


01094ft 


A002PI 


00560ft 


AOOCON 


00949R 


AR G 


00079 


CNTR 


00181ft 


CCNT 


00280ft 


CflSPN 


02436 


EVEN 


00056R 


EXPPN 


02*46 


PLC OK 


00303ft 


INOX 


00190ft 


LOGFN 


02451 


NZAftG 


OO032R 


000 


OOOBBft 


ft£6 


00057 


SFLAG 


00316ft 


SWIPT 


00194ft 


SINFN 


02431 


SLT 


00340ft 


SOftTF 


00006ft 


TERM 


00384ft 


ACOSP 


00524R 


ACl 


O0886R 


AC 3 


00898ft 


ACS 


00910ft 


AC7 


0092211 


AC9 


00934ft 


AEXIT 


00824ft 


API 


00850ft 


ASIGMA 


00055 


AS I HP 


00452ft 


ASftt 


00800ft 


' A THE T A 


00079 


ATWOPI 


00874ft 


AX 


00079 


ftXSQ 


00067 


A0.5P1 


00838R 


A2/PI 


00862ft 


BARTR 


00055 


8ATAHF 


00990ft 


BCNTft 


01021ft 


BCl 


01506ft 


BCU 


01566ft 


BCD 


01579ft 


HM, 


0I590R 


BC3 


01518ft 


BC5 


01530ft 


BC7 


01542ft 


9C9 


01554ft 


BNE6X 


01034ft 


BNEGY1 


01070ft 


9NEGY2 


01400ft 


BNEGY) 


01464ft 


BOM EGA 


09943 




eiifi 


bp! 




nm* 




P§IH 


91476R 


mm 9\*m 




I8UJS9J 


iioi* 


flSIGMA 


9J!&ft? 


BSR? 


01310ft 


BTERH 


01258ft 


8TH6TA 


00949R 


BX 


00079 


BXADOR 


00939R 


BXMIN1 


00055 


BY 


00067 


BYAOOft 


Q0944R 


BZEROX 


01356ft 


BZEROY 


01368R 


BZRO 


01614R 


BO.SPI 


01646ft 


BU5PI 


01636R 


B2.0PI 


01658ft 


CARG 


00079 


CAO 


02321R 


CA1 


02333ft 


CA2 


02345R 


CA3 


02357ft 


CA4 


02369R 


CAS 


02381R 


CA6 


02393ft 


CA7 


02405R 


CBRNOP 


01968ft 


CCNTR 


02203R 


CEXIT 


02004R 


CEXP 


01943ft 


CEXPP 






02074ft 


CEXP02 


02238R 


CNEGX 


01 724R 


CNOftM 


02146ft 


COVFLO 


022 70R 


CPOSX 


01840ft 


CTERft 


01672R 


CUNFLO 


02296R 


CZ 


00067 


CO.O 


02415R 


C1.0 


02321ft 


DARG 


00079 


OCNTR 


02735ft 


DC! 


02997R 


OCU 


03057R 


0C13 


03069R 


DC 3 


03009R 


0C3 


03021R 


0C7 


03033ft 


0C9 


03045R 


OEXP 


02443ft 


OLOGAX 


02858R 


OLOGF 


02444ft 


DLOGX 


02774ft 


DLOGO 


02913R 


0L0G1 


02925R 


0L0G10 


02973R 


0L0G2 


02937ft 


DL0G4 


02949ft 


DL0G8 


02961R 


ONI ARG 


02494ft 


OSIGMA 


00055 


OSRT 


02878R 


DTERN 


02714ft 


OXMINl 


00067 


01 


00067 


OZSQ 


00079 


01. 


02985R 



01010* 




IBM 


1620-1311 AO-APT FUNCTIONAL SUBROUTINE PACKAGE 


01020* 






1 


01030* 






•NAME FSPKG... ERASABLE SYSTEM SUBPROGRAM 


01040* 






•ID NUMBER 0226+OELOIM 


01050* 






•ASSEMBLE RELOCATABLE 


01060* 






•STORE RELOADABLE 


01070* 




LINKAGE - BTN SQRTFN, ADOARG, 67 


01080* 






BTM SINFN, ADDARG, 67 


01090* 






6TM COSFNt AOOARGt 67 


01100* 






BT ATANFN t 0SALBL*10f6 


Oil 10* 






BTM EXPFN t AOOARGt 67 


01120* 






BTM LOGFN t AOOARGt 67 


01130* 






AODARG IS THE ADDRESS OF THE ARGUMENT ANO RESUL 


01140* 






OSALBL IS THE ADDRESS OP THE X-COHPQNENT 


01150* 






DSALBL*S IS THE AOORESS OP THE V-COMPONENT 


01160* 






0SAL8L+10 IS THE ADDRESS OP THE RESULT 


01170* 








01180 SQRTFN 


OS 


• 2426 


02426 00000 


01190 S1NFN 


OS 


• 2431 


02431 00000 


01200 COSFN 


OS 


• 2436 


02*36 00000 


02010 ATANFN 


OS 


• 2441 


02441 00000 


02020 EXPFN 


OS 


• 2446 


02446 00000 


02O30 LOGFN 


OS 


• 2451 


02451 00000 


02040* 








02050* 




IBM 


1620*1311 AD-APT FLOATING SQUARE ROOT SUBROUTINE 


02060* 









02070* 
02080* 
02090* 
02100* 

02110 ARGAOO 

02120* 
02130 SQftTP 
02140 

02150 
03110 
02170* 
02180 NZARG 
02190 

02200* 
03010 EVEN 

03020 
03030 
03040 
03050* 

03060 SETAOO 

03070 
03080 
03090 
03100 
03110 
03120 



oc 



TFL 
•0 



Bl Ml 
DORQ *-9 



CORE POSITIONS 00049-00099 USEO FOR TEMP. STORAGE 
IT IS ASSUMEO THAT THE ARGUMENT IS NON-NEGATIVE 
METHOD*.. 000 INTEGER I8-0IGIT MANTISSA) 

LOCATION OP ADDRESS OP CALLING ARGUMENT 
00005 00006 

SQRTP SUBROUTINE SUBPROGRAM ENTRY 

MOVE ARGUMENT 00006 00 00079 OOOON 

BRANCH IP ARGUMENT IS NON-ZERO 

00018 M3 00032 00070 
EXIT 00030 42 00000 00000 

00012 



ARG«ARGAOD,U« 
NZAft0,ARG-9, t 



MM 
90 



AftGtSOaO 
000i9l,, 



TPM ARG-10,,9, 

TPM JNDX,ARG-18 
8 000*48 
OORG *-3 

TPM SQRTFN, 8SQR TP ,# 



SINFN, AISINF 
COSFN, A9C0SF 
ATANFN, BfATANF 
EXPPNtCtEXPP 
LOGFN, DtLOGF 



TFM 
TPM 
TPM 
TPM 
TPM 
TftA 



03130 


TCO 


SETAOO 


03140 


OORG 


SETAOO 


03150* 






03160 000 


CP 


ARG-9 


03170 


TON 


ARC- 10,, 11 


03180 


TPM 


INOX,ARG-l« 


03190 


AM 


99,50,10, 


03200 


MP 


97,99, , 


04010 


TPM 


SFLAG* 6, ARC- 16 


04020 


TPM 


SLT*6,REG~2 


04030 


TPM 


CNTft,8,10 


04040 SHIPT 


PSL 


•AftG-2,, 


04050 


AM 


IN0X,1,10 


04060 


TPL 


AEG* 2, PL CO* 


04070 


AM 


REG, 2, 10 


04080 


S> 


INDX,REG,6 


04090 


BNN 


•-24 


04100* 






04110 


SM 


CNTR,i»10 


04120 


tl 


TERM 


04130* 






04140 CONT 


ft 


IM0X,ftEG,6 



00032 13 00079 OOONO 
BRANCH IP O00-NUM8EAE0 CHARACTERISTIC 

00044 Ml 00088 00099 

CLEAR FLAGS AA6-10 ANO AAG-ll 

00056 16 00069 00-00 
00068 J6 00190 -0061 
00Q80 M9 00136 00000 
00088 



SET SUBROUTINE ENTRY 



ADDRESSES 
00088 10 02426 -0006 
00 100 10 02431 -0452 
00112 10 02436 -0524 
00124 10 02441 -0950 
00136 10 02446 -1676 
00148 10 02451 -2444 
00160 10 00565 -0179 
00172 49 00716 00000 
00179 00002 2K 
00181 00005 -0197 
00166 00001 • 
00187 00006 IJ9783 
00193 00003 -03 
00196 00006 -0000* 
00088 
00088 



SET PROPER SIGN 



fXPANO MANTISSA 



00088 


33 


00070 


00000 


00100 


IS 


00069 


0000- 


00112 


J6 


00190 


-0060 


00124 


11 


00099 


OOONO 


00136 


71 


00097 


00099 


00148 


J6 


00322 


-0061 


00160 


J6 


00346 


-0055 


00172 


J6 


00181 


000-9 


00184 


OS 


00000 


00077 


00196 


J I 


00190 


000-1 


00208 


00 


000S9 


00303 


00220 


11 


00057 


000-2 


00232 


K2 


0019- 


00057 


00244 


M6 


00220 


01300 


00256 


J2 


00181 


000- 1 


00269 


M6 


00394 


01200 


00290 


Kt 


0019- 


00097 



PAGE I 



04190 


CF 


lMDX. 100.&B410 

• , % WW (Vlv|V 




00292 


L3 0019— 




04140 


AN 






00304 


1 1 An t a a 
ill 00190 


000—2 


041 7fl Ul 4£ 


SF 






003 16 


32 00000 


00000 


04160 


AN 


* 6 1 10 




00326 


Jl 00322 


000— t 


041QA 4LT 


FSL 


»REG 




00 340 


Aft AAAAA 
09 OOOOO 


00057 


04200 


SH 


*— 6, 1 1 10 




00352 


J2 00346 


000- 1 


09010 


SN 






00364 


1 9 nnnti 
H 0009 r 




05020 


g 


*Mt * Y4 4M 




'2**1* 


W9 UOIJ2 


AftftAA 

OOOOO 


05030 


0ORG 


*-*3 




00384 






05040* 














ncntn TERM 


TF 


ARv 1 97 1 1 




r?U¥e RESULT CXPUNcNT 003B4 


26 00079 


00097 


05060 


MM 


REG, 5 1 10 




00396 


13 00057 


000—5 


05070 


SF 


91 




00408 


32 00091 


00000 


05090 


TF 


ARG-2.96,, 




MOVE RESULT MANTISSA 00420 


26 00077 


00098 


09090 


TFL 


ARGAD0,AAG»6» 




RETURN RESULT 00432 


-6 OOOON 


00079 


05100 


88 


• » ♦ 




EXIT 00444 


42 00000 


0000. 


09110 


0QRG 


*-9 




00446 






05120* 














IN 


OS 


ee.79 

9*9? 




09074 


00009 




AC 1 a E£ 

09*40 Rtb 






0005? 




nil ia (*MTB 


^5 


2.SHIFT-3 




00181 


00002 




03160 INOX 


OS 


,SHIFT*6 




00190 


00000 




nil ?n n rnu 


OS 


4*C0NT*23 




00303 


00004 




nisi on* 
















HEAD 


A 




00000 






05200* 




IBM 1620-1311 AD-APT FLOATING SINE-COSINE SUBROUTINE 




AAA 1 A* 














06020* 




THE RANGE 


OF 


THE ARGUMENT IS UNRESTRICTED 




060 JO* 




CORE POSITIONS 00044-00099 USED FOR TEMP, 


, STORAGE 




06040* 




METHOD.. 


HASTINGS APPROXIMATION IB-DIGIT 


MANTISSA) 
















06060 AAGCON 


oc 


6 t 0» » 




LOCATION OF AOORESS OF CALLING ARGUMENT 










00451 


00006 




06070* 




SINF SUBROUTINE SUBPROGRAM ENTRY 






060B0 >inr 


TFL 


THETA, 0.5PI,, 




PI/2.0 00452 


00 00079 


00838 


06090 


TFL 


XSQ, ARGCON, lit 




MOVE ARG TO XSQ 00464 


00 00067 


0045J 


0610Q 


FSL 


XSQ-ll,XSQ-2,, 




FABRICATE 10-OIGIT MANTISSA 
00476 


05 00056 


00065 


06110 


FSUB 


THETA i XSOt * 




THETA-PI/2.0-ARG 00488 


02 00079 


00067 


06120 


TF 


COSF- I, ARGCON 




00500 


KO 00523 


00451 


06130 


8 


• ♦36 




00512 


M9 00548 


00000 


061 40* 




COSF SUBROUTINE SUBPROGRAM ENTRY 






A4.1KA ^flCtf 

06150 CU5r 


TFL 


THETA, *-l, 11, 




MOVE ARG TO THETA 00524 


00 00079 


0052L 


06160 


FSL 


THE T A- lit THE TA-2 


t • 


FABRICATE 10-OIGIT MANTISSA 
00536 


05 00068 


00077 


061 70 


BNF 


SUB2PI.THETA-2,, 




BRANCH IF THETA tS POSITIVE 
00548 


M4 00584 


00077 


06180* 














06190 A0D2PI 


FADO 


THETA, TWOPI it 




THETA«THETA*2.0*PI 00560 


OJ 00079 


00874 


06200 


BNP 


ADD2PI mi 




BRANCH IF THETA IS NON-POSITIVE 












00572 


M7 00560 


0LL0O 


07010* 














07020 SUB2PI 


FSU6 


THETA, TWOPt tt 




THETA-THETA-2.0*PI 00584 


OK 00079 


00874 


07030 


BNN 


SUB2PI , * t 




BRANCH IF THETA IS NON-NEGATIVE 












00596 


M6 00584 


01300 


07040* 














07050 


FAOO 


THETA, PI ,, 




THETA»THETA*P1 00608 


OJ 00079 


00850 


07060 


SF 


THETA-2, , , 




THETA— ABSF (THETA) 00620 


32 00077 


00000 


07070 


FAOO 


THETA, 0.5PItt 




THETA»THETA*PI/2#0 00632 


OJ 00079 


00838 


07080 


FMUL 


X,2/PI«, 




X*(2.0*ARG)/P1 00644 


OL 00079 


00862 



07090 




TFL 


07100 




FMUL 


07110 




TFL 


07120 




FMUL 


07130 




FADO 


07140 




FMUL 


07150 




FADO 


07160 




FMUL 


07170 




FADO 


07180 




FMUL 


07190 




FAOO 


07200 




FMUL 


08010 


SRT 


fsr 


08020 




TFL 


08030 


EXIT 


BB 


08040 




DORG 


08050* 






06060 


THETA 


OS 


08070 


X 


OS 


08080 


XSQ 


OS 


08090 


S I GMA 


DS 


08100 




OC 


08110 


0.5PI 


OC ! 


08120 




DC 


08130 


PI 


DC 


08140 


OC 


06150 


2/PI 


DC 


08160 




OC 


08170 


TMOPI 


DC 


06180 




OC 


08190 


CI 


OC 


08200 




OC 


09010 


C3 


OC 


09020 




OC 


09030 


C5 


OC 


09040 




OC 


09050 


C7 


OC 


09060 




OC 


09070 


C9 


OC 


09080* 




09090 




HEAO 


09100* 




09110* 




09120* 




09130* 




09140* 




09150* 




09160 


AOOCON 


OC 


09170 


XAOOR 


OS 


09180 


VAODR 


OS 


09190 


THETA 


OS 


09200* 




10010* 




10020 


ATAMP 


TFL 


10010 




TFL 


10040 




TFL 


100 90 




POtV 



XSQtX 

XSQtX,, 

SIGMA, XSQ, • 

SIGMA, C9 

SIGMA, C7 

SIGMA, XSQ 

SIGMA, C5 

SIGMA, XSQ 

SIGMA, C3 

SIGMA, XSQ 

SIGMA, CI 

SIGMA, X,, 

SIGMA-2,SIGMA-4,, 

C0$F-ltSIGMA,6t 

» , ♦ 

•-8 

12,79 
, THETA 
12,67 
12,55 

10,1570796327 
2,1 

10,3141592637 
2,1 

10,6366197757 
2,0 

10,6263185274 
2*1 

10,-1570796318 
2*1 

10,6459637111 
2*0 

10,-7968967928 
2t-t 

10*4673765570 
2,-2 

lOt-1514841900 
2,-1 



X**2 

MOVE X**2 



00656 06 00067 
00668 03 00067 
00680 06 00055 
00692 OL 00055 
00704 OJ 00055 
00716 03 00055 
00728 OJ 00055 
00740 03 00055 
00752 OJ 00055 
00764 03 00055 
00776 OJ 00055 
SUMMATION II«0,N) 00788 03 00055 

SHIFT TO 8-016! T MANTISSA 

00800 08 00053 
RETURN RESULT 00812 -6 0052L 

EXIT 00824 42 OOOOO 

00827 



00079 
00079 
00067 
00934 
00922 
00067 
00910 
00067 
00898 
0006 7 
00886 
00079 

00051 
00055 
00000 



00079 
00079 
00067 
00055 
00836 
00838 
00848 
00850 
00860 
00862 
00872 
00874 
00884 
00886 
00696 
00898 
00908 
00910 
00920 
00922 
00932 
00934 



00012 
00000 
00012 
00012 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 



s OOOOO 
IBM 1620-1311 AO-APT FLOATING INVERSE TANGENT SUBROUTINE 

THE RANGE OF THE ARGUMENTS IS UNRESTRICTEO 

CORE POSt T IONS 00020-00099 USEO FOR TEMP. STORAGE 

METHOD.. HASTINGS APPROXIMATION Ci-OIGIT MANTISSA) 



15,0 

5t AOOCON- 10* 



5, AOOCON- 5, 
**•• 



00949 00015 
AOORESS OF X-COMPONENT OF VECTOR 

00939 00005 
AOORESS OF Y-CONPONEMT OF VECTOR 

00944 00005 

AOORESS OF RESULT 00949 00005 



ATANF SUBROUTINE SUBPROGRAM ENTRY 
XtXAOORtllt MOVE X 

Y, YAOOR* lit HOVE V 

ARTRtVt* MOVE 01VI0EN0 

AftTRtXtt ARTR-V/* 



00950 00 00079 0093R 
00962 00 00067 0094M 
00974 06 00099 00067 
009B6 09 00099 00079 



I'm 



MGf 9 





CP 


ARTR-2*** 


ARTR*6BSP(A»TR) 


00996 


13 


00051 


OOOOO 


10070 


•v 


IfROX,,, 


•RANCH IP X IS 2110 


01010 


M6 


01196 


01400 


10090* 
















10090 NZEROX 


•MP 


P9SXfX-2«* 


•ranch ip x is positive 
















01022 


M4 


01426 


€0077 


10100* 
















10110 NtGX 


TFt 


OMEGA, PI, » 


OMEGA*PI 


01034 


00 


00043 


01602 


10120 


82 


$RT,», 


•RANCH IP V IS ZERO 


01046 


M6 


01330 


01200 


10130* 
















10140 


•N 


POSYl*,, 


•RAMCM IP V 1$ POSITIVE 
















01056 


M7 


01476 01300 


10150* 
















10160 NIGVl 


TOM 


SRT-11,1 




01070 


4i 


01119 


00001 


10170 


FSt 


AR TR- 1 1 , AR TR-2 • , 


FABRICATE 10-0161 T MANTISSA 
















01062 


06 


00044 


00053 


10180 AtC TAW 


TFt 


XPtUSt.ARTR 




01094 


06 


00031 


00055 


10190 


FSU6 


XMIN1,0NE V , 


X-1.0 


01106 


OK 


00055 


01626 


10200 


FAOO 


XPtUSl,ONE,» 


X*l.O 


01118 


OJ 


00031 


01626 


11010 


FDIV 


QUO,XPtUSl», 


IX-U0)/IX*1«0» 


01130 


09 


00055 


00031 


11020 


TO 


•*13,SRT-11 




01142 


KM 


01155 


01319 


11030 


PADO OMIGA, 0.23*1,, 


OMfGAvOMlGA PI/6,0 
















01194 


OJ 


00043 


01670 


110*0 


tfl 


SIGMA, QUO 




01166 


06 


00067 


00035 


11050 


PMUt 


SIGMA, QUO 




01176 


01 


00067 


00056 


11060 


TFt 


QUOSQ, SIGMA, , 


(fX~l,0)/IX*L0»M*2 


• Z**2 
















01190 


06 


00079 


00067 


11070 


FMUt 


SIGMA, CIS,, 


C(15)*2**2 


01202 


OL 


00067 


01590 


11080 


TFM 


TERM*U,C13 




01214 


JO 


01269 


— 1576 


11090 


TFM 


CNTR,T,|0 




01226 


J6 


0102 1 


000*7 


11100 


B 


TERN 




01236 


M9 


01296 


OOOOO 


11110 


OORG 


•-3 




01246 








11120* 
















11130 


FMUt 


SIGMA, QUOSQ 




01246 


03 


ft AAA Y 
0000 f 


00079 


11140 TERN 


FAOO 


SIGMA 




01256 


01 


00067 




11150 


SM 


*-l,12»10 




01270 


J2 


1269 


O0OJ2 


UUO 


SM 


CMTR,1,10 




01262 


J2 


01021 


000—1 


11170 


6NZ 


TERM- 12 




01296 


M7 


01266 


01200 


11160* 
















11190 


FMUL 


SIGMA, QUO, , 


SUMMATION (1*0*71 


01306 


01 


00067 


00095 


11200 


PADO OMEGA, SIGMA, , 


OM|GA*OMEGA I*,-) SIGMA 
















01311 


01 


00043 


00067 


WOIO SAT 


FSR 


0MEGA*2,QMEGA-6t , 


SHIFT TO O-OIOIT MANTISSA 
















01330 


06 


00041 


00039 


12020 


TFL 


THE T A, OMEGA, 6, 


RETURN RESULT 


01342 


-6 


0094R 


00043 


12030 


BB 


»• • 


EXIT 


01354 


42 


ooooo 


OOOOO 


12040 


OORG 


*-9 




01356 








12050* 
















12060 ZEROX 


BO 


NZEROY, V-9,, 


•RANCH IF V IS NON-ZIRO 
















01356 


M3 


01366 


00056 


12070* 
















12060 IE ROY 


TFt 


OMEGA, ZRO», 


SET RESUIT TO 0*0 


01366 


00 


00043 


01614 


12090 




SRT 




01380 


M9 


01330 


OOOOO 


12100 


OORG 


*-3 




01366 








12110* 
















12120 NZEROY 


•MP 


posv2*v-2*t 


•RANCH IF V IS POSITIVE 
















01381 


M6 


01616 00069 


12130* 
















12160 HECV2 


TFt 


TMETA,1.9*I,6, 


SET A! SUIT TO I.O*PI/2.0 
















01400 


•0 


00*46 


01436 


12150 


eel 


• t* 


txit 


01412 


42 


00000 


OOOOO 


12160 


OORG *-9 




01414 








12170* 
















12180 P0SV2 


TFt 


THETA,0.SPI,6, 


SET RESUIT TO PI/2.0 


01414 


-0 


0094R 


01646 


12190 


BB 


» • • 


EXIT 


01426 


42 


OOOOO 


OOOOO 


12200 


OORG 


*-9 




01426 








13010* 
















13020 POSX 


tfl 


OMEGA, ZRO, , 


SET RESULT TO 0.0 


01428 


00 


00043 


01614 


13030 


BZ 


SRT,,, 


RETURN IF V IS ZERO 


01440 


M4 


01330 


01200 


13040* 
















13050 


BP 


ARCTAN-24,,, 


•RANCH IF V IS FOSITtVE 












01452 


M6 


01070 


01100 


13060* 
















13070 NEGY3 


TFt 


0MEGA.2.0PI,, 


SET RESULT TO 2.0*P! 


01464 


00 


00043 


01696 


13080 POSYl 


TOM 


SRT-U,2 




01476 


J9 


01319 


00002 


13090 


B 


ARCTAN-12 




01466 


M9 


01062 


OOOOO 


13100 


OORG 


•-4 




01499 








13110* 
















13120 


DC 


10,9999993329 




01504 


00010 




13130 CI 


DC 


2*0 




01506 


00002 




13140 


DC 


10,-3332983605 




01516 


00010 




13150 C3 


OC 


2*0 




01516 


00002 




13160 


OC 


10,1994653599 




01526 


00010 




13170 C5 


OC 


2*0 




01530 


00002 




13180 


DC 


10,-1390653351 




01540 


00010 




13190 C7 


OC 


2,0 




01542 


00002 




13200 


OC 


10,9642004410 




01552 


00010 




14010 C9 


OC 


2,-1 




01554 


00002 




14020 


OC 


10,-5590968610 




01544 


00010 




14030 CU 


DC 


2,-l 




01566 


00002 




14040 


DC 


10,2166122§60 




01576 


00010 




14050 C13 


DC 


2,-1 




01578 


00002 




14060 


OC 


10,-4056058000 




01566 


00010 




14070 C15 


OC 


2,-2 




01590 


00002 




14080 


OC 


10,3161592637 




01600 


00010 




14090 PI 


DC 


2,1 




01602 


00002 




14100 


OC 


10,0 




01612 


00010 




14110 2*0 


DC 


t,-99 




01614 


00002 




14120 


OC 


10,1000000000 




01624 


00010 




14130 ONE 


OC 


a»i 




01626 


00002 




14140 


OC 


8,67113690 




01636 


00006 




14150 L5'f 


DC 


2*1 




01636 


09002 




14160 


DC 


6,15707963 




01644 


00006 




14170 0#SPI 


OC 


2,1 




01646 


00002 




14180 


DC 


10,6263165276 




01666 


00010 




14190 2.0PI 


OC 


2,1 




01658 


00002 




14200 


OC 


10,7653901664 




01666 


00010 




15010 0.25*1 


OC 


2*0 




01670 


00002 




15020* 








00079 








15010 X 


OS 


12*79 




00012 




15040 Y 


OS 


12,67 




00067 


00012 




15050 ART* 


OS 


12*65 




00055 


00012 




15060 OMEGA 


OS 


12*63 




00043 


00012 




15070 SIGMA 


OS 


»v 




00067 


00000 




15080 xplusi 


OS 


12*31 




00031 


00012 




15090 XMIM1 


OS 


,AftTft 




00093 


09000 




15100 QUO 


OS 


•XMINl 




00665 


60000' 




15110 OUOSQ 


OS 


• X 




00079 


00000 




16120 CMII 


OS 


2fM2fftOX«l 




• 1021 


#0002 




15130* 








00060 








15140 


Ml AO C 











»»r.e » 



I '.Si 



1*1*0* IBM 162CH1311 AO-APT FLOATING EXPONENTIAL SUBROUTINE 
15160* 

15170* THE RANGE OF THE ARGUMENT IS UNRESTRICTED 

1^160* CORE POSITIONS 00056-00099 USED FOR TEMP. STORAGE 

15190* METHOD.. HASTINGS APPROXIMATION IB-DIGIT MANTISSA) 

15200* 



IfcHin ABCMM7 


DC 


5# 0» • 


LOCATION OF ADORESS 


OF CALLING 


ARGUMENT 










01675 


00005 




1 6020* 




EXPF SUBROUT! 


INE SUBPROGRAM ENTRY ' 








loUJU t*rr 


TFL 


AH lit ARGHNTf 1 1 9 


MOVE ARGUMENT 


01676 


00 


00079 


0167N 


16040 


F SL 


ARG-1 I .ARG-2* • 


FABRICATE 10-0IGIT 


MANTISSA 
01688 


05 


00068 


00077 


16050 


FMUL 


ARGtLOGlOEf t 


ARG/ILN 10.0) 


01700 


OL 


00079 


02437 


16060 


BNF 


POSXf ARG-2»f 


BRANCH IP ARGUMENT 


IS POSITIVE 














01712 


M4 


01840 


0007T 


16070* 
















16080 NEGX 


TDM 


BRNOPMf 9 




01724 


J5 


01969 


00009 


16090 


CF 


ARG-2,,, 


ARG-ABSFIARG) 


01736 


3) 


00077 


00000 


16100 


CM 


ARC, ,10 




01741 


14 


00079 


000-0 


161 10 


TPM 


EXPt tlOt 


CLEAR EXPONENT MODIFIER 
















01760 


J6 


01943 


000-0 


161 20 


BH 


ARGMQDf 1 1 


BRANCH IP EXPONENT 


EXCEEDS 00 














01772 


M6 


02038 


ouoo 


161 30* 
















161 40 


TFL 


Z, ARGf t 


Z-ARG 


01784 


06 


00067 


00079 


161 50 


FMUL 


Z* A7t t 


Z*A(7) 


01796 


OL 


00067 


02405 


161 60 


TFM 


TERM+1 1 v A* 




01808 


JO 


01883 


-2393 


16170 


TFM 


CNTR.7.10 




01820 


J6 


02203 


000-7 


161 80 


B 


TERM 




01832 


M9 


01872 


00000 


16190 


DORG 


•-3 




01840 








16200* 
















17010 POSX 


TOM 


BRNOP* 1 t 1 t 11 




01840 


J5 


01969 


OOOOJ 


1 7020 


B 


NEGX*24 




01852 


M9 


01748 


00000 


17030 


DORG 


•-3 




01860 








17040* 
















17050 


•FMUL 


Z.ARG 




01860 


03 


00067 


00079 


17060 TERM 


FADO 


Z 




01872 


01 


00067 


00000 


17070 


SM 


*-l#12tlO 




01884 


J2 


01883 


O0OJ2 


17060 


SM 


CNTRf If 10 




01896 


J2 


02203 


000- 1 


17090 


BNZ 


TERM- 12 




01908 


M7 


01860 


01200 


17100* 
















171 10 


FMUL 


ZtZ 




01920 


03 


00067 


00067 


17120 


AM 


Zt»* 


E**ARG 


01932 


11 


00067 


-0000 


17130 


BV 


OVFLO, ,» 


BRANCH IF RESULT OUT OF RANGE 














01944 


M6 


02270 


01400 


17140* 
















17150 


TFL 


ARG»Z 




01956 


06 


00079 


00067 


17160 BRNOP 


NOP 


EXIT*2,tf 


BRANCH IF ARGUMENT 


MAS NEGATIVE 












01968 


Ml 


02006 


00000 


17170 


FSR 


ARG-2t ARG-4f t 


SHIFT TO 8-0IGIT MANTISSA 
















01980 


08 


00077 


00075 


17180 


TFL 


ARGMNTt ARG,6» 


RETURN RESULT 


01992 


-6 


0167N 


00079 


17190 EXIT 


BB 


1 1 1 


EXIT 


02004 


42 


00000 


00000 


17200 


OORG 


*-9 




02006 








18010* 
















18020 


TFL 


ARG.l.O 




02006 


00 


00079 


02321 


18030 


FOIV 


ARGt Z t t 


E**(-ARG) 


02018 


09 


00079 


00067 


18040 


B 


EXIT-24 




02030 


M9 


01980 


00000 


18050 


OORG 


»~3 




02038 









18060* 



18070 ARGMOO 


CM 


ARG.2tlO 


18080 


BH 


OVFLO,,, 


18090* 






18100 


BE 


EXP02... 


18110* 






18120 EXPOl 


TD 


EXPtARG-11 


18130 


CF 


EXP 


18140 


FSL 


ARG-I2f ARG-2 ft 


18150 


SF 


ARG-1 1 


18160 


TFM 


ARG« 1 10* 


18170 


TFM 


CNTRf 8,10 


18180 NORM 


80 


NEGX+60f ARG-1 1» 1 


18190* 






18200 


SF 


ARG-10 


19010 


FSL 


ARG-ll f AR6-2 


19020 


SM 


ARGf If 10f 


19030 


SM 


CNTRf if 10 


19040 


BNZ 


NORM 


19050* 






19060 


TFL 


Z» I. Of» 


19070 


B 


TERM*60 


19080 


OORG 


*~3 


19090* 






19100 EXP02 


TF 


EXP V ARG-10 


19110 


FSL 


ARG-13fARG-2f f 


19120 


B 


EXP01+3* 


19130 


OORG 


•-3 


19140* 






19150 OVFLO 


BNF 


UNFLOf BRNOP* 1 


19160 


TFL 


ARGMNTf FLINFNf &> 


19170 


BB 


f f f 


19180 


OORG 


*~9 


19190* 






19200 UNFLO 


TFL 


ARGMNTf 0*0,6 


20010 


BB 


tf * 


20020 


OORG 


*-9 


20030* 






20040 


DC 


10* 1000000000 


20050 AO 


DC 


2fl 


20060 


DC 


10f 115129277* 


20070 Al 


DC 


2f 1 


20080 


DC 


10,6627308843 


20090 A2 


DC 


2f0 


20100 


DC 


10,2543935748 


20110 A3 


DC 


2*0 


20120 


DC 


10,7295173664 


20130 A4 


OC 


2,-i 


20140 


OC 


10,1742111988 


20150 A5 


OC 


2f-i 


20160 


DC 


10.25549119*0 


20170 A6 


OC 


2f-2 


20180 


OC 


tOf 9326426700 


20190 A 7 


OC 


2ft 



02038 14 00079 000-2 
BRANCH IF ARGUMENT OUT OF RANGE 

02050 M6 02270 01100 

BRANCH IF EXPCNENT IS 02 

02062 M6 02238 01200 

02074 K5 01941 00068 
02086 L3 01943 00000 

ELIMINATE INTEGER PORTION OF MANTISSA 

02098 05 00067 00077 
02110 32 00068 00000 

ASSUME NO LEADING ZEROS IN DECIMAL 

02122 16 00079 000-0 
02134 J6 02203 000-8 

BRANCH IF NON-ZERO DIGIT 

02146 MS 01784 00068 



DECREMENT EXPONENT 



02158 32 00069 00000 

02170 05 00068 00077 

02182 12 00079 000-1 

02194 J2 02203 000-1 

02206 M7 02146 01200 



ARGUMENT IS AN INTEGER 

02218 00 00067 02321 

02230 M9 01932 00000 
02238 

02238 K6 01943 00069 
ELIMINATE INTEGER PORTION OF MANTISSA 

02250 05 00066 00077 

02262 M9 02110 00000 
02270 

02270 MM 02296 01969 

02282 -0 0167N 02425 

EXIT 02294 42 00000 00000 
02296 

02296 -0 0167N 02415 

EXIT 02308 42 00000 00000 
02310 



02319 
02321 
02331 
02333 
02343 
02345 
02355 
02357 
02367 
02369 
02379 
02381 
02391 
02393 
02401 
02405 



00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 
00010 
00002 



PAGE 9 



20200 


oc 


6*0 


02413 


00008 




21010 0*0 


DC 


2*-99 


02415 


00002 




21020 


OC 


8*99999999 


02423 


00008 




210*0 rLINrN 


oc 


2»99 


02425 


00002 




2 1040 


oc 


10*434194681% 


02435 


00010 




21050 LOG10E 


oc 




02437 


00002 




2 1060* 












21070 1*0 


OS 


• AO 


02321 


00000 




2 10 oO AR6 


OS 


14*79 


00079 


00014 




21090 EXP 


OS 


2«TERM*71 


01943 


00002 




21100 Z 


OS 


12*67 


00067 


00012 




21110 CNTR 


OS 


2, NOR**? 7 


02201 


00002 




21120* 












2 1 1 JO 


NIAO 





00000 






21 1 40* 




IBM 1620*1111 AO-APT FLOATING NAT. LOGARITHM SUBROUTINE 




21150* 












21160* 




IT IS ASSUMEND THAT THE ARGUMENT IS NON-NEGATIVE 




211 70* 




CORE POSITIONS 00044-00099 USED FOR TEMP 


. STORAGE 




21180* 




METHOD... 


TRUNCATED INF. SERIES t6-0IG(T 


MANTISSA) 


21190* 












21200 ARGUMT 


oc 


6*0. » 


LOCATION OF ADDRESS OF CALLING ARGUMENT 








02443 


00006 




22010* 




LOGF SUBROUTINE SUBPROGRAM ENTRY 






22020 LOOP 


TFL 


ARGi ARGUMTt 11 • 


MOVE ARGUMENT 02444 


00 00079 


..... 
L 


220)0 


TFM 


ARG* * 10. 


REOUCE RANGE OF ARGUMENT 












02456 


16 00079 


000-0 


22040 


BO 




BRANCH IF ARGUMENT IS NON-ZERO 










02468 


M3 02494 


00070 


22050* 












22060 LQGO.O 


TFL 


ARGUMT .LOGO* 6* 


SET RESULT TO - INFINITY 












02480 


-0 0244L 


0291 3 


22070 


B8 




EXIT 02492 


42 00000 


AAAAA 


22080 


OORG 


Hi 


02494 






22090* 












22100 N2ARG 


FSL 


ARG-ll.ARG-2** 


FABRICATE 10-OIGIT MANTISSA 












02494 


05 00068 




22110 


TFM 


L0GX*il.L0Gl 


02506 


JO 02785 


-2925 


22120 


cm 


ARC- ID. 90. 10 
%f ivf ?vi i w 


02518 


14 00069 


000N0 


221 30 


BNL 


•♦44 tit 


BRANCH IF LEAOING OIGIT EXCEEDS 4 










02530 


M6 02574 


01300 


22140* 












22150 


A 


AftfVO » ARG— 9 a a 
M r\ Vf C * IRU ""C f * 


DOUBLE REDUCED ARGUMENT 












02542 


9 1 AAA 9 <t 

21 00077 


00077 


22160 


AM 


1 flft V*l 1 . 1 9 . 1 A 

LUv ATli*lC*tv 


02554 


Jl 02785 


000 J2 


22170 


B 


M7 ADA* 9A 


02566 


M9 02518 


UUOOO 


22180 


OORG 


•-3 


02574 






22190* 












22200 


TFL 


yy tut .ADA 


02574 


06 00067 


00079 


23010 


FSU8 


Xlt 1 Ml . 1 . ft • . 
API INl | liUl f 


• X-l .0 OZ586 


OK 00067 


02985 


23020 


FAOO 


X0I AME . 1 .ft. . 

a~ tunc * i • v * * 


X*1.0 02598 


OJ 00079 


02985 


23030 


FDIV 


KM I Ml - If 91 ftM£ * * 
A^ IHl f Ar kUIVC * * 


|X-1 .01/1 X+1.0) 02610 


09 00067 




23040 


TFL 


2SQ*Z 


02622 


06 00079 


00067 


23050 


FMUL 


ZSQt Zf » 


Z**2 02634 


03 00079 


00067 


23060 


TFL 


et rui _ yen 


02646 


06 00055 


n??Ia 


23070 


FMUL 


<I fiMA.Cl 1. . 

SlwUHf bt J| * 


Cflll*Z**2 02658 


OL 00055 




23080 


TFM 


TERM* 1 1 .C 1 1 
1 CAM* A I » V 1 1 


02670 


JO 02725 




23090 


TFM 


cuxa .i.in 

trNlHtVf HI 


02682 


J6 02735 


00O-6 


23100 " 


6 


TERM 


02694 


M9 02714 


OuOOO 


23110 


OORG 


»— 3 


02702 






23120* 












23130 


FMUL 


(Trm yen 
SlunA* cad 


02702 


03 00055 


00079 


23140 TERM 


FAOO 


SIGMA 


02714 


01 00055 


AAAAA 

OUOOO 


23150 


SM 


•-1.12*10 


02726 


J2 02725 




23160 


SM 


CNTR* 1*10 


02738 


J? 02735 


000— 1 


23170 


8NZ 


TERM— 12 


02750 


M7 02702 


01200 


23160* 












23190 


FMUL 


SIGMA* Z»* 


L0G(N*X). N«l. 2*4.8 02762 


03 00055 


00067 


23200 L0GX 


FSU8 


SIGMA* * * 


LOG! XI *L0G(N«X ) -LOGIN) 












02774 


02 00055 


00000 


24010 


TOM 


L0GAX+ 1 « 1 * » 


ASSUME POSITIVE EXPONENT 












02766 


J5 02859 


00001 


24020 


BNF 


LUVHA" <"ts*r| ft I * 














02798 


MM 02834 


0244L 


24030* 












24040 


CF 


EXP. .6 


02810 


L3 0244L 


AAAAA 

uuuuu 


24050 


TOM 


LOGAX'fl *2 


02822 


JS 02859 


nnn-f 


24060 


SM 


EXP. 1 »610 


02634 


J2 0244L 


ni ifti 


24070 


BN 


SRT 


02646 


M7 02878 




24080* 












24090 L0GAX 


FAOO 


SIGMA* LOG 10* • 


LOG 1 ARC I 02858 


OJ 00055 


02973 


24100 


B 


•-36 


02870 


M9 02814 


AAAAA 


24110 


OORG 


•—3 


02878 






24120* 












24130 SftT 


FSR 


S I GM A— 2 * S I CM A-4 * * 


SHIFT TO 8-0ICIT MANTISSA 










02878 


08 00053 


AAA«| 


24140 


TFL 


AOfllHT <VRlia\.A. 


RETURN RESULT 02890 


-6 0244L 


00055 


24150 


BB 


* * * 


EXIT 02902 


42 00000 


0006(1 


24160 


OORG 




02904 






24170* 












24180 


OC 


o*— 99™"™™™™ 


02911 


00008 




24190 LOGO 


DC 


2*99 


02913 


00002 




24200 


OC 


10*0 


02923 


00010 




25010 LOG I 


OC 


2,-99 


02925 


00002 




25020 


OC 


10*6911471805 


02935 


00010 




25030 L0G2 


OC 


2*0 


02937 


00002 




25040 


OC 


10*1186294161 


02947 


00010 




25050 L0G4 


OC 


2*1 


02949 


00002 




25060 


OC 


10*2079441542 


02959 


00010 




25070 LOGS 


OC 


2*1 


02961 


00002 




25080 


DC 


10*2102585091 


02971 


00010 




25090 L0G10 


DC 


2*1 


02973 


00002 




25100 


DC 


10*1000000000 


02983 


00010 




25110 1.0 


OC 


2*1 


02985 


00002 




25120 


OC 


10*2000000000 


02995 


00010 




25130 CI 


OC 


2*1 


02997 


00002 




25140 


OC 


10*6666666666 


03007 


00010 




25150 C3 


oc 


2*0 


03009 


00002 




25160 


oc 


10.4000000000 


03019 


00010 




25170 C5 


oc 


2*0 


03021 


00002 




25180 


DC 


10*2657142857 


03031 


00010 




25190 C7 • 


oc 


2*0 


03033 


00002 




25200 


DC 


if. 2222222222 


03043 


000 10 




26010 C9 


OC 


80 


03045 


00002 




26020 


OC 


11,1616161616 


01055 


00010 




26030 Cll 


oc 


2*0 


03057 


00002 




26040 


oc 


10 9 1536461538 


01067 


00010 




26050 Cll 


oc 


2*0 


0106* 


00002 




26060* 
26070 ARC 


OS 


12*79 


00079 


00012 




26080 EXP 


OS 


2* ARGUMT 


02441 


00002 





PAGE 10 



ISO 



01020 


BTN 


MONI TR»02360»6T» 


CALL OSCOUT 


SUBPROGRAM V!A MONITR 














11991 


17 02400 


-2)60 


0)0)0 


BTN 


OSCOUT 12 «6?» 


HAITI ONI AO-APT 


AfCOAO... BRANCH BACK 












11970 


17 02410 


J1982 


0)040 


TFN 


KUT2t tlOt 


SET CUTTING 


NOOE 


INDICATORS 


AT OS AND CS 












11982 


16 06149 


000-0 


03090 


B 


RETURN* »6» 


RETURN TO HONITR 


11994 


49 024U 


00000 


03060 


00*6 


•-) 






12002 






03070* 
















03090 TRACUT 


BTN 


NONt TR»02S20»4T» 


CALL STAACT 


SUBPROGRAM VIA MONITA 














12002 


17 02400 


-2520 


03090 


BT 


STRACT,0SA1»10»6» 


TAACUT SO TO WHNt 12014 


27 02410 


11865 


0)100 


B 


F|X*24 






12026 


49 11991 


00000 


0)110 


OOAG 


•-4 






1203) 






03120* 
















0)1)0 I0G0N 


? c 


4*9 






110)6 


00004 




01140 


DC 


4,1 






116*0 


00004 




03190 


OC 


Stl* 






1204) 


0000) 




03160* 
















03170 KUT1 


OS 


• 6148 






06146 


00000 




0)100 KUT? 


OS 


•kutui 






06149 


00000 




0)190 NSRT 


OS 


1 2479 






02479 


00000 




0)200 RETURN 


OS 


.2411 






02411 


00000 




04010 ossw 


OS 


• 6198 






06158 


00000 




04020 FLU 


OS 


.2488 






02466 


00000 




04030 XO 


OS 


.5892 






09692 


00000 




04040 NPW 


DS 


• 2499 






02499 


00000 




04090 NAT 


OS 


• 2471 






02471 


00000 




04060 MONITR 


OS 


• 2406 






02406 


00000 




04070 SCOUT 


OS 


.2416 






02416 


00000 




04080 TftCTSU 


DS 


•6193 






0619) 


00000 




04090 S TRACT 


OS 


•2414 






02416 


00000 




04100 


OIMO 


SCUT 






11796 







TRCTSH 0619) 
FRPROC 02416 
ER209 119)2 
WE AM 11920 



TAACUT 11952 
OSCOUT 02416 
FLU 02488 
XO 09892 



SYMBOL TABLE 

STAACT 02416 
0SA1 11889 
FRHSW 06191 



RETURN 02411 
OSSN 06198 
MOVE 118)2 



MONITA 02406 
EA208 11896 
SFAOW 11796 



01010* 




IBN 1620-1311 AO-J 


01020* 




A FROM AECOAO 


010 30* 






01040* 




• NAME SFAOM, 


01050* 




•10 NUMBER ( 


01060* 




•STORE COAE 


01070* 




LINKAGE - B SI 


01000* 






01090 


DORC 


11796 


01100* 




SUBPROGRAM I 


Oil 10 SFAOM 


BNA 


EA208.DSSW,, 


01120* 






01130 


6D 


EA209.FRHSW,, 


01140* 






01190 


TON 


FRMSW.l.U. 


01160 MOVE 


TA 


X0-9,FLW*0*10-9,, 


01170 


BNA 


TAACUT, TACTSM,. 


01180* 






01190 


8TN 


MONITA, 02 360. 67, 


01200 


BIN 


OSCOUT, RETURN, 6711 


02010 


OOAG 


•♦9*3-1141 


02020 


NOP 


FLW*l*10,FLW»2*lO 


020)0 


OOAG 


•-14 


02040 OSAl 


OSA 


FLM*0»10 


02050 


OOAG 


• »5*)-4 


02060* 






020 70 ER206 


TFN 


WEAH*9 t 206«9 


02060 


BTN 


MONITA, 02250, 67, 


02090 MEAN 


8TM 


ERPROC,0»67, 


02100 CR209 


TFN 


WfAM*4, 209,9 


02110 


B 


ER 208*12 


02120 


OOAG 


•-) 


021)0* 






02140 TAACUT 


•TN 


MONITA, 02920,67, 


02190 


BT 


STAACT,0SA1*I0«4» 


02160 


DSC 


2»49 


02170 


OSA 


MOVE f 24 


02180* 






02190 OSSN 


OS 


•6158 


02200 FAMSM 


OS 


•4191 


0)010 AO 


OS 


•§•92 



ACS 



11796 

NTAV 

BAANCH IF AEVIEM NODE PREVAILS 

11796 45 11696 06158 

BA ANCM IF FACM STATEMENT IS AEOUNOANT 

11808 43 11932 06151 

SET SWITCH INDICATING FROM STATEMENT 

11820 19 06191 OOOOJ 

STORE FAON POINT COORDINATES 

11632 31 09683 02479 

BRANCH IF TRACUT NOOE PREVAILS 

11844 49 11992 0619) 

CALL OSCOUT SUBPROGRAM VIA HONITR 

11856 IT 02400 -2)60 

WRITE ONE AO-APT RECORD* • • RETURN 

11866 17 02410 -241J 
11884 

11884 41 02498 02508 
11881 

11885 00009 -2488 
11896 

11696 16 11929 00K08 
CALL fRPAOC SUBPROCRAN VIA MONITA 

11908 17 02400 -2290 
WRITE ERROR MESSAGE* •• SEARCH FOR END 

11920 IT 02410 -0000 
119)2 16 11929 00K09 
11944 49 11906 00000 
11992 

CALL 1TRACT SUBPROGRAM VIA NONITR 

11952 17 02400 -2920 

tracut fron win? U964 27 02410 not* 

11976 00002 
11982 00009 J 1196 

06158 00000 
06191 00000 
05642 00000 



0)020 
03030 
030*0 
03050 
0)060 
03070 
03080 
03090 



FLW 

MONITR 
0SC0UT 
RETURN 
ERPROC 
STRACT 
TIICTStf 



.2488 

,2*06 



• 24 

.2* 
#24 
.61 



DENO SFROM 



02488 
02406 
02416 
02411 
02416 
02416 
06193 
11796 



00000 
00000 
00000 
00000 
00000 
00000 
00000 



SINORP OOOOOR 
DFREAD 06302 
FRMSW 06151 
XI 05923 



MONITR 02406 
OSSW 06158 
POVSW 06152 
XO 05892 



SYMBOL table 

ERPROC 02416 
ER208 00L12R 
STORE 00060R 
YO 05902 



OY-O.O 00092R 
ER210 00148R 
WERM 00136R 



OX-0.0 00104R 
FLW 02488 
XCOMP 00024R 



01010* 
01020* 
01030* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 



OHIO SINORP 


BNR 


ER2Q8.DSSW,. 


01120* 






01130 


BNF 


ER210, FRMSW,, 


01140* 






01150 XCOMP 


FSUB 


FtW*0*10tX0tt 


01160 


FSUB 


FLW*l*10»V0», 


01170 


BZ 


OY-0.0,.* 


01180* 






01190 STORE 


TR 


XI-9,FLW*0*l0-9 t 


01200 


TOM 


POVSW, I, 11, 


02010 


B 


DFREAD 


02020 


D0R6 


•-3 


02030* 






02040 OY-0.0 


BO 


STORE tFLW*0* 10-9 


02050* 






02060 OX-0.0 


B 


OFREAO 


02070 


OORG 


*-3 


02080* 






02090 ER208 


TFM 


W€M*9.208»9 


02100 


BTM 


MONITR, 02250, 67, 


02110 WERM 


BTM 


ERPR0Ctl#67t 


02120 ER210 


TFM 


W£RM*9, 210,9 


02130 


OSC 


2#49 


02140 


OSA 


ER208+12 


02150* 






02160 OSSW 


OS 


,6158 


02170 FRMSIf 


OS 


• 6151 


02180 FLW 


OS 


t2488 


02190 XO 


OS 


• 5892 


02200 YO 


OS 


#X0*10 


03010 XI 


OS 


#5921 



IBM 1620-1311 AO-APT SUBPROGRAM FOR PROCESSING 
AN INDIRP RECORO 

RCS 

•NAME SINORP... ERASABLE ARELEM SUBPROGRAM 
•10 NUMBER 0229+DELOIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOAOABLE 
LINKAGE - B SINORP 

SUBPROGRAM ENTRY 

BRANCH IF REVIEW MODE PREVAILS 

00000 M5 00112 06158 

BRANCH IF NO PREVIOUS FROM STATEMENT 

00012 M4 00148 06151 

X-COMPONENT OF DIRECTION VECTOR 

00024 02 02488 05892 
Y-COMPONENT OF OIRECTION VECTOR 

00036 02 02498 05902 
BRANCH IF Y-COMPONENT IS ZERO 

00048 M6 00092 01200 

STORE X-V COMPONENTS OF VECTOR 

00060 31 05914 02479 
SET AIMING DIRECTION INDICATOR 

00072 15 06152 OOOOJ 
00084 49 06302 00000 
00092 

BRANCH IF X-COMPONENT IS NON-ZERO 

00092 M3 00060 02479 

00104 49 06302 00000 
00112 

00112 J6 00145 0OKO8 
CALL ERPROC SUBPROGRAM VIA MONITR 

00124 17 02400 -2250 
MRITE ERROR MESSAGE*.. SEARCH FOR END 

00136 17 02410 -0001 
00148 J6 00145 00 MO 
00160 00002 
00166 00005 -0124 

06158 00000 
06151 00000 
02488 00000 
05892 00000 
05902 00000 
0592$ 00000 



0)020 OFREAO OS ,6*07 06)02 00000 

0)0)0 NONITR OS ,2406 02*06 00000 

0)040 ERPROC OS «24l6 02416 00000 

0)050 POVSW OS »6152 06152 00000 

0)060 DEMO SINORP 00000 



SINORV 00000ft 
ER208 00076R 
XCMP 00044R 



M0N1TR 02406 
FLU 02*88 
X! 0592) 



SYMBOL TABLE 

ERPROC 02416 
NXCMP 00024R 
YCMP 00044R 



DFREAO 06302 
NVCMP 00036R 



DSSW 06158 
POVSW 06152 



01010* 
01020* 
010)0* 
01040* 
01050* 
01060* 
01070* 
01080* 
01090* 
01100* 

OHIO SINORV 

01120* 
01130 

0U40* 
01150 NXCMP 

01160* 
01170 NYCMP 
01180 
01190* 
01200 XCMP 



IBM 1620-1311 AO-APT SUBPROGRAM FOR PROCESSING 
AN INOIRV RECORD 

•NAME SINORV... ERASABLE ARELEM SUBPROGRAM 
•ID NUMBER O230+OEL01M 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - B SINORV 

SUBPROGRAM ENTRY 



RCS 



ER208.0SSW,, 
XCMP t FLW*0*lO-9, » 
VCMP,FLW*l*lO-9,# 



B 

OORG 



OFREAO 
•-) 



02010 

02020 
02030 
02040* 
02050 ER208 

02060 



TR 
TOM 



Xl-9,FLW*0*l0-9## 
PDVSW,l,ll, 



B 

OORG 



OFREAO 
•-) 



BTM 
BTM 



MONITR, 02250,67, 
ERPROC ,20802 • 6? t 



02070* 

02080 

02090 

02100 

02110 

02120 

021)0 

02140 

02150 

02160 



DSSW 
FLW 
YCMP 
OFREAO 
XI 

MONtTR 
ERPROC 
POVSW 



OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 

OENO 



,6158 
,2488 
,XCMP 
• 6302 
,592) 
,2406 
,2416 
,6152 
SINORV 



BRANCH IF REVIEW MODE PREVAILS 

00000 M5 00076 06158 

BRANCH IF X-COMPONENT IS NON-ZERO 

00012 M3 00044 02479 

BRANCH IF Y-COMPONENT IS NON-ZERO 

00024 M3 00044 02489 

000)6 49 06)02 00000 
00044 

STORE X-Y-Z COMPONENTS OF VECTOR 

00044 )1 059U 02479 

SET AIMING DIRECTION INDICATOR 

00056 15 06152 OOOOJ 
00068 49 06)02 00000 
00076 

CALL ERPROC SUBPROGRAM VIA MONtTR 

00076 17 02400 -2250 

WRITE ERROR MESSAGE.. • SEARCH FOR END 

00088 17 02410 K0802 

06158 00000 
02488 00000 
00044 00000 
06302 00000 
05923 00000 
02406 00000 
02*16 00000 
06152 00000 
00000 



SYMBOL TABLE 



TRCTSW 06151 
RETURN 02*11 
DELX 11900 
ER208 11960 
NDELX 11380 
XO 05092 



TRACUT 12004 
MONITR 02406 
DELV 11900 
ER210 12210 
NDELY 11692 
VJ 05933 



SUPPRS 11868 
ERPROC 02416 
OSAl 12103 
FLU 02400 
PDVSW 06152 
YO 05902 



STRACT 02416 
OSCOUT 02416 
0SA2 12199 
FRMSW 06151 
WERN 11992 
ZK 05943 



SCOLTA 11796 

CTMOO 11032 

DSSM 0615B 

KUTl 06140 

XI 05923 

20 05912 



01010* 

01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01000* 

01090 

01100* 

OHIO SGOLTA 

01120* 
01130 

01140* 
01150 

01160* 
01170 CTMOO 

01100* 
01190 

01200 

02010 SUPPRS 

02020* 
02030 NDELX 

02040* 
02050 NDELY 
02060 
02070* 
02000 OELX 

02090 

02100 

02110 

02120 

02130 

02140 

02150* 

02160 ER2O0 

02170 



IBM 1620-1311 AO-APT SUBPROGRAM FOR PROCESSING 
A GOOLTA RECORD 

•NAME SGOLTA. .» NON-ERASABLE ARELEM SUBPROGRAM 
• 10 NUMBER 023UOEL01M 
•STORE CORE IMAGE 
LINKAGE - B SGOLTA 



RCS 



OORG 11796 11796 

SUBPROGRAM ENTRY 
BNR ER208,DSSW,, BRANCH IF REVIEW MODE PREVAILS 

11796 45 11960 06150 



BNR 

BTM 
BTM 
BD 



ER208,DSSW 

ER210tFRMSHtt 

SUPPRS. KUTlt, 

TRACUT* TRCTSW 

MONITR, 02360, 67, 
OSCOUT, •♦12, 67, 
0ELX»FLW*0*10-9t# 



BO 0ELY,FLW>L*10-9 vt 



8 

OORG 



TOM 

FAOO 
FAOO 
FAOO 
B 

OORG 

TFM 
BTM 



RETURN, .6, 
•-3 

Xl~9«FLM>0*10-9«* 

P0VSW.l,ll. 

XOtXltt 
YO,VJ,, 
ZOtZKti 
RETURN, ,6, 
*-3 

WERM+9«208,9 
MONITR, 02250, 67, 



BRANCH IF NO PREVIOUS FROM STATEMENT 

11808 44 12210 06151 

BRANCH IF ONTCUT MODE PREVAILS 

11820 43 11868 06148 

BRANCH IF TRACUT MODE PREVAILS 

11832 45 12004 06153 

CALL OSCOUT SUBPROGRAM VIA MONITR 

11844 17 02400 -2360 

WRITE ONE AO-APT RECORD... BRANCH BACK 

11856 17 02410 J1868 

BRANCH IF OELTA X IS NON-ZERO 

11868 43 11900 02479 

BRANCH IF DELTA Y IS NON-ZERO 

11880 43 11900 02489 



RETURN TO MONITR 



11892 49 0241J 00000 
11900 



02180 WERM BTM ERPROC* 3*67. 



. STORE X-V-Z COMPONENTS OF VECTOR 

11900 31 05914 02479 
SET AIMING OIRECTION INDICATOR 

11912 15 06152 OOOOJ 
X0-X0*XI 11924 01 05892 05923 

YO»YO*YJ 11936 01 05902 05933 

ZO«ZO*ZK 11948 01 05912 05943 

RETURN TO MONITR 11960 49 0241J 00000 

11968 

11968 16 12001 00K08 
CALL ERPROC SUBPROGRAM VIA MONITR 

11980 17 02400 -2250 
WRITE ERROR MESSAGE*. • SEARCH FOR ENO 













11992 


17 02410 


-0003 


02190 


TRACUT 


TR 


FLH*3*10*l-9 v FLW*0*10-9 t , SAVE DELTA 


VALUES 
















12004 


31 02510 


02479 


02200 




FAOO 


FLW*0»10»XO,, 


X1«X0*0ELTA X 


12016 


01 02488 


05892 


03010 




FAOO 


FLW*l»lO,YO, t 


Yl-YO+OELTA Y 


12028 


01 02498 


05902 


03020 




FAOO 


FLW*2*10tZ0,, 


2l»Z0*0ELTA Z 


12040 


01 02508 


05912 


03030 




BTM 


MONITR, 02520, 67* 


CALL STRACT SUBPROGRAM VIA MONITR 














12052 


17 02400 


-2520 


03040 




BT 


STRACT *DSA 1+10*6, 


TRACUT POINT PI 


12064 


27 02410 


12193 


03050 




TR 


FLW*6*10*2-9,X0-9 




12076 


31 02541 


05883 


03060 




BT 


STRACT, DSA2U0, 6, 


TRACUT POINT PO 


12088 


27 02410 


12209 


03070 




FSUB 


FLW*0*lOtFLW*6*lO*2 


,, OELTA X 


12100 


02 02488 


02550 


03080 




FSUB 


FLWn*10 t FLW*7*lO*2 


•• OELTA Y 


12112 


02 02498 


02560 


03090 




FSUB 


FLW*2*10»FLW*8*lO+2 


•• DELTA Z 


12124 


02 02508 


02570 


03100 




BTM 


MONITR, 02360, 67, 


CALL OSCOUT SUBPROGRAM VIA MONITR 












12136 


17 02400 


-2360 


03110 




BTM 


DSC0UT,»*12,67, 


WRITE ONE AO-APT 


RECORO... BRANCH BACK 












12148 


17 02410 


J2160 


03120 




TR 


FLW*0*10-9,FLW*3* 10*1-9. # RESTORE DELTA VALUES 














12160 


31 02479 


02510 


03130 




B 


SUPPRS 




12172 


49 11868 


00000 


-3140 




OORG 


•-4»5«3-ll~2 




12161 






03150 




NOP 


FLW»l*10tFLW*2*10 




12182 


41 02496 


02508 


03160 




OORG 


•-14 




12179 






03170 


0SA1 


OSA 


FLW*0*10 




12183 


00005 -2488 


03180 




OORG 


♦♦5*3-4*5*3-ll 




1219B 




02570 


03190 




NOP 


FLW>7»10*2»FLW*B*10*2 


12198 


41 02560 


03200 




OORG 


•-14 




12195 






04010 


0SA2 


OSA 


FLW+6*10*2 




12199 


00005 -2550 


04020 




DORG 


•♦50-4 




12210 






04030* 












00K10 


04040 


ER210 


TFM 


WERM*9, 210,9 




12210 


16 12001 


04050 


DSC 


2,49 




12222 


00002 




04060 




OSA 


ER206M2 




12226 


00005 J I960 


04070* 










00000 




mm 


OSSM 


6$ 


»*!§8 




06150 




04090 


FRMSW 


OS 


• 6151 




06151 


00000 




04100 


KUTl 


OS 


• 6148 




06146 


00000 




04110 


MONITR 


OS 


• 2406 




02406 


00000 




04120 


OSCOUT 


OS 


• 2416 




02416 


00000 




04130 


STRACT 


OS 


• 2416 




02416 


00000 




04140 


FLW . 


OS 


• 2480 




02488 


00000 




04150 


OELY 


OS 


• DELX 




11900 


00000 




04160 


RETURN 


OS 


• 2411 




02411 


00000 




04170 


XI 


OS 


• 5923 




05923 


00000 




04180 


XO 


OS 


• 5892 




05892 


00000 




04190 


YO 


OS 


•xo*io 




05902 


00000 




04200 


ZO 


OS 


•YO+10 




05912 


00000 




05010 


Y4 


OS 


•XI+IO 




05933 


00000 




05020 


ZK 


OS 


•YJ*10 




05943 


00000 




05030 


ERPROC 


OS 


• 2416 




02416 


00000 




05040 


POVSW 


OS 


•6152 




06152 


00000 




05050 


TRCTSW 


OS 


#6153 




06153 


00000 




050*0 




OENO 


SGOLTA 




11794 







SYMBOL TABLE 



PAGE | 



TRCTSW 0615) 
RETURN 024H 
OSAl 11^5? 
FRMSW 06151 
STORE 11866 



TRACUT 11988 
HON I TR 02406 
0SSU 06158 

KUT1 06148 
(fgftM 12044 



SUPPRS 11951 
ERPROC 02416 
ER208 12020 
NOELX 11980 
XI 0592) 



STRACT 02416 
OSCOUT 02416 
ER210 12056 
MOCIV 11968 
XO 05892 



SGOTO/ UT96 
CTMQO 11916 
FLW 02488 
POVSW 06152 
VO 05902 



01010* 




IBM 1620*1311 AO-APT SUBPROGRAM FOR PROCESSING 




01020* 




A GO TO/ RECORO 






01030* 






RCS 


01040* 




•NAME SGOTO/... NON-ERASABLE AAELEN SUBPROGRAM 




01050* 




•10 NUMBER 


0232*0EL0IM 




01060* 




•STORE CORE 


IMAGE 




01070* 




LINKAGE * B SGOTO/ 




01080* 










01090 


OORG 


11796 


11796 




01100* 




SUBPROGRAM 


ENTRY 




OHIO SGOTO/ 


BNR 


ER208tOSSWtt 


BRANCH IF REVIEW MODE PREVAILS 

11796 45 12020 


06156 


01120* 










01130 


BNF 


ER210«FRMSWm 


BRANCH IF NO PREVIOUS FROM STATEMENT 
11808 44 12056 


06151 


01140* 










01150 


TR 


FL«*3«10-8,FL«*0*10-9,, MOVE COORDINATES OF GO TO POINT 










11820 31 02510 


024 79 


01160 


FSUB 


FLW*3*10*ltX0tt 


OELTA X 11832 02 02519 


05892 


01170 


FSU8 


FlW+4*10U»V0t» 


OELTA V 11844 02 02529 


05902 


01180 


,01 


NOELY* •• 


BRANCH IF NO CHANGE IN V 

11856 46 11968 


01200 


01190* 










01200 STORE 


TR 


Xl-9,FLM*3*lO-8t» 


STORE X ANO Y-COMPONENTS OF VECTOR 

11668 31 05914 


02510 


02010 


TOM 


POVSW. !• 11. 


SET AIMING DIRECTION INOICATOR 

11880 15 06152 


OOOOJ 


02020 


TR 


X0-9»FLN*0*10-«.t 


STORE X-V-2 COORDINATES OF GO TO POINT 








11892 31 05883 


02479 


020 30 


80 


SUPPRS, KUTl, 6, 


BRANCH IF ONTCUT MOOE PREVAILS 

11904 43 U95J 


06148 


02040* 










02050 CTMOO 


BNR 


TRACUT, TRCTSW., 


BRANCH IF TRACUT MOOE PREVAILS 

11916 45 11988 


06153 


02060* 










02070 


BTN 


MONITR, 02360, 67, 


CALL DSCOUT SUBPROGRAM VIA MONITR 

11928 17 02400 


-2360 


02080 


BTM 


OSCOUT, RETURN, 6711 


t NRITE ONE AO-APT RECORO... RETURN 

11940 17 02410 


-241J 


02090 


OORG 


•♦so-im 


11956 




02100 


NOP 


FLW*l*lO.FLW*2*lO 


11956 41 02498 


02508 


02110 


DORG 


•-14 


11953 




02120 OSAl 


OSA 


FLW+0*10 


11957 00005 -2488 


02130 


OORG 


•♦5*3-4 


11968 




02140* 










02150 NOELV 


80 


ST0RE»FLWO*10-B.» 


BRANCH IF CHANGE IN X 11968 43 11868 


02510 


02160* 










02170 NOELX 


8 


ST0RE*24 


11980 49 11892 


00000 


02180 


OORG 


•-3 


11988 




02190* 











02200 


TRACUT 


BTM 


HON t TR ,02520 • 67 » 


CALL 


STRACT 


SUBPROGRAM VIA MONITR 
















11988 


17 02400 -2520 


03010 




BT 


STRACT, 0SAl*10, 6, 


TRACUT GO TO POINT 


12000 


27 02410 11*167 


03020 




B 


CTMOO* 12 








12012 


49 11928 00000 


03030 




OORG 


•-3 








12020 




03040* 
















03050 


ER208 


TFM 


WERM*9, 208,9 








12020 


16 12053 OOKOB 


03060 




BTM 


MONITR, 02250, 67, 


CALL 


ERPROC 


SUBPROGRAM VIA MONITR 
















12032 


17 02400 -2250 


03070 


MERM 


BTM 


ERPROC, 4, 67, 


WRITE 


ERROR 


MESSAGE*. 


• SEARCH FOR END 
















12044 


17 02410 -0004 


03080 


ER210 


TFM 


WERM*9,210t9 








12056 


16 12053 00K10 


03090 




OSC 


2*49 








12068 


00002 


03100 




OSA 


ER208+12 








12074 


00005 J2032 


03110* 
















03120 


DSSU 


OS 


• 6158 








06158 


00000 


03130 


FRMSW 


OS 


• 6151 








06151 


00000 


03140 


KUT1 


DS 


• 6148 








06148 


00000 


03150 


MONITR 


OS 


• 2406 








02406 


00000 


03160 


DSCOUT 


OS 


• 2416 








02416 


00000 


03170 


FLM 


OS 


• 2488 








02468 


00000 


03180 


XO 


OS 


• 5692 








05892 


00000 


03190 


YO 


OS 


•xouo 








05902 


00000 


03200 


XI 


OS 


• 5923 








05923 


ooooo 


04010 


RETURN 


OS 


• 2411 








02411 


00000 


04020 


ERPROC 


OS 


• 2416 








02416 


ooooo 


04030 


POVSM 


OS 


• 6152 








06152 


ooooo 


04040 


STRACT 


DS 


• 2416 








02416 


ooooo 


04050 


TRCTSW 


DS 


• 6153 








06153 


ooooo 


04060 


SUPPRS 


OS 


• CTM00O5 








11951 


ooooo 


04070 




DENO 


SGOTO/ 








11796 





\5o 



SYMBOL TABLE 



RETURN 


024 U 


MONITR 


02406 


LCNONl 


02416 


ERPROC 


02416 


B2 


02498 


OSA1 


11861 


OSSW 


06156 


ER208 


11920 


ER210 


11900 


ER2H 


11820 


FL W 


02468 


FRMSW 


06151 


COOK 


11940 


GDI 


06347 


M2 


02488 


NPW 


02455 


PDVSW 


06152 


SGO/ 


11796 


TFROM 


11688 


TLl 


06145 


WERN 


11844 


XI 


05923 


XO 


05892 


XI 


02S09 


YJ 


05933 


YO 


05902 


Yl 


02519 















01010* 




IBM 1620-1311 AO- 


APT SUBPROGRAM FOR PROCESSING 


01020* 




A GO/ OR OFFSET 


RECORO 


01030* 






RCS 


01040* 




•NAME SGO/. 


NON-ERASABLE ARELEM SUBPROGRAM 


01050* 




•10 NUMBER 


0233*0EL0IM 


01060* 




•STORE CORE 


IMAGE 


01070* 




LINKAGE - B SCO/ 


01080* 








01090 


00R6 


11796 


1 1 796 


01100* 








OHIO SGO/ 


BNR 




ARAMTM IE BFtffFW MARE DBFUill C 








I I 7qa i( IIQ9A flAI It 
1 1 fio ^3 I 17<U UOI7B 


01120* 








01130 


BO 




DKANlH |r PREVIOUS AIMING DIRECTION 








11808 43 11888 06152 


01140* 








01150 ER2H 


TFM 


WERM*9, 211,9 


11820 16 11853 00X11 


01160 


BTM 


MONITR, 02250,67, 


CALL ERPROC SUBPROGRAM VIA MONITR 








11832 17 02400 -2250 


01170 WERN 


BTM 


ERPROCt5*67« 


WRITE ERROR MESSAGE.*. SEARCH FOR ENO 








11844 17 02410 -0005 


Oil 80 


OORG 


•♦5*6-6»l 


11880 


Oil 90 


NOP 


82,0 


11880 41 02498 00000 






•-21 


11870 






YI.M2 


11870 41 02519 02488 


. 


nn or 


•-21 


11860 




wno 


YO.Xl 


11860 41 05902 02509 


02040 


nno r 


•-14 


11857 


0Z050 UaAl 


DSA 


XO 


11661 00005 -5892 


02060 


OORG 


•♦5*6-4 


11887 


02070* 








02080 TFROM 


BO 


GOOK, FRMSW,. 


BRANCH IF PREVIOUS FROM STATEMENT 








11888 43 11940 06151 


02090* 








02100 ER210 


TFM 


WERM«-9, 210*9 


11900 16 11853 00K10 


02110 


B 


WERM-12 


11912 49 11832 00000 


02120 


OORG 


•-3 


11920 


02130* 








02140 ER208 


TFM 


WERM+9, 208*9 


11920 16 11853 00K08 


02150 


B 


WERM-12 


11992 49 11832 00000 


02160 


OORG 


•-3, CALCULATE EQUATION OF LINE THRU POINTS PO ANO PI 








11940 


02170 GOOK 


TR 


FLW*2*l0-8*X0-9 


11940 31 02500 05883 


02180 


FADD 


FLW+2*lO+l*Xt*» 


XI-X0*XI 11952 01 02509 05923 


02190 


FAOO 


FLW+3*lO*lfYJ*t 


Yl»Y0*VJ 11964 01 02519 05933 


02200 


BTM 


MONITR, 02120, 67, 


CALL LCNONl SUBPROGRAM VIA MONITR 








11976 17 02400 -2120 


03010 


BT 


LCNONl , OSA 1*25*6* 


CALCULATE SLOPE ANO Y-INTERCEPT 



11988 27 02410 11686 



03020 




TOM 


FLW*l*lO*l*»» 


SET 


RECORO 


MARK FOR 


STACKING TRANSM. 


















12000 


15 02499 


00000 


03030 




DC 


!••*• 








12011 


00001 




03040 




TDM 


TLl, 3.* 


SET 


TOOL I 


TO TLON 


12012 


15 06145 


00003 


03050 




TDM 


GOl*3,» 


SET 


GO I TO 


GOFWO 


12024 


15 06347 


00003 


03060 




TDM 


NPW, 2 








12036 


15 02455 


00002 


03070 




DSC 


2*49,, 


RETURN TO 


MONITR 


12048 


00002 




03080 




DSA 


-RETURN 








12054 


00005 -24U 


03090* 


















03100 


OSSW 


OS 


• 6158 








06158 


00000 




03110 


POVSW 


OS 


• 6152 








06152 


00000 




03120 


MONITR 


OS 


• 2406 








02406 


00000 




03130 


ERPROC 


OS 


• 2416 








02416 


00000 




03140 


XO 


OS 


• 5892 








05892 


00000 




03150 


YO 


OS 


•XO+10 








05902 


00000 




03160 


FLU 


OS 


• 2488 








02488 


00000 




03170 


XI 


OS 


,FLW+2*10M 








02509 


00000 




03180 


VI 


OS 


•Xl+10 








02519 


00000 




03190 


M2 


DS 


•FLW*0*10 








02488 


00000 




03200 


B2 


DS 


• M2U0 








02498 


00000 




04010 


FRMSW 


OS 


• 6151 








06151 


00000 




04020 


XI 


OS 


• 5923 








05923 


00000 




04030 


YJ 


OS 


•XI+IO 








05933 


00000 




04040 


LCNONl 


OS 


• 2416 








02416 


00000 




04050 


TLl 


OS 


• 6145 








06145 


00000 




04060 


G01 


OS 


• 6347 








06347 


00000 




04070 


NPW 


OS 


• 2455 








02455 


00000 




04080 


RETURN 


OS 


• 24U 








024U 


00000 




04090 




OENO 


SGO/ 








11796 







SYMBOL TABLE 



MONITR 02406 ERPROC 02*16 ARGT 06515 OSSU 06153 ER212 00 1 2611 

CO 2 06337 NSRT 02675 STPOT 00002R TAN 00076R HI 0*145 
TL2 06147 



010 10* 




IBM 1620-1311 AO-APT SUBPROGRAM FOR PROCESS INC 




01020* 




TO* FAST* ON AND TAN RECOROS 






01030* 






RCS 


01040* 




•NAME STPOT*. • ERASABLE ARELEM SUBPROGRAM 




01050* 




•10 NUMBER 0234+0EL0IM 






01060* 




•ASSEMBLE RELOCATABLE 






01070* 




•STORE RELOADABLE 






01080* 




LINKAGE - BTM STPOT, 1,10 






01090* 










01100 


OC 


2*0*i OUMMY ARGUMENT 


00001 00002 




OHIO* 










01120* 




SUBPROGRAM ENTRY 






01130 ST POT 


TOM 


OSSW,ltUt SET EXPLICIT CS MOOE 


INDICATOR 
00002 IS 06198 


OOOOJ 


01140 


CM 


NSRT. 6*8 


00014 14 02475 


0-006 


01150 


BE 


TAN* * * BRANCH IP TAN RECORD 


00026 M6 00076 


01200 


01160* 










01170 


TO 


TL2.NSRT 


00038 25 06147 


02475 


01180 


SM 


TL2»2*10* TOOL2-NSRT-2 


00050 12 06147 


000-2 


01190 


TOM 


G02»l*» SET G02 TO GOLPT 


00062 15 06337 


00001 


01200 


BB 


• *. EXIT 


00074 42 00000 


00000 


02010 


00R6 


•-9 


00076 




02020* 










02030 TAN 


CM - 


ARGT, 27, 10 


00076 14 06S1S 


000K7 


02040 


8E 


ER212,,, 8RANCH IP OFFSET/TAN 


SPECIFIED 
00088 M6 00126 


01200 


02050* 










02060 


TO 


TL2.TL1,, SET T00L2 TO TOOLl 


00100 25 06147 


06145 


02070 


TOM 


G02»3*« SET G02 TO GOP WO 


00112 15 06337 


00003 


02080 


88 


»•• EXIT 


00124 42 00000 


00000 


02090 


OORG 


•-9 


00126 




02100* 










02110 ER212 


8TM 


MONITR, 02250, 67, CALL ERPROC SUBPROGRAM VIA MONITR 










00126 17 02400 


-2250 


02120 


BTM 


ERPROC, 21200, 67, WRITE ERROR MESSAGE* « 


• SEARCH FOR END 








00138 17 02410 


K1200 


02130* 










02140 DSSH 


OS 


• 6158 


06158 00000 




021 50 NSRT 


OS 


.2475 . 


02475 00000 




02160 TL2 


OS 


.6147 


06147 00000 




02170 G02 


OS 


,6337 


06337 00000 




02180 TL1 


OS 


»6145 


06145 00000 




02190 HON I TP. 


OS 


*2406 


02406 00000 




02200 ERPROC 


OS 


*2416 


02416 00000 




03010 ARGT 


OS 


• 6515 


06515 00000 




03020 


DENO 


STPOT 


00002 





MONITR 02406 
ER2 1 1 00154R 
FLW 02488 
NSRT 02475 
TL1 06145 
ZRAD 00106R 



LOOPSW 06333 

ER213 00174R 

PXHST 05540 

NSS 02463 

TL2 06147 



SYMBOL TABLE 

ERPROC 02416 
ER214 00026R 
G02 06337 
POVSW 06152 
TPOV 00142R 



EPSLON 06004 
ER226 00074R 
INISH 00194R 
START 00002R 
TTL1 OOOOIR 



ELMNT 06493 
EXIT 00242R 
NRT 02471 
TLRAO 05984 
WERM 00050R 



01010* 




01020* 




01030* 




01040* 




01050* 




01060* 




01070* 




01080* 




01090* 




01100* 




Oil 10 TTL1 


OC 


01120* 




01130* 




01140 START 


TP 


01150 


BO 


01160* 




01170 ER214 


TFM 


01180 


BTM 


01190 WERM 


BTM 


01200 


BO 


02010* 




02020 ER226 


TPM 


02030 


B 


02040 


OORG 


02050* 




02060 


80 


02070* 




02080 2RA0 


A 


02090 


SM 


02100 


BNZ 


02110* 




02120 TPOV 


BO 


02130* 




02140 ER2U 


TPM 


02150 


B 


02160 


OORG 


02170* 




02180 ER213 


TPM 


02190 


B 


02200 


OORG 


03010* 





IBM 1620-1311 AO-APT SUBPROGRAM FOR TESTING THE VALIDITY 
OF TOOL PARAMETERS AND MODIFIERS PRIOR TO EVALUATING 
THE CUTTER LOCUS OURING A REVIEW MOOE CALCULATION 

RCS 

•NAME START., . ERASABLE ARELEM SUBPROGRAM 
•10 NUMBER 0235+OELOIM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BT START, TL I 



2*0 



0000 I 00002 



SUBPROGRAM ENTRY 
NSS,FXWST*0*27-15,, MOVE OS SOURCE STATEMENT NO. TO OUTPUT 

00002 26 02463 05525 
WERM*12*TL1»* BRANCH IF TOOLl SET OR SPECIFIED 

00014 M3 00062 06145 



WERM*9,214,9 
MONITR, 02250, 67. 



ERPROC* 1*67* 
2RAD-12.EPSLON-9,. 



WERM«9*226*9 
WERM- 12 
•-3 

TP0V*TLRA0-9*» 



TTL1*TL2.« 
TTH, 6, 10 
£A213 M # 



INISHfPOVSWtt 



WERM*9, 211*9 

WERM-12 
•»3 

WERM*9»2l3*t 

WERM- 1 | 
*-t 



00026 J6 00059 00K14 
CALL ERPROC SUBPROGRAM VIA MONITR 

00038 17 02400 -2250 
WRITE ERROR MESSAGE. SEARCH FOR END 

00050 17 02410 -0001 
BRANCH IP INTOL AND OUTTOL NOT ZERO 

00062 M3 00094 05995 

00074 J6 00059 00K26 
00086 M9 00038 00000 
00094 

BRANCH IP CUTTER RAOIUS IS NON-ZERO 

00094 M3 00142 05975 



TL1*TL2 



00106 Kl 0000 1 06147 
00118 J2 0000 I 000-6 
BRANCH IP TOOLl AND TOOL 2 ARE NOT TLON 

00130 M7 00174 01200 

•RANCH IP AIPINO OIRfCTION EXISTS 

00142 M3 00194 06152 

00154 J6 00059 00K1I 
00166 M9 00038 00000 
00174 

00174 J6 00059 OOKll 
00186 M9 00038 00000 
00194 



page 2 



0)020 


INISH 


TFM 


ELMNT ( FLW*0* 10-9,, 


INITIALIZE 


ptbufr Subprogram 














00194 


16 06493 


-2479 


03030 




TFM 


NR T . 5 • 8 




00206 


16 02471 


0-005 


050*0 




TFM 


NSRT *5«8 




00218 


16 02475 


0-005 


01050 




TDM 


LOOPSW,ltll« 


SET FIRST 


POINT INDICATOR 

00230 


15 06331 


0000 J 


03060 


EXIT 


DSC 


2,42,, 


EXIT 


00242 


00002 




03070* 














03080 


TLl 


DS 


.6145 




06145 


00000 




03090 


MGNITR 


OS 


,2406 




02406 


00000 




03100 


ERPROC 


OS 


,2416 




02416 


00000 




03110 


TLRAD 


OS 


#5984 




05984 


00000 




03120 


TL2 


OS 


,6147 




06147 


00000 




03130 


FDVSW 


DS 


.6152 




06152 


00000 




03140 


GO 2 


OS 


• 6337 




06337 


00000 




03150 


ELMNT 


OS 


,6493 




06493 


00000 




03160 


FLW 


DS 


• 2488 




02488 


00000 




03170 


LOOPSW 


OS 


,G02-4 




06333 


00000 




03180 


EPSLON 


OS 


• 6004 




06004 


00000 




03190 


NSS 


OS 


• 2463 




02463 


00000 




03200 


FXWST 


OS 


• 5540 




05540 


00000 




04010 


NRT 


OS 


• 2471 




02471 


00000 




04020 


NSRT 


OS 


.2475 




02475 


00000 




04030 




DENO 


START 




00002 







SETVGM 001 34R 
OSCOUT 00006R 
NR 02467 
TABLE 00335R 



SEARCH 00042R 
OISCW 00318R 
NSECT 02453 
WRITE 00206R 



SYMBOL TABLE 

OUTPUT 00309R 
ER218 0027BR 
OUTSA 06573 



MGNITR 02406 
MOO 00066R 
RETRN 00005R 



ERPROC 02416 
NPW 02455 
RNOUT 0*143 



01010* 




01020* 




01030* 




01040* 




01050* 




01060* 




01070* 




01080* 




01090* 




01100 RETRN 


DC 


Oil 10* 




01120* 




01130 OSCOUT 


TF 


01140 


AM 


01150 


TFM 


01160 SEARCH 


C 


01170 


BNL 


01180* 




01190 MOO 


AM 


01200 


87 


02010* 




02020 


AM 


02030 


TO 


02040 


TFM 


02050 


A 


02060 SETVGM 


TOM 


02070 


DGM 


02080 


TO 


02090 


AM 


02100 


TF 


02110 


SEEK 


02120 WRITE 


PUT 


02130 


TOM 


02140 


A 


02150 


CM 


02160 


6N 


02170* 




02180 ER218 


BTM 


02110 


♦*TM 



IBM 1620-1311 AD-APT OISC-FILE OUTPUT SUBPROGRAM 

•NAME DSCDUT... ERASABLE ARELEM SUBPROGRAM 
•10 NUMBER 0236+0EL0IM 
•ASSEMBLE RELOCATABLE 
•STORE RELOADABLE 
LINKAGE - BTM OSCOUT , RET ADO 

RETADD IS AOORESS OF NEXT INSTRUCTION 



6,0 



00005 00006 



SUBPROGRAM ENTRY 
NR, RNOUT,, SET OUTPUT RECORD NO. 00006 26 02467 06143 

RNOUT, 1,10, INCREMENT OUTPUT RECORO COUNTER 

00018 11 06143 000-1 
SEARCH+6, TABLE-1., SET NSECT (FUNCTION OF NPW) 

00030 JO 00048 -0334 



• NPW 
M0D*20 

SEARCH*6,3,10 
SEARCH 

SEARCH+6,1,10 
NSECT, SEARCH+6,11 
SETVGM*6,NSECT-m00 
SETVGM44, NSECT 



DISCW*8, NSECT 
0ISCW*8,1,10, 

DISCW+5,0UTSA,» 

OUTPUT, , , 

OUTPUT»RBCt, 



S£TVGM*6,,6, 
OUTSA, DISCW*B,# 



0UTSA,4800,8 
RETRN, ,6, 



♦*TM fRPHOC,2l890»67, 



00042 24 00000 02455 

00054 M6 00086 01300 

00066 Jl 00048 000-3 

00078 M9 00042 00000 

00086 Jl 00048 000-1 

00098 2N 02453 0004Q 

00110 J6 00140 -2552 

00122 HI 00138 02453 
SET TERMINAL GROUP MARK 

00134 15 00000 00000 

00145 00001 

00146 K5 00326 02453 

SET SECTOR COUNT FIELD 

00158 Jl 00326 000-1 

SET OUTPUT SECTOR AOORESS 

00170 K6 00323 06573 

POSITION ARM TO OUTPUT CYLINDER 

00182 10 00565 -0205 

00194 4R 00554 -0309 

WRITE I AO-APT RECORO IN SCRATCH AREA 

00206 10 00565 -0229 

00218 4R 00520 -0309 

CLEAR GROUP MAR., 00230 J5 0014- 00000 

ADJUST SECTOR AOORESS FOR NEXT WRITE 

00242 2J 06573 00326 

00254 14 06573 0M800 

BRANCH IF OUTPUT DISC AREA AVAILABLE 

00266 M7 OOOON 01300 

CALL ERPROC SUBPROGRAM VIA MONITR 

©0278 t? 02*00 -2250 
WRITE ERROR NESSAGf SEARCH FOR END 



PAGE 2 

00290 17 07*10 IU890 



07200 


CALL 


CXI Tt t • 




00302 


49 007 


UlUlU UvlrUI 


DOW 






00309 


00002 










003 1 1 


00005 










00316 


00001 


VJVCV VAwImW 


D0A 






00318 


00006 










00326 


00003 










00327 


00005 


03030 


OC 


It * 




00332 




XA40 TAJU £ 


OC 


3»70 




00335 


00003 




OC 


3*171 




00338 


00003 


03060 


OC 






00341 


00003 


03070 


OC 


3»373 




00346 


00003 


03060 


OC 


3*474 




00367 


00003 


03090 


ftf 

WW 


3*575 




00350 


00003 


03100 


OC 


3*676 




00353 


00003 


031 10 


OC 


3*777 




00356 


00003 


03120 


OC 


3»878 




00359 


00003 


03130* 












03140 NR 


OS 


• 2467 




02667 


00000 


VJI7U III1UU 1 


OS 


#6163 




06 163 


AAAAA 


03160 NPW 


OS 


,2*55 




02455 


00000 


03170 NSECT 


OS 


• 26S3 




02453 


00000 


03180 OUTSA 


OS 


,6573 




06573 


00000 


03190 MQNITR 


OS 


,2606 




02406 


00000 


03200 ERPR0C 


OS 


• 2616 




02616 


00000 


06010 


OENO 


OSCOUT 




00006 





PAGE 1 











SYMBOL 


TABLE 










9RCYL3 


00519 


9RCYL2 


00517 


9RCYLI 


00515 


9RCYL0 


00313 


9CCYL3 


02U7 


9CCVL2 


02115 


9CCY11 


02113 


9CCVL0 


02111 


5EMIN5 


06054 


5EHIN* 


06044 


56HIN2 


06095 


1.0E48 


06085 


TRMOOE 


07514 


TRMOSW 


07494 


TRCTSW 


06153 


TRACUT 


07458 


SYMTA8 


06582 


Strado 


09536 


STNTRV 


09094 


STKSET 


06174 


STACKR 


06862 


SQRTFN 


02426 


SPTEST 


10568 


SOFFST 


02416- 


SINORV 


02416- 


SlNORP 


02416- 


SGOTO/ 


02416- 


SGOLTA 


02416- 


SETVGM 


11696 


SEOCHK 


06314 


SECNTR 


11658 


RSETHI 


12164 


REVHOO 


07930 


RETURN 


09768 


RETAOO 


08556 


POtNTR 


00616 


OUTTOL 


07058 


OPSOSA 


08285 


OFFSET 


07534 


N00200 


10560 


N0L0A0 


10708 


NNEOVP 


09712 


NNECON 


00223 


NOSSET 


06201 


NCORES 


08934 


MONITR 


08562 


MIN1.0 


06024 


MEMGAP 


10772 


MATRIX 


08440 


MAPENT 


10810 


LOOPSW 


06333 


LOMHIP 


10204 


LOLOAO 


10086 


LOOHEM 


11796 


LAMLOP 


10144 


INDIRV 


07310 


INOIRP 


07290 


INCORE 


10348 


IHPLCS 


08034 


HILOAO 


08886 


GTOOSA 


07383 


GOOLTA 


07330 


GOB AC K 


06938 


GO/OSA 


07569 


GOLOSA 


07353 


FRMDSA 


07283 


EXPLCS 


08218 


ER208F 


08400 


ERROUT 


02416 


ERROIM 


02250 


ERPROC 


02416- 


ERASE1 


09014 


EPSLON 


06004 


ENTRY2 


02421 


ENTRY1 


02416 


ENDTA8 


09596 


ENDSET 


06184 


DUMPSW 


06169 


OSCOUT 


02416- 


ONTCUT 


07230 


DIMTA8 


07906 


OP RE AO 


06302 


OELDIM 


00000 


CYLOVP 


11760 


CUTTER 


07078 


cutmqo 


07230 


CUTOSA 


07253 


CMPARE 


06506 


CLENTl 


10516 


CLEAR2 


10316 


CLEAR1 


10400 


CALLNE 


09336 


8RMC0E 


06818 


ATANPN 


02441 


ARELEM 


06206 


AEOUMP 


02416- 


ARG 


06517 


ARGT 


06515 


ARROW 


10690 


BRCST 


08022 


CALLE 


08598 


COPUV 


10636 


CNTR 


08583 


COMP 


09062 


COSPN 


024 36 


COSN 


09156 


C0S20 


06105 


CSELF 


10248 


CSURP 


07760 


CUT 


07230 


DIMNO 


08560 


OMPPL 


08154 


OMPFX 


08142 


ONSC 


00201 


OSOSA 


07899 


OSSW 


06158 


OSURP 


07620 


DUMP 


08082 


E 


05954 


ELMNT 


06493 


END 


07390 


END MP 


08186 


ENTRY 


02136 


ERAS 


08561 


ERASE 


09244 


EROIM 


09176 


ERENT 


10284 


ER203 


08292 


ER207 


07136 


ER208 


07426 


EXIT 


09900 


EXPPN 


02446 


EXPL 


07576 


EXTNT 


10120 


P 


05964 


PIN! 


08324 


FIT 


10016 


FLW 


02688 


FLWST 


03362 


PRMSW 


06151 


FROM 


07260 


FXWST 


05540 


G 


05976 


GO/ 


07534 


GOCS 


06970 


GOFWO 


06938 


GOLPT 


06938 


GOMOO 


06938 


GORGT 


06938 


GOTO/ 


07360 


601 


06347 


G02 


06337 


HI 


00636 


HIDSA 


07875 


INOEX 


09676 


INDX 


07802 


INMAP 


09908 


1NTN0 


07162 


INTOP 


06157 


INTOL 


06990 


KTEWP 


07703 


KUTl 


06168 


KUT2 


06169 


LO 


09875 


LOC 


06550 


L00E1 


(Hi 026 


LOGFN 


02451 


LOPRM 


09963 


MOO 


08118 


MVONO 


07640 


NE 


00029 


NEC ON 


00222 


NEOVP 


10568 


NF 


06155 


NNE 


00007 


NOP IT 


10380 


NPH 


02455 


NR 


02467 


NRT 


02671 


NSECT 


02453 


NSRF 


02477 


NSRT 


02475 


NSS 


02463 


NUOIM 


06670 


NUENT 


08730 


QFFST 


08262 


ON 


07576 


OUTOS 


07680 


OUTSA 


06573 


OVOPF 


09142 


PAST 


07576 


PDVSW 


06152 


PROGX 


10460 


PSA 


05851 


PSB 


05861 


PSC 


05871 


PSO 


05881 


PSIS 


06770 


PSSW 


06150 


RANGE 


09038 


RESET 


08946 


RNIN 


06139 


RNOUT 


06143 


SCAN 


08610 


SCUT 


02416- 


SOSRT 


02416- 


SEQOK 


06338 


SETPT 


08990 


SPROM 


02416- 


SGO/ 


02*16- 


SlNFN 


02431 


SPRET 


10752 


SPSIS 


02416- 


STACK 


02416- 


START 


02416- 


STOtM 


08742 


STPL 


06163 


STPX 


06168 


STOL 


02616- 


STPOT 


02416- 


SUSET 


06191 


TAN 


07576 


TEMP 


09255 


TLtFT 


06694 


TLMOO 


06694 


TLON 


06894 


TLRAO 


05984 


TLRGT 


06896 


TLT 


08229 


TLURT 


06456 


TLt 


06145 


TL2 


06147 


TO 


07576 


TOtI 


05994 


TOLO 


06014 


TYPE2 


06374 


UX 


06125 


uv 


06135 


VAR8 


06678 


WARN I 


06838 


WRERR 


09748 


X 


03820 


X! 


05923 


XO 


05892 


Y 


05830 


VJ 


05933 


YO 


05902 


2 


05840 


IK 


05963 


20 


05912 


0.0 


06036 


0.5 


0606S 


1.0 


06075 


2*0 


06115 


AALPRM 


11653 


AOISCR 


11780 


AOSCIN 


11516 


AEXIT 


11646 


A INPUT 


11771 


AMESS 


12273 


amoot 


11880 


ANSECT 


02451 


AOPUD 


11916 


ARE AO 


11562 


ARE ADM 


11646 


A2M00 


12212 


A 5 MOO 


12252 















01010* 



IBM 1620-1111 AO-APT ARELEM MAINLINE PROGRAM 



01020* 

01030» 

01040» 

01050* 

01060* 

01070* 

01080 

01P90* 

01 100* 

01U0* 

01120 

01130* 



•NAME ARflfM 
• ID NUMRfR 0237*OEL01M 
•STORE CORE ! MACE 
•SYSTEM SYMBOL TABLE 
LINKAGE - CALL LINK . ARELEM 
2402 

AO-APT SYSTEM COMMON AREA 
SUBPROGRAM REFERENCE AOORESSES 
M0N1 TR,RETURN 



02406 00005 -8562 
02411 00005 -9766 



01140 


6N7RY1 


OS 


5t f 




LOW-ORDER ENTRY TO MONI TR-LOAOEO PROGRAM 












02416 00005 


01150 


6NTRY2 


OS 


9, • 




HI-ORDER ENTRY TO MONI TR-LOAOEO PROGRAM 












02421 00005 


01160* 










01170 


SQRTFN 


OS 


9, • 




SQRTF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02426 00005 


01160 


SINFN 


OS 


3# t 




SINF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02431 00005 


01190 


COSFN 


OS 


9, t 




COSF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02436 00005 


01200 


ATANFN 


OS 


5, • 




ATANF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02441 00005 


02010 


EXPFN 


OS 


5t t 




EXPF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02446 00005 


02020 


LOGFN 


OS 


5tt 




LOGF ENTRY WITHIN FUNCT. SUBR. PACKAGE 












02451 00005 


02030* 










02040* 




I/O 


AREA 


AND COMMON STORAGE 


02050 


NSECT 


OS 


2t • 


INO. 


SiCTORS-l) IN WHICH AO-APT RECORD CONTAINEO 












02453 00002 


02060 


NPH 


DS 


2tt 




NO. FLOATING-POINT WORDS IN AO-APT RECORO 












02455 00002 


02070 


NSS 


OS 


8. t 




SOURCE STATEMENT NO. 02463 00008 


02080 


NR 


DS 


4« t 




AD-APT RECORD NUMBER 02467 00004 


02090 


NRT 


DS 


4 f , 




AO-APT RECORO TYPE 02471 00004 


02100 


NSRT 


OS 


4 t , 




AO-APT SUB-RECORD TYPE 












02475 00004 


02110 


NSRF 


OS 


2tt 




AD-APT SURFACE TYPE 02477 00002 


02120 




OS 


ltt 




RECORO MARK ALLOCATICN 












02478 00001 


02130 


FLW 


DSB 


10,87,, 




I/O FLOATING-POINT WORD ARRAY 












02488 00870 


02140 




DS 


3,, 




I/O GARBAGE 03351 00003 


02150 




OS 


ltt 




GROUP MARK ALLOCATION 03352 00001 


02160* 










02170 


FLWST 


OSB 


10,218,, 




FLOATING-POINT WORO STACK ARRAY 












03362 02150 


02180 




DS 


lttt 




RECORO MARK ALLOCATICN 












05513 00011 


02190 


FXNST 


OSB 


27,11,, 




FIXEO-POINT WORO STACK ARRAY 












05540 00297 


02200* 










03010 


X 


OS 


10. t 




X-COORDINATE OF TOOL CENTER (NEXT POINT) 












05820 00010 


03020 


Y 


DS 


10tt 




Y-COOROINATE OF TOOL CENTER (NEXT POINT 1 



05830 00010 



03030 Z 


OS 


10,, 


03040 


oc 


it«9, 


03050* 






03060 PSA 


OS 


10t, 


03070 PSB 


OS 


10,« 


03080 PSC 


DS 


10,, 


03090 PSO 


OS 


10,, 


03100 


OS 


1*0 


03110* 






03120 XO 


OS 


10,, 


03130 YO 


OS 


10,, 


03140 ZO 


OS 


10,, 


03150 


oc 


!,*«» 


03160* 






03170 XI 


OS 


10,, 


03180 YJ 


OS 


10,, 


03190 ZK 


OS 


10,, 


03200 


OS 


ltt 


04010* 






04020 E 


OS 


10,, 


04030 F 


OS 


10,. 


04040 G 


OS 


10,, 


04050* 






04060 TLRAO 


OS 


10, . 


04070 T0L1 


OS 


lOtt 


04080 EPSLON 


OS 


10,, 


04090 TOLO 


OS 


10,, 


04100* 






04110 


DC 


6,-10000000 


04120 MINl.O 


oc 


2,1., 


04130* 






04140 


oc 


fi,0 


04150 0.0 


oc 


2.-99,, 


04160* 






04170 


oc 


8,50000000 


04160 96MIN* 


oc 


2.-3,, 


04190* 






04200 


oc 


6,50000000 


05010 9EKIN9 


oc 


2***» • 


05020 


oc 


l»« 


05030* 






05040 


oc 


6,50000000 


05050 0,5 


oc 


2,0., 


050*0* 







Z-COORDINATE OF TOOL CENTER (NEXT POINTI 
05840 00010 

RECORD MARK 05841 00001 

A-COEFFICIENT OF PS PLANE 

05851 00010 
B-COEFF IC IENT OF PS PLANE 

05861 00010 
C-COEFFICIENT OF PS PLANE 

05871 00010 
D-COEFF IC IENT OF PS PLANE 

05881 00010 

RECORO MARK ALLOCATION 

05682 00001 

X-COORDINATE OF TOOL CENTf fi (PRES. PT> 

05892 00010 

Y-COOROINATE OF TOOL CENTER (PRES. PT1 

05902 00010 

Z-COORDINATE OF TOOL CENTER (PRES. PTI 

05912 00010 

RECORD MARK 05913 00001 

X-COMPONENT OF PRESENT AIMING OIRECTION 
05923 00010 

Y-COMPONENT OF PRESENT AIMING DIRECTION 
05933 00010 

Z-COMPONENT OF PRESENT AIMING OIRECTION 

05943 00010 

RECORD MARK ALLOCATICN 

05944 00001 

OS TOOL OFFSET INDICATOR 

05954 00010 

CS TOOL OFFSET INOICATOR 

05964 00010 

ROTATION OIRECTION INOICATOR 

05974 00010 



CUTTER RAOIUS 
INSIOE TOLERANCE 
ALLOWABLE ERROR 
OUTSIOE TOLERANCE 



-1.0 
0.0 

0.0005 
0.00009 



0,9 



05984 00010 
05994 00010 
06004 00010 
06014 00010 

06022 00008 
06024 00002 

06032 00008 
060 34 00002 

06042 00008 
06044 00002 

06052 00008 

06054 00002 

06055 00001 

06063 00006 
06065 00002 



HI 



PAGE 4 



Q50 70 


oc 


8*10000000 




06073 


00008 


05080 1*0 


oc 


2, It* 




1*0 


06075 


00002 


05090* 














05100 


oc 


a* looooooo 




06083 


00008 




oc 


2,49** 




1 .0E46 


06085 


00002 


05120* 














051 30 


DC 


8*50000000 




06093 


00008 


A( | A A (CM til) 


OC 


2.-1** 




0*05 


06095 


00002 


05150* 














05160 


oc 


8. 99939082 




06103 


00006 


05170 C0S20 


DC 


2*0, t 




COSINE 2 DEGREES 


06105 


00002 


05180* 














05190 


OC 


8*20000000 




06113 


00006 


05200 2.0 


OC 


2*1*. 




2*0 


06115 


00002 


06010* 












06020 UX 


OS 


io»# 




X-COMPONENT UNIT 


TANGENT OS 
06129 


VECTOR 
00010 


06010 UY 


OS 


10,, 




Y-COMPONENT UNIT 


TANGENT OS 
06135 


VECTOR 
00010 


06040* 














06050 RNIN 


OS 


4»» 




INPUT RECORD COUNTER 06139 


00004 


06060 SNOUT 


OS 


4* * 




OUTPUT RECORD COUNTER 06143 


00004 


06070* 














06080 TU 


OS 


2»» 




OS TOOL MODIFIER 


06145 


00002 


06090 TL2 


OS 


2»» 




CS TOOL MODIFIER 


06147 


00002 


06100* 














06110 KUTl 


OS 


1* » 




OS CUTTING NODE 


INOICATOR 

06148 


00001 


06120 KUT2 


OS 


1* # 




CS CUTTING NODE 


INOICATOR 

06149 


0000 1 


06130* 














061*0 PSSW 


OS 


i» ♦ 




PS TYPE INDICATOR 06150 


0000 1 


06150 FRNSV 


OS 


.1* » 




FROM RECOtO STATUS INOICATOR 












06151 


00001 


06160 POVSW 


OS 


I* • 




PRESENT AIMING 01 RECTI ON INOICATOR 












06152 


00001 


06170 TRCTSM 


OS 


4* » 




TRACUT NOOE INOICATOR 06153 


00001 


06180 NF 


OS 


2* t 




INTERSECTION NO* 


06155 


00002 


06190 INTOF 


OS 


• • • 




OS-CS CONFIGURATION INOICATOR 












06157 


00002 


06200* 














07010* 






SIGNIFICANCE OF INDICATOR INTOF 




07020* 














07030* 






INTOF 


OS TYPE CS TYPE 






07040* 








LINE LINE 






07050* 








LINE CIRCLE 






07060* 








LINE GCONIC 






07070* 








LINE TABCYL 






07080* 








CIRCLE LINE 






07090* 








CIRCLE CIRCLE 






07100* 








CIRCLE GCONIC 






07110* 








CIRCLE TABCYL 






07120* 








GCONIC LINE 






07130* 








GCONIC CIRCLE 






07140* 








GCONIC GCONIC 






07150* 








GCONIC TABCYL 






07160* 








TABCYL LINE 






07170* 








TABCYL CIRCLE 






07160* 








TABCYL GCONIC 






07190* 








TABCYL TABCYL 







PAGE 



07200* 
08010 OSSW 
06020* 

08030 STFL OS 



OS 



06040 STFX OS 
08050* 

08060 OUMPSW OS 

08070* 
08080* 
08090* 

08100 STKSET OSA 

08110 OC 
08120 ENOSET OC 



!•* 
5.* 
5.* 



OC 
OC 
OC 
OSC 
DSC 
OSC 
OSC 
DSC 
OC 



08130 

08140 SNSET 
08150 
08160 
08170 
08180 
08190 
08200 
09010 
09020 NOSSET OC 
09030 OC 
09040* 
09050* 
09060* 
09070* 

09080 ARELEM TR 



09090* 

09100* 

09110* 

09120* 

09130* 

09140* 

09150* 

09160 

09170* 

09180* 

09190* 

09200* 

100 10 

10020 



TR 
TFt 



10050 

1OOS0* 

tOOAO* 

10070* 

10080 

10090* 

10100* 

10110 

10120 



tr 

8 MR. 



REVIEW NODE INOICATOR 06156 00001 

FLOATING-POINT WORD STACKING INDEX 
06163 00005 

FIXED-POINT WORD STACKING INOEX 

06168 00005 

REAO-OUMP MODE INDICATOR 



INITIALIZATION CONSTANTS 
FLW$T-9,FXWST-*6 

4 t 
5»» 
2*0 
2.0 
ltO 
ItO 
1.0 
WO 
1*0 
It* 
2,1 
3*» 



PROGRAM INITIALIZATION 

SET ANTICIPATED INPUT RECORD NO. AND 
RNIN-3.EN0SET-3,, INITIAL OUTPUT RECORD NO. 

06206 31 06136 06111 

CLEAR OS ANO CS TOOL MODIFIERS* 

ASSUME CUTTING MODE IS CUT* 

SET PS TO HORIZCNTAL PLANE* 

SET SWITCH INDICATING NO FROM RECORD* 

CLEAR PREVIOUS DIRECTION VECTOR AND 

SET TRACUT/NO MORE MODE INDICATOR 

06218 31 06144 06190 



06169 


00001 




0617* 


00005 


-3353 


06179 


00005 


-5514 


06180 


00001 




06184 


00004 




06189 


00005 




06191 


00002 




06193 


00002 




06194 


00001 




06195 


00001 




06196 


00001 




06197 


00001 




06198 


00001 




06199 


00001 




06201 


00002 




06204 


00003 





TR TLl-USWSET-l 



TLRA0-9, 0.0-9 
2*0. 0«* 



IK TOlOt If «!***# 



TR NF~l»NOSSET-l 



STFL-4*STXSET-6 
0UT0W2»0SSW*f 



ASSUME CUTTER RADIUS IS 0.0* 

SET INTOL-0.0005 AND 

SIT ALLOWABLE ERROR-0.00005 

06230 31 0S975 06025 
SET BOTTOM CENTER OF TOOL IN X-Y PLANE 

06242 06 0M40 06034 
SET OUTT0L«O.0O0f 0*21* 0* 06014 06044 

SET INTERSECTION NO»«l» 

SET INTOP'O AND 

SET NON-REVIEW MOOf INOICATOR 

0*266 11 04194 06200 
SET RECORD STACKING INDICES ANO 
SET REAO NOOE INOICATOR 

06278 31 06159 06170 
BRANCH IF REVIEW NOOE PREVAILS 

06290 45 076*6 06156 



10 



101 30* 










101*0 DFREAO 


BTM 




tcin nut »n— *ot q ft nan from imtaam 












000*1 


10190 SEQCHK 




MR .AMI M. * 












AA114 74 A74A7 


06139 


10140 


BNE 


t^tuj tit 


Atiuru ic Dcrnan miT nc ccahfncf 

DKArlUn |T nCLUNU Uv> Ur JCUUCNl>C 










0oJ2o 47 OB292 


01200 


101 70» 












OC 


2 1 Of * t 


La l»U MUUIrlfcK OoJif O00O2 






OS 


1 1 •— 4 t 


INDlbATUR ru»« SUBPRUuRAW PTBUrR 










UoJJj 00001 




10200* 










1 1 A 1 A <t£Qf)K 


AM 


UN 11,1, tut 


tkirocMCkiT TtuDiir tccnin rnuuTCD 
l^lrKcntnl IIMrUI KfcLUKU vuUNIcN 












000** I 


4 I v c w Vw 4 


OC 


_ _ _ 
* 1 1 •** 2 1 


Ui uU nUDIrlcK 0044 r 00002 














1 1040 


- 

cm 


NR T 1 2 • 8 , 


IC5T rUR ITPc 2 RECORD 










06350 14 02471 


0-002 


11050 


BNE 


TLURT, » . 


BRANCH IF NOT TYPE 2 RECORD 










06362 47 06458 


01200 


1 1060* 










11070 TYPE2 


CM 


NSRTt 1 .8, 


TEST FOR END RECORD 06374 14 02475 


0-001 


11000 


BE 


END. i « 


BRANCH IF END RECORD 063B6 46 07390 


01200 


I 1090* 










11 100 


CM 


NSRT 1 1038.8. 


TEST FOR TRACUT RECORD 










06398 14 02475 


OJ038 


111 10 


BE 


TRACUT . . . 


BRANCH IF TRACUT RECORD 










06410 46 07458 


01200 


11120* 










111 30 


BNR 


STACKR tOSSWt • 


BRANCH IF REVIEW M00E PREVAILS 










06422 45 06862 


06158 


11140* 




• 






1 11 SO 


BTM 


MONI TR , 02360* • 


CALL OSCOUT SUBPROGRAM VIA M0NITR 










06434 17 08562 


-2360 


1 1 160 


BTM 


OSCOUT • BRMODE • * 


WRITE ONE AO-APT RECORD 










06446 17 02410 


-6818 


in 70* 










iiioo* 




TABLE LOOK— UP 


R0UTI NE 




11190 TLURT 


TO 


ARG.NRT. t 


EXTRACT LOW-0R0ER DIGIT FROM NRT 










06458 25 06517 


02471 


1 1200 


TO 


ARG- 1 .NSRT. t 


EXTRACT LOW-ORDER DIGIT FROM NSRT 










06470 25 06516 


02475 


12010 


SF 


ARG- 1 # 1 1 


SET 2-0IGIT ARGUMENT FLAG 










06482 32 06516 


00000 


12020 ELNNT 


OS 


5»* t 


STACKING AOORESS FOR SUBPROGRAM PTBUFR 








06493 00005 




12030* 










12040 


TFM 


CMPARE+6.SYMTAB* t 


SET TABLE ARGUMENT AOORESS 










06494 16 06512 


-6582 


12050 CHPARE 


CM 




06506 14 00000 


-0000 


12060 ARG 


OS 


2,* 


06517 00002 




12070 AR6T 


OC 


2.0. *-2 


06515 00002 




12000 


BE 


tOC Ml 


BRANCH IF INPUT AND TABLE ARGUMENTS SAME 








06518 46 06550 


01200 


12090* 










12100 


AM 


CMPARE*6*7.l0t 


INDEX TABLE ARGUMENT ADDRESS 










06530 11 06512 


000-7 


12110 


B 


CMPARE 


06542 49 06506 


C0000 


12120 


DOR 6 


*-3 


06550 





12130* 



12140 LOC 
12150 



AM 

SF 



12160 OUTSA DC 
12170 B 



12180 
12190« 
12200' 
13010 
13020 
130 30 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
15010 
15020 
150 30 
15040 
15050 
15060 
15070 
15080 
15090 
15100 



CMPARE*6.5,10t CALCULATE AOORESS OF FUNCTION AOORESS 

06550 11 06512 000-5 

CMPARE+6... FABRICATE INDIRECT AOORESS 

06562 32 06512 00000 

5,3400,*. OUTPUT SECTOR AOORESS 06573 00005 

CMPARE+6 , ,6, BRANCH TO RECORD TYPE ENTRY 

06574 49 0651K 00000 

•-4 0658 1 



SYMTAB OC 
OSA 

OC 

OSA 

OC 

OSA 

DC 

OSA 

OC 

OSA 

DC 

OSA 

DC 

OSA 

OC 

OSA 

OC 

OSA 

DC 

OSA 

OC 

OSA 

OC 

DSA 

OC 

DSA 

OC 

OSA 

DC 

OSA 

OC 

OSA 

DC 

DSA 

DC 

OSA 

DC 

OSA 

OC 

OSA 

OC 

OSA 

OC 

OSA 

OC 

OSA 

DC 

OSA 

OC 

OSA 



2.23 

OSURF 

2.28 

GORGT 

2»45 

GOOLTA 

2.55 

GOTO/ 

2.38 

GOFWO 

2*18 

GOLFT 

2.14 

TLLFT 

2.15 

INOIRP 

2.43 

PAST 

2,33 

TO 

2.53 
ON 

2.17 

GO/ 

2.66 

CUTTER 

2.34 

TLON 

2.35 

FROM 

2.13 

PSIS 

2.24 

TLR6T 

2,4 

FINI 

2.36 

INTNO 

2.25 

INOIRV 

2,46 

INTOL 

2.56 

OUTTOL 

2*48 

COBACK 

2.27 

OFFSET 

2,61 

TAN 



RECORD TYPE BRANCHING TABLE 



06582 


00002 




06587 


00005 


-7620 


06589 


00002 




06594 


00005 


-6930 


06596 


00002 




06601 


00005 


-7330 


06603 


00002 




06608 


00005 


-7360 


06610 


00002 




06615 


00005 


-6938 


06617 


00002 




06622 


00005 


-6938 


06624 


00002 




06629 


00005 


-6894 


06631 


00002 




06636 


00005 


-7290 


06638 


00002 




06643 


00005 


-7576 


06645 


00002 




06650 


00005 


-7576 


06652 


00002 




06657 


00005 


-7576 


06659 


00002 




06664 


00005 


-7534 


06666 


00002 




06671 


00005 


-7078 


06673 


00002 




06678 


00005 


-6894 


06680 


00002 




06685 


00005 


-7260 


06687 


00002 




06692 


00005 


-6770 


06694 


00002 




06699 


00005 


~6894 


06701 


00002 




06706 


00005 


-8324 


06708 


00002 




06713 


00005 


-7162 


06715 


00002 




06720 


00005 


-7310 


06722 


00002 




06727 


00005 


-6990 


06729 


00002 




06734 


00005 


-7058 


06736 


00002 




06741 


00005 


-6938 


06743 


00002 




06748 


00005 


-TSJ4 


06750 


00002 




06755 


00005 


-7576 



15110 


DC 


2,16 


06757 00002 




15120 


OSA 


ontcut 


06762 00009-7230 


15130 


DC 


2t6 


04764 00002 




15140 


OSA 


CUT 


04769 00009 -7210 


151 SO* 










19160* 




•ENTRY FOR 


9 ART SURFACE RECORD* 




I SI 70 PSIS 


BHR 


**26 9 0UM*SUt» 


BRANCH If STACK-DUMP MODE PREVAILS 

06770 49 06794 


06169 


151 80* 










13190 


BNA 


WARN1,DSSW, 9 


BRANCH tF REVIEW MODE PREVAILS 




19200* 






06762 49 06618 


06196 








16010 


ITN 


MOMt TR ,02220* t 


CALL SPSIS SUBPROGRAM VIA MONITR 






0T« 




06794 17 06562 


-2220 


16020 


SPSIS,l,10, 


PROCESS PART SURFACE RECORO 








06806 IT 02410 


000- 1 


160)0* 






160^0 1RM00I 


8NP 


DPRlAOtOUMPSNtt 


branch if read mode 068I8 44 06302 


06169 


16090* 






16060 


B 


MOO- 12 


06830 49 08106 


00000 


16070 


OORG 


•-3 


06838 




16060* 










16090 NARN1 


BTM 


HON I TR, 022 50,, 


CALL ERPROC SUBPROGRAM VIA MONITR 

06838 17 08962 


-2250 


16100 


BTM 


ERPROC ,20490»* 


WRITE ALARM MESSAGE. • • BRANCH BACK 

06890 17 02410 


K0490 


16110 STACKS 


BTM 


MONITR, 02230* , 


CALL STACK SUBPROGRAM VIA MONITR 

VOwwC & ff UO/Oc 


—2230 


16120 


8T 


STACK, STFL«, 


STACK INPUT RECORO 06874 27 02410 


06163 


16130 


B 


OFREAO 


WHOP, UOJVft 


ooaaa 

w WW 


16140 


OORG 


•-3 


06894 




16150* 










16160* 




•ENTRY FOR 


TOOL MODIFIER RECORD* 




16170 TLNOO 


TO 


TL2»NSRT,, 


SET CS TOOL MODIFIER AARQ4 9% AAI4? 


02479 


16190 


8 MA 


OFREAO, DSSW, * 


BBAMCM IF REVlfM MQDf PREVAILS 

06904 41 04102 


06156 


16190* 










16200 


TO 


TL1,N$RT V * 


SET DS TOOL MODIFIER 06918 29 06149 


02479 


17010 


B 


OFREAO 


04910 44 0*109 


00000 
W www 


17020 


DORG 


»-3 


06938 




17030* 










17040* 




•ENTRY FOR 


60 MODIFIER RECORD* 




17050 GOHOO 


BNR 


GOCStOSSW** 


MAM£M IF BFWIFy MODE ORFVAtlt 


AA 1 11 


17060* 










17070 


TO 


G01,NSRT,# 


SET OS GO MODIFIER 06990 25 06347 


02479 


17080 


8 


OFREAO 




AAAAA 


17090 


OORG 


•-3 


06970 




17100* 










17110 GOCS 


TO 


G02,NSRT»# 


SET CS GO MODIFIER 06970 25 06337 


02<79 


17120 


8 


OFREAO 


06982 49 06302 


00000 


17130 


OORG 


•-3 


06990 




17140* 










17150* 




•ENTRY FOR 


INTOL RECORD* 




17160 INTOL 


TFM 


0UTT0L-9.T0LI 


06990 16 07049 


-9994 


17170 


BNR 


**24»DUNPSW» , 


BRANCH IF STACK-DUMP MODE PREVAILS 

07002 49 07026 


06169 


17J80* 










17190 


BNR 


WARN1,0$$W** 


BRANCH IF REVIEW MOOC PREVAILS 





07014 49 06636 06196 



17200* 




16010 


BTM 


18020 


BTM 


18030 


B 


18040 


DORG 


18090* 




18060* 




16070 OUTTOL 


TFM 


18080 


8 


18090 


OORG 


16100* 




18110* 




18120 CUTTER 


BNR 


18130* 




18140 


BNR 


18150* 




18160 


FMUL 


18170 


TFL 


18180 


BNN 


18190* 




18200 ER207 


BTM 


19010 


BTM 


19020* 




19030* 




19040 INTNO 


TFM 


19090 


FSU8 


19060 


BN 


19070* 




19060 


AM 


19090 


BD 


19100* 




19110 


B 


19120 


OORG 


19130* 




19140* 




19190 CUTMOO 


BT 


19160 


§ 


19170 


OORG 


19180* 




19190 CUTOSA 


OSA 


19200 


DSC 


20010* 




20020* 




20030 FROM 


BT 


20040 


B 


20090 


DOR© 


20060* 




20070 FRMOSA 


DSA 



MONITR ,022*0,. 
STOL,,, 



BR MOOC 
•-3 



CALL STOL SUBPROGRAM VIA MONITR 

07026 17 08962 -2240 
PROCESS TOLERANCE RECORD 

07036 17 02410 -0000 

07090 49 06616 00000 

07058 



•ENTRY FOR OUTTOL RECORO* 
0UTTOL-9,TOLO 
INTOL* 12 
•-) 

•ENTRY FOR CUTTER RECORD* 
•♦24, DUMPS*,, 



07058 16 07049 -6014 
07070 49 07002 00000 
07078 



WARN1,0SSW,, 



FLW*0»10«0.5,» 
TLRAO»FLW*0»10*« 
8RM0DE * « , 



MONITR, 02250, » 
ERPROC t 20700, , 



BRANCH IF STACK-DUMP MODE PREVAILS 

07078 45 07102 06169 

BRANCH IF REVIEW MODE PREVAILS 

07090 45 06838 06158 

(CUTTER DIAMETER)/2.0 07102 03 02468 06069 
STORE CUTTER RADIUS 07114 06 05964 02488 
BRANCH IF CUTTER DIAMETER IS POSITIVE 

07126 46 06818 01300 

CALL ERPROC SUBPROGRAM VIA MONITR 

07138 IT 08562 -2250 

WRITE ERROR MESSAGE.*. SEARCH FOR ENO 

07150 17 02410 K0700 



•ENTRY FOR INTERSECTION NUMBER RECORO* 
NF»»10* CLEAR INTERSECTION NUMBER INDICATOR 

07162 16 06195 000-0 

FLW*0*10,1.0 07174 02 02488 06075 

6R207,,, BRANCH IF INTERSECTION NO. NOT POSITIVE 

07186 47 07138 01300 



07196 11 06199 000-1 
07210 43 07174 02479 



07222 49 06302 00000 
07230 



NF,ltlO, FIX INPUT NUMBER 

INTNO* 12, FLW*0*10-9 

OFREAO 
•-3 

•ENTRY FOR CUTTING MODE RECORD* 
MONITR*CUrOSA*9*t CALL SCUT SUBPROGRAM VIA MONITR 

07230 27 06962 07298 
SCUT,,, PROCESS CUT OR ONTCUT RECORO 

07242 49 02610 00000 
#-4 07249 



OFREAO 
5,02271 



07293 00009 

07294 00005 



6302 



•ENTRY FOR FROM RECORD* 
N0NITR,FRN0SA*9*» CALL SFROM SUBPROGRAM VIA MONITR 

07260 27 08962 07286 

SFROM* #• PROCESS FROM RECORO 07272 49 02410 00000 

••4 07279 



OFREAO 



07283 00009 -6)02 



20080 


DSC 


5*02281 


07284 00005 




20090* 










201 00* 




•ENTRY FOR 


INDIRP RECORD* 




20110 1N0IRP 


BTM 


MONITR, 02290* * 


CALL SINDRP SUBPROGRAM VIA MONITR 

07290 17 0856? 


-2290 


20120 


B 


SINORP*** 


PROCESS INDtRP RECORD 07302 49 02410 


00000 


20130 


DORG 


•-3 


07310 




20140* 










20150* 




•ENTRY FOR 


INDIRV RECORD* 




20160 INOIRV 


BTM 


MONITR.02300** 


CALL SINORV SUBPROGRAM VIA MONITR 

07310 17 08562 


-2300 


20170 


B 


SINORV*** 


PROCESS INOIRV RECORO 07322 49 02410 


00000 


20180 


DORG 


•-3 


07330 




20190* 










20200* 




•ENTRY FOR 


GOOLTA RECORO* 




21010 GOOLTA 


BT 


M0NlTR#G0L0SA»5»» 


CALL SGOLTA SUBPROGRAM VIA MONITR 

07330 27 08562 


07358 


21020 


B 


SGOLTA,,. 


PROCESS GOOLTA RECORO 07342 49 02410 


00000 


21030 


DORG 


*-4 


07349 




210*0* 










21050 GOLDSA 


OSA 


OF RE AO 


07353 00005 -6302 


21060 


DSC 


5,02311 


07354 00005 




21070* 










21080* 




•ENTRY FOR 


GO TO RECORD* 




21090 GOTO/ 


BT 


HON I TR ,G TODSA+5 , « 


CALL SGOTO/ SUBPROGRAM VIA MONITR 

07360 27 08562 


07388 


21100 


B 


SGOTO/,, , 


PROCESS GO TO RECORO 07372 49 02410 


00000 


21110 


DORG 


•-4 


07379 




21120* 










21130 GTODSA 


DSA 


DFREAD 


07383 00005 -6302 


21140 


DSC 


5,02321 


07384 00005 




21150* 










21160* 




•ENTRY FOR 


END RECORO* 




21170 END 


BNR 


ER208*DSSW,« 


BRANCH IF REVIEW MOOE PREVAILS 

07390 45 07426 


06158 


21180* 










21190 


BTM 


MONITR, 02360,* 


CALL OSCOUT SUBPROGRAM VIA MONITR 

07402 17 08562 


-2360 


21200 


BTM 


OSCOUT, ARELEH*12, 


, WRITE ENO RECORD* • • BRANCH TO ARELEM+12 








07414 17 02410 


-6218 


22010* 










22020 ER208 


BTM 


MONITR, 02250* , 


CALL ERPROC SUBPROGRAM VIA MONITR 

07426 17 08562 


-2250 


22030 


BTM 


ERPROC, 20890,* 


WRITE ERROR MESSAGE.. • BRANCH BACK 

07438 17 02410 


K0890 


22040 


B 


ENDM2 


07450 49 07402 


00000 


22050 


DORG 


•-3 


07458 




22060* 










22070* 










22080* 




•ENTRY FOR 


TRACUT RECORD* 




22090 TRACUT 


BNR 


•♦24.DUMPSW, , 


BRANCH IF STACK-DUMP MOOE PREVAILS 

07458 45 07482 


06169 


22100* 










22110 


BNR 


STACKR ,0SSW» , 


BRANCH IF REVIEW MOOE PREVAILS 

07470 45 06862 


06158 


22120* 










22130 


BNR 


TRMODE,FLW*0*10*1 


.** BRANCH IF TRACUT MATRIX 

07482 45 07514 


02489 


22140* 










22150 TRMOSW 


TO 


TRCTSW,FLW*0*10*1 


, , SET TRACUT MOOE INOICATOR 





22160 


B 


BRMODE 




22170 


DORG 


•-3 




22180* 








22190 TRMODE 


TR 


MATRIX+0*10-9*FLW*0« 


22200 


B 


TRMDSW 




23010 


DORG 


•-3 




23020* 








23030* 




•ENTRY FOR 


GO i 


23040 GO/ 


TF 


ARGT.ARGt • 




23050* 








23060 


ar 


MONI TR,G0/0SA*5, 9 1 


23070 


B 


SGO/ , , , 


1 


23080 


OORG 


•-4 




23090* 








23100 GO/DSA 


OSA 


STACKR 




23110 


OSC 


5*02331 




23120* 








23130* 




•ENTRY FOR 


TO, 


23140 EXPL 


BTM 


MONITR, 02340*, 


( 


23150 


TF 


TLT.TL2,* 




23160 


BTM 


STP0T,1,10, 


1 


23170 


B 


REVMO0*l2 




23180 


DORG 


•-3 




23190* 








23200* 




•ENTRY FOR 


DRV 


24010 DSURF 


BNR 


REVMOD»DSSW*» 


1 


24020* 








24030 


A 


INTOF*NSRF* , 




24040 


BNR 


CSURF»DSSW** 


1 


24050* 








24060 


TFM 


KTEMP,1,10 




24070 


BTM 


MONITR ,02360,. 


1 


24080 OUTOS 


BTM 


OSCOUT, •♦12,, 


1 


24090* 








24100 


SM 


INTOF * *» 




24110 KTCMP 


OS 


2*» 




24120* 








24130 


MM 


INTOF, 4, 10, 


* 


24140 


SF 


98 




24150 


DORG 


•-4 




24160* 








24170 


DSA 


AIOSCIN 




24180* 








24190 


TF 


1NT0F*99** 




24200 


TOM 


ossw,,, 




25010 


B 


STACKR 




25020 


OORG 


•-3 





07494 25 06153 02489 
07506 49 06818 COOOO 
07514 



07514 31 08431 02479 
07526 49 07494 00000 
07534 



SAVE INPUT RECORD AND SUB-RECORD TYPE 

07534 26 06515 06517 

CALL SGO/ SUBPROGRAM VIA MONITR 

07546 27 08562 07574 
PROCESS GO OR OFFSET RECORO 

07558 49 02410 00000 
07565 

07569 00005 -6862 

07570 00005 

PAST, ON AND TAN RECORDS* 
CALL STPOT SUBPROGRAM VIA MONITR 

07576 17 08562 -2340 
SAVE T00L2 07588 26 08229 06147 

PROCESS EXPLICIT CS RECORD 

07600 17 02410 000-1 
07612 49 07942 00000 
07620 



BRANCH IF REVIEW MOOE PREVAILS 

07620 45 07930 06158 

I NTOF* INTOF*NSRF 07632 21 06157 02477 

BRANCH IF REVIEW MOOE PREVAILS 

07644 45 07760 06158 

07656 16 07703 000-1 
CALL OSCOUT SUBPROGRAM VIA MONITR 

07668 17 08562 -2360 
WRITE ONE AO-APT RECORO... BRANCH BACK 

07680 17 02410 -7692 



NTOFMNTOF-KTEMP 
4*UNT0F-KTEMP» 



07692 12 06157 -0000 

07703 00002 

07704 13 06157 000-4 
07716 32 00098 00000 
07723 

07727 00005 J1514 



MOVE OS-CS CONFIGURATION TYPE INOICATOR 

07728 26 06157 00099 
SET IMPLICIT CS MOOE INOICATOR 

07740 15 06158 00000 
07752 49 06662 00000 
07760 



105 



25030* 










25040 CSURF 


CM 


ARGT,27,t0t 


TEST FOR OFFSET RECORD 










07760 14 06515 


00OK7 


25050 


Bf 


OFFST,,, 


t RANCH IF OFFSET CALCULATION REQUIREO 








07772 46 08262 


01200 


25060* 










25O70* 


TFM 


SEARCH OIMTAI FOR OIM NO* AS A FUNCTION OF INTOF 




25080 


INDX, DIMTAB 


07784 16 07802 


-7906 


25090 


C 


♦INTOF 


07796 24 00000 


06157 


25100 I NOV, 


OS 


5t*-5 


07802 00005 




25110* 










25120 


BNN 


MVONO 


07808 46 07840 


01300 


251 30* 










251*0 


AM 


INDX, 6, 10 


07820 11 07802 


000-6 


25150 


B 


INDX-6 


07832 49 07796 


00000 


251 60 


DOR 6 


*-J 


0T340 




ill f|i 








25180 MVONO 


AM 


INDX, 4,10 


07840 11 07802 


000-4 


25190 


TF 


OSDSA+4, INDX, lit 


MOVE OIM NO* TO OSA 07852 26 07903 


0780K 


25200 


CF 


OSDSA+1 


07864 33 07900 


00000 


26010 


00AG 


••4 


07871 




26020* 










26030 HIOSA 


0SA 


AIDI5CR+16 


07875 00005 J 1796 


26040* 










26050 


BT 


HON I TR»0S0SA*St t 


CALL OS EVALUATION SUBPROGRAM VIA MONITR 








07876 27 08562 


07904 


26060 


B 


SDSRT,,, 


BRANCH TO OS SUBPROGRAM 










07888 49 02410 


00000 


26070 


DOR 6 


••4 


07895 




26080* 










26090 OSOSA 


0SA 


BRCST 


07899 00005 -8022 


26100 


OSC 


5*1 


07900 00005 




26110* 










26120 DIMTAB 


OC 


2t4 


07906 00002 




26130 


OC 


4,0238,, 


LINOS SUBPROGRAM OIM NO. 










07910 00004 




26140 


OC 


2,8 


07912 00002 




26150 


OC 


4,0239,, 


CIRDS SUBPROGRAM OIM NO. 










07916 00004 




26160 


OC 


2,12 


07918 00002 




26170 


DC 


4,0240,, 


CONDS SUBPROGRAM DIM NO. 










07922 00004 




261 80 


DC 


2,16 


07924 00002 




26190 


OC 


4,0241,, 


TABDS SUBPROGRAM OIM NO. 










07928 00004 




26200* 










27010 REVMOO 


BNR 


ENOMP.DUMPSWtt 


BRANCH IF DUMP MOOE PREVAILS 










07930 45 08186 


06169 


27020* 










27030 


BTM 


MONITR, 02230t# 


CALL STACK SUBPROGRAM VIA MONITR 










07942 17 08562 


-2230 


27040 


BT 


STACK, STFLtt 


STACK CS RECORO 07954 27 02410 


06163 


27050 


BTM 


MONITR, 02350., 


CALL START SUBPROGRAM VIA MONITR 










07966 17 08562 


-2350 


27060 


BT 


START, TL1,, 


CHECK STARTUP PARAMETERS 










07978 27 02410 


06145 


27070 


BNC4 


DSURF*l2ttt 


BRANCH IF NOT EXECUTION- INTERRUPT MOOE 








07990 47 07632 


00400 


27080* 










27090 


BTM 


MONITR, 02630,, 


CALL AEOUMP SUBPROGRAM VIA MONITR 










06002 17 06562 


-2630 


27100 


g 


AEDUMP 


08014 49 02410 


00000 


271 10 


DORC 


•-3 


08022 




271 20* 










27130 BRCST 


BD 


EXPLCStOSSW,, 


BRANCH IF EXPLICIT CS MOOE 










08022 43 08218 


06156 


27140* 










27150 IMPLCS 


TOM 


DUMPSW,9,il, 


SET STACK DUMP MOOE INDICATOR 










08034 15 06169 


OCOOR 


27160 


TFM 


ARGT ,1,10, 


SET STARTUP TEST BYPASS SWITCH 










08046 16 06515 


000- 1 


271 70* 










271 80 


TO 


TL t, TL2 


08058 25 06145 


06147 


27190 


TO 


G01,GO2 


08070 25 06347 


06337 


27200* 














MOVE STACKEO 


RECOROS TO INPUT AREA FOR PROCESSING 




yafiyn niiMO 
(OUcu uunr 


TFM 


0MPFL*ll,FLWST*0*l0-9 08082 16 08165 


-3353 


28030 


TFM 


•♦23,FXWST*0*27-23 


08094 16 08117 


-5517 


28040 




•♦22 


08106 26 08128 


00000 


igncn Mfln 
toujU nuu 


AM 


DMPFL*ll,l»9 


08118 11 08165 


00-01 


28060 


AM 


MOO- 1*24* 10 


08130 11 08117 


000K4 


28070 OMPFX 


TR 


NSECT-1, MOD- 1,11, 


MOVE FIXED-WORO PORTION OF RECORD 










08142 31 02452 


0811P 




TR 


FLW*0*10-9*tt 


MOVE FLOATING-WORD PORTION OF RECORD 








08154 31 02479 


00000 


28090 


AM 


MOD* 1, 3,10 


08166 11 08117 


000-3 


2810O 


B 


SE0OK*l2«tt 


PROCESS CUMPEO RECORO 08178 49 06350 


00000 


28110 


OORG 


*~3 


08186 




28120* 










28130* 




CS RECORO PROCESSED**. STACK DUMPING TERMINATES 




28140 ENDMP 


TO 


KUT1,KUT2 


08186 25 06148 


06149 


28150 


TFM 


NF,1,10 


08198 16 06155 


000-1 


28160 




0FAEA0-24 


08210 49 06278 


00000 


28170 


DORC 




08218 




28180* 










281 90* 




STACK DUMPING NOT REQUIRED... CS WAS EXPLICIT 






TOM 


TL2,,, 


RESTORE T00L2 06218 15 06147 


ooooo 


29010 TLT 


OS 


lt« 


08229 00001 














29030 


TD 


TLl,TL2 


08230 25 06145 


06147 


29040 


TFM 


ARGT,, 10, 


TURN OFF OFFSET CONTROL SWITCH 






08242 16 06515 


000-0 


29050 


B 


0FREA0-36 


08254 49 06266 


ooooo 


29060 


DOR 6 


♦-3 


08262 










CALL SOFFST SUBPROGRAM VIA MONITR 




(7USU Wrr 9) 


BT 


MONITRtOFS0SA*9t» 






08262 27 08562 


08290 


29090 


g 


SOFFSTttt 


PROCESS OFFSET STATEMENT 






08274 49 02410 


OOOOO 


29100 


DQRG 


••4 


08281 




29110* 










29120 UPSOSA 


_ 

DSA 


EXPLCS 


08285 00005 -8216 


29130 


OSC 


St 02421 


08266 00001 




29140* 






CALL ERPROC SUBPROGRAM VIA MONITR 




29150 EA203 


BTM 


MONITR, 02250, . 




08292 17 08562 


-2250 


29160 


BTM 


fRPROC ,20390,, 


WRITE ERROR MESSAGE. EXIT AD-APT 






08304 17 02410 


K0390 


29170 


CALL 


EXIT 


06316 49 00796 


OOOOO 



29180* 



29200* 

30010 flHl 



PACE 14 



•ENTRY FOR 
ER208F »0SSW,« 



FINI RECORD* 

BRANCH IF REVIEW MODE PREVAILS 

08324 45 084C0 06158 



30030 




BTH 


MONITR, 02360», 


CALL OSCOUT SUBPROGRAM VIA MONITR 

08336 17 08562 


-2360 


30040 




8TH 


D$C0UT,**12»t 


WRITE FIN1 RECORD... BRANCH BACK 

06348 17 02410 


-8360 


30050 




TFM 


9RCV10.17.10. 


SET REPOSITION AOORESS TO CVL. 17 

08360 16 00513 


000 J 7 


30060 




CALL 


L1NK,M0V0AT« » 


EXIT ARELEM TO NOVDAT SUBPROGRAM 

08372 10 00565 
08384 49 00716 


-8391 
00000 










08391 00007 LK0-39f 










08398 00001 * 




30070* 










30010 


6R208F 


BTM 


MONITR .02250,, 


CALL ERPROC SUBPROGRAM VIA MONITR 

08400 17 08562 


-2250 


30090 




BTM 


ERPROC, 20890,, 


WRITE ERROR MESSAGE... EXIT ARELEM 

08412 17 02410 


K0890 


30100 




B 


FINIM2 


08424 49 08336 


00000 


30110 




DORG 


•-4 


08431 




30120* 










30130 


MATRIX 


DSB 


10,12,, 


TRACUT MATRIX ARRAY 08440 00120 




30140 




OS 


1,, 


RECORD MARK ALLOCATION 

08551 00001 




30150* 










30160* 










30170 


OSCOUT 


OS 


,-ENTRVl 


02410 00000 




30180 


GORCT 


OS 


♦GOMOD 


06938 00000 




30190 


GOFWD 


OS 


, GOMOD 


06938 00000 




30200 


GOLFT 


OS 


,G0H0D 


06938 00000 




31010 


TLLFT 


OS 


.TLHOO 


06894 00000 




31020 


PAST 


OS 


,EXPL 


07576 00000 




31030 


TO 


OS 


,EXPL 


07576 00000 




31040 


ON 


OS 


,EXPL 


07576 00000 




31050 


TLON 


OS 


,TLM0D 


06894 00000 




31060 


TLRCT 


OS 


,TLM0D 


Uoot«» QOQUO 




31070 


GQBACK 


OS 


•GONOO 


06938 00000 




31080 


OFFSET 


OS 


• GO/ 


07534 00000 




31090 


TAN 


OS 


,EXPL 


07576 00000 




31100 


ONTCUT 


OS 


,CUTMOD 


07230 00000 




31110 


CUT 


OS 


tCUTHOO 


07230 00000 




31120 


SPSIS 


DS 


,-ENTRYl 


02410 00000 




31130 


ERPROC 


OS 


,-ENTRYl 


02410 00000 




31140 


STACK 


OS 


,-ENTRYl 


02410 00000 




31150 


STOL 


OS 


,-ENTRYl 


02410 00000 




31160 


SCUT 


DS 


,-ENTRYl 


02410 00000 




31170 


SFROM 


DS 


,-ENTRYl 


02410 00000 




31180 


SINORP 


OS 


,-ENTRYl 


02410 00000 




31190 


SINORV 


DS 


,-ENTRYl 


02410 00000 




31200 


SGOLTA 


OS 


,-ENTRYl 


02410 00000 




32010 


SGOTO/ 


OS 


,-ENTRYl 


02410 00000 




32020 


SCO/ 


OS 


,-ENTRYl 


02410 00000 




32030 


STPOT 


OS 


,-ENTRYl 


02410 00000 




32040 


SDSRT 


DS 


,-ENTRYl 


02410 00000 




32050 


START 


OS 


,-ENTRVl 


02410 00000 




32060 


SOFFST 


OS 


,-ENTRYl 


02410 00000 




32070 


AEDUMP 


DS 


,-ENTRYl 


02410 00000 





32080* 
32090* 
32100* 
32110* 
32120* 
32130* 
32140* 
32150* 
32160* 
32170* 
32180* 
32190* 
32200* 
33010* 
33020* 
33030* 
33040* 
33050* 
33060* 
33070* 
33080* 
33090* 
33100* 
331 10* 
33120* 
33130* 
33140* 
33150* 

33160 DC 
33170 RETAOO OS 



IBM 1620-1311 AO-APT SUBPROGRAM FOR SUPERVISING 
THE LOADING OF AO-APT SUBROUTINES AND SUBPROGRAMS 

RCS 

LINKAGE - BTM MONI TR, NNNN0.67, (ERASABLE PROG.) 

BT M0NITR,0SALBL*5,6, C NON-ERASABLE PROG.) 

NNNN IS THE AD-APT MONITR CIM NO OF CALLED PROG. 

FIELD AT 0SALBL*5 IS EQUIVALENT TO FOLLOWING. • • 
DSALBL OSA RA RETURN ADDRESS TO CALLING PROG. 

DSC 4, NNNN, AD-APT MONITR DIM NO 
DSC 1,1, ANY NON-ZERO DIGIT 

•ERASABLE PROGRAMS NEVER CALL OTHER PROGRAMS 
•NON-ERASABLE PROGRAMS CALL OTHER PROGRAMS 

•ERASABLE PROGRAMS MUST EXIT BY BRANCH BACK 
OR BY BRANCH CTO A FIXED AOORESS) 

•NON-ERASABLE PROGRAMS MUST EXIT BY BRANCH 
INDIRECT TO RETURN UN AO-APT SYSTEM COMMON AREA) 



33180 OIMNO 
33190 ERAS 
33200* 

34010 MONITR 

34020 

34030* 

34040 

34050* 

34060 

34070 



10,0 
5,*-5, 



4,*-l, 
!#•* 



SF 

DORG 



OIMNO- 3 
•-4 



OSA MAPENT*0*20-15 



TFM 
80 



CNTR,NE,10 
CALLNE ,ERAS, , 



08561 00010 
RETURN AOORESS FOR NON-ERASABLE PROGRAMS 

08556 00005 

AO-APT MONITR DIM NO 08560 00004 
ERAS ABILITY INDICATOR 08561 00001 

08562 32 08557 00000 
08569 

08573 00005 J0T95 

08574 16 08583 0OOK9 
BRANCH IF CALLING NON-ERASABLE PROGRAM 

08586 43 09336 08561 



34080* 

34090 CALLE TFM 

34100 SCAM C 

34110 BE 



P0INTR,MAPENT*20*NNE-16 08591 16 08616 40934 

.OIMNO,, SEARCH ERASABLE PROGRAM TABLE FOR DIM NO 

08610 24 00000 08560 
INMAP, , , BRANCH IF OIMNO LOCATED 

08622 46 09908 01200 



34120* 

14 1 30 
34140 
34150 



AM 
SM 
BNZ 



POlNTR-1,2,10 

CNTR,l,10 

SCAN,,, 



03634 U 00615 000-2 
08646 12 08983 000*1 
•RANCH IF CNO OF TABLE NOT ENCOUNTERED 

08658 47 08610 01200 



34160* 

34170 NUOIM SM 



14180 
34190 



FOINTA-l.2.10. 01* NO NOT ENTERED IN ERASABLE, -MM. JAJli 

0S670 12 08619 000*2 

PQlNTR,MAPENT*M*t«20-20-l6 08682 14 08616 J0914 

NEOVF.m BRANCH IF ERASABLE ,ROC. 10^1*011*00 



34200* 



350 10 


CM 


Pulwtmt ,66, 


35020 


6NE 


NUDIM,,, 


15030* 






14040 liUCMT 

£ J v ~ \t viv((1 1 


AM 


P0INTR,lil0 


J5U9U #101'* 


TF 


P0INTR»ERASt6t 


35060 


AM 




35070 


TFM 


VAUfkAJ. .ui 1 ni.Pt 


35080 


TF 


NCORES+llfHIf t 


35090* 




15100 


TF 


P0INTR,HI,6, 


35110 


TF 


L00Ei*2S#0lNN0 


35120 


AM 


100U*25,0EL0IM,6, 


15130 LOOf 1 


CAU 


L0A0»0i» 



35U0 
35150 

35160 VAA6 

35170 

35180* 

35190 HIL0A0 

35200 

36010 

36020* 
36030 

36040 NC0AES 



AM P0INTRf5»10 

TF P0INTR«ENTRY»6« 

8 

OORG *-3 



SEARCH FOR UMUSEO TABLE ENTRY 

08706 14 08610 0*000 
BRANCH |F ENTRY IS MOT ZERO 

08711 41 06670 01200 

08730 11 08816 000*1 
STORE OIN NO AND ERASABIL ITY OtGlT 

08742 26 08610 08561 

08754 11 08616 000-5 

08766 16 08884 -8886 

SAVE LOAO AOORESS 08771 26 089*5 00634 

STORI LOAO ADDRESS 08790 2* 08610 00414 

08802 28 08851 08560 

AGO OIN NO INCREMENT 08614 U 08851 0*000 
LOAD 0!SC~STORfO RELOCATABLE FROCRAM 

08826 10 00565 -8845 

08838 49 00716 00000 

08845 00007 120-000 

06852 00001 • 

08854 11 08616 000-5 

08666 26 06610 02136 

08878 49 00000 00000 
08666 



STORE ENTRY ADDRESS 



P01NTA,5,10 
COMP*ll t H!tt 
STRADO.EAAS,, 



MOVE HI INDICATOR 



TF P0INTR,HI t 6 
SM P0INTR,,6, 



36050 RESET TF HI,*-l, 



36060* 

36070* 

36060* 

36090* 

36100 

36110 

36120 

36130 

36140* 

36150 SETPT 

36160 
36170* 
36160* 
36190* 

36200 ERASE1 
37010 

37020 RANGE 
37030 

37040* 
37050 COMF 
37060 



06886 11 08616 000*5 
06898 26 09073 00434 
BRANCH IF NON-ERASABLE ENTRY 

08910 43 09536 08561 

06922 26 06610 00434 
STORE NOt CORES <MI-L0A0 AOORESS I 

06934 12 06610 00000 
RESTORE HI INOICATOR TO EFFECT OVERLOAD 

06946 26 00434 06945 

CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE HIGHEST 
CORE EXCEEOS THE LOAD AOORESS OF THE LAST LOAOEO 
ERASABLE PROGRAM 

TFM PROG X* 16, SE TFT 06956 16 10442 -8940 

TFM PROGX*23,HI 08970 14 10463 -0434 

B CLEAR! 08982 49 10600 00000 

OORG *-3 08990 



SM POlNTA-l,ltlOt 
TF LOPRM.LO,, 



POINT* INDICATES AOORESS OF LOAO AOORESS 

08990 12 08615 000-1 
MOVE LO INOICATOR 09002 26 09943 09675 



ERASE ALL PROGRAMS WHOSE LOAO AOORESSES 
ARE LESS THAN HIGHEST CORE POSITION USED 

TFM CONP*6,MAPENT*20*NNE-l*20*lO 09014 16 09068 J0920 

AM COMP*5,2,10 09026 11 09067 000-2 

CM COMP*6tMAPENT*20*NNE*20*NE»l*20-10 09038 14 09066 J 1500 

BP STNTRY,,, BRANCH IF ERASING COMPLETEO 

09050 46 09044 01100 



CM 
ON 



ERDIH,., 



09062 14 00060 -0000 
BRANCH IF PROGRAM DESTROYED 

09074 47 09176 01300 



37080 


B 


RANGE- 12 


37090 


OORG 


••3 


37100* 






37110 STNTRY 


TF 


ENTRYUENTRYf i 


37120 


TF 


ENTRY2.ENTRYI, 


37130 


CM 


0IMNO,ONSC,6 


37140 


BE 


COSN,,, 


37150* 






37160 OVOFF 


BV 


•♦I2tf» 


37170* 






37160 


BB 


1 1 1 


37190 


OORG 


*-9 


37200* 






38010 COSN 


AM 


ENTRY2#72t 10» 


38020 


B 


OVOFF 


38030 


OORG 


*-3 


36060* 






38050 EROIM 


C 


C0MP»6»P0!NTR 


38060 


BE 


RANG£*12«m 


36070* 






38080 


SM 


C0MP+6t5 f 10 


38090 


BNF 


ERASE #C0MP*6t 1 


36100* 






38110 


AM 


COMP+6, 25,10 


38120 


B 


RANGE 


38130 


OORG 


•-3 


38140* 






38150 ERASE 


SP 


C0MP*6»t*t 


36160 


AM 


C0MP«6tS»10 


38170 


C 


C0MP*6tL0PAM*< 


38180 


BN 


RANGE- 12,,, 


38190* 






38200 


AM 


C0MP*5» I » 10 


39010 


A 


L0»C0MP*6,lt» 


39020* 






39030 


AM 


COMP*StltlO 


39040 


8 


RANGE 


39050 


OORG 


#-| 


19060* 






19070* 




•ENTRY 


19080 CALLME 


TFM 


P0INTR»MAPENT< 


19090 


BNF 


INDEXfPOlNTR*: 


39100* 






19110 


SM 


POtNTRfltlO 


19120 


C 


OIMNO,POINTR, 


19110 


•Nf 


SPTCSTm, 


99160* 






19150 


AN 


POINTR,6,10, 


19160 


C 


P0IMTR,Ht»* 



09086 49 09026 00000 
09094 

SET PROGRAM ENTRY AOORESSES 

09094 26 02416 02136 

IN SYSTEM COMMON AREA 09106 26 02421 02416 

09118 14 08560 0-201 

BRANCH IF CALLEO PROGRAM IS SINF-COSF 

09130 46 09156 01200 

TURN OFF MONITOR I OVERFLOW 

09142 46 09154 01600 



EXIT 



09154 42 00000 00000 
09156 



FABRICATE ENTRY AOORESS TO COSF SUBR. 

09156 11 02421 000P2 
09168 49 09142 00000 
09176 

09176 24 09066 08616 
NO ERASURE IF PROGRAM JUST LOAOEO 

09188 46 09026 01200 

09200 12 09068 000-5 
, BRANCH IF PROGRAM NOT ERASED 

09212 44 09244 09060 

09224 11 09046 OOOKS 
09236 49 09038 00000 
09244 

ERASE PROGRAM FROM MEMORY 

09244 32 09040 00000 
09256 U 09066 000*5 
09266 24 09040 09943 
BRANCH IF PROGRAM NOT LOAOEO BY LO INOICATOR 

09280 47 09026 01300 



RE-DEFINI LO INOICATOR 



09292 11 09067 000*1 

R 

09304 21 096T3 09060 

09116 11 09067 000*1 

09128 49 09018 00000 
09336 



If 09138 1* 08616 J0795 

BRANCH IF USED ENTRY 09148 44 09676 06610 

09160 If 08616 000*1 

09172 24 0BS40 08610 

BRANCH IF OIMNO NOT NEXT IN TABLE 

09184 47 10146 01200 

NON-ERASABLE PROGRAM IS IN MfNOtV 

09196 U 06616 000*6 

09408 24 08410 00414 



!0S 



391 70 


BNE 


HEMGAP , « * 


BRANCH |F LOAD ADDRESS NOT EQUAL TO H| 








09*20 ♦? 10772 


01200 


l«l 80» 










59190 


SM 


POINTR, 5, 10 


09*32 12 08616 


000-5 


WOO 


CF 


POINTR, ,6, 


CLEAR ERASURE FLAG 09*** 33 08610 


00000 


AOOIO 


AN 


FOINTR-1,1,10 


09*56 11 08615 


000-1 


♦ 0020 


TF 


ENTRVl, POINTR, It, 


SET ENTRY ADDRESS IN SYSTEM COMMON AREA 








09*68 26 02*16 


08610 


*0010» 










♦ 00*0 


AM 


POINTR, 5, 10 


09*80 11 08616 


000-5 


♦ooso 


TF 


COMP*ll,POINTA,tl 


t RESTORE COMPHI (SIMULATE LOADING) 










09*92 26 09073 


08610 


♦ 0060 


TF 


POINTR, RETADD,6» 


REPLACE RETURN ADDRESS 










0950* 26 08610 


08556 


♦ 0070 


TF 


HI.COMPMl,, 


RESTORE HI INDICATOR 09516 26 00*3* 


09073 


♦ 00 80 


B 


STNTRY*12 


09528 *9 09106 


00000 


♦ 0090 


DOR 6 




09536 




♦01 00* 










♦ (U10 STRAOD 


TF 


P0INTR,RETA0D,6, 


STORE RETURN ADDRESS 09536 26 08610 


08556 


♦01 20* 










♦01 W 




CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE LOAD 




♦ 0M0« 




ADDRESSES 


ARE LESS THAN THE Ml INDICATOR 




♦ 01 50 


SM 


POINTR-1,1,10 


095*8 12 08615 


000- 1 


• 01 60 


TF 


ENOT AB* I 8 ,POt NTR 


09560 26 096 1* 


08616 


♦ 01 70 


AH 


ENOTABM 7,2,10 


09572 11 09613 


OCO-2 


♦ 01 80 


CM 


EN0TABM8,MAPENT*20«NNE-10 095B* I* 0961* 


J09*0 


♦01^0 ENOT A8 


8NN 


SETPTM2.., 


BRANCH IF END OF TABLE ENCOUNTERED 










09596 *6 09002 


01300 


♦C?00« 










♦ 1010 


c 


»M! 


09608 2* 00000 


00*3* 


♦ 1020 


8NN 


ENDTAB-2*, * » 


BRANCH IF ENTRY NEED NOT BE CLEAREO 










09620 *6 09572 


01 300 


♦1010» 










♦ 10^0 


SM 


ENDTAB*18,5,10 


09632 12 0961* 


000-5 


♦ 1050 


TFM 


ENDTABM8, ,6711, 


CLEAR NON-ERASABLE ENTRY FROM TABLE 










096** 16 0961M 


-000- 


♦ lOftO 


AM 


ENDTA8+1 8,25, 10 


09656 11 0961* 


000K5 


♦ 1070 


8 


ENOTAB-I 2 


09668 *9 0958* 


00000 


♦ 1080 


DORG 


•-3 


09676 




♦ 1090"» 










♦1100 INDEX 


AM 


POINTR-1,2,10 


09676 11 08615 


000-2 


♦ 11 10 


CM 


POINTR, MAPENT*NNE»20-15 09688 !♦ 08616 


J0935 


♦ 1120 


BN 


CALLNEM2,,, 


BRANCH IF NON-ERASABLE PROGRAM TABLE 










09700 *7 093*8 


01300 


♦tl 90* 






CAPACITY NOT EXCEEDED 




♦11 ♦O* 










♦1150 NNEOVF 


TFM 


WRERR*9,NNEC0N,9 


09712 16 09757 


00K23 


♦ 1 1 60 


TFM 


LO, 20000,, 


RE-DEFINE LO INDICATOR 










0972* 16 09875 


KOOOO 


♦ 11 70 


BTM 


MONI TR.ERROIM,, 


CALL ERROR PROCESSING SUBPROGRAM 










09736 17 08562 


-2250 


♦1180 WAERR 


8TM 


ERROUT, 90,67, 


WRITE ERROR MESSAGE. • • CALL EXIT 










097*8 17 02*10 


-0090 


♦ 1190 


CALL 


EXIT,,, 


EXIT AD-APT SYSTEM 1 NON-RECOVERABLE 










09760 *9 00796 


00000 


*1200» 






MONITR TABLE OVERFLOW ERROR) 




*2010« 










♦ ?020«» 










♦2030» 




•ENTRY FOR 


INDIRECT RETURN TO NON-ERASABLE PROGS. 




♦ *0^0 RETURN 


TFM 


POINTR, MAPENT-I»20-15,, SEARCH FOR LAST EXITED PROGRAM 



♦ 2050 


AM 


♦ 4?060 


BNF 


♦?070» 




♦ ?0B0 


SM 


♦ 7090 


TF 


♦ ?1 00 


TF 


♦ /I 1 0» 




♦ ?l 20 


TF 


♦21 30« 




♦ 21 *0 


SM 


♦ 2150 


SF 


♦2160 LO 


DC 


♦?l 70« 




♦ 2180 


AM 


♦ 2190 


TF 


*2200 EXIT 


8 


♦ 3010 


00* G 


♦3020» 




♦ 10 30* 




♦30^0 INNAP 


AM 


♦ 3050 


BNF 


♦ 3060» 




♦ 10 70 


CF 


A30R0 


AN 


♦ 3090 


TF 


♦ MOO 


TF 


♦ 31 10 


S 


♦ 31 20 


c 


♦ 31 30 


BL 






♦5150 Fit 


TF 


♦ 3160 


SM 


♦ 3170 


TF 


♦ 3180 


TF 


*3190 


TFM 


*3200 


B 


4*010 


DORG 


4*020* 




**030 ICltOAO 


TF 


**0*0» 




%*050» 




*4060» 




4*070« 




44Q80« 




4*090 


TF* 


**100 


AM 


44110 EITMT 


CM 


44110 


BP 


441 tO« 





POINTR-1,2,10 
•-12, POINTR, 11, 



P0INTR,5,10 
EXIT»6, POINTR, 11, 
POINTR, HI ,6, 

COMPf 11, HI,, 

POINTR,15,IO 
P0INTR,,6, 



P01NTR,5,10 
Hi, POINTR, 11* 



09768 16 08616 J0775 

09780 11 08615 000-2 
IF PROGRAM NOT ERASEO 

09792 ** 09780 08610 



SET RETURN ADDRESS 
SAVE HI INDICATOR 



STORE HI INOICATOR 



0980* 12 08616 000-5 
09816 26 09906 08610 
09828 26 08610 00*3* 

098*0 26 09073 00*3* 



09852 12 08616 000J5 
SET NON-ERASABLE PROGRAM EXIT FLAG 

0986* 32 08610 00000 
LO INDICATOR 09875 00005 

09876 11 08616 000-5 
RESET HI INDICATOR TO EFFECT OVERLOAD 

09888 26 00*3* 08610 
RETURN TO CALLING PROCRAM 

09900 *9 00000 00000 

09908 



DIM NO IS IN ERASABLE PROGRAM TABLE 



POINTR, 1 ,10 
1NC0RE ,POINTRt 1 I t 



POINTR, ,6, 
POINTR, 15,10, 

TEMP ,L0, » 

LOPRM,LO»t 
TEMP, POINTR, 11, 
TEMP, HI 
NOF I T, , , 



10, TEMP,, 

POlNTR-1,1,10 
TEMP#HI » ♦ 
HI ,L0,, 
VARB*6»LOL0A0 
LODE I- 36 
•-3 

Ml , TEMP, « 



09908 11 08616 000-t 
BRANCH IF PROGRAM IS IN MEMORY 

09920 ** 103*8 06610 

CLEAR ERASURE FLAG 09932 33 08610 00000 
LOAD ERASABLE PROGRAM INTO UPPER MEMORY 

099** II 08616 000J5 
IF (LO-NO. CORES I IS NOT LESS THAN Hi 

09956 26 09255 09875 
SAVE LO INDICATOR 09968 26 099*3 09875 

TEMP* f LO-NO. CORES) 09980 22 09255 08610 

09992 2* 09255 00*34 
BRANCH IF HI EXCEEDS (LO-NO. CORES) 

1000* *7 10380 01300 

RE-DEFINE LO INDICATOR 



SAVE Ht INDICATOR 
SET HI TO LO 



10016 26 09875 09255 

10028 12 08615 000-1 

100*0 26 09255 00*3* 

10052 26 00*3* 09875 

1006* 16 0888* 10084 

10076 *9 08790 00000 
1008* 

RESTORE HI INDICATOR 1008* 26 00434 09255 

ERASE ENTRIES OF ERASABLE PROGRAMS WHOSE HIGHEST 
CORE IS GREATER THAN LO INOICATORt ANO WHOSE LOAD 
ADDRESS IS LESS THAN THE PREVIOUS 10 INDICATOR 

LAML0F»6*MAPtNr«20»NN€~t«30-10 10098 It 10150 J0920 

LAHLO-^.IO 10108 tl 10149 000-2 

LAMLOP***MftMftf#20*NNE*20«N€-l«20-10 10120 14 10150 J I 500 

CLEAA2,,. MARCH If f RASING COfft>LfTE0 

V " 1013? 4i lOIli 01100 



4<»140 LAMLOP 


c 


44150 


bnn 


44160* 




44l 70 


tf 




AM 


44190 


A 


44200 LOMHIP 


CM 


45010 


BN 


45020* 




45030 


AM 


45040 


ft 


45050 


DORC 


45060* 






IM 


45080 


c 


45090 


86 


45100* 




45110 ERENT 


SF 


451 20 


AM 


451 90 




45140 


OORC 


45150* 




45160* 




45170* 




451 80* 




45190 CLEAR2 


TFM 


45200 


TFM 


460 10 


g 


46020 


OORG 


46030* 




46040* 




46050* 




46060 INCORE 


AM 


46070 


TP 


46080 





46090 


OORG 


461J0O* 








461 20* 




46130 NOP IT 


SM 


461 40 


g 


46150 


OORG 


46160* 




A JL| in ft CIO 1 


TFM 


46180 


AM 


46190 


CM 


46200 


BP 


47010* 




47020 


BNF 


47030* 




47040 PROCX 


AM 


47050 


C 


47060 


BP 



tl.QFR* 10144 24 00000 09943 

EXTNT-12,,, BRANCH IF PREVIOUS 10 EXCEEOS LOAO AOORESS 

10156 46 10108 01300 

L0MMlF»U,LAML0F*6 t a 10168 26 10215 1015- 

LAMLOP*5«t,lO 10180 11 10149 000-1 

U3MHIPH1»UMIQP*6,II 10192 21 10215 1015- 

LO 10204 14 09875 -0000 

CSELFm, BRANCH IF HIGHEST CORE USED EXCEEOS PRESENT LO 

10216 47 10248 01300 



FAc»f *o 



LAML0P*5*ltl0 

EXTNT 



UMkQP*4»l*»10 
UMU0F*6 v ERASt6 
ERENT*12t t • 



LAML0P*6,,6, 

LAML0P*6*25#10 

EXTNT 



10228 U 10149 000-1 
10240 49 10120 00000 
10248 



ERASE ENTRY 



10341 


If 


10150 


000J5 


10260 


24 


1015- 


08561 


SAME AS OIMNO 




10272 


46 


10296 


01200 


10284 


32 


1015- 


00000 


10296 


11 


10150 


00 OK 5 


10308 


49 


10120 


00000 



CLEAR NON-ERASABLE PROGRAM ENTRIES WHOSE 
HIGHEST CORE EXCEEOS THE LO INOICATOR 



PR0GX-18,STNTRY 

PROGX*23tLO 

CLEAR1 



10316 


16 


10442 


-9094 


10328 


16 


10483 


-9875 


10340 


49 


10400 


00000 


10348 









PROGRAM CALLED IS IN MEMORY 



POINTR-1,1,10 
ENTRY!, POINTR.U, 



10348 11 08615 000-1 

SET ENTRY AOORESS IN SYSTEM COMMON AREA 

10360 26 02416 08610 

10372 49 09106 00000 
10380 



CALLED PROGRAM MUST BE LOAOEO PER HI INOICATOR 



POINTR-1,1,10 
STDIM+24 



10380 12 08615 000-1 
10392 49 08766 00000 
10400 



PR0GX-1*MAPENT-1*20-1S 10400 16 10459 J0T75 

PROGX-2,2,10 10412 11 10458 0CO-2 

PR0GX-l,MAPENT*NNE*20-l*20-l5 10424 14 10459 J0915 

,,, BRANCH IF ENTRY CLEARING COMPLETEO 

10436 46 00000 01100 



CLEARl+12,,, 



PROGX-l, 15,10 
PROCX- I ,,6 
CLENT1 1 1 1 



BRANCH IF PROGRAM NOT EXITED 

10448 44 10412 00000 

10460 11 10459 0C0J5 
10472 24 1045R COOOO 
BRANCH IF ENTRY CLEARING IS REQUIRED 

10484 46 10516 01100 



47070* 




47080 


AM 


47090 


B 


47100 


OORG 


47110* 




47120 CLENT1 


SM 


47130 


TFM 


47140 


B 


47150 


OORG 


47160* 




47170 NEOVF 


TFM 


47180 


B 


47190 


OORG 


47200* 




48010 SPTEST 


BNF 


48020* 




48030 N00200 


B 


48040 


OORG 


48050* 




48060 


CM 


48070 


BE 


48080* 




48090 


CM 


48100 


BNE 


48110* 




48120 COFUV 


TF 


48130 


AM 


48140 


CM 


48150 


BNN 


48160* 




48170 


C 


48180 


BNE 


48190* 




48200 NOLO AO 


TFM 


49010 


AM 


49020 


TF 


49030 


B 


49040 


OORG 


49050* 




49060 SFRET 


TFM 


49070 


ft 


49080 


OORG 


49090* 




49100 MEMGAF 


SM 


49110 


B 


49120 


OORG 


49130* 




49140 NNE 


OS 


49150 NE 


OS 


49160 MAPI-NT 


OSB 


*9170 


OS* 



PROGX-l,5ilO 

CLEARl+24 

•~3 

PROGX-l, 15,10 
PROGX-l, ,6711, 

CLEAR1*12 
»-3 

WRERR+9,NEC0N,9 

NNE0VF*12 

•-3 



10496 11 10459 000-5 
10508 49 10424 00000 
10516 

10516 12 10459 000J5 
CLEAR NON-ERASABLE PROGRAM ENTRY 

10528 16 1045R -COO- 
10540 49 10412 OCOOO 
10548 

10548 16 09757 0CK22 
10560 49 09724 00000 
10568 



•»20»MAPENT*NNE*20*l*20-15 t . BRANCH IF SQRTF IS AVAILABLE 

10568 44 10588 10955 



ST0IM-12 
•-3 



OIMNO, 0210, 6 
COFUV, , , 



OIMNO, 021 1*8 
STOIH-12,,, 



10580 49 08730 00000 
10588 

10588 14 08560 0-210 
BRANCH IF CALLING DISTF SUBPROGRAM 

10600 46 10636 01200 

10612 14 08560 0-211 
BRANCH IF CALLING UNITY SUBPROGRAM 

10624 47 08730 01200 



ARROW*POINTR 

ARROW-1,2,10 

ARROW, MAPENT*NNE*20-16 

ST0IM-12 



•OIMNO 
COFUV* 12 

024ll,SPRET,, 

ARROW, U, 10 
POINTR, ARROW 
INCORE+12 

02411 , RETURN, # 
RETAD0,t6, 

POINT*, 6, 10 
SPTEST 



10636 26 10690 08616 

10648 11 10689 000-2 

10660 14 10690 J0934 

10672 46 08730 01300 

10684 24 00000 08560 

10696 47 10648 01200 



SET SFECIAL RETURN AOORESS IN SYST. CMN. 

10708 16 02411 J0752 
10720 11 10690 OOOJl 
10732 26 08616 10690 
10744 49 10360 00000 
10752 

RESTORE RETURN OSA IN SYST. CMN. 

10752 16 02411-9768 
RETURN TO CALLING PROGRAM 

10764 49 08550 00000 

10772 

10772 12 08616 000-6 
10784 49 10568 00000 
10791 



2*7, 
2.29, 



20, NNE 
20, Nr. 



MAXIMUM NO. OF LINKS IN NON-ERASABLE CALLING CHAIN 

00007 00002 

MAXIMUM NO. OF ERASABLE PROGRAMS TO BE CALLEO 

00029 00002 
10810 001*0 
10950 00560 



I 7 ti 



PAO€ 2? 

49180* 

49190* •FORMAT Of NON-ERASABLE PROGRAM ENTRIES.,. 

49200» 

50010* AO-APT MONITR NON-ZERO LOAD ENTRY RE TURN 

50020* OIM NO OICIT ADDRESS AOORESS ADDRESS 



50030* 




xxxx 


X xxxxx xxxxx 


XXXXX 


50040* 










50050 


DORG 


MAPENT*0*20~19 


' 10791 




50060 


DC 


5,-0 


10795 


00005 


500T0 


OC 


5»0 


10800 


00005 


50080 


DORG 


MAPENT»0*20-4 


10806 




50090 


DC 


5,0 


10810 


00005 


50100 


DC 


5,-0 


10815 


00005 


50110 


DC 


5,0 


10820 


00005 


50120 


DORG 


MAPENT*l»20-4 


10826 




50130 


DC 


5,0 


10830 


00005 


50140 


DC 


5,-0 


10835 


00005 


50150 


DC 


5,0 


10840 


00005 


50160 


DORG 


MAPENT«2*20-4 


10846 




50170 


OC 


5,0 


10850 


00005 


50180 


OC 


5,-0 


10855 


00005 


50190 


DC 


5,0 


10860 


00005 


50200 


OORG 


MAPENT*3*20-4 


10866 




51010 


OC 


5,0 


10870 


00005 


51020 


OC 


5,-0 


10875 


00005 


51030 


DC 


5,0 


10880 


00005 


51040 


OORG 


MAPENT*4*20-4 


10886 




51050 


DC 


5,0 


10890 


00005 


51060 


DC 


5,-0 


10895 


00005 


51070 


DC 


5,0 


10900 


00005 


51080 


OORG 


MAP6NT»NNE*20-2*20-4 10906 




51090 


DC 


5,0 


10910 


00005 


51100 


DC 


5,-0 


10915 


00005 


51110 


DC . 


5,0 


10920 


00005 


51120 


DORG 


MAPENT*NNE*20-l*20-4 10926 




51130 


DC 


5,0 


10930 


00005 


51140* 










51150* 




•FORMAT OF ERASABLE PROGRAM ENTRIES. « • 




51160* 










51170* 




AD-APT MONITR 


ZERO LOAO ENTRY NUMBER 


51180* 




DIM NO 


OIGIT ADDRESS ADDRESS 


CORES 


51190* 




XXXX 


X XXXXX xxxxx 


XXXXX 


51200* 










52010 


DORG 


MAPENT+NNE»20*0»20-19 10931 




52020 


OC 


4,0214,, 


NORMLN SUBPROGRAM DIMNO 










1093* 


00004 


52030 


OC 


1,0 


10935 


00001 


52040 


OC 


5,99999, , 


DUMMY LOAD AOCRESS 10940 


00005 


52050 


DORG 


MAPENT*NNE»20*0«20- 


-4 10946 




52060 


DC 


5,236,, 


NORMLN SUBPROGRAM CORE SIZE 










10950 


00005 


52070 


DC 


4,0200,, 


SQRTF SUBROUTINE DIMNO 










10954 


00004 


52080 


DC 


1,0 


10955 


00001 


52090 


DC 


5,99999, , 


OUMMY LOAO AOORESS 10960 


00005 


52100 


DORG 


MAPENT*NNE«20»l»20- 


4 10966 




52110 


OC 


5,446,, 


SORTF SUBROUTINE CORE SIZE 










10970 


00005 


52120 


DC 


4,0201,, 


SINF-COSF SUBROUTINE OIMNO 










10974 


00004 


52130 


OC 


1,0 


10975 


00001 


52140 


DC 


5,99999, , 


DUMMY LOAO ADDRESS 10980 


00005 


52150 


OORG 


MAPENT»NNE»20*2»20- 


4 10986 




52160 


DC 


5,488,, 


SINF-COSF SUBROUTINE CORE SIZE 








10990 


00005 


52170 


OC 


4,0250,, 


FBOFFS SUBPROGRAM OIMNO 










10994 


00004 


52180 


OC 


1,0 


10995 


00001 


52190 


DC 


5,99999, , 


OUMMY LOAD ADDRESS 11000 


00005 


52200 


DORG 


MAPENT*NNE«20*3»20-4 11006 




53010 


DC 


5,264,, 


FBOFFS SUBPROGRAM CORE SIZE 










11010 


00005 


53020 


DC 


4,0212,, 


LCN0N1 SUBPROGRAM DIMNO 










11014 


00004 


53030 


DC 


1,0 


11015 


00001 


53040 


DC 


5,99999,, 


DUMMY LOAD ACORESS 11020 


00005 


53050 


DORG 


MAPENTfNNE»20»4»20- 


4 11026 




53060 


DC 


5,292,, 


LCNONt SUBPROGRAM CORE SIZE 










11030 


00005 


53070 


OC 


4,0202, » 


ATANF SUBROUTINE CIMNO 








11034 


00004 


53080 


DC 


1*0 


11035 


00001 


53090 


OC 


*,99*9«»» , 


OUHHY LOAD APOAiSS 110*0 


00009 


53100 


DORG 


MAPENT*NNE*20*5*20- 


A 11046 




53110 


OC 


5, 7)8, , 


ATANF SUBROUTINE CORE SIZE 








UC50 


00005 


53120 


DC 


4,0223,, 


STACK SUBPROGRAM DIMNO 








11054 


00004 


53130 


DC 


1,0 


11055 


00001 


53140 


DC 


5,99999, , 


OUMMY LOAO ADDRESS 11060 


00005 


53150 


DORG 


MAPENT*NNE»20»6»20- 


4 11066 




53160 


OC 


5,140,, 


STACK SUBPROGRAM CORE SIZE 








11070 


00005 


53170 


OC 


4,0249,, 


LROFFS SUBPROGRAM OIMNO 








U074 


00004 


53180 


OC 


1,0 


11075 


0000 1 


53190 


DC 


5,99999,, 


OUMMY LOAO AOORESS 11080 


00005 


53200 


OORG 


MAPENT*NNE«20»7»20- 


4 11086 




54010 


OC 


5*226,, 


LROFFS SUBPROGRAM CORE SIZE 






11090 


00005 


54020 


OC 


4,0235,, 


START SUBPROGRAM OIMNO 








11094 


00004 


54030 


OC 


1.0 


11095 


00001 


54040 


OC 


5,99999, , 


OUMMY LOAO AOORESS 11 100 


00005 


54050 


DORG 


MAPENUNNE»20*8*20-4 11106 




54060 


OC 


5t244,, 


START SUBPROGRAM CORE SIZE 




11110 


00005 


54070 


OC 


4,0218,, 


FISH SUBPROGRAM OIMNO 11114 


00004 


540 SO 


OC 


1.0 


11115 


00001 


54090 


DC 


5,99999, , 


OUMMY LOAO AOORESS 11120 


00005 


54100 


DORG 


MAP£NT*NNE»20»9«20- 


6 11126 




54110 


DC 


5,204,, 


FISH SUBPROGRAM CORE SUE 








11130 


00005 


94120 


OC 


4,0205,* 


LINLIN SUBPROGRAM OIMNO 






11134 


00004 


54130 


OC 


1*0 


11135 


00001 


54140 


DC 


5,99999, , 


OUMMY LOAO AOORESS 11140 


00005 


54150 


OORG 


MAPENT+NNE»20* 10*20 


-* 1 1 146 




54160 


OC 


5,229, » 


LINLIN SUBPROGRAM CORE SIZE 








U 150 


00005 



PA(;F 2 5 



171 



5*170 

541S0 

54190 

$9010 

95020 

$$030 
$5040 
55050 
$50*0 

55070 

55080 
$5090 
55100 
$$U0 

$5120 
$$130 
$$140 
55150 
55160 

$$170 

$$180 
$$190 
$5200 
$4010 

$6020 

$4030 
$4040 
56050 
$4060 

$6070 

$6080 
$6090 
$6100 
$6110 

$6120 
S6130 
56140 
56150 
$6160 

$6170 
$6180 
$6190 
$6200 
97010 



DC 

0C 
OC 

OORG 
OC 

OC 

OC 
OC 

00*6 
OC 

OC 

OC 
DC 

DOR 6 
OC 

DC 
OC 
OC 

00* G 
OC 

OC 

OC 
DC 

00*6 
OC 

OC 

DC 
OC 

00* G 
OC 

OC 

OC 
OC 

00*6 
OC 

DC 
OC 
DC 

DO* 6 
OC 

DC 
DC 
DC 

D0A6 
OC 



11214 00004 

U21S 00001 

11220 0000$ 
11226 



4,0234,* OSCOUT SUBPROGRAM OIMNO 

11154 00004 

ltO 11155 00001 

5,99999,, DUMMY LOAO ADDRESS 11160 0000$ 

MAFEMT*NNE«20*1 1*20-4 1U66 
$t 360,t DSCOUT SUBPROGRAM CORE SIZE 

11170 0000$ 

4*0213,, MIN1F-MAX1F SUBPROGRAM OIMNO 

' 11174 00004 

ltO U175 00001 

5,99999,, DUMMY LOAD ADDRESS 11180 0000$ 

MAPENT*NNE»20*12»20-4 IU86 
S»92», MIN1P-MAXIF SUBPROGRAM CORE SUE 

11190 0000$ 

4,0234,, STPOT SUBPROGRAM OIMNO 

11194 00004 

ltO 1119$ 00001 

$,99999, , OUMMV LOAD ADDRESS 11200 0000$ 

MAPENT*NNE»20*13«20-4 H206 
5,150,, STPOT SUBPROGRAM CORE SUE 

U210 0000$ 

4,0224,, STOL SUBPROGRAM OIMNO 

ltO 

S, 99999,, DUMMY LOAD ACCRESS 

MAP£NTtNNE*20*i4«20-4 

$•92,, STOL SUBPROGRAM CORE SIZE 

11230 00005 

4,0222,, SPSIS SUBPROGRAM OIMNO 

11234 00004 

1*0 1123$ 00001 

5,99999,, DUMMY LOAD ADDRESS 11240 0000$ 

MAPEMT*NNE«20*1$»20»4 11246 
5,126,, SPSIS SUBPROGRAM CORE SUE 

11250 0000$ 

4,022$,, ERPROC SUBPROGRAM OIMNO 

11254 00004 

ltO U255 00001 

5,99999,, DUMMY LOAD AOORESS 11260 00005 

MAPENT*NNE»20*t*<»20~4 11244 
5*368,, ERPROC SUBPROGRAM CORE SUE 

11270 00005 

4,0230,, SINDRV SUBPROGRAM OIMNO 

11274 00004 

1,0 11275 00001 

5,99999,, DUMMY LOAO ADCRESS 11280 0000$ 

MAPENT*NNE*20*17»20~4 11286 
$•100,, SINDRV SUBPROGRAM CORE SUE 

11290 0000$ 

4,0203,* EXPF SUBROUTINE OIMNO 11294 00004 

1*0 11295 00001 

$,99999,, DUMMY LOAO AOORESS 11300 0000$ 

11306 

EXPf SUBROUTINE CORE SUE 

11310 0000$ 

4,0204, , LOGF SUBROUTINE OIMNO 11314 00004 

1*0 U31S 00001 

$,99999, , OUMMY LOAO AOORESS 11320 0000$ 

MAPENT*NNE»20m«20<»4 11324 
$•632, * LOGP SUBROUTINE CORE SUE 

113)0 00005 



MAPENT*NN£»20*lB«20-4 
5,768,, 



$7020 OC 4*0226,, PSPKG SUBPROGRAM OIMNO 

11334 00004 

$7030 OC 1*0 1133$ 00001 

$7040 OC 5,99999,, OUMMY LOAO ADDRESS 11340 00005 

57050 OORG MAPENT*NNE*20*20«20-4 11346 

$7060 OC S, 3070,* PSPKG SUBPROGRAM CORE SUE 

11350 00005 

57070 DC 4,0251,, DTDS SUBPROGRAM OIMNO 11354 00004 

57080 DC 1,0 11355 00001 

57090 DC 5,99999,, DUMMY LOAO AOORESS 11360 00005 

$7100 DORG MAPENT*NNE«20*21*20~4 11366 

$7110 OC 5,12*,, OTOS SUBPROGRAM CORE SUE 

11370 00005 

57120 OC 4,02$2, « STRACT SUBPROGRAM OIMNO 

11374 00004 

57130 DC 1,0 11375 00001 

$7140 DC $,99999,* OUMMY LOAO AOORESS 11380 0000$ 

$71 SO OORG MAPENT*NNE»20*22»20-4 11386 

$7160 OC 5*318, * STRACT SUBPROGRAM CORE SUE 

11390 00005 

57170 OC 4,0208, , OYDX SUBPROGRAM OIMNO 11394 00004 

57180 DC 1,0 U395 00001 

57190 OC 5,99999, , OUMMY LOAO AOORESS 11400 00005 

57200 OORG MAPENT*NNE»20*23«20-4 11406 

$8010 OC 5,290,, OYOX SUBPROGRAM CORE SUE 

11410 0000$ 

$8020 OC 4,0229,, SINORP SUBPROGRAM OIMNO 

11414 00004 

$8030 OC 1*0 1141$ 00001 

$8040 OC 5,99999,, OUMMY LOAO AOORESS 11420 0000$ 

56050 OORG MAPENT*NNE»20*24«2(H»4 11426 

$8060 DC 5,168,, SINORP SUBPROGRAM CORE SUE 

11430 0000$ 

$8070 OC 4,0262,. ELIMF SUBPROGRAM OIMNO 

11434 00004 

$8060 OC 1*0 1143$ 00001 

$8090 OC $,99999, * OUMMV LOAD AOORESS 11440 0000$ 

$8100 OORG MAPENT4NN€*20429«20-4 11446 

98110 OC 5,292,, ELIMP SUBPROGRAM CORE SUE 

11450 00005 

58120 DC 4*0263* • AEOUMP SUBPROGRAM OIMNO 

11454 00004 

98130 OC 1*0 11455 00001 

98140 OC 5*99999. * DUMMY LOAO AOORESS 11440 00005 

98190 00R6 MAPENT*NNE«2042*«20-4 11466 

981*0 OC 5*474, # AEDUMP SUBPROGRAM CORE SUE 

11470 0000$ 

$8170 DC 6.0271, • LCNON? SUBPROGRAM OIMNO 

11474 00004 

$8180 OC 1*0 U*75 00001 

$8190 OC 9*99999, , OUMMY LOAD AOORESS 11480 0000$ 

98200 D0R6 NAPENT*NN£«20427*20-4 11486 

99010 OC 9,282, f LCN0N2 SUBPROGRAM CORf SUE 

U490 0000$ 

59020 DC 4,0,, DUMMY OIMNO 11494 00004 

S90S0 OC 1*0 U499 00001 

$§040 OC 5,99999,* OUMMV LOAO AOORESS 11500 0000$ 

ffOSQ OORG KAPCMT»MMe#204li8«20*2e«4 11*04 

9+0*0 OC 9*0,, OUMMV CORf SUE 11910 00009 

$9070* 



PAGE 2$ 



172 





OS 


2 * HUN I IR *2 I 










0858 3 


00002 


KQnon pn into 




t SCAN+6 










06616 


00000 
















00434 


00005 






5* 21 36 
* 










02 1 36 


00005 




OS 


4,0201 










00201 


00004 


koi in t Cud 




ft COICCaI 1 










09255 


00005 




DS 


C _ J UUiBi % * 

9i 1 NW<rt }5 










09943 


00005 


ca i cn ucrnu 


!%* 


#222 










00222 


00000 


cat aa MMCfnu 


DS 


#223 










' 00223 


00000 


COI TfA CDDhfll 


OS 


t02250 










02250 


00000 


JtIOU cnnuui 


OS 












02416 


00000 


/tItu Annul 




* 1 l*ULU*U— c**o 










10690 


00005 


*aa?a 




1 










11511 


00001 


600 10* 


















60020* 


















600 90 


HEA0 


A 










00000 




60040* 




IBM 1620-1311 AO- 


APT DISOFI 


LE INPUT SUBROUTINE 


60050* 
















RCS 


60060* 




LINKAGE - BTM DSCIN,! 


,10 










60070 


0C 


2.0, » 


DUMMY ARGUMENT 




11513 


00002 


60080* 


















AAA OA* 

600 tO* 




SUBPROGRAM 


ENTRY 












ini An ncrtki 




EXlT-23,3t. 


SET 


43 OP 


CO0E 


(60) 


11514 


15 11623 00003 


601 10 


Tn»t 


NSECT-UIOO,, t 


SET 


TERMINAL GROUP 


MARK ( 1-SECT0R READ) 
















11526 


15 02552 00000 






• 










11537 


00001 


601 30 


tfm 


DISCR+13,NSECT-l,# 


SET 


CORE 


ADDRESS I I 


-SECTOR RE AD ) 
















1153B 


16 11793 -2452 


60140 


TOM 


DiSCR*8#l#, 


SET 


SECTOR COUNT (I 


-SECTOR REA0) 
















11550 


15 11788 00001 


60150 REA0 


G6f 


INPUT, 


READ N SECTORS 


FROM 


SCRATCH 


DISC AREA 
















11562 


10 00565 J1585 



11574 49 00566 J1771 



60160 


A 


DISCR*5,DISCR*8 


, • READY SECTOR ADDRESS FOR NEXT READ 

11586 21 11785 


11788 


60170 


A - 


SECNTR»DISCR*8#. CALCULATE NO* SECTORS READ 










11598 21 11658 


1 1788 


60180 


BV 


CYL0VF,,, 


BRANCH IF 200 SECTORS READ 

11610 46 U740 


01400 


60190* 










60200 


NOP 


READN, NSECT, # 


NOP OR BD (VARIABLE OP CODE ) 

11622 41 11648 


02453 


61010* 










61020 


TDM 


SETVGM*6,,6, 


CLEAR PREVIOUS TERMINAL GROUP MARK 

11634 15 1170K 


00000 


61030 EXIT 


BB2 


t » t 


EXIT 11646 42 00000 


00000 


61040* 










61050 READN 


TOM 


EXIT-23, I,* 


SET 41 OP COOE (NOP) 11648 15 11623 


00001 


61060 SECNTR 


0C 


3#800#*-l, 


SECTOR COUNTER 11658 00003 




61070* 










61080 


TOM 


N$eCT-l+lOO, , , 


CLEAR PREVIOUS TERMINAL GROUP MARK 

11660 15 02552 


00000 


61090 


TFM 


SETVGM*6 ,NSECT- 


1*100 11672 16 11702 


-2552 


61100 


A 


SETVGM*4, NSECT 


11684 21 11700 


02453 


61110 SETVGM 


TOM 


1 1 1 


SET TERMINAL GROUP MARK (N-SECTOR READ ) 








11696 15 00000 


00000 


61120 


OGM 


• 


11707 00001 




61130 


TFM 


DISCR*13,NSECT- 


1*100»# SET CORE AOORESS (N-SECTOR READ) 
11708 16 11793 


-2552 


61140 


TO 


DISCR*8#NSECT#. 


SET SECTOR COUNT (N-SECTOR READ) 





61150 


B7 


61160* 




61170 CYLOVF 


TDM 


61180 


AM 


61190 


67 


61200* 




62010 INPUT 


DDW 


62020 OISCR 


ODA 


62030 


DC 


62040* 




62050 NSECT 


OS 


62060* 




62070* 




62080 LOOMEM 


TDM 


62090 


AM 


62100 


TR 


62110 


BNR 


62120* 




62130 


AM 


62140 ALFRM 


DC 


62150* 




62160 


CM 


62170 


BV 


62180* 




62190 HOOT 


BP 


62200* 




63010 


TFM 


63020 


TF 


630 30 OPTLO 


BTM 


63040 


AM 


63050 


CM 


63060 


8NP 


63070* 




63080 


CM 


63090 


BNE 


63100* 




63110 


TF 


63120 


SM 


63130 


TFM 


63140 


TF 


63150 


CALL 



READ 

SECNTR-2,8, 11, 
9RCYL0 f I • 10t 
EXIT-24 
#DISCR###A 

,0,2000,0,0 

It • 

,2453 



ILO, 20000 
SLOt ALFRM-l«6 
L00MEM*12 

*LO,1.10, 

2#»»*-2 

$10-3,20,10 
5 MOD # * * 



11720 25 11788 02453 
11732 49 11562 00000 

RESTORE SECTOR COUNTER 

11740 15 11656 00000 
SET REPOSITICN AOORESS TO NEXT CYLINOER 

11752 11 00513 000-1 
11764 49 11622 00000 

11771 00002 20 
11773 00005 J1780 
11778 00001 • 
11780 00006 0-2000 
11786 00003 -00 
11789 00005 -0000 
U794 00001 

02453 00000 



CALCULATE MEMORY CAPACITY 

11796 15 00000 00000 
11808 11 09875 K0000 
11820 31 0987N 11852 
11832 45 11808 C0O00 

INtT I ALI2E LO INDICATOR 

11844 11 09875 000-1 
11853 00002 

11856 14 09872 000K0 
BRANCH IF MEMORY CAPACITY IS 100K 

11868 46 12252 01400 

BRANCH IF MEMORY CAPACITY EXCEEDS 20K 

11860 46 12232 01100 



OPTLD—l #HAPENT* $NN6*20-16 

0PTL0+10 
MONITR,,, 

QPTLD~2#2#10 



11892 16 11915 J0934 

11904 26 11926 00000 

LOAO COMMON SUBPROGRAMS VIA MONITR 

11916 17 08562 -0000 

11928 11 11914 000-2 

OPTLO- If MAPENT* $NNE«20~1*20* 16*20-1* 11940 14 11915 J1234 

OPTLD-12 11952 47 11904 OllOO 

OPTLO* 35 t MAPENT* $NNE*20-l •20*28*20- 16 11964 14 11951 J14T4 
RSETHI , t » BRANCH IF MEMORY CAPACITY IS 20K 

11976 47 12164 01200 

»HI» *L0 11988 26 00434 09875 

SHI, 142*8 12000 12 00434 0-142 

MAPENT* *NNE *20** 1*20*1 5 #02 101 » Tilt STORE MONITR 01M NO. 

12012 16 10915 -210J 

MAPENT* »NNE*20-l«20~10t $HI»» STORE 01STF LOAD AOORESS 

12024 26 10920 00434 

LOAOtOISTPt* LOAO OISTP SUBPROGRAM BY Hi INDICATOR 

12036 10 00565 J2055 
12048 49 00716 00000 
12055 00007 120-210 
12062 00001 * 



173 



61160 


TF 


NAPENT* INNE*20-l*20-5» tENTRY, » STORE 


OISTF ENTRY AOORESS 








12064 


26 


10925 


02136 


631 70 


TF 


IHI , MAPENT* »NNE*20-l»2Q-lG 


12076 


26 


00434 


10920 


6)1 60 


$M 


IMI,160,8 


12088 


12 


00434 


0-160 


61190 


TFM 


MAPENT* SNNE • 20-2*20* 1 5 • 02 1 1 1 1 7 1 1 . S TORE 


MONITR OIM 


NO. 










12100 


16 


10895 


-21U 


61200 


TF 


MAPENT* *NNE*20-2*20-lO» SHI,, STORE 


UNITY LOAO 


ADDRESS 








12112 


26 


10900 


00434 


6*0 10 


Call 


LOAO, UNI TV,, LOAO UN I TV SUBPROGRAM BY HI 


INDICATOR 








12124 


10 


00565 


J2141 








12136 


49 


00716 


00000 








12143 


00007 L20-2U 








12150 00001 • 




64020 


■mm 

TF 


HAPEWT* *NNE» 20-2*20-5 , SENTRY* • STORE 


UNITY ENTRY AOORESS 








12152 


26 


10905 


02136 


64030 R SETHI 


TFM 


SHI »0HSCR*l6tf RESET HI INDICATOR 


12164 


16 


00434 


J 1 796 


64040 


RCTY 




12176 


34 


00000 


00102 


64050 


RCTY 




12188 


34 


00000 


00102 


64060 


WATY 


MESS 


12200 


39 


12273 


00100 


640 70 


RCTY 




12212 


34 


00000 


00102 


64080 


a 


ARELEM 


12224 


49 


06206 


00000 


64090 


OORC 


•-3 


12232 








64100* 














64110 2M00 


TFM 


OP TLD+35 , MAPENT* $NNE *20-l *20*28*20« 16 


12232 


16 


11951 


J1474 


64120 


B 


0PTL0-24 


12244 


49 


11892 


00000 


64110 


OORG 


*-3 


12252 








64140* 














64150 5 MOO 


TFM 


SLG» 99998 


12252 


16 


09B75 


R9998 


64160 


8 


2M00 


12264 


49 


12232 


00000 


64170 


OORG 


•-4 


12271 








64180* 














64190 MESS 


OAC 


25, A R E L E M LOADED' 


12271 


00050 




64200 


OENO 


LOOMEM 


11796 









PAGE 2B 



SYMBOL TABLE 



RETURN 


02411 


NORMLN 


02416 


MONITR 


02406 


MIN1.0 


06024 


LNSTRT 


02416 


ERPROC 


02416 


EPSLON 


06004 


OIMTAB 


12461 


DELTAS 


03338 


DEFTiP 


12026 


BOFFDS 


03338 


ADVEPS 


12170 


AIMUV 


11868 


ARGT 


06515 


DOS 


03372 


CSOIM 


12374 


DSA1 


11939 


0SA2 


11949 


0SA3 


U969 


DSA* 


11979 


0SA5 


11989 


0SA6 


11999 


E 


05954 


ER217 


12434 


FISH 


02416 


FLW 


02488 


FLWST 


03362 


INTOF 


06157 


KTEMP 


07703 


LINOS 


11796 


MOS 


03362 


REVE 


11892 


SCSRT 


02416 


SENSE 


02416 


SORTF 


02616 


TEMPI 


03318 


TLRAO 


05984 


TL2 


06147 


TOLI 


05994 


TOLO 


06014 


UNITY 


02416 


UNVEC 


11844 


UX 


06125 


UY 


06135 


XOFFO 


03318 


XO 


05892 


XI 


03130 


YOFFO 


03328 


vo 


05902 


VI 


03348 


1.0 


06075 


















01010* 




IBM 


1620-1311 


AO-APT SUBPROGRAM FOR 


EVALUATING 





01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01080* 

01090 

01100* 

OHIO LINOS 

01120 

01130 
01140 

01150 UNVEC 
0U60 

01170 AIMUV 

01180 

01190* 
01200 REVE 

02010 

02020* 
02030 

02040 

02050 
02060* 
02070 0SA1 

020SO 

02090 

OHIO 

02120 

02110 



THE CUTTER PATH ON LINE ORIVE SURFACES 

•NAME LINOS... NON-ERASABLE ARELEM SUBPROGRAM 
•10 NUMBER 0218+DELDIM 
•STORE CORE IMAGE 
LINKAGE - B LINOS 



OORG 11796 



BTM 

BT 

TFM 
BT 

BT 

BT 

BTM 



11796 

SUBPROGRAM ENTRY 

CALL FISH SUBPROGRAM VIA MONITR 

11796 17 02400 -2180 
CALCULATE OS-CS OFFSET INDICATORS 

11808 27 02410 06147 
SET OS TYPE INDICATOR 11820 16 07703 000-1 
CALL UNI TV SUBPROGRAM VIA MONITR 

11832 27 02400 11944 
CALCULATE UNIT VECTOR TANGENT TO OS 

11844 27 02410 11964 
CALL SENSE SUBPROGRAM VIA MONITR 

11856 27 02400 11974 
AOJUST SENSE OF UNIT TANGENT VECTOR 

11868 17 02410 000-1 
BRANCH IF UX IS POSITIVE 

11880 44 11904 04123 



MONITR, 02180, 67, 
FISH«TL2»6t 

KTEMP, 1,10. 
MONITR, DSAl»5, 6, 

UNITY, DSA2*15,6, 

MONITR, 0SA1*S, 6, 

SENSE, 1,610* 

REVE*l2*UX-2t» 



FMUL E.MtNl.O,, 
BD OEFTIP, ARGT,, 

BT MONITR ,0SA4*St6t 

t LN$TRT»#6» 

OOfcG *-4 

DSA UNVEC*12 
DSC 5*02111 
OORG 0SAl»S*S*4*6 

NOP UY,0 
DO*G *-2l 

MOP FL«$T»0*!OtUX 

00*6 *-t4 



E**E f IMPENDING MOTION RIGHT-TO-LEFT) 

11892 03 05954 06024 

BRANCH IF STARTUP TEST REDUNDANT 

11904 43 12026 06519 

CALL LNSTRT SUBPROGRAM VIA MONITR 

11916 27 02400 11984 

VERIFY CUTTER STARTUP POSITION 

11928 49 02410 00000 
11935 

11939 00005 J1834 

11940 00005 
11958 

11958 41 06115 00000 
11948 

11948 41 01362 06123 
11941 



17' 



021 40 


0SA2 


OSA 


1.0 






11949 


00005 -6075 


02 190 




OORG 








1 1965 






02160 


0SA3 


DSA 


AIMUV* 12 






11969 


00005 J1880 


021 70 




DSC 


5 v 0243l 






11970 


00005 




021 80 


0SA4 


DSA 


OEFTI P 






11979 


00005 J2026 


021 90 




OSC 


5.02191 






U9B0 


00005 




02200 


DSA5 


DSA 


ER217-12 






11969 


00005 J2422 


03010 




DSC 


5i 1 






11990 


00005 




03020 




OORC 


DSA5*5*5*6-6 






12018 






03030 




NOP 


YOFFO tO 






12018 


41 03328 


ooooo 


03040 




DORG 


•-21 






12008 






03090 




NOP 


BOFFOStXOFFO 






12008 


41 03338 


03318 


03060 




OORG 


•-21 






11998 




03070 




NOP 


YOtMOS 






11998 


41 05902 


03362 


03080 




DORG 


•-14 






11995 






03090 


0SA6 


DSA 


XO 






11999 


00005 -5892 


03100 




OORG 


•♦5»6-4 






12025 






03110* 
















03120 


OEFTIP 


TFL 


DELTAR»MDS 






12026 


06 03338 


03362 


03130 




FMUL 


DELTAS, HOS,, 




M0S**2 


12038 


03 03338 


03362 


03140 




FADO 


0ELTA8»1.0»» 




1.0+MDS**2 


12050 


01 03338 


06075 


03150 




BTM 


MONITR, 02000t 


67. 


CALL SQRTF SUBROUTINE 


VIA MONITR 
















12062 


17 02400 


-2000 


03160 




BTM 


SORTF, D6LTAB, 


67, 


SQRTFtl.0*M0S*»2» 


12074 


17 02410 


-3338 


03170 




FMUL 


DELTABf E , , 




E*SQRTFIl.0*M0S**2> 


12086 


03 03338 


05954 


03180 




FMUL 


DELTAB ,TLRAD» t 


E*TLRA0*SQRTFI1.0*M0S**2) 


















12098 


03 03338 


05984 


03190 




FAOO 


BOFFOSt BDSt • 




B0S*£*TLRA0*SQRTF(l.O*MDS»*2) 
















12110 


01 03338 


03372 


03200 




BTM 


MONITR, 02140, 


67. 


CALL NORMLN SUBPROGRAM VIA MONITR 
















12122 


17 02400 


-2140 


04010 




BT 


NORMLN, DSA6*25, 6, 


PROJECT CUTTER CENTER 


TO OFFSET LINE 
















12134 


27 02410 


12024 


04020 




TFL 


XO,XOFFO 






12146 


06 05892 


03318 


04030 




TFL 


YO, YOFFO 






12158 


06 05902 


03328 


04040* 




ADVANCE CUTTER STARTUP POSITION A 1 


DISTANCE EQUAL 




04050* 




TO 20. 


0*EPSLQN IN THE DIRECTION OF 


UNIT VECTOR 




04060 


AOVEPS 


TFL 


TEMPI , TOLO 






12170 


06 03318 


06014 


04070 




FAOD 


TEMPI , TOLI , » 




20.0*EPSL0N 


12182 


01 03318 


05994 


04080 




FMUL 


TEMPI, UX* * 




20.0»UX*EPSLCN 


12194 


03 03318 


06125 


04090 




FAOD 


XO, TEMPI,, 




XO«X0*20.O*UX*EPSL0N 


12206 


01 05892 


03318 


04100 




TFL 


TEMPI , TOLO 






12218 


06 03318 


06014 


04U0 




FAOD 


TEMPI, TOLL* 




20.0»EPSL0N 


12230 


01 03318 


05994 


04120 




FMUL 


TEMPI, UY,, 




20.0*UY*EPSL0N 


12242 


03 03318 


06135 


04130 




FADD 


YO, TEMPI,* 




Y0«Y0*20.0*UY*EPSL0N 


12254 


01 05902 


03318 


04140 




TFL 


XI *UX 






12266 


06 03338 


06 125 


04150 




TFL 


Yi ,UY 






12278 


06 03348 


06 1 35 


04160 




AM 


XI, 2, 10, 




X1-100.0*UX 


12290 


11 03338 


000-2 


04170 




AM 


Y1,2,10, 




Yl»lOO.O*UY 


12302 


11 03348 


000-2 


04160 




FADD 


XI, XO,, 




X1-X0*100.0*UX 


12314 


01 03338 


05892 


04190 




FADD 


Vl»YO#, 




Yl«YO*l00.0*UY 


12326 


01 03348 


05902 


04200 




TFM 


CSDIM+ll .DIMTAB-4 




12338 


16 12385 


J2457 


05010 




MM 


INT0F»4,10, 




4«INT0F 


12350 


13 06157 


000-4 


05020 




A 


CSDIM>11,99 






12362 


21 12385 


00099 


05030 


CS01H 


TF 


DSA5*4 t .» 




SET CS DIM NO. 


12374 


26 11993 


OOOOO 


05040 




CF 


DSA5*l 






12386 


33 11990 


OOOOO 


05050 




BT 


MONITR, DSA5+5 


'•6* 


CALL CS SUBPROGRAM VIA MONITR 
















12398 


27 02400 


11994 


05060 




BTM 


SCSRT f «*13*67, 


EVALUATE CUT VECTOR AT CS 


















12410 


17 02410 


J2423 


05070 




NOP 


RETURN, ,6, 




NOP OR B (VARIABLE OP 


CODE) 


















12422 


41 0241J 


OOOOO 


05080 


ER21T 


BTM 


MONITR, 02250, 


67* 


CALL ERPROC SUBPROGRAM VIA MONITR 
















12434 


17 02400 


-2250 


05090 




BTM 


ERPROC, 21700, 


67, 


WRITE ERROR MESSAGE.. 


• SEARCH FOR END 














12446 


17 02410 


K1700 


05100 


OIMTAB 


DC 


4,0244 






12461 


00004 




05110 




DC 


4,0245 






12465 


00004 




05120 




OC 


4,0246 






12469 


00004 




05130 




DC 


4,0247 






12473 


00004 




05140* 
















05150 


MONITR 


OS 


,2406 






02406 


00000 




05160 


FISH 


OS 


,2416 






02416 


00000 




05170 


TL2 


DS 


,6147 






06147 


00000 




05180 


UNITV 


DS 


,2416 






02416 


00000 




05190 


SENSE 


DS 


,2416 






02416 


00000 




05200 


ux 


OS 


,6125 






06125 


00000 




06010 


E 


OS 


,5954 






05954 


ooooo 




06020 


MINl.O 


DS 


,6024 






06024 


00000 




06030 


LNSTRT 


DS 


• 2416 






02416 


ooooo 




06040 


FtWST 


DS 


.3362 






03362 


ooooo 




06050 


UY 


DS 


• 6135 






06135 


ooooo 




06060 


FLW 


DS 


,2488 






02488 


ooooo 




06070 


1.0 


DS 


,6075 






06075 


ooooo 




06080 


XI 


DS 


,FLW*85*10 






03338 


ooooo 




06090 


Yl 


OS 


,XU10 






03348 


ooooo 




06100 


XO 


DS 


,5892 






05892 


ooooo 




06110 


YO 


OS 


• 5902 






05902 


ooooo 




06120 


INTOF 


DS 


• 6157 






06157 


ooooo 




06130 


SCSRT 


DS 


• 2416 






02416 


ooooo 




06140 


RETURN 


DS 


,2411 






02411 


ooooo 




06150 


ERPROC 


OS 


• 2416 






02416 


ooooo 




06160 


KTEMP 


OS 


• 7703 






077O3 


ooooo 




06170 


MOS 


OS 


*FLWST*0«10 






03362 


ooooo 




06180 


EPSLON 


OS 


,6004 






06004 


ooooo 




06190 


DELTAS 


OS 


10, XI 






03338 


00010 




06200 


30FF0S 


DS 


•DELTAS 






03338 


ooooo 




07010 


XQFPO 


DS 


•Xl-20 






03318 


ooooo 




07020 


YOFFO 


OS 


*X0FF0*10 






03328 


ooooo 




07030 


SQRTF 


DS 


• 2416 






02416 


ooooo 




07040 


NORMLN 


DS 


• 2416 






02416 


ooooo 




07050 


aos 


DS 


• FLWST*UtO 






03372 


ooooo 




07060 


TLRAO 


DS 


• 5984 






05984 


ooooo 




07070 


TEMPI 


OS 


•XOFFO 






03318 


ooooo 




07080 


ARCT 


DS 


• 6515 






06515 


ooooo 




07090 


TOLO 


OS 


,6014 






06014 


ooooo 




07100 


TOL! 


OS 


,5994 






05994 


ooooo 




07110 




OENO 


LINOS 






U796 







PAGE I 











SYMBOL 


TABLE 










VERIFY 


12060 


RETURN 


0241 1 




12308 


MCN I TR 




MINI « 




ERPR0C 


02416 


EPSLON 


06004 


01 HTA8 


12916 




024 16 


ADVEPS 


1 1* »t 


AINUV 


11964 


ARGT 


06515 


ATANf 


024 16 


CIROS 


1 1796 


CONT 




COSF 


02421 


CROSS 


03338 


CSOIM 


12548 






OSA? 


120B i 


DSA3 


12101 


0SA4 


12111 


DSA5 


12121 


0SA6 


12137 


DSA7 




e 


05954 


ER202 


12148 


ER207 


12930 


ER2 15 


12950 


F ISH 


024 16 


FlW 


02488 


FLWST 


03362 


G 


05974 


GENCV 


12668 






IN 


12276 


INTOF 


0615? 


K 


03372 


KTEMP 


07703 


L/2 


033 18 


LCALC 


12216 


NCNT 


03288 


NMAX 


03298 


PHI 


03318 


PI 




R 


03382 


REVEG 


12184 


RMITI 


03338 


RPLTO 


03308 


SCSRT 


02416 


SENSE 


02416 


SIGMA 


03328 


SINF 


02416 


SQRTF 


02416 


TEMP 


03348 


THETA 


03338 


TIRAO 


05984 


U2 


06147 


TOU 


05994 


TCLO 


06014 


UNI TV 


02416 


UNVEC 


11892 


ux 


06125 


OY 


06135 


HERN 


12172 


X 


05820 


XCOMP 


03308 


xo 


05892 


XI 


03338 


Y 


05830 


VCOMP 


03338 


YO 


05902 


Yl 


03348 


1.0 


06075 


2.0 


06115 



01010* 




IBM 1620-1311 AO- 


APT SUBPROGRAM FOR EVALUATING 




01020* 




THE CUTTER PATH 


1 ON CIRCLE ORIVE SURFACES 




01030* 






RCS 


01040* 




•NAME CIROS 


... NON-ERASABLE ARELEN SUBPROGRAM 




01050* 




•10 NUMBER 


0239+0EL01M 




01060* 




STORE CORE 


IMAGE 




01070* 




LINKAGE ■ - 8 CIROS 




01080* 










01090 


OORG 


11796 


11796 




01100* 




SUBPROGRAM 


ENTRY 




OHIO CIROS 


BTM 


MONITR, 02180 t 67. 


CALL FISH SUBPROGRAM VIA MONITR 










11796 17 02400 


-2180 


01120 


8T 


FISH 9 TL2t6f 


CALCULATE DS-CS OFFSET INDICATORS 










11808 27 02410 


06147 


01130 


TFH 


KTEMP, 5, 10, 


SET OS TYPE INDICATOR 11820 16 07703 


000-5 


01140 


TFL 


YCOMP.H 


11832 06 03338 


03362 


01150 


FSUB 


YCOMP.XO,, 


H-XO 11844 02 03338 


05892 


01160 


TFL 


XCOMP t YO 


11856 06 03308 


05902 


01170 


FSUB 


XCOMP, K,, 


YO-K 11868 02 03308 


03372 


01180 


8T 


MONITR, DSAl*5.6, 


CALL UNITY SUBPROGRAM VIA MONITR 










11880 27 02400 


12076 


01190 UNVEC 


BT 


UNITV,0SA2+15,6, 


CALCULATE UNIT VECTOR TANGENT TO OS 










11892 27 02410 


12096 


01200 


BY 


ER202tt. 


BRANCH IF CUTTER AND CIRCLE CONCENTRIC 








11904 46 12148 


01400 


02010* 










02020 


FMUL 


YC0MP,MIN1.0,» 


XO-M 11916 03 03338 


06024 


02030 


BTM 


MONITR, 02020, 67 t 


CALL ATANF SUBROUTINE VIA MONITR 










11928 17 02400 


-2020 


02040 


BT 


ATANF,DSA**10,6, 


CALCULATE ARGUMENT OF RAOIAL VECTOR 










11940 27 02410 


12131 


02050 


BT 


MONITR,DSA3*5»6» 


CALL SENSE SUBPROGRAM VIA MONITR 










11952 27 02400 


12106 


02060 AIHUV 


BTM 


SENSE, 1,610, 


ADJUST SENSE OF UNIT VECTOR 










11964 17 02410 


000-1 


02070 


TFL 


G,l.O,, 


ASSUME CM CUTTER MOTION ABOUT OS CIRCLE 








11976 06 05974 


06075 


02080 


FMUL 


YC0MP,UY» « 


UY*(XO-H) 11988 03 03338 


06135 


02090 


FMUL 


XCOMP, UX,, 


UX»(YO-K> 12000 03 03308 


06125 


02100 


FSUB 


CROSS, XCOMP* t 


UYMXO-M)*UX»(K-Y0> 12012 02 03338 


03308 



02110 


BP 


REVEG, , t 


02120* 






02130 


BO 


LCALC, ARGT, , 


02140* 






02150 


BT 


MONITR, DSA4+' 


02160 VERIFY 


B 


CRSTRT, ,6, 


02170 


OORG 


•-4 


02180* 






02190 OSAI 


OSA 


UNVE012 


02200 


DSC 


5,02111 


03010 


DORG 


DSAl+5*5*4-6 


03020 


NOP 


UY,0 


03030 


OORG 


•-21 


03040 


NOP 


YCOMP,UX 


030 50 


OQRG 


♦-14 


03060 0SA2 


DSA 


XCOMP 


03070 


OORG 


•♦5*4-4 


03080 0SA3 


OSA 


AIMUVM2 


03090 


OSC 


5,02431 


03100 0SA4 


OSA 


LCALC 


03110 


OSC 


5,02201 


03120 


OORG 0SA4*S*5*3-11 


03130 


NOP 


XCOMP, SIGMA 


03140 


OORG 


•-14 


03150 0SA5 


DSA 


YCOMP 


03160 


DORG 


•♦S*3-4^f*3-l 


03170 


NOP 


L/2. PHI 


03180 


DORG 


•-14 


03190 0SA6 


DSA 


RMITI 


03200 


OORG •♦5*3*4 


04010* 






04020 ER202 


TFM 


WERM*9,202,9 


04030 


BTM 


MONITR, 02250, 


04040 WERM 


BTM 


ERPR0C,1,67, 


04050 REVEG 


FMUL 


E,MlNWO,t 


04060 


SF 


G-2t,# 


04070 


B 


VERIFY-24 


04080 


OORG *-3 


04090* 






04100 LCALC 


TFL 


RPLTO, TLRAD 


04110 


FMUL 


RPLTO»Eo 


04120 


FADO RPLTO»Rt t 


04110 


TFL 


RMITI fRPLTO 


04140 


BMP 


ON/OUT, E- 2.. 


04190* 






04160 IN 


FADO RPLTO, TOLI *t 


04170 


FSUB RMITI »TOLO* t 


041 CO 


B 


ON/OUT+24 


04190 


OORG **1 


04200* 






05010 ON/OUT 


PAOO 


RPLTO, TOLO,, 


05020 


FSUB 


RMITI ,TOLI.. 



BRANCH IF CROSS PRODUCT IS POSITIVE 

12024 46 12184 01100 

BRANCH IF STARTUP TEST REDUNDANT 

12036 43 12216 06515 

CALL CRSTRT SUBPROGRAM VIA MONITR 

12048 27 02400 12116 

VERIFY CUTTER STARTUP POSITION 

12060 49 02410 00000 
12067 



12071 
12072 
12090 
12090 
12080 
12080 
12077 
12081 
12097 
12101 
12102 
12111 
12112 
12120 
12120 
12117 
12121 
12136 
12136 
12133 
12137 
12148 



00005 J 1904 
00005 

41 06133 00000 

41 03338 06125 

00005 -3308 

00005 J1976 
00005 

00005 .12216 
00005 

41 03308 03328 
00005 -3338 
41 03318 03318 
00005 -3338 



12148 16 12161 00*02 
CALL ERPROC SUBPROGRAM VIA MONITR 

12160 17 02400 -2250 
WRITE ERROR MESSAGE* SEARCH FOR END 

12172 17 02410 -0001 
E»-E IIMPEMOING MOTION CCH) 

12184 03 05954 06024 
SET CCH INDICATOR 12196 32 05972 00000 

12208 49 12036 00000 

12216 

12216 06 03308 05984 
12226 03 03308 05954 
12240 01 03308 03382 
12252 06 03336 03306 
BRANCH IF CUTTER NOT INSIDE 0$ CIRCLE 

12264 44 12306 05952 



E*TLRAD 
R^E*TLRAO 



R*E*TLRADUOLt 

R*E»TL»AD-TOLG 



R*i*TLRA0^TOL0 

R*E*TLRA0—T0LI 



12276 01 03308 05994 
12286 02 03336 06014 
12300 49 12332 00000 
12306 

12308 01 03308 06014 
12320 02 03336 03994 



170 



05030 
05040 
05050 
05060 
05070 

05080 

05090* 

05100 

05110 
05120 

05130 

05140 
05150 
05160 
05170 
051S0 
05190 
05200 
06010 

06020 CS01M 
06030 
06040* 
06050* 

06060 ADVEPS 

06070 

06080 

06090 

06100 

06110 

06120 

06130 

06140 G6NCV 

06150 

06160 

06170 

06180 

06190 

06200 
07010 



TFl L/2.RPLT0 
FMUL L/2,L/2., 
TFL TEMP.RMITt 
FMUL TEMP, TEMP,, 
SUB L/2.TEMP,, 

8NP ER207,., 



BTM MONITR, 02000, 67, 



8TM 
BTM 



SQRTF,L/2,67 
M0N1TR, 02020, 67, 



BT ATANF,DSA6*10,6, 



TFL 

FOIV 

FAOO 

TFL 

MF 

TFM 

MM 

A 

TF 

CF 



TFL 

FAOO 

FMUL 

FADO 

TFL 

FAOO 

FMUL 

FAOO 

TFL 

FMUL 

TFL 

FSUB 

TFL 

BTM 

BTM 
FMUL 



NMAX,Pt 
NMAX,PHI 
NMAX.NMAX,, 
NCNT.1.0 
PHI-2,G-2,, 
CSDIM*ll,DIMTAB-20 
INT0F,4, 10, 
CSDIM*ll,99 
0SA7*4, tt 
DSA7*l 



12332 06 03318 03308 
1R«E*TLRA0*T0L0)»*2 12344 03 03318 03318 

12356 06 03348 03338 
(R*E*TLRAO-TOLI »**2 12368 03 03348 03348 
(R»E*TLRA0*T0L0J**2-(RfE*TLRA0-T0Ln**2 

12380 02 03318 03348 
BRANCH IF RESULT NOT POSITIVE 

,12392 47 12930 01100 

CALL SQRTF SUBROUTINE VIA MONITR 

12404 17 02400 -2000 
12416 17 02410 -3318 
CALL ATANF SUBROUTINE VIA MONITR 

12428 17 02400 -2020 
CALCULATE ANGLE SUBTENDEC BY HALF-CUT 

12440 27 02410 12147 
12452 06 03298 12978 
12464 09 03298 03318 
12476 01 03298 03298 
12488 06 03288 06075 
12500 71 03316 05972 
12512 16 12559 J2896 
12524 13 06157 000-4 
12536 21 12559 00099 
12548 26 12911 00000 
12560 33 12908 00000 



NMAX«2.0*PI/PMI 
PHI>SIGNF(PHI,G> 



SET CS OIM NO. 



ADVANCE CUTTER STARTUP POSITION A OISTANCE EQUAL 
TO 20.0*EPSLON IN THE DIRECTION OF UNIT VECTOR 



07030 
07040 

07050 

07060 

07070 

07080 

07090 CONT 



BTM 
FMUL 



TEMP , TOLO 
TEMP , TOL I t • 
TEMP,UX, , 
XO.TEMP,, 
TEMP, TOLO 
TEMP , TOL I • t 
TEMP,UY,» 
YO , TEMP, , 
TEMP, PHI 
TEMP,NCNT, , 
THETA, SIGMA 
THETA, TEMP, t 
TEMP, THETA 
MONITR, 02010,67, 

COSF, THETA, 67, 
THETA, RPLTO, * 



SINF , TEMP, 67, 
TEMP, RPLTO,, 



20.0*EPSL0N 

20.0*UX*EPSL0N 

X0»X0*20.0*UX*EPSL0N 

20.0*EPSL0N 

20.0*UY*EPSL0N 

Y0-Y0*20.0*UV*EPSL0N 

NCNT»PHI 

THETA»SIGMA-NCNT*PHI 



FAOO Yl,K,« 

BT MONITR, 0SAT*5,6» 

BTM SCSRT, •♦13,67, 

NOP RE TURN ,,6, 

TFL TEMP,NMAX 



12572 06 03348 06014 
12584 01 03348 05994 
12596 03 03348 06125 
12608 01 05892 03348 
12620 06 03348 06014 
12632 01 03348 05994 
12644 03 03348 06135 
12656 01 05902 03348 
12668 06 03348 03318 
12680 03 03348 03288 
12692 06 03338 03328 
12704 02 03338 03348 
12716 06 03348 03338 
CALL SINF-COSF SUBROUTINE VIA MONITR 

12728 17 02400 -2010 
COSF(THETA) 12740 17 0242J -3338 

( R+E*TL RAO* TOLO ) *COSF ( THETA ) 

12752 03 03338 03308 
Xl«H*IR+E*TLRA0*TOLO)*COSFt THETA) 

12764 01 03338 03362 
SINF(THETA) 12776 17 02410 -3348 

(R+E*TLRAD+TOLO>*S INF (THETA} 

12788 03 03348 03308 
Yl-K*(R*E*TLRAD*TOLO)*S INF (THETA) 

12800 01 03348 03372 
CALL CS SUBPROGRAM VIA MONITR 

12812 27 02400 12912 
EVALUATE CUT VECTOR AT CS 

12824 17 02410 J2837 
NOP OR B (VARIABLE OP COOE) 

12836 41 0241J 00000 
12848 06 03348 03298 



07100 
07110 

07120 

07130 

07140 

07150* 

07160 0SA7 

07170 

07180 DIMTAB 

07190 

07200 

08010 

08020* 

08030 ER207 

08040 

08050 

08060* 

08070 ER215 

08080 

08090 

08100* 

08110 

08120 PI 

06130* 

08140 MONITR 
08150 FISH 
08160 TL2 
08170 FLW 
08180 FLWST 
08190 YCOMP 
08200 H 
09010 XO 
09020 XCOMP 
09030 YO 
09040 K 
09050 UN I TV 
09060 MINLO 
09070 ATANF 
09080 SENSE 
09090 G 
09100 UO 
09110 UX 
09120 UY 
09130 CROSS 
09140 CRSTRT 
09150 XI 
09160 Yi 
09170 SIGMA 
09180 RMITI 
09190 L/2 
09200 PMI 
10010 ERPROC 
10020 E 
10030 RPLTO 
10040 TLRAO 
10050 R 
10060 TOLO 
10070 TOL I 
10080 TEMP 



FSUB TEMP,NCNT»» 
BNP ER215,,, 



FADO 
B 

OORG 

OSA 

DSC 

DC 

OC 

DC 

OC 

TFM 
B 

OORG 

TFM 

B 

OORG 

OC 
OC 

OS 
OS 
OS 
OS 
DS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
DS 
OS 
OS 
OS 
OS 
DS 
OS 
OS 
DS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 
OS 



NCNT,2.0 t , 

GENCV 

•-4 

CONT- 12 
5,1 

4,0244 
4,0245 
4,0246 
4,0247 

HERM*9,207,9 

WERM-12 

*-3 

WERM»9,215,9 

WERM-12 

•-4 

8,31415927 
2,1 

,2406 
,2416 
,6147 
,2488 
,3362 

10,FLW*85*10 

,FLWST*0*10 

,5892 

10, YCOMP* 30 

,X0*10 

,H*10 

,2416 

,6024 

,2416 

,2416 

,5974 

,6075 

,6125 

fUX+10 

, YCOMP 

• 2416 

«FLW*85*10 

.Xl*l0 

10,XI-10 

•CROSS 

♦Xl-20 

,L/2 

,2416 

• 5954 
•XCOMP 

• 5984 

• K + 10 

• 6014 

• 5994 

• Yi 



NMAX-NCNT 12860 02 03348 03288 

BRANCH IF TOOL TRAVEL EXCEEDS ONE RE VOL • 

12872 47 12950 01100 
NCNT'NCNT+2.0 12884 01 03268 06115 

12896 49 12668 00000 

12903 

12907 00005 J2836 

12908 00005 
12916 00004 
12920 00004 
12924 00004 
12928 00004 

12930 16 12181 00K07 
12942 49 12160 00000 
12950 

12950 16 12181 00K15 
12962 49 12160 00000 
12969 

12976 00008 
12978 00002 



02406 
02416 
06147 
02488 
03362 
03338 
03362 
05892 
03308 
05902 
03372 
02416 
06024 
02416 
02416 
05974 
06075 
06125 
06135 
03338 
02416 
03338 
03348 
03328 
03338 
03318 
03318 
02416 
05954 
03308 
05984 
03382 
06014 
05994 
03346 



00000 
00000 
00000 
00000 
00000 
00010 
00000 
00000 
00010 
00000 
00000 
00000 
00000 
00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

00010 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



177 



10090 


SQRTP 


OS 


• «*lo 


10100 


2*0 


OS 


.A. lit 


101 10 


NHAX 


OS 




10120 


NCN? 


OS 




10130 


TNETA 


OS 


•RMIT3 


10140 


CQSF 


OS 


#242 1 


10190 


IN TOP 


OS 


• 615? 


10160 


SIN? 


OS 


• 2416 


101 70 


SCSRT 


OS 


• 2416 


10180 


RETURN 


OS 


• 241 1 


10190 


KTEHP 


OS 


• 7703 


10200 


EPSLON OS 


•6004 


11010 


X 


OS 


10*5620 


11020 


r 


OS 


io f x*io 


11030 


ARGT 


OS 


#6515 


11040 




OEN0 GIRDS 



02416 
06115 
03291 
03266 
03338 
02421 
06157 
02416 
02416 
02411 
07703 
06006 
05820 
05810 
06515 
U796 



00000 
00000 
000 10 

ooo id 

00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
0001 
00010 
00000 



>A6t 











SYMBOL 


TABLE 










5EMIN3 


14380 


1.0E48 


06085 


Y1PYN0 


03178 


X1PXN0 


03168 


UNITV2 


13040 


SINCOS 


14250 


REVERS 


12788 


RETURN 


024 U 


RETADO 


14079 


ON/OUT 


12664 


NVERTL 


13328 


NOTL IN 


12188 


NORMLN 


02416 


NORMCN 


02416 


MONITR 


02406 


MN0.25 


14390 


MINl.O 


06024 


LINLIN 


02416 


LCNCNi 


02416 


INSIDE 


12644 


HYPFLG 


03349 


ERPROC 


02416 


EPSLON 


06004 


ENTRYl 


12092 


D1CALC 


12452 


ONCALC 


13412 


OIMTAB 


12175 


OELTAB 


03328 


CNSTRT 


02416 


BOFFOS 


03328 


AC ON 


03362 


BCON 


03372 


BN02 


03178 


BRNOP 


12116 


B02 


03218 


CCON 


03382 


CONOS 


11796 


CCNT 


12944 


C0NV1 


12912 


C0NV2 


13496 


CROSS 


00069 


CSDIM 


11852 


CVCTR 


12921 


OCON 


03392 


DELX 


14118 


DEVI 


03268 


OGENC 


11888 


OISTF 


02416 


OM 


03308 


OMAX 


03228 


DM IN 


03298 


DMXMN 


14074 


ON 


03318 


DSA1 


13615 


DSA10 


13831 


DSAll 


13641 


DSA12 


13861 


DSA13 


13871 


0SA14 


13901 


DSA1S 


13931 


DSA16 


13941 


0SA17 


13966. 


DSA16 


13977 


0SA19 


13997 


DSA2 


13625 


0SA2O 


14015 


DSA21 


14033 


OSA22 


14051 


0SA3 


13655 


0SA4 


13665 


0SA5 


13675 


DSA6 


13725 


DSA7 


13735 


0SA6 


13761 


DSA9 


13791 


DYDX 


02416 * 


01 


03318 


E 


05954 


ECCN 


03402 


ER21? 


12136 


ER22? 


12936 


FCON 


03412 


FLW 


02488 


FLWST 


03362 


G 


05974 


GENCV 


12344 


GRAO 


03238 


INCRT 


14081 


I NT OF 


06157 


ITER1 


12392 


ITER2 


12844 


ITER3 


13184 


MN02 


03168 


M02 


03208 


N0RM1 


12428 


N0RM2 


13232 


RESXY 


14069 


REVU 


13136 


REZIO 


12620 


RO 


00069 


SCSRT 


02416 


SENSE 


13052 


SQRTF 


02416 


TEMP 


00079 


THETA 


03158 


TLQFF 


12684 


TLON 


12476 


TLRAD 


05984 


TRIGF 


14082 


UNITY 


02416 


UX 


06125 


UXT 


06125 


UY 


06135 


UYT 


06135 


VARBl 


12732 


VARB2 


12780 


VERTL 


13592 


WERM 


12160 


XFUN 


14330 


XI 


05923 


XNO 


03248 


XOPFO 


03318 


XSAVE 


03148 


XO 


05B92 


XI 


03338 


X2 


03276 


X2MX0 


03278 


X3 


03188 


YCEPT 


03328 


YFUN 


14274 


YJ 


05933 


YNO 


03258 


YOFFO 


03328 


VO 


05902 


VI 


03348 


Y2 


03286 


V2HY0 


03288 


Y3 


03198 


0*5 


06065 


1.0 


06075 


40.0 


14370 


40EPS 


02949 


BOEPS 


03308 











01010* 

01020* 

01030* 

01040* 

01050* 

01060* 

01070* 

01080* 

01090 

01100* 

Oil 10 CONOS 

01120 

01110 

01140* 

01150 

01160 

01170 

01180 CSOIM 

01190 

01200 

02010* 
02020 OGENC 
020 SO 



IBM 1620-1311 AO-APT SUBPROGRAM FOR EVALUATING 
THE CUTTER PATH ON CONIC DRIVE SURFACES 

RCS 

•NAME CONOS... NON-ERASABLE ARELEM SUBPROGRAM 
•ID NUMBER 0240+0EL0IM 
•STORE CORE IMAGE 
LINKAGE - ft CONDS 

DORG 11796 H796 

SUBPROGRAM ENTRY 
BT M0NITR t DSAi*5,6. CALL CNSTRT SUBPROGRAM VIA MONITR 

11796 27 02400 13620 
B CNSTRT* »6» BRANCH TO CONIC STARTUP ROUTINE 

11808 49 02410 00000 
OORG *-l 11816 



TFM 

MM 

A 

TP 
CP 
BO 



CSDIM* lit0lMTAB*36 

INTQF,4»10» 

CS0!M*11»99 

0SAl*4» 9 t 

0SA3*1 

NOTL INtG* • 



11816 16 11863 J2119 
4*INT0P 11828 13 06157 000-4 

11840 21 11863 00099 
SET CS OIM NO. 11852 26 13659 00000 

11864 11 11656 00000 
BRANCH If CONIC IS NOT A LINE 

11676 41 121*6 05974 



TPL 0£L TAB t OCON 
PMUL 0€LTABfOCON«» 



0**2 



11686 06 01326 03392 
11900 01 01126 03192 



178 



02040 




FAOO 


OELTAB, LOt« 


l.0»0**2 


11912 


01 


03328 


06075 


02050 




BTM 


MONITR, 02000, 67# 


CALL SQRTF SUBROUTINE 


VIA MONITR 














11924 


17 


02400 


-2000 


02060 




BTM 


SQRTF • DEL TAB ,67, 


SQRTF 1 1.0*D**2) 


11936 


17 


02410 


-3328 


02070 




FMUL 


DELTAS, E, . 


E*SQRTF ( 1 »0*0**2 ) 


11948 


03 


03328 


05954 


02080 




FMUL 


DELTAS, TLRAOt* 


E*TLRAD*SQRTF ( i.0*D**2) 


















11960 


03 


03328 


05984 


02090 




FSUB 


BOFFDS ,FCON, , 


F*E*TLRAO*SQRTFU.O*0**2> 


















11972 


02 


03328 


03412 


02100 




BTM 


MONITR, 02140»67» 


CALL NORMLN SUBPROGRAM 


1 VIA MONITR 














11984 


17 


02400 


-2140 


02110 




BT 


NORMLN,DSA2*25,6» 


PROJECT CUTTER CENTER 


TO OFFSET LINE 














11996 


27 


02410 


13650 


02120 




TFL 


XI ,UXT 




12008 


06 


03338 


06125 


021 30 




TFL 


Yl ,UVT 




12020 


06 


03348 


06 1 35 


02140 




AH 


XI ,2 • 10, 


XI*100.0»UXT 


12032 


11 


03338 


000—2 


02150 




AH 


Yl , 2 , 10, 


Y1-100.0*UYT 


12044 


11 


03348 


000—2 


02160 




FAOO 


Xl.XOFFOi, 


Xi*X0FF0»100.0*UXT 


12056 


01 


03338 


03318 


021 70 




FAOO 


■ * , T Ur rUH 


Yl»YQFFO*l00.O*UYT 


12068 


01 


03348 




02UO 




TFM 


**Nof»n*»*ftn7 




12080 


u 


1213* 


J2l»ft 


02190 


CNTRY1 


8T 


HON I TR,DSA3+5,6, 


CALL CS SUBPROGRAM VIA 


i MONITR 
















12092 


27 


02400 


1 3660 


02200 




BTM 


SCSRT, •♦13,67* 


EVALUATE CUT VECTOR AT 


CS 
12104 


17 


02410 


J2 1 1 7 


03010 


BRNOP 


NOP 


RETURN , ,6, 


NOP OR B (VARIABLE OP 


CODE) 
12116 


41 


024U 


00000 


03020 




B 






12128 


49 


00000 


W V www 


03030 




OORG 


•-3 




12136 








03040* 


















03050 


ER217 


TFM 


WERM* 9 ,217,9, 


SET ERROR NO. -217 


12136 


16 


12169 


00K17 


03060 




BTM 


HON I TR, 02250,67, 


CALL ERPROC SUBPROGRAM 


1 VIA MONITR 














12148 


17 


02400 


-2250 


03070 


WERM 


BTM 


ERPROC ,3,67, 


WRITE ERROR MESSAGE* • • 


SEARCH FOR END 












12160 


17 


02410 


-0003 


03080 


DIMTA8 


DC 


4, 0244 




12175 


00004 




03090 




DC 


4,0245 




12179 


00004 




03100 




DC 


4 r 0246 




12183 


00004 




03110 




DC 


4, 0247 




12187 


00004 




03120* 
















03130 


NOR IN 


TFM 


BRNOP* 18 ,CONT 




12188 


16 


12134 


J2944 


03140 




TFM 


UFRM+Q .777 .Q . 


SET ERROR N0.-227 


12200 


16 


12169 


00K27 


03150 




TFM 


CVCTR , 250,9, 


SET CVCTR-250 


12212 


16 


12921 


00K50 


03160 




TFL 


XI, XO i , 


Xl-XO 


12224 


06 


03338 


05892 


03170 




TFL 


Yl , YO , , 


Yl-VO 


12236 


06 


03348 


05902 


03180 




TFL 


YCEPT , YO 




12248 


06 


03328 


05902 


03190 




TFL 


TF MP . f.R AD 




12260 


06 


00079 


03238 


03200 




FMUL 


TEMP , XO 




12272 


03 


00079 


05892 


04010 






vr cot rc mo 
il.tr I , 1 c Hr , , 


YCEPT»Y0-GRAD*X0 


12284 


02 


03328 


00079 


04020 






"tUC">, Cr JlUN 




12296 


06 


02949 


06004 


040 30 




fmiii 


"*U crl| Hu • U , , 


40EPS-40.0*EPSL0N 


12308 


03 


02949 


14370 


04040 




TPl 


oncDC iftCDC 




12320 


06 


03308 


02949 


04050 




FADO 


OUCr J|"tUCr>| , 


80EPS-80.0*EPSL0N 


12332 


01 


03308 


02949 


04060 


GENCV 


FMUL 


UX , 40E PS , , 


UX-40,0*EPSLCN*UX 


12344 


03 


06125 


02949 


04070 




FMUL 


UY,40EPS, , 


UY«40.0*EPSLGN*UY 


12356 


03 


06135 


02949 


04080 




TFM 


VARBl*6,REVERS 




12368 


16 


12738 


J2788 


04090 




TFM 


VARB2+6* I TERl 




12380 


16 


12786 


J2392 


04100 


ITER! 


FADD 


XI, UX,, 


Xi«Xl*40.0*EPSL0N*UX 


12392 


01 


03338 


06125 


04110 




FAOD 


Yl.UY, , 


Vl-Y1*40.0«EPSL0N*UY 


12404 


01 


03348 


06135 


04120 




BT 


M0NITR,DSA4*5,6» 


CALL NORMCN SUBPROGRAM 


1 VIA HON! 


ITR 





12416 27 02400 13670 



04130 NORM I BT N0RMCN»DSA5*45»6» 
04140 BT M0NITR,DSA6*5,6, 

04150 DICALC BT DISTF,DSA7«-20,6, 



04160 

04170* 

04180 TLON 

04190 

04200 

05010 

05020 

05030 

05040 

05050 

05060 

05070 

05080 

05090 

05100 REZID 
05110 



TLOFF ,E-9, 



TFL 

FMUL 

TFL 

FMUL 

FADO 

FADD 

FMUL 

FAOO 

TFL 

FMUL 

FADO 

FMUL 

FAOO 



RO,ACON 
R0,X1,, 
TEMP ,BC0N 
TEMP „ Y 1 » » 
TEMP ,DC0N, , 
RO, TEMP, , 
RO,Xl, , 
RO.FCON, , 
TEMP,CCON 
TEMP, Yl , » 
TEMP,ECON, , 
TEMP, VI,, 
RO, TEMP, , 



BNN ON/OUT, 



05120* 

05130 INSIDE BNF 



TL0FF*24,HYPFLG,» 



05140* 
05150 
05160 
05170* 

05180 ON/OUT BNF 



B I TERl 
DORG *-3 



I TER 1 ,HVPFLG# • 



05190* 

05200 

06010 

06020* 

06030 TLOFF 

06040 

06050 

06060 

06070* 

06080 VAR81 

06090* 
06100 
06110 
06120 



B TL0FF»24 
DORG *-3 

TFL TEMP.DMAX 
MF D1-2.TEMP-2,. 
FSUB 01,0MAX,, 
BZ C0NV1,,. 

BP ftv 



CF 01-2, •• 
FSUB 0U5EMIN3 
BNP CONVl,, , 



06130* 

06140 VARB2 B 

06150 OORG •-) 

06160* 

06170 REVERS TFM VARB1*6» ITERi 

06180 TFM VARB2+6, I TER2 

06190 FMUL UX,MN0.25», 

06200 FMUL UY,MN0.25tt 

07010 B ITERi 

07020 OORG 



CALCULATE NORMAL TO OS CONIC 

12428 27 02410 13720 
CALL DISTF SUBPROGRAM VIA MONITR 

12440 27 02400 13730 
CALCULATE OISTANCE FROM OS CONIC TO PI 

12452 27 02410 13755 
BRANCH IF TOOL! IS TLLFT OR TLRGT 

12464 43 12684 05945 



A*X1 

B*Yl 

B«Yl*D 

A*XI+R*Y1*D 

X1M A*Xi*B*Yl*0) 

Xl»(A*Xl*B*Yl+DI*F 



12476 06 00069 

12488 03 00069 

12500 06 00079 

12512 03 00079 

12524 01 00079 

12536 01 00069 

12548 03 00069 

12560 01 00069 

12572 06 00079 

12584 03 00079 

12596 01 00079 

12608 03 00079 



C»Y1 
C*YUE 
Yl*(C*Yl*E» 

RO*Xl*(A*Xl*8*Yl*0)m*<C*Yl*E)*F 

12620 01 00069 
BRANCH IF POINT Pi NOT INSIDE CONIC 
12632 46 12664 



03362 
03338 
03372 
03348 
03392 
0C079 
03338 
03412 
03382 
03348 
03402 
03348 

00079 

01300 



BRANCH IF CONIC IS AN HYPERBOLA 

12644 44 12708 03349 



12656 49 12392 00000 
12664 



BRANCH IF CONIC 



Dl-S!GNFt01,0MAX) 
Dl-Dl-OMAX 
BRANCH IF Dl-DMAX 



tS AN HYPERBOLA 

12664 44 12392 03349 

12676 49 12708 00000 
12684 

12684 06 00079 03228 

12696 71 03316 00077 

12708 02 03318 03228 

12720 46 12912 01200 



BRANCH IF 01 EXCEEDS 0MAX 

12732 46 00000 01100 

01«ABSF(0l) 12744 33 03316 00000 

12756 02 03318 14380 

BRANCH IF 01 OOES NOT EXCEEO 5.0E-3 

12769 47 12912 01100 

12780 49 00000 00000 
12788 



12788 16 12738 J2392 

12000 16 12786 J2844 

12812 03 06125 14 390 

12824 03 06135 14390 

12836 49 12)92 00000 
12844 



UX— 10.0*EPSL0N*UX 
UY*-10«0*EPSION*UY 



07050* 
07040 ITER2 

07050 

07060 
07070 

07000 

07090 
07100 
07110* 
07120 CON VI 
07110 

071*0* 
07150 6R227 
07160 
07170* 
07180 CONT 

07190 

07200 
08010 
08020 
08030 
080*0 
06050 



BTFL TRlGF»DSA194l2»» 
BTFL TRICF,DSA20*12«, 



TFL Xt.XSAVE 

BTH MONITR*O21*0*67, 



ST N0RMLN,0SA8*25,6* 



8 NORM I- 12 
OORG «-3 



SM CVCTRtltlO* 
8NN ENTRY! 



8 WERM-12 
DORG »~3 



BTH MONITR, 02080#67, 

BT DYDX,DSA9*35,6. 

TFL YCEPT, YO 

TFL TEMP,GRAD 

FMUL TEMP.XO 

FSUB YCEPT, TEMP, # 

TFL DN,1.0E*8,, 

BT MONITR, DSA10»5, 6* 



08060 UNITV2 BT UN I T V, OS A U ♦ 1 5 , 6 , 



08070 SENSE 

08080 

08090 

08100 

08110 

08120 

08130 

08l*0» 

08150 REVU 
08160 
08170 
08180 

08190 ITER3 
08200 
09010 
09020 

09030 N0RM2 

090*0 

09050 

09060 

09070 



TFL CROSS, XI 
FMUL CROSS, UY, , 
TFL TEMP, YJ 
FMUL TEMP.UX,, 
FSUB CROSS, TEMP, , 
FMUL CROSS, G,, 
BNP REVU*2*,», 



FMUL 

FMUL 

FMUL 

FMUL 

FAOO 

FAOO 

TFL 

BT ' 

BT 

BTFL 
BTFL 
BTH 
BT 



UX,MIN1.0», 

UY,MIN1.0*» 

UX,80EPS,, 

UY,80EPS, t 

Xl,UX,, 

Yi »UY» , 

0M,0N,, 

MONITR, 0SA12*5, 6* 
N0RMCN,DSA5**5,6, 
TRIGF.DSA2U12., 
TRIGF,DSA22*12»» 
MONITR, 02120, 67* 
LCN0N1 ,0SA13*2?,6, 



PROJECT POINT PI TO OUTER TOLER- 

128** 07 1*082 1*009 

ANCE OFFSET DRIVE SURFACE 

12856 07 1*082 
12868 06 03338 

CALL NORMLN SUBPROGRAM VIA MOW I TR 

12880 17 02*00 

PROJECT POINT Pi NORMAL TO CV LINE 

12892 27 02*10 
1290* *9 12*16 
12912 



1*027 
031*8 



13786 
00000 



CVCTR-CVCTR-1 12912 12 12921 000- I 

BRANCH IF CVCTR IS NON-NEGATIVE 

1192* *6 12092 01300 

12936 *9 121*8 00000 
129** 

CALL OYOX SUBPROGRAM VIA MONITR 

129** 17 02*00 -2080 
CALCULATE SLOPE OF CONIC AT POINT PNO 

12956 27 02*10 13826 
12968 06 03328 05902 
12980 06 00079 03238 
12992 03 00079 05892 
YCEPT«YO-GRA0*XO 1300* 02 03328 00079 

0N«l.0E*8 13016 06 03318 06085 

CALL UNITV SUBPROGRAM VIA MONITR 

13028 27 02*00 13836 
CALCULATE UNIT TANGENT VECTOR AT PNO 

130*0 27 02*10 13856 
13052 06 00069 05923 
XI»UY 1306* 03 00069 06135 

13076 06 00079 05933 
YJ»UX 13088 03 00079 06125 

Xl»UY-YJ»UX 13100 02 00069 00079 

GMXI»UY-YJ«UX) 13112 03 00069 0597* 

BRANCH IF UNIT VECTOR SENSE IS PROPER 

1312* *7 13160 01100 



13136 03 06125 
131*8 03 06135 
13160 03 06125 
13172 03 06135 
1318* 01 03338 
13196 01 033*8 
13208 06 03308 



UX—UX 
UY»-UY 

UX*80.0«EPSLCN*UX 
UY«80.0»EPSLCN»UY 
Xl«Xl*80.0«EPSL0N»UX 
Yl»Yi*8O.0*EPSL0N»UV 
0M«0N 

CALL NORMCN SUBPROGRAM VIA MONITR 

13220 27 02*00 
CALCULATE NORMAL TO OS CONIC 

13232 27 02*10 
PROJECT POINT Pi TO INNER TOLER- 

132** 07 1*082 
ANCE OFFSET DRIVE SURFACE 

13256 07 1*082 
CALL LCN0N1 SUBPROGRAM VIA MONITR 

13268 17 02*00 
DETERMINE EQ. OF LINE THRU PO AND P2 



0602* 
0602* 
03308 
03308 
06125 
06135 
03318 

13866 

13720 

1*0*5 

1*063 

-2120 



09060 




TFL 


TEMP, MINI, 


09090 




FOIV 


TEMP.M02,, 


09100 




BV 


VERTL*,, 


09110* 








09120 


NVERTL 


TFL 


MN02 , TEMP 


09130 




FMUL 


TEMP, X2 


091*0 




TFL 


BN02.Y2 


09150 




FSUB 


BN02 , TEMP , , 


09160 




BTM 


MONITR, 02050, 67* 


09170 




BT 


LINL!N»DSA1*«25,6» 


09180 




BT 


MONITR, DSA15»5*6* 


09190 


DNCALC 


BT 


0ISTF,DSA16*20*6« 


09200 




TFL 


XI, X3», 


10010 




TFL 


Y1.Y3,, 


10020 




FSUB 


DM, ON 


10030 




CF 


OM-2,,, 


100*0 




FSUB 


DM, DEVI 


10050 




BP 


ITER3+2*,,, 


10060* 






10070 


C0NV2 


TFL 


X1,X2,, 


10080 




TFL 


VI, Y2», 


10090 




TFL 


GRA0,M02,, 


10100 




TFL 


YCEPT, 602,, 


10110 




FSUB 


X2MX0*X0 


10120 




FSUB 


Y2MY0,Y0 


10130 




BT 


MON I TR » D S A 1 7* 5 , 6 » 


101*0 




BT 


UNITV, DSA18*15,6# 


10150 


VERTL 


TFL 


TEMP,U0E*8,« 


10160 




B 


NVERTL 


10170 




DORG 


•-* 










10: 


0SA1 


OSA 


C0N0S+20 


10200 




DSC 


5,02661 


11010 




DORG 


0SA1*5*5*6~6 


11020 




NOP 


YOFFO, 


11030 




DORG 


•-21 


110*0 




NOP 


B0FFDS»XOFF0 


11050 




OCRG 


•-21 


11060 




NOP 


YO.ACON 


11070 




00R6 


•-1* 


11080 


0SA2 


OSA 


XO 


11090 




DORG 


•♦5*6-* 


11100 


OSA) 


OSA 


BR NOP 


11110 




DSC 


5,1 


11120 


OS A* 


OSA 


NORM 1*1 2 


11130 




OSC 


5,02161 


111*0 




DORG 


0SA**5*5*10-6 


11150 




NOP 


YN0,0 


11160 




DORG 


•-21 


11170 




NOP 


FCONtXNO 


11180 




DORG 


•-21 


11190 




NOP 


ECONf DCON 



-1.0/M02 

BRANCH IF M02 IS 0.0 



13280 27 02*10 13896 

13292 06 00079 0602* 

1330* 09 00079 03208 

13316 *6 13592 01*00 



13328 06 03168 00079 

133*0 03 00079 03278 

13352 06 03178 03288 
BN02»Y2-MN02*X2 1336* 02 03178 00079 

CALL LINLIN SUBPROGRAM VIA MONITR 

13376 17 02*00 -2050 
PROJECT P2 TO L2* NORMAL TO LINE IP0P2I 

13388 27 02*10 13926 
CALL OISTF SUBPROGRAM VIA MONITR 

13*00 27 02*00 13936 
CALCULATE DISTANCE BETWEEN PI AND P3 

13*12 27 02*10 13961 
Xl«X3 13*2* 06 03338 03188 

VI-Y3 13*36 06 033*8 03198 

13**8 02 03308 03318 
A8SM0M-0N) 13*60 33 03306 00000 

13*72 02 03308 03268 
BRANCH IF CONVERGENCE NOT REALIZED 

13*8* *6 13208 01100 

Xl*X2 13*96 06 03338 03278 

YI-Y2 13508 06 033*8 03288 

GRAD-M02 13520 06 03238 03208 

YCEPT-B02 13532 06 03328 03218 

135** 02 03278 05892 

13556 02 03288 05902 
CALL UNITV SUBPROGRAM VIA MONITR 

13568 27 02*00 13971 
CALCULATE UNIT VECTOR FROM PO TO P2 

13580 27 02*10 13992 
T£MP*L0E*8 13592 06 00079 06085 

1360* *9 13328 00000 

13611 



13615 
13616 
136** 
136** 
1363* 
1363* 
1362* 
1362* 
13621 
13625 
13651 
13655 
13656 
13665 
13666 
1371* 
1371* 
1370* 
1370* 
1369* 
1369* 



00005 J1816 
00005 

*1 03328 00000 

*1 03328 03318 

*l 05902 03362 

00005 -5892 

00005 J2U6 
00005 

00005 J2**0 
00005 

*1 01258 00000 
*t 03*12 0)2*8 
*l 03*02 03)92 



ISO 



1 1200 




DOR 6 


•-21 


13684 




120 10 




NOP 


ACON.CCON 


13684 


41 03362 03382 


I 2020 




OORG 


*-2l 


13674 




I 20 30 




NOP 


Yl »BCQN 


13674 


41 03348 03372 


120*0 




DORG 


•-14 


13671 




1 2050 


0SA5 


OSA 


xt 


13675 


00005 -3338 


12060 




OORG 


•f 5*10-4 


13721 




12070 


0SA6 


OSA 


01CALC+12 


13725 


00005 J2464 


12080 




OSC 


5f02l01 


13726 


00005 


1 2090 




DORG 


0SA6*5*5«5"*1 1 


13744 




12100 




NOP 


VI tOl 


13744 


41 03348 03318 


12110 




OORG 


•-21 


. 13734 




12120 




NOP 


YNOi XL 


13734 


41 03256 03338 


121 30 




OORG 


•-14 


13731 




12140 


0SA7 


DSA 


XNO 


13735 


00005 -9248 


12150 




OORG 


•+5»5-4+5*6-6 


13780 




12160 




NOP 


Yl,0 


13780 


41 03348 00000 


12170 




DORG 


•-21 


13770 




12180 




NOP 


YCEPT,Xl 


13770 


41 03328 03338 


12190 




DORG 


•-21 


13760 




12200 




NOP 


Yl tGRAO 


13760 


41 03348 03238 


13010 




DORG 


•-14 


13757 




13020 


0SA8 


OSA 


XI 


13761 


00005 -3338 


13030 




DORG 


•♦5*6-4*5»8-6-2 


13819 




13040 




NOP 


GRADiO 


13820 


41 03238 00000 


13050 




DORG 


*-21 


13810 




13060 




NOP 


ECON.DCGN 


13810 


41 03402 03392 


13070 




DORG 


•-21 


13800 




13080 




NOP 


ACON.CCON 


13800 


41 03362 03382 


13090 




DORG 


•-21 


13790 




13100 




NOP 


YNO.BCON 


13790 


41 03258 03372 


131 10 




OORG 




13787 




13120 


0SA9 


DSA 


XNO 


13791 


00005 -3248 


13130 




DORG 


•♦5*8-4 


13827 




13140 


DSA10 


DSA 


SENSE 


13831 


00005 J3052 


13150 




, DSC 


5*02111 


13832 


00005 


13160 




DORG 


DSAl0*5*5»4-6 


13850 




13170 




NOP 


IJY.O 


13850 


41 06135 00000 


13180 




DORG 


*-2l 


13840 




13190 




NOP 


GRAO.UX 


13840 


41 03238 06125 


13200 




DORG 


•-14 


13837 




14010 


DSAU 


DSA 


1.0 


13841 


00005 -6075 


14020 




DORG 


•♦5*4-4 


13857 




14030 


0SA12 


OSA 


N0RM2+12 


13861 


00005 J3244 


14040 




DSC 


5,02161 


13862 


00005 


14050 




DORG 


DSAl2*5»5«6-6 


13890 




14060 




NOP 


802,0 


13890 


41 03218 00000 


14070 




DORG 


•-21 


13880 




14080 




NOP 


Y2.M02 


13880 


41 03288 03208 


14090 




DORG 


•-21 


13870 




14100 




NOP 


Y0.X2 


13870 


41 05902 03278 


14110 




DORG 


•-1*4 


13867 




14120 


0SA13 


DSA 


XO 


13871 


00005 -5892 


14130 




DORG 


•♦5*6-4*5»6-6-2 


13919 




14140 




NOP 


Y3.0 


13920 


41 03198 00000 


14150 




DORG 


•-21 


13910 




14160 




NOP 


BN02.X3 


13910 


41 03178 03188 


14170 




DORG 


•-21 


13900 




14180 




NOP 


YCEPT.MN02 


13900 


41 03328 03168 


14190 




DORG 


•-14 


13897 





14200 DSA14 


DSA 


GRAD 


15010 


DORG 


•♦5»6-4 


15020 DSA15 


DSA 


0NCAIC+12 


150 30 


DSC 


5,02101 


15040 


DORG 


DSA15*5*5»5-11 


15050 


NOP 


Y3.DN 


15060 


OORG 


•-21 


15070 


NOP 


YI.X3 


15080 


DORG 


•-14 


15090 0SA16 


OSA 


XI 


15100 


DORG 


•♦5«5-4 


15110 DSA17 


OSA 


GENCV-24 


15120 


OSC 


5,02111 


15130 


DORG 


DSAl7*5*5»4-6 


15140 


NOP 


UY,0 


15150 


DORG 


•-21 


15160 


NOP 


Y2MY0,UX 


15170 


OORG 


•-14 


15180 0SA18 


OSA 


X2MX0 


15190 


DORG 


•♦5»4-4*5»3-ll-2 


15200 


NOP 


DMAX.ITER2U2 


16010 


DORG 


•-14 


16020 0SA19 


OSA 


XSAVE 


16030 


DORG 


•♦50-4 


16040 , 


DC 


2.-10 


16050 


DORG 


DSA19*12*5*3-11 


16060 


NOP 


0MAX.ITER2+24 


16070 


OORG 


•-14 


16080 0SA20 


DSA 


Yl 


16090 


OORG 


•♦5«3-4 


16100 


DC 


2,0 


16110 


DORG 


DSA20*12*5O-ll 


16120 


NOP 


DMIN.N0RM24-24 


16130 


DORG 


•-14 


16140 DSA21 


DSA 


X2 


16150 


OORG 


•♦5»3-4 


16160 


DC 


2,-10 


16170 


DORG 


0SA2l*l245«3-ll 


16180 


NOP 


DMIN.N0RM2+36 


16190 


DORG 


•-14 


16200 DSA22 


OSA 


Y2 


17010 


DORG 


•♦5»3~* 


17020 


DC 


2.0 


17030 


DORG 


DSA22+14 


17040* 






17050* 




SUBROUTINE 


17060* 




TO AN INNEI 


17070* 




CURVE » OFF 


17080* 






17090 RESXY 


OS 


5*. 


17100 OMXMN 


D$ 


5t. 


17110 RETAOO 


OS 


5tt 


17120 INCUT 


OS 


2»« 


17130 Tit IGF 


TFL 


YlMYNO.Yl 


17140 


FSUft 


YlMYNOt YNO* • 


17150 


TFL 


X1HXN0.X1 


17160 OEIX 


FSUB 


XlMXNO»XNOft 


171 70 


BTM 


MONI TR, 02000, 67, 



13901 
13927 
13931 
13932 
13950 
13950 
13940 
13940 
13937 
13941 
13962 
13966 
13967 
13985 
13986 
13976 
13976 
13973 
13977 
13995 
13996 
13993 
13997 
14008 
14009 
14013 
14014 
14011 
14015 
14026 
14027 
14031 
14032 
14029 
14033 
14044 
14045 
14049 
14050 
14047 
14051 
14062 
14063 
14065 



00005 -3238 

00005 J3424 
00005 

41 03198 03318 

41 03348 03188 

00005 -3338 

00005 J2320 
00005 

41 06135 00000 
41 03288 06125 
00005 -3278 
41 03228 12856 
00005 -3148 
00002 

41 03228 12868 
00005 -3348 
00002 

41 03298 13256 
00005 -3278 
00002 

41 03298 13268 
00005 -3288 
00002 



OR PROJECTING A POINT PHX1.V1) 
OR OUTER TOLERANCE BAND OF A 
T TO A GENERAL CONIC 

AOORESS OF RESULT 14069 00005 

AODRESS OF PROJECTION DISTANCE 

14074 00005 

RETURN ADDRESS 14079 00005 

SUBROUTINE ENTRY CONTROL FIELD 

14081 00002 

14082 06 03178 03348 
VlttVNO»Vl-YNO 14094 02 03178 03258 

14106 06 03168 03338 
X1MXWXI-XN0 14118 02 031*8 03248 

CALL SQRTF SUBROUTINE VIA KONITR 













14130 


17 02400 


-2000 


17180 




TFN 


35 » YIMYNO 




14142 


16 14177 


-3178 


171*0 




A 


•♦23.INCRT 




14154 


21 14177 


14081 


17200 




TFL 


TNETA 




14166 


06 03151 


00000 


U010 




TFL 


TIMP.XlMXNO 




14171 


06 00079 


03161 


UQ20 




FMUL 


TEMP»XlMXNd** 


tXl-XN0)**2 


14190 


03 00079 


03168 


16030 




TFL 


TEMP-10. YIMYNO 




14202 


06 00069 


03178 


18040 




FNUL 


TEMP-10»Y1MYNQ»* 


(Yl-YN0>**2 


14214 


03 00069 


03178 


18050 




FAOO 


TEMPfTEMP-10*, 


m-XNO)**2*m-YN0l**2 






18060 






Katk t P k. it no . a * . 

*«w >»» icnr|Oi * 




14226 


01 00079 


00069 




8TN 


SQATFUX1-XN0)«*2*IV1-VN0>**2I 






SINCOS 








14238 


17 02410 


"•0079 


18070 


FO! V 


THETA* TEMP* , 


SINF 1 THETA) OR COSFI THETA ) 




18080 










14250 


09 01198 


00079 




80 


vc iiu . i uf * T> a * » 
*"vl • 1 W»H 1 l|f 


BRANCH IF INCREMENT 


tS -10 






18090* 








1**4* 


41 1413© 


■ 

14080 


18100 


YFUN 


TFL 


RESXY»YN0*6 




14274 


06 1406R 


03258 


18110 




MF 


THE TA-2* YlHYNO-2* » 


TH£TA«SIGNF( THETA* Yl 


-YNO) 






18120 










142B6 


71 03156 


03176 




FMUL 


THETA»DMXHN*ll. 


THETA*0MXNN 


14298 


03 03158 


1407N 


18130 




FAOO 


RESXY*THETA*6 




14310 


01 1406R 


03158 


18140 




B 


RETA00,t6» 


EXIT 


14322 


49 1407R 


nnriftn 


181 SO 




OORG 


•-3 




14330 






18160* 














18170 


XFUN 


TFL 


RESXY»XN0»6 




14330 


06 1406R 


03248 


18180 




NF 


THE TA-2 t X 1MXN0-2 i t 


TH£TA» SI CNF ( THETA.X1 


-XNO) 
14342 


71 03156 


03 166 


18190 




g 


YFUN*24 




14354 


49 14298 


ftftftnft 


18200 




OORG 


#—4 




14361 






19010* 














19020 




OC 


8« 40000000 




14368 


00008 




19030 


40.0 


6c 


2i 2 




14370 


00002 




19040 




OC 


Of 




14378 


00008 




19050 


5EMIN3 


OC 


2» -2 




14380 


00002 




19060 




OC 


8,-25000000 




14388 


00008 




19070 


UNO. 25 


OC 


2i0 




14390 


00002 




19080* 














19090 


MONITR 


OS 


(2406 




02406 


00000 




19100 


CNSTRT 


OS 


» 2416 




02416 


00000 




19110 


G 


OS 


1 5974 




05974 


00000 




19120 


FLV.ST 


OS 


i 3362 




03362 


00000 




19130 


FLW 


OS 


• 2488 




02488 


00000 




19140 


ACON 


DS 


IrLRjl ▼ U w U 




03362 


00000 




19150 


SCON 


OS 


» ACON* 10 




03372 


00000 




19160 


CCON 


DS 






03382 


00000 




19170 


OCON 


OS 






03392 


00000 




19180 


ECON 




.nrnw* i ft 




03402 


00000 




19190 


FCON 


DS 


• CUUN* 10 




03412 


00000 




19200 


XI 


DS 






03338 


00010 




20010 


Yl 








03348 


00010 




20020 


OELTAB 


DS 


io* xl* 10 




03328 


00010 




20030 


1.0 


DS 


• 6075 




06075 


00000 




20040 


SQRTF 


DS 


.2416 




02416 


00000 




20050 


E 


DS 


.5954 




05954 


00000 




20060 


TLRAO 


OS 


• 5984 




05984 


00000 




20070 


BOFFOS 


OS 


.OELTAB 




03328 


00000 




20080 


NORMLN 


OS 


• 2416 




02416 


00000 




20090 


UXT 


OS 


• 6125 




06125 


00000 




20100 


UYT 


DS 


»UXT*10 




06135 


00000 





20110 


XOFFO 


DS 


10.DELTAB-10 


20120 


YOFFO 


DS 


10.X0FF0H0 


20130 


INTOF 


DS 


• 6157 


20140 


SCSRT 


DS 


• 2416 


20150 


RETURN 


DS 


.2411 


20160 


ERPROC 


DS 


.2416 


20170 


CVCTR 


DS 


3 t C0NVl*9 


20180 


XO 


DS 


• 5692 


20190 


YO 


OS 


•XO+10 


20200 


40EPS 


OS 


• 2949 


21010 


UX 


OS 


• UXT 


21020 


UY 


OS 


• UYT 


21030 


NORMCN 


OS 


.2416 


21040 


OISTF 


DS 


• 2416 


21050 


01 


OS 


•XOFFO 


21060 


DMAX 


DS 


• 3228 


21070 


DM IN 


OS 


• 3298 


21080 


DEVI 


OS 


• 3268 


21090 


GRAD 


OS 


10*3238 


21100 


YCEPT 


OS 


10. YOFFO 


21110 


TEMP 


OS 


10.79 


21120 


OYDX 


DS 


• 2416 


21130 


DM 


DS 


10.X0FF0-10 


21140 


ON 


OS 


10.DM+10 


21150 


1.0E48 


OS 


• 6085 


21160 


UNITV 


OS 


• 2416 


21170 


CROSS 


DS 


10,69 


21180 


XI 


OS 


• 5923 


21190 


YJ 


OS 


•XI*10 


21200 


MIN1.0 


OS 


• 6024 


22010 


0.5 


OS 


•6065 


22020 


80EPS 


DS 


lOfDN-10 


22030 


LCN0N1 


OS 


• 2416 


22040 


M02 


OS 


10.3208 


22050 


802 


OS 


10.H02U0 


22060 


X2 


OS 


10,3278 


22070 


V2 


DS 


10*3288 


22080 


LINLIN 


OS 


• 2416 


22090 


X3 


OS 


10*3188 


22100 


Y3 


OS 


10,3198 


22110 


X2MX0 


OS 


• X2 


22120 


Y2MY0 


OS 


•Y2 


22130 


XNO 


OS 


• 3248 


22140 


YNO 


OS 


•XNO+10 


22150 


X1MXN0 


OS 


10*3166 


22160 


YIMYNO 


OS 


10*3178 


22170 


THETA 


OS 


10, XI M XNO- 10 


22180 


MN02 


OS 


•X1MXN0 


22190 


8N02 


OS 


•YIMYNO 


22200 


EPSLON 


OS 


• 4004 


23010 


XSAVE 


DS 


10 •THETA- 10 


23020 


HYPFt.0 


OS 


*Yl*l 


23030 


RO 


OS 


10, CROSS 


23040 




OENO 


CONOS 



03318 
03328 
06157 
02416 
02411 
02416 
12921 
05892 
05902 
02949 
06125 
06135 
02416 
02416 
03318 
03228 
03298 
03268 
03238 
03328 
00079 
02416 
03306 
03318 
06085 
02416 
00069 
05923 
05933 
06024 
06065 
03308 
02416 
03206 
03216 
03278 
03288 
02416 
03166 
03198 
03278 
03268 
03246 
03258 
03146 
03178 
03156 
03166 
03176 
06004 
03148 
03349 
00069 
11796 



00010 
00010 
00000 
00000 
00000 
00000 
00003 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00010 
00010 
00010 
00000 
00010 
00010 
00000 
00000 
00010 
00000 
00000 
00000 
00000 
00010 
00000 
00010 
00010 
00010 
00010 
00000 
00010 
00010 
00000 
00000 
00000 
00000 
00010 
00010 
00010 
00000 
00000 
00000 
00010 
00000 
00010 



182 











Symbol 


TABLE 










XT5 I GN 


12656 


XYFORM 


02416 


VNSET3 


12584 


VNSET2 


12264 


VNSETl 


11976 


UPCOMP 


L40CJ)L 


7RF VN2 


12300 


TBSTRT 


02416 


STEPXY 


13978 


SLPMAX 


139 30 


SETZRO 


H84«» 


SETVN2 


13830 


RTRAOO 


13100 


RETURN 


02411 


RESIGN 


12860 


NEX TPT 


13610 


NEWINT 


12168 


MONITR 


02406 


M1N1.0 


06024 


LASTPT 


03209 


FLGUYA 


13971 


FIXVN2 


12276 


ERPROC 


02416 


EN0VN2 


12336 


EN0VN1 


12120 


ENOPNT 


02416 


ENOI NT 


12408 


ECHECK 


12500 


OVTEST 


03082 


0SAT12 


13483 


0SAT1 I 


13463 


0SAT10 


13443 


0SAH23 


13311 


0SAM22 


13301 


DSAH21 


13291 


0SAM20 


13281 


0SAM19 


13171 


DSAM13 


13271 


0SAH17 


13261' 


OSAM 16 


13251 


0SAM15 


13241 


OSAM 14 


13231 


DSAM13 


13231 


0SAM12 


13221 


DSAMU 


13211 


0SAM10 


13201 


DlMTAB 


13982 


0ELTA1 


12024 


CUTVNI 


13560 


CHOROL 


024 16 


CHK VNl 


12596 


CALVEC 


12716 


CALLER 


13800 


BNLAOO 


13829 


A 


03328 


ALPHA 


03204 


8 


03162 


BNOP 


130B8 


CHORl 


11952 


CH0R2 


12240 


CH0R3 


12560 


CSDIM 


13040 


CURPT 


12536 


OSAMl 


13111 


DSAH2 


13121 


OS AM3 


13131 


0SAM4 


13141 


DSAM5 


13151 


DSAM6 


13161 


DSAM7 


13171 


OS AM8 


13181 


0SAM9 


13191 


DSAT1 


13321 


0SAT2 


13331 


0SAT3 


13343 


DSAT4 


13355 


0SAT5 


13371 


DSAT6 


13387 


0SAT7 


13399 


0SAT8 


13415 


DSAT9 


13431 


DSAV1 


13503 


0SAV2 


13513 


0SAV3 


13523 


08AV4 


13533 








l^SO 


m 






ime 


*S*19 


tm* 


erisr 


032*0 


FLW 


92488 


INTOF 


06157 


NEWPT 


12396 


NEXTl 


12156 


PARAM 


02416 


PCURi 


11928 


PCUR2 


12216 


PEN01 


11904 


PEND2 


12192 


PEND3 


12432 


R 


03189 


RCMIN 


13940 


RLC 


13970 


SCSRT 


02416 


SE TUP 


12456 


SUB1 


13551 


SUB3 


13697 


SUB4 


13825 


TABOS 


11796 


TL I 


06145 


UNI TV 


02416 


UNVEC 


13706 


URN4 


03179 


URX 


03152 


URY 


03162 


UXA 


031 12 


UXB 


03132 


UYA 


03122 


UYB 


03142 


VEC1 


12752 


VEC2 


12788 


VFI X2 


03219 


VNl 


13559 


VNIM1 


13554 


VNO 


03240 


VNl 


03270 


VN2 


03300 


VN4 


03230 


HRERR 


13812 


XCOMP 


03092 


XNN 


13700 


XNNPl 


13705 


XNO 


03250 


XNl 


03280 


XN2 


03310 


XPT 


03194 


XI 


03338 


YCOHP 


03102 


YNN 


13700 


YNNPl 


13705 


YNO 


03260 


YN1 


03290 


YN2 


03320 


YPT 


03199 


Yl 


03348 


0.0 


06034 


0.5 


06065 











01010* 




. IBM 1620-1311 AO- 


APT SUBPROGRAM FOR EVALUATING 




01020* 




THE CUTTER PATH 


ON TABCYL DRIVE SURFACES 




01030* 










01040* 




»ID NUMBER 


0241+0ELDIM 




01050* 




♦STORE CORE 


IMAGE 




01060* 




LINKAGE - B TABDS,, 6 




01070* 










01080* 




SUBPROGRAM 


ENTRY 




01090 


OORG 


11796 


11796 




01100 .TABDS 


TF 


A, STEPXY,, 


SET ADORESS STEPPING CONSTANT IN COMMON 








11796 26 03328 


13978 


OHIO 


TOM 


VN0*8l,»» 


SET RECORD MARK 11808 15 03321 


00000 


01120 


DC 


1» * t • 


11819 00001 




01130 


BT 


MONITR, DSAMi*5, 6, 


CALL TBSTRT SUBPROGRAM VIA MONITR 

11820 27 02400 


13116 


01140 


BT 


TBSTRT, DSATl+5, 6, 


CUTTER START UP ON TABCYL 

11832 27 02410 


13326 


01150 SETZRO 


TFL 


VNO, 0. Ot • 


INITIALIZATION 11844 06 03240 


06034 


01160 


TFL 


VFIX2,0.0 


11856 06 03219 


06034 


01170 


TDM 


ETEST, 1 


11868 15 03220 


00001 


01180 


BT 


MONITR, DSAM2»5, 6, 


CALL ENOPNT SUBPROGRAM VIA MONITR 

11880 27 02400 


13126 


01190 


BTM 


6NDPNT, VNA, 67, 


VN4ȣND POINT COORO OF A CURVE SEGMENT 








11892 17 02410 


-3230 


01200 PEN01 


BT 


M0NITR,DSAM3*5.6, 


CALL PARAM SUBPROGRAM VIA MONITR 





11904 27 02400 13136 



02010 




BT 


PA RAM, OS AT2 +6, 6, 


MAX SLOPE ANO R OF C FOR END POINT 

11916 27 02410 13337 


02020 


PCURI 


BT 


MONITR, DSAM4+5, 6* 


CALL PARAM SUBPROGRAM VIA MONITR 

11928 27 02400 13146 


020 30 




BT 


PARAM f 0SAT3+6*6, 


SLOPE ANO MIN R OF C FOR CURRENT POINT 

11940 27 02410 13349 


02040 


CHORl 


BT 


MONITR, DSAM5*5»6» 


CALL CHOROL SUBPROGRAM VIA MONITR 

11952 27 02400 13156 


02050 




BT 


CH0RDL»DSAT4*10,6» 


DVi-CHORO LENGTH 11964 27 02410 13365 


02060 


VNSETl 


TFL 


VNl, VNO, , 


SET VNl«NEXT POSITION OF TOOL CENTER 

11976 06 03270 03240 


02070 




FAOO 


VNl,DVl 


11988 01 03270 13950 


02080 




BT 


M0NITR,DSAM6+5»6, 


CALL XYFORM SUBPROGRAM VIA MONITR 

12000 27 02400 13166 


02090 




BT 


XYFQRM,DSAT5*10,6» 


(XNl.YNl) TRANSFORMED FROM (V,U) POINT 

12012 27 02410 13381 


02100 


DELTA! 


TFL 


OVTEST, VNl,, 


TEST 0V1 EXCEEOS END POINT 

12024 06 03082 03270 


02110 




FSU8 


DVTEST.VN4 


12036 02 03082 03230 


02120 




BNL 


ENDVNl • , , 


FIRST INTERVAL EXCEEOS ENO POINT 

12048 46 12120 01300 


02130 




FAOO 


OVTEST, DVl,. 


TEST 2*0V1 EXCEEDS END POINT 








12060 01 03082 13950 


02140 




BL 


SETUP,,, 


CALCULATE PARAMETERS FOR POINT (N*2) 








12072 47 12456 01300 


02150 




BT 


CUTVNI ,DSAVl*5, , 


SET VNl-CUT POINT 12084 27 13560 13508 


02160, 




BT 


MONITR, DSAM7*5, 6, 


CALL XYFORM SUBPROGRAM VIA MONITR 








12096 27 02400 13176 


02170 




BT 


XYFORM, 0SAT5* 10,6, 


IXN1,YNI) TRANSFORMED FROM f V,U> POINT 








12108 27 02410 13381 


02180* 


FIRST INTERVAL EXCEEDS 


END POINT 


02190 


EN0VN1 


TFL 


VNl,VN4,, 


SET VNl«ENO POINT 12120 06 03270 03230 


02200 




BT 


M0NITR»DSAM8*5,6, 


CALL XYFORM SUBPROGRAM VIA MONITR 








12132 27 02400 13186 


03010 




BT 


XYFORM, DSAT5*10, 6, 


(XNl,YNl> TRANSFORMED FROM (V,U) POINT 








12144 27 02410 13381 


03020* 


STEP STORAGE ADDRESSES 


FOR NEXT POINT-CHECK FOR LAST POINT 


03030 


NEXT! 


BT 


NEXTPT»NEXTPT-l , , 


ADDRESS SET FOR NEWINT RETURN 






12156 27 13610 13609 


03040 


NEWINT 


8T 


MONITR, DSAM9*5, 6, 


CALL ENOPNT SUBPROGRAM VIA MONITR 






12168 27 02400 13196 


03050 




BTM 


ENDPNT,VN4,67, 


VN4-END POINT COORO OF A CURVE SEGMENT 






12180 17 02410 -3230 


03060 


PEND2 


BT 


MONITR ,DSAM10»5,6, 


CALL PARAM SUBPROGRAM VIA MONITR 






12192 27 02400 13206 


03070 




BT 


PARAM, 0SAT2*6,6, 


MAX SLOPE ANO R OF C FOR ENO POINT 






12204 27 02410 13337 


03080 


PCUR2 


BT 


MONITR, DSAMll*5, 6, 


CALL PARAM SUBPROGRAM VIA MONITR 






12216 27 0240O 13216 


03090 




BT 


PARAM, 0SAT6*6,6» 


SLOPE ANO MIN R OF C FOR CURRENT POINT 






12228 27 02410 13393 


03100 


CH0R2 


BT 


M0NITR,DSAM12*5,6, 


CALL CHOROL SUBPROGRAM VIA MONITR 






12240 27 02400 13226 


03110 




BT 


CHOROL, 0SAT7+10, 6, 


0V2»CH0RD LENGTH 12252 27 02410 13409 


03120* 


SET VN2-NEXT POSITICN 


OF TOOL CENTER 


03130* 


TEST 0V2 AND 2*0V2 EXCEEDS ENO POINT 


03140 


VNSET2 


BTM 


SE T VN2 , E NO VN2 » • 


ENDVN2-BNL RETURN ADORESS ] 






12264 17 13830 J2336 


03150 


f I XVN2 


BT 


CUTVNI ,0SAV2*5,, 


SET VN2-CUT POINT 12276 27 13560 13518 



183 



01160 

Oil TO TRFVN2 

0)160 

01190 

'j1?go* 

04010 fNUVN? 
04020 

04030 

04040 

0*050 

04060* 
04070 NEWPT 

04080 ENOINT 

04090 

04100 PEND1 

04U0 

04120* 
04130 SFTUf 



TFL VFIX2,VN2,, F I X NE X If VN2 TO BE THE SAME 

12288 06 03219 03300 
TFM RTRA0n»6, SETUP,, SET RETURN ADDRESS FOR NEXT POINT 

12300 16 13106 J2456 
ST MONl TR,DSAM13*5,6, CALL XYFORM SUBPROGRAM VIA MONITR 

12312 27 02400 13236 
BT XYFORM, n<,AT8*10,fr, f XN^,YN21 transformed FROM (V,U) point 

1?3?4 21 02410 13425 

SECOND INTERVAL- FKCEFDS' FND »»01NT 
TFL , VN2,VN4,.» SET VN2*EN0 POINT 12316 06 03300 03230 

TOM ETfST.O,, SET ETEST FLAG FOR END POINT 

12348 15 03220 00000 
SET RETURN AOORESS FOR NEXT POINT 

12360 16 13106 J2396 
M0NITR,0SAM14*5,6# CALL XYFORM SUBPROGRAM VIA MONITR 

12372 27 02400 13236 
(XN2,YN2J TRANSFORMED FROM (V,U> POINT 

12384 27 02410 1342$ 
STEP STORAGE ADDRESSES FOR NEXT POINT-CHECK FOR LAST POINT 
BT NEXTPT.NEXTPT*!,, ADDRESS SET FOR ENOINT RETURN 

12396 27 13610 13609 
8f MONITR, nSAMl5*5, 6, CALL ENOPNT SUBPROGRAM VIA MONITR 

12408 27 02400 13246 
BTM EN0PNTtVN4»67# VN4«EN0 POINT COORO OF A CURVR SEGMENT 

12420 17 02410 -3230 
BI MONITR#DSAMl6*5i6t CALL PARAM SUBPROGRAM VIA MONITR 

12412 27 02400 13256 
BT PARAM, DSAt2*6,6# MAX SLOPE AND R OF C FOR END POINT 

12444 27 02410 13337 

SET IM> rn» NeXT POINT ON TABCYL 



TFH RT*A0D*6,NEWPT«, 
BT 

BT XYFORM, 0SAT8*l0t6, 



05040* 
05050* 



FSUB VFU?,a.Oit TEST VN2 FIXEO 12456 02 03219 06034 

VF1X2»( NEGATIVE OR ZERO) 

12468 47 12500 OUOO 
VFIX2-P0SITIVE (RESET FIX FLAG ) 

12480 06 03219 06034 
SET VN2»EN0 POINT 12492 49 12336 00000 

TEST ETEST FLAG SET 12500 43 12536 03220 
ETEST-POSITIVE (RESET ETEST) 

12512 15 03220 00001 
RESET VN1 12524 06 03270 06034 

CALL PARAM SUBPROGRAM VIA MUNITR 

12516 27 02400 13266 
SLOPE AND M IN R OF C FOR CURRENT POINT 

12548 27 02410 13437 
CALL CHOROL SUBPROGRAM VIA MONITR 

12560 27 02400 13276 
DV2«CHOR0 LENGTH 12572 27 02410 13409 

SET VN2«NfXT POSITICN OF TOOL CENTER 
TEST DV2 ANU 2*DV2 EXCEEDS END POINT 

CHKVN1 *8NL RETURN ADDRESS 

12584 17 13830 J2596 
TEST VN1«0.0 12596 14 03270 000-0 

VN 1*0.0 (SET VN2«EN0 POINT) 

12608 47 12136 01300 
SET VN1-CUT POINT 12620 27 13560 13508 

CALL XYFORM SUBPROGRAM VIA MONITR 

12632 27 02400 13176 
(XN1,YN1) TRANSFORMED FRM IV, Ul POINT 

12644 27 02410 13381 

DETERMINE SIGN FOR CUTTER OFFSET 



04140 




BNH 


ECHFCK,,, 




04150 




TFL 


VP j X2,0.0, » 




04160 
0