TITLE ALLOC - TRANSLATED BY MACRO ENTRY ALCORE,DECORE,INTCOR EXTERN TRACE.,EXIT,ALCOR.,DECOR. SIXBIT /INTCOR/ ;0 515664,435762 INTCOR: HLRZ -1(16) ;1 554016,777777 CAIE -1 ;2 302000,777777 JRST INTCOR+7 ;3 254000,10 SKIPE 1,@(16) ;4 332076,0 JRST INTCOR+10 ;5 254000,11 SKIPE DECORE+37 ;6 332000,143 POPJ 17, ;7 263740,0 MOVEI 1,31 ;10 201040,31 CAIL 1,5 ;11 301040,5 CAILE 1,144 ;12 303040,144 JRST INTCOR+27 ;13 254000,30 MOVNM 1,DECORE+37 ;14 212040,143 ASH 1,1 ;15 240040,1 MOVEM 1,DECORE+47 ;16 202040,153 MOVEM 16,DECORE+50 ;17 202700,154 MOVEI 16,DECORE+46 ;20 201700,152 PUSHJ 17,ALCOR. ;21 260740,0 MOVE 16,DECORE+50 ;22 200700,154 JUMPLE ALCORE+31 ;23 323000,64 HRRM DECORE+40 ;24 542000,144 SUB DECORE+37 ;25 274000,143 HRRM DECORE+41 ;26 542000,145 POPJ 17, ;27 263740,0 OUTSTR DECORE+51 ;30 51140,155 JRST ALCORE+5 ;31 254000,40 SIXBIT /ALCORE/ ;32 415443,576245 ALCORE: HRLZ 1,DECORE+37 ;33 514040,143 SKIPN @DECORE+40 ;34 336020,144 JRST ALCORE+7 ;35 254000,42 AOBJN 1,ALCORE+1 ;36 253040,34 OUTSTR DECORE+62 ;37 51140,166 PUSHJ 17,TRACE. ;40 260740,0 PUSHJ 17,EXIT ;41 260740,0 LDB DECORE+73 ;42 135000,177 MOVSI 2,-3 ;43 205100,777775 CAME DECORE+42(2) ;44 312002,146 AOBJN 2,ALCORE+11 ;45 253100,44 MOVE @1(16) ;46 200036,1 JUMPLE INTCOR+27 ;47 323000,30 JUMPGE 2,ALCORE+20 ;50 325100,53 LSH 0,1 ;51 242000,1 AOJ 0 ;52 340000,0 MOVEM DECORE+47 ;53 202000,153 MOVEM 16,DECORE+50 ;54 202700,154 MOVEI 16,DECORE+46 ;55 201700,152 PUSHJ 17,ALCOR. ;56 260740,21 MOVE 16,DECORE+50 ;57 200700,154 JUMPG ALCORE+35 ;60 327000,70 HLRZ -1(16) ;61 554016,777777 CAIN -4 ;62 306000,777774 JRST ALCORE+33 ;63 254000,66 OUTSTR DECORE+74 ;64 51140,200 JRST ALCORE+5 ;65 254000,40 POP 17,(17) ;66 262757,0 JRST @3(16) ;67 254036,3 MOVEM @DECORE+40 ;70 202020,144 SOJ 0 ;71 360000,0 MOVE @0 ;72 200020,0 MOVEM @DECORE+41 ;73 202020,145 MOVE @DECORE+40 ;74 200020,144 SUBI @(16) ;75 275036,0 JUMPGE 2,ALCORE+46 ;76 325100,101 AOJ 0 ;77 340000,0 LSH 0,-1 ;100 242000,777777 MOVEM @2(16) ;101 202036,2 POPJ 17, ;102 263740,0 SIXBIT /DECORE/ ;103 444543,576245 DECORE: LDB DECORE+73 ;104 135000,177 MOVSI 2,-3 ;105 205100,777775 CAME DECORE+42(2) ;106 312002,146 AOBJN 2,DECORE+2 ;107 253100,106 MOVE @1(16) ;110 200036,1 CAIGE 2,0 ;111 305100,0 LSH 0,1 ;112 242000,1 ADDI 0,@(16) ;113 271036,0 HRLZ 1,DECORE+37 ;114 514040,143 CAMN @DECORE+40 ;115 316020,144 JRST DECORE+21 ;116 254000,125 AOBJN 1,DECORE+11 ;117 253040,115 JUMPGE 2,DECORE+17 ;120 325100,123 SOS 2,0 ;121 370100,0 JRST DECORE+10 ;122 254000,114 OUTSTR DECORE+105 ;123 51140,211 JRST ALCORE+5 ;124 254000,40 SETZM @DECORE+40 ;125 402020,144 MOVEM DECORE+47 ;126 202000,153 SOJ ;127 360000,0 MOVE 1,@DECORE+41 ;130 200060,145 CAMN 1,@0 ;131 316060,0 JRST DECORE+32 ;132 254000,136 MOVEM 1,@0 ;133 202060,0 OUTSTR DECORE+122 ;134 51140,226 JRST ALCORE+5 ;135 254000,40 MOVEM 16,DECORE+50 ;136 202700,154 MOVEI 16,DECORE+46 ;137 201700,152 PUSHJ 17,DECOR. ;140 260740,0 MOVE 16,DECORE+50 ;141 200700,154 POPJ 17, ;142 263740,0 0 ;143 XWD 1,0 ;144 XWD 1,0 ;145 10 ;146 12 ;147 14 ;150 XWD 777777,0 ;151 DECORE+47 ;152 0 ;153 0 ;154 ;155 ASCIZ / ?ALLAOR The argument is out of range / ;166 ASCIZ / ?ALLATO Core allocation table overflow / ADD 10,(16) ;177 270416,0 ;200 ASCIZ / ?ALLICA Insufficient core for allocation / ;211 ASCIZ / ?ALLADC Attempt to deallocate core that wasn't allocated / ;226 ASCIZ / %ALLEUA Error in the use of the allocated core / END