home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / text / examples.arc / OLD.A < prev    next >
Encoding:
Text File  |  1989-12-01  |  1.1 KB  |  28 lines

  1. ;old.asm
  2. ;=========================================
  3. ; Command:  old       (recovers from new)
  4. ;=========================================
  5.                                   
  6. txttab      = $002d               ; pointer to start of BASIC text
  7. z61         = $0061               ; pointer into text used by LNKPRG
  8. txttop      = $1220               ; pointer to first byte after BASIC text
  9. lnkprg      = $af87               ; relink BASIC and set new TXTTOP
  10. runc        = $4f82               ; set txtptr to (txtab) and CLR
  11. int0e       = $170e               ; program terminate
  12.                                   
  13. star        = $0b00               
  14.             .wor star             
  15.             * = star              
  16.  
  17.             jmp old
  18.             dw  Date
  19.                       
  20. old         lda #1                
  21.             ldy #0                
  22.             sta (txttab),y        
  23.             jsr lnkprg            
  24.             jsr runc              
  25.             jmp int0e             
  26.                                   
  27.             .end                  
  28.