mirror of
https://github.com/rzzzwilson/pymlac.git
synced 2025-06-10 09:32:41 +00:00
74 lines
4.8 KiB
C
Executable File
74 lines
4.8 KiB
C
Executable File
/*
|
|
* Define the bootstrap images.
|
|
*/
|
|
|
|
|
|
#include "vimlac.h"
|
|
#include "bootstrap.h"
|
|
|
|
WORD PtrROMImage[] = {0060077, /* start lac base ;40 get load address */
|
|
0020010, /* dac 10 ;41 put into auto-inc reg */
|
|
0104100, /* lwc 0100 ;42 -0100 into AC */
|
|
0020020, /* dac 20 ;43 put into memory */
|
|
0001061, /* hon ;44 start PTR */
|
|
0100011, /* wait cal ;45 clear AC+LINK */
|
|
0002400, /* hsf ;46 skip if PTR has data */
|
|
0010046, /* jmp .-1 ;47 wait until is data */
|
|
0001051, /* hrb ;50 read PTR -> AC */
|
|
0074075, /* sam what ;51 skip if AC == 2 */
|
|
0010045, /* jmp wait ;52 wait until PTR return 0 */
|
|
0002400, /* loop hsf ;53 skip if PTR has data */
|
|
0010053, /* jmp .-1 ;54 wait until is data */
|
|
0001051, /* hrb ;55 read PTR -> AC */
|
|
0003003, /* ral 3 ;56 move byte into high AC */
|
|
0003003, /* ral 3 ;57 */
|
|
0003002, /* ral 2 ;60 */
|
|
0102400, /* hsn ;61 wait until PTR moves */
|
|
0010061, /* jmp .-1 ;62 */
|
|
0002400, /* hsf ;63 skip if PTR has data */
|
|
0010063, /* jmp .-1 ;64 wait until is data */
|
|
0001051, /* hrb ;65 read PTR -> AC */
|
|
0120010, /* dac *10 ;66 store word, inc pointer */
|
|
0102400, /* hsn ;67 wait until PTR moves */
|
|
0010067, /* jmp .-1 ;70 */
|
|
0100011, /* cal ;71 clear AC & LINK */
|
|
0030020, /* isz 20 ;72 inc mem and skip zero */
|
|
0010053, /* jmp loop ;73 if not finished, jump */
|
|
0110076, /* jmp *go ;74 execute loader */
|
|
0000002, /* what data 2 ;75 */
|
|
0003700, /* go word 03700H;76 */
|
|
0003677 /* base word 03677H;77 */};
|
|
|
|
WORD TtyROMImage[] = {0060077, /* start lac base ;40 get load address */
|
|
0020010, /* dac 10 ;41 put into auto-inc reg */
|
|
0104100, /* lwc 0100 ;42 -0100 into AC */
|
|
0020020, /* dac 20 ;43 put into memory */
|
|
0001061, /* hon ;44 start PTR */
|
|
0100011, /* wait cal ;45 clear AC+LINK */
|
|
0002400, /* hsf ;46 skip if PTR has data */
|
|
0010046, /* jmp .-1 ;47 wait until is data */
|
|
0001051, /* hrb ;50 read PTR -> AC */
|
|
0074075, /* sam what ;51 skip if AC == 2 */
|
|
0010045, /* jmp wait ;52 wait until PTR return 0 */
|
|
0002400, /* loop hsf ;53 skip if PTR has data */
|
|
0010053, /* jmp .-1 ;54 wait until is data */
|
|
0001051, /* hrb ;55 read PTR -> AC */
|
|
0003003, /* ral 3 ;56 move byte into high AC */
|
|
0003003, /* ral 3 ;57 */
|
|
0003002, /* ral 2 ;60 */
|
|
0102400, /* hsn ;61 wait until PTR moves */
|
|
0010061, /* jmp .-1 ;62 */
|
|
0002400, /* hsf ;63 skip if PTR has data */
|
|
0010063, /* jmp .-1 ;64 wait until is data */
|
|
0001051, /* hrb ;65 read PTR -> AC */
|
|
0120010, /* dac *10 ;66 store word, inc pointer */
|
|
0102400, /* hsn ;67 wait until PTR moves */
|
|
0010067, /* jmp .-1 ;70 */
|
|
0100011, /* cal ;71 clear AC & LINK */
|
|
0030020, /* isz 20 ;72 inc mem and skip zero */
|
|
0010053, /* jmp loop ;73 if not finished, jump */
|
|
0110076, /* jmp *go ;74 execute loader */
|
|
0000002, /* what data 2 ;75 */
|
|
0003700, /* go word 03700H;76 */
|
|
0003677 /* base word 03677H;77 */};
|