Ce site fonctionne mieux avec JavaScript.
Accueil
Explorateur
lain.church
Aide
S'inscrire
Connexion
izaya
/
collapseos
miroir de
https://github.com/hsoft/collapseos.git
Suivre
1
Ajouter aux favoris
1
Bifurcation
0
Code
Tickets
0
Versions
0
Wiki
Activité
Parcourir la source
Add missing common.asm test harness file
pull/85/head
Virgil Dupras
il y a 4 ans
Parent
cc754e12aa
révision
aef96c5e96
1 fichiers modifiés
avec
62 ajouts
et
0 suppressions
Vue séparée
Option de Diff
Voir les Statistiques
Télécharger le Fichier Patch
Télécharger le Fichier des Différences
+62
-0
tools/tests/unit/common.asm
+ 62
- 0
tools/tests/unit/common.asm
Voir le fichier
@@ -0,0 +1,62 @@
; *** requirements ***
; ascii.h
; core
; stdio
; lib/ari
; lib/fmt
testNum: .db 1
STDIO_PUTC:
out (0), a
cp a
ret
STDIO_GETC:
jp unsetZ
assertZ:
ret z
ld hl, .msg
call printstr
jp fail
.msg:
.db "Z not set", CR, LF, 0
assertNZ:
ret nz
ld hl, .msg
call printstr
jp fail
.msg:
.db "Z set", CR, LF, 0
; Assert that HL == DE
assertEQW:
ld a, h
cp d
jr nz, .fail
ld a, l
cp e
ret z
.fail:
call printHexPair
call printcrlf
ex de, hl
call printHexPair
call printcrlf
ld hl, .msg
call printstr
jp fail
.msg:
.db "HL != DE", CR, LF, 0
nexttest:
ld a, (testNum)
inc a
ld (testNum), a
ret
fail:
ld a, (testNum)
halt
Écrire
Aperçu
Chargement…
Annuler
Enregistrer