mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-12-07 20:08:48 +00:00
Add Pep8 Assembly language (#2070)
Pep/8 is a toy assembly language used in some universities for teaching the basics of assembly and low-level programming. Signed-off-by: Lucas Bajolet <lucas.bajolet@gmail.com>
This commit is contained in:
committed by
Colin Seymour
parent
acbab53198
commit
ded651159d
34
samples/Pep8/div.pep
Normal file
34
samples/Pep8/div.pep
Normal file
@@ -0,0 +1,34 @@
|
||||
main: SUBSP 8, i
|
||||
DECI 0, s
|
||||
DECI 2, s
|
||||
CALL div
|
||||
DECO 4, s
|
||||
CHARO '\n', i
|
||||
DECO 6, s
|
||||
CHARO '\n', i
|
||||
STOP
|
||||
|
||||
; Divides two numbers following the euclidian method
|
||||
;
|
||||
; Parameters:
|
||||
; SP + 2: Dividend
|
||||
; SP + 4: Divider
|
||||
; Returns:
|
||||
; SP + 6: Quotient
|
||||
; SP + 8: Remain
|
||||
div: LDX 0, i
|
||||
LDA dividend, s
|
||||
divlp: CPA divider, s
|
||||
BRLT divout
|
||||
ADDX 1, i
|
||||
SUBA divider, s
|
||||
BR divlp
|
||||
divout: STX quot, s
|
||||
STA rem, s
|
||||
RET0
|
||||
dividend: .EQUATE 2
|
||||
divider: .EQUATE 4
|
||||
quot: .EQUATE 6
|
||||
rem: .EQUATE 8
|
||||
|
||||
.END
|
||||
Reference in New Issue
Block a user