Home » Personal collection » Acorn tapes » Own_Work » box02_tape04b_c15_acorn_print_utils_2.wav » TP5BASIC
TP5BASIC
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: | TP5BASIC |
Read OK: | ✔ |
File size: | 0323 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF8023 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » MTF_finished_programs.ADF » TAPE2/B/TP5BASIC
- Personal collection » Acorn ADFS disks » Electron » Finished_programs.ADF » TAPE2/B/TP5BASIC
- Personal collection » Acorn hard disk » zipped_disks » elk03 » finished/TAPE2/B/TP5BASIC
- Personal collection » Acorn tapes » Own_Work » box02_tape04b_c15_acorn_print_utils_2.wav » TP5BASIC
File contents
10 FOR PASS=0 TO 2 STEP 2 20 P%=&A00 30 [OPT PASS:LDA#&FF:STA&72:LDA#3:STA&73:LDA#0:STA&77:LDA#4:STA&78:LDA#&87:JSR&FFF4:TYA:BNE a:INC&77:LSR&78:.a LDA#&1B:JSR print 40 LDA#&41:JSR print:LDA#&8:JSR print:.b LDA#0:STA&70:STA&71:LDA#&1B:JSR print:LDA&77:BEQ c:LDA#&4C:JSR print:LDA#&80 50 JSR print:LDA#2:JSR print:BNE d:.c LDA#&4B:JSR print:LDA#&40:JSR print:LDA#1:JSR print:.d LDA#8:STA&76:.e LDX#&70 60 LDY#0:LDA#9:JSR&FFF1:CLC:LDA&74:BEQ f:SEC:.f ROL&75::LDA&72:SEC:SBC#4:STA&72:BCS g:DEC&73:.g DEC&76:LDA&76:BNE e 70 LDA&75:JSR print:CLC:LDA&78:ADC&70:STA&70:BCC h:INC&71:.h LDA&71:CMP#5:BEQ i:LDA#&20:CLC:ADC&72:STA&72:BCC d:INC&73 80 BCS d:.i LDA#&A:JSR print:LDA&73:BMI j:JMP b:.j LDA#&C:JSR print:LDA#&1B:JSR print:LDA#&40:JSR print:RTS:.print PHA 90 LDA#1:JSR&FFEE:PLA:JSR&FFEE:RTS:] 100 NEXT
� PASS=0 � 2 � 2 P%=&A00 � [OPT PASS:LDA#&FF:STA&72:LDA#3:STA&73:LDA#0:STA&77:LDA#4:STA&78:LDA#&87:JSR&FFF4:TYA:BNE a:INC&77:LSR&78:.a LDA#&1B:JSR print (w LDA#&41:JSR print:LDA#&8:JSR print:.b LDA#0:STA&70:STA&71:LDA#&1B:JSR print:LDA&77:BEQ c:LDA#&4C:JSR print:LDA#&80 2v JSR print:LDA#2:JSR print:BNE d:.c LDA#&4B:JSR print:LDA#&40:JSR print:LDA#1:JSR print:.d LDA#8:STA&76:.e LDX#&70 <u LDY#0:LDA#9:JSR&FFF1:CLC:LDA&74:BEQ f:SEC:.f ROL&75::LDA&72:SEC:SBC#4:STA&72:BCS g:DEC&73:.g DEC&76:LDA&76:BNE e Fx LDA&75:JSR print:CLC:LDA&78:ADC&70:STA&70:BCC h:INC&71:.h LDA&71:CMP#5:BEQ i:LDA#&20:CLC:ADC&72:STA&72:BCC d:INC&73 Px BCS d:.i LDA#&A:JSR print:LDA&73:BMI j:JMP b:.j LDA#&C:JSR print:LDA#&1B:JSR print:LDA#&40:JSR print:RTS:.print PHA Z& 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 32 20 88 20 32 0d 00 14 0c 20 50 25 3d 26 41 30 |2 . 2.... P%=&A0| 00000020 30 0d 00 1e 82 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 4c 44 41 23 |DA#3:STA&73:LDA#| 00000050 30 3a 53 54 41 26 37 37 3a 4c 44 41 23 34 3a 53 |0:STA&77:LDA#4:S| 00000060 54 41 26 37 38 3a 4c 44 41 23 26 38 37 3a 4a 53 |TA&78:LDA#&87:JS| 00000070 52 26 46 46 46 34 3a 54 59 41 3a 42 4e 45 20 61 |R&FFF4:TYA:BNE a| 00000080 3a 49 4e 43 26 37 37 3a 4c 53 52 26 37 38 3a 2e |:INC&77:LSR&78:.| 00000090 61 20 4c 44 41 23 26 31 42 3a 4a 53 52 20 70 72 |a LDA#&1B:JSR pr| 000000a0 69 6e 74 0d 00 28 77 20 4c 44 41 23 26 34 31 3a |int..(w LDA#&41:| 000000b0 4a 53 52 20 70 72 69 6e 74 3a 4c 44 41 23 26 38 |JSR print:LDA#&8| 000000c0 3a 4a 53 52 20 70 72 69 6e 74 3a 2e 62 20 4c 44 |:JSR print:.b LD| 000000d0 41 23 30 3a 53 54 41 26 37 30 3a 53 54 41 26 37 |A#0:STA&70:STA&7| 000000e0 31 3a 4c 44 41 23 26 31 42 3a 4a 53 52 20 70 72 |1:LDA#&1B:JSR pr| 000000f0 69 6e 74 3a 4c 44 41 26 37 37 3a 42 45 51 20 63 |int:LDA&77:BEQ c| 00000100 3a 4c 44 41 23 26 34 43 3a 4a 53 52 20 70 72 69 |:LDA#&4C:JSR pri| 00000110 6e 74 3a 4c 44 41 23 26 38 30 0d 00 32 76 20 4a |nt:LDA#&80..2v J| 00000120 53 52 20 70 72 69 6e 74 3a 4c 44 41 23 32 3a 4a |SR print:LDA#2:J| 00000130 53 52 20 70 72 69 6e 74 3a 42 4e 45 20 64 3a 2e |SR print:BNE d:.| 00000140 63 20 4c 44 41 23 26 34 42 3a 4a 53 52 20 70 72 |c LDA#&4B:JSR pr| 00000150 69 6e 74 3a 4c 44 41 23 26 34 30 3a 4a 53 52 20 |int:LDA#&40:JSR | 00000160 70 72 69 6e 74 3a 4c 44 41 23 31 3a 4a 53 52 20 |print:LDA#1:JSR | 00000170 70 72 69 6e 74 3a 2e 64 20 4c 44 41 23 38 3a 53 |print:.d LDA#8:S| 00000180 54 41 26 37 36 3a 2e 65 20 4c 44 58 23 26 37 30 |TA&76:.e LDX#&70| 00000190 0d 00 3c 75 20 4c 44 59 23 30 3a 4c 44 41 23 39 |..<u LDY#0:LDA#9| 000001a0 3a 4a 53 52 26 46 46 46 31 3a 43 4c 43 3a 4c 44 |:JSR&FFF1:CLC:LD| 000001b0 41 26 37 34 3a 42 45 51 20 66 3a 53 45 43 3a 2e |A&74:BEQ f:SEC:.| 000001c0 66 20 52 4f 4c 26 37 35 3a 3a 4c 44 41 26 37 32 |f ROL&75::LDA&72| 000001d0 3a 53 45 43 3a 53 42 43 23 34 3a 53 54 41 26 37 |:SEC:SBC#4:STA&7| 000001e0 32 3a 42 43 53 20 67 3a 44 45 43 26 37 33 3a 2e |2:BCS g:DEC&73:.| 000001f0 67 20 44 45 43 26 37 36 3a 4c 44 41 26 37 36 3a |g DEC&76:LDA&76:| 00000200 42 4e 45 20 65 0d 00 46 78 20 4c 44 41 26 37 35 |BNE e..Fx LDA&75| 00000210 3a 4a 53 52 20 70 72 69 6e 74 3a 43 4c 43 3a 4c |:JSR print:CLC:L| 00000220 44 41 26 37 38 3a 41 44 43 26 37 30 3a 53 54 41 |DA&78:ADC&70:STA| 00000230 26 37 30 3a 42 43 43 20 68 3a 49 4e 43 26 37 31 |&70:BCC h:INC&71| 00000240 3a 2e 68 20 4c 44 41 26 37 31 3a 43 4d 50 23 35 |:.h LDA&71:CMP#5| 00000250 3a 42 45 51 20 69 3a 4c 44 41 23 26 32 30 3a 43 |:BEQ i:LDA#&20:C| 00000260 4c 43 3a 41 44 43 26 37 32 3a 53 54 41 26 37 32 |LC:ADC&72:STA&72| 00000270 3a 42 43 43 20 64 3a 49 4e 43 26 37 33 0d 00 50 |:BCC d:INC&73..P| 00000280 78 20 42 43 53 20 64 3a 2e 69 20 4c 44 41 23 26 |x BCS d:.i LDA#&| 00000290 41 3a 4a 53 52 20 70 72 69 6e 74 3a 4c 44 41 26 |A:JSR print:LDA&| 000002a0 37 33 3a 42 4d 49 20 6a 3a 4a 4d 50 20 62 3a 2e |73:BMI j:JMP b:.| 000002b0 6a 20 4c 44 41 23 26 43 3a 4a 53 52 20 70 72 69 |j LDA#&C:JSR pri| 000002c0 6e 74 3a 4c 44 41 23 26 31 42 3a 4a 53 52 20 70 |nt:LDA#&1B:JSR p| 000002d0 72 69 6e 74 3a 4c 44 41 23 26 34 30 3a 4a 53 52 |rint:LDA#&40:JSR| 000002e0 20 70 72 69 6e 74 3a 52 54 53 3a 2e 70 72 69 6e | print:RTS:.prin| 000002f0 74 20 50 48 41 0d 00 5a 26 20 4c 44 41 23 31 3a |t PHA..Z& LDA#1:| 00000300 4a 53 52 26 46 46 45 45 3a 50 4c 41 3a 4a 53 52 |JSR&FFEE:PLA:JSR| 00000310 26 46 46 45 45 3a 52 54 53 3a 5d 0d 00 64 06 20 |&FFEE:RTS:]..d. | 00000320 ed 0d ff |...| 00000323