Apple-2-SW/a2fc.system
1
0
Fork 0
mirror of https://github.com/a2-4am/a2fc.system.git synced 2024-11-16 11:04:32 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #5 from peterferrie/master

Browse Source 
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
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/a2fc.system.a
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 {