OVFL

* SUBR OVFL 24-11-70 EI PAGE 1

0001 * SUBR OVFL 24-11-70 EI 0002 REL 0003 SUBR OVFL 0004 00000 0 000000 OVFL DAC ** 0005 00001 0 04 00021 STA T+1 0006 00002 100400 SPL 0007 00003 0 01 00011 JMP MIN 0008 00004 0 07 00023 SUB ='16 IS IT > 16? 0009 00005 100400 SPL 0010 00006 0 01 00016 JMP OK NO 0011 00007 0 02 00023 LDA ='16 YES - SUBSTITUTE 16 0012 00010 -0 01 00000 JMP* OVFL 0013 00011 0 06 00023 MIN ADD ='16 IS IT < -16? 0014 00012 101400 SMI 0015 00013 0 01 00016 JMP OK NO 0016 00014 0 02 00022 LDA ='-16 YES - SUBSTITUTE -16 0017 00015 -0 01 00000 JMP* OVFL 0018 00016 0 02 00021 OK LDA T+1 0019 00017 -0 01 00000 JMP* OVFL 0020 00020 T BSS 2 0021 00022 177762 END 00023 000016 MIN 000011 OK 000016 OVFL 000000 T 000020 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71