; exported symbols
.globl init_hardware
.globl map_kernel
+ .globl map_kernel_di
.globl map_kernel_restore
.globl map_process
+ .globl map_process_di
.globl map_process_always
+ .globl map_process_always_di
.globl map_for_swap
- .globl map_save
+ .globl map_save_kernel
.globl map_restore
; imported symbols
; flip r/w on syscall and irq entry/exit.. FIXME.
;
map_kernel:
+map_kernel_di:
map_kernel_restore:
push af
ld a,#0xC0 ; Internal memory, ROM unmapped, IO
pop af
ret
map_process:
+map_process_di:
map_for_swap:
map_process_always:
+map_process_always_di:
push af
ld a,#0xD0 ; External high, ROM unmapped, IO
ld (map_state),a ; (so we can do screen mapping)
out (0xC0),a
pop af
ret
-map_save:
+map_save_kernel:
push af
ld a,(map_state)
ld (map_save_val),a
+ ld a,#0xC0 ; Internal memory, ROM unmapped, IO
+ ld (map_state),a
+ out (0xC0),a
pop af
ret
map_restore:
map_state:
.db 0
map_save_val:
- .db 0
\ No newline at end of file
+ .db 0
;
-; TRS 80 hardware support
+; Genie EG64 hardware support
;
- .module trs80
+ .module genie
; exported symbols
.globl init_early
.globl interrupt_handler
.globl _program_vectors
.globl platform_interrupt_all
- .globl map_kernel
- .globl map_process
- .globl map_process_always
- .globl map_save
- .globl map_restore
.globl go_fast
.globl go_slow
.globl s__COMMONMEM
.globl l__COMMONMEM
+ .globl map_kernel
+ .globl map_process_always
+
.globl _trs80_model
+ .globl _int_disabled
; hard disk helpers
.globl _hd_xfer_in
; -----------------------------------------------------------------------------
.area _COMMONMEM
+_int_disabled:
+ .db 1
+
_platform_monitor:
monitor_spin:
di