mgcaret

JSL = jump to subroutine long, leaves a 24-bit return address on the return stack

Execution semantics for some words have headers omitted in OF816 to save memory. SEE replaces the name with ^address.

Each word starts with machine code. All secondaries start with a JSL opcode (0x22)

	# This HexChat MRuby plugin lets people play a game of
	# Mastermind AKA Bulls & Cows
	# https://en.wikipedia.org/wiki/Bulls_and_Cows

	class Bulls < HexChat::Plugin
	# So it works on a channel:
	on :print, 'Channel Message' do \|words\|
	process_event(words)
	EAT_NONE
	end

	ca65 V2.15
	Main file : mig.insp.s
	Current file: mig.insp.s

	000000r 1 ; MIG Inspector by M.G.
	000000r 1
	000000r 1 ; Displays the MIG RAM from the Apple IIc Plus
	000000r 1 ; this is used by the 3.5 drive firmware and the
	000000r 1 ; accelerator.
	000000r 1

	; Fully disassembled and analyzed source to AE
	; DCLOCK.SYSTEM by M.G. - 04/18/2017
	; Assembles to a binary match for AE code unless
	; FIX_BUGS is set.

	; speaking of FIX_BUGS, there are critical bugs in the
	; original AE code:
	; * When driver loader is initially probing it corrupts the
	; Apple //c Memory Expansion Card:
	; - it saves, but fails to restore, data at address $080000

	; Fully disassembled and analyzed source to SMT
	; NS.CLOCK.SYSTEM by M.G. - 04/20/2017
	; Assembles to a binary match for SMT code if
	; IncludeJunk is set, see the .if IncludeJunk for details.

	; other notes:
	; * uses direct block access to read volume directory,
	; so won't launch from an AppleShare volume.

	; Build instructions:


	; originally written by Dagen Brock
	; https://gist.github.com/digarok/12ce4a12993c4c4444c0819e9fcc752a
	; Reworked by M.G.
	; changelog:
	; * port to ca65
	; * removed some redundancies
	; * trade +1 byte of ZP usage to eliminate special case for "FizzBuzz"
	; * improved output formatting
	; * converted all addresses to labels

	#!/usr/bin/perl
	$l=($s='rtlntr"" ,h ahkP trcr\ain;eepeusnoJ')=~y///c;for(1..$l){@a=sort@a;
	for(0..$l-1){$a[$_]=substr($s,$_,1).$a[$_]}}for(@a){eval$_ if/;$/}

	; %help
	; Davex Forth interpeter.
	;
	; syntax: dxforth
	;
	; This is a Forth system implementing the Forth 2012 Core Word Set
	; a subset of the Core Extensions word set, the Exception word set,
	; and select words from other word sets.
	;
	; Additionally, words supporting Davex and ProDOS are provided.



	start1 decimal

	." OF816 screen EDITOR by M.G. "

	s" get-current vocabulary EDITOR also EDITOR definitions" evaluate

	headers