LightningStalker
LightningStalker
/ div.s
Last active
August 21, 2026 08:31
6502 16-bit division routine from Apple II integer BASIC
This file contains hidden or 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
| ; Divide routine from Apple II integer BASIC ROM | |
| ACC equ $ca ; Dividend/Quotient/Accumulator | |
| DVI equ $cc ; Divisor | |
| R equ $ce ; Remainder | |
| org $300 ; Apple II small program area | |
| start: ; load memory registers | |
| lda #12 ; dividend |
This file contains hidden or 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
| #/bin/bash | |
| # assemble, image, emulate | |
| NAME=mysource_basename | |
| ASMFILE=${NAME}.s | |
| LISTING=list | |
| BINPREFIX=${NAME}#060 | |
| DSKIMG="/usr/myhome/mydir/work.dsk" | |
| EMUSTATE=$(realpath SaveState.aws.yaml) | |
| GREP=grep |
This file contains hidden or 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
| ; read hex value from ASCII | |
| ASC equ $fa ; ASCII char passed in | |
| RESULT equ $fb ; result location | |
| org $300 ; Apple II small program area | |
| start: | |
| lda ASC ; mov char -> accumulator | |
| cmp #$3a ; >= ':'? |
LightningStalker
/ DEC2HEX.BAS
Last active
August 6, 2026 08:37
Applesoft Basic convert decimal to hex
This file contains hidden or 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
| 0 REM Convert Decimal to Hexa-decimal | |
| 10 TBL$ = "0123456789abcdef" | |
| 20 DIM R%(8) | |
| 30 HOME : PRINT CHR$ (13)" Enter 0 to quit" | |
| 40 PRINT | |
| 50 INPUT " Decimal# ?";N | |
| 60 IF N = 0 THEN PRINT CHR$(4)"BYE" | |
| 70 IF N > 4294967295 GOTO 2000 | |
| 80 IF N < 0 GOTO 3000 |
This file contains hidden or 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
| #!/usr/bin/python | |
| # Nagaoka-Rosa solenoid inductance calculation | |
| # Project Crew™ 4/19/2026 | |
| from math import pi, tau, log, sqrt, exp | |
| f = 144 # frequency in MHz | |
| N = 9.2 # turns count | |
| dw = 0.0045 # coax shield/braid diameter | |
| jw = 0.0061 # coax outer diam. incl. jacket | |
| Df = 0.0223 # form diameter |
LightningStalker
/ f2wl.cpp
Last active
March 22, 2026 10:06
Convert frequency <-> wavelength ham radio
This file contains hidden or 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
| /* frequency <-> wavelengths | |
| * Project Crew™ 3/18/2026 | |
| */ | |
| #define PROGNAME "f2wl" | |
| #include <iostream> | |
| #include <iomanip> | |
| #include <cmath> | |
| #include "cxxopts.hpp" |
This file contains hidden or 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
| /* the "Thiele/Small Box Alignment" | |
| * subwoofer box calculator | |
| * Project Crew™ 3/11/2026 | |
| */ | |
| #include <iostream> | |
| #include <iomanip> | |
| #include <cmath> | |
| using namespace std; |
LightningStalker
/ !Press any key to reboot.asm
Created
February 23, 2026 18:30
Press any key to reboot OS for PC
This file contains hidden or 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
| ;****************************** | |
| ; Press any key to reboot v2.1 | |
| ; For flat assembler | |
| ; Project Crew™ 2/29/2008 | |
| ;****************************** | |
| version equ '2.1' | |
| format binary as 'ima' | |
| include 'Ata_Atapi.inc' ; Use Craig Bamford's library | |
| ; for CD Eject functions | |
| Load_Segment equ 7C00h |
This file contains hidden or 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
| #!/bin/bash | |
| # wa.sh - rinse away the sin of trailing whitespace <- Project Crew™ 2/23/2026 | |
| PROGNAME=$(basename ${0}) | |
| if test -n "${1}" | |
| then | |
| if test -f "${1}" | |
| then | |
| echo ${PROGNAME}: Looking at file: ${1} | |
| NL=$(egrep -ch ' +$' ${1}) | |
| echo ${PROGNAME}: Found ${NL} line\(s\) ending in whitespace. |
This file contains hidden or 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
| ; vasm hello world for Apple ][ | |
| ; address for call of the ROM BIOS function routines | |
| COUT equ $fded ; character output | |
| CROUT equ $fd8e ; start new line | |
| WRST equ $3d0 ; warm reset, return to system | |
| ; symbols to get rid of the "magic numbers" | |
| ABM equ $80 ; abyte modifier (chars + $80) | |
| CR equ 13 ; carriage return char |
NewerOlder