github.com/rzzzwilson.pymlac
1
0
Fork 0
mirror of https://github.com/rzzzwilson/pymlac.git synced 2025-06-10 09:32:41 +00:00
Code Issues Releases Wiki Activity

Put bootstrap code into own file

Browse Source
This commit is contained in:
Ross Wilson
2015-11-03 19:53:29 +07:00
parent 388d582c00
commit 0d3e318837
2 changed files with 84 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
vimlac/bootstrap.c Normal file
View File

@@ -0,0 +1,73 @@
/*
* 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 */};

11
vimlac/bootstrap.h Executable file
View File

@@ -0,0 +1,11 @@
/*
* Interface for the bootstrap code.
*/
#ifndef BOOTSTRAP_H
#define BOOTSTRAP_H
extern WORD PtrROMImage[];
extern WORD TtyROMImage[];
#endif