Hillbilly1 Assembler files
This commit is contained in:
parent
e4202be58b
commit
1f98bcfc28
|
@ -0,0 +1,54 @@
|
||||||
|
\ RAM Variables
|
||||||
|
ORG 0800H \RAM at 0800h
|
||||||
|
DEF X_Lo *1
|
||||||
|
DEF X_Hi *1
|
||||||
|
DEF Y_Lo *1
|
||||||
|
DEF Y_Hi *1
|
||||||
|
DEF Z_Lo *1
|
||||||
|
DEF Z_Hi *1
|
||||||
|
DEF Carry_Lo *1
|
||||||
|
DEF Carry_Hi *1
|
||||||
|
ORG 0400h
|
||||||
|
\
|
||||||
|
\ load some numbers
|
||||||
|
\
|
||||||
|
\ Put numbers in X and Y at 0800H by hand from Control Panel.
|
||||||
|
\
|
||||||
|
\
|
||||||
|
\ 16bit ADD X + Y -> Z + Carry_Hi
|
||||||
|
\
|
||||||
|
|
||||||
|
\
|
||||||
|
NOP
|
||||||
|
ADD16:
|
||||||
|
WAIT
|
||||||
|
STAZ Carry_Lo \Clear lo carry
|
||||||
|
LDAA X_Lo
|
||||||
|
LDAB Y_Lo
|
||||||
|
ADD \ADD lo bytes
|
||||||
|
STAC Z_Lo \store partial sum
|
||||||
|
BRNO ADD16J1: \test OVF bit to see if Carry required
|
||||||
|
LDIA 01h \must be OVF, set a Carry_Lo
|
||||||
|
STAA Carry_Lo
|
||||||
|
ADD16J1:
|
||||||
|
STAZ Carry_Hi \Clear hi carry
|
||||||
|
LDAA X_Hi
|
||||||
|
LDAB Y_Hi
|
||||||
|
ADD \ADD hi bytes
|
||||||
|
STAC Z_Hi \store hi partial sum
|
||||||
|
BRNO ADD16J2:
|
||||||
|
LDAA 01h \might be a hi carry
|
||||||
|
STAA Carry_Hi
|
||||||
|
ADD16J2:
|
||||||
|
MOVC,A
|
||||||
|
LDAB Carry_Lo \include any lo carry
|
||||||
|
ADD
|
||||||
|
STAC Z_Hi
|
||||||
|
BRNO ADD16J3:
|
||||||
|
LDAA 01h
|
||||||
|
STAA Carry_Hi \which may trigger a hi carry
|
||||||
|
ADD16J3:
|
||||||
|
\
|
||||||
|
BRA ADD16:
|
||||||
|
\
|
||||||
|
\ end of ADD16
|
|
@ -0,0 +1,10 @@
|
||||||
|
0800:
|
||||||
|
0400: 00 0C BC 08 06 A0 08 00
|
||||||
|
0408: A1 08 02 22 94 08 04 5C
|
||||||
|
0410: 04 17 98 01 84 08 06 BC
|
||||||
|
0418: 08 07 A0 08 01 A1 08 03
|
||||||
|
0420: 22 94 08 05 5C 04 2D A0
|
||||||
|
0428: 00 01 84 08 07 D0 A1 08
|
||||||
|
0430: 06 22 94 08 05 5C 04 3E
|
||||||
|
0438: A0 00 01 84 08 07 60 04
|
||||||
|
0440: 01
|
|
@ -0,0 +1,93 @@
|
||||||
|
>>>>> Starting pass1...
|
||||||
|
Symbol-> X_Lo 0800H (2048)
|
||||||
|
Symbol-> X_Hi 0801H (2049)
|
||||||
|
Symbol-> Y_Lo 0802H (2050)
|
||||||
|
Symbol-> Y_Hi 0803H (2051)
|
||||||
|
Symbol-> Z_Lo 0804H (2052)
|
||||||
|
Symbol-> Z_Hi 0805H (2053)
|
||||||
|
Symbol-> Carry_Lo 0806H (2054)
|
||||||
|
Symbol-> Carry_Hi 0807H (2055)
|
||||||
|
Label-> ADD16: 0401H
|
||||||
|
Label-> ADD16J1: 0417H
|
||||||
|
Label-> ADD16J2: 042DH
|
||||||
|
Label-> ADD16J3: 043EH
|
||||||
|
<<<<< end of pass1
|
||||||
|
\ RAM Variables
|
||||||
|
0800: ORG 0800H \RAM at 0800h
|
||||||
|
DEF X_Lo *1
|
||||||
|
DEF X_Hi *1
|
||||||
|
DEF Y_Lo *1
|
||||||
|
DEF Y_Hi *1
|
||||||
|
DEF Z_Lo *1
|
||||||
|
DEF Z_Hi *1
|
||||||
|
DEF Carry_Lo *1
|
||||||
|
DEF Carry_Hi *1
|
||||||
|
0400: ORG 0400h
|
||||||
|
\
|
||||||
|
\ load some numbers
|
||||||
|
\
|
||||||
|
\ Put numbers in X and Y at 0800H by hand from Control Panel.
|
||||||
|
\
|
||||||
|
\
|
||||||
|
\ 16bit ADD X + Y -> Z + Carry_Hi
|
||||||
|
\
|
||||||
|
|
||||||
|
\
|
||||||
|
0400: 00 NOP
|
||||||
|
ADD16:
|
||||||
|
0401: 0C WAIT
|
||||||
|
0402: BC 08 06 STAZ Carry_Lo \Clear lo carry
|
||||||
|
0405: A0 08 00 LDAA X_Lo
|
||||||
|
0408: A1 08 02 LDAB Y_Lo
|
||||||
|
040B: 22 ADD \ADD lo bytes
|
||||||
|
040C: 94 08 04 STAC Z_Lo \store partial sum
|
||||||
|
040F: 5C 04 17 BRNO ADD16J1: \test OVF bit to see if Carry required
|
||||||
|
0412: 98 01 LDIA 01h \must be OVF, set a Carry_Lo
|
||||||
|
0414: 84 08 06 STAA Carry_Lo
|
||||||
|
ADD16J1:
|
||||||
|
0417: BC 08 07 STAZ Carry_Hi \Clear hi carry
|
||||||
|
041A: A0 08 01 LDAA X_Hi
|
||||||
|
041D: A1 08 03 LDAB Y_Hi
|
||||||
|
0420: 22 ADD \ADD hi bytes
|
||||||
|
0421: 94 08 05 STAC Z_Hi \store hi partial sum
|
||||||
|
0424: 5C 04 2D BRNO ADD16J2:
|
||||||
|
0427: A0 00 01 LDAA 01h \might be a hi carry
|
||||||
|
042A: 84 08 07 STAA Carry_Hi
|
||||||
|
ADD16J2:
|
||||||
|
042D: D0 MOVC,A
|
||||||
|
042E: A1 08 06 LDAB Carry_Lo \include any lo carry
|
||||||
|
0431: 22 ADD
|
||||||
|
0432: 94 08 05 STAC Z_Hi
|
||||||
|
0435: 5C 04 3E BRNO ADD16J3:
|
||||||
|
0438: A0 00 01 LDAA 01h
|
||||||
|
043B: 84 08 07 STAA Carry_Hi \which may trigger a hi carry
|
||||||
|
ADD16J3:
|
||||||
|
\
|
||||||
|
043E: 60 04 01 BRA ADD16:
|
||||||
|
\
|
||||||
|
\ end of ADD16
|
||||||
|
|
||||||
|
|
||||||
|
Labels
|
||||||
|
======
|
||||||
|
0401: ADD16:
|
||||||
|
0417: ADD16J1:
|
||||||
|
042D: ADD16J2:
|
||||||
|
043E: ADD16J3:
|
||||||
|
|
||||||
|
Symbols
|
||||||
|
======
|
||||||
|
X_Lo: 0800
|
||||||
|
X_Hi: 0801
|
||||||
|
Y_Lo: 0802
|
||||||
|
Y_Hi: 0803
|
||||||
|
Z_Lo: 0804
|
||||||
|
Z_Hi: 0805
|
||||||
|
Carry_Lo: 0806
|
||||||
|
Carry_Hi: 0807
|
||||||
|
|
||||||
|
|
||||||
|
Constants
|
||||||
|
=========
|
||||||
|
|
||||||
|
0:Errors
|
|
@ -0,0 +1,175 @@
|
||||||
|
|
||||||
|
|
||||||
|
C:\>asm43 --help
|
||||||
|
Relay Computer Assembler: Ver. Beta 0.4.3
|
||||||
|
|
||||||
|
Valid assembler codes:
|
||||||
|
|
||||||
|
ADD : 22 00100010
|
||||||
|
AND : 26 00100110
|
||||||
|
BRA : 60 01100000
|
||||||
|
BRN : 48 01001000
|
||||||
|
BRNN : 54 01010100
|
||||||
|
BRNO : 5c 01011100
|
||||||
|
BRNP : 50 01010000
|
||||||
|
BRNZ : 4c 01001100
|
||||||
|
BRO : 58 01011000
|
||||||
|
BRP : 44 01000100
|
||||||
|
BRZ : 40 01000000
|
||||||
|
DEF :
|
||||||
|
EQU :
|
||||||
|
HALT : 08 00001000
|
||||||
|
INCB,A : 2c 00101100
|
||||||
|
INCB,C : 2e 00101110
|
||||||
|
LDAA : a0 10100000
|
||||||
|
LDAB : a1 10100001
|
||||||
|
LDAC : a2 10100010
|
||||||
|
LDDA : a8 10101000
|
||||||
|
LDDB : a9 10101001
|
||||||
|
LDDC : aa 10101010
|
||||||
|
LDIA : 98 10011000
|
||||||
|
LDIB : 99 10011001
|
||||||
|
LDIC : 9a 10011010
|
||||||
|
MOVA,B : c1 11000001
|
||||||
|
MOVA,C : c2 11000010
|
||||||
|
MOVA,MH : c3 11000011
|
||||||
|
MOVA,ML : c4 11000100
|
||||||
|
MOVAD+,PC: ec 11101100
|
||||||
|
MOVB,A : c8 11001000
|
||||||
|
MOVB,C : ca 11001010
|
||||||
|
MOVB,MH : cb 11001011
|
||||||
|
MOVB,ML : cc 11001100
|
||||||
|
MOVC,A : d0 11010000
|
||||||
|
MOVC,B : d1 11010001
|
||||||
|
MOVC,MH : d3 11010011
|
||||||
|
MOVC,ML : d4 11010100
|
||||||
|
MOVM,PC : de 11011110
|
||||||
|
MOVPC,AD+: f5 11110101
|
||||||
|
MOVZ,A : f8 11111000
|
||||||
|
MOVZ,B : f9 11111001
|
||||||
|
MOVZ,C : fa 11111010
|
||||||
|
MOVZ,MH : fb 11111011
|
||||||
|
MOVZ,ML : fc 11111100
|
||||||
|
NOP : 00 00000000
|
||||||
|
NOTA,B : 29 00101001
|
||||||
|
NOTA,C : 2a 00101010
|
||||||
|
ORG :
|
||||||
|
RESET : 04 00000100
|
||||||
|
ROLB,A : 34 00110100
|
||||||
|
ROLB,C : 36 00110110
|
||||||
|
RORA,B : 31 00110001
|
||||||
|
RORA,C : 32 00110010
|
||||||
|
STAA : 84 10000100
|
||||||
|
STAB : 8c 10001100
|
||||||
|
STAC : 94 10010100
|
||||||
|
STAZ : bc 10111100
|
||||||
|
STDA : 85 10000101
|
||||||
|
STDB : 8d 10001101
|
||||||
|
STDC : 95 10010101
|
||||||
|
WAIT : 0c 00001100
|
||||||
|
\ :
|
||||||
|
|
||||||
|
|
||||||
|
Example assembly
|
||||||
|
|
||||||
|
|
||||||
|
>>>>> Starting pass1...
|
||||||
|
Constant-> START 05H (5)
|
||||||
|
Constant-> LENG 0AH (10)
|
||||||
|
Constant-> END 0FH (15)
|
||||||
|
Symbol-> STACK 4000H (16384)
|
||||||
|
Symbol-> stkPtr 400AH (16394)
|
||||||
|
Label-> L1: 0040H
|
||||||
|
Label-> RET1: 0062H
|
||||||
|
<<<<< end of pass1
|
||||||
|
|
||||||
|
\ This is a comment
|
||||||
|
\ Define a constant
|
||||||
|
EQU START 05H
|
||||||
|
EQU LENG 10
|
||||||
|
EQU END START+LENG
|
||||||
|
|
||||||
|
\ Define some variables in RAM
|
||||||
|
4000: ORG 4000H \Ram at 4000H
|
||||||
|
DEF STACK *10 \Holds 5 addresses
|
||||||
|
DEF stkPtr *2 \Pointer into stack
|
||||||
|
|
||||||
|
\ Beginning of code
|
||||||
|
\
|
||||||
|
\ Space prefixed string
|
||||||
|
\ Tab prefixed string
|
||||||
|
\ Space after \ in string
|
||||||
|
0100: org 0100H
|
||||||
|
0100: 00 nop
|
||||||
|
0101: 00 NOP
|
||||||
|
0102: BC 40 0A STAZ stkPtr
|
||||||
|
0105: BC 40 0B STAZ stkPtr+1
|
||||||
|
0108: F8 MOVZ,A
|
||||||
|
0109: 85 STDA
|
||||||
|
010A: A8 LDDA
|
||||||
|
0032: org 50 \using decimal org
|
||||||
|
0032: 99 FF LDIB FFH
|
||||||
|
0034: 99 08 LDIB START+3
|
||||||
|
0036: 98 05 LDIA START
|
||||||
|
0038: 98 40 LDIA STACK:H
|
||||||
|
003A: 98 00 LDIA STACK:L
|
||||||
|
003C: 98 03 LDIA STACK+3:L
|
||||||
|
003E: 98 40 LDIA STACK+3:H
|
||||||
|
L1:
|
||||||
|
0040: 22 ADD
|
||||||
|
0041: D0 MOVC,A
|
||||||
|
0042: 4C 00 40 BRNZ L1: \ Test trailing comment
|
||||||
|
0045: 00 nop
|
||||||
|
0046: 00 nop
|
||||||
|
0047: A0 00 02 LDAA 0002H \ Address in Hex
|
||||||
|
004A: A0 00 40 LDAA L1: \ Address as a label
|
||||||
|
004D: A1 40 0A LDAB stkPtr \ Address as a symbol
|
||||||
|
0050: 2E INCB,C
|
||||||
|
0051: 94 40 0A STAC stkPtr
|
||||||
|
0054: 94 40 0D STAC stkPtr+START-2
|
||||||
|
0057: A0 40 0B LDAA stkPtr+1
|
||||||
|
005A: 36 ROLB,C
|
||||||
|
005B: 98 00 LDIA RET1:H
|
||||||
|
005D: C3 MOVA,MH
|
||||||
|
005E: 98 62 LDIA RET1:L
|
||||||
|
0060: C4 MOVA,ML
|
||||||
|
0061: DE MOVM,PC
|
||||||
|
RET1:
|
||||||
|
0062: 08 halt
|
||||||
|
\ End of program
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Labels
|
||||||
|
======
|
||||||
|
0040: L1:
|
||||||
|
0062: RET1:
|
||||||
|
|
||||||
|
Symbols
|
||||||
|
=======
|
||||||
|
STACK: 4000
|
||||||
|
stkPtr: 400A
|
||||||
|
|
||||||
|
Constants
|
||||||
|
=========
|
||||||
|
START: 05
|
||||||
|
LENG: 0A
|
||||||
|
END: 0F
|
||||||
|
|
||||||
|
Hex output
|
||||||
|
==========
|
||||||
|
4000:
|
||||||
|
0100: 00 00 BC 40 0A BC 40 0B
|
||||||
|
0108: F8 85 A8
|
||||||
|
0032: 99 FF 99 08 98 05 98 40
|
||||||
|
003A: 98 00 98 03 98 40 22 D0
|
||||||
|
0042: 4C 00 40 00 00 A0 00 02
|
||||||
|
004A: A0 00 40 A1 40 0A 2E 94
|
||||||
|
0052: 40 0A 94 40 0D A0 40 0B
|
||||||
|
005A: 36 98 00 C3 98 62 C4 DE
|
||||||
|
0062: 08
|
||||||
|
|
||||||
|
0:Errors
|
||||||
|
|
||||||
|
|
||||||
|
C:\>
|
Loading…
Reference in New Issue