Skip to content

Instantly share code, notes, and snippets.

View gnacu's full-sized avatar

Gregory Naçu gnacu

View GitHub Profile
#!/usr/bin/env node
const userMeta = JSON.parse(process.env.READYUSER || "{}");
function readStdin(callback) {
let data = "";
process.stdin.setEncoding("utf8");
process.stdin.on("data",(chunk) => {
#!/usr/bin/env node
function readStdin(callback) {
let data = "";
process.stdin.setEncoding("utf8");
process.stdin.on("data", (chunk) => (data += chunk));
process.stdin.on("end", () => callback(data.trim()));
}
function getMoonInfo(date = new Date()) {
#!/usr/bin/env node
import { Parser } from "expr-eval";
function readStdin(callback) {
let data = "";
process.stdin.setEncoding("utf8");
process.stdin.on("data",(chunk) => {
pgfetch_ = $1b
; RegPtr -> C64 Memory Buffer to fetch
; C <- Set on failure to fetch
; C <- Clr on successful fetch
pgstash_ = $1e
; RegPtr -> C64 Memory Buffer to stash
; C <- Set on failure to stash
; C <- Clr on successful stash
unldcsum ;--- Unload checksum.lib ---
.block
lda chloaded
beq done ;Not loaded
ldx #"c" ;checksum.lib
ldy #"h"
lda #slunload ;Unload flag
jsr unldlib
chloaded .byte 0
ldchksum ;--- Load checksum.lib ---
.block
lda chloaded
bne done ;Already loaded
ldx #"c" ;checksum.lib
ldy #"h"
lda #3 ;3 pages, no flags
;--- Unload checksum.lib ---
ldx #"c" ;checksum.lib
ldy #"h"
lda #slunload ;Unload flag
jsr unldlib
;--- Load checksum.lib ---
ldx #"c" ;checksum.lib
ldy #"h"
lda #3 ;3 pages, no flags
jsr loadlib
;A <- page address of library
;--- Link checksum.lib ---
maketab .byte $4c,$06,$00 ;maketab_ = $06
initcrc .byte $4c,$09,$00 ;initcrc_ = $09
updc16 .byte $4c,$0f,$00 ;updc16_ = $0f
getcrc .byte $4c,$15,$00 ;getcrc_ = $15
#inc_h "checksum"
maketab jmp maketab_
initcrc jmp initcrc_
updc16 jmp updc16_
getcrc jmp getcrc_