March 11, 2026 12:20 · November 25, 2025 04:39 · July 23, 2025 02:24 · December 30, 2025 07:44 · January 20, 2022 00:51 · August 22, 2023 23:35
 /*
 * compile with DJGPP
 */

 #include <stdio.h>
 #include <conio.h>
 #include <dos.h>
 #include <pc.h>

 void
 f = open('dog.obj','r')

 verts = []
 uvs = []
 normals = []
 faces = []

 for line in f:
    if line[:2] == 'v ':
        verts.append(tuple(map(lambda s:float(s),line.split()[1:])))
 AS=riscv32-elf-as
 CC=riscv32-elf-gcc
 LD=riscv32-elf-ld
 OBJCOPY=riscv32-elf-objcopy

 LDFLAGS=-T riscv.ld
 ASFLAGS=-march=rv32imfd
 CFLAGS=$(ASFLAGS) -O2

 .SUFFIXES: .s .S .txt
 	.text
 	.globl	_main
 _main:
 	call	___djgpp_nearptr_enable
 	testl	%eax, %eax
 	jz	err
 	movw	$0x13, %ax
 	int	$0x10
 	movl	$0xa0000, %ebx
 	subl	___djgpp_base_address, %ebx
 ;;;; Monads

 (define (return x) (make-result x))
 (define (bind m k)
  (make-thunk (lambda () (execute! (k (execute! m))))))

 (define (execute! m)
  (cond ((result? m) (result-value m))
        ((thunk? m) (execute-thunk! m))))
 #include <stdio.h>
 #include <stdlib.h>

 #define SECTOR		512
 #define BOOTMAGIC	0xaa55

 char disk[SECTOR*2880];

 int
 main(int argc, const char *argv[])
 --- ../Downloads/uudecode.c	1994-04-03 06:16:37 +1200
 +++ uudecode.c	2018-03-04 18:23:50 +1300
 @@ -50,8 +50,8 @@
 #include <sys/param.h>
 #include <sys/stat.h>
 
 -#include <pwd.h>
 #include <stdio.h>
 +#include <stdlib.h>
 #include <string.h>
 @0x00

 ORIGIN = 0xFF8D

 ==Start==
 LDA #1		; start counting at 1
 {
  PHA		; save A
  JSR Fib
  CMP 0x0200	; if fib(A)>fib(A-1), stop
Track	Game
Naminé	KH: CoM
Musique pour la tristesse de Xion	KH: 358/2 Days
Vector to the Heavens	KH: 358/2 Days
The Other Promise	Kingdom Hearts II
Ventus	KH: BBS
Unbreakable Chains	KH: BBS
	f = open('dog.obj','r')

	verts = []
	uvs = []
	normals = []
	faces = []

	for line in f:
	if line[:2] == 'v ':
	verts.append(tuple(map(lambda s:float(s),line.split()[1:])))
	;;;; Monads

	(define (return x) (make-result x))
	(define (bind m k)
	(make-thunk (lambda () (execute! (k (execute! m))))))

	(define (execute! m)
	(cond ((result? m) (result-value m))
	((thunk? m) (execute-thunk! m))))