diff --git a/FDISK/ACTION-37-DOS25.atr b/FDISK/ACTION-37-DOS25.atr new file mode 100644 index 0000000..ca13877 Binary files /dev/null and b/FDISK/ACTION-37-DOS25.atr differ diff --git a/FDISK/ACTION-37-DOSXL.atr b/FDISK/ACTION-37-DOSXL.atr new file mode 100644 index 0000000..6d2b3d7 Binary files /dev/null and b/FDISK/ACTION-37-DOSXL.atr differ diff --git a/FDISK/ACTION-37-MYDOS.atr b/FDISK/ACTION-37-MYDOS.atr new file mode 100644 index 0000000..2c01be5 Binary files /dev/null and b/FDISK/ACTION-37-MYDOS.atr differ diff --git a/FDISK/ACTION-37-SDX.atr b/FDISK/ACTION-37-SDX.atr new file mode 100644 index 0000000..4035b23 Binary files /dev/null and b/FDISK/ACTION-37-SDX.atr differ diff --git a/FDISK/Atari-User-Toolkit.atr b/FDISK/Atari-User-Toolkit.atr new file mode 100644 index 0000000..9acb9f4 Binary files /dev/null and b/FDISK/Atari-User-Toolkit.atr differ diff --git a/FDISK/C-65 (A) - C-65 with DOS XL 2.30.atr b/FDISK/C-65 (A) - C-65 with DOS XL 2.30.atr new file mode 100644 index 0000000..711cb38 Binary files /dev/null and b/FDISK/C-65 (A) - C-65 with DOS XL 2.30.atr differ diff --git a/FDISK/C-65 (B) - MAC-65 with DOS XL 2.30.atr b/FDISK/C-65 (B) - MAC-65 with DOS XL 2.30.atr new file mode 100644 index 0000000..96e56de Binary files /dev/null and b/FDISK/C-65 (B) - MAC-65 with DOS XL 2.30.atr differ diff --git a/FDISK/C-65 with OS-Aplus-1.atr b/FDISK/C-65 with OS-Aplus-1.atr new file mode 100644 index 0000000..fc2d07c Binary files /dev/null and b/FDISK/C-65 with OS-Aplus-1.atr differ diff --git a/FDISK/C-65 with OS-Aplus-2.atr b/FDISK/C-65 with OS-Aplus-2.atr new file mode 100644 index 0000000..ddef450 Binary files /dev/null and b/FDISK/C-65 with OS-Aplus-2.atr differ diff --git a/FDISK/MYCODE01.atr b/FDISK/MYCODE01.atr new file mode 100644 index 0000000..985248b Binary files /dev/null and b/FDISK/MYCODE01.atr differ diff --git a/FDISK/OSS C-65.atr b/FDISK/OSS C-65.atr new file mode 100644 index 0000000..25a3ce5 Binary files /dev/null and b/FDISK/OSS C-65.atr differ diff --git a/FDISK/OSS_ACTION_Programmers_Aid_Disk_100.atr b/FDISK/OSS_ACTION_Programmers_Aid_Disk_100.atr new file mode 100644 index 0000000..8c24d95 Binary files /dev/null and b/FDISK/OSS_ACTION_Programmers_Aid_Disk_100.atr differ diff --git a/FDISK/The ACTION! RunTime Disk.atr b/FDISK/The ACTION! RunTime Disk.atr new file mode 100644 index 0000000..20cd237 Binary files /dev/null and b/FDISK/The ACTION! RunTime Disk.atr differ diff --git a/FDISK/The ACTION! Toolkit.atr b/FDISK/The ACTION! Toolkit.atr new file mode 100644 index 0000000..88e2443 Binary files /dev/null and b/FDISK/The ACTION! Toolkit.atr differ diff --git a/HDISK/.source.txt b/HDISK/.source.txt new file mode 100644 index 0000000..5f716d5 --- /dev/null +++ b/HDISK/.source.txt @@ -0,0 +1,67 @@ +10 .TITLE "HELLO WORLD" +20 .OPT OBJ +30 *=$4000 +40 EOL = $9B +50 ; *** SETUP ICCOM2 *** +60 OPEN = $03 +70 WRITE = $08 +80 PUTREC = $09 +90 PUTCHR = $0B +0100 CLOSE = $0C +0110 IOCB = $0340 +0120 ICCOM = $0342 +0130 ICBAL = $0344 +0140 ICBAH = $0345 +0150 ICBLL = $0348 +0160 ICBLH = $0349 +0170 ICAX1 = $034A +0180 ICAX2 = $034B +0190 CIOV = $E456 +0200 DEVNAM .BYTE "E:",EOL +0210 MYTEXT .BYTE "HELLO WORLD!",EOL +0220 ; +0230 OPENSCR +0240 LDX #$20 +0250 LDA #OPEN +0260 STA ICCOM,X +0270 ; +0280 LDA #DEVNAM&255 +0290 STA ICBAL,X +0300 LDA #DEVNAM/256 +0310 STA ICBAH,X +0320 ; +0330 ; SET SCREEN FOR WRITE OPERATION +0340 LDA #WRITE +0350 STA ICAX1,X +0360 LDA #$00 +0370 STA ICAX2,X +0380 JSR CIOV +0390 ; +0400 ; SET PUT RECORD +0410 LDA #PUTREC +0420 STA ICCOM,X +0430 ; +0440 ; SET TEXT BUFFER +0450 LDA #MYTEXT&255 +0460 STA ICBAL,X +0470 LDA #MYTEXT/256 +0480 STA ICBAH,X +0490 ; +0500 ; PRINT MESSAGE TO SCREEN +0510 LDA #$00 +0520 STA ICBLL,X +0530 LDA #$FF +0540 STA ICBLH,X +0550 ; +0560 ; +0570 LDA #$FF +0580 STA $02FC +0590 LOOP JSR CIOV +0600 LDA $02FC +0610 CMP #$FF +0620 BNE QUIT +0630 JMP LOOP +0640 ; +0650 ERROR BRK +0660 QUIT BRK +0670 .END diff --git a/HDISK/ACTNLOGO.ACT b/HDISK/ACTNLOGO.ACT new file mode 100644 index 0000000..845975c --- /dev/null +++ b/HDISK/ACTNLOGO.ACT @@ -0,0 +1,489 @@ + +; CIS Notice: +; +; I am providing the program for you +; to look at and maybe help you get +; started with ACTION!. It was +; written 'quick and dirty' and as +; such does not have many comments +; and is not the best of code in many +; places. Feel free to show it to +; anyone you like as long as you keep +; the copyright notice. + +; In case you are interested, this is +; the company logo for Action +; Computer Services (ACS). + +;- Clinton Parker 70435,625 + +; PS: Hit ESC to exit program + + +; Copyright 1983 by Action Computer Services + +; last modified April 13, 1983 + +MODULE ; LOGO.ACT + +DEFINE RTI = "$40", + PHA = "$48", + PLA = "$68", + TXA = "$8A", + TAX = "$AA", + TYA = "$98", + TAY = "$A8" + +BYTE start +BYTE ARRAY display +CARD ARRAY yLoc(96) + + +PROC NMI() + BYTE color, cnt + BYTE COLPF1=$D017, WSYNC=$D40A, + VCOUNT=$D40B, COLPF2=$D018, + COLPF0=$D016 + BYTE ARRAY col(0)=[$68 $C $96 $38] + + [PHA TXA PHA TYA PHA] + + IF VCOUNT=7 THEN + color = start + start = start - 1 + IF (start&$1F)=0 THEN cnt = cnt + 1 FI + FI + + color = color - 2 + WSYNC = 1 + COLPF0 = color + COLPF1 = color + COLPF2 = col((cnt + VCOUNT) & 3) +[PLA TAY PLA TAX PLA RTI] + + +PROC Background() + BYTE COLBK=$D01A, VCOUNT=$D40B, WSYNC=$D40A + + [PHA TXA PHA TYA PHA] + WSYNC = 0 + IF VCOUNT>50 THEN + COLBK = 0 + ELSE + COLBK = $D6 + FI +[PLA TAY PLA TAX PLA RTI] + + +PROC Init7() + BYTE i + CARD screen, scrloc=88 + + Graphics(23) + SetColor(0,2,10) + SetColor(1,0,12) + SetColor(2,0,12) + + display = scrloc + screen = scrloc + i = 0 + WHILE i<96 DO + yLoc(i) = screen + screen = screen + 40 + i = i + 1 + OD +RETURN + + +PROC Plot7(BYTE x, y) + BYTE ARRAY pos, bm(0)=[$C0$30$C$3], + cm(0)=[$0 $55 $AA $FF] + + pos = yLoc(y) + + pos(x RSH 2) ==% (bm(x&3)&cm(color)) +RETURN + + +PROC VLine(BYTE x, y1, y2) + WHILE y1#y2 DO + Plot7(x, y1) + y1 = y1 + 1 + OD +RETURN + + +PROC HLine(BYTE x1, x2, y) + WHILE x1#x2 DO + Plot7(x1, y) + x1 = x1 + 1 + OD +RETURN + + +PROC DLine(BYTE x1, x2, y1) + BYTE incr + + incr = 1 + IF x240 THEN + COL==+1 + FI + IF COL>14 THEN + COL=1 + FI + + COLOR=COL + + IF X>=79 THEN A=-A X==+A FI + IF J>=79 THEN C=-C J==+C FI + IF J<=0 THEN C=-C J==+C FI + IF X<=0 THEN A=-A X==+A FI + IF Y>=191 THEN B=-B Y==+B FI + IF K>=191 THEN D=-D K==+D FI + IF K<=0 THEN D=-D K==+D FI + IF Y<=0 THEN B=-B Y==+B FI + + OD +RETURN diff --git a/HDISK/PTRQUILT.ACT b/HDISK/PTRQUILT.ACT new file mode 100644 index 0000000..501a001 --- /dev/null +++ b/HDISK/PTRQUILT.ACT @@ -0,0 +1,15 @@ +PROC MAIN() + CARD I + BYTE POINTER SCR ; BEGINNING OF SCREEN POINTER + CARD POINTER DLADDR ;DISPLAY LIST ADDR + GRAPHICS(7+16) + DLADDR=PEEKC(560)+4 + SCR=DLADDR^ + ; PLOT AN ARBITRARY PATTERN ON SCREEN + FOR I=1 TO 3840 + DO + SCR^=135 + SCR==+1 + OD + FOR I=1 TO 33000 DO OD +RETURN diff --git a/HDISK/SCROLCLR.ACT b/HDISK/SCROLCLR.ACT new file mode 100644 index 0000000..66f326a --- /dev/null +++ b/HDISK/SCROLCLR.ACT @@ -0,0 +1,29 @@ +proc scrollcolors() + + BYTE wsync=54282, ;the 'wait for sync' flag + vcount=54283,;scanline count flag + clr=53272, ;bkgrd register + ctr,chgclr=[0], + incclr ;incr luminance + + graphics(0) + pute() + for ctr=1 to 23 + do + printe("A Demo of Shifting Background Colours") + od + print("A Demo of Shifting Background Colours") + do + for ctr=1 to 4 + do + incclr=chgclr + do + wsync=0 + clr=incclr + incclr==+1 + until vcount&128 + od + od + chgclr==+1 + od +return diff --git a/HDISK/SCROLCLRS.BIN b/HDISK/SCROLCLRS.BIN new file mode 100644 index 0000000..bdeb9b9 Binary files /dev/null and b/HDISK/SCROLCLRS.BIN differ diff --git a/HDISK/ZED.ACT b/HDISK/ZED.ACT new file mode 100644 index 0000000..5b1eb0b --- /dev/null +++ b/HDISK/ZED.ACT @@ -0,0 +1,20 @@ +proc main() + card i ;"cardinal"=unsigned int + graphics(7+16);set graphics 23 + setcolor(0,4,8) ;color 1 (pink) + setcolor(1,7,4) ;color 2 (blue) + setcolor(2,0,14) ;color 3 (white) + setcolor(100,100,100) ;background + color=1 + plot(10,10) + drawto(149,10) + color=2 + drawto(10,85) + color=3 + drawto(149,85) + for i=1 to 60000 + do + ;do nothing + od + graphics(0) +return diff --git a/MISC/277.zip b/MISC/277.zip new file mode 100644 index 0000000..4307e10 Binary files /dev/null and b/MISC/277.zip differ diff --git a/ROM/ACTION-36-ROM-OSS.car b/ROM/ACTION-36-ROM-OSS.car new file mode 100644 index 0000000..6276a45 Binary files /dev/null and b/ROM/ACTION-36-ROM-OSS.car differ diff --git a/ROM/ACTION-37-ROM-OSS-16k.car b/ROM/ACTION-37-ROM-OSS-16k.car new file mode 100644 index 0000000..6276a45 Binary files /dev/null and b/ROM/ACTION-37-ROM-OSS-16k.car differ diff --git a/ROM/ACTION-37-ROM-Plain-16k.car b/ROM/ACTION-37-ROM-Plain-16k.car new file mode 100644 index 0000000..83fc859 Binary files /dev/null and b/ROM/ACTION-37-ROM-Plain-16k.car differ diff --git a/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.car b/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.car new file mode 100644 index 0000000..7ba2894 Binary files /dev/null and b/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.car differ diff --git a/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.rom b/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.rom new file mode 100644 index 0000000..fc6a917 Binary files /dev/null and b/ROM/ACTION_Version_3.6_(C)_1983_ACS_034M.rom differ diff --git a/ROM/ATARI PILOT.car b/ROM/ATARI PILOT.car new file mode 100644 index 0000000..608c3eb Binary files /dev/null and b/ROM/ATARI PILOT.car differ diff --git a/ROM/Atari Basic Rev. C.rom b/ROM/Atari Basic Rev. C.rom new file mode 100644 index 0000000..b65b7c1 Binary files /dev/null and b/ROM/Atari Basic Rev. C.rom differ diff --git a/ROM/Atari PILOT.rom b/ROM/Atari PILOT.rom new file mode 100644 index 0000000..2c18825 Binary files /dev/null and b/ROM/Atari PILOT.rom differ diff --git a/ROM/Atari_Basic_Rev._C.car b/ROM/Atari_Basic_Rev._C.car new file mode 100644 index 0000000..dc9ab2d Binary files /dev/null and b/ROM/Atari_Basic_Rev._C.car differ diff --git a/atari800.cfg b/atari800.cfg index ac91f8f..f9122a9 100644 --- a/atari800.cfg +++ b/atari800.cfg @@ -70,8 +70,8 @@ BLACK_BOX_ROM= XLD_D_ROM= XLD_V_ROM= PROTO80_ROM= -CARTRIDGE_FILENAME=/home/gmgauthier/Atari/ROM/MAC 65 _ V1.02.ROM -CARTRIDGE_TYPE=0 +CARTRIDGE_FILENAME=/home/gmgauthier/Atari/ROM/ACTION-37-ROM-OSS-16k.car +CARTRIDGE_TYPE=15 CARTRIDGE_PIGGYBACK_FILENAME= CARTRIDGE_PIGGYBACK_TYPE=0 CARTRIDGE_AUTOREBOOT=1 @@ -116,8 +116,8 @@ FILTER_NTSC_ARTIFACTS=0.6 FILTER_NTSC_FRINGING=0.5 FILTER_NTSC_BLEED=0 FILTER_NTSC_BURST_PHASE=0 -VIDEOMODE_WINDOW_WIDTH=1920 -VIDEOMODE_WINDOW_HEIGHT=1080 +VIDEOMODE_WINDOW_WIDTH=1710 +VIDEOMODE_WINDOW_HEIGHT=1059 VIDEOMODE_FULLSCREEN_WIDTH=1920 VIDEOMODE_FULLSCREEN_HEIGHT=1080 VIDEOMODE_WINDOWED=1