home *** CD-ROM | disk | FTP | other *** search
- 0 REM MAKE (AUG 25/84) :
- 1 :
- 2 REM 1 STATEMENTS, 0 FUNCTIONS
- 3 :
- 4 REM KEYWORD CHARACTERS: 4
- 5 :
- 6 REM KEYWORD ROUTINE LINE SER #
- 7 REM MAKE MAK 4106 048
- 8 :
- 9 REM ===============================
- 10 :
- 111 .ASC "MAK[197]"
- 1111 .WORD MAK-1
- 4106 MAK JSR $B79E ;EVAL # REPETITIONS
- 4108 TXA ;PUSH
- 4110 PHA
- 4112 JSR $AEFD ;CHECK FOR COMMA
- 4114 JSR $AD9E ;EVAL STRING
- 4116 JSR $B6A3 ;MAKE DESCRIPTOR
- 4118 TAY ;STRING LENGTH
- 4120 PLA ;PULL # REPETITIONS
- 4122 STA T3 ;COUNTDOWN REGISTER
- 4124 TYA
- 4126 MAK1 LDX T3 ;GET REMAINING REPS
- 4128 BEQ MAK2 ;ALL DONE
- 4130 DEC T3 ;COUNT DOWN
- 4132 PHA ;PRINT STRING
- 4134 JSR $AB24
- 4136 PLA
- 4138 JMP MAK1
- 4140 MAK2 RTS
- 4142 ;
-