* 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