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 | ||||
| .sect .text | ||||
| .sect .rom | ||||
| .sect .data | ||||
| .sect .bss | ||||
| .sect .text | ||||
| 
 | ||||
| ! These getchar and putchar routines can be used for HERMAC computer | ||||
| 
 | ||||
|  |  | |||
|  | @ -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. | ||||
| 
 | ||||
|  |  | |||
|  | @ -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 | ||||
|  |  | |||
|  | @ -1,4 +1,9 @@ | |||
| .define .mon | ||||
| .sect .text | ||||
| .sect .rom | ||||
| .sect .data | ||||
| .sect .bss | ||||
| .sect .text | ||||
| 
 | ||||
| ! Monitor call | ||||
| ! Expects on stack:	monitor call number | ||||
|  |  | |||
|  | @ -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
 | ||||
| 
 | ||||
|  |  | |||
|  | @ -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 | ||||
|  |  | |||
|  | @ -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. | ||||
|  |  | |||
		Loading…
	
	Add table
		
		Reference in a new issue