Merge pull request #5 from peterferrie/master

support display on IIGS
This commit is contained in:
4am 2018-01-09 20:05:23 -05:00 committed by GitHub
commit 8e324cdb3b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -47,10 +47,17 @@ Start
+ jsr MLI ; open file + jsr MLI ; open file
!byte kMLIOpen !byte kMLIOpen
!word mliParamForOpen !word mliParamForOpen
inx ; convert to kMLIReadOrQuitCount inx ; convert to kMLIReadOrQuitCount, clear Z flag
stx <mliparam ; set parameter count for MLI call stx <mliparam ; set parameter count for MLI call
; both Read and Quit accept four parameters ; both Read and Quit accept four parameters
jmp ReadFile !cpu 65816
sep #2 ; set Z flag on 65816 only
!cpu 6502
bne + ; conditionally skip GS-specific code
lda $c029
and #$1f
sta $c029
+ jmp ReadFile
CodeStart CodeStart
!pseudopc $50 { !pseudopc $50 {