Members/kono/nitros9-code: 3rdparty/utils/gene/bootlink.asm annotate

annotate 3rdparty/utils/gene/bootlink.asm @ 3072:32191c9fe2cd

makefiles: Always use ECHO macro define

author	Tormod Volden <debian.tormod@gmail.com>
date	Sun, 22 Feb 2015 14:36:52 +0100
parents	2e740da2088e
children

rev	line source
2977 2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	1 * bootlink.asm, boot selection utility
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	2 * Copyright (C) 2012-2014 Gene Heskett
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	3 * License: GPLv2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	4 * See bootlink.doc for more licensing information
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	5 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	6 * A utility to facilitate using different boot vdisk images on
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	7 * a hard drive as the next default vdisk to boot from.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	8 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	9 * REQUIRES:
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	10 * HDB-DOS 1.1a or I assume newer.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	11 * The boot sequence is this:
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	12 * load the boottrack from the default vdisk 128 image coded into
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	13 * HDB-DOS.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	14 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	15 * That tracks boot module, if a boot from the hard drive module
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	16 * will then interogate LSN0 of the selected disk, and will
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	17 * then use that data to locate the selected OS9Boot file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	18 * from anyplace on the disk, well beyond the basic partitions
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	19 * end address if it is one of the 256 HDB-DOS vdisks.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	20 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	21 * The only reason to change this boottrack is if one wanted to
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	22 * change the rel module to change the default boot screen from
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	23 * what is being used in the default vdisk 128. I like rel_80
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	24 * myself.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	25 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	26 * Getting LSN0 from that drive, reading DD.BT, and DD.SIZ, it knows
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	27 * where on the disks surface to get, and how much to get, to fetch
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	28 * the OS9Boot file from ANYPLACE on the hard drive. This means
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	29 * that by re-writing the DD.BT and DD.SIZ values in the selected by
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	30 * the boot module drive, we can effectively do exactly the same as
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	31 * I believe that LINK.BAS is doing but which is hard to get to without
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	32 * doing a full reset into rsdos. Something I rarely do.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	33 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	34 * The intention is to be able to do something like:
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	35 * >bootlink 129;reboot
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	36 * choose 1 or let it time out and it will reboot using the boottrack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	37 * from HDB-DOS vdisk 128, but then get the OS9Boot file from vdisk 129
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	38 * instead of the default 128. Repeat the selection of which OS9Boot
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	39 * for any HDB-DOS vdisk.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	40 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	41 * Caveat: be sure there is an OS9Boot file on that vdisk, else you will
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	42 * need to find that LINK.BAS and rerun it to restore your boot drives
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	43 * LSN0 DD.BT and DD.SIZ to valid values.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	44 *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	45 * The code for bootlink follows:
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	46 * various bits of the code can be traced by setting the debug level
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	47 * IF the machine has a 6309 in it, I use those registers to mark where
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	48 * the dump came from.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	49 * DEBUG set 1 traces the LSN0 file creation process for the boot device
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	50 * DEBUG set 2 traces the LSN0 file creation process for the stp selected vdisk
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	51 * DEBUG set 3 will trace the offset calcs
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	52 * DEBUG set 4 traces new boot address additions
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	53 * DEBUG set 5 traces LSN0 edits
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	54 * DEBUG set 6 traces the decimal or ascii to hex conversions
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	55 * DEBUG set 7 traces the math for the $276*HEXB function
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	56 * DEBUG set 8 will check last coded display lines exit
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	57 * Any non-zero traces entry state
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	58 DEBUG set 0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	59 ttl bootlink - method of effecting reboots to different bootfiles
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	60 IFP1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	61 use os9.d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	62 use rbf.d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	63 ENDC
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	64 tylg set Prgrm+Objct
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	65 atrv set ReEnt+rev
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	66 rev set 1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	67 ed set 1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	68 srchcli set 8 amount of cli to search
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	69 shdeflt set $80
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	70 MkUpper set $DF
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	71
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	72 mod eom,name,tylg,atrv,start,msiz
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	73
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	74 name fcs /bootlink/
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	75 fcb ed
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	76 * All internally used strings here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	77 DNAME fcc '/DD@'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	78 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	79 SHNAME fcc '/SH@'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	80 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	81 SHDIR fcc '/sh'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	82 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	83 SHMOD fcc 'SH'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	84 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	85 SHBoot fcc '/sh/OS9Boot' have that file?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	86 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	87 LSN0Sav fcc '/DD/SRC/bootlink.LSN0'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	88 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	89 LSN0tar fcc '/DD/SRC/targetlink.LSN0'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	90 fdb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	91 bootmin fcb $60 only check high byte
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	92 hextbll fcb $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	93 hextblh fcb $00,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$E0,$F0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	94
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	95 vdpream fcc 'next, will do the equ of '
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	96 vdmode$ fcc 'dmode' a printable string
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	97 dmodpar fcc ' /sh stp=$'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	98 dmodevd fcc '00'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	99 fcb $0a
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	100 dmodend fcb $0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	101
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	102 * all allocated memory here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	103 DBUF1 rmb 256 at 0,u drives base LSN0 when read in
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	104 DBUF2 rmb 256 at 256,u drives target LSN0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	105 CMDL rmb 2 READONLY pointer to command line args
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	106 OSID rmb 2 holds 1st two bytes of OS9Boot
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	107 HEXB rmb 1 scratchpad
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	108 STPHEX rmb 3 storage for $276*HEXB
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	109 BFADR rmb 3 size DD.BT
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	110 BFSIZ rmb 2 size DD.SIZ
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	111 NBFADR rmb 3 size new HDB-DOS DD.BT
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	112 NEWBTAD rmb 3 final addr move so 5 byte move works, is absolute addr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	113 NBFSIZ rmb 2 size new DD.SIZ
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	114 PATHN rmb 1 pathnx I$Open returns
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	115 PATH2 rmb 1 pathno to sh@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	116 DPRTSZ rmb 3 size of device root part
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	117 OLDBTAD rmb 3 addr old boot file from LSN0 DD.BT
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	118 HEXASC rmb 1 controls treatment of input, dec or hex
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	119 DLRPTR rmb 2 save pointer to $ sign
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	120 ynumptr rmb 2 place to save x while getting input
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	121 stackp rmb 2 place to hold stack at launch
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	122 ParamD rmb 1 size of parameters passed at F$Fork that starts us
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	123 msiz equ .
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	124 * any other strings are defined within the code as needed
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	125 **********************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	126 * We run everything from here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	127 start sts stackp,u re-init the sp for exits!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	128 stx CMDL,u save for whatever ;)
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	129 stb ParamD,u assume never over 256 bytes!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	130 sta HEXASC,u assume always 0 here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	131 clra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	132 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	133 std DLRPTR,u zero these
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	134 lda ,x what char is x pointed at right now?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	135 * Ok, we have an argument, handle it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	136 whatgot cmpa #'$ what sort of an argument do we have?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	137 * is it a hex value, or a decimal, no leading $ sign?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	138 bne not$
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	139 lbsr itshex
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	140 bra GotHEX
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	141 not$ lbsr numconv
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	142 GotHEX lbsr shomd got it show it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	143 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	144 pshs u,y,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	145 lbsr domode Link and UnLink screw with lots of stuff
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	146 puls u,y,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	147 lbcs nodevic
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	148 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	149 lbsr GetLSNs works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	150 lbcs baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	151 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	152 lbsr GetDin
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	153 lbcs baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	154 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	155 lbsr cklgimg
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	156 lbcs baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	157 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	158 lbsr CalOfst
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	159 lbcs baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	160 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	161 lbsr ShoRslt
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	162 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	163 bsr Cmitit actually do it!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	164 lbra end All done folks!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	165
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	166 **SUBROUTINE**
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	167 Cmitit leax DBUF1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	168 leax DD.BT,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	169 leay NEWBTAD,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	170 ldb #5 bytes to move
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	171 Comit lda ,y+
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	172 sta ,x+
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	173 decb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	174 bne Comit
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	175 leax DNAME,pcr point at /sh@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	176 lda #WRITE.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	177 os9 I$Open
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	178 ifeq DEBUG-5
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	179 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	180 lde #'O
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	181 ldf #'P
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	182 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	183 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	184 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	185 bcs Comitnd
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	186 sta PATHN,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	187 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	188 ldy #256 one sector
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	189 leax DBUF1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	190 lda PATHN,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	191 os9 I$Write put the sector back
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	192 ifeq DEBUG-5
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	193 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	194 lde #'W
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	195 ldf #'R
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	196 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	197 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	198 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	199 bcs Comitnd
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	200 lda PATHN,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	201 os9 I$Close
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	202 ifeq DEBUG-5
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	203 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	204 lde #'C
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	205 ldf #'L
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	206 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	207 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	208 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	209 Comitnd rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	210 **SUBROUTINE**
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	211 * we should have the HDBDOS disk number in HEXB now
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	212 * so show the equ dmode line but thats not how we'll do it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	213 shomd lda HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	214 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	215 leax dmodevd,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	216 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	217 leax vdpream,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	218 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	219 ldy #1+dmodend-vdpream
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	220 os9 I$Write should show it on screen
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	221 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	222 rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	223
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	224 ***SUBROUTINE***
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	225 * now, set to fork dmode but crashes above
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	226 domode clrb clr any carry
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	227 leax SHMOD,pcr point at /sh\r string
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	228 lda #$f1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	229 pshs u save it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	230 os9 F$Link
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	231 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	232 lde #'F
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	233 ldf #'L
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	234 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	235 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	236 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	237 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	238
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	239 * U now points at Header absolute address, but may not exist!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	240 lbcs nodevic and this didn't work!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	241 * now, lets play here a bit
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	242 tfr u,y so we can use it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	243 puls u which should clean the stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	244 lda HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	245 sta IT.STP,y which should do it but screws the crc. do we care?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	246 rts done here, works!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	247
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	248 GetLSNs lbsr BaseLSN Get LSN0 from /DD@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	249 lbcs end nothing on stack here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	250 lbsr SHLSN0 Get LSN0 from /sh@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	251 lbcs end nothing on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	252 ifne DEBUG if no debug, don't create check files
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	253 lbsr Creat1 make test files that can be dumped
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	254 lbcs end nothing on stack if we are here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	255 lbsr Creat2 ditto
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	256 lbcs end stack s/b ok
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	257 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	258 rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	259
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	260 ********CalOfst*******************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	261 * we have all the data, so we need to calculate
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	262 * the additional LSN offset for the HEXB (stp) value we should have
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	263 * this will be $276*HEXB, and will store the result in STPHEX,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	264 * First, clear var holder & make some space on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	265 CalOfst clra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	266 sta STPHEX,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	267 sta STPHEX+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	268 sta STPHEX+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	269 leas -4,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	270 lda HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	271 ldb #$76
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	272 mul
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	273 std 2,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	274 lda HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	275 ldb #$02
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	276 mul
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	277 std ,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	278 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	279 lda 1,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	280 addd 2,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	281 std 2,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	282 bcc missinc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	283 inc ,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	284 missinc lda ,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	285 sta 1,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	286 ldd 2,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	287 addd STPHEX+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	288 std STPHEX+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	289 lda 1,s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	290 adca STPHEX,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	291 sta STPHEX,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	292 leas 4,s restore stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	293 ifeq DEBUG-3
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	294 ldd HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	295 ldw STPHEX+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	296 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	297 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	298 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	299 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	300 * here we do straight additions with carry for 3 bytes
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	301 clra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	302 ldb DPRTSZ+2,u get low byte of partition end
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	303 addb STPHEX+2,u add low byte of calculated vdisk
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	304 adca #0 handle carry if
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	305 addb NBFADR+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	306 adca #0 handle any carry's
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	307 stb NEWBTAD+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	308 tfr a,b do 2nd byte of 3, carry added above, now in b
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	309 clra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	310 addb NBFADR+1,u very slim chance of carry, but not 0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	311 adca #0 transfer the carry to a
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	312 addb STPHEX+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	313 adca #0 chance of carry, handle
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	314 addb DPRTSZ+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	315 adca #0 chance of carry, handle
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	316 stb NEWBTAD+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	317 tfr a,b potential carry's in b now
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	318 clra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	319 addb NBFADR,u add to potential carry
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	320 addb STPHEX,u astronomical chance of carry here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	321 addb DPRTSZ,u or here, no place to put it anyway
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	322 stb NEWBTAD,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	323 ifeq DEBUG-4
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	324 ldw NEWBTAD+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	325 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	326 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	327 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	328 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	329 rts All done!!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	330
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	331 *******SUBROUTINES*********
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	332 * support strings for ShoRslt
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	333
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	334 Shopart fcc 'Disk has an os9 partition size of = $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	335 partsiz fcc '000000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	336 fdb $0a0d works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	337 Shoddbt fcc 'Original OS9Boot file location = $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	338 Oldd.bt fcc '000000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	339 fdb $0a0d works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	340 Shorsiz fcc 'Original OS9Boot file size is = $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	341 Oldbsiz fcc '0000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	342 fdb $0a0d works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	343 Shonbad fcc 'The new bootfile location in /sh is = $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	344 nblocat fcc '000000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	345 fdb $0a0d works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	346 Shabslo fcc 'This will be at actual $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	347 absolut fcc '000000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	348 fcc ' sector on the drive'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	349 fdb $0a0d works
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	350 Shnbsiz fcc 'The new OS9Boot file size is = $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	351 nbsize fcc '0000'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	352 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	353 Shhdbvd fcc 'Which is located in HDB-DOS disk $'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	354 Shdbdos fcc '00'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	355 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	356 Sendstr equ * need ending data marker
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	357 ShoRslt leax partsiz,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	358 lda DPRTSZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	359 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	360 std ,x++ first 2 ascii digits
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	361 lda DPRTSZ+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	362 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	363 std ,x++ next 2 ascii digits
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	364 lda DPRTSZ+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	365 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	366 std ,x last 2 ascii digits
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	367 leax Shopart,pcr now print it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	368 ldy #Shoddbt-Shopart
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	369 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	370 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	371 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	372 ShDD.BT leax Oldd.bt,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	373 lda OLDBTAD,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	374 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	375 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	376 lda OLDBTAD+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	377 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	378 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	379 lda OLDBTAD+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	380 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	381 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	382 leax Shoddbt,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	383 ldy #Shorsiz-Shoddbt
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	384 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	385 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	386 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	387 oldbtsz leax Oldbsiz,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	388 lda BFSIZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	389 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	390 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	391 lda BFSIZ+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	392 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	393 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	394 leax Shorsiz,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	395 ldy #Shonbad-Shorsiz
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	396 lda #1 stdout
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	397 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	398 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	399 leax nblocat,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	400 lda NBFADR,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	401 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	402 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	403 lda NBFADR+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	404 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	405 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	406 lda NBFADR+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	407 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	408 std ,x last byte
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	409 leax Shonbad,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	410 ldy #Shabslo-Shonbad
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	411 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	412 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	413 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	414 * now show its size
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	415 leax nbsize,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	416 lda NBFSIZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	417 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	418 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	419 lda NBFSIZ+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	420 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	421 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	422 leax Shnbsiz,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	423 ldy #Shhdbvd-Shnbsiz
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	424 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	425 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	426 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	427 abslutA leax absolut,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	428 lda NEWBTAD,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	429 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	430 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	431 lda NEWBTAD+1,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	432 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	433 std ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	434 lda NEWBTAD+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	435 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	436 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	437 leax Shabslo,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	438 ldy #Shnbsiz-Shabslo
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	439 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	440 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	441 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	442 leax Shdbdos,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	443 lda HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	444 lbsr hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	445 std ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	446 leax Shhdbvd,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	447 ldy #Sendstr-Shhdbvd
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	448 lda #1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	449 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	450 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	451 ShoEnd rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	452
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	453 * Get the LSN0 data from /DD
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	454 * arrive here with 1 bsr on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	455 BaseLSN lda #READ. Read mode
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	456 leax DNAME,pcr point at device name
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	457 os9 I$Open open it raw
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	458 bcs Basend report the error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	459 sta PATHN,u Save path#
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	460 leax DBUF1,u point x at DBUF,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	461 ldy #256 size of buffer
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	462 lda PATHN,u get path# back in case regs.a wrong
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	463 os9 I$Read and read 256 byte of /dd@ LSN0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	464 bcs Basend report the error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	465 * got the sector, save the interesting data
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	466 pshs x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	467 leax DD.BT,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	468 ifeq DEBUG-1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	469 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	470 lde #'O
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	471 ldf #'A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	472 os9 F$RegDmp look at x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	473 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	474 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	475 ldd ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	476 std OLDBTAD,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	477 ldb ,x+
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	478 stb OLDBTAD+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	479 ldd ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	480 std BFSIZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	481 ldd DBUF1,u get partition size
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	482 std DPRTSZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	483 lda DBUF1+2,u last byte
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	484 sta DPRTSZ+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	485 ifeq DEBUG-1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	486 ldf #'B
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	487 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	488 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	489 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	490 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	491 puls x clean up the stack & restore x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	492 lda PATHN,u restore regs.a in case
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	493 os9 I$Close and close path to /dd@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	494 bcs Basend
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	495 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	496 Basend rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	497
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	498 ******************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	499 * Get the LSN0 data from /sh@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	500 * should arrive here with 1 bsr on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	501 SHLSN0 lda #READ. read mode
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	502 leax SHNAME,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	503 os9 I$Open open it raw
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	504 bcs SHCKend report the error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	505 sta PATH2,u save the path number
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	506 leax DBUF2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	507 ldy #256
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	508 lda PATH2,u get our pathno back
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	509 os9 I$Read and read the 256 bytes of /sh@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	510 bcs SHCKend report the error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	511 pshs x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	512 leax DBUF2,u get the location & size of this bootfile
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	513 leax DD.BT,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	514 ldd ,x++
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	515 std NBFADR,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	516 lda ,x+
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	517 sta NBFADR+2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	518 ldd ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	519 std NBFSIZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	520 ifeq DEBUG-1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	521 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	522 lde #'2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	523 ldf #'A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	524 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	525 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	526 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	527 puls x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	528 lda PATH2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	529 os9 I$Close
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	530 * we have added nothing to the stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	531 SHCKend rts if err, report
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	532
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	533 *****************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	534 * now create trace dumps
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	535 * this could be removed in final
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	536 * should arrive here with 1 bsr on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	537 Creat1 leax LSN0Sav,pcr point x at filename to save LSN0 in
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	538 ldb #UPDAT.+PREAD.+PWRIT. global read+write attr's
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	539 lda #UPDAT.+PREAD.+PWRIT. real attr's go in regs.b dummy
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	540 os9 I$Create and create it, s/b empty file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	541 bcs Cr1fix
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	542 cont1 sta PATHN,u save the path# returned
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	543 lda PATHN,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	544 leax DBUF1,u point x at buffer we read from /dd@
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	545 ldy #256 amount to write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	546 os9 I$Write and write it to the file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	547 bcs Cr1end
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	548 lda PATHN,u it could be played with, get it back
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	549 clrb just in case
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	550 os9 I$Close
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	551 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	552 Cr1end rts should clean up the bsr on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	553
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	554 Cr1fix leax LSN0Sav,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	555 os9 I$Delete
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	556 bcs Cr1end can't fix, some other error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	557 bra Creat1 go back and try again
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	558
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	559 Creat2 equ * lets go make the 2nd file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	560 ifeq DEBUG-2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	561 * Tally we got here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	562 lde #'C
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	563 ldf #'2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	564 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	565 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	566 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	567 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	568 leax LSN0tar,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	569 lda #UPDAT.+PREAD.+PWRIT.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	570 ldb #UPDAT.+PREAD.+PWRIT.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	571 os9 I$Create s/b empty file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	572 bcs Cr2fix
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	573 cont2 sta PATH2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	574 leax DBUF2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	575 ldy #256
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	576 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	577 bcs Cr2end
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	578 lda PATH2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	579 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	580 os9 I$Close
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	581 clrb successful, no?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	582 Cr2end rts should clean stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	583
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	584 Cr2fix leax LSN0tar,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	585 clrb clr error?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	586 os9 I$Delete
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	587 bcs Cr2end some other error, report
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	588 bra Creat2 else go back and try again
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	589 * eventually these fixes need to check the return err
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	590 * and if not 218, bail plumb out
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	591 ******************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	592 * check legal image, do we have an os9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	593 * spec LSN0 in DBUF2,u?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	594 * should arrive here with 1 bsr on stack
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	595 cklgimg leax DBUF2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	596 clrb our error counter
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	597 lda ,x+ sets z flag if $00
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	598 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	599 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	600 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	601 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	602 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	603 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	604 beq badbuf1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	605 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	606 badbuf1 lda ,x+ get next byte, better be a $02
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	607 cmpa #$02
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	608 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	609 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	610 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	611 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	612 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	613 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	614 beq badbuf2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	615 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	616 badbuf2 lda ,x+ better be a $76
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	617 cmpa #$76
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	618 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	619 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	620 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	621 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	622 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	623 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	624 beq badbuf3
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	625 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	626 badbuf3 leax DBUF2,u reset x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	627 leax DD.BT,x point x at DD.BT
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	628 lda ,x+ first byte of DD.BT
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	629 beq bt1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	630 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	631 bt1 lda ,x+ 2nd byte of DD.BT s/b a $00 too
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	632 beq bt2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	633 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	634 bt2 lda ,x+ last byte of DD.BT s/b non-zero
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	635 bne bt3 got something, skip the incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	636 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	637 bt3 tstb non zero? error!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	638 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	639 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	640 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	641 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	642 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	643 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	644 lbne baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	645 * got this far, what size is it?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	646 lda ,x+ get 1st byte of DD.BSZ
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	647 * now here, this is subjective, I've not seen a boot file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	648 * that wasn't at least #$5000 long
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	649 cmpa bootmin,pcr abs minn length IMO
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	650 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	651 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	652 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	653 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	654 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	655 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	656 bcc noBinc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	657 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	658 * no illegal value to 2nd byte, don't bother
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	659
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	660 *********************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	661 * now check the DD.DIR & regs.b is still $00 if got here
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	662 noBinc leax DBUF2,u point x at sh's buffer
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	663 leax DD.DIR,x now point at 1st byte of DD.dir
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	664 lda ,x+ /sb $00, no floppy can be non-zero
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	665 beq dir1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	666 incb opps, really bad data
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	667 dir1 lda ,x+ 2nd byte, for floppy s/b $00 if mb made the disk
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	668 beq dir2 is legal
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	669 incb not zero, tally as bad
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	670 dir2 lda ,x+ get 3rd byte, s/b a $02
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	671 cmpa #$02 as it should be for a valid floppy
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	672 beq dir3
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	673 incb not a $02, tally it as bad
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	674 dir3 tstb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	675 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	676 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	677 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	678 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	679 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	680 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	681 beq getdrsh
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	682 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	683 getdrsh lda #READ.+DIR. open for read only
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	684 leax SHDIR,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	685 os9 I$Open see if is has a dir
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	686 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	687 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	688 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	689 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	690 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	691 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	692 bcc scapinc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	693 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	694 scapinc os9 I$Close clean up the path table
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	695 ************************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	696 * got here ok, can we open the OS9Boot file?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	697 chkboot leax SHBoot,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	698 lda #READ.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	699 os9 I$Open
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	700 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	701 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	702 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	703 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	704 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	705 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	706 bcc scipinc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	707 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	708 scipinc sta PATH2,u file must exist
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	709 leax OSID,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	710 ldy #0002 bytes to read
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	711 os9 I$Read
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	712 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	713 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	714 tfr pc,w
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	715 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	716 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	717 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	718 bcc skpinc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	719 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	720 skpinc pshs d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	721 ldd OSID,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	722 cmpd #$87CD header bytes?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	723 ifeq DEBUG-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	724 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	725 lde #'B
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	726 ldf #'F
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	727 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	728 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	729 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	730 puls d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	731 beq closeup
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	732 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	733 closeup lda PATH2,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	734 os9 I$Close clean up path table
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	735 * image looks good, we even have an OS9Boot file
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	736 * that looks good, so
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	737 tstb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	738 lbne baddat
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	739 clrb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	740 BadImg rts We've weeded it out to about a -8.0000-21 chance of bad=good
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	741
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	742 ************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	743 * got data, copy goodies to work buffers
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	744 GetDin lda ,u get first byte of part size
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	745 sta DPRTSZ,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	746 ldd 1,u get other 2 bytes
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	747 std DPRTSZ+1,u Should now have devices size
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	748 ldd DD.SIZ,u current os9boot files size
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	749 std BFSIZ,u and save it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	750 ldd DD.BT,u get 2 byte of its location
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	751 std BFADR,u and save that for later
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	752 lda DD.BT+2,u get last byte of addr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	753 sta BFADR+2,u and save it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	754 rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	755
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	756 **********subroutines************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	757 * hxb2asc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	758 * this routine was written up in the
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	759 * Rainbow (11/92) by Tim Kientzle.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	760 * it will convert the value passed
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	761 * in the A register to a pair of
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	762 * ascii characters in A:B which
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	763 * are the directly printable ASCII
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	764 * representations of the original
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	765 * contents of regs.a. Load regs.A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	766 * with byte of source number, call,
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	767 * store A nd B in order in the
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	768 * printable string on return.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	769
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	770 hxb2asc tfr a,b Make copy of a in b
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	771 anda #$0f mask off lower digit
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	772 adda #$90 generates carry if a>9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	773 daa in this operation
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	774 adca #$40 bring in the carry
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	775 daa make final character
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	776 exg a,b stash that in b, get a back
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	777 lsra getting high nibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	778 lsra into position to
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	779 lsra convert it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	780 lsra
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	781 adda #$90 and repeat for high nibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	782 daa and generate carry from a>9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	783 adca #$40
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	784 daa
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	785 rts returns with a:b=two hexidecimal characters
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	786
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	787 *********************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	788 * a2h make 1 hex byte from two ascii chars
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	789 a2h ldx CMDL,u get arg pointer back
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	790 lda ,x+ get the left hex char
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	791 stx CMDL,u save for next byte
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	792 suba #'0 reduce for decimal entries
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	793 cmpa #$0A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	794 blo znine its 0-9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	795 anda #MkUpper
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	796 suba #$07 else sub 7 more for A-F values
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	797 znine pshs x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	798 leax hextblh,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	799 ldb a,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	800 stb HEXB,u write high nibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	801 puls x restore it
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	802 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	803 lde #'a
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	804 ldf #'h
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	805 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	806 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	807 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	808 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	809 * now check, is there a high nibble?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	810 lda ,x x already inc'd
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	811 suba #'0 reduce to decimal
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	812 cmpa #$0A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	813 blo ninez
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	814 anda #MkUpper
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	815 suba #$07 else sub 7 more for A-F inputs
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	816 ninez pshs x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	817 leax hextbll,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	818 ldb a,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	819 puls x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	820 orb HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	821 nineex stb HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	822 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	823 lde #'A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	824 ldf #'H
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	825 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	826 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	827 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	828 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	829 rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	830
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	831 itshex leax 1,x throw away the $ sign
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	832 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	833 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	834 lde #'n
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	835 ldf #'c
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	836 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	837 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	838 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	839 stx CMDL,u for a2h use
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	840 lbsr a2h and convert to a hex byte
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	841 rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	842
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	843 ***********************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	844 * we supposedly have found the cr without unzeroing HEXASC,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	845 * so we use this conversion.
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	846 numconv ldx CMDL,u s/b first char of arg value
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	847 * find the end
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	848 clrb find out how many chars we have
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	849 findeod lda ,x+
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	850 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	851 lde #'f
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	852 ldf #'s
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	853 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	854 os9 F$RegDmp
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	855 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	856 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	857 incb
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	858 cmpa #$0D
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	859 bne findeod
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	860 * we have the cr, so
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	861 foundcr leax -3,x back to data?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	862 ldd ,x get 2 bytes of decimal cli
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	863 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	864 lde #'c
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	865 ldf #'r found cr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	866 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	867 os9 F$RegDmp lets see the data in A:B
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	868 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	869 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	870 decmode cmpa #'9 make a hex digit out of regs.a
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	871 ble gigo1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	872 lda #$30 load a zero
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	873 gigo1 cmpa #'0
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	874 bhi gigo2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	875 lda #$30 load a zero
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	876 gigo2 subb #'0 leave a hex nibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	877 suba #'0 leave a hex nibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	878 blo add00 garbage, go
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	879 cmpa #'9
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	880 bhi add00 garbage, go
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	881 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	882 lde #'d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	883 ldf #'r
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	884 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	885 os9 F$RegDmp check A[2]:B[8] again good
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	886 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	887 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	888 stb HEXB,u save lsnibble
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	889 ldb #$0A
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	890 mul multiply a:b
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	891 daa
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	892 addb HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	893 stb HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	894 * now lets see what we have in B
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	895 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	896 ldf #'1 low nibble in B?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	897 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	898 os9 F$RegDmp is $10 for a 28 input
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	899 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	900 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	901 * but we're not done, need to handle 1st digit if
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	902 leax -1,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	903 lda ,x
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	904 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	905 lde #'d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	906 ldf #'2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	907 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	908 os9 F$RegDmp wft am I getting?
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	909 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	910 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	911 cmpa #'2
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	912 beq add200
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	913 cmpa #'1 can we get garbage here? yes
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	914 beq add100 else add 200
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	915 bra add00 else garbage, add nothing
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	916 add200 addb #$64
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	917 add100 addb #$64
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	918 add00 stb HEXB,u
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	919 ifeq DEBUG-6
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	920 lde #'d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	921 ldf #'e
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	922 pshs cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	923 os9 F$RegDmp show HEXB in b
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	924 puls cc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	925 endc
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	926 clrb kill false error
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	927 numdone rts
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	928
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	929 ****************************************************
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	930 * exit messages
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	931 FMTSTR fcc 'Something is wrong, either with the hdb-dos disk chosen'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	932 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	933 fcc ' and set into the /sh descriptor'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	934 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	935 fcc ' or the format of the argument.'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	936 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	937 fcc /bootlink needs a fixed size vdisk number argument/
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	938 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	939 fcc /in a 3 digit format. If first char is a $ sign,/
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	940 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	941 fcc /the next 2 nums are hex, else all 3 are decimal./
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	942 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	943 fcc /example: $80 or 128. Result will be used to control/
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	944 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	945 fcc 'as in "dmode /sh stp=hex of above number.'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	946 fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	947 ENDSTR bra forker1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	948 ndevmsg fcc 'Named device /sh is not in memory.'
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	949 enddvmg fdb $0a0d
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	950 nodevic leax ndevmsg,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	951 ldy #enddvmg-ndevmsg
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	952 lda #1 stdout
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	953 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	954 bra forker1
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	955 numdun equ *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	956 baddat leax FMTSTR,pcr
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	957 ldy #ENDSTR-FMTSTR
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	958 lda #1 stdout
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	959 os9 I$Write
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	960 forker1 clrb we just reported the error folks
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	961 * arriving here with possible bsr on stack - restore
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	962 * but make sure U is correct, a Link call screws it!
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	963 * and this sp reload with U fucked is my crash just like
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	964 * little green apples. GIGO of the hidden sort. So...
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	965 ldu #$0000 this seems to be where we started
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	966 lds stackp,u clear it for exit, leave b, cc as is
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	967 bigdec equ *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	968 end os9 F$Exit
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	969 emod
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	970 eom equ *
2e740da2088e 3rdparty/utils: Add disk with Gene's bootlink and vfy utilities Tormod Volden <debian.tormod@gmail.com> parents: diff changeset	971

Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/utils/gene/bootlink.asm @ 3072:32191c9fe2cd