mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-04-27 03:18:02 +00:00
2846 lines
85 KiB
Plaintext
2846 lines
85 KiB
Plaintext
; ACME COMPATIBLE OUTPUT
|
|
!WORD _SEGEND-_SEGBEGIN ; LENGTH OF HEADER + CODE/DATA + BYTECODE SEGMENT
|
|
_SEGBEGIN
|
|
!WORD $6502 ; MAGIC #
|
|
!WORD _SYSFLAGS ; SYSTEM FLAGS
|
|
!WORD _SUBSEG ; BYTECODE SUB-SEGMENT
|
|
!WORD _DEFCNT ; BYTECODE DEF COUNT
|
|
!WORD _INIT ; MODULE INITIALIZATION ROUTINE
|
|
; libsrc/apple/fileio.pla: 0001: include "inc/cmdsys.plh"
|
|
; inc/cmdsys.plh: 0001: import cmdsys
|
|
; DCI STRING: CMDSYS
|
|
!BYTE $C3,$CD,$C4,$D3,$D9,$53
|
|
; CMDSYS -> X000
|
|
; inc/cmdsys.plh: 0002: //
|
|
; inc/cmdsys.plh: 0003: // Useful values for everyone
|
|
; inc/cmdsys.plh: 0004: //
|
|
; inc/cmdsys.plh: 0005: const _SYSVER_ = $0220 // Version built against
|
|
; _SYSVER_ = 544
|
|
; inc/cmdsys.plh: 0006: const FALSE = 0
|
|
; FALSE = 0
|
|
; inc/cmdsys.plh: 0007: const TRUE = not FALSE
|
|
; TRUE = -1
|
|
; inc/cmdsys.plh: 0008: const NULL = 0
|
|
; NULL = 0
|
|
; inc/cmdsys.plh: 0009: //
|
|
; inc/cmdsys.plh: 0010: // Machine ID values
|
|
; inc/cmdsys.plh: 0011: //
|
|
; inc/cmdsys.plh: 0012: const MACHID_CLOCK = $01
|
|
; MACHID_CLOCK = 1
|
|
; inc/cmdsys.plh: 0013: const MACHID_80COL = $02
|
|
; MACHID_80COL = 2
|
|
; inc/cmdsys.plh: 0014: const MACHID_MEM = $30
|
|
; MACHID_MEM = 48
|
|
; inc/cmdsys.plh: 0015: const MACHID_64K = $20
|
|
; MACHID_64K = 32
|
|
; inc/cmdsys.plh: 0016: const MACHID_128K = $30
|
|
; MACHID_128K = 48
|
|
; inc/cmdsys.plh: 0017: const MACHID_MODEL = $C8
|
|
; MACHID_MODEL = 200
|
|
; inc/cmdsys.plh: 0018: const MACHID_II = $00
|
|
; MACHID_II = 0
|
|
; inc/cmdsys.plh: 0019: const MACHID_IIPLUS= $40
|
|
; MACHID_IIPLUS = 64
|
|
; inc/cmdsys.plh: 0020: const MACHID_IIE = $80
|
|
; MACHID_IIE = 128
|
|
; inc/cmdsys.plh: 0021: const MACHID_III = $C0
|
|
; MACHID_III = 192
|
|
; inc/cmdsys.plh: 0022: const MACHID_IIC = $88
|
|
; MACHID_IIC = 136
|
|
; inc/cmdsys.plh: 0023: const MACHID_I = $08
|
|
; MACHID_I = 8
|
|
; inc/cmdsys.plh: 0024: byte MACHID
|
|
; MACHID -> X001
|
|
; inc/cmdsys.plh: 0025: //
|
|
; inc/cmdsys.plh: 0026: // System flags: memory allocator screen holes.
|
|
; inc/cmdsys.plh: 0027: //
|
|
; inc/cmdsys.plh: 0028: const restxt1 = $0001
|
|
; restxt1 = 1
|
|
; inc/cmdsys.plh: 0029: const restxt2 = $0002
|
|
; restxt2 = 2
|
|
; inc/cmdsys.plh: 0030: const resxtxt1 = $0004
|
|
; resxtxt1 = 4
|
|
; inc/cmdsys.plh: 0031: const resxtxt2 = $0008
|
|
; resxtxt2 = 8
|
|
; inc/cmdsys.plh: 0032: const reshgr1 = $0010
|
|
; reshgr1 = 16
|
|
; inc/cmdsys.plh: 0033: const reshgr2 = $0020
|
|
; reshgr2 = 32
|
|
; inc/cmdsys.plh: 0034: const resxhgr1 = $0040
|
|
; resxhgr1 = 64
|
|
; inc/cmdsys.plh: 0035: const resxhgr2 = $0080
|
|
; resxhgr2 = 128
|
|
; inc/cmdsys.plh: 0036: const nojitc = $0100
|
|
; nojitc = 256
|
|
; inc/cmdsys.plh: 0037: const vid80col = $0800
|
|
; vid80col = 2048
|
|
; inc/cmdsys.plh: 0038: //
|
|
; inc/cmdsys.plh: 0039: // Module don't free memory
|
|
; inc/cmdsys.plh: 0040: //
|
|
; inc/cmdsys.plh: 0041: const modflagkeep = $1000
|
|
; modflagkeep = 4096
|
|
; inc/cmdsys.plh: 0042: const modkeep = $2000
|
|
; modkeep = 8192
|
|
; inc/cmdsys.plh: 0043: const modinitkeep = $4000
|
|
; modinitkeep = 16384
|
|
; inc/cmdsys.plh: 0044: //
|
|
; inc/cmdsys.plh: 0045: // CMD exported interface table
|
|
; inc/cmdsys.plh: 0046: //
|
|
; inc/cmdsys.plh: 0047: struc t_cmdsys
|
|
; inc/cmdsys.plh: 0048: word sysver
|
|
; sysver = 0
|
|
; inc/cmdsys.plh: 0049: word syspath
|
|
; syspath = 2
|
|
; inc/cmdsys.plh: 0050: word cmdline
|
|
; cmdline = 4
|
|
; inc/cmdsys.plh: 0051: word modexec
|
|
; modexec = 6
|
|
; inc/cmdsys.plh: 0052: word sysopen
|
|
; sysopen = 8
|
|
; inc/cmdsys.plh: 0053: word sysclose
|
|
; sysclose = 10
|
|
; inc/cmdsys.plh: 0054: word sysread
|
|
; sysread = 12
|
|
; inc/cmdsys.plh: 0055: word syswrite
|
|
; syswrite = 14
|
|
; inc/cmdsys.plh: 0056: byte syserr
|
|
; syserr = 16
|
|
; inc/cmdsys.plh: 0057: byte jitcount
|
|
; jitcount = 17
|
|
; inc/cmdsys.plh: 0058: byte jitsize
|
|
; jitsize = 18
|
|
; inc/cmdsys.plh: 0059: word sysexec[] // Apple II specific
|
|
; sysexec = 19
|
|
; inc/cmdsys.plh: 0060: byte refcons // Apple /// specific
|
|
; refcons = 19
|
|
; inc/cmdsys.plh: 0061: byte devcons // Apple /// specific
|
|
; devcons = 20
|
|
; inc/cmdsys.plh: 0062: word lookupsym
|
|
; lookupsym = 21
|
|
; inc/cmdsys.plh: 0063: word _sysflags_ // Actual system flags (read only, don't write)
|
|
; _sysflags_ = 23
|
|
; inc/cmdsys.plh: 0064: end
|
|
; t_cmdsys = 25
|
|
; inc/cmdsys.plh: 0065: //
|
|
; inc/cmdsys.plh: 0066: // CMD exported functions
|
|
; inc/cmdsys.plh: 0067: //
|
|
; inc/cmdsys.plh: 0068: predef putc(c)#0, putln()#0, puts(s)#0, puti(i)#0, getc()#1, gets(p)#1, putb(b)#0, puth(h)#0
|
|
; PUTC -> X002
|
|
; PUTLN -> X003
|
|
; PUTS -> X004
|
|
; PUTI -> X005
|
|
; GETC -> X006
|
|
; GETS -> X007
|
|
; PUTB -> X008
|
|
; PUTH -> X009
|
|
; inc/cmdsys.plh: 0069: predef call(addr,areg,xreg,yreg,status)#1, syscall(cmd,params)#1
|
|
; CALL -> X010
|
|
; SYSCALL -> X011
|
|
; inc/cmdsys.plh: 0070: predef heapmark()#1, heapallocalign(size, pow2, freeaddr)#1
|
|
; HEAPMARK -> X012
|
|
; HEAPALLOCALIGN -> X013
|
|
; inc/cmdsys.plh: 0071: predef heapalloc(size)#1, heaprelease(newheap)#1, heapavail()#1
|
|
; HEAPALLOC -> X014
|
|
; HEAPRELEASE -> X015
|
|
; HEAPAVAIL -> X016
|
|
; inc/cmdsys.plh: 0072: predef memset(addr,value,size)#0, memcpy(dst,src,size)#0, strcpy(dst,src)#1, strcat(dst,src)#1
|
|
; MEMSET -> X017
|
|
; MEMCPY -> X018
|
|
; STRCPY -> X019
|
|
; STRCAT -> X020
|
|
; inc/cmdsys.plh: 0073: predef toupper(c)#1, sext(a)#1, divmod(a,b)#2, isugt(a,b)#1, isuge(a,b)#1, isult(a,b)#1, isule(a,b)#1
|
|
; TOUPPER -> X021
|
|
; SEXT -> X022
|
|
; DIVMOD -> X023
|
|
; ISUGT -> X024
|
|
; ISUGE -> X025
|
|
; ISULT -> X026
|
|
; ISULE -> X027
|
|
; inc/cmdsys.plh: 0074: end
|
|
; libsrc/apple/fileio.pla: 0001:
|
|
; libsrc/apple/fileio.pla: 0002: include "inc/fileio.plh"
|
|
; inc/fileio.plh: 0001: import fileio
|
|
; inc/fileio.plh: 0002: //
|
|
; inc/fileio.plh: 0003: // Useful ProDOS values
|
|
; inc/fileio.plh: 0004: //
|
|
; inc/fileio.plh: 0005: // MACHID is defined in cmdsys.plh
|
|
; inc/fileio.plh: 0006: // Which slot has a ROM
|
|
; inc/fileio.plh: 0007: const SLTBYT = $BF99
|
|
; SLTBYT = 49049
|
|
; inc/fileio.plh: 0008: // Prefix active
|
|
; inc/fileio.plh: 0009: const PFIXPTR = $BF9A
|
|
; PFIXPTR = 49050
|
|
; inc/fileio.plh: 0010: // Memory alocate bitmap
|
|
; inc/fileio.plh: 0011: const MEMTABL = $BF58
|
|
; MEMTABL = 48984
|
|
; inc/fileio.plh: 0012: //
|
|
; inc/fileio.plh: 0013: // SOS/ProDOS error codes
|
|
; inc/fileio.plh: 0014: //
|
|
; inc/fileio.plh: 0015: const FILE_ERR_OK = $00
|
|
; FILE_ERR_OK = 0
|
|
; inc/fileio.plh: 0016: const FILE_ERR_BAD_CALL_NUM = $01
|
|
; FILE_ERR_BAD_CALL_NUM = 1
|
|
; inc/fileio.plh: 0017: const FILE_ERR_BAD_PARAM_CNT = $04
|
|
; FILE_ERR_BAD_PARAM_CNT = 4
|
|
; inc/fileio.plh: 0018: const FILE_ERR_INT_TBL_FULL = $25
|
|
; FILE_ERR_INT_TBL_FULL = 37
|
|
; inc/fileio.plh: 0019: const FILE_ERR_IO = $27
|
|
; FILE_ERR_IO = 39
|
|
; inc/fileio.plh: 0020: //
|
|
; inc/fileio.plh: 0021: // File entry struc
|
|
; inc/fileio.plh: 0022: //
|
|
; inc/fileio.plh: 0023: struc t_fileentry
|
|
; inc/fileio.plh: 0024: byte store_namelen
|
|
; store_namelen = 0
|
|
; inc/fileio.plh: 0025: byte entry_name[15]
|
|
; entry_name = 1
|
|
; inc/fileio.plh: 0026: byte entry_type
|
|
; entry_type = 16
|
|
; inc/fileio.plh: 0027: word entry_keyptr
|
|
; entry_keyptr = 17
|
|
; inc/fileio.plh: 0028: word entry_blocks
|
|
; entry_blocks = 19
|
|
; inc/fileio.plh: 0029: word entry_EOFL
|
|
; entry_EOFL = 21
|
|
; inc/fileio.plh: 0030: byte entry_EOFH
|
|
; entry_EOFH = 23
|
|
; inc/fileio.plh: 0031: word entry_create[2]
|
|
; entry_create = 24
|
|
; inc/fileio.plh: 0032: byte entry_version
|
|
; entry_version = 28
|
|
; inc/fileio.plh: 0033: byte entry_minver
|
|
; entry_minver = 29
|
|
; inc/fileio.plh: 0034: byte entry_access
|
|
; entry_access = 30
|
|
; inc/fileio.plh: 0035: word entry_aux
|
|
; entry_aux = 31
|
|
; inc/fileio.plh: 0036: word entry_mod[2]
|
|
; entry_mod = 33
|
|
; inc/fileio.plh: 0037: word entry_headptr
|
|
; entry_headptr = 37
|
|
; inc/fileio.plh: 0038: end
|
|
; t_fileentry = 39
|
|
; inc/fileio.plh: 0039: //
|
|
; inc/fileio.plh: 0040: // File info struc
|
|
; inc/fileio.plh: 0041: //
|
|
; inc/fileio.plh: 0042: struc t_fileinfo
|
|
; inc/fileio.plh: 0043: byte file_access
|
|
; file_access = 0
|
|
; inc/fileio.plh: 0044: byte file_type
|
|
; file_type = 1
|
|
; inc/fileio.plh: 0045: word aux_type
|
|
; aux_type = 2
|
|
; inc/fileio.plh: 0046: byte storage_type
|
|
; storage_type = 4
|
|
; inc/fileio.plh: 0047: word blocks_used
|
|
; blocks_used = 5
|
|
; inc/fileio.plh: 0048: word mod_date
|
|
; mod_date = 7
|
|
; inc/fileio.plh: 0049: word mod_time
|
|
; mod_time = 9
|
|
; inc/fileio.plh: 0050: word create_date
|
|
; create_date = 11
|
|
; inc/fileio.plh: 0051: word create_time
|
|
; create_time = 13
|
|
; inc/fileio.plh: 0052: end
|
|
; t_fileinfo = 15
|
|
; inc/fileio.plh: 0053: //
|
|
; inc/fileio.plh: 0054: // File functions
|
|
; inc/fileio.plh: 0055: //
|
|
; inc/fileio.plh: 0056: struc t_fileio
|
|
; inc/fileio.plh: 0057: word getpfx
|
|
; getpfx = 0
|
|
; inc/fileio.plh: 0058: word setpfx
|
|
; setpfx = 2
|
|
; inc/fileio.plh: 0059: word getfileinfo
|
|
; getfileinfo = 4
|
|
; inc/fileio.plh: 0060: word setfileinfo
|
|
; setfileinfo = 6
|
|
; inc/fileio.plh: 0061: word geteof
|
|
; geteof = 8
|
|
; inc/fileio.plh: 0062: word seteof
|
|
; seteof = 10
|
|
; inc/fileio.plh: 0063: word iobufalloc
|
|
; iobufalloc = 12
|
|
; inc/fileio.plh: 0064: word open
|
|
; open = 14
|
|
; inc/fileio.plh: 0065: word close
|
|
; close = 16
|
|
; inc/fileio.plh: 0066: word read
|
|
; read = 18
|
|
; inc/fileio.plh: 0067: word write
|
|
; write = 20
|
|
; inc/fileio.plh: 0068: word create
|
|
; create = 22
|
|
; inc/fileio.plh: 0069: word destroy
|
|
; destroy = 24
|
|
; inc/fileio.plh: 0070: word rename
|
|
; rename = 26
|
|
; inc/fileio.plh: 0071: word newline
|
|
; newline = 28
|
|
; inc/fileio.plh: 0072: word online
|
|
; online = 30
|
|
; inc/fileio.plh: 0073: word readblock
|
|
; readblock = 32
|
|
; inc/fileio.plh: 0074: word writeblock
|
|
; writeblock = 34
|
|
; inc/fileio.plh: 0075: word getmark
|
|
; getmark = 36
|
|
; inc/fileio.plh: 0076: word setmark
|
|
; setmark = 38
|
|
; inc/fileio.plh: 0077: end
|
|
; t_fileio = 40
|
|
; inc/fileio.plh: 0078: //
|
|
; inc/fileio.plh: 0079: // Globally accessible error code
|
|
; inc/fileio.plh: 0080: //
|
|
; inc/fileio.plh: 0081: byte perr
|
|
; inc/fileio.plh: 0082: end
|
|
; libsrc/apple/fileio.pla: 0002:
|
|
; libsrc/apple/fileio.pla: 0003: //
|
|
; libsrc/apple/fileio.pla: 0004: // CFFA1 addresses.
|
|
; libsrc/apple/fileio.pla: 0005: //
|
|
; libsrc/apple/fileio.pla: 0006: const CFFA1Dest = $00
|
|
!BYTE $00 ; END OF MODULE DEPENDENCIES
|
|
; CFFA1Dest = 0
|
|
; libsrc/apple/fileio.pla: 0007: const CFFA1FileName = $02
|
|
; CFFA1FileName = 2
|
|
; libsrc/apple/fileio.pla: 0008: const CFFA1OldName = $04
|
|
; CFFA1OldName = 4
|
|
; libsrc/apple/fileio.pla: 0009: const CFFA1FileType = $06
|
|
; CFFA1FileType = 6
|
|
; libsrc/apple/fileio.pla: 0010: const CFFA1AuxType = $07
|
|
; CFFA1AuxType = 7
|
|
; libsrc/apple/fileio.pla: 0011: const CFFA1FileSize = $09
|
|
; CFFA1FileSize = 9
|
|
; libsrc/apple/fileio.pla: 0012: const CFFA1EntryPtr = $0B
|
|
; CFFA1EntryPtr = 11
|
|
; libsrc/apple/fileio.pla: 0013: //
|
|
; libsrc/apple/fileio.pla: 0014: // SOS access modes
|
|
; libsrc/apple/fileio.pla: 0015: //
|
|
; libsrc/apple/fileio.pla: 0016: const O_READ = 1
|
|
; O_READ = 1
|
|
; libsrc/apple/fileio.pla: 0017: const O_WRITE = 2
|
|
; O_WRITE = 2
|
|
; libsrc/apple/fileio.pla: 0018: const O_READ_WRITE = 3
|
|
; O_READ_WRITE = 3
|
|
; libsrc/apple/fileio.pla: 0019: //
|
|
; libsrc/apple/fileio.pla: 0020: // System I/O buffer for PLASMA. Used when loading modules, free otherwise
|
|
; libsrc/apple/fileio.pla: 0021: //
|
|
; libsrc/apple/fileio.pla: 0022: const sysbuf = $0800
|
|
; sysbuf = 2048
|
|
; libsrc/apple/fileio.pla: 0023: //
|
|
; libsrc/apple/fileio.pla: 0024: // External interface
|
|
; libsrc/apple/fileio.pla: 0025: //
|
|
; libsrc/apple/fileio.pla: 0026: predef a2getpfx(path), a2setpfx(path), a2getfileinfo(path, fileinfo), a2setfileinfo(path, fileinfo), a23geteof(refnum)#2, a23seteof(refnum, eofl, eofh), a2iobufs(iobufs), a2open(path), a2close(refnum)
|
|
; libsrc/apple/fileio.pla: 0027: predef a23read(refnum, buf, len), a2write(refnum, buf, len), a2create(path, type, aux), a23destroy(path), a23rename(path, newpath)
|
|
; libsrc/apple/fileio.pla: 0028: predef a2newline(refnum, emask, nlchar), a2online(unit, buf), a2readblock(unit, buf, block), a2writeblock(unit, buf, block)
|
|
; libsrc/apple/fileio.pla: 0029: predef a23getmark(refnum)#2, a23setmark(refnum, eofl, eofh)
|
|
; libsrc/apple/fileio.pla: 0030: //
|
|
; libsrc/apple/fileio.pla: 0031: // Exported function table.
|
|
; libsrc/apple/fileio.pla: 0032: //
|
|
; libsrc/apple/fileio.pla: 0033: word fileio[]
|
|
_D048 ; fileio[]
|
|
; libsrc/apple/fileio.pla: 0034: word = @a2getpfx, @a2setpfx, @a2getfileinfo, @a2setfileinfo, @a23geteof, @a23seteof, @a2iobufs, @a2open, @a2close
|
|
_F000 !WORD _P000
|
|
_F001 !WORD _P001
|
|
_F002 !WORD _P002
|
|
_F003 !WORD _P003
|
|
_F004 !WORD _P004
|
|
_F005 !WORD _P005
|
|
_F006 !WORD _P006
|
|
_F007 !WORD _P007
|
|
_F008 !WORD _P008
|
|
; libsrc/apple/fileio.pla: 0035: word = @a23read, @a2write, @a2create, @a23destroy, @a23rename
|
|
_F009 !WORD _P009
|
|
_F010 !WORD _P010
|
|
_F011 !WORD _P011
|
|
_F012 !WORD _P012
|
|
_F013 !WORD _P013
|
|
; libsrc/apple/fileio.pla: 0036: word = @a2newline, @a2online, @a2readblock, @a2writeblock, @a23getmark, @a23setmark
|
|
_F014 !WORD _P014
|
|
_F015 !WORD _P015
|
|
_F016 !WORD _P016
|
|
_F017 !WORD _P017
|
|
_F018 !WORD _P018
|
|
_F019 !WORD _P019
|
|
; libsrc/apple/fileio.pla: 0037: //
|
|
; libsrc/apple/fileio.pla: 0038: // SOS/ProDOS error code
|
|
; libsrc/apple/fileio.pla: 0039: //
|
|
; libsrc/apple/fileio.pla: 0040: export byte perr
|
|
_D049 !FILL 1 ; perr
|
|
; libsrc/apple/fileio.pla: 0041: //
|
|
; libsrc/apple/fileio.pla: 0042: // I/O buffers
|
|
; libsrc/apple/fileio.pla: 0043: //
|
|
; libsrc/apple/fileio.pla: 0044: const MAX_IOBUFS = 4
|
|
; MAX_IOBUFS = 4
|
|
; libsrc/apple/fileio.pla: 0045: byte iobuf_ref[MAX_IOBUFS]
|
|
_D050 !FILL 4 ; iobuf_ref[MAX_IOBUFS]
|
|
; libsrc/apple/fileio.pla: 0046: word iobuf_addr[MAX_IOBUFS] = sysbuf
|
|
_D051 ; iobuf_addr[MAX_IOBUFS] = sysbuf
|
|
!WORD $0800
|
|
!FILL $06
|
|
; libsrc/apple/fileio.pla: 0047: //
|
|
; libsrc/apple/fileio.pla: 0048: // ProDOS/SOS routines
|
|
; libsrc/apple/fileio.pla: 0049: //
|
|
; libsrc/apple/fileio.pla: 0050: def a1getpfx(path)
|
|
!BYTE $00 ; PAD BYTE
|
|
_SUBSEG ; BYTECODE STARTS
|
|
; path -> [0]
|
|
_C000 ; a1getpfx()
|
|
; libsrc/apple/fileio.pla: 0051: ^path = 0
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
; libsrc/apple/fileio.pla: 0052: return path
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $70 ; SB
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0053: end
|
|
; libsrc/apple/fileio.pla: 0054: def a2getpfx(path)
|
|
; path -> [0]
|
|
_P000 ; a2getpfx(path)()
|
|
_C001 ; a2getpfx()
|
|
; libsrc/apple/fileio.pla: 0055: byte params[3]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0056:
|
|
; libsrc/apple/fileio.pla: 0057: ^path = 0
|
|
!BYTE $58,$05,$01 ; ENTER 5,1
|
|
; libsrc/apple/fileio.pla: 0058: params.0 = 1
|
|
; libsrc/apple/fileio.pla: 0059: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0060: perr = syscall($C7, @params)
|
|
; libsrc/apple/fileio.pla: 0061: return path
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $70 ; SB
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $2A,$C7 ; CB 199
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F020 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F021 !WORD _D049+0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$05 ; LEAVE 5
|
|
; libsrc/apple/fileio.pla: 0062: end
|
|
; libsrc/apple/fileio.pla: 0063: def a3getpfx(path)
|
|
; path -> [0]
|
|
_C002 ; a3getpfx()
|
|
; libsrc/apple/fileio.pla: 0064: byte params[4]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0065:
|
|
; libsrc/apple/fileio.pla: 0066: params.0 = 2
|
|
!BYTE $58,$06,$01 ; ENTER 6,1
|
|
; libsrc/apple/fileio.pla: 0067: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0068: params.3 = 64
|
|
; libsrc/apple/fileio.pla: 0069: perr = syscall($C7, @params)
|
|
; libsrc/apple/fileio.pla: 0070: return path
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $2A,$40 ; CB 64
|
|
!BYTE $74,$05 ; SLB [5]
|
|
!BYTE $2A,$C7 ; CB 199
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F022 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F023 !WORD _D049+0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0071: end
|
|
; libsrc/apple/fileio.pla: 0072: def a1setpfx(path)
|
|
; path -> [0]
|
|
_C003 ; a1setpfx()
|
|
; libsrc/apple/fileio.pla: 0073: return path
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0074: end
|
|
; libsrc/apple/fileio.pla: 0075: def a2setpfx(path)
|
|
; path -> [0]
|
|
_P001 ; a2setpfx(path)()
|
|
_C004 ; a2setpfx()
|
|
; libsrc/apple/fileio.pla: 0076: byte params[3]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0077:
|
|
; libsrc/apple/fileio.pla: 0078: params.0 = 1
|
|
!BYTE $58,$05,$01 ; ENTER 5,1
|
|
; libsrc/apple/fileio.pla: 0079: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0080: perr = syscall($C6, @params)
|
|
; libsrc/apple/fileio.pla: 0081: return path
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $2A,$C6 ; CB 198
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F024 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F025 !WORD _D049+0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$05 ; LEAVE 5
|
|
; libsrc/apple/fileio.pla: 0082: end
|
|
; libsrc/apple/fileio.pla: 0083: def a3setpfx(path)
|
|
; path -> [0]
|
|
_C005 ; a3setpfx()
|
|
; libsrc/apple/fileio.pla: 0084: byte params[6]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0085: byte fileinfo[2]
|
|
; fileinfo -> [8]
|
|
; libsrc/apple/fileio.pla: 0086: char fullpath[65]
|
|
; fullpath -> [10]
|
|
; libsrc/apple/fileio.pla: 0087:
|
|
; libsrc/apple/fileio.pla: 0088: if ^path and ^(path + 1) <> '/' and ^(path + 1) <> '.'
|
|
!BYTE $58,$4B,$01 ; ENTER 75,1
|
|
; libsrc/apple/fileio.pla: 0089: a3getpfx(@fullpath)
|
|
; libsrc/apple/fileio.pla: 0090: strcat(@fullpath, path)
|
|
; libsrc/apple/fileio.pla: 0091: path = @fullpath
|
|
; libsrc/apple/fileio.pla: 0092: fin
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $60 ; LB
|
|
!BYTE $AC ; BRAND _B001
|
|
!WORD _B001-*
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $8C ; INCR
|
|
!BYTE $60 ; LB
|
|
!BYTE $2A,$2F ; CB 47
|
|
!BYTE $42 ; ISNE
|
|
!BYTE $AC ; BRAND _B002
|
|
!WORD _B002-*
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $8C ; INCR
|
|
!BYTE $60 ; LB
|
|
!BYTE $2A,$2E ; CB 46
|
|
!BYTE $42 ; ISNE
|
|
_B002
|
|
_B001
|
|
!BYTE $4C ; BRFLS _B003
|
|
!WORD _B003-*
|
|
!BYTE $28,$0A ; LLA [10]
|
|
!BYTE $54 ; CALL _C002
|
|
_F026 !WORD _C002
|
|
!BYTE $30 ; DROP
|
|
!BYTE $28,$0A ; LLA [10]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $54 ; CALL _X020
|
|
_F027 !WORD 0
|
|
!BYTE $30 ; DROP
|
|
!BYTE $28,$0A ; LLA [10]
|
|
!BYTE $76,$00 ; SLW [0]
|
|
_B003
|
|
_B004
|
|
; libsrc/apple/fileio.pla: 0093: params.0 = 3
|
|
; libsrc/apple/fileio.pla: 0094: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0095: params:3 = @fileinfo
|
|
; libsrc/apple/fileio.pla: 0096: params.5 = 2
|
|
; libsrc/apple/fileio.pla: 0097: if not syscall($C4, @params) and (fileinfo.1 == $00 or fileinfo.1 == $0F) // Make sure it's a directory
|
|
; libsrc/apple/fileio.pla: 0098: params.0 = 1
|
|
; libsrc/apple/fileio.pla: 0099: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0100: syscall($C6, @params)
|
|
; libsrc/apple/fileio.pla: 0101: else
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $28,$08 ; LLA [8]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $2A,$C4 ; CB 196
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F028 !WORD 0
|
|
!BYTE $80 ; NOT
|
|
!BYTE $AC ; BRAND _B005
|
|
!WORD _B005-*
|
|
!BYTE $64,$09 ; LLB [9]
|
|
!BYTE $80 ; NOT
|
|
!BYTE $AE ; BROR _B006
|
|
!WORD _B006-*
|
|
!BYTE $64,$09 ; LLB [9]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $40 ; ISEQ
|
|
_B006
|
|
_B005
|
|
!BYTE $4C ; BRFLS _B007
|
|
!WORD _B007-*
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $2A,$C6 ; CB 198
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F029 !WORD 0
|
|
!BYTE $30 ; DROP
|
|
!BYTE $50 ; BRNCH _B008
|
|
!WORD _B008-*
|
|
_B007
|
|
; libsrc/apple/fileio.pla: 0102: a3getpfx(path) // Get current path
|
|
; libsrc/apple/fileio.pla: 0103: fin
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $54 ; CALL _C002
|
|
_F030 !WORD _C002
|
|
!BYTE $30 ; DROP
|
|
_B008
|
|
; libsrc/apple/fileio.pla: 0104: return path
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $5A,$4B ; LEAVE 75
|
|
; libsrc/apple/fileio.pla: 0105: end
|
|
; libsrc/apple/fileio.pla: 0106: def a1getfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_C006 ; a1getfileinfo()
|
|
; libsrc/apple/fileio.pla: 0107: perr = $01
|
|
!BYTE $58,$04,$02 ; ENTER 4,2
|
|
; libsrc/apple/fileio.pla: 0108: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F031 !WORD _D049+0
|
|
!BYTE $5A,$04 ; LEAVE 4
|
|
; libsrc/apple/fileio.pla: 0109: end
|
|
; libsrc/apple/fileio.pla: 0110: def a2getfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_P002 ; a2getfileinfo(path, fileinfo)()
|
|
_C007 ; a2getfileinfo()
|
|
; libsrc/apple/fileio.pla: 0111: byte params[18]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0112:
|
|
; libsrc/apple/fileio.pla: 0113: params.0 = 10
|
|
!BYTE $58,$16,$02 ; ENTER 22,2
|
|
; libsrc/apple/fileio.pla: 0114: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0115: perr = syscall($C4, @params)
|
|
; libsrc/apple/fileio.pla: 0116: memcpy(fileinfo, @params + 3, 15)
|
|
; libsrc/apple/fileio.pla: 0117: return perr
|
|
!BYTE $14 ; CN 10
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $2A,$C4 ; CB 196
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F032 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F033 !WORD _D049+0
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $28,$07 ; LLA [7]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $54 ; CALL _X018
|
|
_F034 !WORD 0
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F035 !WORD _D049+0
|
|
!BYTE $5A,$16 ; LEAVE 22
|
|
; libsrc/apple/fileio.pla: 0118: end
|
|
; libsrc/apple/fileio.pla: 0119: def a3getfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_C008 ; a3getfileinfo()
|
|
; libsrc/apple/fileio.pla: 0120: byte params[6]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0121:
|
|
; libsrc/apple/fileio.pla: 0122: params.0 = 3
|
|
!BYTE $58,$0A,$02 ; ENTER 10,2
|
|
; libsrc/apple/fileio.pla: 0123: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0124: params:3 = fileinfo
|
|
; libsrc/apple/fileio.pla: 0125: params.5 = 15
|
|
; libsrc/apple/fileio.pla: 0126: perr = syscall($C4, @params)
|
|
; libsrc/apple/fileio.pla: 0127: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$07 ; SLW [7]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $74,$09 ; SLB [9]
|
|
!BYTE $2A,$C4 ; CB 196
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F036 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F037 !WORD _D049+0
|
|
!BYTE $5A,$0A ; LEAVE 10
|
|
; libsrc/apple/fileio.pla: 0128: end
|
|
; libsrc/apple/fileio.pla: 0129: def a1setfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_C009 ; a1setfileinfo()
|
|
; libsrc/apple/fileio.pla: 0130: perr = $01
|
|
!BYTE $58,$04,$02 ; ENTER 4,2
|
|
; libsrc/apple/fileio.pla: 0131: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F038 !WORD _D049+0
|
|
!BYTE $5A,$04 ; LEAVE 4
|
|
; libsrc/apple/fileio.pla: 0132: end
|
|
; libsrc/apple/fileio.pla: 0133: def a2setfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_P003 ; a2setfileinfo(path, fileinfo)()
|
|
_C010 ; a2setfileinfo()
|
|
; libsrc/apple/fileio.pla: 0134: byte params[14]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0135:
|
|
; libsrc/apple/fileio.pla: 0136: params.0 = 7
|
|
!BYTE $58,$12,$02 ; ENTER 18,2
|
|
; libsrc/apple/fileio.pla: 0137: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0138: memcpy(@params + 3, fileinfo, 11)
|
|
; libsrc/apple/fileio.pla: 0139: perr = syscall($C3, @params)
|
|
; libsrc/apple/fileio.pla: 0140: return perr
|
|
!BYTE $0E ; CN 7
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $28,$07 ; LLA [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $16 ; CN 11
|
|
!BYTE $54 ; CALL _X018
|
|
_F039 !WORD 0
|
|
!BYTE $2A,$C3 ; CB 195
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F040 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F041 !WORD _D049+0
|
|
!BYTE $5A,$12 ; LEAVE 18
|
|
; libsrc/apple/fileio.pla: 0141: end
|
|
; libsrc/apple/fileio.pla: 0142: def a3setfileinfo(path, fileinfo)
|
|
; path -> [0]
|
|
; fileinfo -> [2]
|
|
_C011 ; a3setfileinfo()
|
|
; libsrc/apple/fileio.pla: 0143: byte params[6]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0144:
|
|
; libsrc/apple/fileio.pla: 0145: params.0 = 3
|
|
!BYTE $58,$0A,$02 ; ENTER 10,2
|
|
; libsrc/apple/fileio.pla: 0146: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0147: params:3 = fileinfo
|
|
; libsrc/apple/fileio.pla: 0148: params.5 = 15
|
|
; libsrc/apple/fileio.pla: 0149: perr = syscall($C3, @params)
|
|
; libsrc/apple/fileio.pla: 0150: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$07 ; SLW [7]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $74,$09 ; SLB [9]
|
|
!BYTE $2A,$C3 ; CB 195
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F042 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F043 !WORD _D049+0
|
|
!BYTE $5A,$0A ; LEAVE 10
|
|
; libsrc/apple/fileio.pla: 0151: end
|
|
; libsrc/apple/fileio.pla: 0152: def a1geteof(refnum)#2
|
|
; refnum -> [0]
|
|
_C012 ; a1geteof()
|
|
; libsrc/apple/fileio.pla: 0153: return 0, 0
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0154: end
|
|
; libsrc/apple/fileio.pla: 0155: def a23geteof(refnum)#2
|
|
; refnum -> [0]
|
|
_P004 ; a23geteof(refnum)#2()
|
|
_C013 ; a23geteof()
|
|
; libsrc/apple/fileio.pla: 0156: byte params[5]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0157:
|
|
; libsrc/apple/fileio.pla: 0158: params.0 = 2
|
|
!BYTE $58,$07,$01 ; ENTER 7,1
|
|
; libsrc/apple/fileio.pla: 0159: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0160: params:2 = 0
|
|
; libsrc/apple/fileio.pla: 0161: params.4 = 0
|
|
; libsrc/apple/fileio.pla: 0162: syscall($D1, @params)
|
|
; libsrc/apple/fileio.pla: 0163: return params:2, params.4
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$03 ; SLB [3]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$04 ; SLW [4]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $2A,$D1 ; CB 209
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F044 !WORD 0
|
|
!BYTE $30 ; DROP
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $64,$06 ; LLB [6]
|
|
!BYTE $5A,$07 ; LEAVE 7
|
|
; libsrc/apple/fileio.pla: 0164: end
|
|
; libsrc/apple/fileio.pla: 0165: def a1seteof(refnum, eofl, eofh)
|
|
; refnum -> [0]
|
|
; eofl -> [2]
|
|
; eofh -> [4]
|
|
_C014 ; a1seteof()
|
|
; libsrc/apple/fileio.pla: 0166: return -1
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
!BYTE $20 ; MINUS ONE
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0167: end
|
|
; libsrc/apple/fileio.pla: 0168: def a23seteof(refnum, eofl, eofh)
|
|
; refnum -> [0]
|
|
; eofl -> [2]
|
|
; eofh -> [4]
|
|
_P005 ; a23seteof(refnum, eofl, eofh)()
|
|
_C015 ; a23seteof()
|
|
; libsrc/apple/fileio.pla: 0169: byte params[5]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0170:
|
|
; libsrc/apple/fileio.pla: 0171: params.0 = 2
|
|
!BYTE $58,$0B,$03 ; ENTER 11,3
|
|
; libsrc/apple/fileio.pla: 0172: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0173: params:2 = eofl
|
|
; libsrc/apple/fileio.pla: 0174: params.4 = eofh
|
|
; libsrc/apple/fileio.pla: 0175: perr = syscall($D0, @params)
|
|
; libsrc/apple/fileio.pla: 0176: return perr
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $74,$0A ; SLB [10]
|
|
!BYTE $2A,$D0 ; CB 208
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F045 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F046 !WORD _D049+0
|
|
!BYTE $5A,$0B ; LEAVE 11
|
|
; libsrc/apple/fileio.pla: 0177: end
|
|
; libsrc/apple/fileio.pla: 0178: def a1getmark(refnum)#2
|
|
; refnum -> [0]
|
|
_C016 ; a1getmark()
|
|
; libsrc/apple/fileio.pla: 0179: return 0, 0
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0180: end
|
|
; libsrc/apple/fileio.pla: 0181: def a23getmark(refnum)#2
|
|
; refnum -> [0]
|
|
_P018 ; a23getmark(refnum)#2()
|
|
_C017 ; a23getmark()
|
|
; libsrc/apple/fileio.pla: 0182: byte params[5]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0183:
|
|
; libsrc/apple/fileio.pla: 0184: params.0 = 2
|
|
!BYTE $58,$07,$01 ; ENTER 7,1
|
|
; libsrc/apple/fileio.pla: 0185: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0186: params:2 = 0
|
|
; libsrc/apple/fileio.pla: 0187: params.4 = 0
|
|
; libsrc/apple/fileio.pla: 0188: syscall($CF, @params)
|
|
; libsrc/apple/fileio.pla: 0189: return params:2, params.4
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$03 ; SLB [3]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$04 ; SLW [4]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $2A,$CF ; CB 207
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F047 !WORD 0
|
|
!BYTE $30 ; DROP
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $64,$06 ; LLB [6]
|
|
!BYTE $5A,$07 ; LEAVE 7
|
|
; libsrc/apple/fileio.pla: 0190: end
|
|
; libsrc/apple/fileio.pla: 0191: def a1setmark(refnum, eofl, eofh)
|
|
; refnum -> [0]
|
|
; eofl -> [2]
|
|
; eofh -> [4]
|
|
_C018 ; a1setmark()
|
|
; libsrc/apple/fileio.pla: 0192: return -1
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
!BYTE $20 ; MINUS ONE
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0193: end
|
|
; libsrc/apple/fileio.pla: 0194: def a23setmark(refnum, eofl, eofh)
|
|
; refnum -> [0]
|
|
; eofl -> [2]
|
|
; eofh -> [4]
|
|
_P019 ; a23setmark(refnum, eofl, eofh)()
|
|
_C019 ; a23setmark()
|
|
; libsrc/apple/fileio.pla: 0195: byte params[5]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0196:
|
|
; libsrc/apple/fileio.pla: 0197: params.0 = 2
|
|
!BYTE $58,$0B,$03 ; ENTER 11,3
|
|
; libsrc/apple/fileio.pla: 0198: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0199: params:2 = eofl
|
|
; libsrc/apple/fileio.pla: 0200: params.4 = eofh
|
|
; libsrc/apple/fileio.pla: 0201: perr = syscall($CE, @params)
|
|
; libsrc/apple/fileio.pla: 0202: return perr
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $74,$0A ; SLB [10]
|
|
!BYTE $2A,$CE ; CB 206
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F048 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F049 !WORD _D049+0
|
|
!BYTE $5A,$0B ; LEAVE 11
|
|
; libsrc/apple/fileio.pla: 0203: end
|
|
; libsrc/apple/fileio.pla: 0204: def a1open(path)
|
|
; path -> [0]
|
|
_C020 ; a1open()
|
|
; libsrc/apple/fileio.pla: 0205: *CFFA1FileName = path
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
; libsrc/apple/fileio.pla: 0206: return 0
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $7A,$02,$00 ; SAW 2
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0207: end
|
|
; libsrc/apple/fileio.pla: 0208: def a2iobufs(iobufs)
|
|
; iobufs -> [0]
|
|
_P006 ; a2iobufs(iobufs)()
|
|
_C021 ; a2iobufs()
|
|
; libsrc/apple/fileio.pla: 0209: byte i
|
|
; i -> [2]
|
|
; libsrc/apple/fileio.pla: 0210: word freebuf, bufaddr
|
|
; freebuf -> [3]
|
|
; bufaddr -> [5]
|
|
; libsrc/apple/fileio.pla: 0211:
|
|
; libsrc/apple/fileio.pla: 0212: if iobufs > MAX_IOBUFS
|
|
!BYTE $58,$07,$01 ; ENTER 7,1
|
|
; libsrc/apple/fileio.pla: 0213: iobufs = MAX_IOBUFS
|
|
; libsrc/apple/fileio.pla: 0214: fin
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $44 ; ISGT
|
|
!BYTE $4C ; BRFLS _B009
|
|
!WORD _B009-*
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $76,$00 ; SLW [0]
|
|
_B009
|
|
_B010
|
|
; libsrc/apple/fileio.pla: 0215: if iobufs
|
|
; libsrc/apple/fileio.pla: 0216: iobufs-- // Subtract off system I/O buffer
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $4C ; BRFLS _B011
|
|
!WORD _B011-*
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $8E ; DECR
|
|
; libsrc/apple/fileio.pla: 0217: if iobufs
|
|
; libsrc/apple/fileio.pla: 0218: bufaddr = heapallocalign(1024 * iobufs, 8, @freebuf)
|
|
; libsrc/apple/fileio.pla: 0219: for i = 1 to MAX_IOBUFS-1
|
|
!BYTE $6E,$00 ; DLW [0]
|
|
!BYTE $4C ; BRFLS _B013
|
|
!WORD _B013-*
|
|
!BYTE $2C,$00,$04 ; CW 1024
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $86 ; MUL
|
|
!BYTE $10 ; CN 8
|
|
!BYTE $28,$03 ; LLA [3]
|
|
!BYTE $54 ; CALL _X013
|
|
_F050 !WORD 0
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $02 ; CN 1
|
|
_B016
|
|
!BYTE $6C,$02 ; DLB [2]
|
|
; libsrc/apple/fileio.pla: 0220: if not iobuf_addr[i]
|
|
; libsrc/apple/fileio.pla: 0221: iobuf_addr[i] = bufaddr
|
|
; libsrc/apple/fileio.pla: 0222: bufaddr = bufaddr + 1024
|
|
; libsrc/apple/fileio.pla: 0223: iobufs--
|
|
!BYTE $26 ; LA _D051+0
|
|
_F051 !WORD _D051+0
|
|
!BYTE $B8,$02 ; IDXLB [2]
|
|
!BYTE $62 ; LW
|
|
!BYTE $4E ; BRTRU _B018
|
|
!WORD _B018-*
|
|
!BYTE $66,$05 ; LLW [5]
|
|
!BYTE $26 ; LA _D051+0
|
|
_F052 !WORD _D051+0
|
|
!BYTE $B8,$02 ; IDXLB [2]
|
|
!BYTE $72 ; SW
|
|
!BYTE $66,$05 ; LLW [5]
|
|
!BYTE $2C,$00,$04 ; CW 1024
|
|
!BYTE $82 ; ADD
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $8E ; DECR
|
|
; libsrc/apple/fileio.pla: 0224: if not iobufs
|
|
; libsrc/apple/fileio.pla: 0225: return freebuf
|
|
!BYTE $6E,$00 ; DLW [0]
|
|
!BYTE $4E ; BRTRU _B020
|
|
!WORD _B020-*
|
|
!BYTE $32 ; DROP2
|
|
!BYTE $66,$03 ; LLW [3]
|
|
!BYTE $5A,$07 ; LEAVE 7
|
|
; libsrc/apple/fileio.pla: 0226: fin
|
|
_B020
|
|
_B021
|
|
; libsrc/apple/fileio.pla: 0227: fin
|
|
_B018
|
|
_B019
|
|
; libsrc/apple/fileio.pla: 0228: next
|
|
_B017
|
|
!BYTE $A4 ; INCBRLE _B016
|
|
!WORD _B016-*
|
|
_B015
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $30 ; DROP
|
|
; libsrc/apple/fileio.pla: 0229: return freebuf
|
|
!BYTE $66,$03 ; LLW [3]
|
|
!BYTE $5A,$07 ; LEAVE 7
|
|
; libsrc/apple/fileio.pla: 0230: fin
|
|
_B013
|
|
_B014
|
|
; libsrc/apple/fileio.pla: 0231: else
|
|
!BYTE $50 ; BRNCH _B012
|
|
!WORD _B012-*
|
|
_B011
|
|
; libsrc/apple/fileio.pla: 0232: for i = 1 to MAX_IOBUFS-1
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $02 ; CN 1
|
|
_B023
|
|
!BYTE $6C,$02 ; DLB [2]
|
|
; libsrc/apple/fileio.pla: 0233: iobuf_addr[i] = 0 // Free I/O buffers if 0 passed in
|
|
; libsrc/apple/fileio.pla: 0234: next
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $26 ; LA _D051+0
|
|
_F053 !WORD _D051+0
|
|
!BYTE $B8,$02 ; IDXLB [2]
|
|
!BYTE $72 ; SW
|
|
_B024
|
|
!BYTE $A4 ; INCBRLE _B023
|
|
!WORD _B023-*
|
|
_B022
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $30 ; DROP
|
|
; libsrc/apple/fileio.pla: 0235: fin
|
|
_B012
|
|
; libsrc/apple/fileio.pla: 0236: return 0
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$07 ; LEAVE 7
|
|
; libsrc/apple/fileio.pla: 0237: end
|
|
; libsrc/apple/fileio.pla: 0238: def a13iobufs(iobufs)
|
|
; iobufs -> [0]
|
|
_C022 ; a13iobufs()
|
|
; libsrc/apple/fileio.pla: 0239: return 0
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0240: end
|
|
; libsrc/apple/fileio.pla: 0241: def a2open(path)
|
|
; path -> [0]
|
|
_P007 ; a2open(path)()
|
|
_C023 ; a2open()
|
|
; libsrc/apple/fileio.pla: 0242: byte i, params[6]
|
|
; i -> [2]
|
|
; params -> [3]
|
|
; libsrc/apple/fileio.pla: 0243:
|
|
; libsrc/apple/fileio.pla: 0244: for i = MAX_IOBUFS-1 downto 0
|
|
!BYTE $58,$09,$01 ; ENTER 9,1
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $06 ; CN 3
|
|
_B026
|
|
!BYTE $6C,$02 ; DLB [2]
|
|
; libsrc/apple/fileio.pla: 0245: if iobuf_addr[i] and not iobuf_ref[i]
|
|
; libsrc/apple/fileio.pla: 0246: params.0 = 3
|
|
; libsrc/apple/fileio.pla: 0247: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0248: params:3 = iobuf_addr[i]
|
|
; libsrc/apple/fileio.pla: 0249: params.5 = 0
|
|
; libsrc/apple/fileio.pla: 0250: perr = syscall($C8, @params)
|
|
; libsrc/apple/fileio.pla: 0251: iobuf_ref[i] = params.5
|
|
; libsrc/apple/fileio.pla: 0252: return params.5
|
|
!BYTE $26 ; LA _D051+0
|
|
_F054 !WORD _D051+0
|
|
!BYTE $B8,$02 ; IDXLB [2]
|
|
!BYTE $62 ; LW
|
|
!BYTE $AC ; BRAND _B028
|
|
!WORD _B028-*
|
|
!BYTE $26 ; LA _D050+0
|
|
_F055 !WORD _D050+0
|
|
!BYTE $B0,$02 ; ADDLB [2]
|
|
!BYTE $60 ; LB
|
|
!BYTE $80 ; NOT
|
|
_B028
|
|
!BYTE $4C ; BRFLS _B029
|
|
!WORD _B029-*
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$03 ; SLB [3]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$04 ; SLW [4]
|
|
!BYTE $26 ; LA _D051+0
|
|
_F056 !WORD _D051+0
|
|
!BYTE $B8,$02 ; IDXLB [2]
|
|
!BYTE $62 ; LW
|
|
!BYTE $76,$06 ; SLW [6]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $74,$08 ; SLB [8]
|
|
!BYTE $2A,$C8 ; CB 200
|
|
!BYTE $28,$03 ; LLA [3]
|
|
!BYTE $54 ; CALL _X011
|
|
_F057 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F058 !WORD _D049+0
|
|
!BYTE $64,$08 ; LLB [8]
|
|
!BYTE $26 ; LA _D050+0
|
|
_F059 !WORD _D050+0
|
|
!BYTE $B0,$02 ; ADDLB [2]
|
|
!BYTE $70 ; SB
|
|
!BYTE $32 ; DROP2
|
|
!BYTE $64,$08 ; LLB [8]
|
|
!BYTE $5A,$09 ; LEAVE 9
|
|
; libsrc/apple/fileio.pla: 0253: fin
|
|
_B029
|
|
_B030
|
|
; libsrc/apple/fileio.pla: 0254: next
|
|
_B027
|
|
!BYTE $A8 ; DECBRGE _B026
|
|
!WORD _B026-*
|
|
_B025
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $30 ; DROP
|
|
; libsrc/apple/fileio.pla: 0255: return 0
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$09 ; LEAVE 9
|
|
; libsrc/apple/fileio.pla: 0256: end
|
|
; libsrc/apple/fileio.pla: 0257: def a3open(path)
|
|
; path -> [0]
|
|
_C024 ; a3open()
|
|
; libsrc/apple/fileio.pla: 0258: byte params[7]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0259:
|
|
; libsrc/apple/fileio.pla: 0260: params.0 = 4
|
|
!BYTE $58,$09,$01 ; ENTER 9,1
|
|
; libsrc/apple/fileio.pla: 0261: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0262: params.3 = 0
|
|
; libsrc/apple/fileio.pla: 0263: params:4 = 0
|
|
; libsrc/apple/fileio.pla: 0264: params.6 = 0
|
|
; libsrc/apple/fileio.pla: 0265: perr = syscall($C8, @params)
|
|
; libsrc/apple/fileio.pla: 0266: return params.3
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $74,$05 ; SLB [5]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$06 ; SLW [6]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $74,$08 ; SLB [8]
|
|
!BYTE $2A,$C8 ; CB 200
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F060 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F061 !WORD _D049+0
|
|
!BYTE $64,$05 ; LLB [5]
|
|
!BYTE $5A,$09 ; LEAVE 9
|
|
; libsrc/apple/fileio.pla: 0267: end
|
|
; libsrc/apple/fileio.pla: 0268: def a1close(refnum)
|
|
; refnum -> [0]
|
|
_C025 ; a1close()
|
|
; libsrc/apple/fileio.pla: 0269: return perr
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F062 !WORD _D049+0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0270: end
|
|
; libsrc/apple/fileio.pla: 0271: def a2close(refnum)
|
|
; refnum -> [0]
|
|
_P008 ; a2close(refnum)()
|
|
_C026 ; a2close()
|
|
; libsrc/apple/fileio.pla: 0272: byte i, params[2]
|
|
; i -> [2]
|
|
; params -> [3]
|
|
; libsrc/apple/fileio.pla: 0273:
|
|
; libsrc/apple/fileio.pla: 0274: for i = MAX_IOBUFS-1 downto 0
|
|
!BYTE $58,$05,$01 ; ENTER 5,1
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $06 ; CN 3
|
|
_B032
|
|
!BYTE $6C,$02 ; DLB [2]
|
|
; libsrc/apple/fileio.pla: 0275: if refnum == iobuf_ref[i]
|
|
; libsrc/apple/fileio.pla: 0276: iobuf_ref[i] = 0
|
|
; libsrc/apple/fileio.pla: 0277: params.0 = 1
|
|
; libsrc/apple/fileio.pla: 0278: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0279: perr = syscall($CC, @params)
|
|
; libsrc/apple/fileio.pla: 0280: return perr
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $26 ; LA _D050+0
|
|
_F063 !WORD _D050+0
|
|
!BYTE $B0,$02 ; ADDLB [2]
|
|
!BYTE $60 ; LB
|
|
!BYTE $24 ; BRNE _B034
|
|
!WORD _B034-*
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $26 ; LA _D050+0
|
|
_F064 !WORD _D050+0
|
|
!BYTE $B0,$02 ; ADDLB [2]
|
|
!BYTE $70 ; SB
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$03 ; SLB [3]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $2A,$CC ; CB 204
|
|
!BYTE $28,$03 ; LLA [3]
|
|
!BYTE $54 ; CALL _X011
|
|
_F065 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F066 !WORD _D049+0
|
|
!BYTE $32 ; DROP2
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F067 !WORD _D049+0
|
|
!BYTE $5A,$05 ; LEAVE 5
|
|
; libsrc/apple/fileio.pla: 0281: fin
|
|
_B034
|
|
_B035
|
|
; libsrc/apple/fileio.pla: 0282: next
|
|
_B033
|
|
!BYTE $A8 ; DECBRGE _B032
|
|
!WORD _B032-*
|
|
_B031
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $30 ; DROP
|
|
; libsrc/apple/fileio.pla: 0283: perr = $45
|
|
; libsrc/apple/fileio.pla: 0284: return perr
|
|
!BYTE $2A,$45 ; CB 69
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F068 !WORD _D049+0
|
|
!BYTE $5A,$05 ; LEAVE 5
|
|
; libsrc/apple/fileio.pla: 0285: end
|
|
; libsrc/apple/fileio.pla: 0286: def a3close(refnum)
|
|
; refnum -> [0]
|
|
_C027 ; a3close()
|
|
; libsrc/apple/fileio.pla: 0287: byte params[2]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0288:
|
|
; libsrc/apple/fileio.pla: 0289: params.0 = 1
|
|
!BYTE $58,$04,$01 ; ENTER 4,1
|
|
; libsrc/apple/fileio.pla: 0290: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0291: perr = syscall($CC, @params)
|
|
; libsrc/apple/fileio.pla: 0292: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$03 ; SLB [3]
|
|
!BYTE $2A,$CC ; CB 204
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F069 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F070 !WORD _D049+0
|
|
!BYTE $5A,$04 ; LEAVE 4
|
|
; libsrc/apple/fileio.pla: 0293: end
|
|
; libsrc/apple/fileio.pla: 0294: def a1read(refnum, buf, len)
|
|
; refnum -> [0]
|
|
; buf -> [2]
|
|
; len -> [4]
|
|
_C028 ; a1read()
|
|
; libsrc/apple/fileio.pla: 0295: *CFFA1Dest = buf
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
; libsrc/apple/fileio.pla: 0296: perr = syscall($22, 0) // This reads the entire file from CFFA
|
|
; libsrc/apple/fileio.pla: 0297: return perr
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $7A,$00,$00 ; SAW 0
|
|
!BYTE $2A,$22 ; CB 34
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $54 ; CALL _X011
|
|
_F071 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F072 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0298: end
|
|
; libsrc/apple/fileio.pla: 0299: def a23read(refnum, buf, len)
|
|
; refnum -> [0]
|
|
; buf -> [2]
|
|
; len -> [4]
|
|
_P009 ; a23read(refnum, buf, len)()
|
|
_C029 ; a23read()
|
|
; libsrc/apple/fileio.pla: 0300: byte params[8]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0301:
|
|
; libsrc/apple/fileio.pla: 0302: params.0 = 4
|
|
!BYTE $58,$0E,$03 ; ENTER 14,3
|
|
; libsrc/apple/fileio.pla: 0303: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0304: params:2 = buf
|
|
; libsrc/apple/fileio.pla: 0305: params:4 = len
|
|
; libsrc/apple/fileio.pla: 0306: params:6 = 0
|
|
; libsrc/apple/fileio.pla: 0307: perr = syscall($CA, @params)
|
|
; libsrc/apple/fileio.pla: 0308: return params:6
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0A ; SLW [10]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$0C ; SLW [12]
|
|
!BYTE $2A,$CA ; CB 202
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F073 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F074 !WORD _D049+0
|
|
!BYTE $66,$0C ; LLW [12]
|
|
!BYTE $5A,$0E ; LEAVE 14
|
|
; libsrc/apple/fileio.pla: 0309: end
|
|
; libsrc/apple/fileio.pla: 0310: def a1write(refnum, buf, len)
|
|
; refnum -> [0]
|
|
; buf -> [2]
|
|
; len -> [4]
|
|
_C030 ; a1write()
|
|
; libsrc/apple/fileio.pla: 0311: return perr
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F075 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0312: end
|
|
; libsrc/apple/fileio.pla: 0313: def a2write(refnum, buf, len)
|
|
; refnum -> [0]
|
|
; buf -> [2]
|
|
; len -> [4]
|
|
_P010 ; a2write(refnum, buf, len)()
|
|
_C031 ; a2write()
|
|
; libsrc/apple/fileio.pla: 0314: byte params[8]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0315:
|
|
; libsrc/apple/fileio.pla: 0316: params.0 = 4
|
|
!BYTE $58,$0E,$03 ; ENTER 14,3
|
|
; libsrc/apple/fileio.pla: 0317: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0318: params:2 = buf
|
|
; libsrc/apple/fileio.pla: 0319: params:4 = len
|
|
; libsrc/apple/fileio.pla: 0320: params:6 = 0
|
|
; libsrc/apple/fileio.pla: 0321: perr = syscall($CB, @params)
|
|
; libsrc/apple/fileio.pla: 0322: return params:6
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0A ; SLW [10]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$0C ; SLW [12]
|
|
!BYTE $2A,$CB ; CB 203
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F076 !WORD 0
|
|
!BYTE $78 ; SAB _D049+0
|
|
_F077 !WORD _D049+0
|
|
!BYTE $66,$0C ; LLW [12]
|
|
!BYTE $5A,$0E ; LEAVE 14
|
|
; libsrc/apple/fileio.pla: 0323: end
|
|
; libsrc/apple/fileio.pla: 0324: def a3write(refnum, buff, len)
|
|
; refnum -> [0]
|
|
; buff -> [2]
|
|
; len -> [4]
|
|
_C032 ; a3write()
|
|
; libsrc/apple/fileio.pla: 0325: byte params[6]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0326:
|
|
; libsrc/apple/fileio.pla: 0327: params.0 = 3
|
|
!BYTE $58,$0C,$03 ; ENTER 12,3
|
|
; libsrc/apple/fileio.pla: 0328: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0329: params:2 = buff
|
|
; libsrc/apple/fileio.pla: 0330: params:4 = len
|
|
; libsrc/apple/fileio.pla: 0331: perr = syscall($CB, @params)
|
|
; libsrc/apple/fileio.pla: 0332: return perr ?? 0 :: len
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0A ; SLW [10]
|
|
!BYTE $2A,$CB ; CB 203
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F078 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F079 !WORD _D049+0
|
|
!BYTE $4C ; BRFLS _B036
|
|
!WORD _B036-*
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $50 ; BRNCH _B037
|
|
!WORD _B037-*
|
|
_B036
|
|
!BYTE $66,$04 ; LLW [4]
|
|
_B037
|
|
!BYTE $5A,$0C ; LEAVE 12
|
|
; libsrc/apple/fileio.pla: 0333: end
|
|
; libsrc/apple/fileio.pla: 0334: def a1create(path, type, aux)
|
|
; path -> [0]
|
|
; type -> [2]
|
|
; aux -> [4]
|
|
_C033 ; a1create()
|
|
; libsrc/apple/fileio.pla: 0335: return perr
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F080 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0336: end
|
|
; libsrc/apple/fileio.pla: 0337: def a2create(path, type, aux)
|
|
; path -> [0]
|
|
; type -> [2]
|
|
; aux -> [4]
|
|
_P011 ; a2create(path, type, aux)()
|
|
_C034 ; a2create()
|
|
; libsrc/apple/fileio.pla: 0338: byte params[12]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0339:
|
|
; libsrc/apple/fileio.pla: 0340: params.0 = 7
|
|
!BYTE $58,$12,$03 ; ENTER 18,3
|
|
; libsrc/apple/fileio.pla: 0341: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0342: params.3 = $C3
|
|
; libsrc/apple/fileio.pla: 0343: params.4 = type
|
|
; libsrc/apple/fileio.pla: 0344: params:5 = aux
|
|
; libsrc/apple/fileio.pla: 0345: params.7 = type == $0F ?? $0D :: $01
|
|
; libsrc/apple/fileio.pla: 0346: params:8 = 0
|
|
; libsrc/apple/fileio.pla: 0347: params:10 = 0
|
|
; libsrc/apple/fileio.pla: 0348: perr = syscall($C0, @params)
|
|
; libsrc/apple/fileio.pla: 0349: return perr
|
|
!BYTE $0E ; CN 7
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$07 ; SLW [7]
|
|
!BYTE $2A,$C3 ; CB 195
|
|
!BYTE $74,$09 ; SLB [9]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $74,$0A ; SLB [10]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0B ; SLW [11]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $24 ; BRNE _B038
|
|
!WORD _B038-*
|
|
!BYTE $1A ; CN 13
|
|
!BYTE $50 ; BRNCH _B039
|
|
!WORD _B039-*
|
|
_B038
|
|
!BYTE $02 ; CN 1
|
|
_B039
|
|
!BYTE $74,$0D ; SLB [13]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$0E ; SLW [14]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$10 ; SLW [16]
|
|
!BYTE $2A,$C0 ; CB 192
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F081 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F082 !WORD _D049+0
|
|
!BYTE $5A,$12 ; LEAVE 18
|
|
; libsrc/apple/fileio.pla: 0350: end
|
|
; libsrc/apple/fileio.pla: 0351: def a3create(path, type, aux)
|
|
; path -> [0]
|
|
; type -> [2]
|
|
; aux -> [4]
|
|
_C035 ; a3create()
|
|
; libsrc/apple/fileio.pla: 0352: byte params[6]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0353: byte options[4]
|
|
; options -> [12]
|
|
; libsrc/apple/fileio.pla: 0354:
|
|
; libsrc/apple/fileio.pla: 0355: params.0 = 3
|
|
!BYTE $58,$10,$03 ; ENTER 16,3
|
|
; libsrc/apple/fileio.pla: 0356: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0357: params:3 = @options
|
|
; libsrc/apple/fileio.pla: 0358: params.5 = 4
|
|
; libsrc/apple/fileio.pla: 0359: options.0 = type
|
|
; libsrc/apple/fileio.pla: 0360: options:1 = aux
|
|
; libsrc/apple/fileio.pla: 0361: options.3 = type == $0F ?? $0D :: $01
|
|
; libsrc/apple/fileio.pla: 0362: perr = syscall($C0, @params)
|
|
; libsrc/apple/fileio.pla: 0363: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$07 ; SLW [7]
|
|
!BYTE $28,$0C ; LLA [12]
|
|
!BYTE $76,$09 ; SLW [9]
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$0B ; SLB [11]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $74,$0C ; SLB [12]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0D ; SLW [13]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $24 ; BRNE _B040
|
|
!WORD _B040-*
|
|
!BYTE $1A ; CN 13
|
|
!BYTE $50 ; BRNCH _B041
|
|
!WORD _B041-*
|
|
_B040
|
|
!BYTE $02 ; CN 1
|
|
_B041
|
|
!BYTE $74,$0F ; SLB [15]
|
|
!BYTE $2A,$C0 ; CB 192
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F083 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F084 !WORD _D049+0
|
|
!BYTE $5A,$10 ; LEAVE 16
|
|
; libsrc/apple/fileio.pla: 0364: end
|
|
; libsrc/apple/fileio.pla: 0365: def a1destroy(path)
|
|
; path -> [0]
|
|
_C036 ; a1destroy()
|
|
; libsrc/apple/fileio.pla: 0366: perr = $01
|
|
!BYTE $58,$02,$01 ; ENTER 2,1
|
|
; libsrc/apple/fileio.pla: 0367: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F085 !WORD _D049+0
|
|
!BYTE $5A,$02 ; LEAVE 2
|
|
; libsrc/apple/fileio.pla: 0368: end
|
|
; libsrc/apple/fileio.pla: 0369: def a23destroy(path)
|
|
; path -> [0]
|
|
_P012 ; a23destroy(path)()
|
|
_C037 ; a23destroy()
|
|
; libsrc/apple/fileio.pla: 0370: byte params[3]
|
|
; params -> [2]
|
|
; libsrc/apple/fileio.pla: 0371:
|
|
; libsrc/apple/fileio.pla: 0372: params.0 = 1
|
|
!BYTE $58,$05,$01 ; ENTER 5,1
|
|
; libsrc/apple/fileio.pla: 0373: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0374: perr = syscall($C1, @params)
|
|
; libsrc/apple/fileio.pla: 0375: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $74,$02 ; SLB [2]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$03 ; SLW [3]
|
|
!BYTE $2A,$C1 ; CB 193
|
|
!BYTE $28,$02 ; LLA [2]
|
|
!BYTE $54 ; CALL _X011
|
|
_F086 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F087 !WORD _D049+0
|
|
!BYTE $5A,$05 ; LEAVE 5
|
|
; libsrc/apple/fileio.pla: 0376: end
|
|
; libsrc/apple/fileio.pla: 0377: def a1rename(oldpath, newpath)
|
|
; oldpath -> [0]
|
|
; newpath -> [2]
|
|
_C038 ; a1rename()
|
|
; libsrc/apple/fileio.pla: 0378: perr = $01
|
|
!BYTE $58,$04,$02 ; ENTER 4,2
|
|
; libsrc/apple/fileio.pla: 0379: return perr
|
|
!BYTE $02 ; CN 1
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F088 !WORD _D049+0
|
|
!BYTE $5A,$04 ; LEAVE 4
|
|
; libsrc/apple/fileio.pla: 0380: end
|
|
; libsrc/apple/fileio.pla: 0381: def a23rename(path, newpath)
|
|
; path -> [0]
|
|
; newpath -> [2]
|
|
_P013 ; a23rename(path, newpath)()
|
|
_C039 ; a23rename()
|
|
; libsrc/apple/fileio.pla: 0382: byte params[5]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0383:
|
|
; libsrc/apple/fileio.pla: 0384: params.0 = 2
|
|
!BYTE $58,$09,$02 ; ENTER 9,2
|
|
; libsrc/apple/fileio.pla: 0385: params:1 = path
|
|
; libsrc/apple/fileio.pla: 0386: params:3 = newpath
|
|
; libsrc/apple/fileio.pla: 0387: perr = syscall($C2, @params)
|
|
; libsrc/apple/fileio.pla: 0388: return perr
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $76,$05 ; SLW [5]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$07 ; SLW [7]
|
|
!BYTE $2A,$C2 ; CB 194
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F089 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F090 !WORD _D049+0
|
|
!BYTE $5A,$09 ; LEAVE 9
|
|
; libsrc/apple/fileio.pla: 0389: end
|
|
; libsrc/apple/fileio.pla: 0390: def a1newline(refnum, emask, nlchar)
|
|
; refnum -> [0]
|
|
; emask -> [2]
|
|
; nlchar -> [4]
|
|
_C040 ; a1newline()
|
|
; libsrc/apple/fileio.pla: 0391: return perr
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
!BYTE $68 ; LAB _D049+0
|
|
_F091 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0392: end
|
|
; libsrc/apple/fileio.pla: 0393: def a2newline(refnum, emask, nlchar)
|
|
; refnum -> [0]
|
|
; emask -> [2]
|
|
; nlchar -> [4]
|
|
_P014 ; a2newline(refnum, emask, nlchar)()
|
|
_C041 ; a2newline()
|
|
; libsrc/apple/fileio.pla: 0394: byte params[4]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0395:
|
|
; libsrc/apple/fileio.pla: 0396: params.0 = 3
|
|
!BYTE $58,$0A,$03 ; ENTER 10,3
|
|
; libsrc/apple/fileio.pla: 0397: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0398: params.2 = emask
|
|
; libsrc/apple/fileio.pla: 0399: params.3 = nlchar
|
|
; libsrc/apple/fileio.pla: 0400: perr = syscall($C9, @params)
|
|
; libsrc/apple/fileio.pla: 0401: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $74,$08 ; SLB [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $74,$09 ; SLB [9]
|
|
!BYTE $2A,$C9 ; CB 201
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F092 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F093 !WORD _D049+0
|
|
!BYTE $5A,$0A ; LEAVE 10
|
|
; libsrc/apple/fileio.pla: 0402: end
|
|
; libsrc/apple/fileio.pla: 0403: def a3newline(refnum, emask, nlchar)
|
|
; refnum -> [0]
|
|
; emask -> [2]
|
|
; nlchar -> [4]
|
|
_C042 ; a3newline()
|
|
; libsrc/apple/fileio.pla: 0404: byte params[4]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0405:
|
|
; libsrc/apple/fileio.pla: 0406: params.0 = 3
|
|
!BYTE $58,$0A,$03 ; ENTER 10,3
|
|
; libsrc/apple/fileio.pla: 0407: params.1 = refnum
|
|
; libsrc/apple/fileio.pla: 0408: params.2 = emask ?? $FF :: $00
|
|
; libsrc/apple/fileio.pla: 0409: params.3 = nlchar
|
|
; libsrc/apple/fileio.pla: 0410: perr = syscall($C9, @params)
|
|
; libsrc/apple/fileio.pla: 0411: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $4C ; BRFLS _B042
|
|
!WORD _B042-*
|
|
!BYTE $2A,$FF ; CB 255
|
|
!BYTE $50 ; BRNCH _B043
|
|
!WORD _B043-*
|
|
_B042
|
|
!BYTE $00 ; CN 0
|
|
_B043
|
|
!BYTE $74,$08 ; SLB [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $74,$09 ; SLB [9]
|
|
!BYTE $2A,$C9 ; CB 201
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F094 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F095 !WORD _D049+0
|
|
!BYTE $5A,$0A ; LEAVE 10
|
|
; libsrc/apple/fileio.pla: 0412: end
|
|
; libsrc/apple/fileio.pla: 0413: def a1online(unit, buf)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
_C043 ; a1online()
|
|
; libsrc/apple/fileio.pla: 0414: perr = $27 // IOERR
|
|
!BYTE $58,$04,$02 ; ENTER 4,2
|
|
; libsrc/apple/fileio.pla: 0415: return perr
|
|
!BYTE $2A,$27 ; CB 39
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F096 !WORD _D049+0
|
|
!BYTE $5A,$04 ; LEAVE 4
|
|
; libsrc/apple/fileio.pla: 0416: end
|
|
; libsrc/apple/fileio.pla: 0417: def a2online(unit, buf)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
_P015 ; a2online(unit, buf)()
|
|
_C044 ; a2online()
|
|
; libsrc/apple/fileio.pla: 0418: byte params[4]
|
|
; params -> [4]
|
|
; libsrc/apple/fileio.pla: 0419:
|
|
; libsrc/apple/fileio.pla: 0420: params.0 = 2
|
|
!BYTE $58,$08,$02 ; ENTER 8,2
|
|
; libsrc/apple/fileio.pla: 0421: params.1 = unit
|
|
; libsrc/apple/fileio.pla: 0422: params:2 = buf
|
|
; libsrc/apple/fileio.pla: 0423: perr = syscall($C5, @params)
|
|
; libsrc/apple/fileio.pla: 0424: return perr
|
|
!BYTE $04 ; CN 2
|
|
!BYTE $74,$04 ; SLB [4]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$05 ; SLB [5]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$06 ; SLW [6]
|
|
!BYTE $2A,$C5 ; CB 197
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $54 ; CALL _X011
|
|
_F097 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F098 !WORD _D049+0
|
|
!BYTE $5A,$08 ; LEAVE 8
|
|
; libsrc/apple/fileio.pla: 0425: end
|
|
; libsrc/apple/fileio.pla: 0426: def a3volume(unit, volname)
|
|
; unit -> [0]
|
|
; volname -> [2]
|
|
_C045 ; a3volume()
|
|
; libsrc/apple/fileio.pla: 0427: byte devname[17]
|
|
; devname -> [4]
|
|
; libsrc/apple/fileio.pla: 0428: byte info[11]
|
|
; info -> [21]
|
|
; libsrc/apple/fileio.pla: 0429: byte params[9]
|
|
; params -> [32]
|
|
; libsrc/apple/fileio.pla: 0430:
|
|
; libsrc/apple/fileio.pla: 0431: ^volname = 0
|
|
!BYTE $58,$29,$02 ; ENTER 41,2
|
|
; libsrc/apple/fileio.pla: 0432: params.0 = 4
|
|
; libsrc/apple/fileio.pla: 0433: params.1 = unit
|
|
; libsrc/apple/fileio.pla: 0434: params:2 = @devname
|
|
; libsrc/apple/fileio.pla: 0435: params:4 = @info
|
|
; libsrc/apple/fileio.pla: 0436: params.6 = 11
|
|
; libsrc/apple/fileio.pla: 0437: if syscall($85, @params) == 0
|
|
; libsrc/apple/fileio.pla: 0438: params.0 = 4
|
|
; libsrc/apple/fileio.pla: 0439: params:1 = @devname
|
|
; libsrc/apple/fileio.pla: 0440: params:3 = volname
|
|
; libsrc/apple/fileio.pla: 0441: params:5 = 0
|
|
; libsrc/apple/fileio.pla: 0442: params:7 = 0
|
|
; libsrc/apple/fileio.pla: 0443: return syscall($C5, @params)
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $70 ; SB
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$20 ; SLB [32]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$21 ; SLB [33]
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $76,$22 ; SLW [34]
|
|
!BYTE $28,$15 ; LLA [21]
|
|
!BYTE $76,$24 ; SLW [36]
|
|
!BYTE $16 ; CN 11
|
|
!BYTE $74,$26 ; SLB [38]
|
|
!BYTE $2A,$85 ; CB 133
|
|
!BYTE $28,$20 ; LLA [32]
|
|
!BYTE $54 ; CALL _X011
|
|
_F099 !WORD 0
|
|
!BYTE $4E ; BRTRU _B044
|
|
!WORD _B044-*
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $74,$20 ; SLB [32]
|
|
!BYTE $28,$04 ; LLA [4]
|
|
!BYTE $76,$21 ; SLW [33]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$23 ; SLW [35]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$25 ; SLW [37]
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $76,$27 ; SLW [39]
|
|
!BYTE $2A,$C5 ; CB 197
|
|
!BYTE $28,$20 ; LLA [32]
|
|
!BYTE $54 ; CALL _X011
|
|
_F100 !WORD 0
|
|
!BYTE $5A,$29 ; LEAVE 41
|
|
; libsrc/apple/fileio.pla: 0444: fin
|
|
_B044
|
|
_B045
|
|
; libsrc/apple/fileio.pla: 0445: return -1
|
|
!BYTE $20 ; MINUS ONE
|
|
!BYTE $5A,$29 ; LEAVE 41
|
|
; libsrc/apple/fileio.pla: 0446: end
|
|
; libsrc/apple/fileio.pla: 0447: def a3online(unit, buf)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
_C046 ; a3online()
|
|
; libsrc/apple/fileio.pla: 0448: byte info[11]
|
|
; info -> [4]
|
|
; libsrc/apple/fileio.pla: 0449: byte volname[17]
|
|
; volname -> [15]
|
|
; libsrc/apple/fileio.pla: 0450: byte i
|
|
; i -> [32]
|
|
; libsrc/apple/fileio.pla: 0451:
|
|
; libsrc/apple/fileio.pla: 0452: if unit == 0
|
|
!BYTE $58,$21,$02 ; ENTER 33,2
|
|
; libsrc/apple/fileio.pla: 0453: for i = $01 to $0F
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $4E ; BRTRU _B046
|
|
!WORD _B046-*
|
|
!BYTE $1E ; CN 15
|
|
!BYTE $02 ; CN 1
|
|
_B049
|
|
!BYTE $6C,$20 ; DLB [32]
|
|
; libsrc/apple/fileio.pla: 0454: if a3volume(i, buf) == 0
|
|
; libsrc/apple/fileio.pla: 0455: ^buf = ^buf | (i << 4)
|
|
; libsrc/apple/fileio.pla: 0456: fin
|
|
!BYTE $64,$20 ; LLB [32]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $54 ; CALL _C045
|
|
_F101 !WORD _C045
|
|
!BYTE $4E ; BRTRU _B051
|
|
!WORD _B051-*
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $60 ; LB
|
|
!BYTE $64,$20 ; LLB [32]
|
|
!BYTE $08 ; CN 4
|
|
!BYTE $9A ; SHL
|
|
!BYTE $96 ; OR
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $70 ; SB
|
|
_B051
|
|
_B052
|
|
; libsrc/apple/fileio.pla: 0457: buf = buf + 16
|
|
; libsrc/apple/fileio.pla: 0458: next
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $38,$10 ; ADDI 16
|
|
!BYTE $76,$02 ; SLW [2]
|
|
_B050
|
|
!BYTE $A4 ; INCBRLE _B049
|
|
!WORD _B049-*
|
|
_B048
|
|
!BYTE $74,$20 ; SLB [32]
|
|
!BYTE $30 ; DROP
|
|
; libsrc/apple/fileio.pla: 0459: else
|
|
!BYTE $50 ; BRNCH _B047
|
|
!WORD _B047-*
|
|
_B046
|
|
; libsrc/apple/fileio.pla: 0460: return a3volume(unit, buf)
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $54 ; CALL _C045
|
|
_F102 !WORD _C045
|
|
!BYTE $5A,$21 ; LEAVE 33
|
|
; libsrc/apple/fileio.pla: 0461: fin
|
|
_B047
|
|
; libsrc/apple/fileio.pla: 0462: return 0
|
|
!BYTE $00 ; CN 0
|
|
!BYTE $5A,$21 ; LEAVE 33
|
|
; libsrc/apple/fileio.pla: 0463: end
|
|
; libsrc/apple/fileio.pla: 0464: def a13readblock(unit, buf, block)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
; block -> [4]
|
|
_C047 ; a13readblock()
|
|
; libsrc/apple/fileio.pla: 0465: perr = $27 // IOERR
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
; libsrc/apple/fileio.pla: 0466: return perr
|
|
!BYTE $2A,$27 ; CB 39
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F103 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0467: end
|
|
; libsrc/apple/fileio.pla: 0468: def a2readblock(unit, buf, block)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
; block -> [4]
|
|
_P016 ; a2readblock(unit, buf, block)()
|
|
_C048 ; a2readblock()
|
|
; libsrc/apple/fileio.pla: 0469: byte params[6]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0470:
|
|
; libsrc/apple/fileio.pla: 0471: params.0 = 3
|
|
!BYTE $58,$0C,$03 ; ENTER 12,3
|
|
; libsrc/apple/fileio.pla: 0472: params.1 = unit
|
|
; libsrc/apple/fileio.pla: 0473: params:2 = buf
|
|
; libsrc/apple/fileio.pla: 0474: params:4 = block
|
|
; libsrc/apple/fileio.pla: 0475: perr = syscall($80, @params)
|
|
; libsrc/apple/fileio.pla: 0476: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0A ; SLW [10]
|
|
!BYTE $2A,$80 ; CB 128
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F104 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F105 !WORD _D049+0
|
|
!BYTE $5A,$0C ; LEAVE 12
|
|
; libsrc/apple/fileio.pla: 0477: end
|
|
; libsrc/apple/fileio.pla: 0478: def a13writeblock(unit, buf, block)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
; block -> [4]
|
|
_C049 ; a13writeblock()
|
|
; libsrc/apple/fileio.pla: 0479: perr = $27 // IOERR
|
|
!BYTE $58,$06,$03 ; ENTER 6,3
|
|
; libsrc/apple/fileio.pla: 0480: return perr
|
|
!BYTE $2A,$27 ; CB 39
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F106 !WORD _D049+0
|
|
!BYTE $5A,$06 ; LEAVE 6
|
|
; libsrc/apple/fileio.pla: 0481: end
|
|
; libsrc/apple/fileio.pla: 0482: def a2writeblock(unit, buf, block)
|
|
; unit -> [0]
|
|
; buf -> [2]
|
|
; block -> [4]
|
|
_P017 ; a2writeblock(unit, buf, block)()
|
|
_C050 ; a2writeblock()
|
|
; libsrc/apple/fileio.pla: 0483: byte params[6]
|
|
; params -> [6]
|
|
; libsrc/apple/fileio.pla: 0484:
|
|
; libsrc/apple/fileio.pla: 0485: params.0 = 3
|
|
!BYTE $58,$0C,$03 ; ENTER 12,3
|
|
; libsrc/apple/fileio.pla: 0486: params.1 = unit
|
|
; libsrc/apple/fileio.pla: 0487: params:2 = buf
|
|
; libsrc/apple/fileio.pla: 0488: params:4 = block
|
|
; libsrc/apple/fileio.pla: 0489: perr = syscall($81, @params)
|
|
; libsrc/apple/fileio.pla: 0490: return perr
|
|
!BYTE $06 ; CN 3
|
|
!BYTE $74,$06 ; SLB [6]
|
|
!BYTE $66,$00 ; LLW [0]
|
|
!BYTE $74,$07 ; SLB [7]
|
|
!BYTE $66,$02 ; LLW [2]
|
|
!BYTE $76,$08 ; SLW [8]
|
|
!BYTE $66,$04 ; LLW [4]
|
|
!BYTE $76,$0A ; SLW [10]
|
|
!BYTE $2A,$81 ; CB 129
|
|
!BYTE $28,$06 ; LLA [6]
|
|
!BYTE $54 ; CALL _X011
|
|
_F107 !WORD 0
|
|
!BYTE $7C ; DAB _D049+0
|
|
_F108 !WORD _D049+0
|
|
!BYTE $5A,$0C ; LEAVE 12
|
|
; libsrc/apple/fileio.pla: 0491: end
|
|
; libsrc/apple/fileio.pla: 0492: //
|
|
; libsrc/apple/fileio.pla: 0493: // Machine specific initialization.
|
|
; libsrc/apple/fileio.pla: 0494: //
|
|
; libsrc/apple/fileio.pla: 0495: when MACHID & MACHID_MODEL
|
|
_INIT
|
|
!BYTE $68 ; LAB _X001+0
|
|
_F109 !WORD 0+0
|
|
!BYTE $3C,$C8 ; ANDI 200
|
|
!BYTE $52 ; SEL
|
|
!WORD _B054-*
|
|
; libsrc/apple/fileio.pla: 0496: is MACHID_III
|
|
_B055
|
|
; libsrc/apple/fileio.pla: 0497: fileio:getpfx = @a3getpfx
|
|
; libsrc/apple/fileio.pla: 0498: fileio:setpfx = @a3setpfx
|
|
; libsrc/apple/fileio.pla: 0499: fileio:getfileinfo = @a3getfileinfo
|
|
; libsrc/apple/fileio.pla: 0500: fileio:setfileinfo = @a3setfileinfo
|
|
; libsrc/apple/fileio.pla: 0501: fileio:iobufalloc = @a13iobufs
|
|
; libsrc/apple/fileio.pla: 0502: fileio:open = @a3open
|
|
; libsrc/apple/fileio.pla: 0503: fileio:close = @a3close
|
|
; libsrc/apple/fileio.pla: 0504: fileio:write = @a3write
|
|
; libsrc/apple/fileio.pla: 0505: fileio:create = @a3create
|
|
; libsrc/apple/fileio.pla: 0506: fileio:newline = @a3newline
|
|
; libsrc/apple/fileio.pla: 0507: fileio:online = @a3online
|
|
; libsrc/apple/fileio.pla: 0508: fileio:readblock = @a13readblock
|
|
; libsrc/apple/fileio.pla: 0509: fileio:writeblock = @a13writeblock
|
|
; libsrc/apple/fileio.pla: 0510: break
|
|
!BYTE $26 ; LA _C002+0
|
|
_F110 !WORD _C002+0
|
|
!BYTE $7A ; SAW _D048+0
|
|
_F111 !WORD _D048+0
|
|
!BYTE $26 ; LA _C005+0
|
|
_F112 !WORD _C005+0
|
|
!BYTE $7A ; SAW _D048+2
|
|
_F113 !WORD _D048+2
|
|
!BYTE $26 ; LA _C008+0
|
|
_F114 !WORD _C008+0
|
|
!BYTE $7A ; SAW _D048+4
|
|
_F115 !WORD _D048+4
|
|
!BYTE $26 ; LA _C011+0
|
|
_F116 !WORD _C011+0
|
|
!BYTE $7A ; SAW _D048+6
|
|
_F117 !WORD _D048+6
|
|
!BYTE $26 ; LA _C022+0
|
|
_F118 !WORD _C022+0
|
|
!BYTE $7A ; SAW _D048+12
|
|
_F119 !WORD _D048+12
|
|
!BYTE $26 ; LA _C024+0
|
|
_F120 !WORD _C024+0
|
|
!BYTE $7A ; SAW _D048+14
|
|
_F121 !WORD _D048+14
|
|
!BYTE $26 ; LA _C027+0
|
|
_F122 !WORD _C027+0
|
|
!BYTE $7A ; SAW _D048+16
|
|
_F123 !WORD _D048+16
|
|
!BYTE $26 ; LA _C032+0
|
|
_F124 !WORD _C032+0
|
|
!BYTE $7A ; SAW _D048+20
|
|
_F125 !WORD _D048+20
|
|
!BYTE $26 ; LA _C035+0
|
|
_F126 !WORD _C035+0
|
|
!BYTE $7A ; SAW _D048+22
|
|
_F127 !WORD _D048+22
|
|
!BYTE $26 ; LA _C042+0
|
|
_F128 !WORD _C042+0
|
|
!BYTE $7A ; SAW _D048+28
|
|
_F129 !WORD _D048+28
|
|
!BYTE $26 ; LA _C046+0
|
|
_F130 !WORD _C046+0
|
|
!BYTE $7A ; SAW _D048+30
|
|
_F131 !WORD _D048+30
|
|
!BYTE $26 ; LA _C047+0
|
|
_F132 !WORD _C047+0
|
|
!BYTE $7A ; SAW _D048+32
|
|
_F133 !WORD _D048+32
|
|
!BYTE $26 ; LA _C049+0
|
|
_F134 !WORD _C049+0
|
|
!BYTE $7A ; SAW _D048+34
|
|
_F135 !WORD _D048+34
|
|
!BYTE $50 ; BRNCH _B053
|
|
!WORD _B053-*
|
|
; libsrc/apple/fileio.pla: 0511: is MACHID_I
|
|
_B056
|
|
; libsrc/apple/fileio.pla: 0512: fileio:getpfx = @a1getpfx
|
|
; libsrc/apple/fileio.pla: 0513: fileio:setpfx = @a1setpfx
|
|
; libsrc/apple/fileio.pla: 0514: fileio:getfileinfo = @a1getfileinfo
|
|
; libsrc/apple/fileio.pla: 0515: fileio:setfileinfo = @a1setfileinfo
|
|
; libsrc/apple/fileio.pla: 0516: fileio:geteof = @a1geteof
|
|
; libsrc/apple/fileio.pla: 0517: fileio:seteof = @a1seteof
|
|
; libsrc/apple/fileio.pla: 0518: fileio:getmark = @a1getmark
|
|
; libsrc/apple/fileio.pla: 0519: fileio:setmark = @a1setmark
|
|
; libsrc/apple/fileio.pla: 0520: fileio:iobufalloc = @a13iobufs
|
|
; libsrc/apple/fileio.pla: 0521: fileio:open = @a1open
|
|
; libsrc/apple/fileio.pla: 0522: fileio:close = @a1close
|
|
; libsrc/apple/fileio.pla: 0523: fileio:read = @a1read
|
|
; libsrc/apple/fileio.pla: 0524: fileio:write = @a1write
|
|
; libsrc/apple/fileio.pla: 0525: fileio:create = @a1create
|
|
; libsrc/apple/fileio.pla: 0526: fileio:destroy = @a1destroy
|
|
; libsrc/apple/fileio.pla: 0527: fileio:rename = @a1rename
|
|
; libsrc/apple/fileio.pla: 0528: fileio:newline = @a1newline
|
|
; libsrc/apple/fileio.pla: 0529: fileio:online = @a1online
|
|
; libsrc/apple/fileio.pla: 0530: fileio:readblock = @a13readblock
|
|
; libsrc/apple/fileio.pla: 0531: fileio:writeblock = @a13writeblock
|
|
; libsrc/apple/fileio.pla: 0532: break
|
|
!BYTE $26 ; LA _C000+0
|
|
_F136 !WORD _C000+0
|
|
!BYTE $7A ; SAW _D048+0
|
|
_F137 !WORD _D048+0
|
|
!BYTE $26 ; LA _C003+0
|
|
_F138 !WORD _C003+0
|
|
!BYTE $7A ; SAW _D048+2
|
|
_F139 !WORD _D048+2
|
|
!BYTE $26 ; LA _C006+0
|
|
_F140 !WORD _C006+0
|
|
!BYTE $7A ; SAW _D048+4
|
|
_F141 !WORD _D048+4
|
|
!BYTE $26 ; LA _C009+0
|
|
_F142 !WORD _C009+0
|
|
!BYTE $7A ; SAW _D048+6
|
|
_F143 !WORD _D048+6
|
|
!BYTE $26 ; LA _C012+0
|
|
_F144 !WORD _C012+0
|
|
!BYTE $7A ; SAW _D048+8
|
|
_F145 !WORD _D048+8
|
|
!BYTE $26 ; LA _C014+0
|
|
_F146 !WORD _C014+0
|
|
!BYTE $7A ; SAW _D048+10
|
|
_F147 !WORD _D048+10
|
|
!BYTE $26 ; LA _C016+0
|
|
_F148 !WORD _C016+0
|
|
!BYTE $7A ; SAW _D048+36
|
|
_F149 !WORD _D048+36
|
|
!BYTE $26 ; LA _C018+0
|
|
_F150 !WORD _C018+0
|
|
!BYTE $7A ; SAW _D048+38
|
|
_F151 !WORD _D048+38
|
|
!BYTE $26 ; LA _C022+0
|
|
_F152 !WORD _C022+0
|
|
!BYTE $7A ; SAW _D048+12
|
|
_F153 !WORD _D048+12
|
|
!BYTE $26 ; LA _C020+0
|
|
_F154 !WORD _C020+0
|
|
!BYTE $7A ; SAW _D048+14
|
|
_F155 !WORD _D048+14
|
|
!BYTE $26 ; LA _C025+0
|
|
_F156 !WORD _C025+0
|
|
!BYTE $7A ; SAW _D048+16
|
|
_F157 !WORD _D048+16
|
|
!BYTE $26 ; LA _C028+0
|
|
_F158 !WORD _C028+0
|
|
!BYTE $7A ; SAW _D048+18
|
|
_F159 !WORD _D048+18
|
|
!BYTE $26 ; LA _C030+0
|
|
_F160 !WORD _C030+0
|
|
!BYTE $7A ; SAW _D048+20
|
|
_F161 !WORD _D048+20
|
|
!BYTE $26 ; LA _C033+0
|
|
_F162 !WORD _C033+0
|
|
!BYTE $7A ; SAW _D048+22
|
|
_F163 !WORD _D048+22
|
|
!BYTE $26 ; LA _C036+0
|
|
_F164 !WORD _C036+0
|
|
!BYTE $7A ; SAW _D048+24
|
|
_F165 !WORD _D048+24
|
|
!BYTE $26 ; LA _C038+0
|
|
_F166 !WORD _C038+0
|
|
!BYTE $7A ; SAW _D048+26
|
|
_F167 !WORD _D048+26
|
|
!BYTE $26 ; LA _C040+0
|
|
_F168 !WORD _C040+0
|
|
!BYTE $7A ; SAW _D048+28
|
|
_F169 !WORD _D048+28
|
|
!BYTE $26 ; LA _C043+0
|
|
_F170 !WORD _C043+0
|
|
!BYTE $7A ; SAW _D048+30
|
|
_F171 !WORD _D048+30
|
|
!BYTE $26 ; LA _C047+0
|
|
_F172 !WORD _C047+0
|
|
!BYTE $7A ; SAW _D048+32
|
|
_F173 !WORD _D048+32
|
|
!BYTE $26 ; LA _C049+0
|
|
_F174 !WORD _C049+0
|
|
!BYTE $7A ; SAW _D048+34
|
|
_F175 !WORD _D048+34
|
|
!BYTE $50 ; BRNCH _B053
|
|
!WORD _B053-*
|
|
; libsrc/apple/fileio.pla: 0533: otherwise // Apple ][
|
|
_B054
|
|
!BYTE $02 ; CASEBLOCK
|
|
!WORD $0008
|
|
!WORD _B056-*
|
|
!WORD $00C0
|
|
!WORD _B055-*
|
|
; libsrc/apple/fileio.pla: 0534: wend
|
|
_B053
|
|
; libsrc/apple/fileio.pla: 0535: //
|
|
; libsrc/apple/fileio.pla: 0536: // Keep module in memory
|
|
; libsrc/apple/fileio.pla: 0537: //
|
|
; libsrc/apple/fileio.pla: 0538: return modkeep
|
|
!BYTE $2C,$00,$20 ; CW 8192
|
|
!BYTE $5C ; RET
|
|
; libsrc/apple/fileio.pla: 0539: done
|
|
_SYSFLAGS = 0
|
|
_DEFCNT = 52
|
|
_SEGEND
|
|
;
|
|
; RE-LOCATEABLE DICTIONARY
|
|
;
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C000
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C001
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C002
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C003
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C004
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C005
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C006
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C007
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C008
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C009
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C010
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C011
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C012
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C013
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C014
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C015
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C016
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C017
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C018
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C019
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C020
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C021
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C022
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C023
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C024
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C025
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C026
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C027
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C028
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C029
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C030
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C031
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C032
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C033
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C034
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C035
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C036
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C037
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C038
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C039
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C040
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C041
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C042
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C043
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C044
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C045
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C046
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C047
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C048
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C049
|
|
!BYTE $00
|
|
!BYTE $02 ; CODE TABLE FIXUP
|
|
!WORD _C050
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F000-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F001-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F002-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F003-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F004-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F005-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F006-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F007-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F008-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F009-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F010-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F011-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F012-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F013-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F014-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F015-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F016-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F017-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F018-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F019-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F020-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F021-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F022-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F023-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F024-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F025-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F026-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F027-_SEGBEGIN
|
|
!BYTE 20 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F028-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F029-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F030-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F031-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F032-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F033-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F034-_SEGBEGIN
|
|
!BYTE 18 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F035-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F036-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F037-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F038-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F039-_SEGBEGIN
|
|
!BYTE 18 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F040-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F041-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F042-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F043-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F044-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F045-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F046-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F047-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F048-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F049-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F050-_SEGBEGIN
|
|
!BYTE 13 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F051-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F052-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F053-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F054-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F055-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F056-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F057-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F058-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F059-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F060-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F061-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F062-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F063-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F064-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F065-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F066-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F067-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F068-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F069-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F070-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F071-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F072-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F073-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F074-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F075-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F076-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F077-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F078-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F079-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F080-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F081-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F082-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F083-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F084-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F085-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F086-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F087-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F088-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F089-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F090-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F091-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F092-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F093-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F094-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F095-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F096-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F097-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F098-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F099-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F100-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F101-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F102-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F103-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F104-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F105-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F106-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F107-_SEGBEGIN
|
|
!BYTE 11 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F108-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $91 ; EXTERNAL FIXUP
|
|
!WORD _F109-_SEGBEGIN
|
|
!BYTE 1 ; ESD INDEX
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F110-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F111-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F112-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F113-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F114-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F115-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F116-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F117-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F118-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F119-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F120-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F121-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F122-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F123-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F124-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F125-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F126-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F127-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F128-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F129-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F130-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F131-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F132-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F133-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F134-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F135-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F136-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F137-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F138-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F139-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F140-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F141-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F142-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F143-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F144-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F145-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F146-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F147-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F148-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F149-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F150-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F151-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F152-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F153-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F154-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F155-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F156-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F157-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F158-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F159-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F160-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F161-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F162-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F163-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F164-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F165-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F166-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F167-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F168-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F169-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F170-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F171-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F172-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F173-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F174-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $81 ; INTERNAL FIXUP
|
|
!WORD _F175-_SEGBEGIN
|
|
!BYTE $00
|
|
!BYTE $00 ; END OF RLD
|
|
;
|
|
; EXTERNAL/ENTRY SYMBOL DICTIONARY
|
|
;
|
|
; DCI STRING: MACHID
|
|
!BYTE $CD,$C1,$C3,$C8,$C9,$44
|
|
!BYTE $10 ; EXTERNAL SYMBOL FLAG
|
|
!WORD 1 ; ESD INDEX
|
|
; DCI STRING: SYSCALL
|
|
!BYTE $D3,$D9,$D3,$C3,$C1,$CC,$4C
|
|
!BYTE $10 ; EXTERNAL SYMBOL FLAG
|
|
!WORD 11 ; ESD INDEX
|
|
; DCI STRING: HEAPALLOCALIGN
|
|
!BYTE $C8,$C5,$C1,$D0,$C1,$CC,$CC,$CF,$C3,$C1,$CC,$C9,$C7,$4E
|
|
!BYTE $10 ; EXTERNAL SYMBOL FLAG
|
|
!WORD 13 ; ESD INDEX
|
|
; DCI STRING: MEMCPY
|
|
!BYTE $CD,$C5,$CD,$C3,$D0,$59
|
|
!BYTE $10 ; EXTERNAL SYMBOL FLAG
|
|
!WORD 18 ; ESD INDEX
|
|
; DCI STRING: STRCAT
|
|
!BYTE $D3,$D4,$D2,$C3,$C1,$54
|
|
!BYTE $10 ; EXTERNAL SYMBOL FLAG
|
|
!WORD 20 ; ESD INDEX
|
|
; DCI STRING: PERR
|
|
!BYTE $D0,$C5,$D2,$52
|
|
!BYTE $08 ; ENTRY SYMBOL FLAG
|
|
!WORD _D049
|
|
!BYTE $00 ; END OF ESD
|