2024-06-20 21:44:52 -04:00
|
|
|
.include "../zp.inc"
|
|
|
|
|
2024-07-17 13:18:01 -04:00
|
|
|
which_disk_bcd:
|
2024-06-20 21:44:52 -04:00
|
|
|
.byte $01 ; BCD
|
|
|
|
|
2024-07-17 13:18:01 -04:00
|
|
|
which_disk_bin:
|
|
|
|
.byte 1
|
|
|
|
|
2024-06-20 21:44:52 -04:00
|
|
|
load_address_array:
|
2024-07-01 12:02:52 -04:00
|
|
|
.byte $40,$40,$40,$40 ; TITLE, ARRIVAL, ARRIVAL2, TELESCOPE
|
2024-06-20 21:44:52 -04:00
|
|
|
.byte $00,$00,$00,$00
|
|
|
|
|
|
|
|
track_array:
|
2024-07-17 13:59:02 -04:00
|
|
|
.byte 0, 2, 9,16 ; TITLE, ARRIVAL, ARRIVAL2, TELESCOPE
|
2024-06-20 21:44:52 -04:00
|
|
|
.byte 0,0,0,0
|
|
|
|
|
|
|
|
sector_array:
|
2024-07-03 16:07:01 -04:00
|
|
|
.byte 8, 0, 0, 0 ; TITLE, ARRIVAL, ARRIVAL2, TELESCOPE
|
2024-06-20 21:44:52 -04:00
|
|
|
.byte 0,0,0,0
|
|
|
|
length_array:
|
2024-07-17 13:59:02 -04:00
|
|
|
.byte 8, 112,112, 112 ; TITLE, ARRIVAL, ARRIVAL2, TELESCOPE
|
2024-06-20 21:44:52 -04:00
|
|
|
.byte 0,0,0,0
|
|
|
|
|
|
|
|
|
2024-07-17 13:18:01 -04:00
|
|
|
disk_exit_disk: ; note: not BCD anymore
|
|
|
|
.byte 39 ; zap to temple for now
|
|
|
|
.byte 0,0,0
|
|
|
|
disk_exit_disk_bcd:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte $39 ; zap to temple for now
|
|
|
|
.byte 0,0,0
|
2024-06-20 21:44:52 -04:00
|
|
|
disk_exit_dni_h:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte $01 ; 39 = 1*25 + 2*5 + 4
|
|
|
|
.byte 0,0,0
|
2024-06-20 21:44:52 -04:00
|
|
|
disk_exit_dni_l:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte $24
|
|
|
|
.byte 0,0,0
|
|
|
|
|
|
|
|
; want to go to disk39, LOAD_PROJECTOR, RIVEN_PROJECTOR, W
|
|
|
|
|
2024-06-20 21:44:52 -04:00
|
|
|
disk_exit_load:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte 2 ; LOAD_PROJECTOR
|
|
|
|
.byte 0,0,0
|
2024-06-20 21:44:52 -04:00
|
|
|
disk_exit_level:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte 0 ; RIVEN_PROJECTOR
|
|
|
|
.byte 0,0,0
|
2024-06-20 21:44:52 -04:00
|
|
|
disk_exit_direction:
|
2024-06-25 01:33:10 -04:00
|
|
|
.byte DIRECTION_W
|
|
|
|
.byte 0,0,0
|