davidgiven
/ cpm.bas
Created
May 31, 2023 21:43
This is a very barebones CP/M port for the Agon Light, using the BBC BASIC assembler to do all the work.
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 bbase=&FD00 | |
| 20 fbase=bbase-3584 | |
| 30 cbase=fbase-2048 | |
| 40 iobyte=&0003 | |
| 50 cdisk=&0004 | |
| 60 bdoscall=&0005 | |
| 70 bioscall=&0000 | |
| 80 DIM code 4096 | |
| 90 FOR pass=4 TO 7 STEP 3 | |
| 100 P%=0 |
ormaaj
/ funcname.ksh
Last active
November 20, 2023 01:07
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
| #!/usr/bin/env ksh | |
| typeset -a FUNCNAME | |
| function FUNCNAME.get { | |
| nameref self=${.sh.name} | |
| if (( .sh.subscript < .sh.level )); then | |
| trap "(( .sh.level -= .sh.subscript + 1 )); eval '(( .sh.level = ${.sh.level} ))' \; _=\${.sh.fun}" DEBUG | |
| trap - DEBUG; | |
| fi |
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
| #!/usr/bin/env python3 | |
| import subprocess, itertools | |
| class Shell(list): | |
| def __init__(self, shell, cmds): | |
| self.shell = shell | |
| super().__init__([(x, self.__run(x)) for x in cmds]) | |
| def __iter__(self): |