diff --git a/src/common/2/Apple.Globals2.asm b/src/common/2/Apple.Globals2.asm index b688afd..149eff9 100644 --- a/src/common/2/Apple.Globals2.asm +++ b/src/common/2/Apple.Globals2.asm @@ -57,6 +57,8 @@ cout = $fded move = $fe2c inverse = $fe80 normal = $fe84 +setkbd = $fe89 +setvid = $fe93 outport = $fe95 monitor = $ff69 diff --git a/src/shell/2/conio.asm b/src/shell/2/conio.asm index db339ba..018372b 100644 --- a/src/shell/2/conio.asm +++ b/src/shell/2/conio.asm @@ -28,8 +28,8 @@ messx: lda msgp+1 suspend80: .byte 0 -on80: jsr $fe89 - jsr $fe93 +on80: jsr setkbd + jsr setvid jsr f8rom_init ; $fb2f jsr home lsr suspend80 diff --git a/src/shell/2/date_time.asm b/src/shell/2/date_time.asm index 7e21cf7..b77ffd5 100644 --- a/src/shell/2/date_time.asm +++ b/src/shell/2/date_time.asm @@ -11,7 +11,7 @@ print_time: jsr validate_year_number sec - jsr $fe1f + jsr $fe1f ;an RTS in not-IIgs bcs :+ ;not IIgs lda cfgclock ;Use IIgs clock? bne doGSclk diff --git a/src/shell/2/davex_io.asm b/src/shell/2/davex_io.asm index a1eca1b..8deadb6 100644 --- a/src/shell/2/davex_io.asm +++ b/src/shell/2/davex_io.asm @@ -373,7 +373,7 @@ mg_notdl: bmi noApple not_CR: bit exec_flag bmi lit_char ;was noApple 5-Feb-90 - ldy $fbb3 + ldy $fbb3 ;contains $38 (sec) in original Apple II ROM, $06 in IIe cpy #6 bne noApple ;do we have a machine with an Apple key? ldy button0 ;Apple key down? diff --git a/src/shell/2/init.asm b/src/shell/2/init.asm index 7411bf6..c96fbab 100644 --- a/src/shell/2/init.asm +++ b/src/shell/2/init.asm @@ -97,7 +97,7 @@ two_e: ror two_e_flag no80xc: txa pha sec - jsr $fe1f + jsr $fe1f ;Contains RTS in not-IIgs pla bcs no_IIgs ora #%00001000 ;IIgs diff --git a/src/shell/2/printer.asm b/src/shell/2/printer.asm index 74dc370..e01a702 100644 --- a/src/shell/2/printer.asm +++ b/src/shell/2/printer.asm @@ -489,7 +489,7 @@ HardCopy: hc1: lda $25 ;vertical position - jsr $fbc1 ;BASCALC + jsr bascalc hc2: ldy $24 ;horizontal position jsr fetch_ch jsr hcwrite