"Jump-Push-Pop"
/ASM tutorial/
Contributor : Antipontifex.
Code: Select all
Program 1:
---------
16514 LD HL NN 33 12 64
LD E (HL) 94
INC HL 35
LD D (HL) 86
LD HL NN 33 3 0
ADD HL DE 25
LD A L 125
LD C A 79
LD A H 124
LD B A 71
16528 LD (HL) N 54 135
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 131
INC HL 35
LD (HL) N 54 4
16555 LD DE NN 17 10 0
ADD HL DE 25
LD (HL) N 54 5
ADD HL DE 25
LD (HL) N 54 5
ADD HL DE 25
LD (HL) N 54 5
ADD HL DE 25
LD (HL) N 54 5
ADD HL DE 25
LD (HL) N 54 1
16572 LD A C 121
LD L A 111
LD A B 120
LD H A 103
ADD HL DE 25
LD (HL) N 54 133
ADD HL DE 25
LD (HL) N 54 133
ADD HL DE 25
LD (HL) N 54 133
ADD HL DE 25
LD (HL) N 54 133
ADD HL DE 25
LD (HL) N 54 2
16591 INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
INC HL 35
LD (HL) N 54 3
RET 201
Program 2:
---------
16514 LD HL NN 33 12 64
LD E(HL) 94
INC HL 35
LD D (HL) 86 (16521)
LD HL NN 33 3 0
ADD HL DE 25
PUSH HL 229
16525 LD(HL) N 54 135
LD B N 6 7
INC HL 35
LD (HL) N 54 131
DJNZ DIS 16 251
INC HL 35
LD (HL) N 54 4
16537 LD DE NN 17 10 0
LD B N 6 4
ADD HL DE 25
LD (HL) N 54 5
DJNZ DIS 16 251
ADD HL DE 25
LD (HL) N 54 1
16550 POP HL 225
LD B N 6 4
ADD HL DE 25
LD (HL) N 54 133
DJNZ DIS 16 251
ADD HL DE 25
LD (HL) N 54 2
16561 LD B N 6 7
INC HL 35
LD (HL) N 54 3
DJNZ DIS 16 251
RET 201
Code: Select all
1 REM [DEC:\
33,12,64,94,35,86,33,3,0,25,125,\
79,124,71,54,135,35,54,131,35,54,\
131,35,54,131,35,54,131,35,54,131,\
35,54,131,35,54,131,35,54,4,17,10,\
0,25,54,5,25,54,5,25,54,5,25,54,5,\
25,54,1,121,111,120,103,25,54,133,\
25,54,133,25,54,133,25,54,133,25,\
54,2,35,54,3,35,54,3,35,54,3,35,54,\
3,35,54,3,35,54,3,35,54,3,201 ]
200 CLS
210 SLOW
220 FOR K=2 TO 7
230 PRINT AT K,8;"*"
240 NEXT K
250 LET C=USR 16514
300 STOP
Code: Select all
1 REM [DEC: 33,12,\
64,94,35,86,33,3,0,25,229,54,135,6,\
7,35,54,131,16,251,35,54,4,17,10,0,\
6,4,25,54,5,16,251,25,54,1,225,6,4,\
25,54,133,16,251,25,54,2,6,7,35,54,\
3,16,251,201 ]
200 CLS
210 SLOW
220 FOR K=2 TO 7
230 PRINT AT K,8;"*"
240 NEXT K
250 LET C=USR 16514
300 STOP