EXTERN CARRY EXTERN DROP SECT MOVE JA #ST #XR, ORG .+10 TEXT +MOVE + #RET, SETX #XR SETB #BASE JA .+3 #BASE, ORG .+6 OBJECT, ORG .+3 WHERE, ORG .+3 ORG #BASE+30 FNOP JA #RET FNOP #GOBAK, 0;0 FROM, ORG .+0003 HUND, F 100.0 THREHN, F 300.0 #LBL=. COMMON PLACOM ATLOC, ORG .+0702 LINK, ORG .+1130 PLACE, ORG .+0454 FIXED, ORG .+0454 HOLDNG, ORG .+0003 ORG #LBL #RTN, BASE #BASE JA #GOBAK #ST, STARTD 0210 FSTA #GOBAK,0 0200 SETX #XR SETB #BASE LDX 0,1 FSTA #BASE FLDA% #BASE,1+ FSTA OBJECT FLDA% #BASE,1+ FSTA WHERE STARTF FLDA% OBJECT FSUB HUND JGT #1 FLDA% OBJECT ATX 7 FLDA PLACE-0003,7 FSTA FROM JA #2 #1, ATX 7 FLDA FIXED-0003,7 FSTA FROM #2, JLE #G0001 FLDA FROM FSUB THREHN JGT #G0001 FLDA OBJECT STARTD FSTA #G0002 STARTF JSR CARRY JA .+0006 #G0002, JA . JA FROM #G0001, FLDA OBJECT STARTD FSTA #G0003 STARTF FLDA WHERE STARTD FSTA #G0004 STARTF JSR DROP JA #RTN #G0003, JA . #G0004, JA . END