adapted to new assembler syntax
This commit is contained in:
parent
212579440e
commit
0930a80dd3
7 changed files with 39 additions and 4 deletions
|
@ -1,4 +1,9 @@
|
||||||
.define getchar, putchar
|
.define getchar, putchar
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! These getchar and putchar routines can be used for HERMAC computer
|
! These getchar and putchar routines can be used for HERMAC computer
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
.define getchar, putchar
|
.define getchar, putchar
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! These getchar and putchar routines can be used for NASCOM computer.
|
! These getchar and putchar routines can be used for NASCOM computer.
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
.define .inn2
|
.define .inn2
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! Bit test on 16 bits set
|
! Bit test on 16 bits set
|
||||||
! Expects on stack: bit number
|
! Expects on stack: bit number
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
.define .mon
|
.define .mon
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! Monitor call
|
! Monitor call
|
||||||
! Expects on stack: monitor call number
|
! Expects on stack: monitor call number
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
.define prdec
|
.define prdec
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! print hl-reg as a decimal number.
|
! print hl-reg as a decimal number.
|
||||||
|
|
||||||
|
@ -50,8 +55,8 @@ convert:
|
||||||
ret
|
ret
|
||||||
|
|
||||||
table:
|
table:
|
||||||
.short 10000
|
.data2 10000
|
||||||
.short 1000
|
.data2 1000
|
||||||
.short 100
|
.data2 100
|
||||||
.short 10
|
.data2 10
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,9 @@
|
||||||
.define prstring
|
.define prstring
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! print a string of characters to the console
|
! print a string of characters to the console
|
||||||
! entry: de-reg points to the string
|
! entry: de-reg points to the string
|
||||||
|
|
|
@ -3,6 +3,11 @@
|
||||||
.define efdivz, eiund, efund, econv, estack, eheap, eillins, eoddz
|
.define efdivz, eiund, efund, econv, estack, eheap, eillins, eoddz
|
||||||
.define ecase, ememflt, ebadptr, ebadpc, ebadlae, ebadmon, ebadlin, ebadgto
|
.define ecase, ememflt, ebadptr, ebadpc, ebadlae, ebadmon, ebadlin, ebadgto
|
||||||
.define eunimpl
|
.define eunimpl
|
||||||
|
.sect .text
|
||||||
|
.sect .rom
|
||||||
|
.sect .data
|
||||||
|
.sect .bss
|
||||||
|
.sect .text
|
||||||
|
|
||||||
! Trap routine
|
! Trap routine
|
||||||
! Expects trap number on stack.
|
! Expects trap number on stack.
|
||||||
|
|
Loading…
Reference in a new issue