Test C:

lib/sysequ.asm

@@ -1,30 +1,30 @@
-    .PAGE "FTe SYSTEM EQUATES FOR ATARI"
+;    .PAGE "FTe SYSTEM EQUATES FOR ATARI"
 ;
 ;  FILE = #DN:SYSEQU.ASM
 ;
 ;
 ; I/O CONTROL BLOCK EQUATES
 ;
-SAVEPC = *      ; SAVE CURRENT ORG
+;SAVEPC = *      ; SAVE CURRENT ORG
 ;
-    *=  $0340   ;START OF SYSTEM IOCBS
-IOCB
+
+IOCB =  $0340   ;START OF SYSTEM IOCBS
 ;
-ICHID *= *+1    ;DEVICE HANDLER IS (SET BY OS)
-ICDNO *= *+1    ;DEVICE NUMBER (SET BY OS)
-ICCOM *= *+1    ;I/O COMMAND
-ICSTA *= *+1    ;I/O STATUS
-ICBADR *= *+2   ;BUFFER ADDRESS
-ICPUT *= *+2    ;DH PUT ROUTINE (ADR-1)
-ICBLEN *= *+2   ;BUFFER LENGTH
-ICAUX1 *= *+1   ;AUX 1
-ICAUX2 *= *+1   ;AUX 2
-ICAUX3 *= *+1   ;AUX 3
-ICAUX4 *= *+1   ;AUX 4
-ICAUX5 *= *+1   ;AUX 5
-ICAUX6 *= *+1   ;AUX 6
+ICHID = IOCB    ;DEVICE HANDLER IS (SET BY OS)
+ICDNO = IOCB+1    ;DEVICE NUMBER (SET BY OS)
+ICCOM = IOCB+2    ;I/O COMMAND
+ICSTA = IOCB+3    ;I/O STATUS
+ICBADR = IOCB+4   ;BUFFER ADDRESS
+ICPUT = IOCB+6   ;DH PUT ROUTINE (ADR-1)
+ICBLEN = IOCB+8   ;BUFFER LENGTH
+ICAUX1 = IOCB+10   ;AUX 1
+ICAUX2 = IOCB+11   ;AUX 2
+ICAUX3 = IOCB+12   ;AUX 3
+ICAUX4 = IOCB+13   ;AUX 4
+ICAUX5 = IOCB+14   ;AUX 5
+ICAUX6 = IOCB+15   ;AUX 6
 ;
-IOCBLEN = *-IOCB ;LENGTH OF ONE IOCB
+IOCBLEN = 16 ;LENGTH OF ONE IOCB
 ;
 ; IOCB COMMAND VALUE EQUATES
 ;
@@ -53,7 +53,7 @@ OPUPD = 12      ;OPEN UPDATE
 OPAPND = 9      ;OPEN APPEND
 OPDIR = 6       ;OPEN DIRECTORY
 ;
-    .PAGE 
+;    .PAGE 
 ;
 ;    EXECUTE FLAG DEFINES
 ;
@@ -90,5 +90,5 @@ RUNLOC = $3D    ; CP/A LOAD/RUN ADR
 CPCMDB = $3F    ; COMMAND BUFFER (60 BYTES)
 CPCMDGO = $F3
 ;
-    *=  SAVEPC  ; RESTORE PC
+;    *=  SAVEPC  ; RESTORE PC
 ;

lib/sysequ.asm.bak

