Members/kono/nitros9-code: level1/cmds/ded.asm annotate

author	Tormod Volden <debian.tormod@gmail.com>
date	Tue, 19 Apr 2022 18:12:17 +0200 (2022-04-19)
parents	a87055e90295
children

rev	line source
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	1 nam dEd OS-9 Disk Editor Version 2.06
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	2 ttl Copyright 1987 Doug DeMartinis
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	3 *******************************************************
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	4 * Copyright 1987 Doug DeMartinis; All Rights Reserved *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	5 * CIS: 72245,1400 *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	6 * Delphi: DOUGLASD *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	7 * Personal use and uploading of code, source and docs *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	8 * to BBS's, as well as customization of the terminal *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	9 * display codes, is permitted only if the copyright *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	10 * notice and docs remain intact. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	11 * *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	12 * 10/87 Various mods & fixes by Bruce Isted (BRI) *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	13 * 11/87 Added Diddle, Find, Push, Remove routines. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	14 * Fixed bug throwing stack off by going in and *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	15 * out of various error routines. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	16 * *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	17 *******************************************************
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	18 * Further provenance is unknown but there has been at *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	19 * least some modifications by Marie-Louis Marcoux. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	20 * The program now reports position in the allocation *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	21 * map and which sectors the bytes represent when *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	22 * editing the map. It appears to also contain the *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	23 * patches indicated below. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	24 * The Rev Ed is 2.05 which would be consistant with *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	25 * the Marcoux dEd on RTSI as dEd_Plus_1and2_Patch.lzh *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	26 * but the CRC does not match. RG *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	27 *******************************************************
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	28 * *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	29 * Mods by Roger A. Krupski (HARDWAREHACK) *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	30 * *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	31 * 02/88 -Added "enter" command which cleans up the *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	32 * screen by running the REDO subroutine. (RAK) *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	33 * *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	34 * 01/90 -Added a check for the break key which allows *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	35 * aborting the <F>ind function. (RAK) *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	36 * -Added a check for null filename in OUTFILE: *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	37 * and bypass I$Create if so. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	38 * -Other minor bugs fixed / errors trapped. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	39 *******************************************************
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	40 * 06/01/11 Robert Gault *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	41 * Corrected BAM to sector calculation. *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	42 * No attempt has been made to comment code. *
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	43 *******************************************************
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	44 * 08/05/27 Robert Gault *
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	45 * Corrected BAM presentation with drives having*
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	46 * more than $##0000 sectors and/or DD.BIT >1. *
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	47 * Converted all u and L addressing to normal *
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	48 * lables. *
2587 87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	49 * Added cluster/sector toggle. *
87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	50 *******************************************************
87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	51 * 11/09/20 Robert Gault *
87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	52 * Corrected BAM presentation in sector mode *
87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	53 * when DD.BIT>1. *
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	54 *******************************************************
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	55 * Disassembled 2006/01/10 00:57:52 by Disasm v1.5 (C) 1988 by RML and RG
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	56
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	57
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	58 ifp1
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	59 use defsfile
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	60 endc
2587 87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG robertgault parents: 2172 diff changeset	61
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	62 tylg set Prgrm+Objct
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	63 atrv set ReEnt+rev
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	64 rev set $02
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	65 top mod eom,name,tylg,atrv,start,size
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	66 inpath rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	67 outpath rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	68 lsn rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	69 oldlsn rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	70 offset rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	71 cursor rmb 4
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	72 hexcol rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	73 rownum rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	74 asciicol rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	75 lastflag rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	76 buffptr rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	77 edbufptr rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	78 edpos rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	79 hexascii rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	80 zeroflag rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	81 oldecho rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	82 echobyte rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	83 Usave rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	84 Ssave rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	85 seclen rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	86 vmodlen rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	87 lmodlen rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	88 fileln rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	89 bytsread rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	90 crc rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	91 modnmlen rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	92 wrtflag rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	93 xprtflag rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	94 FHexAsc rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	95 TargLen rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	96 findstr rmb 17
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	97 findptr rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	98 FBytes rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	99 HexBuff rmb 4
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	100 FileLen rmb 4
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	101 infile rmb 30 linked module name
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	102 outfile rmb 30 output filename
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	103 CrsrCnt rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	104 CrsrFlg rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	105 SgnlCode rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	106 rawflg rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	107 clustflg rmb 1 flag for cluster/sector
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	108 ddmap rmb 2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	109 mappags rmb 2 sectors per Allocation Map
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	110 ddbit rmb 2 copy of DD.BIT
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	111 ddbitcalc rmb 2 calculation of sectors per map page
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	112 newBAM rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	113 nBAMstp rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	114 BAMstart rmb 3
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	115 BAMstop rmb 3
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	116 u009D rmb 8
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	117 StackCnt rmb 1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	118 Stack rmb 48
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	119 inbuff rmb 256
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	120 i.o.buff rmb 320
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	121 size equ .
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	122 cls fcb $0C clear screen
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	123 revvid fcb $1F,$20,0 reverse video on
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	124 normvid fcb $1F,$21,0 reverse video off
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	125 eraselin fcb $04 erase from current character to end of line
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	126 erasescr fcb $0B erase from current character to end of screen
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	127 curon fcb $05,$21,0 turns on cursor
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	128 curoff fcb $05,$20,0 turns off cursor
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	129 name equ *
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	130 fcs /dEd/
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	131 fcb $06
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	132 fcc /Copyright 1987 Doug DeMartinis/
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	133 lsntitle fcs /LSN=$/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	134 sect fcs /SECTOR = $/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	135 header fcc / 0 1 2 3 4 5 6 7 8 9 A B C D E F/
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	136 fcc / 0 2 4 6 8 A C E /
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	137 fcb $0D
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	138 command fcs /CMD: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	139 edprompt fcc "<BREAK> toggles HEX/ASCII edit modes "
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	140 fcs /<ENTER> exits edit mode/
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	141 zaprompt fcs /Zap /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	142 byte fcs /byte: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	143 char fcs /char: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	144 sure fcs "Are you sure? (Y/N) "
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	145 writing fcs /Writing sector.../
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	146 out$ fcs /OUTFILE: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	147 vrfymess fcs /Verifying.../
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	148 verrmess fcs /Verify aborted.../
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	149 shell$ fcs /shell/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	150 linkmess fcs /Link to which module? /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	151 linkhdr fcc /Off Len Name/
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	152 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	153 fcc /---- ---- ----/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	154 fcb $0D
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	155 modnmhdr fcs /MODULE: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	156 offmess fcs /OFFSET: $/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	157 xprtmess fcb $1F,$24 blink on
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	158 fcc /- Expert Mode -/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	159 fcb $1F,$25+$80 blink off
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	160 findbyte fcs /Find byte string $/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	161 findchar fcs /Find char string: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	162 srchmess fcs /Searching.../
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	163 lenmess fcs /Current File Length $/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	164 newmess fcs /New Length? $/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	165 bootmess fcs /** RESTART, Enter pathname: /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	166 BAMmess1 fcs /BAM: From Sector:$ to $ /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	167 BAMmess2 fcs /BAM: From Cluster:$ to $ /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	168 BITmess fcs /Bits:/
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	169 bell fcb $07
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	170 fullmess fcs /Sector Stack Full /
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	171 helper fcc " Up/Down Arrows Read & display Next/Previous sector"
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	172 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	173 fcc / <CR> Clean up the screen display/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	174 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	175 fcc / * Restart/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	176 fcb $0A
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	177 fcc " ! Toggle BAM Cluster/Sector"
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	178 fcb $0A
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	179 fcc / $ Fork a SHELL (Ctrl-BREAK to return)/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	180 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	181 fcc / A Append displayed sector to output file/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	182 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	183 fcc / C Close output file/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	184 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	185 fcc / D Diddle (adjust) file length/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	186 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	187 fcc / E Edit the displayed sector/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	188 fcb $0A
2675 a87055e90295 Remove extra junk after operand William Astle <lost@l-w.ca> parents: 2587 diff changeset	189 fcc / F Find a byte or text string (BREAK aborts)/
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	190 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	191 fcc / H Help screen (also use '?')/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	192 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	193 fcc / L Link to a module - List all modules/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	194 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	195 fcc / N Next occurrence of byte(s) or string (Find)/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	196 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	197 fcc / O Open a file for output (use with Append)/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	198 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	199 fcc / P Push current sector onto stack/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	200 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	201 fcc / Q Quit dEd - Exit to OS9/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	202 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	203 fcc / R Remove and display a sector from stack/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	204 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	205 fcc / S Skip to given sector (sector # in hex)/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	206 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	207 fcc / U Unlink from module/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	208 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	209 fcc / V Verify all modules in file/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	210 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	211 fcc / W Write the sector back to the disk/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	212 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	213 fcc " X eXpert mode toggle on/off"
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	214 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	215 fcc / Z Zap (fill in) the sector displayed/
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	216 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	217 fcb $0A
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	218 fcc / (Press any key to return to command prompt):/
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	219 helpchrs equ *-helper
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	220 usemess fcc /Use: dEd <pathlist>/
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	221 fcb $0D
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	222 decimals fcb $98,$96,$80 decimal 10,000,000
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	223 fcb $0F,$42,$40 decimal 1,000,000
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	224 fcb $01,$86,$A0 decimal 100,000
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	225 fcb $00,$27,$10 decimal 10,000
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	226 fcb $00,$03,$E8 decimal 1,000
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	227 fcb $00,$00,$64 decimal 100
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	228 fcb $00,$00,$0A decimal 10
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	229 fcb $00,$00,$01 decimal 1
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	230 * Command jump table
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	231 commands fcb $0C up arrow
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	232 fdb nxtsec
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	233 fcb $0A down arrow
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	234 fdb prevsec
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	235 fcb '*
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	236 fdb restart Restart program with new file/disk
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	237 fcb '!
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	238 fdb togCS Toggle cluster/sector
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	239 fcb '$ shell
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	240 fdb goshell
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	241 fcb $0D CR
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	242 fdb cReturn
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	243 fcb 's LSN change
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	244 fdb changLSN
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	245 fcb 'z Zap
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	246 fdb zap
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	247 fcb 'w Write sector
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	248 fdb writesec
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	249 fcb 'o Open output file
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	250 fdb openout
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	251 fcb 'a Append to file
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	252 fdb append
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	253 fcb 'c Close output file
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	254 fdb closeout
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	255 fcb 'e Edit sector
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	256 fdb edit
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	257 fcb 'q Quit
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	258 fdb quit
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	259 fcb 'v Verify
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	260 fdb verify
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	261 fcb 'l Link
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	262 fdb linker
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	263 fcb 'u Unlink
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	264 fdb unlinker
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	265 fcb 'x eXpert mode
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	266 fdb expert
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	267 fcb 'h help
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	268 fdb help
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	269 fcb '? help
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	270 fdb help
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	271 fcb 'f Find
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	272 fdb find
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	273 fcb 'n Next find
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	274 fdb next
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	275 fcb 'd Diddle length
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	276 fdb diddle
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	277 fcb 'p Push
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	278 fdb push
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	279 fcb 'r Restore (Pop)
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	280 fdb restore
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	281 fcb $00
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	282
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	283 * Intercept signals
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	284 * modification by BRI
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	285 icept stb SgnlCode,u
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	286 rti
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	287 * end modification
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	288
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	289 restart lds <Ssave
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	290 ldu <Usave
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	291 com <echobyte
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	292 lbsr echo
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	293 lbsr movecmd
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	294 leax bootmess,pcr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	295 lbsr pstring
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	296 lbsr clrline
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	297 leax i.o.buff,u
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	298 stx <inbuff
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	299 ldy #$50
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	300 clra
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	301 os9 I$ReadLn
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	302 lbcs error
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	303 cmpy #1
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	304 bne newdata
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	305 clr <echobyte
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	306 lbsr echo
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	307 lbra getcmd
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	308 newdata lda <inpath
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	309 os9 I$Close
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	310 bra softstrt
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	311
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	312 start equ *
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	313 stx <inbuff pointer to param
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	314 leax >icept,pcr intercept routine addr
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	315 os9 F$Icpt
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	316 lbcs error
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	317 * Initialize data area
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	318 softstrt clra
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	319 ldb #inbuff
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	320 leax ,u point to data area
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	321 init sta ,x+ clear memory
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	322 decb
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	323 bne init
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	324 com clustflg set default to show clusters
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	325 stu <Usave
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	326 sts <Ssave
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	327 ldd #$0002 cursor move code
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	328 std <cursor store it for output
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	329 leas <-$20,s make room for terminal options
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	330 leax ,s point regX to temp buffer
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	331 clra stdin path#
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	332 clrb SS.OPT
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	333 os9 I$GetStt
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	334 lbcs error
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	335 lda $04,x get echo status byte
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	336 sta <oldecho
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	337 leas <$20,s reset stack
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	338 * Open file
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	339 ldx <inbuff point to file name
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	340 pshs x
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	341 clr <rawflg raw disk edit open flag
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	342 opfLoop lda ,x+ find CR
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	343 cmpa #$0D
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	344 beq noraw @ not found
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	345 cmpa #'@ open raw option
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	346 bne opfLoop
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	347 com <rawflg flag the option
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	348 noraw puls x
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	349 lda #$03 update mode
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	350 os9 I$Open
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	351 bcc openOK
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	352 cmpb #$D7 bad pathname
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	353 lbeq hints
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	354 cmpb #$D6 no permission
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	355 lbne bye exit with error
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	356 ldx <inbuff point to file name
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	357 lda #$83 mode=Dir + Update
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	358 os9 I$Open
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	359 lbcs bye exit with error
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	360 openOK sta <inpath path#
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	361 ldb #$02 ss.size
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	362 os9 I$GetStt
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	363 stx <FileLen msw of file size (in bytes?)
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	364 stu <FileLen+2 lsw
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	365 ldu <Usave
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	366 clr <echobyte
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	367 lbsr echo set no echo
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	368 lbsr clrscr clear the screen
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	369 tst <rawflg
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	370 beq readloop go if not raw
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	371 lbsr seeksec read LSN0 of disk
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	372 ldx <buffptr point regX to sector image
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	373 * Get DD.BIT RG
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	374 ldd 6,x get DD.BIT
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	375 std <ddbit save new data
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	376 ldd 4,x get DD.MAP
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	377 std <ddmap save copy
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	378 * Next line converts DD.MAP to base0 numbering.
bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	379 * (DD.MAP-1)/$100+1=sectors in map. Original was DD.MAP/$100+1 RG
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	380 subd #1 needed to correctly convert DD.MAP to sectors in allocation, RG
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	381 tfr d,x
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	382 ldd #$100 bytes per sector of map
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	383 lbsr mul16B
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	384 leax 1,x
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	385 stx <mappags pages in allocation map
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	386 readloop lbsr seeksec
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	387 sty <seclen either $100 or number of bytes left in file
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	388 ldd <lsn get lsn just read
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	389 std <oldlsn
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	390 lda <lsn+2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	391 sta <oldlsn+2
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	392 ldd #0 signal Next
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	393 std <findptr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	394 disploop lbsr display display the sector
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	395 getcmd lbsr movecmd move cursor to
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	396 leax >command,pcr CMD:
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	397 bsr pstring
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	398 leax >erasescr,pcr erase to end of string
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	399 ldy #$0001 era2chrs
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	400 os9 I$Write
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	401 lbcs error
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	402 leax >i.o.buff,u
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	403 lbsr read1 read one char
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	404 lda ,x
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	405 cmpa #'A is it ascii?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	406 bcs srchtabl if not skip
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	407 ora #$20 upper -> lower
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	408 srchtabl leax >commands,pcr point to command table
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	409 findcmd cmpa ,x+ found it?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	410 beq gotcmd go if yes
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	411 leax $02,x else
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	412 tst ,x end of table?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	413 bne findcmd loop
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	414 bra getcmd invalid key
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	415 gotcmd tst <xprtflag using expert mode?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	416 beq jmpcmd no, then go
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	417 tst <wrtflag are we writing?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	418 beq jmpcmd n, then go
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	419 pshs x,a
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	420 lbsr xprtwrt write sector
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	421 puls x,a
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	422 jmpcmd ldd ,x get address offset
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	423 leax top,pcr start of module
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	424 jmp d,x jump to address
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	425 * Print string of characters in fcs mode
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	426 pstring leay >i.o.buff,u
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	427 clrb counter
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	428 xfer incb
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	429 lda ,x+ get shar
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	430 bmi lstchar if bit7 set,go
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	431 sta ,y+ put in buffer
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	432 bra xfer
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	433 lstchar anda #$7F clear bit7
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	434 sta ,y put in buffer
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	435 leax >i.o.buff,u point to string
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	436 clra
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	437 tfr d,y length of string to print
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	438 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	439 wrtlin1 ldy #$78 #bufsiz 120 chars max
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	440 writeout lda #$01 stdout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	441 wrtlin2 os9 I$WritLn
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	442 lbcs error
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	443 rts
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	444 readlin3 ldy #3 chars to read
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	445 readlin clra stdin
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	446 os9 I$ReadLn get 2 chars + CR
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	447 lbcs error
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	448 rts
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	449 movecmd ldd #$2036 #cmdpos
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	450 movecurs leax cursor,u cursor move code
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	451 std 2,x row/col
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	452 ldy #4 # chars
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	453 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	454
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	455 * Set reverse video code
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	456 revdisp leax >revvid,pcr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	457 ldy #2 chars to write
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	458 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	459
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	460 * Set normal video code
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	461 normdisp leax >normvid,pcr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	462 ldy #2 normchrs
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	463 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	464
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	465 clrline leax >eraselin,pcr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	466 ldy #1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	467 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	468
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	469 clrscr leax >cls,pcr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	470 ldy #1 eraschrs
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	471 bra writeout
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	472
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	473 seeksec bsr lsnseek seek to sector
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	474 leax >inbuff,u
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	475 stx <buffptr
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	476 tst <infile is module linked?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	477 beq read256 on not linked
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	478 ldd <lmodlen get module length
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	479 suba <lsn+2 are more than $100 bytes left?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	480 bne read256 yes, then go
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	481 tfr d,y no so setup smaller read
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	482 bra readsome
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	483 read256 ldy #$100 256 bytes
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	484 readsome lda <inpath
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	485 os9 I$Read
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	486 lbcs error
1979 bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes. robert parents: 1725 diff changeset	487 rts
2172 2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	488
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	489 ******************************
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	490 * changed to ignore errors 01/09/90 (RAK)
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	491 *
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	492 read1 clra stdin
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	493 ldy #1
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	494 os9 I$Read
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	495 rts
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	496 *********************** End of mod
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	497 lsnseek tst <infile is module linked?
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	498 bne offchk yes so go
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	499 ldx <lsn
2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code. robertgault parents: 1979 diff changeset	500 lda <lsn+2

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1 nam dEd OS-9 Disk Editor Version 2.06

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

3 *******************************************************

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

5 * CIS: 72245,1400 *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

6 * Delphi: DOUGLASD *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

7 * Personal use and uploading of code, source and docs *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

8 * to BBS's, as well as customization of the terminal *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

9 * display codes, is permitted only if the copyright *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

10 * notice and docs remain intact. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

11 * *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

12 * 10/87 Various mods & fixes by Bruce Isted (BRI) *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

13 * 11/87 Added Diddle, Find, Push, Remove routines. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

14 * Fixed bug throwing stack off by going in and *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

15 * out of various error routines. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

16 * *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

17 *******************************************************

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

18 * Further provenance is unknown but there has been at *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

19 * least some modifications by Marie-Louis Marcoux. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

20 * The program now reports position in the allocation *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

21 * map and which sectors the bytes represent when *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

22 * editing the map. It appears to also contain the *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

23 * patches indicated below. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

24 * The Rev Ed is 2.05 which would be consistant with *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

25 * the Marcoux dEd on RTSI as dEd_Plus_1and2_Patch.lzh *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

26 * but the CRC does not match. RG *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

27 *******************************************************

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

28 * *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

29 * Mods by Roger A. Krupski (HARDWAREHACK) *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

30 * *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

31 * 02/88 -Added "enter" command which cleans up the *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

32 * screen by running the REDO subroutine. (RAK) *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

33 * *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

34 * 01/90 -Added a check for the break key which allows *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

35 * aborting the <F>ind function. (RAK) *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

36 * -Added a check for null filename in OUTFILE: *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

37 * and bypass I$Create if so. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

38 * -Other minor bugs fixed / errors trapped. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

39 *******************************************************

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

40 * 06/01/11 Robert Gault *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

41 * Corrected BAM to sector calculation. *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

42 * No attempt has been made to comment code. *

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

43 *******************************************************

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

44 * 08/05/27 Robert Gault *

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

45 * Corrected BAM presentation with drives having*

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

46 * more than $##0000 sectors and/or DD.BIT >1. *

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

47 * Converted all u and L addressing to normal *

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

48 * lables. *

2587

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

49 * Added cluster/sector toggle. *

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

50 *******************************************************

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

51 * 11/09/20 Robert Gault *

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

52 * Corrected BAM presentation in sector mode *

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

53 * when DD.BIT>1. *

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

54 *******************************************************

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

56

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

57

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

58 ifp1

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

59 use defsfile

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

60 endc

2587

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

61

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

62 tylg set Prgrm+Objct

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

63 atrv set ReEnt+rev

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

64 rev set $02

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

65 top mod eom,name,tylg,atrv,start,size

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

66 inpath rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

67 outpath rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

68 lsn rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

69 oldlsn rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

70 offset rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

71 cursor rmb 4

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

72 hexcol rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

73 rownum rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

74 asciicol rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

75 lastflag rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

76 buffptr rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

77 edbufptr rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

78 edpos rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

79 hexascii rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

80 zeroflag rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

81 oldecho rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

82 echobyte rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

83 Usave rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

84 Ssave rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

85 seclen rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

86 vmodlen rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

87 lmodlen rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

88 fileln rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

89 bytsread rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

90 crc rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

91 modnmlen rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

92 wrtflag rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

93 xprtflag rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

94 FHexAsc rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

95 TargLen rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

96 findstr rmb 17

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

97 findptr rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

98 FBytes rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

99 HexBuff rmb 4

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

100 FileLen rmb 4

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

101 infile rmb 30 linked module name

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

102 outfile rmb 30 output filename

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

103 CrsrCnt rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

104 CrsrFlg rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

105 SgnlCode rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

106 rawflg rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

107 clustflg rmb 1 flag for cluster/sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

108 ddmap rmb 2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

109 mappags rmb 2 sectors per Allocation Map

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

110 ddbit rmb 2 copy of DD.BIT

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

111 ddbitcalc rmb 2 calculation of sectors per map page

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

112 newBAM rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

113 nBAMstp rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

114 BAMstart rmb 3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

115 BAMstop rmb 3

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

116 u009D rmb 8

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

117 StackCnt rmb 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

118 Stack rmb 48

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

119 inbuff rmb 256

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

120 i.o.buff rmb 320

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

121 size equ .

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

122 cls fcb $0C clear screen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

123 revvid fcb $1F,$20,0 reverse video on

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

124 normvid fcb $1F,$21,0 reverse video off

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

125 eraselin fcb $04 erase from current character to end of line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

126 erasescr fcb $0B erase from current character to end of screen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

127 curon fcb $05,$21,0 turns on cursor

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

128 curoff fcb $05,$20,0 turns off cursor

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

129 name equ *

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

130 fcs /dEd/

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

131 fcb $06

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

133 lsntitle fcs /LSN=$/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

134 sect fcs /SECTOR = $/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

135 header fcc / 0 1 2 3 4 5 6 7 8 9 A B C D E F/

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

136 fcc / 0 2 4 6 8 A C E /

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

137 fcb $0D

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

138 command fcs /CMD: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

139 edprompt fcc "<BREAK> toggles HEX/ASCII edit modes "

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

140 fcs /<ENTER> exits edit mode/

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

141 zaprompt fcs /Zap /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

142 byte fcs /byte: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

143 char fcs /char: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

144 sure fcs "Are you sure? (Y/N) "

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

145 writing fcs /Writing sector.../

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

146 out$ fcs /OUTFILE: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

147 vrfymess fcs /Verifying.../

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

148 verrmess fcs /Verify aborted.../

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

149 shell$ fcs /shell/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

150 linkmess fcs /Link to which module? /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

151 linkhdr fcc /Off Len Name/

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

152 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

153 fcc /---- ---- ----/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

154 fcb $0D

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

155 modnmhdr fcs /MODULE: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

156 offmess fcs /OFFSET: $/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

157 xprtmess fcb $1F,$24 blink on

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

158 fcc /- Expert Mode -/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

159 fcb $1F,$25+$80 blink off

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

160 findbyte fcs /Find byte string $/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

161 findchar fcs /Find char string: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

162 srchmess fcs /Searching.../

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

163 lenmess fcs /Current File Length $/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

164 newmess fcs /New Length? $/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

165 bootmess fcs /** RESTART, Enter pathname: /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

166 BAMmess1 fcs /BAM: From Sector:$ to $ /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

167 BAMmess2 fcs /BAM: From Cluster:$ to $ /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

168 BITmess fcs /Bits:/

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

169 bell fcb $07

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

170 fullmess fcs /Sector Stack Full /

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

171 helper fcc " Up/Down Arrows Read & display Next/Previous sector"

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

172 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

173 fcc / <CR> Clean up the screen display/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

174 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

175 fcc / * Restart/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

176 fcb $0A

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

177 fcc " ! Toggle BAM Cluster/Sector"

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

178 fcb $0A

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

179 fcc / $ Fork a SHELL (Ctrl-BREAK to return)/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

180 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

181 fcc / A Append displayed sector to output file/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

182 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

183 fcc / C Close output file/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

184 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

185 fcc / D Diddle (adjust) file length/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

186 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

187 fcc / E Edit the displayed sector/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

188 fcb $0A

2675

a87055e90295 Remove extra junk after operand

William Astle <lost@l-w.ca>

parents: 2587

diff changeset

189 fcc / F Find a byte or text string (BREAK aborts)/

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

190 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

191 fcc / H Help screen (also use '?')/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

192 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

193 fcc / L Link to a module - List all modules/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

194 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

195 fcc / N Next occurrence of byte(s) or string (Find)/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

196 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

197 fcc / O Open a file for output (use with Append)/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

198 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

199 fcc / P Push current sector onto stack/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

200 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

201 fcc / Q Quit dEd - Exit to OS9/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

202 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

203 fcc / R Remove and display a sector from stack/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

204 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

205 fcc / S Skip to given sector (sector # in hex)/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

206 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

207 fcc / U Unlink from module/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

208 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

209 fcc / V Verify all modules in file/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

210 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

211 fcc / W Write the sector back to the disk/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

212 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

213 fcc " X eXpert mode toggle on/off"

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

214 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

215 fcc / Z Zap (fill in) the sector displayed/

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

216 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

217 fcb $0A

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

218 fcc / (Press any key to return to command prompt):/

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

219 helpchrs equ *-helper

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

220 usemess fcc /Use: dEd <pathlist>/

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

221 fcb $0D

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

222 decimals fcb $98,$96,$80 decimal 10,000,000

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

223 fcb $0F,$42,$40 decimal 1,000,000

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

224 fcb $01,$86,$A0 decimal 100,000

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

225 fcb $00,$27,$10 decimal 10,000

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

226 fcb $00,$03,$E8 decimal 1,000

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

227 fcb $00,$00,$64 decimal 100

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

228 fcb $00,$00,$0A decimal 10

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

229 fcb $00,$00,$01 decimal 1

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

230 * Command jump table

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

231 commands fcb $0C up arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

232 fdb nxtsec

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

233 fcb $0A down arrow

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

234 fdb prevsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

235 fcb '*

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

236 fdb restart Restart program with new file/disk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

237 fcb '!

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

238 fdb togCS Toggle cluster/sector

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

239 fcb '$ shell

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

240 fdb goshell

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

241 fcb $0D CR

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

242 fdb cReturn

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

243 fcb 's LSN change

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

244 fdb changLSN

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

245 fcb 'z Zap

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

246 fdb zap

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

247 fcb 'w Write sector

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

248 fdb writesec

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

249 fcb 'o Open output file

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

250 fdb openout

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

251 fcb 'a Append to file

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

252 fdb append

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

253 fcb 'c Close output file

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

254 fdb closeout

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

255 fcb 'e Edit sector

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

256 fdb edit

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

257 fcb 'q Quit

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

258 fdb quit

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

259 fcb 'v Verify

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

260 fdb verify

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

261 fcb 'l Link

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

262 fdb linker

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

263 fcb 'u Unlink

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

264 fdb unlinker

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

265 fcb 'x eXpert mode

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

266 fdb expert

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

267 fcb 'h help

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

268 fdb help

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

269 fcb '? help

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

270 fdb help

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

271 fcb 'f Find

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

272 fdb find

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

273 fcb 'n Next find

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

274 fdb next

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

275 fcb 'd Diddle length

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

276 fdb diddle

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

277 fcb 'p Push

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

278 fdb push

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

279 fcb 'r Restore (Pop)

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

280 fdb restore

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

281 fcb $00

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

282

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

283 * Intercept signals

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

284 * modification by BRI

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

285 icept stb SgnlCode,u

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

286 rti

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

287 * end modification

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

288

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

289 restart lds <Ssave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

290 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

291 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

292 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

293 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

294 leax bootmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

295 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

296 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

297 leax i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

298 stx <inbuff

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

299 ldy #$50

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

300 clra

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

301 os9 I$ReadLn

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

302 lbcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

303 cmpy #1

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

304 bne newdata

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

305 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

306 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

307 lbra getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

308 newdata lda <inpath

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

309 os9 I$Close

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

310 bra softstrt

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

311

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

312 start equ *

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

313 stx <inbuff pointer to param

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

314 leax >icept,pcr intercept routine addr

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

315 os9 F$Icpt

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

316 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

317 * Initialize data area

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

318 softstrt clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

319 ldb #inbuff

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

320 leax ,u point to data area

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

321 init sta ,x+ clear memory

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

322 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

323 bne init

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

324 com clustflg set default to show clusters

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

325 stu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

326 sts <Ssave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

327 ldd #$0002 cursor move code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

328 std <cursor store it for output

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

329 leas <-$20,s make room for terminal options

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

330 leax ,s point regX to temp buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

331 clra stdin path#

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

332 clrb SS.OPT

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

333 os9 I$GetStt

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

334 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

335 lda $04,x get echo status byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

336 sta <oldecho

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

337 leas <$20,s reset stack

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

338 * Open file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

339 ldx <inbuff point to file name

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

340 pshs x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

341 clr <rawflg raw disk edit open flag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

342 opfLoop lda ,x+ find CR

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

343 cmpa #$0D

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

344 beq noraw @ not found

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

345 cmpa #'@ open raw option

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

346 bne opfLoop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

347 com <rawflg flag the option

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

348 noraw puls x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

349 lda #$03 update mode

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

350 os9 I$Open

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

351 bcc openOK

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

352 cmpb #$D7 bad pathname

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

353 lbeq hints

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

354 cmpb #$D6 no permission

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

355 lbne bye exit with error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

356 ldx <inbuff point to file name

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

357 lda #$83 mode=Dir + Update

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

358 os9 I$Open

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

359 lbcs bye exit with error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

360 openOK sta <inpath path#

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

361 ldb #$02 ss.size

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

362 os9 I$GetStt

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

363 stx <FileLen msw of file size (in bytes?)

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

364 stu <FileLen+2 lsw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

365 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

366 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

367 lbsr echo set no echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

368 lbsr clrscr clear the screen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

369 tst <rawflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

370 beq readloop go if not raw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

371 lbsr seeksec read LSN0 of disk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

372 ldx <buffptr point regX to sector image

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

373 * Get DD.BIT RG

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

374 ldd 6,x get DD.BIT

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

375 std <ddbit save new data

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

376 ldd 4,x get DD.MAP

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

377 std <ddmap save copy

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

378 * Next line converts DD.MAP to base0 numbering.

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

379 * (DD.MAP-1)/$100+1=sectors in map. Original was DD.MAP/$100+1 RG

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

380 subd #1 needed to correctly convert DD.MAP to sectors in allocation, RG

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

381 tfr d,x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

382 ldd #$100 bytes per sector of map

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

383 lbsr mul16B

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

384 leax 1,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

385 stx <mappags pages in allocation map

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

386 readloop lbsr seeksec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

387 sty <seclen either $100 or number of bytes left in file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

388 ldd <lsn get lsn just read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

389 std <oldlsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

390 lda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

391 sta <oldlsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

392 ldd #0 signal Next

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

393 std <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

394 disploop lbsr display display the sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

395 getcmd lbsr movecmd move cursor to

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

396 leax >command,pcr CMD:

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

397 bsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

398 leax >erasescr,pcr erase to end of string

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

399 ldy #$0001 era2chrs

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

400 os9 I$Write

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

401 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

402 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

403 lbsr read1 read one char

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

404 lda ,x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

405 cmpa #'A is it ascii?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

406 bcs srchtabl if not skip

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

407 ora #$20 upper -> lower

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

408 srchtabl leax >commands,pcr point to command table

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

409 findcmd cmpa ,x+ found it?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

410 beq gotcmd go if yes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

411 leax $02,x else

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

412 tst ,x end of table?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

413 bne findcmd loop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

414 bra getcmd invalid key

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

415 gotcmd tst <xprtflag using expert mode?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

416 beq jmpcmd no, then go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

417 tst <wrtflag are we writing?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

418 beq jmpcmd n, then go

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

419 pshs x,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

420 lbsr xprtwrt write sector

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

421 puls x,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

422 jmpcmd ldd ,x get address offset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

423 leax top,pcr start of module

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

424 jmp d,x jump to address

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

425 * Print string of characters in fcs mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

426 pstring leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

427 clrb counter

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

428 xfer incb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

429 lda ,x+ get shar

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

430 bmi lstchar if bit7 set,go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

431 sta ,y+ put in buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

432 bra xfer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

433 lstchar anda #$7F clear bit7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

434 sta ,y put in buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

435 leax >i.o.buff,u point to string

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

436 clra

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

437 tfr d,y length of string to print

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

438 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

439 wrtlin1 ldy #$78 #bufsiz 120 chars max

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

440 writeout lda #$01 stdout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

441 wrtlin2 os9 I$WritLn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

442 lbcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

443 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

444 readlin3 ldy #3 chars to read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

445 readlin clra stdin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

446 os9 I$ReadLn get 2 chars + CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

447 lbcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

448 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

449 movecmd ldd #$2036 #cmdpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

450 movecurs leax cursor,u cursor move code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

451 std 2,x row/col

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

452 ldy #4 # chars

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

453 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

454

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

455 * Set reverse video code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

456 revdisp leax >revvid,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

457 ldy #2 chars to write

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

458 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

459

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

460 * Set normal video code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

461 normdisp leax >normvid,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

462 ldy #2 normchrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

463 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

464

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

465 clrline leax >eraselin,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

466 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

467 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

468

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

469 clrscr leax >cls,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

470 ldy #1 eraschrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

471 bra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

472

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

473 seeksec bsr lsnseek seek to sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

474 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

475 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

476 tst <infile is module linked?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

477 beq read256 on not linked

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

478 ldd <lmodlen get module length

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

479 suba <lsn+2 are more than $100 bytes left?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

480 bne read256 yes, then go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

481 tfr d,y no so setup smaller read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

482 bra readsome

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

483 read256 ldy #$100 256 bytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

484 readsome lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

485 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

486 lbcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

487 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

488

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

489 ******************************

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

490 * changed to ignore errors 01/09/90 (RAK)

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

491 *

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

492 read1 clra stdin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

493 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

494 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

495 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

496 *********************** End of mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

497 lsnseek tst <infile is module linked?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

498 bne offchk yes so go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

499 ldx <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

500 lda <lsn+2

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

501 clrb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

502 lsnseek1 tfr d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

503 lda <inpath

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

504 os9 I$Seek

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

505 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

506 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

507 lsnrts rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

508

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

509 offchk ldd <lmodlen linked module length

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

510 subd #1 base0 on sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

511 cmpa <lsn+2 reading past last sector?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

512 bcc offseek no then go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

513 ldb #$D3 e$eof

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

514 lbra error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

515 * If module is 'linked' add offset for good seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

516 offseek ldd <offset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

517 adda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

518 ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

519 bra lsnseek1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

520

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

521 display ldd #$2020

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

522 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

523 leax >lsntitle,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

524 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

525 bsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

526 lbsr convert3 hex to ascii for lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

527 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

528 lbsr wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

529 tst <infile link test

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

530 beq nolink

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

531 lbsr prntmod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

532 nolink tst <outpath is an output path open

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

533 beq noout no, then go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

534 lbsr prntout display name

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

535 noout ldd #$2022 hedrpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

536 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

537 leax >revvid,pcr reverse video code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

538 ldy #2 # of revchrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

539 lbsr wrtlin2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

540 leax >header,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

541 lbsr wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

542 leax >normvid,pcr normal video code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

543 ldy #2 normchrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

544 lbsr wrtlin2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

545 disp lbsr dsplylin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

546 lda <rownum get row #

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

547 adda #$10 next row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

548 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

549 bne disp do 16 rows

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

550 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

551 stx <buffptr reset buffer pointer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

552 tst <rawflg edit flag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

553 beq contin if not raw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

554 * New lines handle disks with $xx0000 sectors where xx>00. RG

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

555 tst <lsn look at LSN msb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

556 bne contin we're not looking at the map if not $00

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

557 ldd <lsn+1 get LSN lsw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

558 cmpd #1 first page of map?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

559 bcs contin go if lsn0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

560 cmpd <mappags

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

561 bhi contin lsnrts, go if not map

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

562 * ldd <lsn+1 we don't need this as it already is loaded. RG

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

563 subd #1 setup to calc first sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

564 * Big error as it ignores DD.BIT New lines added. RG

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

565 ldx #$800 8 bits/byte x $100 bytes per page if DD.BIT=1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

566

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

567 tst clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

568 bne csf1 no calc if in cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

569 pshs d save LSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

570 ldd <ddbit sectors per bit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

571 lbsr mulDbyX mul regD * regX

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

572 stu <ddbitcalc sectors per page of allocation map, hope for no overflow

2587

87fcf1bb90e6 Corrected BAM in sector mode with DD.BIT>1 RG

robertgault

parents: 2172

diff changeset

573 tfr u,x !!!!!!!!!!!!!!!!!!!

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

574 puls d recover LSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

575

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

576 csf1 lbsr mulDbyX mul regD*regX = value first sector on this page allocation map

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

577 tfr y,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

578 stb <newBAM msb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

579 stu <newBAM+1 lsw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

580 * leau >$7FF,u this assumes DD.BIT = 1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

581

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

582 tst clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

583 bne csf2 no calc if in cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

584 pshs d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

585 bsr ddbitfix calculate -sectors per map byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

586 addd <ddbitcalc regD = value of last bit on first allocation map page

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

587 leau d,u add starting value of page

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

588 puls d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

589 bra csf3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

590 csf2 leau $7ff,u this is fixed in cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

591 csf3 cmpu <FileLen+1 file length times $100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

592 bls notshort

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

593 cmpb <FileLen file length times $100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

594 bcs notshort

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

595 ldu <FileLen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

596 tst clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

597 bne csf4 no calc in cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

598 bsr ddbitfix calc -sectors per map byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

599 leau d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

600 bra csf5

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

601 csf4 leau -1,u fixed in cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

602

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

603 csf5 ldb <FileLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

604 notshort stb <nBAMstp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

605 stu <nBAMstp+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

606 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

607 ldx <newBAM

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

608 ldb <newBAM+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

609 stx <BAMstart

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

610 stb <BAMstart+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

611 ldx <nBAMstp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

612 ldb <nBAMstp+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

613 stx <BAMstop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

614 stb <BAMstop+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

615 lbsr prntBAM

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

616 bra moredisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

617

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

618 ddbitfix clra does a neg(ddbit)

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

619 clrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

620 subd <ddbit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

621 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

622 * End of BAM mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

623

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

624 * Continue the normal display.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

625 contin ldd #$2034 clear BAM line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

626 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

627 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

628 moredisp tst <xprtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

629 lbeq lsnrts go if not expert

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

630 ldd #$5933 xprtpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

631 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

632 leax >xprtmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

633 lbra pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

634 convert3 ldd <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

635 com <zeroflag to suppress leading zeros

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

636 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

637 bsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

638 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

639 bsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

640 clr <zeroflag print leading zeros

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

641 lda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

642 bsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

643 ldd #$2020 space space

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

644 std ,y++ move to buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

645 ldd #8 8 decimal digits

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

646 pshs b,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

647 com <zeroflag suppress leading zeros

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

648 leax >decimals,pcr conversion table pointer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

649 initsub1 clr ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

650 subdec1 ldd <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

651 subd $01,x lsb from table

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

652 pshs cc save carry

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

653 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

654 lda <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

655 clrb flag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

656 suba ,x -msb of lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

657 bcc LSBorrow

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

658 incb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

659 LSBorrow puls cc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

660 bcc savemsb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

661 suba #$01

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

662 savemsb sta <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

663 bcc chekenuf

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

664 incb set flag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

665 chekenuf tstb enough?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

666 bne enufsub1 go if yes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

667 inc ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

668 bra subdec1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

669 enufsub1 ldd <lsn+1 get lsw

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

670 addd 1,x make it positive

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

671 std <lsn+1 lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

672 lda <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

673 bcc addmsb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

674 inca get the carry

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

675 addmsb adda ,x make rest of remainder positive

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

676 sta <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

677 leax 3,x point to next table entry

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

678 bsr decascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

679 dec $01,s 8 digits?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

680 beq getCR go if 8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

681 lda 1,s get last two digits?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

682 cmpa #2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

683 bne initsub1 if no then loop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

684 clr <zeroflag enable leading zeros

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

685 bra initsub1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

686

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

687 getCR lda #$0D

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

688 sta ,y put into out string

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

689 ldd <oldlsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

690 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

691 lda <oldlsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

692 sta <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

693 puls d,pc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

694

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

695 * Convert hex byte in regA to ascii and put in buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

696 convert1 pshs a hex to ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

697 lsra shift msn to lsnibble

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

698 lsra

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

699 lsra

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

700 lsra

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

701 bsr objasc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

702 puls a recover byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

703 anda #$0F mask off msnibble

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

704 bsr objasc

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

705 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

706 objasc cmpa #$09 is a digit?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

707 ble asciify

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

708 adda #$07

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

709 asciify adda #$30 add '0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

710 sta ,y+ put it into buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

711 tst <zeroflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

712 beq convdone go if not

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

713 cmpa #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

714 beq suppres0 erase if yes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

715 clr <zeroflag stop suppression

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

716 convdone rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

717 suppres0 leay -$01,y

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

718 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

719

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

720 * Convert decimal# on stack to ascii and add to buffer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

721 decascii pshs a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

722 lda $03,s get decimal counter

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

723 bsr asciify

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

724 puls pc,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

725

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

726 dsplylin leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

727 leax >revvid,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

728 lbsr transfer reverse video code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

729 lda <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

730 beq notlast

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

731 anda #$F0 mask off lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

732 cmpa <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

733 bne notlast

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

734 lda #$FF

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

735 sta <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

736 notlast lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

737 bsr convert1 make it hex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

738 lda #':

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

739 sta ,y+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

740 leax >normvid,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

741 bsr transfer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

742 ldd #$2020 2 spaces

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

743 std ,y++

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

744 ldx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

745 ldb #$10 16 bytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

746 tst <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

747 beq cnvtbyt go if not

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

748 ldb <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

749 andb #$0F regB= bytes for last line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

750 beq noline

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

751 pshs b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

752 cnvtbyt lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

753 bsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

754 lda #$20 space

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

755 sta ,y+

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

756 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

757 bne cnvtbyt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

758 tst <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

759 beq addspc2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

760 ldd #$310 regB=max bytes per line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

761 subb ,s regB=bytes to null out

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

762 mul 3 spaces per byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

763 lda #$20 space

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

764 addspc1 sta ,y+

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

765 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

766 bne addspc1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

767 addspc2 ldb #$20

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

768 std ,y++

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

769 sta ,y+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

770 ldx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

771 asrb regB=15

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

772 tst <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

773 beq ascichar

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

774 ldb ,s

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

775 ascichar lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

776 anda #$7F clear bit7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

777 cmpa #$20 32

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

778 bcc printabl

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

779 notascii lda #$2E notascii '.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

780 printabl sta ,y+

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

781 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

782 bne ascichar

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

783 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

784 tst <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

785 beq addCR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

786 ldb #$10 max bytes per line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

787 subb ,s+ regB=bytes to null

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

788 lda #$20 space

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

789 addspc3 sta ,y+ put in buffer

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

790 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

791 bne addspc3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

792 lda #$F0 last row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

793 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

794 bsr addCR display line

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

795 resetlst clr <lastflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

796 leax >erasescr,pcr erase to end of screen code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

797 ldy #1 era2chrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

798 lbra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

799 addCR lda #$0D CR

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

800 sta ,y

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

801 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

802 lbra wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

803

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

804 transfer lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

805 beq trandone

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

806 sta ,y+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

807 bra transfer

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

808 trandone rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

809

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

810 noline lda #$F0 signal last row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

811 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

812 bra resetlst

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

813

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

814 * Point to net LSN in file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

815 nxtsec ldd <lsn+1 nxtsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

816 addd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

817 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

818 bne readsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

819 inc <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

820 readsec lbra readloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

821

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

822 * Point to previous LSN unless at LSN0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

823 prevsec ldd <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

824 bne notfirst

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

825 tst <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

826 lbeq getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

827 notfirst subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

828 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

829 cmpd #$FFFF borrow if LSN was $xx0000

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

830 bne readsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

831 dec <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

832 bra readsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

833

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

834 * Change LSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

835 changLSN lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

836 leax sect,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

837 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

838 ldy #7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

839 bsr MakeHex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

840 bcs BadLSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

841 ldd <HexBuff+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

842 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

843 lda <HexBuff+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

844 sta <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

845 lbra readloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

846

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

847 BadLSN lbsr beep

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

848 bra changLSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

849

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

850 MakeHex pshs y save # of bytes to read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

851 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

852 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

853 lbsr echo

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

854 puls y

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

855 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

856 lbsr readlin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

857 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

858 lbsr echo

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

859 leay -$01,y

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

860 beq ExitHex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

861 tfr y,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

862 CheckHex lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

863 bsr hexdigit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

864 bcs invalid

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

865 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

866 bne CheckHex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

867 sty <HexBuff

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

868 getascii lda #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

869 ldb ,-x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

870 leay -1,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

871 beq convrt2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

872 lda ,-x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

873 leay -1,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

874 convrt2 bsr asciihex

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

875 pshs b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

876 cmpy #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

877 bne getascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

878 ldb <HexBuff+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

879 incb prep for badfind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

880 lsrb # of hex bytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

881 clra leading 0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

882 leax <HexBuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

883 cmpb #4 four bytes on stack?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

884 beq hexstack

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

885 sta ,x+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

886 cmpb #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

887 beq hexstack

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

888 sta ,x+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

889 cmpb #2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

890 beq hexstack

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

891 sta ,x+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

892 hexstack puls a

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

893 sta ,x+

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

894 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

895 bne hexstack

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

896 clrb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

897 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

898

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

899 invalid lbsr beep

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

900 ExitHex leas 2,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

901 lbra readloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

902

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

903 hexdigit cmpa #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

904 bcs nothex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

905 cmpa #'9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

906 bls ishex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

907 anda #$5F lower to upper

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

908 cmpa #'F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

909 bhi nothex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

910 cmpa #'A

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

911 bcs nothex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

912 ishex clra

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

913 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

914 nothex coma

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

915 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

916

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

917 asciihex bsr hexnib

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

918 pshs b

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

919 tfr a,b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

920 bsr hexnib

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

921 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

922 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

923 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

924 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

925 orb ,s+

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

926 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

927

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

928 hexnib subb #$30

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

929 cmpb #9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

930 bls nowhex

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

931 andb #$5F

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

932 subb #$07

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

933 nowhex rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

934

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

935 * Zap sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

936 zap clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

937 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

938 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

939 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

940 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

941 leax >zaprompt,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

942 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

943 tst <hexascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

944 bne zapascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

945 leax >byte,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

946 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

947 ldy #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

948 bsr zapread

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

949 bsr hexobjct

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

950 bcs exitzap

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

951 zapstart leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

952 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

953 clrb counter

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

954 zapbuff sta ,x+

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

955 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

956 bne zapbuff

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

957 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

958 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

959 inc <wrtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

960 lbra disploop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

961

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

962 zapread clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

963 leax >i.o.buff,u

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

964 os9 I$ReadLn

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

965 bcs cheksig1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

966 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

967 cheksig1 cmpb #2 break key signal

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

968 lbne error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

969 com <hexascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

970 leas 2,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

971 bra zap

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

972

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

973 exitzap clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

974 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

975 lbra getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

976

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

977 zapascii leax >char,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

978 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

979 ldy #2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

980 bsr zapread

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

981 lda ,x

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

982 cmpa #$20

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

983 bcs exitzap

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

984 bra zapstart

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

985

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

986 * Convert 2 hex chars in buffer (x) to object byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

987 hexobjct bsr cnvrtnib

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

988 bcs badrts

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

989 tfr a,b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

990 bsr cnvrtnib

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

991 bcs badrts

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

992 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

993 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

994 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

995 lslb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

996 pshs b

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

997 ora ,s+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

998 bra goodhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

999

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1000 cnvrtnib bsr isithex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1001 bcs badrts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1002 bra cnvrthex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1003

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1004 isithex lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1005 cmpa #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1006 bcs badhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1007 cmpa #'9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1008 bls goodhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1009 anda #$5F lower to upper

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1010 cmpa #'A

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1011 bcs badhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1012 cmpa #'F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1013 bhi badhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1014 goodhex andcc #$FE

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1015 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1016 badhex orcc #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1017 badrts rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1018

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1019 cnvrthex suba #$30

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1020 cmpa #9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1021 bls nowobjct

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1022 suba #7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1023 nowobjct bra goodhex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1024

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1025 * Write current sector back to disk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1026 writesec tst <xprtflag is expert mode on

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1027 lbne getcmd yes, then go

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1028 bsr rusure no, are you sure

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1029 lbne getcmd Y or N

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1030 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1031 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1032 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1033 leax >writing,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1034 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1035 xprtwrt lbsr lsnseek seek to start of sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1036 lda <inpath path#

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1037 lbsr write100 write 256 bytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1038 tst <xprtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1039 beq opendone

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1040 clr <wrtflag clear auto-write

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1041 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1042

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1043 * Ask Are you sure? And get response

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1044 rusure lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1045 rusure10 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1046 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1047 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1048 leax >sure,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1049 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1050 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1051 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1052 lbsr read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1053 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1054 lbsr echo

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1055 lda ,x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1056 anda #$5F lower to upper

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1057 cmpa #'Y

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1058 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1059

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1060 * Open output file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1061 openout tst <outpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1062 bne opendone

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1063 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1064 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1065 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1066 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1067 leax >out$,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1068 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1069 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1070 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1071 ldy #30 29 char + CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1072 lbsr readlin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1073 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1074 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1075 ***********************************************

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1076 * Return to command prompt if no filename given

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1077 * Added 01/09/90 (RAK)

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1078 *

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1079 cmpy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1080 beq opendone

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1081 ********************************** END modification

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1082 pshs x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1083 leay <outfile,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1084 savname lda ,x+ get name

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1085 sta ,y+

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1086 cmpa #$20 space

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1087 bhi savname

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1088 lda #$0D CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1089 sta -1,y delimit

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1090 puls x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1091 lda #2 write

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1092 ldb #$0B attributes read+write

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1093 os9 I$Create

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1094 bcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1095 sta <outpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1096 bsr prntout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1097 opendone lbra getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1098

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1099 * move cursor & print 'Outout pathlist'

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1100 prntout ldd #$3021 out position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1101 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1102 leax >out$,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1103 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1104 leax <outfile,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1105 lbra wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1106

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1107 * Write out a sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1108 write100 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1109 ldy <seclen

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1110 os9 I$Write

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1111 bcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1112 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1113

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1114 * Close output file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1115 closeout lda <outpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1116 beq opendone

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1117 os9 I$Close

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1118 bcs error

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1119 ldd #$3021

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1120 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1121 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1122 clr <outpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1123 closed bra opendone

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1124

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1125 * Append sector to output file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1126 append lda <outpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1127 beq closed

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1128 bsr write100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1129 lbra nxtsec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1130

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1131 * main error routine

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1132 error pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1133 * modification by BRI

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1134 clr <SgnlCode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1135 * end modification

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1136 ldd <oldlsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1137 std <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1138 lda <oldlsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1139 sta <lsn+2

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1140 puls b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1141 lds <Ssave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1142 cmpb #2 break

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1143 beq error2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1144 cmpb #3 shift break

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1145 bne eofchk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1146 clr <wrtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1147 bra error2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1148 eofchk cmpb #$D3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1149 bne truerr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1150 error2 lbra exitzap

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1151

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1152 truerr cmpb #$CD bad module ID

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1153 bne othererr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1154 * If module is linked, BMID error must come from trying to Verify modules

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1155 * use standard error reporting routine. Otherwise BMID error occurs when

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1156 * trying to link (or list names of) modules; need to clear screen after these.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1157 tst <infile module linked?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1158 bne othererr yes, use standard error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1159 bsr prterr display error #

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1160 leax >cls,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1161 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1162 lbsr writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1163 lbra disploop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1164 othererr pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1165 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1166 lbsr clrline

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1167 puls b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1168 bsr prterr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1169 lbra getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1170

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1171 * display error #

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1172 prterr lda #$02 error path

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1173 os9 F$PErr

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1174 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1175 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1176 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1177 lbra read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1178

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1179 * use with ded and no path list

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1180 hints lda #2 Now this is used

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1181 leax >usemess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1182 ldy #$78

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1183 lbsr wrtlin2

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1184 clrb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1185 bra bye

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1186

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1187 * Exit to OS-9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1188 quit lbsr rusure

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1189 lbne getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1190 lbsr clrscr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1191 lda <oldecho

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1192 sta <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1193 lbsr echo

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1194 clrb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1195 bye os9 F$Exit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1196

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1197 * Edit sector

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1198 edit lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1199 leax >edprompt,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1200 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1201 topleft leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1202 stx <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1203 lda #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1204 sta <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1205 lda #$23 top row code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1206 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1207 lda #$25 hex dump col#

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1208 sta <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1209 lda #$58 ascii dump col#

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1210 sta <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1211 revbyte lbsr revdisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1212 lbsr eddisply

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1213 edinput lda <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1214 ldb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1215 tst <hexascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1216 beq hexin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1217 lda <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1218 hexin tst <rawflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1219 lbeq edcont

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1220 ldx <lsn+1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1221 cmpx #$0001

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1222 lbcs edcont not BAM

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1223 cmpx <mappags

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1224 lbhi edcont not BAM

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1225 pshs b,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1226 ldx <newBAM

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1227 ldb <newBAM+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1228 stx <BAMstart

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1229 stb <BAMstart+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1230 ldx <nBAMstp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1231 ldb <nBAMstp+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1232 stx <BAMstop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1233 stb <BAMstop+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1234 clra calc byte to cluster

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1235 ldb <rownum

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1236 subb #$23

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1237 lda #$10

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1238 mul

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1239 pshs b,a

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1240 clra

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1241 ldb <hexcol

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1242 subb #$25

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1243 beq hexin2

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1244 tfr d,x

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1245 ldd #$0003

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1246 lbsr mul16B

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1247 tfr x,d

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1248 hexin2 addd ,s++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1249 ldx <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1250 cmpx <mappags

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1251 bcs hexin3 edit inside of BAM range

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1252 pshs b,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1253 ldd <ddmap

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1254 clra

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1255 tfr d,x

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1256 puls b,a

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1257 leax -$01,x

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1258 pshs x

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1259 cmpd ,s++

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1260 bhi hexin4 edit outside of BAM range

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1261 hexin3 ldx #$0008

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1262 tst clustflg using clusters or sectors

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1263 bne csf6 go if clusters

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1264 pshs d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1265 ldd ddbit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1266 lbsr mulDbyX

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1267 tfr u,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1268 puls d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1269 csf6 lbsr mulDbyX

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1270 tfr u,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1271 addd <BAMstart+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1272 std <BAMstart+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1273 tst clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1274 bne csf7 go if cluster mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1275 pshs d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1276 ldx #7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1277 ldd ddbit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1278 lbsr mulDbyX

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1279 tfr u,d

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1280 addd ,s++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1281 bra csf8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1282 csf7 addd #$0007 fixed if clusters

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1283 csf8 cmpd <nBAMstp+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1284 bls hexin5

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1285 ldd <nBAMstp+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1286 hexin5 std <BAMstop+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1287 bra hexin6

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1288 hexin4 clr <BAMstop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1289 clr <BAMstop+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1290 clr <BAMstop+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1291 hexin6 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1292 lbsr normdisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1293 tst <BAMstop+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1294 bne prtbmess

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1295 tst <BAMstop+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1296 bne prtbmess

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1297 tst <BAMstop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1298 bne prtbmess

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1299 ldd #$2034

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1300 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1301 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1302 bra hexin7

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1303 prtbmess lbsr prntBAM

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1304 ldd #$4934

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1305 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1306 leax >BITmess,pcr Bits:

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1307 lbsr pstring

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1308 leax >u009D,u

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1309 lda [<edbufptr,u]

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1310 ldb #8

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1311 pshs x,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1312 bmess2 lsl ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1313 bcs bmess3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1314 lda #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1315 bra bmess4

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1316 bmess3 lda #'1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1317 bmess4 sta ,x+

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1318 decb

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1319 bne bmess2

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1320 puls x,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1321 ldy #8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1322 lbsr writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1323 hexin7 lbsr revdisp

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1324 puls b,a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1325 ************ End of BAM mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1326 edcont lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1327 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1328 tst <hexascii test for hex/ascii mode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1329 lbne inputchr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1330 * modification by BRI

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1331 * bra inputbyt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1332 lbra inputbyt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1333 * end mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1334 eddisply lda <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1335 ldb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1336 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1337 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1338 lda [<edbufptr,u]

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1339 pshs a

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1340 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1341 leax -2,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1342 ldy #2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1343 lda #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1344 lbsr wrtlin2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1345 lda <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1346 ldb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1347 lbsr movecurs

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1348 puls a

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1349 anda #$7F

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1350 cmpa #$20

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1351 bcc prntabl1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1352 lda #$2E

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1353 prntabl1 leax >i.o.buff,u

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1354 sta ,x

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1355 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1356 lbra writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1357

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1358 * read in char, check for break key

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1359 * modification by BRI

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1360 * toggles cursor on/off if enabled, checks for character

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1361 *readit ldy #1 1 char

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1362 readit pshs x,b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1363 CFlash1 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1364 ldb #1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1365 os9 I$GetStt

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1366 bcc CFExit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1367 cmpb #$F6 not ready

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1368 bne CrsrErr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1369 ldx #1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1370 os9 F$Sleep

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1371 bcs CrsrErr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1372 dec <CrsrCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1373 lda <CrsrCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1374 eora <CrsrFlg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1375 anda #$40 keep active counter bit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1376 beq SigChk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1377 com <CrsrFlg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1378 beq CrsrOff

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1379 bsr CrsrOn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1380 bra SigChk

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1381 CrsrOff leax >curoff,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1382 ldy #2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1383 bsr WritCrsr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1384 SigChk ldb <SgnlCode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1385 cmpb #2 abort code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1386 beq CrsrErr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1387 cmpb #$03 shift break

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1388 bne CFlash1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1389 CrsrErr stb ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1390 bsr CrsrOn

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1391 puls x,b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1392 bra cheksig2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1393 CrsrOn leax >curon,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1394 ldy #2 cursor on number of bytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1395 WritCrsr lda #1

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1396 os9 I$Write

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1397 clrb

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1398 rts

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1399 CFExit bsr CrsrOn

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1400 puls x,b

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1401 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1402 * end of mod

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1403 clra

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

1404 os9 I$Read

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1405 bcs cheksig2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1406 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1407

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1408 * modification by BRI

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1409 * clears old signal, traps BREAK,

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1410 * cleans up before reporting other errors

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1411 * (fixes shift-BREAK/control-BREAK in edit mode and

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1412 * error report stack clean up bugs)

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1413 * cheksig2 cmpb #2 BREAK key signal?

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1414 * lbne error no, process error

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1415 * com hexascii yes, toggle hex/ascii flag

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1416 * leas 2,s pull return addr off stack

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1417 * bra edinput loop back

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1418 cheksig2 leas $02,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1419 clr <SgnlCode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1420 cmpb #2 break key

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1421 beq TrapSgnl

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1422 pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1423 lbsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1424 clr <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1425 puls b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1426 lbra error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1427 TrapSgnl com <hexascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1428 lbra edinput

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1429 * end of mod

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1430

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1431 * input a hex byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1432 inputbyt bsr readit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1433 bsr digit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1434 bcs edcurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1435 lbsr writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1436 ldb ,x

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1437 * modification by BRI

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1438 * bsr readit read another char

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1439 lbsr readit

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1440 * end modification

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1441 bsr digit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1442 bcs edcurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1443 exg a,b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1444 lbsr asciihex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1445 stb [<edbufptr,u]

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1446 lda #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1447 sta <wrtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1448 bra movert

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1449

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1450 * Check to see if char is valid hex digit.

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1451 * Exit with Carry set if not valid.

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1452 digit lda ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1453 cmpa #'0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1454 bcs notdig

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1455 cmpa #'9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1456 bls gotdig

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1457 anda #$5F lower to upper

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1458 cmpa #'F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1459 bhi notdig

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1460 cmpa #'A

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1461 bcs notdig

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1462 gotdig andcc #$FE

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1463 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1464 notdig orcc #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1465 rts

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1466

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1467 * Input single ASCII character

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1468

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1469 * modification by BRI

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1470 *inputchr bsr readit read char

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1471 inputchr lbsr readit

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1472 * end of mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1473 lda ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1474 cmpa #$20

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1475 bcs edcurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1476 sta [<edbufptr,u]

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1477 lda #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1478 sta <wrtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1479 bra movert

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1480

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1481 * check if char is an arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1482 edcurs cmpa #9 right arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1483 beq movert

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1484 cmpa #8 left arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1485 beq movelt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1486 cmpa #$0C up arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1487 lbeq moveup

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1488 cmpa #$0A down arrow

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1489 lbeq movedn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1490 cmpa #$0D CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1491 lbne edinput

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1492 * exit edit routine

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1493 lbsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1494 ldd #$4934

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1495 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1496 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1497 clr <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1498 lbra getcmd

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1499

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1500 * move to next screen byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1501 movert lbsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1502 tst <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1503 beq rtptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1504 lda <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1505 cmpa <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1506 lbeq topleft

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1507 rtptr ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1508 addd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1509 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1510 inc <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1511 displyrt inc <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1512 lda <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1513 cmpa #$68 end of row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1514 bcc rowdn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1515 lda <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1516 adda #3 3 columns used per byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1517 sta <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1518 lbra revbyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1519 rowdn inc <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1520 lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1521 cmpa #$32

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1522 lbhi topleft

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1523 lda #$25

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1524 sta <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1525 lda #$58

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1526 sta <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1527 lbra revbyte

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1528

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1529 * move to previous byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1530 movelt bsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1531 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1532 subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1533 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1534 dec <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1535 dec <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1536 lda <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1537 cmpa #$58

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1538 bcs rowup

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1539 lda <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1540 suba #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1541 sta <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1542 lbra revbyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1543 rowup dec <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1544 lda #$52

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1545 sta <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1546 lda #$67

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1547 sta <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1548 lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1549 cmpa #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1550 bcs gobot

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1551 lbra revbyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1552 gobot ldx <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1553 ldb <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1554 beq botptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1555 stb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1556 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1557 leax d,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1558 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1559 pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1560 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1561 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1562 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1563 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1564 addb #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1565 stb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1566 lda ,s+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1567 anda #$0F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1568 pshs a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1569 adda #$58

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1570 sta <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1571 puls a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1572 ldb #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1573 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1574 addb #$25

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1575 stb <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1576 bra savebot

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1577 botptr lda #$32 bottom row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1578 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1579 leax $100,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1580 savebot stx <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1581 lbra revbyte

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1582

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1583 * reset from reverse video to normal

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1584 reset lbsr normdisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1585 lbra eddisply

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1586

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1587 * move up a row

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1588 moveup bsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1589 ldb <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1590 beq moveup1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1591 lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1592 cmpa #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1593 beq moveup2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1594 moveup1 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1595 subd #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1596 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1597 ldb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1598 subb #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1599 stb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1600 dec <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1601 lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1602 cmpa #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1603 bcc updone

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1604 lda #$32

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1605 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1606 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1607 addd #$100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1608 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1609 updone lbra revbyte

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1610

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1611 moveup2 andb #$F0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1612 lda <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1613 anda #$0F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1614 cmpa <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1615 bcc moveup3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1616 subb #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1617 moveup3 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1618 pshs b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1619 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1620 addd ,s+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1621 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1622 ldb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1623 addb ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1624 stb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1625 puls b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1626 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1627 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1628 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1629 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1630 addb #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1631 stb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1632 bra updone

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1633

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1634 movedn bsr reset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1635 ldb <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1636 beq movedn1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1637 subb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1638 cmpb #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1639 bcs movedn2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1640 movedn1 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1641 addd #$0010

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1642 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1643 lda <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1644 adda #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1645 sta <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1646 inc <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1647 lda <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1648 cmpa #$32

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1649 lbls revbyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1650 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1651 subd #$100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1652 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1653 topptr lda #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1654 sta <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1655 lbra revbyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1656 movedn2 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1657 ldb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1658 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1659 andb #$F0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1660 pshs b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1661 ldd <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1662 subd ,s+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1663 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1664 ldb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1665 subb ,s+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1666 stb <edpos

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1667 bra topptr

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1668

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1669 * start a temporary shell

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1670 goshell lbsr clrscr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1671 lda <oldecho

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1672 sta <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1673 bsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1674 leax >shell$,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1675 ldy #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1676 leau >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1677 lda #$0D

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1678 sta ,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1679 ldd #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1680 os9 F$Fork

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1681 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1682 os9 F$Wait

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1683 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1684 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1685 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1686 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1687 bsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1688 cReturn lbsr clrscr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1689 lbra disploop

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1690

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1691 * read in option section of path and toggle echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1692 echo pshs x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1693 leas <-$20,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1694 leax ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1695 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1696 clrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1697 os9 I$GetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1698 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1699 lda <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1700 sta $04,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1701 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1702 os9 I$SetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1703 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1704 leas <$20,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1705 puls pc,x

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1706

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1707 * verify CRC if valid module

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1708 verify lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1709 leax >vrfymess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1710 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1711 ldu #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1712 ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1713 stx <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1714 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1715 os9 I$Seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1716 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1717 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1718 initCRC ldd #$FFFF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1719 std <crc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1720 stb <crc+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1721 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1722 ldy #8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1723 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1724 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1725 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1726 cmpy #8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1727 lbne verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1728 ldd ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1729 cmpa #$87 module sync byte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1730 lbne verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1731 cmpb #$CD ""

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1732 lbne verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1733 ldd 2,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1734 cmpd #$0F minimum module length

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1735 lbls verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1736 subd #3 omit old CRC

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1737 std <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1738 addd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1739 std <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1740 * check header parity

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1741 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1742 ldb #8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1743 hedpar eora ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1744 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1745 bne hedpar

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1746 coma

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1747 sta ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1748 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1749 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1750 os9 I$Write

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1751 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1752 ldd <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1753 subd #9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1754 std <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1755 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1756 ldy #9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1757 bsr CRCcal

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1758 bytsleft lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1759 ldy #$78

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1760 cmpy <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1761 bls readmod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1762 ldy <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1763 readmod os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1764 bcs verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1765 sty <bytsread

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1766 bsr CRCcal

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1767 ldd <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1768 subd <bytsread

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1769 std <vmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1770 bne bytsleft

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1771 * compare current position with header to

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1772 * prevent overwriting next module

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1773 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1774 ldb #5

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1775 os9 I$GetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1776 tfr u,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1777 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1778 cmpd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1779 bne verr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1780 com <crc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1781 com <crc+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1782 com <crc+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1783 leax <crc,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1784 ldy #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1785 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1786 os9 I$Write

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1787 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1788 ldd #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1789 addd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1790 std <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1791 ldb #6 test for EOF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1792 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1793 os9 I$GetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1794 lbcc initCRC

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1795 cmpb #$D3 EOF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1796 lbne error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1797 * redisplay LSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1798 lbsr seeksec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1799 lbra disploop

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1800

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1801 * calculate CRC, regY=# of bytes to use for CRC

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1802 CRCcal leau <crc,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1803 os9 F$CRC

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1804 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1805 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1806 rts

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1807

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1808 * error with verify

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1809 verr ldd #$2036 cmd position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1810 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1811 leax >verrmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1812 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1813 ldb #$CD

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1814 lbsr prterr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1815 lbra getcmd

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1816

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1817 * Link to a module or display all in merged file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1818 linker tst <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1819 lbne getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1820 ldd #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1821 std <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1822 std <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1823 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1824 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1825 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1826 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1827 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1828 leax >linkmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1829 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1830 leax <infile,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1831 ldy #$1E

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1832 lbsr readlin

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1833 clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1834 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1835 cmpy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1836 lbne parsmod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1837 lbsr clrscr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1838 clr <infile list all module names

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1839 leax >linkhdr,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1840 lbsr wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1841 nxtmod ldd <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1842 addd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1843 std <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1844 tfr d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1845 ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1846 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1847 os9 I$Seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1848 bcs moderr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1849 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1850 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1851 ldy #6

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1852 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1853 bcs moderr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1854 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1855 cmpa #$87

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1856 bne moderr1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1857 cmpb #$CD

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1858 bne moderr1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1859 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1860 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1861 std <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1862 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1863 pshs d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1864 ldd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1865 bsr convert2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1866 lda #$20

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1867 sta ,y+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1868 ldd <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1869 bsr convert2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1870 lda #$20

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1871 sta ,y+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1872 ldd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1873 addd ,s++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1874 tfr d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1875 ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1876 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1877 os9 I$Seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1878 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1879 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1880 tfr y,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1881 ldy #$1D

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1882 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1883 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1884 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1885 namend lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1886 bpl namend

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1887 anda #$7F look for fcs delimiter

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1888 sta -1,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1889 lda #$0D CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1890 sta ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1891 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1892 lbsr wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1893 bra nxtmod

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1894

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1895 convert2 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1896 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1897 lbra convert1

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1898

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1899 moderr2 cmpb #$D3 e$e0f

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1900 bne moderr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1901 ldb #$DD module not found

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1902 bra moderr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1903 moderr1 ldb #$CD bad module ID

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1904 moderr clr <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1905 cmpb #$D3 end of file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1906 lbne error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1907 lbsr read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1908 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1909 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1910 lbra cReturn

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1911

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1912 parsmod os9 F$PrsNam

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1913 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1914 stb <modnmlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1915 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1916 lda b,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1917 ora #$80 fcs format

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1918 sta b,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1919 stx <crc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1920 ldu #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1921 modloop ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1922 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1923 os9 I$Seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1924 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1925 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1926 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1927 ldy #6

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1928 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1929 bcs moderr2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1930 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1931 cmpa #$87 module sync code

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1932 bne moderr1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1933 cmpb #$CD ""

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1934 bne moderr1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1935 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1936 std <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1937 ldd ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1938 addd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1939 tfr d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1940 ldx #0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1941 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1942 os9 I$Seek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1943 bcs moderr2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1944 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1945 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1946 ldy #$1D

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1947 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1948 bcs moderr2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1949 tfr x,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1950 ldx <crc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1951 ldb <modnmlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1952 os9 F$CmpNam

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1953 bcc newbase

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1954 ldd <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1955 addd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1956 std <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1957 tfr d,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1958 bra modloop

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1959

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1960 * set offset to module so effective LSN is $00

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1961 newbase lda #$0D CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1962 sta b,x delimit name

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1963 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1964 lda b,x last character

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1965 anda #$7F clear marker

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1966 sta b,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1967 ldd <fileln

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1968 std <offset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1969 ldd #6

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1970 leax lsn,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1971 nbloop sta ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1972 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1973 bne nbloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1974 lbra readloop

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1975

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1976 * display module name and offset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1977 prntmod ldd #$3020 mod position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1978 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1979 leax >modnmhdr,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1980 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1981 leax <infile,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1982 lbsr wrtlin1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1983 ldd #$5820 offset position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1984 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1985 leax >offmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1986 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1987 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1988 ldd <offset

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1989 lbsr convert2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1990 lda #$0D CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1991 sta ,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1992 lbra writeout

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

1993

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1994 * unlink module and restore LSN to that of file

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1995 unlinker tst <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1996 lbeq getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1997 ldd #8

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1998 leax lsn,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

1999 unloop sta ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2000 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2001 bne unloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2002 ldd #$3020 mod position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2003 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2004 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2005 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2006 clr <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2007 lbra readloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2008

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2009 * toggle expert mode - edits and zaps are auto-written

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2010 expert tst <xprtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2011 beq xprton turn flag on if not on

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2012 clr <xprtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2013 ldd #$5933 expert position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2014 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2015 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2016 xprtout lbra getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2017 xprton lbsr rusure

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2018 bne xprtout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2019 com <xprtflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2020 ldd #$5933 expert position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2021 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2022 leax >xprtmess,pcr display EXPERT

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2023 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2024 bra xprtout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2025

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2026 help lbsr clrscr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2027 leax >helper,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2028 ldy #helpchrs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2029 lbsr wrtlin2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2030 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2031 lbsr read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2032 lbra cReturn

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2033

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2034 find clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2035 com <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2036 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2037 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2038 lbsr clrline

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2039 tst <FhexAsc hex or ascii mode?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2040 bne charfind go if ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2041 leax >findbyte,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2042 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2043 ldy #$21

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2044 lbsr FRead

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2045 cmpy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2046 lbeq exitfind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2047 leay -1,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2048 tfr y,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2049 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2050 lbcs badfind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2051 stb <TargLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2052 leau <findstr,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2053 * convert 2 bytes pointed to by regX, store in regA

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2054 FConvert lbsr hexobjct

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2055 lbcs badfind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2056 sta ,u+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2057 leay -2,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2058 bne FConvert

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2059 ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2060 bra gofind

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2061

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2062 * input string of ascii chars

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2063 charfind leax >findchar,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2064 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2065 ldy #$11

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2066 lbsr FRead

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2067 cmpy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2068 lbeq exitfind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2069 tfr y,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2070 decb dump CR

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2071 stb <TargLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2072 leay <findstr,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2073 find20 lda ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2074 sta ,y+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2075 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2076 bne find20

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2077

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2078 * Check if byte from target string matches byte in buffer by EOR'ing the two.

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2079 * If they match exactly, result is 0. If in 'char' search mode, EOR results

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2080 * in bits 5 and/or 7 being set if 2 bytes differ only by case or bit 7 status

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2081

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2082 *****************************

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2083 * Added 01/08/90 (RAK)

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2084 *

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2085 * clr echobyte echo off

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2086 * lbsr echo

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2087 *

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2088 * END of modification

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2089 *****************************

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2090 gofind clr <echobyte

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2091 lbsr echo

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2092 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2093 find30 ldb <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2094 leay <findstr,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2095 find50 lda ,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2096 eora ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2097 lbeq found1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2098 tst <FHexAsc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2099 beq find60

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2100 bita #$5F %01011111

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2101 lbeq found1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2102 find60 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2103 find70 bne find50 no match in this sector

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2104 * Modification (addition) by RAK 01/08/90

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2105 * Read a character from std in to catch a break

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2106 * key which allows aborting a <F>IND.

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2107 * Note: "finderr2" resets the stack.

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2108 pshs y,x,b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2109 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2110 ldb #1 SS.Ready

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2111 os9 I$GetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2112 bcs NoKey

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2113 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2114 lbsr read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2115 lda ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2116 cmpa #5 catch key to abort find

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2117 beq finderr2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2118 NoKey puls y,x,b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2119 * end of mod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2120 bsr FNxtSec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2121 bra find30

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2122

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2123 FNxtSec tst <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2124 beq find75

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2125 ldd <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2126 subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2127 cmpa <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2128 beq finderr2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2129 find75 ldd <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2130 addd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2131 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2132 bne find80

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2133 inc <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2134 find80 lbsr lsnseek

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2135 leax >inbuff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2136 stx <buffptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2137 tst <infile

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2138 beq find256

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2139 ldd <lmodlen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2140 suba <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2141 bne find256

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2142 tfr d,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2143 bra FRdSome

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2144 find256 ldy #$100

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2145 FRdSome lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2146 os9 I$Read

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2147 bcs finderr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2148 sty <seclen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2149 rts

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2150

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2151 * Get byte/char to find

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2152 FRead leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2153 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2154 os9 I$ReadLn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2155 bcs cheksig3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2156 rts

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2157 cheksig3 leas 2,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2158 clr <SgnlCode

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2159 cmpb #2 break key?

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2160 lbne error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2161 com <FHexAsc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2162 lbra find

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2163 badfind ldu <Usave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2164 bsr beep

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2165 lbra find

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2166

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2167 * make a beep

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2168 beep leax >bell,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2169 ldy #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2170 lbra writeout

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2171

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2172 * If error reading next sector was EOF, then find was unsuccessful.

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2173 * Re-read original sector and return to CMD: prompt

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2174 finderr cmpb #$D3 EOF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2175 lbne error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2176 finderr2 lds <Ssave

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2177 ldd <oldlsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2178 std <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2179 lda <oldlsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2180 sta <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2181 lbsr seeksec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2182 sty <seclen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2183 bsr beep

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2184 exitfind lbra exitzap

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2185

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2186 found1 pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2187 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2188 stb <Fbytes

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2189 * Save pointer (X) to next byte in buffer for search to resume if this search

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2190 * is unsuccessful or for 'Next' command

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2191 stx <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2192 ldb <TargLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2193 find90 decb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2194 beq matched

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2195 dec ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2196 beq find130

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2197 find100 leay 1,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2198 lda ,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2199 eora ,x+

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2200 beq find90

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2201 tst <FHexAsc

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2202 beq find110

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2203 bita #$5F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2204 beq find90

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2205 find110 leas 1,s

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2206 * Restore buffer pointer (X) to byte after 1st byte found that matched in

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2207 * search just completed (unsuccessfully). Restore B to # bytes left in

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2208 * sector at that point. Y = start of target string.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2209 ldx <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2210 find120 leay <findstr,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2211 ldb <FBytes

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2212 lbra find70

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2213 * Read in next sector to complete test for match

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2214 find130 leas 1,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2215 pshs y,b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2216 lbsr FNxtSec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2217 puls y,b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2218 lda <seclen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2219 pshs a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2220 bra find100

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2221

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2222 * Successful Find

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2223 * Must determine whether target string starts in last LSN read or

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2224 * next-to-last, for display

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2225 matched leas 1,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2226 lda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2227 cmpa <oldlsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2228 beq match40

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2229 cmpx <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2230 bcc match30

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2231 ldd <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2232 subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2233 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2234 cmpd #$FFFF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2235 bne match20

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2236 dec <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2237 match20 lbsr seeksec

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2238 sty <seclen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2239 match30 ldd <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2240 std <oldlsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2241 lda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2242 sta <oldlsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2243 match40 lbsr display

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2244 * Get offset of found string from beginning of LSN

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2245 ldd <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2246 subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2247 std <edbufptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2248 subd <buffptr

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2249 * Now LS nib of B = col #, MS nib = row # for display

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2250 pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2251 andb #$0F

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2252 pshs b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2253 addb #$58

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2254 stb <asciicol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2255 puls b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2256 lda #$03

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2257 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2258 addb #$25

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2259 stb <hexcol

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2260 puls b

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2261 andb #$F0

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2262 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2263 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2264 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2265 lsrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2266 addb #$23

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2267 stb <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2268 lbsr revdisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2269 lbsr eddisply

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2270 lbsr normdisp

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2271 clr <rownum

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2272 *** This line changed from 'lbra getcmd' in Version 2.0 ***

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2273 lbra exitfind

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2274

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2275 * Next Search starts from Find unless LSN changed

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2276 next tst <TargLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2277 lbeq getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2278 lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2279 leax >srchmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2280 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2281 ldx <findptr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2282 lbeq gofind

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2283 lbra find120

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2284

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2285 * Display/change file size

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2286 diddle lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2287 leax >lenmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2288 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2289 com <zeroflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2290 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2291 ldd <FileLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2292 lbsr convert1 nibble to ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2293 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2294 lbsr convert1 second nibble

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2295 ldd <FileLen+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2296 lbsr convert1 third nibble

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2297 clr <zeroflag

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2298 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2299 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2300 ldd #$2020

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2301 std ,y++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2302 std ,y++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2303 leax >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2304 stx <bytsread

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2305 tfr y,d

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2306 subd <bytsread chars to display

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2307 tfr d,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2308 lbsr writeout

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2309 leax >newmess,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2310 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2311 ldy #9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2312 lbsr MakeHex

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2313 bcs diddle

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2314 ldd #$2037 command1 position

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2315 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2316 lbsr rusure10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2317 lbne getcmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2318 ldx <HexBuff

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2319 ldu <HexBuff+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2320 ldb #2 size

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2321 lda <inpath

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2322 os9 I$SetStt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2323 lbcs error

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2324 stx <FileLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2325 stu <FileLen+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2326 ldu <Usave

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2327 * Make sure LSN displayed is still within file (in case file shortened).

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2328 * If not, reset display to show last LSN with new file length.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2329 lda <FileLen

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2330 cmpa <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2331 bcs RstLSN

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2332 bne diddled

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2333 ldd <FileLen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2334 cmpd <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2335 bls RstLSN10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2336 diddled lbra readloop

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2337

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2338 RstLSN sta <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2339 ldd <FileLen+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2340 RstLSN10 tst <FileLen+3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2341 bne RstLSN20

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2342 subd #1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2343 RstLSN20 std <lsn+1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2344 cmpd #$FFFF

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2345 bne diddled

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2346 dec <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2347 bra diddled

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2348

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2349 push lda <StackCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2350 cmpa #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2351 bcc full

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2352 ldb #$03

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2353 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2354 leax >Stack,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2355 leax b,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2356 ldd <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2357 std ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2358 lda <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2359 sta ,x

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2360 * Now that LSN is on stack, check to make sure it isn't the last one

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2361 * pushed, as well. If so, don't increment StackCnt, which effectively

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2362 * cancels the Push operation.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2363 tst <StackCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2364 beq pushOK

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2365 cmpa -$03,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2366 bne pushOK

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2367 ldd <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2368 cmpa -5,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2369 beq pushed

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2370 pushOK inc <StackCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2371 pushed lbra getcmd

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2372

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2373 * Stack is full - display message

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2374 full lbsr movecmd

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2375 leax >bell,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2376 lbsr pstring full message

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2377 lbsr read1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2378 bra pushed

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2379

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2380 restore lda <StackCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2381 beq pushed

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2382 ldb #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2383 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2384 subb #3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2385 leax >Stack,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2386 leax b,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2387 ldd ,x++

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2388 std <lsn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2389 lda ,x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2390 sta <lsn+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2391 dec <StackCnt

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2392 lbra readloop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2393

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2394 * This is a general purpose 16x16 bit multiplication.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2395 * regD is first number, regX is second number.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2396 * Returns answer in regY and regU.

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2397 mulDbyX pshs u,y,x,b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2398 clr 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2399 lda 3,s lower word of regX times regB

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2400 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2401 std 6,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2402 ldd 1,s upper word of regX times regB

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2403 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2404 addb 6,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2405 adca #$00

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2406 std 5,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2407 ldb ,s original regA

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2408 lda 3,s upper word regX

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2409 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2410 addd 5,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2411 std 5,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2412 bcc mulDX2 L171D

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2413 inc 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2414 mulDX2 lda ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2415 ldb 2,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2416 mul

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2417 addd 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2418 std 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2419 puls pc,u,y,x,b,a

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2420

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2421 * Looks like 16*regX

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2422 mul16B pshs x,b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2423 lda #$10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2424 pshs a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2425 clra

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2426 clrb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2427 mul16B2 lsl 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2428 rol 3,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2429 rolb

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2430 rola

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2431 cmpd 1,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2432 bcs mul16B3

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2433 subd 1,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2434 inc 4,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2435 mul16B3 dec ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2436 bne mul16B2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2437 ldx 3,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2438 leas 5,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2439 rts

968

69757400b240 Added to std CMDS

boisy

parents:

diff changeset

2440

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2441 prntBAM ldd #$2034

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2442 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2443 tst clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2444 bne csf9

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2445 leax BAMmess1,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2446 bra csf10

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2447 csf9 leax BAMmess2,pcr

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2448 csf10 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2449 leay >i.o.buff,u

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2450 pshs y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2451 ldd <BAMstart get 3 byte address and display it

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2452 lbsr convert1 convert hex to ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2453 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2454 lbsr convert1 convert hex to ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2455 lda <BAMstart+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2456 lbsr convert1 convert hex to ascii

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2457 lda ,-y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2458 ora #$80

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2459 sta ,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2460 ldd #$3234

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2461 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2462 ldx ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2463 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2464 ldy ,s

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2465 ldd <BAMstop

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2466 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2467 tfr b,a

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2468 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2469 lda <BAMstop+2

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2470 lbsr convert1

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2471 lda ,-y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2472 ora #$80

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2473 sta ,y

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2474 ldd #$3D34

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2475 lbsr movecurs

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2476 puls x

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2477 lbsr pstring

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2478 rts

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

2479

2172

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2480 togCS com <clustflg

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2481 lbra cReturn

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2482

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2483 emod

2801ef7aff80 Corrections to BAM routines to incorporate DD.BIT. Selection of cluster/sector mode. Removal of unused previous version tacked onto end of source code.

robertgault

parents: 1979

diff changeset

2484 eom equ *

1979

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

2485

bc8c21346cf4 Disassembly of 1st half of source and correction of BAM to sectors in allocation map. Now calculation does not fail if DD.MAP is a exact multiple of $100 bytes.

robert

parents: 1725

diff changeset

2486 end

Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/ded.asm @ 3295:6b7a7b233925 default tip