Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50531/cmpcor.mac
There are no other files named cmpcor.mac in the archive.
00100 title CMPCOR - compilers reenter core allocator
00200
00300 t1=1
00400 t2=2
00500 p=17
00600
00700 extern wrk.sz
00800
00900 .jbren==124
01000 loc .jbren
01100 exp corall
01200
01300 reloc 0 ;get into low segment
01400
01500 corall: outstr [asciz /
01600 Number of words to assign to stack+heap: /]
01700 setzb t1,t2
01800 coralp: inchwl t2
01900 cail t2,60 ;better be a digit
02000 caile t2,71
02100 jrst coralx
02200 subi t2,60
02300 imuli t1,^D10 ;add into number being built up
02400 add t1,t2
02500 jrst coralp ;and try for another digit
02600 coralx: caie t2,15 ;should end in cr
02700 jrst corale
02800 inchwl t2 ;read lf
02900 movem t1,wrk.sz ;store final value
03000 outstr [asciz /[Size set - START or SAVE the program]
03100 /]
03200 exit
03300
03400 corale: outstr [asciz /
03500 ? Type a decimal number, end with CRLF
03600 /]
03700 clrbfi
03800 jrst corall
03900
04000 end