This is a work-in-progress collection of notes I've been making as I'm exploring the Heathkit H89.
J.B. Langston jblang
jblang
/ Advanced Graphics.bas
Created
August 17, 2023 02:17
Advanced Graphics Techniques for Mac QuickBASIC
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' Advanced Graphics Techniques--Part II by Bob Boothe | |
| ' 80 Microcomputing Magazine, May 1981, Page 119-142 | |
| ' https://archive.org/details/80-microcomputing-magazine-1981-05/page/n121/mode/2up | |
| ' Converted to QuickBASIC for Mac by J.B. Langston, August 2023 | |
| w=WINDOW(2): h=WINDOW(3) | |
| pi=3.14: xc=w/2: yc=h/2: sc=yc | |
| CALL Poly18 | |
| CALL TheEye | |
| CALL Moire |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 REM Advanced Graphics Techniques--Part II by Bob Boothe | |
| 2 REM 80 Microcomputing Magazine, May 1981, Page 119-142 | |
| 3 REM https://archive.org/details/80-microcomputing-magazine-1981-05/page/n121/mode/2up | |
| 4 REM Converted to AppleSoft by J.B. Langston, January 2022 | |
| 10 HOME : HGR : HCOLOR= 3: POKE 49234,0 | |
| 20 PI = 3.14:XC = 139:YC = 95:SC = YC | |
| 30 R1 = SC:R2 = SC:V = 18: GOSUB 100: GOSUB 2000 | |
| 40 GOSUB 200: GOSUB 300: GOSUB 400: GOSUB 500: GOSUB 600 | |
| 50 SD = 76:TD = 3:TM = 2: GOSUB 700 | |
| 60 SD = 60:TD = 2:TM = 2: GOSUB 700 |
- Mike's IBM PCjr Page: Comprehensive information about PCjr.
- PCjr Web Forums: Talk to other PCjr enthusiasts.
- PCjr Cartridge ROMs: ROM dumps of PCjr cartridge software
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 IR = 47104: REM CONTROL REGISTER $B800 | |
| 20 DR = 47360: REM DATA REGISTER $B900 | |
| 30 GOSUB 100 | |
| 40 INPUT "WHAT DO YOU WANT TO PRINT? ";S$ | |
| 50 GOSUB 200 | |
| 60 END | |
| 100 REM INITIALIZE LCD | |
| 110 FOR I = 1 TO 4 | |
| 120 POKE IR,56: REM 8-BIT BUS, 5X8 FONT, 2 LINES |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; Apple 30th Anniversary Tribute for Apple II by Dave Schmenk | |
| ; Original at https://www.applefritter.com/node/24600#comment-60100 | |
| ; Disassembled, Commented, and ported to Apple II by J.B. Langston | |
| ; Assemble with `64tass -b -o a2apple30th.bin -L a2apple30th.lst` | |
| KEYBD = $C000 ; keyboard register | |
| STROBE = $C010 ; keyboard strobe register | |
| PTR = $06 ; pointer to current image | |
| * = $0C00 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SECTION code_clib | |
| PUBLIC disz80 | |
| PUBLIC _disz80 | |
| EXTERN fputc_cons | |
| ; This code is been found in a ZX Spectrum tool called UTILITY3 v1.3 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; Control APA102 LEDs attached to the YM2149 sound chip's | |
| ; IO port A on pins 0 (data) and 1 (clock) by bit banging a shift register | |
| ; Yes, I have turned my RC2014 into the world's most Rube Goldbergesque Arduino | |
| ymaddr equ 0d8h ; address port on YM2149 | |
| ymdata equ 0d0h ; data port on YM2149 | |
| mixer equ 7h ; mixer/IO control register | |
| iodira equ 40h ; port A direction bit |
NewerOlder