@@ -0,0 +1,94 @@
+    .PAGE "FTe SYSTEM EQUATES FOR ATARI"
+;
+;  FILE = #DN:SYSEQU.ASM
+;
+;
+; I/O CONTROL BLOCK EQUATES
+;
+SAVEPC = *      ; SAVE CURRENT ORG
+;
+    *=  $0340   ;START OF SYSTEM IOCBS
+IOCB
+;
+ICHID *= *+1    ;DEVICE HANDLER IS (SET BY OS)
+ICDNO *= *+1    ;DEVICE NUMBER (SET BY OS)
+ICCOM *= *+1    ;I/O COMMAND
+ICSTA *= *+1    ;I/O STATUS
+ICBADR *= *+2   ;BUFFER ADDRESS
+ICPUT *= *+2    ;DH PUT ROUTINE (ADR-1)
+ICBLEN *= *+2   ;BUFFER LENGTH
+ICAUX1 *= *+1   ;AUX 1
+ICAUX2 *= *+1   ;AUX 2
+ICAUX3 *= *+1   ;AUX 3
+ICAUX4 *= *+1   ;AUX 4
+ICAUX5 *= *+1   ;AUX 5
+ICAUX6 *= *+1   ;AUX 6
+;
+IOCBLEN = *-IOCB ;LENGTH OF ONE IOCB
+;
+; IOCB COMMAND VALUE EQUATES
+;
+COPN =  3       ;OPEN
+CGBINR = 7      ;GET BINARY RECORD
+CGTXTR = 5      ;GET TEXT RECORD
+CPBINR = 11     ;PUT BINARY RECORD
+CPTXTR = 9      ;PUT TEXT RECORD
+CCLOSE = 12     ;CLOSE 
+CSTAT = 13      ;GET STATUS
+;
+; DEVICE DEPENDENT COMMAND EQUATES FOR FILE MANAGER
+;
+CREN =  32      ;RENAME
+CERA =  33      ;ERASE
+CPRO =  35      ;PROTECT
+CUNP =  36      ;UNPROTECT
+CPOINT = 37     ;POINT
+CNOTE = 38      ;NOTE
+;
+; AUX1 VALUES REQD FOR OPEN
+;
+OPIN =  4       ;OPEN INPUT
+OPOUT = 8       ;OPEN OUTPUT
+OPUPD = 12      ;OPEN UPDATE
+OPAPND = 9      ;OPEN APPEND
+OPDIR = 6       ;OPEN DIRECTORY
+;
+    .PAGE 
+;
+;    EXECUTE FLAG DEFINES
+;
+EXCYES = $80    ; EXECUTE IN PROGRESS
+EXCSCR = $40    ; ECHO EXCUTE INPUT TO SCREEN
+EXCNEW = $10    ; EXECUTE START UP MODE
+EXCSUP = $20    ; COLD START EXEC FLAG
+;
+; MISC ADDRESS EQUATES
+;
+CPALOC = $0A    ; POINTER TO CP/A
+WARMST = $08    ; WAR, START (0=COLD)
+MEMLO = $02E7   ; AVAIL MEM (LOW) PTR
+MEMTOP = $02E5  ; AVAIL MEM (HIGH) PTR
+APPMHI = $0E    ; UPPER LIMIT OF APPLICATION MEMORY
+INITADR = $02E2 ; ATARI LOAD/INIT ADR
+GOADR = $02E0   ; ATARI LOAD/GO ADR
+CARTLOC = $BFFA ; CARTRIDGE RUN LOCATION
+CIO =   $E456   ;CIO ENTRY ADR
+EOL =   $9B     ; END OF LINE CHAR
+;
+;  CP/A FUNCTION AND VALUE DISPLACEMSNT
+;     (INDIRECT THROUGH CPALOC)
+;           IE. (CPALOC),Y
+;
+CPGNFN = 3      ; GET NEXT FILE NAME
+CPDFDV = $07    ; DEFAULT DRIVE (3 BYTES)
+CPBUFP = $0A    ; CMD BUFF NEXT CHAR POINTR (1 BYTE)
+CPEXFL = $0B    ; EXECUTE FLAG
+CPEXFN = $0C    ; EXECUTE FILE NAME (16 BYTES)
+CPEXNP = $1C    ; EXECUTE NOTE/POINT VALUES
+CPFNAM = $21    ; FILENAME BUFFER
+RUNLOC = $3D    ; CP/A LOAD/RUN ADR
+CPCMDB = $3F    ; COMMAND BUFFER (60 BYTES)
+CPCMDGO = $F3
+;
+    *=  SAVEPC  ; RESTORE PC
+;

loaderFN.lab

