J1 Assembler --- kernel.asm
1 ;
2 ; Kernel de la CPU J1
3 ; Reside en ROM
4
5 ;
6 ; Envia el caracter T_low por la serial
7 ;
8 0000 c200 emit: telnet_out
9 0001 6123 !
10 0002 700c ret
11 ;
12 ; Envia el caracter T_high y luego T_low por
13 ; la serial.
14 ;
15 emit2:
16 0004 6081 dup
17 0005 4000 call emit
18 0006 8008 8
19 0007 6000 rshift
20 0008 0000 jmp emit