Home » Personal collection » Acorn tapes » Own_Work » box02_tape04b_c15_acorn_print_utils_2.wav » 5.TP5SMALL

5.TP5SMALL

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Own_Work » box02_tape04b_c15_acorn_print_utils_2.wav
Filename: 5.TP5SMALL
Read OK:
File size: 034F bytes
Load address: FFFF0E00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 FOR PASS=0 TO 3 STEP 3
   20 P%=&A00
   30 [OPT PASS:LDA#&FF:STA&72:LDA#3:STA&73:.a LDA#&1B:JSR print
   40 LDA#&33:JSR print:LDA#&1:JSR print:.l LDA#3:STA&77:.b LDA#0:STA&70:STA&71:LDA#&1B:JSR print
   50 LDA#&4C:JSR print:LDA#&A0:JSR print:LDA#0:JSR print:.d LDA#8:STA&76:.e LDX#&70
   60 LDY#0:LDA#9:JSR&FFF1:CLC:LDA&74:BEQ f:LDA&73:BMI f:SEC:.f ROL&75:LDA&72:SEC:SBC#&C:STA&72:BCS g:DEC&73:.g DEC&76:LDA&76:BNE e
   70 LDA&75:JSR print:CLC:LDA#8:ADC&70:STA&70:BCC h:INC&71:.h LDA&71:CMP#5:BEQ i:LDA#&60:CLC:ADC&72:STA&72:BCC d:INC&73
   80 BCS d:.m JMP l:.i DEC&77:BEQ k:LDA#&A:JSR print:LDA#&5C:CLC:ADC&72:STA&72:BCC b:INC&73:BCS b:.k LDA#&1B:JSR print:LDA#&4A:JSR print:LDA#&15:JSR print:LDA#&A:JSR print:LDA&73:BMI j:LDA#8:ADC&72:STA&72:BCC m:INC&73:BCS m
   90 .j LDA#&1B:JSR print:LDA#&40:JSR print:RTS:.print PHA:LDA#1:JSR&FFEE:PLA:JSR&FFEE:RTS:]
  100 NEXT

 � PASS=0 � 3 � 3
 P%=&A00
? [OPT PASS:LDA#&FF:STA&72:LDA#3:STA&73:.a LDA#&1B:JSR print
(` LDA#&33:JSR print:LDA#&1:JSR print:.l LDA#3:STA&77:.b LDA#0:STA&70:STA&71:LDA#&1B:JSR print
2S LDA#&4C:JSR print:LDA#&A0:JSR print:LDA#0:JSR print:.d LDA#8:STA&76:.e LDX#&70
<� LDY#0:LDA#9:JSR&FFF1:CLC:LDA&74:BEQ f:LDA&73:BMI f:SEC:.f ROL&75:LDA&72:SEC:SBC#&C:STA&72:BCS g:DEC&73:.g DEC&76:LDA&76:BNE e
Fw LDA&75:JSR print:CLC:LDA#8:ADC&70:STA&70:BCC h:INC&71:.h LDA&71:CMP#5:BEQ i:LDA#&60:CLC:ADC&72:STA&72:BCC d:INC&73
P� BCS d:.m JMP l:.i DEC&77:BEQ k:LDA#&A:JSR print:LDA#&5C:CLC:ADC&72:STA&72:BCC b:INC&73:BCS b:.k LDA#&1B:JSR print:LDA#&4A:JSR print:LDA#&15:JSR print:LDA#&A:JSR print:LDA&73:BMI j:LDA#8:ADC&72:STA&72:BCC m:INC&73:BCS m
Z\ .j LDA#&1B:JSR print:LDA#&40:JSR print:RTS:.print PHA:LDA#1:JSR&FFEE:PLA:JSR&FFEE:RTS:]
d �
�
00000000  0d 00 0a 15 20 e3 20 50  41 53 53 3d 30 20 b8 20  |.... . PASS=0 . |
00000010  33 20 88 20 33 0d 00 14  0c 20 50 25 3d 26 41 30  |3 . 3.... P%=&A0|
00000020  30 0d 00 1e 3f 20 5b 4f  50 54 20 50 41 53 53 3a  |0...? [OPT PASS:|
00000030  4c 44 41 23 26 46 46 3a  53 54 41 26 37 32 3a 4c  |LDA#&FF:STA&72:L|
00000040  44 41 23 33 3a 53 54 41  26 37 33 3a 2e 61 20 4c  |DA#3:STA&73:.a L|
00000050  44 41 23 26 31 42 3a 4a  53 52 20 70 72 69 6e 74  |DA#&1B:JSR print|
00000060  0d 00 28 60 20 4c 44 41  23 26 33 33 3a 4a 53 52  |..(` LDA#&33:JSR|
00000070  20 70 72 69 6e 74 3a 4c  44 41 23 26 31 3a 4a 53  | print:LDA#&1:JS|
00000080  52 20 70 72 69 6e 74 3a  2e 6c 20 4c 44 41 23 33  |R print:.l LDA#3|
00000090  3a 53 54 41 26 37 37 3a  2e 62 20 4c 44 41 23 30  |:STA&77:.b LDA#0|
000000a0  3a 53 54 41 26 37 30 3a  53 54 41 26 37 31 3a 4c  |:STA&70:STA&71:L|
000000b0  44 41 23 26 31 42 3a 4a  53 52 20 70 72 69 6e 74  |DA#&1B:JSR print|
000000c0  0d 00 32 53 20 4c 44 41  23 26 34 43 3a 4a 53 52  |..2S LDA#&4C:JSR|
000000d0  20 70 72 69 6e 74 3a 4c  44 41 23 26 41 30 3a 4a  | print:LDA#&A0:J|
000000e0  53 52 20 70 72 69 6e 74  3a 4c 44 41 23 30 3a 4a  |SR print:LDA#0:J|
000000f0  53 52 20 70 72 69 6e 74  3a 2e 64 20 4c 44 41 23  |SR print:.d LDA#|
00000100  38 3a 53 54 41 26 37 36  3a 2e 65 20 4c 44 58 23  |8:STA&76:.e LDX#|
00000110  26 37 30 0d 00 3c 82 20  4c 44 59 23 30 3a 4c 44  |&70..<. LDY#0:LD|
00000120  41 23 39 3a 4a 53 52 26  46 46 46 31 3a 43 4c 43  |A#9:JSR&FFF1:CLC|
00000130  3a 4c 44 41 26 37 34 3a  42 45 51 20 66 3a 4c 44  |:LDA&74:BEQ f:LD|
00000140  41 26 37 33 3a 42 4d 49  20 66 3a 53 45 43 3a 2e  |A&73:BMI f:SEC:.|
00000150  66 20 52 4f 4c 26 37 35  3a 4c 44 41 26 37 32 3a  |f ROL&75:LDA&72:|
00000160  53 45 43 3a 53 42 43 23  26 43 3a 53 54 41 26 37  |SEC:SBC#&C:STA&7|
00000170  32 3a 42 43 53 20 67 3a  44 45 43 26 37 33 3a 2e  |2:BCS g:DEC&73:.|
00000180  67 20 44 45 43 26 37 36  3a 4c 44 41 26 37 36 3a  |g DEC&76:LDA&76:|
00000190  42 4e 45 20 65 0d 00 46  77 20 4c 44 41 26 37 35  |BNE e..Fw LDA&75|
000001a0  3a 4a 53 52 20 70 72 69  6e 74 3a 43 4c 43 3a 4c  |:JSR print:CLC:L|
000001b0  44 41 23 38 3a 41 44 43  26 37 30 3a 53 54 41 26  |DA#8:ADC&70:STA&|
000001c0  37 30 3a 42 43 43 20 68  3a 49 4e 43 26 37 31 3a  |70:BCC h:INC&71:|
000001d0  2e 68 20 4c 44 41 26 37  31 3a 43 4d 50 23 35 3a  |.h LDA&71:CMP#5:|
000001e0  42 45 51 20 69 3a 4c 44  41 23 26 36 30 3a 43 4c  |BEQ i:LDA#&60:CL|
000001f0  43 3a 41 44 43 26 37 32  3a 53 54 41 26 37 32 3a  |C:ADC&72:STA&72:|
00000200  42 43 43 20 64 3a 49 4e  43 26 37 33 0d 00 50 df  |BCC d:INC&73..P.|
00000210  20 42 43 53 20 64 3a 2e  6d 20 4a 4d 50 20 6c 3a  | BCS d:.m JMP l:|
00000220  2e 69 20 44 45 43 26 37  37 3a 42 45 51 20 6b 3a  |.i DEC&77:BEQ k:|
00000230  4c 44 41 23 26 41 3a 4a  53 52 20 70 72 69 6e 74  |LDA#&A:JSR print|
00000240  3a 4c 44 41 23 26 35 43  3a 43 4c 43 3a 41 44 43  |:LDA#&5C:CLC:ADC|
00000250  26 37 32 3a 53 54 41 26  37 32 3a 42 43 43 20 62  |&72:STA&72:BCC b|
00000260  3a 49 4e 43 26 37 33 3a  42 43 53 20 62 3a 2e 6b  |:INC&73:BCS b:.k|
00000270  20 4c 44 41 23 26 31 42  3a 4a 53 52 20 70 72 69  | LDA#&1B:JSR pri|
00000280  6e 74 3a 4c 44 41 23 26  34 41 3a 4a 53 52 20 70  |nt:LDA#&4A:JSR p|
00000290  72 69 6e 74 3a 4c 44 41  23 26 31 35 3a 4a 53 52  |rint:LDA#&15:JSR|
000002a0  20 70 72 69 6e 74 3a 4c  44 41 23 26 41 3a 4a 53  | print:LDA#&A:JS|
000002b0  52 20 70 72 69 6e 74 3a  4c 44 41 26 37 33 3a 42  |R print:LDA&73:B|
000002c0  4d 49 20 6a 3a 4c 44 41  23 38 3a 41 44 43 26 37  |MI j:LDA#8:ADC&7|
000002d0  32 3a 53 54 41 26 37 32  3a 42 43 43 20 6d 3a 49  |2:STA&72:BCC m:I|
000002e0  4e 43 26 37 33 3a 42 43  53 20 6d 0d 00 5a 5c 20  |NC&73:BCS m..Z\ |
000002f0  2e 6a 20 4c 44 41 23 26  31 42 3a 4a 53 52 20 70  |.j LDA#&1B:JSR p|
00000300  72 69 6e 74 3a 4c 44 41  23 26 34 30 3a 4a 53 52  |rint:LDA#&40:JSR|
00000310  20 70 72 69 6e 74 3a 52  54 53 3a 2e 70 72 69 6e  | print:RTS:.prin|
00000320  74 20 50 48 41 3a 4c 44  41 23 31 3a 4a 53 52 26  |t PHA:LDA#1:JSR&|
00000330  46 46 45 45 3a 50 4c 41  3a 4a 53 52 26 46 46 45  |FFEE:PLA:JSR&FFE|
00000340  45 3a 52 54 53 3a 5d 0d  00 64 06 20 ed 0d ff     |E:RTS:]..d. ...|
0000034f
5.TP5SMALL.m0
5.TP5SMALL.m1
5.TP5SMALL.m2
5.TP5SMALL.m4
5.TP5SMALL.m5