Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 100

4369 04531 1 04 00002 STA 2,1 SAVE LOWER 15 BITS 4370 04532 140040 CRA CLEAR B 4371 04533 000201 IAB 4372 04534 0401 77 LRS 1 FORM CORRECT MS WORD 4373 04535 1 04 00001 STA 1,1 4374 04536 000201 IAB GET BACK 2^15 BIT FROM B2 4375 04537 0414 77 LGL 1 PUT INTO A1 4376 04540 1 05 00002 ERA 2,1 OR IN LOWER 15 BITS 4377 04541 1 04 00002 STA 2,1 4378 * 4379 * NEXT 4380 04542 0 12 00100 IRS IP 4381 04543 -0 01 00100 JMP* IP 4382 * OVERFLOW 4383 * -2^15 * -2^15 => -2^30, SHOULD BE +2^30 4384 04544 0 02 00717 MST1 LDA ='040000 4385 04545 1 04 00001 STA 1,1 4386 04546 140040 CRA 4387 04547 1 04 00002 STA 2,1 4388 * 4389 * NEXT 4390 04550 0 12 00100 IRS IP 4391 04551 -0 01 00100 JMP* IP 4392 ENDC 4393 EJCT
  Previous Page Single Page Next Page