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