0 Members and 2 Guests are viewing this topic.
;(saferam1 = saveSScreen)name_str = saferam1size = saferam1+2code_start = saferam1+4start: bcall(_RclAns) ;set pointer into OP1 cp 4 ret nz ld hl,$55 ;ASCII for 'U' ld (name_str),hl ;save zero terminated string name ld (OP1+1),hl ld hl,code_start ex de,hl ;de = code_start, hl = ans ptr? ld c,(hl) ;i assume bc = size of Ans inc hl ld b,(hl) inc hl ld (size),bc ldir ;copy code in Ans into saferam bcall(_ChkFindSym) jr c,not_found bcall(_DelVarArc) ;del prgmU if it existednot_found: ld a,5 ;5 = non-protected program ld hl,saferam1 bcall(_ExecuteNewPrgm) ;a = var type, hl = pointer to structure (zero terminated string, size (word), program data) ret
Was that to me? I don't understand ASM... But by the way I want to learn it though.