Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-12-13 15:30:04 +00:00
Code Issues Projects Releases Wiki Activity

Moved WeeGUI down, clear of BASIC.SYSTEM’s buffer

Browse Source 
Temporarily removed memory map management, pending more evaluation of the right way to do that.
This commit is contained in:
blondie7575 2017-12-22 15:57:55 -07:00
parent 5cb58f44dc
commit 23272a30fd
4 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -11,7 +11,7 @@
CL65=cl65 CL65=cl65
AC=AppleCommander.jar AC=AppleCommander.jar
ADDR=7a00 ADDR=7800
ADDRDEMO=6000 ADDRDEMO=6000
PGM=weegui PGM=weegui

2
WeeGUI_MLI.s
View File

@ -21,7 +21,7 @@ PARAM3 = $09
; WeeGUI entry point ; WeeGUI entry point
; Set up your call, then do a JSR to this address. ; Set up your call, then do a JSR to this address.
; ;
WeeGUI = $7a04 WeeGUI = $7804 ; Offset of WGDispatch from 7800
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

BIN
weegui.dsk
View File

Binary file not shown.

50
weegui.s
View File

@ -7,7 +7,7 @@
; ;
.org $7a00 .org $7800
; Common definitions ; Common definitions
@ -84,7 +84,7 @@ WGInit:
; ;
; See section 5.1.4 in the ProDOS 8 Technical Reference Manual ; See section 5.1.4 in the ProDOS 8 Technical Reference Manual
; for an explanation of these values. We're reserving memory ; for an explanation of these values. We're reserving memory
; pages $7b-$95 so that ProDOS won't use our memory for file ; pages $78-$94 so that ProDOS won't use our memory for file
; buffers, or allow Applesoft to step on us ; buffers, or allow Applesoft to step on us
; ;
; Byte in System Bitmap : Bit within byte ; Byte in System Bitmap : Bit within byte
@ -101,20 +101,20 @@ WGInit:
; 12:100 ; 12:100
; 12:011 ; 12:011
; 12:010 ; 12:010
lda #%00001111 ; lda #%00001111
tsb MEMBITMAP + $0f ; tsb MEMBITMAP + $0f
lda #%11111111 ; lda #%11111111
tsb MEMBITMAP + $10 ; tsb MEMBITMAP + $10
tsb MEMBITMAP + $11 ; tsb MEMBITMAP + $11
lda #%11111100 ; lda #%11111100
tsb MEMBITMAP + $12 ; tsb MEMBITMAP + $12
; Protect us from Applesoft by setting up HIMEM ; Protect us from Applesoft by setting up HIMEM
lda #$79 ; 7a00 (really 79ff) ; lda #$77 ; 7800 (really 77ff)
sta LINNUMH ; sta LINNUMH
lda #$ff ; lda #$ff
sta LINNUML ; sta LINNUML
jsr SETHI ; jsr SETHI
jsr WG80 ; Enter 80-col text mode jsr WG80 ; Enter 80-col text mode
jsr WGInitApplesoft ; Set up Applesoft API jsr WGInitApplesoft ; Set up Applesoft API
@ -150,19 +150,19 @@ WGExit:
sta INVERSE sta INVERSE
; Restore HIMEM to ProDOS default ; Restore HIMEM to ProDOS default
lda #$96 ; lda #$96
sta LINNUMH ; sta LINNUMH
stz LINNUML ; stz LINNUML
jsr SETHI ; jsr SETHI
; Remove ourselves from ProDOS memory map ; Remove ourselves from ProDOS memory map
lda #%00001111 ; lda #%00001111
trb MEMBITMAP + $0f ; trb MEMBITMAP + $0f
lda #$ff ; lda #$ff
trb MEMBITMAP + $10 ; trb MEMBITMAP + $10
trb MEMBITMAP + $11 ; trb MEMBITMAP + $11
lda #%11111100 ; lda #%11111100
trb MEMBITMAP + $12 ; trb MEMBITMAP + $12
pla pla
rts rts