SECT SUBR JA #ST #XR, ORG .+10 TEXT +SUBR + #RET, SETX #XR SETB #BASE JA .+3 #BASE, ORG .+6 J, ORG .+3 ORG #BASE+30 FNOP JA #RET FNOP #GOBAK, 0;0 #ARGS, ORG .+3 #TMP, ORG .+0011 #LIT, 0001 2000 0000 0002 3000 0000 0003 3000 0000 #LBL=. ORG #LBL #RTN, BASE #BASE JA #GOBAK #ST, STARTD 0210 FSTA #GOBAK,0 0200 SETX #XR SETB #BASE TRAP4 AD1 /8-MODE LDX 0,1 FSTA #BASE FSTA #ARGS FLDA% #BASE,1+ FSTA J STARTF LDX 0002,0 LDX 0003,0 FLDA% J FADD #LIT+0000 FSTA% J LDX 0004,0 EXTERN #NE JA #RTN LDX 00005,0 EXTERN #NE JA #RTN AD1, 0 NOP CDF CIF 00 JMP% AD1