home *** CD-ROM | disk | FTP | other *** search
- ;old.asm
- ;=========================================
- ; Command: old (recovers from new)
- ;=========================================
-
- txttab = $002d ; pointer to start of BASIC text
- z61 = $0061 ; pointer into text used by LNKPRG
- txttop = $1220 ; pointer to first byte after BASIC text
- lnkprg = $af87 ; relink BASIC and set new TXTTOP
- runc = $4f82 ; set txtptr to (txtab) and CLR
- int0e = $170e ; program terminate
-
- star = $0b00
- .wor star
- * = star
-
- jmp old
- dw Date
-
- old lda #1
- ldy #0
- sta (txttab),y
- jsr lnkprg
- jsr runc
- jmp int0e
-
- .end
-