home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / romdump.asc < prev    next >
Text File  |  2023-02-26  |  1KB  |  33 lines
  1.      ORG $300
  2.  
  3.      LDA #1
  4.      STA 0     ; TELL THE SYSTEM YOU FINISHED RUNNING THIS CODE ok SO THE
  5.                ; DISK DRIVE CAN DO OTHER WORK, LIKE WRITING BYTES 
  6.      CLI       ; ALL SECTORS ARE WRITTEN IN THE INTERRUPT CYCLE
  7.      STA $83   ; CURRENT SECONDARY ADDRESS
  8.      LDA $022C ; DISK DRIVE INTERNAL CHANNEL FOR SECONDARY ADDRESS 1
  9.      AND #7
  10.      STA $82   ; CURRENT DISK DRIVE INTERNAL CHANNEL
  11.      LDA LUP+1 ; PUT THE LOAD BYTES TO FILE 1
  12.      JSR PUT
  13.      LDA LUP+2
  14.      JSR PUT
  15. LUP  LDA FSTAD ; YES, THIS IS SELF-MODIFYING CODE
  16.      JSR PUT   ; TO CHANGE THE ADDRESS FROM FSTAD TO THE CURRENT ADDRESS
  17.      INC LUP+1 ; UNFORTUNATELY, i COULDN'T FIND A ZERO PAGE ADDRESS WHICH
  18.      BNE NINC ; DIDN'T GET CORRUPTED, SO i HAD TO DO IT THIS WAY
  19.      INC LUP+2 
  20. NINC LDA LUP+2
  21.      CMP TOP+1
  22.      BNE LUP
  23.      LDA LUP+1
  24.      CMP TOP
  25.      BNE LUP
  26.      JSR CLOSE
  27.      LDA #2
  28.      STA $83
  29.      JMP CLOSE
  30. TOP .WORD FINALADDRESS+1 MOD 65536
  31. PUT   =  $D19D ; PUT A BYTE IN THE CURRENT DISK FILE
  32. CLOSE =  $DAC0
  33.