jblang

' 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

jblang

H89 Survival Guide

This is a work-in-progress collection of notes I've been making as I'm exploring the Heathkit H89.

jblang

 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

jblang

Moved to https://github.com/jblang/SN76489/blob/master/examples/music.pas

jblang

Websites

• Mike's IBM PCjr Page: Comprehensive information about PCjr.
• PCjr Web Forums: Talk to other PCjr enthusiasts.

Software

• PCjr Cartridge ROMs: ROM dumps of PCjr cartridge software

Operating Systems

jblang

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

jblang

; 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

jblang

Moved to https://github.com/jblang/TMS9918A/blob/master/examples/mandel.asm

jblang

	SECTION	code_clib
	PUBLIC	disz80
	PUBLIC	_disz80
	EXTERN	fputc_cons


;  This code is been found in a ZX Spectrum tool called UTILITY3 v1.3

jblang

; 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