Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- test start 1000
- clear a
- clear b
- clear s
- clear t
- clear x
- lds #4
- ldb #1
- .
- .
- .
- loop1 j pspace0
- loop11 rmo s,a
- sub #1
- comp #0
- jlt loop21
- rmo a,s
- rmo b,a
- add #2
- rmo a,b
- j loop1
- .
- .
- .
- loop2 j pspace2
- loop21 rmo s,a
- add #1
- comp #4
- jgt exit
- rmo a,s
- rmo b,a
- sub #2
- rmo a,b
- j loop2
- .
- .
- .
- pspace0 rmo s,t
- pspace1 td outdev
- jeq pspace1
- ldch space
- wd outdev
- rmo t,a
- sub #1
- rmo a,t
- comp #0
- jeq pstar0
- jgt pspace1
- .
- .
- .
- pstar0 ldx #1
- pstar1 td outdev
- jeq pstar1
- ldch star
- wd outdev
- tixr b
- jgt prntln1
- j pstar1
- .
- .
- .
- prntln1 td outdev
- jeq prntln1
- lda #10
- wd outdev
- j loop11
- .
- .
- .
- pspace2 rmo s,t
- pspace3 td outdev
- jeq pspace3
- ldch space
- wd outdev
- rmo t,a
- sub #1
- rmo a,t
- comp #0
- jeq pstar2
- jgt pspace1
- .
- .
- .
- pstar2 ldx #1
- pstar3 td outdev
- jeq pstar3
- ldch star
- wd outdev
- tixr b
- jgt prntln2
- j pstar3
- .
- .
- .
- prntln2 td outdev
- jeq prntln2
- lda #10
- wd outdev
- j loop21
- .
- .
- .
- star byte c'*'
- outdev byte x'06'
- space byte c' '
- exit end test
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
