Iterators: Difference between revisions
Content added Content deleted
Puppydrum64 (talk | contribs) No edit summary |
Puppydrum64 (talk | contribs) |
||
Line 27: | Line 27: | ||
.loop: |
.loop: |
||
LEA Days_Of_The_Week,A0 |
LEA Days_Of_The_Week,A0 |
||
LEA Colors,A1 |
|||
MOVE.W D1,D2 |
MOVE.W D1,D2 |
||
LSL.W #2,D2 |
LSL.W #2,D2 |
||
MOVEA.L (A0,D2),A3 |
MOVEA.L (A0,D2),A3 |
||
JSR PrintString ;unimplemented hardware-dependent printing routine |
JSR PrintString ;unimplemented hardware-dependent printing routine |
||
MOVEA.L (A1,D2),A3 |
|||
JSR PrintString |
|||
ADDQ.W #1,D1 |
ADDQ.W #1,D1 |
||
DBRA D7,.loop |
DBRA D7,.loop |
||
Line 36: | Line 39: | ||
Part2: |
Part2: |
||
LEA Days_Of_The_Week,A0 |
LEA Days_Of_The_Week,A0 |
||
LEA Colors,A1 |
|||
MOVEA.L (A0),A3 |
MOVEA.L (A0),A3 |
||
JSR PrintString |
JSR PrintString |
||
Line 41: | Line 45: | ||
JSR PrintString |
JSR PrintString |
||
MOVEA.L (16,A0),A3 |
MOVEA.L (16,A0),A3 |
||
JSR PrintString |
|||
MOVEA.L (A1),A3 |
|||
JSR PrintString |
|||
MOVEA.L (12,A1),A3 |
|||
JSR PrintString |
|||
MOVEA.L (16,A1),A3 |
|||
JSR PrintString |
JSR PrintString |
||
Part3: |
Part3: |
||
LEA Days_Of_The_Week,A0 |
LEA Days_Of_The_Week,A0 |
||
LEA Colors,A1 |
|||
MOVEA.L (24,A0),A3 |
MOVEA.L (24,A0),A3 |
||
JSR PrintString |
JSR PrintString |
||
Line 50: | Line 61: | ||
JSR PrintString |
JSR PrintString |
||
MOVEA.L (8,A0),A3 |
MOVEA.L (8,A0),A3 |
||
JSR PrintString |
|||
MOVEA.L (20,A1),A3 |
|||
JSR PrintString |
|||
MOVEA.L (8,A1),A3 |
|||
JSR PrintString |
|||
MOVEA.L (4,A1),A3 |
|||
JSR PrintString |
JSR PrintString |
||
Line 78: | Line 95: | ||
Saturday: |
Saturday: |
||
DC.B "Saturday",0 |
DC.B "Saturday",0 |
||
EVEN |
EVEN |
||
Colors: |
|||
DC.L Red,Orange,Yellow,Green,Blue,Purple |
|||
Red: |
|||
DC.B "Red",0 |
|||
even |
|||
Orange: |
|||
DC.B "Orange",0 |
|||
even |
|||
Yellow: |
|||
DC.B "Yellow",0 |
|||
even |
|||
Green: |
|||
dc.b "Green",0 |
|||
even |
|||
Blue: |
|||
dc.b "Blue",0 |
|||
even |
|||
Purple: |
|||
dc.b "Purple",0 |
|||
even</lang> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |