adapted to new assembler syntax
authorceriel <none@none>
Wed, 28 Jan 1987 15:03:39 +0000 (15:03 +0000)
committerceriel <none@none>
Wed, 28 Jan 1987 15:03:39 +0000 (15:03 +0000)
mach/i80/libmon/char.her.s
mach/i80/libmon/char.nas.s
mach/i80/libmon/inn2.s
mach/i80/libmon/mon.s
mach/i80/libmon/prdec.s
mach/i80/libmon/prstring.s
mach/i80/libmon/trp.s

index c78044b..2791ae2 100644 (file)
@@ -1,4 +1,9 @@
 .define getchar, putchar
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! These getchar and putchar routines can be used for HERMAC computer
 
index 7ac61c2..0604a8d 100644 (file)
@@ -1,4 +1,9 @@
 .define getchar, putchar
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! These getchar and putchar routines can be used for NASCOM computer.
 
index 181b022..2329a58 100644 (file)
@@ -1,4 +1,9 @@
 .define .inn2
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Bit test on 16 bits set
 ! Expects on stack:    bit number
index bdd5317..68b242b 100644 (file)
@@ -1,4 +1,9 @@
 .define .mon
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Monitor call
 ! Expects on stack:    monitor call number
index e3b32c2..119e595 100644 (file)
@@ -1,4 +1,9 @@
 .define prdec
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! print hl-reg as a decimal number.
 
@@ -50,8 +55,8 @@ convert:
        ret
 
 table:
-       .short  10000
-       .short  1000
-       .short  100
-       .short  10
+       .data2  10000
+       .data2  1000
+       .data2  100
+       .data2  10
 
index 5479e0b..ff5653a 100644 (file)
@@ -1,4 +1,9 @@
 .define prstring
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! print a string of characters to the console
 ! entry: de-reg points to the string
index 2665f2c..647f636 100644 (file)
@@ -3,6 +3,11 @@
 .define efdivz, eiund, efund, econv, estack, eheap, eillins, eoddz
 .define ecase, ememflt, ebadptr, ebadpc, ebadlae, ebadmon, ebadlin, ebadgto
 .define eunimpl
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
 
 ! Trap routine
 ! Expects trap number on stack.