@@ -0,0 +1,402 @@
+mads 2.1.6 build 65 (4 Jun 23)
+Label table:
+00	0247	PDVMASK
+00	0340	IOCB
+00	0340	ICHID
+00	0341	ICDNO
+00	0342	ICCOM
+00	0343	ICSTA
+00	0344	ICBADR
+00	0346	ICPUT
+00	0348	ICBLEN
+00	034A	ICAUX1
+00	034B	ICAUX2
+00	034C	ICAUX3
+00	034D	ICAUX4
+00	034E	ICAUX5
+00	034F	ICAUX6
+00	0010	IOCBLEN
+00	0003	COPN
+00	0007	CGBINR
+00	0005	CGTXTR
+00	000B	CPBINR
+00	0009	CPTXTR
+00	000C	CCLOSE
+00	000D	CSTAT
+00	0020	CREN
+00	0021	CERA
+00	0023	CPRO
+00	0024	CUNP
+00	0025	CPOINT
+00	0026	CNOTE
+00	0004	OPIN
+00	0008	OPOUT
+00	000C	OPUPD
+00	0009	OPAPND
+00	0006	OPDIR
+00	0080	EXCYES
+00	0040	EXCSCR
+00	0010	EXCNEW
+00	0020	EXCSUP
+00	000A	CPALOC
+00	0008	WARMST
+00	02E7	MEMLO
+00	02E5	MEMTOP
+00	000E	APPMHI
+00	02E2	INITADR
+00	02E0	GOADR
+00	BFFA	CARTLOC
+00	E456	CIO
+00	009B	EOL
+00	0003	CPGNFN
+00	0007	CPDFDV
+00	000A	CPBUFP
+00	000B	CPEXFL
+00	000C	CPEXFN
+00	001C	CPEXNP
+00	0021	CPFNAM
+00	003D	RUNLOC
+00	003F	CPCMDB
+00	00F3	CPCMDGO
+00	000A	ACKTIMEOUT
+00	0002	READTIMEOUT
+00	0318	STACKP
+00	0042	CRITIC
+00	02BD	DRETRY
+00	030F	CASFLG
+00	029C	CRETRY
+00	0002	CASINI
+00	0009	BOOT
+00	000A	DOSVEC
+00	000C	DOSINI
+00	0010	IRQENS
+00	0024	INBLOCKADDR
+00	0026	TOBLOCKEND
+00	0028	TOFILEENDL
+00	003D	COMPRESSEDMAPPOS
+00	0030	CHECKSUM
+00	0031	SECLENUS
+00	0032	SECBUFFER
+00	0034	CRETRYZ
+00	0035	TRANSMITERROR
+00	0036	LOOPERKA
+00	0037	STACKCOPY
+00	0058	SAVMSC
+00	00CA	CURRENTDIRBUF
+00	00CC	CURRENTDIRBUFEND
+00	00D0	CURRENTFILEINFOBUFF
+00	00D2	DIRMAPSECT
+00	00D6	LASTFILESPAGEFLAG
+00	00D9	NAMESONSCREEN
+00	00E2	INMAPPOINTER
+00	00E4	TEMPZP
+00	020A	VSERIN
+00	02C5	COLPF1S
+00	02C6	COLPF2S
+00	02C8	COLBAKS
+00	0244	COLDST
+00	02FC	KBCODES
+00	0300	DDEVIC
+00	0301	DUNIT
+00	0302	DCOMND
+00	0304	DBUFA
+00	0308	DBYT
+00	030A	DAUX1
+00	030B	DAUX2
+00	0342	ICCMD
+00	0344	ICBUFA
+00	0348	ICBUFL
+00	034A	ICAX1
+00	034B	ICAX2
+00	03FA	GINTLK
+00	D204	AUDF3
+00	D206	AUDF4
+00	D207	AUDC4
+00	D208	AUDCTL
+00	D20A	SKSTRES
+00	D20D	SEROUT
+00	D20D	SERIN
+00	D20E	IRQEN
+00	D20E	IRQST
+00	D20F	SKSTAT
+00	D20F	SKCTL
+00	D303	PBCTL
+00	D301	PORTB
+00	D40B	VCOUNT
+00	E456	JCIOMAIN
+00	E459	JSIOINT
+00	E471	JTESTROM
+00	E474	JRESETWM
+00	E477	JRESETCD
+00	084B	FILESECBUFF
+00	084B	TEMPMEMLO
+00	1FFD	START
+00	2000	MOVEDPROC
+00	0700	LOADER
+00	0700	LOADER.TOFILEENDH
+00	0702	LOADER.FILEINIT
+00	071B	LOADER.FILENEXTBLOCK
+00	0727	LOADER.FILENOFFFFHEAD
+00	073C	LOADER.WHATISIT
+00	074B	LOADER.FILENOFIRSTBLOCK
+00	0757	LOADER.BLOCKREADLOOP
+00	0768	LOADER.NONEXTSECTOR1
+00	076A	LOADER.FILESECBUFFHADDR1
+00	0771	LOADER.INBLOCKREADLOOP
+00	0778	LOADER.LABEL15
+00	0782	LOADER.GOCHECKEOF
+00	0787	LOADER.GOGETNEXTFILESECT
+00	078C	LOADER.FILEGETBLOCKSTART
+00	0797	LOADER.GOINITADDR
+00	079A	LOADER.GETDATASECTOR
+00	079A	LOADER.READERRORLOOP
+00	079C	LOADER.SETDCB
+00	07A5	LOADER.SIOJMP
+00	07AB	LOADER.BLOKDANYCHIO_LOADER
+00	07B3	LOADER.SECLEN
+00	07B5	LOADER.SECTORNUMBER
+00	07B7	LOADER.CHECKEOF
+00	07C1	LOADER.ENDOFFILE
+00	07CA	LOADER.FILEGETBYTE
+00	07CE	LOADER.NOTEOF
+00	07DB	LOADER.BYTETOACCU
+00	07DD	LOADER.FILESECBUFFHADDR2
+00	07E1	LOADER.INCREMENTATIONXH
+00	07EA	LOADER.GOTOSEC
+00	07EB	LOADER.JRTS
+00	07EC	LOADER.GETNEXTFILESECT
+00	07EE	LOADER.READNEXTINSEQUENCE
+00	07EF	LOADER.SECTORSEQUENCECOUNT
+00	07FD	LOADER.NOINCDAUX2
+00	07FF	LOADER.NEXTMAPPOSITION
+00	080F	LOADER.HOWMANYTOSKIP
+00	081D	LOADER.NOINCDAUX2_V2
+00	081F	LOADER.SETNEWSTARTSECTOR
+00	082F	LOADER.READYTOREAD
+00	0843	LOADER.INCCOMPRESSEDMAPPOS
+00	0849	LOADER.SKIPINCCOMPRESSEDMAPPOS
+00	084A	LOADER.INSECTORCOUNTH
+00	084B	LOADER.ZZZZZZ
+00	084B	LOADER.FIRSTMAPSECTORNR
+00	084D	LOADER.LOADSTART
+00	0856	LOADER.OUTMEMCLEARLOOP
+00	0858	LOADER.INMEMCLEARLOOP
+00	0874	LOADER.LASTMEMPAGECLEAR
+00	0895	LOADER.TEMPTOFILEENDL
+00	2196	JAKIETURBO
+00	2196	USMODE
+00	2197	QMEG
+00	2198	BOOTDRIVE
+00	2199	BOOTSHIFT
+00	219A	FOLDERTURBO
+00	219B	NEWCOLORS
+00	219C	BIN2ASCIIHEX
+00	21A7	LABELKA
+00	21A8	EDRIVER
+00	21AB	EDITOROPEN
+00	21D9	MAINPROG
+00	21F7	USSPEED
+00	21F9	USSTATPRINT
+00	2202	NOUSSPEED
+00	2205	ERROR148
+00	2207	ERRORDISPLAY
+00	222E	ERRORNUMHEX
+00	2236	WAITKLOOP
+00	2248	READMAINDIR
+00	2261	SPARTADISK
+00	226C	SEKTOR128B
+00	227E	READDIR
+00	22B7	LABEL46
+00	22C5	LABEL40
+00	22D3	LABEL43
+00	22E0	PROGNAME
+00	22EB	LABEL42
+00	22F6	LABEL45
+00	22F9	DATFILEFOUND
+00	2319	LABEL47
+00	2330	TOSTARTOFDIR
+00	2341	STATUSBARPRINT
+00	2347	DENSITYDISPLAY
+00	2349	DRIVEDISP1
+00	235C	QMEGSTATUS
+00	2364	BASSTATUS
+00	236B	USSTATUS
+00	23E7	LABEL68
+00	23F5	NOLASTFILEINDIR
+00	23FF	LABEL50
+00	2409	LABEL51
+00	2430	LABEL53
+00	2438	LABEL56
+00	2441	LABEL55
+00	2444	LASTFILESPAGEJUMP
+00	2447	LABEL54
+00	244A	LABEL52
+00	245C	LABEL65
+00	246A	LABEL60
+00	2478	COMPARENAMES
+00	247A	CHECKING62
+00	2486	REPLACINGNAME
+00	2492	CHECKNEXTNAME
+00	249D	LABEL64
+00	24A0	GAMENAMEPRINT
+00	24AC	YPOSGAMENAME
+00	24AD	GAMEKEYSYMBOL
+00	24B0	GAMENAME
+00	24ED	LABEL66
+00	24F8	LABEL59
+00	2503	LABEL69
+00	2506	MAINDIRKEY
+00	2509	UPDIRKEY
+00	2519	ESCKEY
+00	2526	NOSHIFTESC
+00	252D	TOSTARTOFDIRJUMP
+00	2530	SPACEKEY
+00	2537	CONTARROWSPRINT
+00	2548	LASTFILESPAGE
+00	254A	KEYBOARDPROC
+00	255C	COLORSALREADYSET
+00	2581	NOCTRLLETTER
+00	2592	NONUMBER
+00	2598	BIGLETTERS
+00	25BF	SUBDIRTEXT
+00	25C8	GOTOLOADER
+00	25D0	DISKNOTCHANGED1
+00	25DC	SETTURBOOFF
+00	25DF	NOSHIFT
+00	2F80	COMPRESSEDMAP
+00	2634	GENERATECOMPRESSEDMAP
+00	2673	JUMPFORWARD
+00	2680	OFFSETTOBIG
+00	2696	GETNEXTMAPWORD
+00	26A1	SECTOR00
+00	26AC	OPS01
+00	26B8	NOTEQAL01
+00	26E3	ADDTOCOMPRESSEDMAP
+00	26F5	XXXXBLA
+00	26FD	NOINC013
+00	26FE	FLUSHBUFFER
+00	2709	NOFLUSH
+00	270A	ENDMAKINGMAP
+00	270D	LOADERGO
+00	2720	NORUNFROMDOS
+00	2731	AFTERWORMSTART
+00	276D	MOVELOOP1
+00	2785	CLEARLOOP1
+00	2797	NOZPAGE
+00	27BE	FILETOOPEN
+00	27C1	ADDSPEEDPROC
+00	27DB	HAPPYRELOCATE
+00	27FB	LABEL72X
+00	27FF	TURBORELOCADDR
+00	280A	LABEL73
+00	2825	NOHAPPYLOADER
+00	2826	HAPPYUSMOVEDPROC
+00	283D	COMMANDLOOP
+00	283E	HAPPYSPEED
+00	2849	DELAYLOOPCMD
+00	2853	XJSR1
+00	2867	XJSR2
+00	286D	XJSR3
+00	2873	XJSR4
+00	2878	XJSR5
+00	287B	WAITFORENDOFTRANSMISSION
+00	2884	XJSR6
+00	288E	DOUBLEACK
+00	288E	XJSR7
+00	289A	READSECTORLOOP
+00	289A	XJSR8
+00	289F	XJSR9
+00	28A7	XJSRA
+00	28AE	ERRORHERE
+00	28B9	ENDOFTRANSMISSION
+00	28C7	SECTRANSREG
+00	28DD	PUTSIOBYTE
+00	28DE	WAITFORSERIAL
+00	28F1	ADDCHECKSUM
+00	28F9	GETSIOBYTE
+00	28FB	EXTERNALLOOP
+00	28FF	INTERNALLOOP
+00	290F	ACKRECEIVE
+00	2925	ENDHAPPYUSPROC
+00	2925	BLOKDANYCHIO_GETUSSPEED
+00	2931	DIRMAPEND
+00	2934	LABEL39
+00	2948	DISCNOTCHANGED2
+00	2970	LABEL80
+00	297E	NONEXTMAPSECTOR
+00	29A0	NOINCH
+00	29D0	LABEL79
+00	29FD	LABEL75
+00	2A0E	LABEL81
+00	2A1C	LABEL82
+00	2A2A	READPERCOM
+00	2A2F	READPERCOMRETRY
+00	2A43	PERCOMERROR
+00	2A48	SET1SECT128
+00	2A53	BLOKDANYCHIO_PERCOM
+00	2A5F	READFIRSTSECT
+00	2A75	READSECTOR
+00	2A7E	READSECTOR1
+00	2A8C	DISKREADRETRY
+00	2A99	LABEL85
+00	2AA3	BLOKDANYCHIO
+00	2AAF	DISKRETRYCOUNT
+00	2AB0	PRINTXY
+00	2ADC	LABEL92
+00	2AF9	LABEL90
+00	2B00	LABEL91
+00	2B08	LABEL89
+00	2B1A	LABEL93
+00	2B2B	LABEL88
+00	2B32	LABEL87
+00	2B38	LABEL94
+00	2B3D	GOERRORDISP
+00	2B40	GOSIO
+00	2B48	STANDARDSPEED
+00	2B4B	TABLE2DCB
+00	2B53	IOTABLEADDR
+00	2B5D	CLOSE1
+00	2B5F	CLOSEX
+00	2B67	GETKEY
+00	2BAB	GKEYERROR
+00	2BAE	KDRIVER
+00	2BB1	DISCCHANGECHECK
+00	2BBA	LABEL98
+00	2BC7	CHANGEDD
+00	2BC8	ASTERIKS
+00	2BE6	GETHEXNUMBER
+00	2BF6	GETHEX4BITS
+00	2C01	ISNUMBER
+00	2C02	SETDRIVENR
+00	2C15	SETDRIVELETTER
+00	2C24	SETBLOKDANYCHDRIVE
+00	2C31	MEMLOPRINT
+00	2C68	MEMLOVALUE
+00	2C6E	XJSRTABLEL
+00	2C78	XJSRTABLEH
+00	2C82	HAPPYOFFSET
+00	2C84	DENSITYCODES
+00	2C87	ONTEXT
+00	2C8A	OFFTEXT
+00	2C8D	PDVMASKTEMP
+00	2C8E	PERCOMDATA
+00	2C9A	FIRSTSECTORSTABLE
+00	2D00	FIRSTSECTORBUFF
+00	2D00	PROGRAMEND
+00	2D80	DIRMAPSECTORBUFF
+00	2F80	DIRSECTORBUFF
+00	2C8E	FIRSTRUN
+00	2C98	NOSHIFTBOOT
+00	2CA1	BASSTATPRINT
+00	2CAA	BRAKBASICA
+00	2CAC	TESTQMEGLOOP
+00	2CBE	QSTATPRINT
+00	2CC7	BRAKQMEGA
+00	2CDF	QMEGSTRING
+00	0080	MAPCOUNTER
+00	0082	COMPRESSEDMAPCOUNTER
+00	0084	MAPCOUNTERMEM
+00	0086	PREVFILESECTOR
+00	0088	MAPPOSITIONMEM
+00	008A	SECTOROFFSET
+00	008C	SECTORSCOUNTER