10 REM LDASM 15 REM 8 SEP 84 18 DEFSTRF:DEFSNGT:PRINT"=== Loading Object File":OPEN"OBJT.DO"FORINPUTAS1:INPUT#1,A$:GOSUB1000 19 CLEAR256,T:DEFSTRF:DEFSNGT:OPEN"OBJT.DO"FORINPUTAS1 20 IFEOF(1)THEN300 30 INPUT#1,A$ 35 IFA$="END"THEN300 40 IFLEN(A$)<>4THEN200 50 GOSUB1000 60 IFBG=0THENBG=T 70 AD=T 80 GOTO30 200 GOSUB1000 210 POKE AD,T 215 AD=AD+1 220 GOTO30 300 PRINT"=== BEGINING ADDRESS:";BG 310 PRINT"=== ENDING ADDRESS: ";AD-1 320 PRINT"=== LENGTH: ";AD-BG 330 CLOSE 425 PRINT 430 SAVEM"MP",BG,AD,BG 480 PRINT 485 SOUND 1000,2 490 MENU 1000 T=0 1010 FORX=1TOLEN(A$) 1020 F=MID$(A$,X,1) 1030 IFASC(F)>47ANDASC(F)<58THENT1=ASC(F)-48ELSET1=ASC(F)-55 1040 T=T*16+T1 1050 NEXT 1060 RETURN